我已经在“ 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：评估失败
在服务器上显示的消息是：
错误：发生错误。查看您的日志或与应用作者联系以进行澄清。