Add quiet arg to cran_check_results()

Closes #17.
r-lib · May 7, 2019 · f46c55f · f46c55f
1 parent f23d138
commit f46c55f
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,9 @@
 
 # dev
 
+* `cran_check_results()` has now a `quiet` argument, and the download
+  progress bars are shown if it is set to `FALSE` (#17).
+
 * Fix output when standard output does not support `\r`, typically when
   it is not a terminal (#94).
 

diff --git a/R/cran.R b/R/cran.R
@@ -65,12 +65,14 @@ cran_check_flavours_generic <- function() {
 #' @param package Name of a single package to download the checks for.
 #' @param flavours CRAN check flavours to use. Defaults to all
 #'   flavours that were used to check the package.
+#' @param quiet Whether to omit the download progress bars.
 #' @return A list of `rcmdcheck` objects.
 #'
 #' @export
 
 cran_check_results <- function(package,
-                               flavours = cran_check_flavours(package)) {
+                               flavours = cran_check_flavours(package),
+                               quiet = TRUE) {
 
   stopifnot(is_string(package))
 
@@ -81,7 +83,7 @@ cran_check_results <- function(package,
   )
 
   structure(
-    lapply(urls, parse_check_url),
+    lapply(urls, parse_check_url, quiet = quiet),
     names = flavours,
     package = package,
     class = "rmcdcheck_cran_results"

diff --git a/man/cran_check_results.Rd b/man/cran_check_results.Rd