多个代码的 getOptionChain 到期日期错误

Question

我正在运行获取多个代码的选项链，但多个代码的到期日期有问题。

这是一个示例代码：

library(quantmod)
Symbols <- c("XOM","MSFT","JNJ")
Options.20220429 <- getOptionChain("Symbols", "2022-04-29")

我收到以下错误：

    Error in getOptionChain.yahoo(Symbols = "Symbols", Exp = "2022-04-29") : 
  Provided expiry date(s) not found. Available dates are:

但是，如果我运行像下面这样一个一个地使用相同到期日期的单个代码，一切正常。

getOptionChain("JNJ", "2022-04-29")

Answer 1

您需要提供每个代码的到期日。以下代码有效：

Options.20220429 <- lapply(Symbols, getOptionChain, Exp = "2022-04-29")

names(Options.20220429) <- Symbols

Error in getOptionChain expiry date for multiple tickers