发光的应用程序可以离线运行，但不能在线运行-tidyfeed（）函数

Question

我已经在“ www.shinyapps.io”上免费建立了一个应用程序，而我的应用程序大部分都可以在线使用。但是，该应用程序有一个特定部分不起作用（当我将该应用程序部署到服务器上时）。我怀疑是tidyRSS软件包中的函数tidyfeed（）无法访问URL。

删除代码中有问题的部分（函数collect_news）可删除该错误，但我显然希望包含该错误。我还确保tidyfeed（）函数中使用的Google URL在隐身模式下工作（访问该URL无需登录）。

collect_news <- function(data, stock_name){
  options(warn=-1)
  part1 <- "https://news.google.com/rss/search?q="
  part2 <- "&hl=en-US&gl=US&ceid=US:en"
  name_without_spaces <- str_replace_all( data[which(data[,1] == stock_name),2] , " " , "%")
  news_source_url <- paste(part1, name_without_spaces, "%stock", part2, sep = "")
  news <- tidyfeed(news_source_url)

  title1 <- news$item_title[1];title2 <- news$item_title[2];title3 <- news$item_title[3]
  title4 <- news$item_title[4];title5 <- news$item_title[5];title6 <- news$item_title[6]
  title7 <- news$item_title[7];title8 <- news$item_title[8];title9 <- news$item_title[9]
  title10 <- news$item_title[10]

  link1 <- news$item_link[1]
  link2 <- news$item_link[2]
  link3 <- news$item_link[3]
  link4 <- news$item_link[4]
  link5 <- news$item_link[5]
  link6 <- news$item_link[6]
  link7 <- news$item_link[7]
  link8 <- news$item_link[8]
  link9 <- news$item_link[9]
  link10 <- news$item_link[10]

  titles_and_links <- (list(link1,title1,link2,title2,link3,title3,
                            link4,title4,link5,title5,link6,title6,
                            link7,title7,link8,title8,link9,title9,
                            link10,title10))



  options(warn=0)
  return(titles_and_links)
}

服务器日志中的错误如下：

警告：xpath_search中的错误：xmlXPathEval：评估失败

在服务器上显示的消息是：

错误：发生错误。检查您的日志或与应用作者联系以进行澄清。

Answer 1

我目前正面临相同的错误。我在his repo中看到此问题尚未解决。所以我想知道如果对我有帮助，您将如何处理。谢谢！