R/get_symbols.R

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

#' Get all stock symbols from IEXTrader
#'
#' @import magrittr curl jsonlite
#' @export
get_symbols = function() {

  url <- iextrader_endpoints("symbols")

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

  dta <- dta[-grep("#", dta$symbol), ]

  return(dta)
}