BUG FIX: Future backend factory was created via the calling environment rather than via the namespace environment where it lives

HenrikBengtsson · HenrikBengtsson · commit 42401ed1b6a8 · 2025-07-14T15:38:03.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: future
-Version: 1.58.0-9020
+Version: 1.58.0-9021
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)
diff --git a/NEWS.md b/NEWS.md
@@ -42,6 +42,9 @@
    the future may be `reset()`.
  
  * Calls to `resolved()` were not registered by FutureJournal.
+
+ * Future backend factory was created via the calling environment
+   rather than via the namespace environment where it lives.
  
 
 # Version 1.58.0 [2025-06-05]
diff --git a/R/backend_api-01-FutureBackend-class.R b/R/backend_api-01-FutureBackend-class.R
@@ -278,7 +278,7 @@ makeFutureBackend <- function(evaluator, ..., debug = FALSE) {
     mdebugf("Backend factory arguments: [n=%d]", length(args2))
     mstr(args2)
   }
-  backend <- do.call(factory, args = args)
+  backend <- do.call(factory, args = args, envir = environment(factory))
   if (debug) mdebugf("Backend: <%s>", commaq(class(backend)))
   stop_if_not(inherits(backend, "FutureBackend"))
   

Original file line number	Diff line number	Diff line change
`@@ -278,7 +278,7 @@ makeFutureBackend <- function(evaluator, ..., debug = FALSE) {`
`278`	`278`	`mdebugf("Backend factory arguments: [n=%d]", length(args2))`
`279`	`279`	`mstr(args2)`
`280`	`280`	`}`
`281`		`- backend <- do.call(factory, args = args)`
	`281`	`+ backend <- do.call(factory, args = args, envir = environment(factory))`
`282`	`282`	`if (debug) mdebugf("Backend: <%s>", commaq(class(backend)))`
`283`	`283`	`stop_if_not(inherits(backend, "FutureBackend"))`
`284`	`284`