BUG FIX: Globals found to be non-resolved futures were not automatically resolved with options(future.globals.resolve = TRUE)

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.69.0-9019
+Version: 1.69.0-9020
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)

NEWS.md

@@ -16,12 +16,16 @@
 
 ## Bug Fixes
 
+ * The search for globals would not fall back to the "ordered"
+   algorithm as intended when "deep-first-search" failed.
+   
+ * Globals found to be non-resolved futures were not automatically
+   resolved with `options(future.globals.resolve = TRUE)`.
+ 
  * Cancellation of 'multisession' futures could produce a warning on
    "In .Internal(gc(verbose, reset, full)) : closing unused connection
    3 (<-localhost:11825)".
-   
- * The search for globals would not fall back to the "ordered"
-   algorithm as intended when "deep-first-search" failed.
+
 
 
 # Version 1.69.0 [2026-01-15]

R/protected_api-globals.R

@@ -315,15 +315,21 @@ getGlobalsAndPackages <- function(expr, envir = parent.frame(), tweak = tweakExp
     globals <- as.FutureGlobals(globals)
 
     ## Unless already resolved, perform a shallow resolve
-    if (attr(globals, "resolved", exact = TRUE)) {
-      idxs <- which(unlist(lapply(globals, FUN = inherits, "Future"), use.names = FALSE))
-      if (debug) mdebugf("Number of global futures: %d", length(idxs))
+    if (!attr(globals, "resolved", exact = TRUE)) {
+      idxs <- which(unlist(lapply(globals, FUN = function(g) {
+        inherits(g, "Future") && !inherits(g, "ConstantFuture")
+      }), use.names = FALSE))
+      if (debug) mdebugf("Number of non-constant global futures: %d", length(idxs))
 
       ## Nothing to do?
       if (length(idxs) > 0) {
-        if (debug) mdebugf("Global futures (not constant): %s", commaq(names(globals[idxs])))
-        valuesF <- value(globals[idxs])
-        globals[idxs] <- lapply(valuesF, FUN = ConstantFuture)
+        gnames <- names(globals)[idxs]
+        if (debug) mdebugf("Global futures (not constant): %s", commaq(gnames))
+        ## FIXME: value(globals[gnames]) fails because of
+        ## https://github.com/futureverse/globals/issues/101
+        gvalues <- lapply(globals[gnames], FUN = value)
+        gvalues <- lapply(gvalues, FUN = ConstantFuture)
+        globals[gnames] <- gvalues
       }
     }