fix: closes #15

R/ticker.R

@@ -246,162 +246,6 @@ Ticker <- R6::R6Class(
 
     },
 
-    #' @field option_chain Option chain data for all expiration dates for a given symbol
-    option_chain = function() {
-
-      path      <- 'v7/finance/options/'
-      end_point <- paste0(path, self$symbol)
-      url       <- modify_url(url = private$base_url, path = end_point)
-      qlist     <- list(getAllData = 'True', corsDomain = private$cors_domain)
-
-      if (!curl::has_internet()) {
-        message("No internet connection.")
-        return(invisible(NULL))
-      }
-
-      resp      <- GET(url, query = qlist)
-      parsed    <- fromJSON(content(resp, "text", encoding = "UTF-8"),
-                            simplifyVector = FALSE)
-
-      if (http_error(resp)) {
-
-        message(
-          cat(
-            "Yahoo Finance API request failed", '\n',
-            paste('Status:', status_code(resp)), '\n',
-            paste('Type:', http_status(resp)$category), '\n',
-            paste('Mesage:', parsed$quoteSummary$error$code), '\n',
-            paste('Description:', parsed$quoteSummary$error$description, '\n'),
-            sep = ''
-          )
-        )
-
-        return(invisible(NULL))
-      } else {
-
-        data <-
-          parsed %>%
-          use_series(optionChain) %>%
-          use_series(result) %>%
-          extract2(1) %>%
-          use_series(options)
-
-        calls <-
-          data %>%
-          map_dfr('calls')
-
-        calls$option_type <- 'call'
-
-        puts <-
-          data %>%
-          map_dfr('puts')
-
-        puts$option_type <- 'put'
-
-        result <- rbind(calls, puts)
-        names(result) <- str_replace_all(names(result), '[A-Z]', private$snake_case)
-
-        result$expiration <- as_datetime(result$expiration)
-        result$last_trade_date <- as_datetime(result$last_trade_date)
-
-        col_order <- c('expiration', 'option_type', 'contract_symbol', 'strike', 'currency', 'last_price', 'change', 'percent_change', 'open_interest', 'bid', 'ask', 'contract_size', 'last_trade_date', 'implied_volatility', 'in_the_money', 'volume')
-
-        option_chain <- result[, col_order]
-        return(option_chain)
-      }
-
-    },
-
-    #' @field option_expiration_dates Option expiration dates
-    option_expiration_dates = function() {
-
-      path      <- 'v7/finance/options/'
-      end_point <- paste0(path, self$symbol)
-      url       <- modify_url(url = private$base_url, path = end_point)
-      qlist     <- list(getAllData = 'True', corsDomain = private$cors_domain)
-
-      if (!curl::has_internet()) {
-        message("No internet connection.")
-        return(invisible(NULL))
-      }
-
-      resp      <- GET(url, query = qlist)
-      parsed    <- fromJSON(content(resp, "text", encoding = "UTF-8"),
-                            simplifyVector = FALSE)
-
-      if (http_error(resp)) {
-
-        message(
-          cat(
-            "Yahoo Finance API request failed", '\n',
-            paste('Status:', status_code(resp)), '\n',
-            paste('Type:', http_status(resp)$category), '\n',
-            paste('Mesage:', parsed$quoteSummary$error$code), '\n',
-            paste('Description:', parsed$quoteSummary$error$description, '\n'),
-            sep = ''
-          )
-        )
-
-        return(invisible(NULL))
-      } else {
-
-        parsed %>%
-          use_series(optionChain) %>%
-          use_series(result) %>%
-          extract2(1) %>%
-          use_series(expirationDates) %>%
-          map_dbl(extract) %>%
-          as_datetime() %>%
-          date()
-
-      }
-
-    },
-
-    #' @field option_strikes Option strikes
-    option_strikes = function() {
-
-      path      <- 'v7/finance/options/'
-      end_point <- paste0(path, self$symbol)
-      url       <- modify_url(url = private$base_url, path = end_point)
-      qlist     <- list(getAllData = 'True', corsDomain = private$cors_domain)
-
-      if (!curl::has_internet()) {
-        message("No internet connection.")
-        return(invisible(NULL))
-      }
-
-      resp      <- GET(url, query = qlist)
-      parsed    <- fromJSON(content(resp, "text", encoding = "UTF-8"),
-                            simplifyVector = FALSE)
-
-      if (http_error(resp)) {
-
-        message(
-          cat(
-            "Yahoo Finance API request failed", '\n',
-            paste('Status:', status_code(resp)), '\n',
-            paste('Type:', http_status(resp)$category), '\n',
-            paste('Mesage:', parsed$quoteSummary$error$code), '\n',
-            paste('Description:', parsed$quoteSummary$error$description, '\n'),
-            sep = ''
-          )
-        )
-
-        return(invisible(NULL))
-      } else {
-
-        parsed %>%
-          use_series(optionChain) %>%
-          use_series(result) %>%
-          extract2(1) %>%
-          use_series(strikes) %>%
-          map_dbl(extract)
-
-      }
-
-    },
-
     #' @field recommendations Recommended symbols
     recommendations = function() {