diff --git a/R/getOptionChain.R b/R/getOptionChain.R index e83fa834..60ed2e32 100644 --- a/R/getOptionChain.R +++ b/R/getOptionChain.R @@ -22,8 +22,8 @@ getOptionChain.yahoo <- function(Symbols, Exp, ...) d <- with(x, data.frame(Strike=strike, Last=lastprice, Chg=change, - Bid=bid, - Ask=ask, + Bid= if("bid" %in% names(x)) {bid} else {NA}, + Ask= if("ask" %in% names(x)) {ask} else {NA}, Vol= if("volume" %in% names(x)) {volume} else {NA}, OI= if("openinterest" %in% names(x)) {openinterest} else {NA}, row.names=contractsymbol, stringsAsFactors=FALSE))