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

Question

我正在使用包裹在 lapply 语句中的 quantmod 从雅虎财经下载一些信息：

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块放在您的函数中：

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

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