создание функции для получения символов

Question

Я пытаюсь создать функцию, которая будет принимать акции в качестве входных данных и возвращать мне данные о цене акций из Yahoo Finance, используя getSymbols, но когда я попытался использовать функцию, я получил эту ошибку "Ошибка в [.xts (Символы, символы == x): «i» или «j» вне диапазона "

это код

library(quantmod) 
pelumi=function(stock){
  stock.e=getSymbols(stock , auto.assign = T)
  ty=as.data.frame(stock.e)
  return(ty)
}

Answer 1

stock = c('CA.PA','^FCHI','BN.PA','BNP.PA','RNO.PA')
stockData <- new.env() 


rec_data <-
  function(stock) {
    getSymbols(
      stock,
      env = stockData,
      src = "yahoo",
      auto.assign = TRUE,
      warnings = FALSE
      )
    rs <- na.omit(stock)
    return(rs)
  }

Answer 2

Поскольку вы уже используете quantmod, почему бы просто не использовать getQuote?

Например, чтобы получить цену акций Apple от Yahoo:

library(quantmod)
getQuote("AAPL", src = "yahoo")