即使在使用 quantmod 中的 getSymbols 遇到错误后，lapply 仍继续
Have lapply continue even after encountering an error using getSymbols from quantmod
我正在使用包裹在 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 的文档，但无法理解它。
谢谢。
您需要将 try 块放入您的函数中：
quotes <- lapply(tickers, function(x) try(getSymbols(x, ...)))
请注意，我们在这里使用更简单的 try。如果出现错误，您的 quotes 对象将在导致错误的元素位置包含 try-error class 的对象。
我正在使用包裹在 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 的文档，但无法理解它。
谢谢。
您需要将 try 块放入您的函数中：
quotes <- lapply(tickers, function(x) try(getSymbols(x, ...)))
请注意，我们在这里使用更简单的 try。如果出现错误，您的 quotes 对象将在导致错误的元素位置包含 try-error class 的对象。