Don't delay relaying in non-interactive mode

Author: HenrikBengtsson

DESCRIPTION

@@ -16,6 +16,7 @@ Suggests:
     pbmcapply,
     plyr,
     progress,
+    future,
     doFuture,
     future.apply,
     furrr

R/with_progress.R

@@ -20,7 +20,7 @@
 #' @example incl/with_progress.R
 #'
 #' @export
-with_progress <- function(expr, handlers = getOption("progressr.handlers", txtprogressbar_handler()), cleanup = TRUE, delay_stdout = TRUE, delay_conditions = c("condition")) {
+with_progress <- function(expr, handlers = getOption("progressr.handlers", txtprogressbar_handler()), cleanup = TRUE, delay_stdout = getOption("progressr.delay_stdout", interactive()), delay_conditions = getOption("progressr.delay_conditions", if (interactive()) c("condition") else character(0L))) {
   stop_if_not(is.logical(cleanup), length(cleanup) == 1L, !is.na(cleanup))
 
   ## FIXME: With zero handlers, progression conditions will be
@@ -99,7 +99,7 @@ with_progress <- function(expr, handlers = getOption("progressr.handlers", txtpr
         }
       }, add = TRUE)
     }
-  }
+  } ## if (delay_stdout || length(delay_conditions) > 0)
 
   ## Reset all handlers up start
   withCallingHandlers({

man/with_progress.Rd

@@ -4,6 +4,7 @@ options(progressr.interval = 0.0, delay = 0.01)
 if (requireNamespace("doFuture", quietly = TRUE)) {
   library("doFuture", character.only = TRUE)
   registerDoFuture()
+  future::plan("multiprocess")
   with_progress({
     p <- progressor(4)
     y <- foreach(n = 3:6) %dopar% {

tests/zzz,doFuture.R

@@ -2,6 +2,7 @@ library(progressr)
 options(progressr.interval = 0.0, delay = 0.1)
 
 if (requireNamespace("furrr", quietly = TRUE)) {
+  future::plan("multiprocess")
   with_progress({
     p <- progressor(4)
     y <- furrr::future_map(3:6, function(n) {

tests/zzz,furrr.R

@@ -1,7 +1,9 @@
 library(progressr)
-options(progressr.interval = 0.0, delay = 0.01)
+options(progressr.interval = 0.0, delay = 0.1)
+options(progressr.enable = TRUE)
 
 if (requireNamespace("future.apply", quietly = TRUE)) {
+  future::plan("multiprocess")
   with_progress({
     p <- progressor(4)
     y <- future.apply::future_lapply(3:6, function(n) {