Future expression are now evaluated in the global environment, regardless of backend

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.34.0-9112
+Version: 1.34.0-9113
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Imports:
     digest,

R/expressions.R

@@ -507,7 +507,7 @@ evalFuture <- function(
   ## a tryCatch() statement. /HB 2016-03-14
   ...future.result <- tryCatch({
     withCallingHandlers({
-      ...future.value <- withVisible(eval(expr, envir = envir))
+      ...future.value <- withVisible(eval(expr, envir = globalenv()))
       FutureResult(
         value = ...future.value$value,
         visible = ...future.value$visible,

tests/globals,manual.R

@@ -271,7 +271,8 @@ for (strategy in supportedStrategies()) {
   sub <- function(x, ...) value(future(x[...], globals = "x"))
   y <- tryCatch(sub(x, 2:3), error = identity)
   str(y)
-  stopifnot((strategy %in% c("multisession") && inherits(y, "error")) || identical(y, y_truth))
+  str(strategy)
+  stopifnot(inherits(y, "error"))
 
 
   message("- Packages - manual ...")