R/crypto_exchanges.R

In threadingdata/finnhubr: Integration with Finnhub.io API

#' @title Cryptocurrency Exchanges
#' @description Get cryptocurrency exchanges
#'   
#' @importFrom tibble tibble
#' 
#' @return
#' @export
#' 
#' @examples
#' crypto_exchanges()
crypto_exchanges <- function(...){
  
  url <- finnhub_endpoint('crypto_exchanges')
  
  df <- retry_get(url, 
                  query = list(token = finnhub_key())
  )
  df %>% 
    tibble::tibble(crypto_exchange = .)
}