R/get_bitcoin_price.R

In ozkrleal/first-r-package: Demo R package for the Mastering R class

#' Gets the most recent bitcoin price in USD from Binance API
#'
#' This is a wrapper around a \code{library(daroczig/binancer)} function \code{binance_coins_prices}
#' @export
#' @param symbol the desired symbol to check on Binance. Default is BTC.
#' @param retried the number of retries previously done before the exponential backoff sleep
#' @importFrom binancer binance_coins_prices
get_bitcoin_price <- function(retried = 0, symbol = 'BTC') {
  tryCatch(
    return(subset(binance_coins_prices(), symbol)$usd),
    error = function(e) {
      ## exponential backoff retries
      Sys.sleep(1 + retried)
      get_bitcoin_price(retried = retried + 1)
    })
}