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]] 
} 

這些代碼之前的工作，但現在我得到以下錯誤消息：「getSymbols」

錯誤do.call（粘貼（，symbol.source 09月= 「」），列表（符號= current.symbols，： 找不到功能 「！getSymbols.6」

感謝

Answer 1

我有這個PROBL以前，你可以試試as.character(tickers$ticker_th)？