为getsymbols创建函数

Question

我正在尝试创建一个函数，将股票作为输入，并使用getSymbols从雅虎财务向我返回股票价格数据，但是当我尝试使用该函数时，出现此错误“ [.xts（Symbols中的错误，Symbols == 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

由于您已经在使用quantmod，为什么不只使用getQuote？

Answer 2

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