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
> 
> options(future.debug = FALSE)
> 
> message("*** RNG ...")
*** RNG ...
> 
> plan(batchtools_local)
> 
> message("- run() does not update RNG state")
- run() does not update RNG state
> 
> f1 <- future(1, lazy = TRUE)
> f2 <- future(2, lazy = TRUE)
> 
> rng0 <- globalenv()$.Random.seed
> 
> f1 <- run(f1)
[04:39:33.555] Launched future #1
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> f2 <- run(f2)
[04:39:35.430] Launched future #1
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> v1 <- value(f1)
> stopifnot(identical(v1, 1))
> 
> v2 <- value(f2)
> stopifnot(identical(v2, 2))
> 
> 
> message("- future() does not update RNG state")
- future() does not update RNG state
> 
> rng0 <- globalenv()$.Random.seed
> 
> f1 <- future(1)
[04:39:36.759] Launched future #1
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> f2 <- future(2)
[04:39:38.634] Launched future #1
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> v1 <- value(f1)
> stopifnot(identical(v1, 1))
> 
> v2 <- value(f2)
> stopifnot(identical(v2, 2))
> 
> 
> message("- resolved() does not update RNG state")
- resolved() does not update RNG state
> 
> f1 <- future(1)
[04:39:39.867] Launched future #1
> f2 <- future(2)
[04:39:41.225] Launched future #1
> 
> rng0 <- globalenv()$.Random.seed
> 
> d1 <- resolved(f1)
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> d2 <- resolved(f2)
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> v1 <- value(f1)
> stopifnot(identical(v1, 1))
> 
> v2 <- value(f2)
> stopifnot(identical(v2, 2))
> 
> 
> message("- result() does not update RNG state")
- result() does not update RNG state
> 
> f1 <- future(1)
[04:39:42.515] Launched future #1
> f2 <- future(2)
[04:39:43.842] Launched future #1
> 
> rng0 <- globalenv()$.Random.seed
> 
> r1 <- result(f1)
> stopifnot(identical(r1$value, 1))
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> r2 <- result(f2)
> stopifnot(identical(r2$value, 2))
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> v1 <- value(f1)
> stopifnot(identical(v1, 1))
> 
> v2 <- value(f2)
> stopifnot(identical(v2, 2))
> 
> 
> message("- value() does not update RNG state")
- value() does not update RNG state
> 
> f1 <- future(1)
[04:39:45.836] Launched future #1
> f2 <- future(2)
[04:39:47.209] Launched future #1
> 
> rng0 <- globalenv()$.Random.seed
> 
> v1 <- value(f1)
> stopifnot(identical(v1, 1))
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> v2 <- value(f2)
> stopifnot(identical(v2, 2))
> stopifnot(identical(globalenv()$.Random.seed, rng0))  ## RNG changed?
> 
> message("*** RNG ... DONE")
*** RNG ... DONE
> 
> source("incl/end.R")
> 
> proc.time()
   user  system elapsed 
   2.48    0.60   16.65