【发布时间】：2017-03-07 15:44:24
【问题描述】：
尝试从 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(paste("getSymbols.", symbol.source, sep = ""), list(Symbols = current.symbols, 中的错误： 找不到函数“getSymbols.6”
谢谢！
【问题讨论】：
-
请将
sessionInfo()、getDefaults()和getSymbolLookup()的输出添加到您的问题中。