Cargar múltiples símbolos usando csv con quantmod

Question

Estoy tratando de cargar varios símbolos usando un archivo csv en lugar de descargar desde Yahoo. El código original funciona muy bien y utiliza

load.packages('quantmod') 
tickers = spl('TLT,IWM,GLD') 
data <- new.env() 
getSymbols(tickers, src = 'yahoo', from = '1980-01-01', env = data, 
      auto.assign = T) 

cuando trato con el siguiente código, sin embargo, el resultado es "subíndice fuera de límites" errores más adelante en la secuencia de comandos:

load.packages('quantmod') 
tickers = spl('TLT,IWM,GLD') 
data <- new.env() 
getSymbols(tickers, src="csv", dir= "C:/Users/Admiral/Downloads/", 
      env = data, auto.assign = T) 

Cualquier persona tiene pensamientos por qué el segundo conjunto de códigos no funcionará? Para probar, acabo de descargar datos csv de Yahoo y guardados localmente (Windows). No obtengo los errores del subíndice si solo uso un archivo csv. También he probado el código de abajo, pero consigo los mismos errores más adelante en la secuencia de comandos:

setSymbolLookup(tickers=list(src="csv", dir= "C:/Users/Admiral/Downloads/")) 
getSymbols(tickers, auto.assign = T, from = '1980-01-01', env=data) 

Answer 1

Me gustaría hacer esto utilizando el paquete FinancialInstrument

require('quantmod') 
require('FinancialInstrument') 
tickers <- c("TLT", "IWM", "GLD") 
data <- new.env() 
getSymbols(tickers, src = 'yahoo', from = '1980-01-01', env = data) 

# Now save the data in a directory 
tmpdir <- tempdir() 
saveSymbols.common(tickers, tmpdir, env=data) 

#remove the data  
rm(list=tickers, pos=data) 
ls(data) # see that there is nothing there 
# Now load the data back from disk 
getSymbols(tickers, src='FI', dir=tmpdir, env=data, split_method='common') 
ls(data) 

Si desea utilizar getSymbols.csv, sus datos tienen debe tener la fecha y 6 columnas (OHLCVA)

#write data to csv files on disk 
for (i in seq_along(tickers)) {  
    write.zoo(get(tickers[i], pos=data), file=paste0(tmpdir, "/", tickers[i], ".csv"), sep=",") 
} 
rm(list=tickers, pos=data) #remove from memory 
getSymbols(tickers, src='csv', dir=tmpdir)#, env=data) #load from csv files