FIX: Failed to detect 'R CMD check' on win-builder causing examples to run with default progressr.demo.delay=1.0 (seconds)

Author: HenrikBengtsson

R/handlers.R

@@ -32,7 +32,7 @@ handlers <- function(..., append = FALSE, on_missing = c("error", "warning", "ig
 
   ## Get the current set of progression handlers?
   if (length(args) == 0L) {
-    if (!is.list(default)) default <- list(default)
+    if (!is.list(default) && !is.null(default)) default <- list(default)
     return(getOption("progressr.handlers", default))
   }
 

R/utils.R

@@ -120,6 +120,7 @@ query_r_cmd_check <- function(...) {
 
   # Command line arguments
   args <- commandArgs()
+
   evidences[["vanilla"]] <- is.element("--vanilla", args)
 
   # Check the working directory
@@ -130,15 +131,28 @@ query_r_cmd_check <- function(...) {
 
   # Is 'R CMD check' checking tests?
   evidences[["tests"]] <- (
-    (regexpr(pattern, parent) != -1) && 
-    (regexpr("^tests(|_.*)$", dirname) != -1)
+    grepl(pattern, parent) && grepl("^tests(|_.*)$", dirname)
   )
 
   # Is the current working directory as expected?
-  evidences[["pwd"]] <- (evidences[["tests"]] || (regexpr(pattern, dirname) != -1))
+  evidences[["pwd"]] <- (evidences[["tests"]] || grepl(pattern, dirname))
 
   # Is 'R CMD check' checking examples?
   evidences[["examples"]] <- is.element("CheckExEnv", search())
+  
+  # SPECIAL: win-builder?
+  evidences[["win-builder"]] <- (.Platform$OS.type == "windows" && grepl("Rterm[.]exe$", args[1]))
+
+  if (evidences[["win-builder"]]) {
+    n <- length(args)
+    if (all(c("--no-save", "--no-restore", "--no-site-file", "--no-init-file") %in% args)) {
+      evidences[["vanilla"]] <- TRUE
+    }
+
+    if (grepl(pattern, parent)) {
+      evidences[["pwd"]] <- TRUE
+    }
+  }
 
 
   if (!evidences$vanilla || !evidences$pwd) {
@@ -151,6 +165,8 @@ query_r_cmd_check <- function(...) {
     res <- "notRunning"
   }
 
+  attr(res, "evidences") <- evidences
+  
   res
 }
 

R/zzz.R

@@ -1,7 +1,5 @@
 .onLoad <- function(libname, pkgname) {
   if (in_r_cmd_check()) {
-    msg <- sprintf("%s:::.onLoad(): Detected 'R CMD check'", pkgname)
-    packageStartupMessage(msg)
     options(progressr.demo.delay = 0.0)
   }
-}
+}

incl/debug_handler.R

@@ -1,8 +1,3 @@
-res <- progressr:::query_r_cmd_check()
-print(res)
-str(res)
-print(getOption("progressr.demo.delay", NA_real_))
-
 handlers("debug")
 with_progress({ y <- slow_sum(1:10) })
 print(y)