with() for DoPar not reflect visibility of the expression evaluated

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: doFuture
-Version: 1.1.3-9002
+Version: 1.1.3-9003
 Title: Use Foreach to Parallelize via the Future Framework
 Depends:
     foreach (>= 1.5.0),

NEWS.md

@@ -2,7 +2,8 @@
 
 ## Significant Changes
 
- * `with(..., local = FALSE)` for `DoPar` no longer returns invisibly.
+ * `with(..., expr, local = FALSE)` for `DoPar` now returns invisibly
+   if `expr` does so, otherwise not.
 
 
 # Version 1.1.3 (2025-12-08)

R/with.DoPar.R

@@ -41,6 +41,7 @@ with.DoPar <- function(data, expr, ..., local = FALSE, envir = parent.frame()) {
     invisible(NULL)
   } else {
     on.exit(undoDoPar())
-    eval(expr, envir = envir, enclos = baseenv())
+    res <- withVisible(eval(expr, envir = envir, enclos = baseenv()))
+    if (res[["visible"]]) res[["value"]] else invisible(res[["value"]])
   }
 }