R - вызвать xts через символ

Question

Предположим, у нас есть список символов в качестве основы для функции, которая имеет объект xts с тем же именем, что и результат:

library(zoo)
library(xts)
library(quantmod)

l<-list("AAPL","NKE")

for(i in 1:length(l)){
  getSymbols(l[[i]], src = "yahoo")
  write.zoo(l[[i]], paste(l[[i]],".csv", sep=''), sep = ",")
}

Мой код не работает, потому что getSymbols создает объект xts ( названный AAPL / NKE). Моя проблема в том, что я не могу вызвать их правильно в функции write.zoo. Можете ли вы помочь мне?

Answer 1

Позвоните getSymbols с помощью auto = FALSE, чтобы получить данные напрямую.

library(quantmod)

syms <- c("AAPL", "NKE")
for(s in syms) {
  dat <- getSymbols(s, auto = FALSE)
  write.zoo(dat, paste0(s, ".csv"), sep = ",")
}

Answer 2

Здесь нам нужно get, чтобы получить значение созданного объекта

for(i in 1:length(l)){
  getSymbols(l[[i]], src = "yahoo")
   write.zoo(get(l[[i]]), paste(l[[i]],".csv", sep=''), sep = ",")
  }

-checking