R/public_asset_list.R

In cstjohn810/cryptoapi: API Wrapper for Multiple Cryptocurrency Exchanges

#' GET asset list for each exchange
#'
#' @param exchange Which exchange to use for list and market data. Choices are "binance", "binance-us", "bitstamp", "bittrex", "coinbase",
#'        "coinbase-pro", "crypto.com", "ftx", "ftx-us", "gemini", "huobi", "kraken", "kucoin", and "poloniex".
#' @param dry_run If TRUE, call httr2::req_dry_run, which shows the API call without actually sending it.
#' @param ... Query parameters passed to API call
#'
#' @return
#' @export
#'
#' @examples public_asset_list("binance")
#' public_asset_list("binance-us")
#' public_asset_list("bitstamp")
#' public_asset_list("bittrex")
#' public_asset_list("coinbase")
#' public_asset_list("coinbase-pro")
#' public_asset_list("crypto.com")
#' public_asset_list("ftx")
#' public_asset_list("ftx-us")
#' public_asset_list("gemini")
#' public_asset_list("huobi")
#' public_asset_list("kraken")
#' public_asset_list("kucoin")
#' public_asset_list("poloniex")
public_asset_list <- function(exchange, dry_run = FALSE, ...) {

  exchange <- tolower(exchange)

  base_url <- get_base_url(exchange)

  path_append <- get_path_append(exchange, "public_asset_list")

  query_params <- get_query_params(exchange, "public_asset_list")

  resp <- get_api_response(base_url, path_append, query_params, dry_run)

  if(dry_run == TRUE) {
    resp
  } else {
    get_tidy_resp(exchange, "public_asset_list", base_asset, quote_asset, resp)
  }

}