Merge pull request #93 from ropensci-review-tools/quiet

only use pbapply bar and issue msgs in explicit verbose mode

Author: mpadge

R/data-pkgstats.R

@@ -80,10 +80,17 @@ extract_pkgstats_data_single <- function (log, path) {
         clean_after <- TRUE
     }
 
-    res <- pbapply::pblapply (seq_len (nrow (log)), function (i) {
-        flist <- reset_repo (path_cp, log$hash [i]) # nolint
-        run_one_pkgstats (path = path_cp, pkg_date = log$timestamp [i])
-    })
+    if (is_verbose ()) {
+        res <- pbapply::pblapply (seq_len (nrow (log)), function (i) {
+            flist <- reset_repo (path_cp, log$hash [i]) # nolint
+            run_one_pkgstats (path = path_cp, pkg_date = log$timestamp [i])
+        })
+    } else {
+        res <- lapply (seq_len (nrow (log)), function (i) {
+            flist <- reset_repo (path_cp, log$hash [i]) # nolint
+            run_one_pkgstats (path = path_cp, pkg_date = log$timestamp [i])
+        })
+    }
 
     if (clean_after) {
         fs::dir_delete (path_cp)
@@ -100,6 +107,9 @@ extract_pkgstats_data_multi <- function (log, path, num_cores) {
         c ("log", "path", "run_one_pkgstats"),
         envir = environment ()
     )
+    if (!is_verbose ()) {
+        opb <- pbapply::pboptions (type = "none")
+    }
     res <- pbapply::pblapply (seq_len (nrow (log)), function (i) {
         path_cp <- fs::dir_copy (path, fs::path_temp ())
         flist <- reset_repo (path_cp, log$hash [i]) # nolint
@@ -109,6 +119,10 @@ extract_pkgstats_data_multi <- function (log, path, num_cores) {
     }, cl = cl)
     parallel::stopCluster (cl)
 
+    if (!is_verbose ()) {
+        pbapply::pboptions (opb)
+    }
+
     return (res)
 
     return (res)

R/data-repo.R

@@ -12,19 +12,27 @@
 #' @export
 repometrics_data_repo <- function (path, step_days = 1L, num_cores = -1L) {
 
-    cli::cli_alert_info ("Extracting package statistics ...")
+    if (is_verbose ()) {
+        cli::cli_alert_info ("Extracting package statistics ...")
+    }
     pkgstats <- repo_pkgstats_history (
         path,
         step_days = step_days,
         num_cores = num_cores
     )
-    cli::cli_alert_success ("Done!")
+    if (is_verbose ()) {
+        cli::cli_alert_success ("Done!")
+    }
 
-    cli::cli_alert_info ("Extracting GitHub data ...")
+    if (is_verbose ()) {
+        cli::cli_alert_info ("Extracting GitHub data ...")
+    }
     rm <- rm_data_repo (path)
     rm$contributors <-
         get_all_contribs (rm$contribs_from_log, rm$contribs_from_gh_api)
-    cli::cli_alert_success ("Done!")
+    if (is_verbose ()) {
+        cli::cli_alert_success ("Done!")
+    }
 
     list (pkgstats = pkgstats, rm = rm)
 }
@@ -64,7 +72,7 @@ rm_data_repo <- function (path) {
 
     data_fns <- get_rm_data_fns ()
 
-    if (all_rm_data_fns_memoised (data_fns, path)) {
+    if (all_rm_data_fns_memoised (data_fns, path) || !is_verbose ()) {
         res <- lapply (data_fns, function (i) {
             do.call (i, list (path = path))
         })