BUG FIX: registerDoFuture() would return an invalid 'DoPar' object if there was no %dopar% registered

Author: HenrikBengtsson

DESCRIPTION

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

NAMESPACE

@@ -9,6 +9,7 @@ importFrom(foreach,getErrorIndex)
 importFrom(foreach,getErrorValue)
 importFrom(foreach,getResult)
 importFrom(foreach,makeAccum)
+importFrom(foreach,registerDoSEQ)
 importFrom(foreach,setDoPar)
 importFrom(future,Future)
 importFrom(future,FutureError)

NEWS.md

@@ -1,4 +1,4 @@
-# Version 1.0.2-9022 (2025-05-19)
+# Version 1.0.2-9026 (2025-05-19)
 
 ## New Features
 
@@ -26,6 +26,12 @@
    you to effectively make that the same as `foreach(...)  %dofuture%
    { ... }`.
 
+## Bug Fixes
+
+ * `registerDoFuture()` would return an invalid `DoPar` object if
+   there was no `%dopar%` registered. Now it returns an `DoPar` object
+   as if `foreach::registerDoSEQ()` had been called before.
+
 
 # Version 1.0.2 (2025-03-15)
 

R/registerDoFuture.R

@@ -241,20 +241,23 @@ registerDoFuture <- function(flavor = c("%dopar%", "%dofuture%")) {  #nolint
 }
 
 
+#' @importFrom foreach registerDoSEQ
 .getDoPar <- function() {
   ns <- getNamespace("foreach")
   .foreachGlobals <- get(".foreachGlobals", envir = ns)
   if (exists("fun", envir = .foreachGlobals, inherits = FALSE)) {
-    structure(list(
+    res <- structure(list(
       fun  = .foreachGlobals$fun,
-      data = .foreachGlobals$data, 
+      data = .foreachGlobals$data,
       info = .foreachGlobals$info
     ), class = "DoPar")
+    if (is.null(res[["info"]])) res[["info"]] <- NULL
   } else {
-    structure(list(
+    res <- structure(list(
       fun  = get("doSEQ", mode = "function", envir = ns),
       data = NULL,
-      info = NULL
+      info = environment(registerDoSEQ)[["info"]]
     ), class = c("DoPar", "DoSeq"))
   }
+  res
 }

R/with.DoPar.R

@@ -27,13 +27,10 @@ with.DoPar <- function(data, expr, ..., local = FALSE, envir = parent.frame()) {
   ## It won't work with doParallel::registerDoParallel(), because it does not
   ## return the previous adapter. Only registerDoFuture() does that.
   oldDoPar <- data
+  
 
   undoDoPar <- function() {
-    setDoPar(
-       fun = oldDoPar[["fun"]],
-      data = oldDoPar[["data"]],
-      info = oldDoPar[["info"]]
-    )
+    do.call(setDoPar, args = oldDoPar)
   }
 
   if (local) {

inst/WORDLIST

@@ -1,60 +1,92 @@
+Adaptor
 AppVeyor
-batchtools
+BatchJobs
+Bengtsson
 BiocParallel
 CMD
-doMC
-doMPI
-doNnn
-dopar
-doParallel
-doSNOW
-foreach
+CMRG
+Ctrl
+DoParam
+DoparParam
 Foreach
-globals
 HPC
-macOS
-multiprocess
-multisession
-plyr
-pre
+L'Ecuyer
+NMF
+NSP
+ORCID
 Pre
+RJ
+RngFutureError
 SGE
 Slurm
+VignetteAuthor
+VignetteEngine
+VignetteIndexEntry
+VignetteKeyword
+VignetteTangle
+Vorobiev
 abc
 adaptor
-Adaptor
 batchjobs
-BatchJobs
-Bengtsson
+batchtools
 bioc
 bioconductor
 bplapply
 callr
 cran
 doFuture
-dontrun
-DoparParam
+doMC
+doMPI
+doNnn
+doParallel
+doRNG
 doRedis
+doSNOW
+dofuture
+doi
+dontrun
+dopar
 dorng
-doRNG
 expr
+fcn
+foreach
 frontends
+furrr
+futureverse
 getDoParName
 getDoParVersion
 getDoParWorkers
 glmnet
+globals
 hardcoded
 href
 https
+kB
+lapply
 llply
+lt
+macOS
 makeCluster
 maxSize
+md
+mtcars
+multiprocess
+multisession
 nbr
-NMF
+noexport
 nullexport
 num
+onMisuse
+parallelization
+parallelize
+parallelizes
+plyr
+pre
+pregenerating
 preschedule
 probs
+progressor
+progressr
 registerDoFuture
 registerDoMC
 registerDoMPI
@@ -63,6 +95,7 @@ registerDoRedis
 registerDoSEQ
 registerDoSNOW
 reproducibility
+rng
 rnorm
 rsp
 sd
@@ -75,35 +108,3 @@ str
 td
 th
 unlist
-VignetteAuthor
-VignetteEngine
-VignetteIndexEntry
-VignetteKeyword
-VignetteTangle
-Vorobiev
-noexport
-mtcars
-onMisuse
-rng
-DoParam
-RngFutureError
-md
-CMRG
-dofuture
-furrr
-kB
-NSP
-parallelization
-parallelize
-parallelizes
-pregenerating
-L'Ecuyer
-fcn
-lapply
-lt
-futureverse
-doi
-ORCID
-progressor
-progressr
-RJ