R/iextrader_api.R

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

#' Base API function for pulling from IEXTrader
#'
#' @param url url fed from iextrader_endpoints
#' @import magrittr curl jsonlite
#' @export
iextrader_api <- function(url) {

  dta <- new_handle() %>%
    handle_setheaders("Accept" = "application/json") %>%
    handle_setopt(http_version = 2) %>%
    curl_fetch_memory(url = url)

  dta <- dta$content %>% rawToChar

  return(dta)
}