Some enviroments might be locked

HenrikBengtsson · HenrikBengtsson · commit 2a59fa99fff0 · 2025-02-08T00:03:07.000-08:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: future
-Version: 1.34.0-9111
+Version: 1.34.0-9112
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Imports:
     digest,
diff --git a/R/expressions.R b/R/expressions.R
@@ -464,8 +464,11 @@ evalFuture <- function(
       for (name in names) {
         if (exists(name, envir = env, inherits = FALSE)) {
           value <- get(name, envir = env, inherits = FALSE)
-          assign(name, value = value, envir = oldEnv, inherits = FALSE)
-          rm(list = name, envir = env, inherits = FALSE)
+          ## Environment might be locked
+          tryCatch({
+            rm(list = name, envir = env, inherits = FALSE)
+            assign(name, value = value, envir = oldEnv, inherits = FALSE)
+          }, error = identity)
         }
       }
       envs <- c(envs, env)

Original file line number	Diff line number	Diff line change
`@@ -464,8 +464,11 @@ evalFuture <- function(`
`464`	`464`	`for (name in names) {`
`465`	`465`	`if (exists(name, envir = env, inherits = FALSE)) {`
`466`	`466`	`value <- get(name, envir = env, inherits = FALSE)`
`467`		`- assign(name, value = value, envir = oldEnv, inherits = FALSE)`
`468`		`- rm(list = name, envir = env, inherits = FALSE)`
	`467`	`+ ## Environment might be locked`
	`468`	`+ tryCatch({`
	`469`	`+ rm(list = name, envir = env, inherits = FALSE)`
	`470`	`+ assign(name, value = value, envir = oldEnv, inherits = FALSE)`
	`471`	`+ }, error = identity)`
`469`	`472`	`}`
`470`	`473`	`}`
`471`	`474`	`envs <- c(envs, env)`