Question

我有一个我想要迭代的股票代码清单，并获取历史调整后的收盘价。之后我将输出绑定在一起。但是，如果由于其中一个代码不正确而发现错误，我想要（i）跳过并抓住下一个代码或（ii）将该代码作为错误捕获。这是一些玩具代码：

require(quantmod)

symbols <- c("KO","FANATASTICALLYCOOL","MSFT","LUCKYDEVIL","LMT")
getSymbols(symbols, from="1990-01-01")
prices <- list()
for(i in 1:length(symbols)) {
    prices[[i]] <- try(Ad(get(symbols[i])))
}

prices <- do.call(cbind, prices)
colnames(prices) <- gsub("\\.[A-z]*", "", colnames(prices))

显然，FANTASTICALLYCOOL和LUCKYDEVIL不是真正的代号，但奇怪的是，没有任何错误。事实上，这是我得到的头（价格）

              KO   FANATASTICALLYCOOL     MSFT       LUCKYDEVIL   LMT
1990-01-02 2.737389    2.737389          0.418482   0.418482    5.970848  
1990-01-03 2.697907    2.697907          0.420840   0.420840    5.934217
1990-01-04 2.684747    2.684747          0.433218   0.433218    5.915902
1990-01-05 2.662812    2.662812          0.422608   0.422608    6.080741
1990-01-08 2.719841    2.719841          0.429092   0.429092    6.025795
1990-01-09 2.697907    2.697907          0.427913   0.427913    5.989164

FANTASTICALLYCOOL和LUCKYDEVIL正在接受前一个股票代码的价值。我要么喜欢R要跳过自动收报机，要么输入一个满是NA的列。

我尝试过使用try（）和tryCatch（）都无济于事。

Answer 1

getSymbols应该抛出错误。尝试

symbols <- c("KO","FANATASTICALLYCOOL","MSFT","LUCKYDEVIL","LMT")
out <- sapply(symbols, function(s) tryCatch({
  getSymbols(s , env = NULL)
  }, error = function(e) NA)
)

dd <- lapply(out, function(x) if (any(is.na(x))) NA else Ad(x))
dd <- do.call(cbind, dd)
#            KO.Adjusted FANATASTICALLYCOOL MSFT.Adjusted LUCKYDEVIL LMT.Adjusted
# 2007-01-03    18.03268                 NA      23.47842         NA     66.64122
# 2007-01-04    18.04010                 NA      23.43910         NA     66.46724
# 2007-01-05    17.91389                 NA      23.30543         NA     66.70646
# 2007-01-08    18.02896                 NA      23.53346         NA     67.91707
# 2007-01-09    18.04381                 NA      23.55704         NA     67.85182
# 2007-01-10    18.06979                 NA      23.32116         NA     68.56224

Quantmod错误处理错误的代码

1 个答案: