R version 4.6.0 RC (2026-04-22 r89945 ucrt) -- "Because it was There"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> #! /usr/bin/env Rscript
> ## This runs testme test script inst/testme/test-globals,subassignment.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> future.batchtools:::testme("globals,subassignment")
Test 'globals,subassignment' ...
 chr "none"

> library(future)

> plan(future.batchtools::batchtools_local)

> oopts <- c(oopts, options(future.globals.resolve = TRUE, 
+     future.globals.onMissing = "error"))

> message("*** Globals - subassignments ...")
*** Globals - subassignments ...

> message("*** Globals - subassignments w/ x$a <- value ...")
*** Globals - subassignments w/ x$a <- value ...

> x <- x0 <- list()

> y0 <- list(a = 1)

> str(list(x = x, y0 = y0))
List of 2
 $ x : list()
 $ y0:List of 1
  ..$ a: num 1

> y <- local({
+     x$a <- 1
+     x
+ })

> stopifnot(identical(y, y0))

> y <- local({
+     x[["a"]] <- 1
+     x
+ })

> stopifnot(identical(y, y0))

> y <- local({
+     x["a"] <- list(1)
+     x
+ })

> stopifnot(identical(y, y0))

> stopifnot(identical(x, list()))

> x <- list()

> f <- future({
+     x$a <- 1
+     x
+ })
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> y <- value(f)

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> y %<-% {
+     x$a <- 1
+     x
+ }
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> y %<-% {
+     x <- list(b = 2)
+     x$a <- 1
+     x
+ }
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> print(y)
$b
[1] 2

$a
[1] 1


> stopifnot(identical(y, list(b = 2, a = 1)))

> x <- list()

> f <- future({
+     x[["a"]] <- 1
+     x
+ })
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> y <- value(f)

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> y %<-% {
+     x[["a"]] <- 1
+     x
+ }
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> f <- future({
+     x["a"] <- list(1)
+     x
+ })
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> y <- value(f)

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> y %<-% {
+     x["a"] <- list(1)
+     x
+ }
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = "x")

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> x <- list()

> name <- "a"

> y %<-% {
+     x[name] <- list(1)
+     x
+ }
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.resolve' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'TRUE'
Warning in getGlobalsAndPackages(expr, envir = envir, tweak = tweakExpression,  :
  R option 'future.globals.onMissing' may only be used for troubleshooting. It must not be used in production since it changes how futures are evaluated and there is a great risk that the results cannot be reproduced elsewhere: 'error'

> rm(list = c("x", "name"))

> print(y)
$a
[1] 1


> stopifnot(identical(y, y0))

> message("*** Globals - subassignments w/ x$a <- value ... DONE")
*** Globals - subassignments w/ x$a <- value ... DONE

> message("*** Globals - subassignments ... DONE")
*** Globals - subassignments ... DONE
Failed to undo environment variables:
 - Expected environment variables: [n=220] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', ..., 'tempdirname'
 - Environment variables still there: [n=0] 
 - Environment variables missing: [n=1] 'MAKEFLAGS'
Differences environment variable by environment variable:
Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2026_04_25_00_50_17_18966'
Test time: user.self=1s, sys.self=0.2s, elapsed=8s, user.child=NAs, sys.child=NAs
Test 'tempdirname' ... success
> 
> proc.time()
   user  system elapsed 
   1.84    0.31    8.60