R Under development (unstable) (2025-06-05 r88281 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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.

> source("incl/start.R")
Loading required package: parallelly
Loading required package: future
> 
> plan(batchtools_local)
> 
> ## CRAN processing times:
> ## On Windows 32-bit, don't run these tests on batchtools
> if (!fullTest && isWin32) plan(sequential)
> 
> 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 ...
> 
> ## Truth:
> 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()))
> 
> ## Explicit future
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:38:53.711] Launched future #1
> rm(list = "x")
> y <- value(f)
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## Future assignment
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:38:55.521] Launched future #1
> rm(list = "x")
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## 'x' is _not_ a global variable here
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:38:56.847] Launched future #1
> rm(list = "x")
> print(y)
$b
[1] 2

$a
[1] 1

> stopifnot(identical(y, list(b = 2, a = 1)))
> 
> ## Explicit future
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:38:58.143] Launched future #1
> rm(list = "x")
> y <- value(f)
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## Future assignment
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:38:59.882] Launched future #1
> rm(list = "x")
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## Explicit future
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:39:01.424] Launched future #1
> rm(list = "x")
> y <- value(f)
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## Future assignment
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:39:03.381] Launched future #1
> rm(list = "x")
> print(y)
$a
[1] 1

> stopifnot(identical(y, y0))
> 
> ## Future assignment
> 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'
Warning in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
  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, globals = globals) :
  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'
[04:39:04.818] Launched future #1
> 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
> 
> source("incl/end.R")
> 
> proc.time()
   user  system elapsed 
   2.35    0.54   14.50