R/get_bitcoin_price.R

In Deborah-Jia/m_r_skills: Demo R package for the Mastering R skills class

#' Get the bitcoin price in US dollars
#' @return number
#' @export
#' @import data.table
#' @importFrom binancer binance_coins_prices
#' @importFrom scales dollar
#' @importFrom logger log_info
#' @examples
#' get_bitcoin_price()

get_bitcoin_price <- function() {
  btcusd <- binance_coins_prices()[symbol == 'BTC', usd]
  log_info("1 bitcoin is worth {dollar(btcusd)}")
  return(btcusd)
}