r - 即使在使用 quantmod 中的 getSymbols 遇到错误后，仍让 lapply 继续

Question

我正在使用 lapply 语句中包含的 quantmod 从 yahoo Finance 下载一些信息:

require(quantmod)
tickers <- c("AAPL", "MSFT", "MKQ", "TSLA")
quotes <- lapply(tickers,function(x) getSymbols(x, src="yahoo", from="2015-02-01", auto.assign=FALSE)) 

股票代码 MKQ 是故意编造的。我希望循环打印错误，但仍创建一个 xts 对象列表，其中包含其他 3 个代码的请求数据。

我尝试如下使用 tryCatch 但不成功:

quotes <- tryCatch(lapply(tickers,function(x) getSymbols(x, 
src="yahoo", from="2015-02-01", auto.assign=FALSE)) , error=function(e) NULL)

关于如何做到这一点有什么建议吗？我阅读了有关 tryCatch 的文档，但无法理解它。

谢谢。

Answer 1

您需要将 try block 放入函数中:

quotes <- lapply(tickers, function(x) try(getSymbols(x, ...)))

请注意，我们在这里使用更简单的try。如果出现错误，您的 quotes 对象将在导致错误的元素位置包含 try-error 类的对象。