R/country_list.R

In threadingdata/finnhubr: Integration with Finnhub.io API

#' @title Country List
#' @description Get country list for economic data endpoint
#'  
#' @importFrom tibble as_tibble
#' @importFrom purrr set_names
#' @return
#' @export
#' 
#' @examples
#' country_list()
country_list <- function(...){
  
  url <- finnhub_endpoint('country_list')
  
  df <- retry_get(url,
                  query = list(token = finnhub_key())) 
  
  df %>% 
    tibble::as_tibble() %>% 
    purrr::set_names(c('code_2', 'code_3', 'code_num', 'country', 
                       'currency', 'currency_code'))
}