R / quantmod使用getSymbols从具有指定日期的csv文件中获取已结算价格

Question

尝试从csv中列出的代码列表中获取收盘价。使用以下代码文件：

date <- "2017-03-03"
tickers <- read.csv("us_tickerfeed.csv", header = TRUE)

for(i in 1:nrow(tickers)){
    data <- getSymbols(tickers$ticker_th[i], from = date, to = date, src = "yahoo")
    tickers$close_price[i] <- Cl(get(data))[[1]]
}

这些代码之前有效，但现在我收到以下错误消息：

  

do.call出错（粘贴（＆＃34; getSymbols。＆＃34;，symbol.source，sep =＆＃34;＆＃34;），list（符号= current.symbols，：     找不到功能＆＃34; getSymbols.6＆＃34;

谢谢！

Answer 1

之前我遇到过这个问题，您可以试试as.character(tickers$ticker_th)吗？