R 从quantmod包中获取选项链，如何获取多个到期日期的选项

我试图通过列举几个到期日期来获取optionChain：

library(quantmod)
x <- getOptionChain(symbol, Exp=as.Date(c("2013-08-17", "2013-07-20")))

正确的方法是什么

第二，有没有办法获得股票期权到期日的列表

我问的原因是

getOptionChain("NOK", Exp=NULL)

给出一个错误，因此我被迫列出过期日期（因为我需要完整的链）

谢谢 阿苏

@Ashu，试试看：

#your list of expiration dates
exp=c("2013-08-17", "2013-07-20")

x=list()
for(i in 1:length(exp)) x<-c(getOptionChain("NOK",exp[i]),x)

@阿苏，试试看：

#your list of expiration dates
exp=c("2013-08-17", "2013-07-20")

x=list()
for(i in 1:length(exp)) x<-c(getOptionChain("NOK",exp[i]),x)

lapply(exp,function(x) getOptionChain("NOK",x))