Xml R-Shining:错误：找不到函数“xpath_元素”

我试图建立一些交易数据，从不同的网站废弃数据

它在Rstudio下工作得非常好，但是当我将它部署到我的shinny.io中时，它在新的open浏览器中给了我以下错误：

Error: could not find function "xpath_element"

我的代码中使用的包是：

require(RCurl)
require(rjson)
library(stringr)   # for str_pad
require(ggplot2)
library(XML)
library(rvest)
require(stringr)

我的文件夹中有3个文件，一个是server.R，一个是ui.R，一个是main.R

#main.R:

Sys.setlocale(locale='Chinese')

Analysisf <- function(symbol,param1){

  #ticker1 <- "1"
  ticker1 <- param1
  #ticker2 <- "600030"
  ticker2 <- symbol
  code <- "&code="

  web0 <- paste(ticker1,code,sep="")
  web1 <- paste(web0,ticker2,sep="")
  web2 <- "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=FD&sty=MTE&mkt="
  web3 <- paste(web2,web1,sep="")
  web4 <- paste(web3,"&p=",sep="")
  cURL <- paste(web4,1:5,sep="")

  fdjson <- getURL(cURL)
  fdjson1 <- substr(fdjson,2,nchar(fdjson)-1)
  fdlist <- sapply(fdjson1,fromJSON)
  fdlist <- strsplit(fdlist,",")
  fdm <- matrix(unlist(fdlist),ncol=13,byrow=T)
  rzrq <- data.frame(fdm)
  rzye <- rzrq[,13]
  rzmr <- rzrq[,11]
  rzch <- rzrq[,10]
  stock <- rzrq[,1]
  date <- as.Date(rzrq[,5])
  rzrq1 <- data.frame(stock,date,rzye,rzmr,rzch)


  ##############################################################################
  ur <- paste("sh",ticker2,sep="")
  web <- "http://app.finance.ifeng.com/hq/stock_daily.php?code="
  url <- paste(web,ur,sep="")

  dat = url %>% html() %>% html_nodes('table') %>% html_table() %>% .[[1]]

  dat <- data.frame(dat)

  dat[,1]=  str_extract(dat[,1],"[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2}")
  dat[,7] = str_extract(dat[,7],"[[:digit:]]+")
  date <- as.Date(dat[,1])
  closeprice <- dat[,5]
  volumemoney <- dat[,7]
  stockdat1 <- data.frame(date,closeprice,volumemoney)

  ###############################################################
  u <- "http://stockdata.stock.hexun.com/"
  u0 <- paste(u,ticker2,sep="")
  u1 <- paste(u0,".shtml",sep="")
  url <- htmlParse(u1)
  ltgb <- as.numeric(xmlValue(getNodeSet(url,"//td[@class='tb2_new']")[[10]]))

  ###########
  #merge
  rzrq2 <- data.frame(merge(rzrq1, stockdat1, by='date'))
  rzrq2$ltgb <- ltgb
  rzrq2$date <- as.character(rzrq2$date)

  rzrq2$rmrc <- as.numeric(as.character(rzrq2$rzmr))/as.numeric(as.character(rzrq2$rzch))

  rzrq2$rzltb <- as.numeric(as.character(rzrq2$rzye))/(as.numeric(as.character(rzrq2$closeprice))*100000000*rzrq2$ltgb)

  rzrq2$rzcjb <- as.numeric(as.character(rzrq2$rzmr))/(as.numeric(as.character(rzrq2$volumemoney))*10000)

  #rownames(stockdat) <- NULL

  return(rzrq2)
}

我认为错误来自这个文件。因为它使用了一些XML方法从网站获取数据

---

有人能给我一些帮助吗？

请添加您的实际代码，而不仅仅是软件包和错误消息。@nrussell，我刚刚更新了代码。谢谢。selectr是rvest的一个巨大依赖项，因为它是软件包用来将CSS选择器转换为XPath选择器的工具。-对于那些相信require而不是library的人来说，这只是又一个require可能会让人非常困惑的证据@我自己刚遇到这个问题。。。出于某种原因，install.PackageServest没有尝试安装selectr？？不知道为什么。