R/get_company.R

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

#' Get Company Info from IEXTrader
#'
#' @param ticker (string) single stock ticker
#' @import magrittr curl jsonlite
#' @export
get_company <- function(ticker) {

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

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

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

  return(dta)
}