Adapt crypto_history() function to accept modified lists as input for…

… the coin retrieval e.g. gathered using a custom version of rypto_list().

R/crypto_history.R

@@ -6,7 +6,8 @@
 #' analysis on the crypto financial markets or to attempt
 #' to predict future market movements or trends.
 #'
-#' @param coin string Name, symbol or slug of crypto currency, default is all tokens
+#' @param coins string if NULL retrieve all currently existing coins (crypto_list()),
+#' or provide list of crypto currencies in the crypto_list() format (e.g. current and dead coins since 2015)
 #' @param limit integer Return the top n records, default is all tokens
 #' @param start_date string Start date to retrieve data from, format 'yyyymmdd'
 #' @param end_date string End date to retrieve data from, format 'yyyymmdd'
@@ -55,7 +56,7 @@
 #'
 #' @export
 #'
-crypto_history <- function(coin = NULL, limit = NULL, start_date = NULL, end_date = NULL,
+crypto_history <- function(coins = NULL, limit = NULL, start_date = NULL, end_date = NULL,
   coin_list = NULL, sleep = NULL) {
   pink <- crayon::make_style(grDevices::rgb(0.93, 0.19, 0.65))
   options(scipen = 999)
@@ -70,8 +71,8 @@ crypto_history <- function(coin = NULL, limit = NULL, start_date = NULL, end_dat
   message("ERC-20: 0x375923Bf82F0b728d23A5704261a6e16341fd860", appendLF = TRUE)
   message("XRP: rK59semLsuJZEWftxBFhWuNE6uhznjz2bK", appendLF = TRUE)
   message("\n")
-  # only if no coin_list is provided
-  if (is.null(coin_list)) coins <- crypto_list(coin, start_date, end_date, coin_list)
+  # only if no coins are provided
+  if (is.null(coins)) coins <- crypto_list(coin, start_date, end_date, coin_list)
 
   if (!is.null(limit))
     coins <- coins[1:limit, ]

R/crypto_list.R

@@ -36,7 +36,7 @@
 #' coin_list <- crypto_list()
 #'
 #' # return all coins listed in 2015
-#' coins_list_2015 <- crypto_list(start_date_hist="20150101",end_date_hist="20151231",date_gap="months")
+#' coin_list_2015 <- crypto_list(start_date_hist="20150101",end_date_hist="20151231",date_gap="months")
 #'
 #' }
 #'