当我运行 quantmod (getDividens) 时，我从 R 收到错误

Question

我试图从 R 中获取红利，但出现错误。这是我使用的代码：

library(xts)
library(quantmod)

Tick <- c("A","AA","AADR","AAN","AAP") #have more than 3 thousands symbols.



divs <- xts()
for( sym in Tick) {
  divs <- merge(divs, getDividends(sym, from= "2016-01-04", to="2017-03-09", src="yahoo"))
}

我的错误是：

Error in open.connection(file, "rt") : 
  Handle is already in use elsewhere.

我在谷歌上搜索了这个错误，但我无法弄清楚它是从哪里来的。有人知道为什么吗？

Answer 1

尝试使用 lapply :

library(quantmod)

result <- Reduce(merge, lapply(Tick, function(x) {
  tryCatch({
    getDividends(x, from= "2016-01-04", to="2017-03-09", src="yahoo")
  }, error = function(e) {}
  )
}))

当我 运行 quantmod (getDividens) 时，我从 R 收到错误

I get an error from R when I run quantmod (getDividens)

r

quantmod

当我运行 quantmod (getDividens) 时，我从 R 收到错误