Allow guestimate of download progress (#56)

TIBHannover · Sep 30, 2018 · 6534e7a · 6534e7a
1 parent 4aa7b6e
commit 6534e7a
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/util-aggregate_datasets.R b/R/util-aggregate_datasets.R
@@ -10,7 +10,13 @@ aggregate_datasets <- function(payload, from_IDs = FALSE) {
     IDs <- URLs_to_IDs(URLs)
   }
 
-  message("Downloading BacDive IDs: ", appendLF = FALSE)
+  message(paste0(
+    "Downloading BacDive IDs (",
+    min(as.integer(IDs)),
+    " to ",
+    max(as.integer(IDs)),
+    ", but not necessarily contiguous): "
+  ))
   taxon_data <-
     purrr::map(.x = purrr::map(.x = URLs, .f = download), jsonlite::fromJSON)
   names(taxon_data) <- IDs