R/forex_exchanges.R

In threadingdata/finnhubr: Integration with Finnhub.io API

#' @title ETF Country Exposure
#' 
#' @description Get exchange traded country exposure
#'
#'@importFrom tibble tibble
#'
#' @return
#' @export
#' 
#' @examples
#' forex_exchanges()
forex_exchanges <- function(...){
  
  url <- finnhub_endpoint('forex_exchanges')
  
  df <- retry_get(url, 
                  query = list(token = finnhub_key())
  )
  df %>% 
    tibble::tibble(forex_exchange = .)
}