fix int_pctl() and future.globals = NULL bug (#1100)

EmilHvitfeldt · hfrick · web-flow · commit 37e2ec39d79c · 2025-10-08T08:36:50.000-07:00
Co-authored-by: Hannah Frick &lt;hfrick@users.noreply.github.com&gt;
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # tune (development version)
 
+* Fixed a bug where `int_pctl()` wouldn't work on `last_fit()` outcomes when future parallelism was enabled. (#1099) 
+
 # tune 2.0.0
 
 ## Changes to `tune_grid()`. 
diff --git a/R/parallel.R b/R/parallel.R
@@ -449,9 +449,11 @@ pctl_call <- function(framework, args = list()) {
     future_opts <- list(
       future.label = "int-pctl-%d",
       future.stdout = TRUE,
-      future.seed = TRUE,
-      future.globals = names(args)
+      future.seed = TRUE
     )
+    if (!is.null(names(args))) {
+      future_opts$future.globals <- names(args)
+    }
     args <- c(args, future_opts)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -449,9 +449,11 @@ pctl_call <- function(framework, args = list()) {`
`449`	`449`	`future_opts <- list(`
`450`	`450`	`future.label = "int-pctl-%d",`
`451`	`451`	`future.stdout = TRUE,`
`452`		`- future.seed = TRUE,`
`453`		`- future.globals = names(args)`
	`452`	`+ future.seed = TRUE`
`454`	`453`	`)`
	`454`	`+ if (!is.null(names(args))) {`
	`455`	`+ future_opts$future.globals <- names(args)`
	`456`	`+ }`
`455`	`457`	`args <- c(args, future_opts)`
`456`	`458`	`}`
`457`	`459`