R/get_delayed_quote.R

In JestonBlu/IEXTrader: Interface for the IEXtrading.com open API web service

#' Get Delayed Quote from IEXTrader
#'
#' @param ticker (string) single stock ticker
#' @import magrittr curl jsonlite
#' @export
get_delayed_quote <- function(ticker) {

  url <- iextrader_endpoints("delayed_quote")
  url <- gsub("'stock'", ticker, url)

  dta <- iextrader_api(url)
  dta <- fromJSON(dta)

  if (length(dta) == 0) dta <- "Unknown symbol"

  return(dta)
}