Running '000.sessionDetails.R' [0s]
  Running 'ClusterRegistry.R' [171s]
  Running 'Future-class.R' [168s]
  Running 'FutureError.R' [1s]
  Running 'FutureGlobals.R' [1s]
  Running 'FutureRegistry.R' [1s]
  Running 'adhoc_native_to_utf8.R' [1s]
  Running 'backtrace.R' [5s]
  Running 'bquote.R' [1s]
  Running 'cluster,worker-termination.R' [2s]
  Running 'cluster-missing-future-pkg.R' [162s]
  Running 'cluster.R' [13s]
  Running 'constant.R' [0s]
  Running 'demo.R' [9s]
  Running 'dotdotdot.R' [168s]
  Running 'early-signaling.R' [154s]
  Running 'future,labels.R' [2s]
  Running 'future,optsenvvars.R' [168s]
  Running 'future.R' [157s]
  Running 'futureAssign.R' [2s]
  Running 'futureAssign_OP.R' [3s]
  Running 'futureAssign_OP_with_environment.R' [1s]
  Running 'futureAssign_OP_with_listenv.R' [158s]
  Running 'futureCall.R' [4s]
  Running 'futureOf.R' [1s]
  Running 'futureOf_with_environment.R' [157s]
  Running 'futureOf_with_listenv.R' [1s]
  Running 'futureSessionInfo.R' [2s]
  Running 'futures.R' [8s]
  Running 'globals,NSE.R' [3s]
  Running 'globals,S4methods.R' [159s]
  Running 'globals,formulas.R' [3s]
  Running 'globals,locals.R' [161s]
  Running 'globals,manual.R' [172s]
  Running 'globals,resolve.R' [2s]
  Running 'globals,subassignment.R' [3s]
  Running 'globals,toolarge.R' [148s]
  Running 'globals,tricky.R' [6s]
  Running 'globals,tricky_recursive.R' [167s]
  Running 'globalsOf,tweaks.R' [166s]
  Running 'immediateCondition.R' [4s]
  Running 'invalid-owner.R' [2s]
  Running 'mandelbrot.R' [1s]
  Running 'mpi.R' [1s]
  Running 'multicore,multithreading.R' [1s]
  Running 'multicore,worker-termination.R' [1s]
  Running 'multicore.R' [1s]
  Running 'multisession.R' [5s]
  Running 'nbrOfWorkers.R' [158s]
  Running 'nested_futures,mc.cores.R' [5s]
  Running 'nested_futures.R' [4s]
  Running 'non-exportable,connections.R' [169s]
  Running 'objectSize.R' [1s]
  Running 'plan.R' [3s]
  Running 'relaying,muffle.R' [154s]
  Running 'relaying,split.R' [1s]
  Running 'relaying.R' [162s]
  Running 'requestCore.R' [1s]
  Running 'requestNode.R' [7s]
  Running 'reserved-keyword-functions.R' [171s]
  Running 'resolve.R' [187s]
  Running 'resolved-non-blocking-test.R' [12s]
  Running 'rng.R' [9s]
  Running 'rng_utils.R' [150s]
  Running 'sequential.R' [1s]
  Running 'sessionDetails.R' [159s]
  Running 'startup.R' [3s]
  Running 'stdout.R' [3s]
  Running 'tweak.R' [164s]
  Running 'utils.R' [1s]
  Running 'uuid.R' [1s]
  Running 'whichIndex.R' [157s]
Running the tests in 'tests/ClusterRegistry.R' failed.
Complete output:
  > source("incl/start.R")
  [14:25:14.480] plan(): Setting new future strategy stack:
  [14:25:14.483] List of future strategies:
  [14:25:14.483] 1. sequential:
  [14:25:14.483]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:25:14.483]    - tweaked: FALSE
  [14:25:14.483]    - call: future::plan("sequential")
  [14:25:14.513] plan(): nbrOfWorkers() = 1
  > 
  > message("*** ClusterRegistry() ... ")
  *** ClusterRegistry() ... 
  > 
  > allCores <- 1:availCores
  > 
  > ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
  > if (isWin32) allCores <- NULL
  > 
  > for (cores in allCores) {
  +   message(sprintf("Testing with %d cores ...", cores))
  +   options(mc.cores = cores)
  + 
  +   message("Available cores: ", availableCores())
  + 
  +   ## In case sessions have been created in previous tests
  +   message("Stopping any running cluster ...")
  +   ClusterRegistry("stop")
  +   cluster <- ClusterRegistry("get")
  +   stopifnot(length(cluster) == 0)
  +   message("Stopping any running cluster ... DONE")
  + 
  +   message("Starting cluster ...")
  +   res <- tryCatch({
  +     cluster <- ClusterRegistry("set", workers = availableCores() - 1L)
  +     str(cluster)
  +     print(cluster)
  +   }, error = identity)
  +   if (cores == 1) stopifnot(inherits(res, "error"))
  +   message("Starting cluster ... DONE")
  + 
  +   message("Starting dual-worker cluster ...")
  +   cluster <- ClusterRegistry(action = "start", workers = 2L)
  +   str(cluster)
  +   print(cluster)
  +   stopifnot(length(cluster) == 2L)
  +   message("Starting duel-worker cluster ... DONE")
  +   
  +   message("Starting single-worker cluster ...")
  +   cluster <- ClusterRegistry(action = "start", workers = 1L)
  +   str(cluster)
  +   print(cluster)
  +   stopifnot(length(cluster) == 1L)
  +   message("Starting single-worker cluster ... DONE")
  + 
  +   cluster <- ClusterRegistry(action = "get")
  +   print(cluster)
  +   stopifnot(length(cluster) == 1L)
  + 
  +   message("Stopping single-worker cluster ...")
  +   cluster <- ClusterRegistry(action = "stop")
  +   print(cluster)
  +   stopifnot(length(cluster) == 0L)
  +   message("Stopping single-worker cluster ... DONE")
  + 
  +   message(sprintf("Testing with %d cores ... DONE", cores))
  + } ## for (cores ...)
  Testing with 1 cores ...
  Available cores: 1
  Stopping any running cluster ...
  Stopping any running cluster ... DONE
  Starting cluster ...
  Starting cluster ... DONE
  Starting dual-worker cluster ...
  [14:25:14.567] [local output] makeClusterPSOCK() ...
  Warning in checkNumberOfLocalWorkers(workers) :
    Careful, you are setting up 2 localhost parallel workers with only 1 CPU cores available for this R process (per 'mc.cores'), which could result in a 200% load. The soft limit is set to 100%. Overusing the CPUs has negative impact on the current R process, but also on all other processes of yours and others running on the same machine. See help("parallelly.options", package = "parallelly") for how to override the soft and hard limits
  [14:25:14.634] [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:25:14.642] [local output] Base port: 22721
  [14:25:14.643] [local output] Getting setup options for 2 cluster nodes ...
  [14:25:14.643] [local output]  - Node 1 of 2 ...
  [14:25:14.644] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:14.647] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d05947270.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d05947270.pid\")"'
  [14:25:15.206] - Possible to infer worker's PID: TRUE
  [14:25:15.207] [local output] Rscript port: 22721
  
  [14:25:15.208] [local output]  - Node 2 of 2 ...
  [14:25:15.209] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:15.211] [local output] Rscript port: 22721
  
  [14:25:15.211] [local output] Getting setup options for 2 cluster nodes ... done
  [14:25:15.212] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:25:15.213] [local output] Setting up PSOCK nodes in parallel
  [14:25:15.213] List of 36
  [14:25:15.213]  $ worker          : chr "localhost"
  [14:25:15.213]   ..- attr(*, "localhost")= logi TRUE
  [14:25:15.213]  $ master          : chr "localhost"
  [14:25:15.213]  $ port            : int 22721
  [14:25:15.213]  $ connectTimeout  : num 120
  [14:25:15.213]  $ timeout         : num 120
  [14:25:15.213]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:25:15.213]  $ homogeneous     : logi TRUE
  [14:25:15.213]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
  [14:25:15.213]  $ rscript_envs    : NULL
  [14:25:15.213]  $ rscript_libs    : NULL
  [14:25:15.213]  $ rscript_startup : NULL
  [14:25:15.213]  $ rscript_sh      : chr "cmd"
  [14:25:15.213]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.213]  $ methods         : logi TRUE
  [14:25:15.213]  $ socketOptions   : chr "no-delay"
  [14:25:15.213]  $ useXDR          : logi FALSE
  [14:25:15.213]  $ outfile         : chr "/dev/null"
  [14:25:15.213]  $ renice          : int NA
  [14:25:15.213]  $ rshcmd          : NULL
  [14:25:15.213]  $ user            : chr(0) 
  [14:25:15.213]  $ revtunnel       : logi FALSE
  [14:25:15.213]  $ rshlogfile      : NULL
  [14:25:15.213]  $ rshopts         : chr(0) 
  [14:25:15.213]  $ rank            : int 1
  [14:25:15.213]  $ manual          : logi FALSE
  [14:25:15.213]  $ dryrun          : logi FALSE
  [14:25:15.213]  $ quiet           : logi FALSE
  [14:25:15.213]  $ setup_strategy  : chr "parallel"
  [14:25:15.213]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.213]  $ pidfile         : chr "D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d05947270.pid"
  [14:25:15.213]  $ rshcmd_label    : NULL
  [14:25:15.213]  $ rsh_call        : NULL
  [14:25:15.213]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.213]  $ localMachine    : logi TRUE
  [14:25:15.213]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:25:15.213]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:25:15.213]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:25:15.213]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:25:15.213]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:25:15.213]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:25:15.213]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:25:15.213]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:25:15.213]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:25:15.213]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:25:15.213]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:25:15.213]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:25:15.213]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:25:15.213]  $ arguments       :List of 28
  [14:25:15.213]   ..$ worker          : chr "localhost"
  [14:25:15.213]   ..$ master          : NULL
  [14:25:15.213]   ..$ port            : int 22721
  [14:25:15.213]   ..$ connectTimeout  : num 120
  [14:25:15.213]   ..$ timeout         : num 120
  [14:25:15.213]   ..$ rscript         : NULL
  [14:25:15.213]   ..$ homogeneous     : NULL
  [14:25:15.213]   ..$ rscript_args    : NULL
  [14:25:15.213]   ..$ rscript_envs    : NULL
  [14:25:15.213]   ..$ rscript_libs    : NULL
  [14:25:15.213]   ..$ rscript_startup : NULL
  [14:25:15.213]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:25:15.213]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.213]   ..$ methods         : logi TRUE
  [14:25:15.213]   ..$ socketOptions   : chr "no-delay"
  [14:25:15.213]   ..$ useXDR          : logi FALSE
  [14:25:15.213]   ..$ outfile         : chr "/dev/null"
  [14:25:15.213]   ..$ renice          : int NA
  [14:25:15.213]   ..$ rshcmd          : NULL
  [14:25:15.213]   ..$ user            : NULL
  [14:25:15.213]   ..$ revtunnel       : logi NA
  [14:25:15.213]   ..$ rshlogfile      : NULL
  [14:25:15.213]   ..$ rshopts         : NULL
  [14:25:15.213]   ..$ rank            : int 1
  [14:25:15.213]   ..$ manual          : logi FALSE
  [14:25:15.213]   ..$ dryrun          : logi FALSE
  [14:25:15.213]   ..$ quiet           : logi FALSE
  [14:25:15.213]   ..$ setup_strategy  : chr "parallel"
  [14:25:15.213]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:25:15.249] [local output] System call to launch all workers:
  [14:25:15.249] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=ClusterRegistry.R:30416:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d05947270.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=22721 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:25:15.250] [local output] Starting PSOCK main server
  [14:25:15.260] [local output] Workers launched
  [14:25:15.260] [local output] Waiting for workers to connect back
  [14:25:15.261]  - [local output] 0 workers out of 2 ready
  [14:25:15.511]  - [local output] 0 workers out of 2 ready
  [14:25:15.511]  - [local output] 1 workers out of 2 ready
  [14:25:15.533]  - [local output] 1 workers out of 2 ready
  [14:25:15.533]  - [local output] 2 workers out of 2 ready
  [14:25:15.533] [local output] Launching of workers completed
  [14:25:15.534] [local output] Collecting session information from workers
  [14:25:15.535] [local output]  - Worker #1 of 2
  [14:25:15.535] [local output]  - Worker #2 of 2
  [14:25:15.536] [local output] makeClusterPSOCK() ... done
  List of 2
   $ :List of 4
    ..$ con         : 'sockconn' int 4
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 0
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 110972
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 22721
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 0
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 22721
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   $ :List of 4
    ..$ con         : 'sockconn' int 5
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 1
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 148804
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 22721
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 1
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 22721
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   - attr(*, "class")= chr [1:3] "RichSOCKcluster" "SOCKcluster" "cluster"
  Socket cluster with 2 nodes where 2 nodes are on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Starting duel-worker cluster ... DONE
  Starting single-worker cluster ...
  [14:25:15.635] [local output] makeClusterPSOCK() ...
  [14:25:15.638] [local output] Workers: [n = 1] 'localhost'
  [14:25:15.641] [local output] Base port: 25944
  [14:25:15.641] [local output] Getting setup options for 1 cluster nodes ...
  [14:25:15.641] [local output]  - Node 1 of 1 ...
  [14:25:15.642] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:15.643] [local output] Rscript port: 25944
  
  [14:25:15.644] [local output] Getting setup options for 1 cluster nodes ... done
  [14:25:15.644] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:25:15.644] [local output] Setting up PSOCK nodes in parallel
  [14:25:15.645] List of 36
  [14:25:15.645]  $ worker          : chr "localhost"
  [14:25:15.645]   ..- attr(*, "localhost")= logi TRUE
  [14:25:15.645]  $ master          : chr "localhost"
  [14:25:15.645]  $ port            : int 25944
  [14:25:15.645]  $ connectTimeout  : num 120
  [14:25:15.645]  $ timeout         : num 120
  [14:25:15.645]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:25:15.645]  $ homogeneous     : logi TRUE
  [14:25:15.645]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
  [14:25:15.645]  $ rscript_envs    : NULL
  [14:25:15.645]  $ rscript_libs    : NULL
  [14:25:15.645]  $ rscript_startup : NULL
  [14:25:15.645]  $ rscript_sh      : chr "cmd"
  [14:25:15.645]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.645]  $ methods         : logi TRUE
  [14:25:15.645]  $ socketOptions   : chr "no-delay"
  [14:25:15.645]  $ useXDR          : logi FALSE
  [14:25:15.645]  $ outfile         : chr "/dev/null"
  [14:25:15.645]  $ renice          : int NA
  [14:25:15.645]  $ rshcmd          : NULL
  [14:25:15.645]  $ user            : chr(0) 
  [14:25:15.645]  $ revtunnel       : logi FALSE
  [14:25:15.645]  $ rshlogfile      : NULL
  [14:25:15.645]  $ rshopts         : chr(0) 
  [14:25:15.645]  $ rank            : int 1
  [14:25:15.645]  $ manual          : logi FALSE
  [14:25:15.645]  $ dryrun          : logi FALSE
  [14:25:15.645]  $ quiet           : logi FALSE
  [14:25:15.645]  $ setup_strategy  : chr "parallel"
  [14:25:15.645]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.645]  $ pidfile         : chr "D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d02fba3b82.pid"
  [14:25:15.645]  $ rshcmd_label    : NULL
  [14:25:15.645]  $ rsh_call        : NULL
  [14:25:15.645]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.645]  $ localMachine    : logi TRUE
  [14:25:15.645]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:25:15.645]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:25:15.645]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:25:15.645]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:25:15.645]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:25:15.645]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:25:15.645]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:25:15.645]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:25:15.645]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:25:15.645]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:25:15.645]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:25:15.645]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:25:15.645]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:25:15.645]  $ arguments       :List of 28
  [14:25:15.645]   ..$ worker          : chr "localhost"
  [14:25:15.645]   ..$ master          : NULL
  [14:25:15.645]   ..$ port            : int 25944
  [14:25:15.645]   ..$ connectTimeout  : num 120
  [14:25:15.645]   ..$ timeout         : num 120
  [14:25:15.645]   ..$ rscript         : NULL
  [14:25:15.645]   ..$ homogeneous     : NULL
  [14:25:15.645]   ..$ rscript_args    : NULL
  [14:25:15.645]   ..$ rscript_envs    : NULL
  [14:25:15.645]   ..$ rscript_libs    : NULL
  [14:25:15.645]   ..$ rscript_startup : NULL
  [14:25:15.645]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:25:15.645]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.645]   ..$ methods         : logi TRUE
  [14:25:15.645]   ..$ socketOptions   : chr "no-delay"
  [14:25:15.645]   ..$ useXDR          : logi FALSE
  [14:25:15.645]   ..$ outfile         : chr "/dev/null"
  [14:25:15.645]   ..$ renice          : int NA
  [14:25:15.645]   ..$ rshcmd          : NULL
  [14:25:15.645]   ..$ user            : NULL
  [14:25:15.645]   ..$ revtunnel       : logi NA
  [14:25:15.645]   ..$ rshlogfile      : NULL
  [14:25:15.645]   ..$ rshopts         : NULL
  [14:25:15.645]   ..$ rank            : int 1
  [14:25:15.645]   ..$ manual          : logi FALSE
  [14:25:15.645]   ..$ dryrun          : logi FALSE
  [14:25:15.645]   ..$ quiet           : logi FALSE
  [14:25:15.645]   ..$ setup_strategy  : chr "parallel"
  [14:25:15.645]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:25:15.665] [local output] System call to launch all workers:
  [14:25:15.666] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=ClusterRegistry.R:30416:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d02fba3b82.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=25944 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:25:15.666] [local output] Starting PSOCK main server
  [14:25:15.670] [local output] Workers launched
  [14:25:15.670] [local output] Waiting for workers to connect back
  [14:25:15.673]  - [local output] 0 workers out of 1 ready
  [14:25:15.872]  - [local output] 0 workers out of 1 ready
  [14:25:15.873]  - [local output] 1 workers out of 1 ready
  [14:25:15.873] [local output] Launching of workers completed
  [14:25:15.873] [local output] Collecting session information from workers
  [14:25:15.875] [local output]  - Worker #1 of 1
  [14:25:15.875] [local output] makeClusterPSOCK() ... done
  List of 1
   $ :List of 4
    ..$ con         : 'sockconn' int 4
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 0
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 165312
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 25944
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 0
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 25944
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   - attr(*, "class")= chr [1:3] "RichSOCKcluster" "SOCKcluster" "cluster"
  Socket cluster with 1 nodes where 1 node is on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Starting single-worker cluster ... DONE
  Socket cluster with 1 nodes where 1 node is on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Stopping single-worker cluster ...
  NULL
  Stopping single-worker cluster ... DONE
  Testing with 1 cores ... DONE
  Testing with 2 cores ...
  Available cores: 2
  Stopping any running cluster ...
  Stopping any running cluster ... DONE
  Starting cluster ...
  Starting cluster ... DONE
  Starting dual-worker cluster ...
  [14:25:15.930] [local output] makeClusterPSOCK() ...
  [14:25:15.933] [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:25:15.935] [local output] Base port: 28927
  [14:25:15.936] [local output] Getting setup options for 2 cluster nodes ...
  [14:25:15.936] [local output]  - Node 1 of 2 ...
  [14:25:15.936] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:15.938] [local output] Rscript port: 28927
  
  [14:25:15.938] [local output]  - Node 2 of 2 ...
  [14:25:15.939] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:15.940] [local output] Rscript port: 28927
  
  [14:25:15.941] [local output] Getting setup options for 2 cluster nodes ... done
  [14:25:15.941] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:25:15.941] [local output] Setting up PSOCK nodes in parallel
  [14:25:15.942] List of 36
  [14:25:15.942]  $ worker          : chr "localhost"
  [14:25:15.942]   ..- attr(*, "localhost")= logi TRUE
  [14:25:15.942]  $ master          : chr "localhost"
  [14:25:15.942]  $ port            : int 28927
  [14:25:15.942]  $ connectTimeout  : num 120
  [14:25:15.942]  $ timeout         : num 120
  [14:25:15.942]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:25:15.942]  $ homogeneous     : logi TRUE
  [14:25:15.942]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
  [14:25:15.942]  $ rscript_envs    : NULL
  [14:25:15.942]  $ rscript_libs    : NULL
  [14:25:15.942]  $ rscript_startup : NULL
  [14:25:15.942]  $ rscript_sh      : chr "cmd"
  [14:25:15.942]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.942]  $ methods         : logi TRUE
  [14:25:15.942]  $ socketOptions   : chr "no-delay"
  [14:25:15.942]  $ useXDR          : logi FALSE
  [14:25:15.942]  $ outfile         : chr "/dev/null"
  [14:25:15.942]  $ renice          : int NA
  [14:25:15.942]  $ rshcmd          : NULL
  [14:25:15.942]  $ user            : chr(0) 
  [14:25:15.942]  $ revtunnel       : logi FALSE
  [14:25:15.942]  $ rshlogfile      : NULL
  [14:25:15.942]  $ rshopts         : chr(0) 
  [14:25:15.942]  $ rank            : int 1
  [14:25:15.942]  $ manual          : logi FALSE
  [14:25:15.942]  $ dryrun          : logi FALSE
  [14:25:15.942]  $ quiet           : logi FALSE
  [14:25:15.942]  $ setup_strategy  : chr "parallel"
  [14:25:15.942]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.942]  $ pidfile         : chr "D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d075c36a58.pid"
  [14:25:15.942]  $ rshcmd_label    : NULL
  [14:25:15.942]  $ rsh_call        : NULL
  [14:25:15.942]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:15.942]  $ localMachine    : logi TRUE
  [14:25:15.942]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:25:15.942]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:25:15.942]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:25:15.942]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:25:15.942]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:25:15.942]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:25:15.942]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:25:15.942]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:25:15.942]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:25:15.942]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:25:15.942]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:25:15.942]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:25:15.942]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:25:15.942]  $ arguments       :List of 28
  [14:25:15.942]   ..$ worker          : chr "localhost"
  [14:25:15.942]   ..$ master          : NULL
  [14:25:15.942]   ..$ port            : int 28927
  [14:25:15.942]   ..$ connectTimeout  : num 120
  [14:25:15.942]   ..$ timeout         : num 120
  [14:25:15.942]   ..$ rscript         : NULL
  [14:25:15.942]   ..$ homogeneous     : NULL
  [14:25:15.942]   ..$ rscript_args    : NULL
  [14:25:15.942]   ..$ rscript_envs    : NULL
  [14:25:15.942]   ..$ rscript_libs    : NULL
  [14:25:15.942]   ..$ rscript_startup : NULL
  [14:25:15.942]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:25:15.942]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:15.942]   ..$ methods         : logi TRUE
  [14:25:15.942]   ..$ socketOptions   : chr "no-delay"
  [14:25:15.942]   ..$ useXDR          : logi FALSE
  [14:25:15.942]   ..$ outfile         : chr "/dev/null"
  [14:25:15.942]   ..$ renice          : int NA
  [14:25:15.942]   ..$ rshcmd          : NULL
  [14:25:15.942]   ..$ user            : NULL
  [14:25:15.942]   ..$ revtunnel       : logi NA
  [14:25:15.942]   ..$ rshlogfile      : NULL
  [14:25:15.942]   ..$ rshopts         : NULL
  [14:25:15.942]   ..$ rank            : int 1
  [14:25:15.942]   ..$ manual          : logi FALSE
  [14:25:15.942]   ..$ dryrun          : logi FALSE
  [14:25:15.942]   ..$ quiet           : logi FALSE
  [14:25:15.942]   ..$ setup_strategy  : chr "parallel"
  [14:25:15.942]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:25:15.972] [local output] System call to launch all workers:
  [14:25:15.973] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=ClusterRegistry.R:30416:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d075c36a58.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=28927 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:25:15.973] [local output] Starting PSOCK main server
  [14:25:15.981] [local output] Workers launched
  [14:25:15.981] [local output] Waiting for workers to connect back
  [14:25:15.982]  - [local output] 0 workers out of 2 ready
  [14:25:16.208]  - [local output] 0 workers out of 2 ready
  [14:25:16.209]  - [local output] 1 workers out of 2 ready
  [14:25:16.220]  - [local output] 1 workers out of 2 ready
  [14:25:16.221]  - [local output] 2 workers out of 2 ready
  [14:25:16.221] [local output] Launching of workers completed
  [14:25:16.221] [local output] Collecting session information from workers
  [14:25:16.222] [local output]  - Worker #1 of 2
  [14:25:16.223] [local output]  - Worker #2 of 2
  [14:25:16.223] [local output] makeClusterPSOCK() ... done
  List of 2
   $ :List of 4
    ..$ con         : 'sockconn' int 4
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 0
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 38276
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 28927
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 0
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 28927
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   $ :List of 4
    ..$ con         : 'sockconn' int 5
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 1
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 38556
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 28927
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 1
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 28927
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   - attr(*, "class")= chr [1:3] "RichSOCKcluster" "SOCKcluster" "cluster"
  Socket cluster with 2 nodes where 2 nodes are on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Starting duel-worker cluster ... DONE
  Starting single-worker cluster ...
  [14:25:16.291] [local output] makeClusterPSOCK() ...
  [14:25:16.295] [local output] Workers: [n = 1] 'localhost'
  [14:25:16.297] [local output] Base port: 24176
  [14:25:16.298] [local output] Getting setup options for 1 cluster nodes ...
  [14:25:16.298] [local output]  - Node 1 of 1 ...
  [14:25:16.298] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:25:16.300] [local output] Rscript port: 24176
  
  [14:25:16.300] [local output] Getting setup options for 1 cluster nodes ... done
  [14:25:16.301] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:25:16.301] [local output] Setting up PSOCK nodes in parallel
  [14:25:16.301] List of 36
  [14:25:16.301]  $ worker          : chr "localhost"
  [14:25:16.301]   ..- attr(*, "localhost")= logi TRUE
  [14:25:16.301]  $ master          : chr "localhost"
  [14:25:16.301]  $ port            : int 24176
  [14:25:16.301]  $ connectTimeout  : num 120
  [14:25:16.301]  $ timeout         : num 120
  [14:25:16.301]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:25:16.301]  $ homogeneous     : logi TRUE
  [14:25:16.301]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
  [14:25:16.301]  $ rscript_envs    : NULL
  [14:25:16.301]  $ rscript_libs    : NULL
  [14:25:16.301]  $ rscript_startup : NULL
  [14:25:16.301]  $ rscript_sh      : chr "cmd"
  [14:25:16.301]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:16.301]  $ methods         : logi TRUE
  [14:25:16.301]  $ socketOptions   : chr "no-delay"
  [14:25:16.301]  $ useXDR          : logi FALSE
  [14:25:16.301]  $ outfile         : chr "/dev/null"
  [14:25:16.301]  $ renice          : int NA
  [14:25:16.301]  $ rshcmd          : NULL
  [14:25:16.301]  $ user            : chr(0) 
  [14:25:16.301]  $ revtunnel       : logi FALSE
  [14:25:16.301]  $ rshlogfile      : NULL
  [14:25:16.301]  $ rshopts         : chr(0) 
  [14:25:16.301]  $ rank            : int 1
  [14:25:16.301]  $ manual          : logi FALSE
  [14:25:16.301]  $ dryrun          : logi FALSE
  [14:25:16.301]  $ quiet           : logi FALSE
  [14:25:16.301]  $ setup_strategy  : chr "parallel"
  [14:25:16.301]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:16.301]  $ pidfile         : chr "D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d0496f5e2e.pid"
  [14:25:16.301]  $ rshcmd_label    : NULL
  [14:25:16.301]  $ rsh_call        : NULL
  [14:25:16.301]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:25:16.301]  $ localMachine    : logi TRUE
  [14:25:16.301]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:25:16.301]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:25:16.301]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:25:16.301]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:25:16.301]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:25:16.301]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:25:16.301]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:25:16.301]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:25:16.301]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:25:16.301]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:25:16.301]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:25:16.301]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:25:16.301]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:25:16.301]  $ arguments       :List of 28
  [14:25:16.301]   ..$ worker          : chr "localhost"
  [14:25:16.301]   ..$ master          : NULL
  [14:25:16.301]   ..$ port            : int 24176
  [14:25:16.301]   ..$ connectTimeout  : num 120
  [14:25:16.301]   ..$ timeout         : num 120
  [14:25:16.301]   ..$ rscript         : NULL
  [14:25:16.301]   ..$ homogeneous     : NULL
  [14:25:16.301]   ..$ rscript_args    : NULL
  [14:25:16.301]   ..$ rscript_envs    : NULL
  [14:25:16.301]   ..$ rscript_libs    : NULL
  [14:25:16.301]   ..$ rscript_startup : NULL
  [14:25:16.301]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:25:16.301]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:25:16.301]   ..$ methods         : logi TRUE
  [14:25:16.301]   ..$ socketOptions   : chr "no-delay"
  [14:25:16.301]   ..$ useXDR          : logi FALSE
  [14:25:16.301]   ..$ outfile         : chr "/dev/null"
  [14:25:16.301]   ..$ renice          : int NA
  [14:25:16.301]   ..$ rshcmd          : NULL
  [14:25:16.301]   ..$ user            : NULL
  [14:25:16.301]   ..$ revtunnel       : logi NA
  [14:25:16.301]   ..$ rshlogfile      : NULL
  [14:25:16.301]   ..$ rshopts         : NULL
  [14:25:16.301]   ..$ rank            : int 1
  [14:25:16.301]   ..$ manual          : logi FALSE
  [14:25:16.301]   ..$ dryrun          : logi FALSE
  [14:25:16.301]   ..$ quiet           : logi FALSE
  [14:25:16.301]   ..$ setup_strategy  : chr "parallel"
  [14:25:16.301]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:25:16.329] [local output] System call to launch all workers:
  [14:25:16.329] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=ClusterRegistry.R:30416:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmp0OvJZY/worker.rank=1.parallelly.parent=30416.76d0496f5e2e.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=24176 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:25:16.330] [local output] Starting PSOCK main server
  [14:25:16.336] [local output] Workers launched
  [14:25:16.336] [local output] Waiting for workers to connect back
  [14:25:16.336]  - [local output] 0 workers out of 1 ready
  [14:25:16.568]  - [local output] 0 workers out of 1 ready
  [14:25:16.569]  - [local output] 1 workers out of 1 ready
  [14:25:16.569] [local output] Launching of workers completed
  [14:25:16.569] [local output] Collecting session information from workers
  [14:25:16.570] [local output]  - Worker #1 of 1
  [14:25:16.570] [local output] makeClusterPSOCK() ... done
  List of 1
   $ :List of 4
    ..$ con         : 'sockconn' int 4
    .. ..- attr(*, "conn_id")=<externalptr> 
    ..$ host        : chr "localhost"
    .. ..- attr(*, "localhost")= logi TRUE
    ..$ rank        : int 0
    ..$ session_info:List of 6
    .. ..$ r      :List of 16
    .. .. ..$ platform      : chr "x86_64-w64-mingw32"
    .. .. ..$ arch          : chr "x86_64"
    .. .. ..$ os            : chr "mingw32"
    .. .. ..$ crt           : chr "ucrt"
    .. .. ..$ system        : chr "x86_64, mingw32"
    .. .. ..$ status        : chr "Under development (unstable)"
    .. .. ..$ major         : chr "4"
    .. .. ..$ minor         : chr "4.0"
    .. .. ..$ year          : chr "2024"
    .. .. ..$ month         : chr "03"
    .. .. ..$ day           : chr "22"
    .. .. ..$ svn rev       : chr "86169"
    .. .. ..$ language      : chr "R"
    .. .. ..$ version.string: chr "R Under development (unstable) (2024-03-22 r86169 ucrt)"
    .. .. ..$ nickname      : chr "Unsuffered Consequences"
    .. .. ..$ os.type       : chr "windows"
    .. ..$ system :List of 8
    .. .. ..$ sysname       : chr "Windows"
    .. .. ..$ release       : chr "Server x64"
    .. .. ..$ version       : chr "build 20348"
    .. .. ..$ nodename      : chr "CRANWIN3"
    .. .. ..$ machine       : chr "x86-64"
    .. .. ..$ login         : chr "CRAN"
    .. .. ..$ user          : chr "CRAN"
    .. .. ..$ effective_user: chr "CRAN"
    .. ..$ libs   : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
    .. ..$ pkgs   : NULL
    .. ..$ pwd    : chr "d:/Rcompile/CRANpkg/local/4.4/future.Rcheck/tests"
    .. ..$ process:List of 1
    .. .. ..$ pid: int 182360
    ..- attr(*, "options")=List of 35
    .. ..$ worker          : chr "localhost"
    .. .. ..- attr(*, "localhost")= logi TRUE
    .. ..$ master          : chr "localhost"
    .. ..$ port            : int 24176
    .. ..$ connectTimeout  : num 120
    .. ..$ timeout         : num 120
    .. ..$ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
    .. ..$ homogeneous     : logi TRUE
    .. ..$ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=ClusterRegistry.R:30416:CRANWIN3"| __truncated__
    .. ..$ rscript_envs    : NULL
    .. ..$ rscript_libs    : NULL
    .. ..$ rscript_startup : NULL
    .. ..$ rscript_sh      : chr "cmd"
    .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. ..$ methods         : logi TRUE
    .. ..$ socketOptions   : chr "no-delay"
    .. ..$ useXDR          : logi FALSE
    .. ..$ outfile         : chr "/dev/null"
    .. ..$ renice          : int NA
    .. ..$ rshcmd          : NULL
    .. ..$ user            : chr(0) 
    .. ..$ revtunnel       : logi FALSE
    .. ..$ rshlogfile      : NULL
    .. ..$ rshopts         : chr(0) 
    .. ..$ rank            : int 0
    .. ..$ manual          : logi FALSE
    .. ..$ dryrun          : logi FALSE
    .. ..$ quiet           : logi FALSE
    .. ..$ setup_strategy  : chr "parallel"
    .. ..$ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ rshcmd_label    : NULL
    .. ..$ rsh_call        : NULL
    .. ..$ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
    .. ..$ localMachine    : logi TRUE
    .. ..$ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
      master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
          2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
          30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
      rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
          "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
          "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
          "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
          FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
          NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
          NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
      setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
          "parallel"), action = c("launch", "options"), verbose = FALSE)  
    .. ..$ arguments       :List of 28
    .. .. ..$ worker          : chr "localhost"
    .. .. ..$ master          : NULL
    .. .. ..$ port            : int 24176
    .. .. ..$ connectTimeout  : num 120
    .. .. ..$ timeout         : num 120
    .. .. ..$ rscript         : NULL
    .. .. ..$ homogeneous     : NULL
    .. .. ..$ rscript_args    : NULL
    .. .. ..$ rscript_envs    : NULL
    .. .. ..$ rscript_libs    : NULL
    .. .. ..$ rscript_startup : NULL
    .. .. ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
    .. .. ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
    .. .. ..$ methods         : logi TRUE
    .. .. ..$ socketOptions   : chr "no-delay"
    .. .. ..$ useXDR          : logi FALSE
    .. .. ..$ outfile         : chr "/dev/null"
    .. .. ..$ renice          : int NA
    .. .. ..$ rshcmd          : NULL
    .. .. ..$ user            : NULL
    .. .. ..$ revtunnel       : logi NA
    .. .. ..$ rshlogfile      : NULL
    .. .. ..$ rshopts         : NULL
    .. .. ..$ rank            : int 1
    .. .. ..$ manual          : logi FALSE
    .. .. ..$ dryrun          : logi FALSE
    .. .. ..$ quiet           : logi FALSE
    .. .. ..$ setup_strategy  : chr "parallel"
    .. ..- attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
    ..- attr(*, "class")= chr [1:2] "RichSOCKnode" "SOCK0node"
   - attr(*, "class")= chr [1:3] "RichSOCKcluster" "SOCKcluster" "cluster"
  Socket cluster with 1 nodes where 1 node is on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Starting single-worker cluster ... DONE
  Socket cluster with 1 nodes where 1 node is on host 'localhost' (R Under development (unstable) (2024-03-22 r86169 ucrt), platform x86_64-w64-mingw32)
  Stopping single-worker cluster ...
  NULL
  Stopping single-worker cluster ... DONE
  Testing with 2 cores ... DONE
  > 
  > 
  > message("*** ClusterRegistry() - exceptions ...")
  *** ClusterRegistry() - exceptions ...
  > 
  > res <- tryCatch(ClusterRegistry(action = "start", workers = TRUE), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > message("*** ClusterRegistry() - exceptions ... DONE")
  *** ClusterRegistry() - exceptions ... DONE
  > 
  > 
  > message("*** ClusterRegistry() ... DONE")
  *** ClusterRegistry() ... DONE
  > 
  > source("incl/end.R")
  [14:25:16.617] plan(): Setting new future strategy stack:
  [14:25:16.617] List of future strategies:
  [14:25:16.617] 1. FutureStrategy:
  [14:25:16.617]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:25:16.617]    - tweaked: FALSE
  [14:25:16.617]    - call: future::plan(oplan)
  [14:25:16.632] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.89    0.15    2.54 
Running the tests in 'tests/Future-class.R' failed.
Complete output:
  > source("incl/start.R")
  [14:28:05.238] plan(): Setting new future strategy stack:
  [14:28:05.240] List of future strategies:
  [14:28:05.240] 1. sequential:
  [14:28:05.240]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:05.240]    - tweaked: FALSE
  [14:28:05.240]    - call: future::plan("sequential")
  [14:28:05.259] plan(): nbrOfWorkers() = 1
  > 
  > message("*** Future class ...")
  *** Future class ...
  > 
  > message("*** Future class - exception ...")
  *** Future class - exception ...
  > 
  > f <- Future()
  [14:28:05.267] getGlobalsAndPackages() ...
  [14:28:05.267] 
  [14:28:05.267] - globals: [0] <none>
  [14:28:05.267] getGlobalsAndPackages() ... DONE
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  NULL
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 9236af42-4179-7966-1a07-182d6df05089
  Class: 'Future', 'environment'
  > 
  > res <- tryCatch(value(f), error = identity)
  [14:28:05.269] run() for 'Future' ...
  [14:28:05.269] - state: 'created'
  [14:28:05.269] run() for 'Future' ... done
  > print(res)
  <simpleError: 'future$lazy' is not TRUE>
  > stopifnot(inherits(res, "error"))
  > 
  > ## Invalid seed
  > res <- tryCatch(f <- Future(42, seed = 1:2), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > ## When no packages are exported
  > foo <- structure(function(...) { Future(1) }, class = "future")
  > plan(foo)
  [14:28:05.273] plan(): Setting new future strategy stack:
  [14:28:05.273] List of future strategies:
  [14:28:05.273] 1. future:
  [14:28:05.273]    - args: function (..., workers = "<NULL>")
  [14:28:05.273]    - tweaked: FALSE
  [14:28:05.273]    - call: plan(foo)
  [14:28:05.296] plan(): nbrOfWorkers() = Inf
  > f <- Future()
  [14:28:05.296] getGlobalsAndPackages() ...
  [14:28:05.297] 
  [14:28:05.297] - globals: [0] <none>
  [14:28:05.297] getGlobalsAndPackages() ... DONE
  > expr <- getExpression(f)
  [14:28:05.298] Packages needed by the future expression (n = 0): <none>
  [14:28:05.298] Packages needed by future strategies (n = 0): <none>
  [14:28:05.300] {
  [14:28:05.300]     {
  [14:28:05.300]         {
  [14:28:05.300]             ...future.startTime <- base::Sys.time()
  [14:28:05.300]             {
  [14:28:05.300]                 {
  [14:28:05.300]                   {
  [14:28:05.300]                     base::local({
  [14:28:05.300]                       has_future <- base::requireNamespace("future", 
  [14:28:05.300]                         quietly = TRUE)
  [14:28:05.300]                       if (has_future) {
  [14:28:05.300]                         ns <- base::getNamespace("future")
  [14:28:05.300]                         version <- ns[[".package"]][["version"]]
  [14:28:05.300]                         if (is.null(version)) 
  [14:28:05.300]                           version <- utils::packageVersion("future")
  [14:28:05.300]                       }
  [14:28:05.300]                       else {
  [14:28:05.300]                         version <- NULL
  [14:28:05.300]                       }
  [14:28:05.300]                       if (!has_future || version < "1.8.0") {
  [14:28:05.300]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:28:05.300]                           "", base::R.version$version.string), 
  [14:28:05.300]                           platform = base::sprintf("%s (%s-bit)", 
  [14:28:05.300]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:05.300]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:05.300]                             "release", "version")], collapse = " "), 
  [14:28:05.300]                           hostname = base::Sys.info()[["nodename"]])
  [14:28:05.300]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:05.300]                           info)
  [14:28:05.300]                         info <- base::paste(info, collapse = "; ")
  [14:28:05.300]                         if (!has_future) {
  [14:28:05.300]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:05.300]                             info)
  [14:28:05.300]                         }
  [14:28:05.300]                         else {
  [14:28:05.300]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:05.300]                             info, version)
  [14:28:05.300]                         }
  [14:28:05.300]                         base::stop(msg)
  [14:28:05.300]                       }
  [14:28:05.300]                     })
  [14:28:05.300]                   }
  [14:28:05.300]                   options(future.plan = NULL)
  [14:28:05.300]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.300]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:05.300]                 }
  [14:28:05.300]                 ...future.workdir <- getwd()
  [14:28:05.300]             }
  [14:28:05.300]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:05.300]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:05.300]         }
  [14:28:05.300]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:05.300]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:05.300]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:05.300]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:05.300]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:05.300]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:05.300]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:05.300]             base::names(...future.oldOptions))
  [14:28:05.300]     }
  [14:28:05.300]     if (FALSE) {
  [14:28:05.300]     }
  [14:28:05.300]     else {
  [14:28:05.300]         if (TRUE) {
  [14:28:05.300]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:05.300]                 open = "w")
  [14:28:05.300]         }
  [14:28:05.300]         else {
  [14:28:05.300]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:05.300]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:05.300]         }
  [14:28:05.300]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:05.300]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:05.300]             base::sink(type = "output", split = FALSE)
  [14:28:05.300]             base::close(...future.stdout)
  [14:28:05.300]         }, add = TRUE)
  [14:28:05.300]     }
  [14:28:05.300]     ...future.frame <- base::sys.nframe()
  [14:28:05.300]     ...future.conditions <- base::list()
  [14:28:05.300]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:05.300]     if (FALSE) {
  [14:28:05.300]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:05.300]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:05.300]     }
  [14:28:05.300]     ...future.result <- base::tryCatch({
  [14:28:05.300]         base::withCallingHandlers({
  [14:28:05.300]             ...future.value <- base::withVisible(base::local(NULL))
  [14:28:05.300]             future::FutureResult(value = ...future.value$value, 
  [14:28:05.300]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.300]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:05.300]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:05.300]                     ...future.globalenv.names))
  [14:28:05.300]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:05.300]         }, condition = base::local({
  [14:28:05.300]             c <- base::c
  [14:28:05.300]             inherits <- base::inherits
  [14:28:05.300]             invokeRestart <- base::invokeRestart
  [14:28:05.300]             length <- base::length
  [14:28:05.300]             list <- base::list
  [14:28:05.300]             seq.int <- base::seq.int
  [14:28:05.300]             signalCondition <- base::signalCondition
  [14:28:05.300]             sys.calls <- base::sys.calls
  [14:28:05.300]             `[[` <- base::`[[`
  [14:28:05.300]             `+` <- base::`+`
  [14:28:05.300]             `<<-` <- base::`<<-`
  [14:28:05.300]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:05.300]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:05.300]                   3L)]
  [14:28:05.300]             }
  [14:28:05.300]             function(cond) {
  [14:28:05.300]                 is_error <- inherits(cond, "error")
  [14:28:05.300]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:05.300]                   NULL)
  [14:28:05.300]                 if (is_error) {
  [14:28:05.300]                   sessionInformation <- function() {
  [14:28:05.300]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:05.300]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:05.300]                       search = base::search(), system = base::Sys.info())
  [14:28:05.300]                   }
  [14:28:05.300]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.300]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:05.300]                     cond$call), session = sessionInformation(), 
  [14:28:05.300]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:05.300]                   signalCondition(cond)
  [14:28:05.300]                 }
  [14:28:05.300]                 else if (!ignore && TRUE && inherits(cond, "condition")) {
  [14:28:05.300]                   signal <- FALSE && inherits(cond, character(0))
  [14:28:05.300]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.300]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:05.300]                   if (FALSE && !signal) {
  [14:28:05.300]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.300]                     {
  [14:28:05.300]                       inherits <- base::inherits
  [14:28:05.300]                       invokeRestart <- base::invokeRestart
  [14:28:05.300]                       is.null <- base::is.null
  [14:28:05.300]                       muffled <- FALSE
  [14:28:05.300]                       if (inherits(cond, "message")) {
  [14:28:05.300]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.300]                         if (muffled) 
  [14:28:05.300]                           invokeRestart("muffleMessage")
  [14:28:05.300]                       }
  [14:28:05.300]                       else if (inherits(cond, "warning")) {
  [14:28:05.300]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.300]                         if (muffled) 
  [14:28:05.300]                           invokeRestart("muffleWarning")
  [14:28:05.300]                       }
  [14:28:05.300]                       else if (inherits(cond, "condition")) {
  [14:28:05.300]                         if (!is.null(pattern)) {
  [14:28:05.300]                           computeRestarts <- base::computeRestarts
  [14:28:05.300]                           grepl <- base::grepl
  [14:28:05.300]                           restarts <- computeRestarts(cond)
  [14:28:05.300]                           for (restart in restarts) {
  [14:28:05.300]                             name <- restart$name
  [14:28:05.300]                             if (is.null(name)) 
  [14:28:05.300]                               next
  [14:28:05.300]                             if (!grepl(pattern, name)) 
  [14:28:05.300]                               next
  [14:28:05.300]                             invokeRestart(restart)
  [14:28:05.300]                             muffled <- TRUE
  [14:28:05.300]                             break
  [14:28:05.300]                           }
  [14:28:05.300]                         }
  [14:28:05.300]                       }
  [14:28:05.300]                       invisible(muffled)
  [14:28:05.300]                     }
  [14:28:05.300]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.300]                   }
  [14:28:05.300]                 }
  [14:28:05.300]                 else {
  [14:28:05.300]                   if (TRUE) {
  [14:28:05.300]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.300]                     {
  [14:28:05.300]                       inherits <- base::inherits
  [14:28:05.300]                       invokeRestart <- base::invokeRestart
  [14:28:05.300]                       is.null <- base::is.null
  [14:28:05.300]                       muffled <- FALSE
  [14:28:05.300]                       if (inherits(cond, "message")) {
  [14:28:05.300]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.300]                         if (muffled) 
  [14:28:05.300]                           invokeRestart("muffleMessage")
  [14:28:05.300]                       }
  [14:28:05.300]                       else if (inherits(cond, "warning")) {
  [14:28:05.300]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.300]                         if (muffled) 
  [14:28:05.300]                           invokeRestart("muffleWarning")
  [14:28:05.300]                       }
  [14:28:05.300]                       else if (inherits(cond, "condition")) {
  [14:28:05.300]                         if (!is.null(pattern)) {
  [14:28:05.300]                           computeRestarts <- base::computeRestarts
  [14:28:05.300]                           grepl <- base::grepl
  [14:28:05.300]                           restarts <- computeRestarts(cond)
  [14:28:05.300]                           for (restart in restarts) {
  [14:28:05.300]                             name <- restart$name
  [14:28:05.300]                             if (is.null(name)) 
  [14:28:05.300]                               next
  [14:28:05.300]                             if (!grepl(pattern, name)) 
  [14:28:05.300]                               next
  [14:28:05.300]                             invokeRestart(restart)
  [14:28:05.300]                             muffled <- TRUE
  [14:28:05.300]                             break
  [14:28:05.300]                           }
  [14:28:05.300]                         }
  [14:28:05.300]                       }
  [14:28:05.300]                       invisible(muffled)
  [14:28:05.300]                     }
  [14:28:05.300]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.300]                   }
  [14:28:05.300]                 }
  [14:28:05.300]             }
  [14:28:05.300]         }))
  [14:28:05.300]     }, error = function(ex) {
  [14:28:05.300]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:05.300]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.300]                 ...future.rng), started = ...future.startTime, 
  [14:28:05.300]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:05.300]             version = "1.8"), class = "FutureResult")
  [14:28:05.300]     }, finally = {
  [14:28:05.300]         if (!identical(...future.workdir, getwd())) 
  [14:28:05.300]             setwd(...future.workdir)
  [14:28:05.300]         {
  [14:28:05.300]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:05.300]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:05.300]             }
  [14:28:05.300]             base::options(...future.oldOptions)
  [14:28:05.300]             if (.Platform$OS.type == "windows") {
  [14:28:05.300]                 old_names <- names(...future.oldEnvVars)
  [14:28:05.300]                 envs <- base::Sys.getenv()
  [14:28:05.300]                 names <- names(envs)
  [14:28:05.300]                 common <- intersect(names, old_names)
  [14:28:05.300]                 added <- setdiff(names, old_names)
  [14:28:05.300]                 removed <- setdiff(old_names, names)
  [14:28:05.300]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:05.300]                   envs[common]]
  [14:28:05.300]                 NAMES <- toupper(changed)
  [14:28:05.300]                 args <- list()
  [14:28:05.300]                 for (kk in seq_along(NAMES)) {
  [14:28:05.300]                   name <- changed[[kk]]
  [14:28:05.300]                   NAME <- NAMES[[kk]]
  [14:28:05.300]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.300]                     next
  [14:28:05.300]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.300]                 }
  [14:28:05.300]                 NAMES <- toupper(added)
  [14:28:05.300]                 for (kk in seq_along(NAMES)) {
  [14:28:05.300]                   name <- added[[kk]]
  [14:28:05.300]                   NAME <- NAMES[[kk]]
  [14:28:05.300]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.300]                     next
  [14:28:05.300]                   args[[name]] <- ""
  [14:28:05.300]                 }
  [14:28:05.300]                 NAMES <- toupper(removed)
  [14:28:05.300]                 for (kk in seq_along(NAMES)) {
  [14:28:05.300]                   name <- removed[[kk]]
  [14:28:05.300]                   NAME <- NAMES[[kk]]
  [14:28:05.300]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.300]                     next
  [14:28:05.300]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.300]                 }
  [14:28:05.300]                 if (length(args) > 0) 
  [14:28:05.300]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:05.300]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:05.300]             }
  [14:28:05.300]             else {
  [14:28:05.300]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:05.300]             }
  [14:28:05.300]             {
  [14:28:05.300]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:05.300]                   0L) {
  [14:28:05.300]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:05.300]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:05.300]                   base::options(opts)
  [14:28:05.300]                 }
  [14:28:05.300]                 {
  [14:28:05.300]                   NULL
  [14:28:05.300]                   options(future.plan = NULL)
  [14:28:05.300]                   if (is.na(NA_character_)) 
  [14:28:05.300]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.300]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:05.300]                   future::plan(list(function (...) 
  [14:28:05.300]                   {
  [14:28:05.300]                     Future(1)
  [14:28:05.300]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:05.300]                 }
  [14:28:05.300]             }
  [14:28:05.300]         }
  [14:28:05.300]     })
  [14:28:05.300]     if (TRUE) {
  [14:28:05.300]         base::sink(type = "output", split = FALSE)
  [14:28:05.300]         if (TRUE) {
  [14:28:05.300]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:05.300]         }
  [14:28:05.300]         else {
  [14:28:05.300]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:05.300]         }
  [14:28:05.300]         base::close(...future.stdout)
  [14:28:05.300]         ...future.stdout <- NULL
  [14:28:05.300]     }
  [14:28:05.300]     ...future.result$conditions <- ...future.conditions
  [14:28:05.300]     ...future.result$finished <- base::Sys.time()
  [14:28:05.300]     ...future.result
  [14:28:05.300] }
  > print(expr)
  {
      {
          {
              ...future.startTime <- base::Sys.time()
              {
                  {
                    {
                      base::local({
                        has_future <- base::requireNamespace("future", 
                          quietly = TRUE)
                        if (has_future) {
                          ns <- base::getNamespace("future")
                          version <- ns[[".package"]][["version"]]
                          if (is.null(version)) 
                            version <- utils::packageVersion("future")
                        }
                        else {
                          version <- NULL
                        }
                        if (!has_future || version < "1.8.0") {
                          info <- base::c(r_version = base::gsub("R version ", 
                            "", base::R.version$version.string), 
                            platform = base::sprintf("%s (%s-bit)", 
                              base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
                            os = base::paste(base::Sys.info()[base::c("sysname", 
                              "release", "version")], collapse = " "), 
                            hostname = base::Sys.info()[["nodename"]])
                          info <- base::sprintf("%s: %s", base::names(info), 
                            info)
                          info <- base::paste(info, collapse = "; ")
                          if (!has_future) {
                            msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
                              info)
                          }
                          else {
                            msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
                              info, version)
                          }
                          base::stop(msg)
                        }
                      })
                    }
                    options(future.plan = NULL)
                    Sys.unsetenv("R_FUTURE_PLAN")
                    future::plan("default", .cleanup = FALSE, .init = FALSE)
                  }
                  ...future.workdir <- getwd()
              }
              ...future.oldOptions <- base::as.list(base::.Options)
              ...future.oldEnvVars <- base::Sys.getenv()
          }
          base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
              future.globals.maxSize = NULL, future.globals.method = NULL, 
              future.globals.onMissing = NULL, future.globals.onReference = NULL, 
              future.globals.resolve = NULL, future.resolve.recursive = NULL, 
              future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
              future.stdout.windows.reencode = NULL, width = 80L)
          ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
              base::names(...future.oldOptions))
      }
      if (FALSE) {
      }
      else {
          if (TRUE) {
              ...future.stdout <- base::rawConnection(base::raw(0L), 
                  open = "w")
          }
          else {
              ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
                  windows = "NUL", "/dev/null"), open = "w")
          }
          base::sink(...future.stdout, type = "output", split = FALSE)
          base::on.exit(if (!base::is.null(...future.stdout)) {
              base::sink(type = "output", split = FALSE)
              base::close(...future.stdout)
          }, add = TRUE)
      }
      ...future.frame <- base::sys.nframe()
      ...future.conditions <- base::list()
      ...future.rng <- base::globalenv()$.Random.seed
      if (FALSE) {
          ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
              "...future.value", "...future.globalenv.names", ".Random.seed")
      }
      ...future.result <- base::tryCatch({
          base::withCallingHandlers({
              ...future.value <- base::withVisible(base::local(NULL))
              future::FutureResult(value = ...future.value$value, 
                  visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
                    ...future.rng), globalenv = if (FALSE) 
                    list(added = base::setdiff(base::names(base::.GlobalEnv), 
                      ...future.globalenv.names))
                  else NULL, started = ...future.startTime, version = "1.8")
          }, condition = base::local({
              c <- base::c
              inherits <- base::inherits
              invokeRestart <- base::invokeRestart
              length <- base::length
              list <- base::list
              seq.int <- base::seq.int
              signalCondition <- base::signalCondition
              sys.calls <- base::sys.calls
              `[[` <- base::`[[`
              `+` <- base::`+`
              `<<-` <- base::`<<-`
              sysCalls <- function(calls = sys.calls(), from = 1L) {
                  calls[seq.int(from = from + 12L, to = length(calls) - 
                    3L)]
              }
              function(cond) {
                  is_error <- inherits(cond, "error")
                  ignore <- !is_error && !is.null(NULL) && inherits(cond, 
                    NULL)
                  if (is_error) {
                    sessionInformation <- function() {
                      list(r = base::R.Version(), locale = base::Sys.getlocale(), 
                        rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
                        search = base::search(), system = base::Sys.info())
                    }
                    ...future.conditions[[length(...future.conditions) + 
                      1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
                      cond$call), session = sessionInformation(), 
                      timestamp = base::Sys.time(), signaled = 0L)
                    signalCondition(cond)
                  }
                  else if (!ignore && TRUE && inherits(cond, "condition")) {
                    signal <- FALSE && inherits(cond, character(0))
                    ...future.conditions[[length(...future.conditions) + 
                      1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
                    if (FALSE && !signal) {
                      muffleCondition <- function (cond, pattern = "^muffle") 
                      {
                        inherits <- base::inherits
                        invokeRestart <- base::invokeRestart
                        is.null <- base::is.null
                        muffled <- FALSE
                        if (inherits(cond, "message")) {
                          muffled <- grepl(pattern, "muffleMessage")
                          if (muffled) 
                            invokeRestart("muffleMessage")
                        }
                        else if (inherits(cond, "warning")) {
                          muffled <- grepl(pattern, "muffleWarning")
                          if (muffled) 
                            invokeRestart("muffleWarning")
                        }
                        else if (inherits(cond, "condition")) {
                          if (!is.null(pattern)) {
                            computeRestarts <- base::computeRestarts
                            grepl <- base::grepl
                            restarts <- computeRestarts(cond)
                            for (restart in restarts) {
                              name <- restart$name
                              if (is.null(name)) 
                                next
                              if (!grepl(pattern, name)) 
                                next
                              invokeRestart(restart)
                              muffled <- TRUE
                              break
                            }
                          }
                        }
                        invisible(muffled)
                      }
                      muffleCondition(cond, pattern = "^muffle")
                    }
                  }
                  else {
                    if (TRUE) {
                      muffleCondition <- function (cond, pattern = "^muffle") 
                      {
                        inherits <- base::inherits
                        invokeRestart <- base::invokeRestart
                        is.null <- base::is.null
                        muffled <- FALSE
                        if (inherits(cond, "message")) {
                          muffled <- grepl(pattern, "muffleMessage")
                          if (muffled) 
                            invokeRestart("muffleMessage")
                        }
                        else if (inherits(cond, "warning")) {
                          muffled <- grepl(pattern, "muffleWarning")
                          if (muffled) 
                            invokeRestart("muffleWarning")
                        }
                        else if (inherits(cond, "condition")) {
                          if (!is.null(pattern)) {
                            computeRestarts <- base::computeRestarts
                            grepl <- base::grepl
                            restarts <- computeRestarts(cond)
                            for (restart in restarts) {
                              name <- restart$name
                              if (is.null(name)) 
                                next
                              if (!grepl(pattern, name)) 
                                next
                              invokeRestart(restart)
                              muffled <- TRUE
                              break
                            }
                          }
                        }
                        invisible(muffled)
                      }
                      muffleCondition(cond, pattern = "^muffle")
                    }
                  }
              }
          }))
      }, error = function(ex) {
          base::structure(base::list(value = NULL, visible = NULL, 
              conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
                  ...future.rng), started = ...future.startTime, 
              finished = Sys.time(), session_uuid = NA_character_, 
              version = "1.8"), class = "FutureResult")
      }, finally = {
          if (!identical(...future.workdir, getwd())) 
              setwd(...future.workdir)
          {
              if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
                  ...future.oldOptions$nwarnings <- NULL
              }
              base::options(...future.oldOptions)
              if (.Platform$OS.type == "windows") {
                  old_names <- names(...future.oldEnvVars)
                  envs <- base::Sys.getenv()
                  names <- names(envs)
                  common <- intersect(names, old_names)
                  added <- setdiff(names, old_names)
                  removed <- setdiff(old_names, names)
                  changed <- common[...future.oldEnvVars[common] != 
                    envs[common]]
                  NAMES <- toupper(changed)
                  args <- list()
                  for (kk in seq_along(NAMES)) {
                    name <- changed[[kk]]
                    NAME <- NAMES[[kk]]
                    if (name != NAME && is.element(NAME, old_names)) 
                      next
                    args[[name]] <- ...future.oldEnvVars[[name]]
                  }
                  NAMES <- toupper(added)
                  for (kk in seq_along(NAMES)) {
                    name <- added[[kk]]
                    NAME <- NAMES[[kk]]
                    if (name != NAME && is.element(NAME, old_names)) 
                      next
                    args[[name]] <- ""
                  }
                  NAMES <- toupper(removed)
                  for (kk in seq_along(NAMES)) {
                    name <- removed[[kk]]
                    NAME <- NAMES[[kk]]
                    if (name != NAME && is.element(NAME, old_names)) 
                      next
                    args[[name]] <- ...future.oldEnvVars[[name]]
                  }
                  if (length(args) > 0) 
                    base::do.call(base::Sys.setenv, args = args)
                  args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
              }
              else {
                  base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
              }
              {
                  if (base::length(...future.futureOptionsAdded) > 
                    0L) {
                    opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
                    base::names(opts) <- ...future.futureOptionsAdded
                    base::options(opts)
                  }
                  {
                    NULL
                    options(future.plan = NULL)
                    if (is.na(NA_character_)) 
                      Sys.unsetenv("R_FUTURE_PLAN")
                    else Sys.setenv(R_FUTURE_PLAN = NA_character_)
                    future::plan(list(function (...) 
                    {
                      Future(1)
                    }), .cleanup = FALSE, .init = FALSE)
                  }
              }
          }
      })
      if (TRUE) {
          base::sink(type = "output", split = FALSE)
          if (TRUE) {
              ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
          }
          else {
              ...future.result["stdout"] <- base::list(NULL)
          }
          base::close(...future.stdout)
          ...future.stdout <- NULL
      }
      ...future.result$conditions <- ...future.conditions
      ...future.result$finished <- base::Sys.time()
      ...future.result
  }
  > stopifnot(is.call(expr))
  > 
  > clazzes <- list(
  +   sequential = SequentialFuture,
  +   multisession = function(...) MultisessionFuture(..., workers = 2L),
  +   sequential = SequentialFuture
  + )
  > if (supportsMulticore()) {
  +   clazzes$multicore = function(...) MulticoreFuture(..., workers = 2L)
  + }
  > 
  > for (clazz in clazzes) {
  +   ## Calling run() more than once
  +   f <- clazz({ 42L })
  +   print(f)
  +   run(f)
  +   res <- tryCatch(run(f), error = identity)
  +   stopifnot(inherits(res, "error"))
  +   v <- value(f)
  +   print(v)
  +   stopifnot(v == 42L)
  + 
  +   ## Call value() without run()
  +   f <- clazz({ 42L })
  +   v <- value(f)
  +   print(v)
  +   stopifnot(v == 42L)
  + }
  [14:28:05.323] getGlobalsAndPackages() ...
  [14:28:05.323] Searching for globals...
  [14:28:05.328] - globals found: [1] '{'
  [14:28:05.328] Searching for globals ... DONE
  [14:28:05.328] Resolving globals: FALSE
  [14:28:05.329] 
  [14:28:05.330] 
  [14:28:05.330] getGlobalsAndPackages() ... DONE
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      42L
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 9236af42-4179-7966-1a07-182d6df05089
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:28:05.331] Packages needed by the future expression (n = 0): <none>
  [14:28:05.332] Packages needed by future strategies (n = 0): <none>
  [14:28:05.332] {
  [14:28:05.332]     {
  [14:28:05.332]         {
  [14:28:05.332]             ...future.startTime <- base::Sys.time()
  [14:28:05.332]             {
  [14:28:05.332]                 {
  [14:28:05.332]                   {
  [14:28:05.332]                     base::local({
  [14:28:05.332]                       has_future <- base::requireNamespace("future", 
  [14:28:05.332]                         quietly = TRUE)
  [14:28:05.332]                       if (has_future) {
  [14:28:05.332]                         ns <- base::getNamespace("future")
  [14:28:05.332]                         version <- ns[[".package"]][["version"]]
  [14:28:05.332]                         if (is.null(version)) 
  [14:28:05.332]                           version <- utils::packageVersion("future")
  [14:28:05.332]                       }
  [14:28:05.332]                       else {
  [14:28:05.332]                         version <- NULL
  [14:28:05.332]                       }
  [14:28:05.332]                       if (!has_future || version < "1.8.0") {
  [14:28:05.332]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:28:05.332]                           "", base::R.version$version.string), 
  [14:28:05.332]                           platform = base::sprintf("%s (%s-bit)", 
  [14:28:05.332]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:05.332]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:05.332]                             "release", "version")], collapse = " "), 
  [14:28:05.332]                           hostname = base::Sys.info()[["nodename"]])
  [14:28:05.332]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:05.332]                           info)
  [14:28:05.332]                         info <- base::paste(info, collapse = "; ")
  [14:28:05.332]                         if (!has_future) {
  [14:28:05.332]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:05.332]                             info)
  [14:28:05.332]                         }
  [14:28:05.332]                         else {
  [14:28:05.332]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:05.332]                             info, version)
  [14:28:05.332]                         }
  [14:28:05.332]                         base::stop(msg)
  [14:28:05.332]                       }
  [14:28:05.332]                     })
  [14:28:05.332]                   }
  [14:28:05.332]                   options(future.plan = NULL)
  [14:28:05.332]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.332]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:05.332]                 }
  [14:28:05.332]                 ...future.workdir <- getwd()
  [14:28:05.332]             }
  [14:28:05.332]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:05.332]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:05.332]         }
  [14:28:05.332]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:05.332]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:05.332]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:05.332]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:05.332]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:05.332]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:05.332]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:05.332]             base::names(...future.oldOptions))
  [14:28:05.332]     }
  [14:28:05.332]     if (FALSE) {
  [14:28:05.332]     }
  [14:28:05.332]     else {
  [14:28:05.332]         if (TRUE) {
  [14:28:05.332]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:05.332]                 open = "w")
  [14:28:05.332]         }
  [14:28:05.332]         else {
  [14:28:05.332]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:05.332]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:05.332]         }
  [14:28:05.332]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:05.332]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:05.332]             base::sink(type = "output", split = FALSE)
  [14:28:05.332]             base::close(...future.stdout)
  [14:28:05.332]         }, add = TRUE)
  [14:28:05.332]     }
  [14:28:05.332]     ...future.frame <- base::sys.nframe()
  [14:28:05.332]     ...future.conditions <- base::list()
  [14:28:05.332]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:05.332]     if (FALSE) {
  [14:28:05.332]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:05.332]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:05.332]     }
  [14:28:05.332]     ...future.result <- base::tryCatch({
  [14:28:05.332]         base::withCallingHandlers({
  [14:28:05.332]             ...future.value <- base::withVisible(base::local({
  [14:28:05.332]                 42L
  [14:28:05.332]             }))
  [14:28:05.332]             future::FutureResult(value = ...future.value$value, 
  [14:28:05.332]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.332]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:05.332]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:05.332]                     ...future.globalenv.names))
  [14:28:05.332]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:05.332]         }, condition = base::local({
  [14:28:05.332]             c <- base::c
  [14:28:05.332]             inherits <- base::inherits
  [14:28:05.332]             invokeRestart <- base::invokeRestart
  [14:28:05.332]             length <- base::length
  [14:28:05.332]             list <- base::list
  [14:28:05.332]             seq.int <- base::seq.int
  [14:28:05.332]             signalCondition <- base::signalCondition
  [14:28:05.332]             sys.calls <- base::sys.calls
  [14:28:05.332]             `[[` <- base::`[[`
  [14:28:05.332]             `+` <- base::`+`
  [14:28:05.332]             `<<-` <- base::`<<-`
  [14:28:05.332]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:05.332]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:05.332]                   3L)]
  [14:28:05.332]             }
  [14:28:05.332]             function(cond) {
  [14:28:05.332]                 is_error <- inherits(cond, "error")
  [14:28:05.332]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:05.332]                   NULL)
  [14:28:05.332]                 if (is_error) {
  [14:28:05.332]                   sessionInformation <- function() {
  [14:28:05.332]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:05.332]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:05.332]                       search = base::search(), system = base::Sys.info())
  [14:28:05.332]                   }
  [14:28:05.332]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.332]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:05.332]                     cond$call), session = sessionInformation(), 
  [14:28:05.332]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:05.332]                   signalCondition(cond)
  [14:28:05.332]                 }
  [14:28:05.332]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:05.332]                 "immediateCondition"))) {
  [14:28:05.332]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:05.332]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.332]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:05.332]                   if (TRUE && !signal) {
  [14:28:05.332]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.332]                     {
  [14:28:05.332]                       inherits <- base::inherits
  [14:28:05.332]                       invokeRestart <- base::invokeRestart
  [14:28:05.332]                       is.null <- base::is.null
  [14:28:05.332]                       muffled <- FALSE
  [14:28:05.332]                       if (inherits(cond, "message")) {
  [14:28:05.332]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.332]                         if (muffled) 
  [14:28:05.332]                           invokeRestart("muffleMessage")
  [14:28:05.332]                       }
  [14:28:05.332]                       else if (inherits(cond, "warning")) {
  [14:28:05.332]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.332]                         if (muffled) 
  [14:28:05.332]                           invokeRestart("muffleWarning")
  [14:28:05.332]                       }
  [14:28:05.332]                       else if (inherits(cond, "condition")) {
  [14:28:05.332]                         if (!is.null(pattern)) {
  [14:28:05.332]                           computeRestarts <- base::computeRestarts
  [14:28:05.332]                           grepl <- base::grepl
  [14:28:05.332]                           restarts <- computeRestarts(cond)
  [14:28:05.332]                           for (restart in restarts) {
  [14:28:05.332]                             name <- restart$name
  [14:28:05.332]                             if (is.null(name)) 
  [14:28:05.332]                               next
  [14:28:05.332]                             if (!grepl(pattern, name)) 
  [14:28:05.332]                               next
  [14:28:05.332]                             invokeRestart(restart)
  [14:28:05.332]                             muffled <- TRUE
  [14:28:05.332]                             break
  [14:28:05.332]                           }
  [14:28:05.332]                         }
  [14:28:05.332]                       }
  [14:28:05.332]                       invisible(muffled)
  [14:28:05.332]                     }
  [14:28:05.332]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.332]                   }
  [14:28:05.332]                 }
  [14:28:05.332]                 else {
  [14:28:05.332]                   if (TRUE) {
  [14:28:05.332]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.332]                     {
  [14:28:05.332]                       inherits <- base::inherits
  [14:28:05.332]                       invokeRestart <- base::invokeRestart
  [14:28:05.332]                       is.null <- base::is.null
  [14:28:05.332]                       muffled <- FALSE
  [14:28:05.332]                       if (inherits(cond, "message")) {
  [14:28:05.332]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.332]                         if (muffled) 
  [14:28:05.332]                           invokeRestart("muffleMessage")
  [14:28:05.332]                       }
  [14:28:05.332]                       else if (inherits(cond, "warning")) {
  [14:28:05.332]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.332]                         if (muffled) 
  [14:28:05.332]                           invokeRestart("muffleWarning")
  [14:28:05.332]                       }
  [14:28:05.332]                       else if (inherits(cond, "condition")) {
  [14:28:05.332]                         if (!is.null(pattern)) {
  [14:28:05.332]                           computeRestarts <- base::computeRestarts
  [14:28:05.332]                           grepl <- base::grepl
  [14:28:05.332]                           restarts <- computeRestarts(cond)
  [14:28:05.332]                           for (restart in restarts) {
  [14:28:05.332]                             name <- restart$name
  [14:28:05.332]                             if (is.null(name)) 
  [14:28:05.332]                               next
  [14:28:05.332]                             if (!grepl(pattern, name)) 
  [14:28:05.332]                               next
  [14:28:05.332]                             invokeRestart(restart)
  [14:28:05.332]                             muffled <- TRUE
  [14:28:05.332]                             break
  [14:28:05.332]                           }
  [14:28:05.332]                         }
  [14:28:05.332]                       }
  [14:28:05.332]                       invisible(muffled)
  [14:28:05.332]                     }
  [14:28:05.332]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.332]                   }
  [14:28:05.332]                 }
  [14:28:05.332]             }
  [14:28:05.332]         }))
  [14:28:05.332]     }, error = function(ex) {
  [14:28:05.332]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:05.332]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.332]                 ...future.rng), started = ...future.startTime, 
  [14:28:05.332]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:05.332]             version = "1.8"), class = "FutureResult")
  [14:28:05.332]     }, finally = {
  [14:28:05.332]         if (!identical(...future.workdir, getwd())) 
  [14:28:05.332]             setwd(...future.workdir)
  [14:28:05.332]         {
  [14:28:05.332]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:05.332]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:05.332]             }
  [14:28:05.332]             base::options(...future.oldOptions)
  [14:28:05.332]             if (.Platform$OS.type == "windows") {
  [14:28:05.332]                 old_names <- names(...future.oldEnvVars)
  [14:28:05.332]                 envs <- base::Sys.getenv()
  [14:28:05.332]                 names <- names(envs)
  [14:28:05.332]                 common <- intersect(names, old_names)
  [14:28:05.332]                 added <- setdiff(names, old_names)
  [14:28:05.332]                 removed <- setdiff(old_names, names)
  [14:28:05.332]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:05.332]                   envs[common]]
  [14:28:05.332]                 NAMES <- toupper(changed)
  [14:28:05.332]                 args <- list()
  [14:28:05.332]                 for (kk in seq_along(NAMES)) {
  [14:28:05.332]                   name <- changed[[kk]]
  [14:28:05.332]                   NAME <- NAMES[[kk]]
  [14:28:05.332]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.332]                     next
  [14:28:05.332]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.332]                 }
  [14:28:05.332]                 NAMES <- toupper(added)
  [14:28:05.332]                 for (kk in seq_along(NAMES)) {
  [14:28:05.332]                   name <- added[[kk]]
  [14:28:05.332]                   NAME <- NAMES[[kk]]
  [14:28:05.332]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.332]                     next
  [14:28:05.332]                   args[[name]] <- ""
  [14:28:05.332]                 }
  [14:28:05.332]                 NAMES <- toupper(removed)
  [14:28:05.332]                 for (kk in seq_along(NAMES)) {
  [14:28:05.332]                   name <- removed[[kk]]
  [14:28:05.332]                   NAME <- NAMES[[kk]]
  [14:28:05.332]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.332]                     next
  [14:28:05.332]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.332]                 }
  [14:28:05.332]                 if (length(args) > 0) 
  [14:28:05.332]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:05.332]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:05.332]             }
  [14:28:05.332]             else {
  [14:28:05.332]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:05.332]             }
  [14:28:05.332]             {
  [14:28:05.332]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:05.332]                   0L) {
  [14:28:05.332]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:05.332]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:05.332]                   base::options(opts)
  [14:28:05.332]                 }
  [14:28:05.332]                 {
  [14:28:05.332]                   {
  [14:28:05.332]                     NULL
  [14:28:05.332]                     RNGkind("Mersenne-Twister")
  [14:28:05.332]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:28:05.332]                       inherits = FALSE)
  [14:28:05.332]                   }
  [14:28:05.332]                   options(future.plan = NULL)
  [14:28:05.332]                   if (is.na(NA_character_)) 
  [14:28:05.332]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.332]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:05.332]                   future::plan(list(function (...) 
  [14:28:05.332]                   {
  [14:28:05.332]                     Future(1)
  [14:28:05.332]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:05.332]                 }
  [14:28:05.332]             }
  [14:28:05.332]         }
  [14:28:05.332]     })
  [14:28:05.332]     if (TRUE) {
  [14:28:05.332]         base::sink(type = "output", split = FALSE)
  [14:28:05.332]         if (TRUE) {
  [14:28:05.332]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:05.332]         }
  [14:28:05.332]         else {
  [14:28:05.332]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:05.332]         }
  [14:28:05.332]         base::close(...future.stdout)
  [14:28:05.332]         ...future.stdout <- NULL
  [14:28:05.332]     }
  [14:28:05.332]     ...future.result$conditions <- ...future.conditions
  [14:28:05.332]     ...future.result$finished <- base::Sys.time()
  [14:28:05.332]     ...future.result
  [14:28:05.332] }
  [14:28:05.339] plan(): Setting new future strategy stack:
  [14:28:05.339] List of future strategies:
  [14:28:05.339] 1. sequential:
  [14:28:05.339]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:05.339]    - tweaked: FALSE
  [14:28:05.339]    - call: NULL
  [14:28:05.340] plan(): nbrOfWorkers() = 1
  [14:28:05.342] plan(): Setting new future strategy stack:
  [14:28:05.343] List of future strategies:
  [14:28:05.343] 1. future:
  [14:28:05.343]    - args: function (..., workers = "<NULL>")
  [14:28:05.343]    - tweaked: FALSE
  [14:28:05.343]    - call: plan(foo)
  [14:28:05.343] plan(): nbrOfWorkers() = Inf
  [14:28:05.344] SequentialFuture started (and completed)
  [1] 42
  [14:28:05.345] getGlobalsAndPackages() ...
  [14:28:05.345] Searching for globals...
  [14:28:05.346] - globals found: [1] '{'
  [14:28:05.347] Searching for globals ... DONE
  [14:28:05.347] Resolving globals: FALSE
  [14:28:05.347] 
  [14:28:05.348] 
  [14:28:05.348] getGlobalsAndPackages() ... DONE
  [14:28:05.348] Packages needed by the future expression (n = 0): <none>
  [14:28:05.349] Packages needed by future strategies (n = 0): <none>
  [14:28:05.349] {
  [14:28:05.349]     {
  [14:28:05.349]         {
  [14:28:05.349]             ...future.startTime <- base::Sys.time()
  [14:28:05.349]             {
  [14:28:05.349]                 {
  [14:28:05.349]                   {
  [14:28:05.349]                     base::local({
  [14:28:05.349]                       has_future <- base::requireNamespace("future", 
  [14:28:05.349]                         quietly = TRUE)
  [14:28:05.349]                       if (has_future) {
  [14:28:05.349]                         ns <- base::getNamespace("future")
  [14:28:05.349]                         version <- ns[[".package"]][["version"]]
  [14:28:05.349]                         if (is.null(version)) 
  [14:28:05.349]                           version <- utils::packageVersion("future")
  [14:28:05.349]                       }
  [14:28:05.349]                       else {
  [14:28:05.349]                         version <- NULL
  [14:28:05.349]                       }
  [14:28:05.349]                       if (!has_future || version < "1.8.0") {
  [14:28:05.349]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:28:05.349]                           "", base::R.version$version.string), 
  [14:28:05.349]                           platform = base::sprintf("%s (%s-bit)", 
  [14:28:05.349]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:05.349]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:05.349]                             "release", "version")], collapse = " "), 
  [14:28:05.349]                           hostname = base::Sys.info()[["nodename"]])
  [14:28:05.349]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:05.349]                           info)
  [14:28:05.349]                         info <- base::paste(info, collapse = "; ")
  [14:28:05.349]                         if (!has_future) {
  [14:28:05.349]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:05.349]                             info)
  [14:28:05.349]                         }
  [14:28:05.349]                         else {
  [14:28:05.349]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:05.349]                             info, version)
  [14:28:05.349]                         }
  [14:28:05.349]                         base::stop(msg)
  [14:28:05.349]                       }
  [14:28:05.349]                     })
  [14:28:05.349]                   }
  [14:28:05.349]                   options(future.plan = NULL)
  [14:28:05.349]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.349]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:05.349]                 }
  [14:28:05.349]                 ...future.workdir <- getwd()
  [14:28:05.349]             }
  [14:28:05.349]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:05.349]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:05.349]         }
  [14:28:05.349]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:05.349]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:05.349]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:05.349]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:05.349]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:05.349]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:05.349]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:05.349]             base::names(...future.oldOptions))
  [14:28:05.349]     }
  [14:28:05.349]     if (FALSE) {
  [14:28:05.349]     }
  [14:28:05.349]     else {
  [14:28:05.349]         if (TRUE) {
  [14:28:05.349]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:05.349]                 open = "w")
  [14:28:05.349]         }
  [14:28:05.349]         else {
  [14:28:05.349]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:05.349]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:05.349]         }
  [14:28:05.349]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:05.349]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:05.349]             base::sink(type = "output", split = FALSE)
  [14:28:05.349]             base::close(...future.stdout)
  [14:28:05.349]         }, add = TRUE)
  [14:28:05.349]     }
  [14:28:05.349]     ...future.frame <- base::sys.nframe()
  [14:28:05.349]     ...future.conditions <- base::list()
  [14:28:05.349]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:05.349]     if (FALSE) {
  [14:28:05.349]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:05.349]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:05.349]     }
  [14:28:05.349]     ...future.result <- base::tryCatch({
  [14:28:05.349]         base::withCallingHandlers({
  [14:28:05.349]             ...future.value <- base::withVisible(base::local({
  [14:28:05.349]                 42L
  [14:28:05.349]             }))
  [14:28:05.349]             future::FutureResult(value = ...future.value$value, 
  [14:28:05.349]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.349]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:05.349]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:05.349]                     ...future.globalenv.names))
  [14:28:05.349]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:05.349]         }, condition = base::local({
  [14:28:05.349]             c <- base::c
  [14:28:05.349]             inherits <- base::inherits
  [14:28:05.349]             invokeRestart <- base::invokeRestart
  [14:28:05.349]             length <- base::length
  [14:28:05.349]             list <- base::list
  [14:28:05.349]             seq.int <- base::seq.int
  [14:28:05.349]             signalCondition <- base::signalCondition
  [14:28:05.349]             sys.calls <- base::sys.calls
  [14:28:05.349]             `[[` <- base::`[[`
  [14:28:05.349]             `+` <- base::`+`
  [14:28:05.349]             `<<-` <- base::`<<-`
  [14:28:05.349]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:05.349]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:05.349]                   3L)]
  [14:28:05.349]             }
  [14:28:05.349]             function(cond) {
  [14:28:05.349]                 is_error <- inherits(cond, "error")
  [14:28:05.349]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:05.349]                   NULL)
  [14:28:05.349]                 if (is_error) {
  [14:28:05.349]                   sessionInformation <- function() {
  [14:28:05.349]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:05.349]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:05.349]                       search = base::search(), system = base::Sys.info())
  [14:28:05.349]                   }
  [14:28:05.349]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.349]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:05.349]                     cond$call), session = sessionInformation(), 
  [14:28:05.349]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:05.349]                   signalCondition(cond)
  [14:28:05.349]                 }
  [14:28:05.349]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:05.349]                 "immediateCondition"))) {
  [14:28:05.349]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:05.349]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:05.349]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:05.349]                   if (TRUE && !signal) {
  [14:28:05.349]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.349]                     {
  [14:28:05.349]                       inherits <- base::inherits
  [14:28:05.349]                       invokeRestart <- base::invokeRestart
  [14:28:05.349]                       is.null <- base::is.null
  [14:28:05.349]                       muffled <- FALSE
  [14:28:05.349]                       if (inherits(cond, "message")) {
  [14:28:05.349]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.349]                         if (muffled) 
  [14:28:05.349]                           invokeRestart("muffleMessage")
  [14:28:05.349]                       }
  [14:28:05.349]                       else if (inherits(cond, "warning")) {
  [14:28:05.349]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.349]                         if (muffled) 
  [14:28:05.349]                           invokeRestart("muffleWarning")
  [14:28:05.349]                       }
  [14:28:05.349]                       else if (inherits(cond, "condition")) {
  [14:28:05.349]                         if (!is.null(pattern)) {
  [14:28:05.349]                           computeRestarts <- base::computeRestarts
  [14:28:05.349]                           grepl <- base::grepl
  [14:28:05.349]                           restarts <- computeRestarts(cond)
  [14:28:05.349]                           for (restart in restarts) {
  [14:28:05.349]                             name <- restart$name
  [14:28:05.349]                             if (is.null(name)) 
  [14:28:05.349]                               next
  [14:28:05.349]                             if (!grepl(pattern, name)) 
  [14:28:05.349]                               next
  [14:28:05.349]                             invokeRestart(restart)
  [14:28:05.349]                             muffled <- TRUE
  [14:28:05.349]                             break
  [14:28:05.349]                           }
  [14:28:05.349]                         }
  [14:28:05.349]                       }
  [14:28:05.349]                       invisible(muffled)
  [14:28:05.349]                     }
  [14:28:05.349]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.349]                   }
  [14:28:05.349]                 }
  [14:28:05.349]                 else {
  [14:28:05.349]                   if (TRUE) {
  [14:28:05.349]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:05.349]                     {
  [14:28:05.349]                       inherits <- base::inherits
  [14:28:05.349]                       invokeRestart <- base::invokeRestart
  [14:28:05.349]                       is.null <- base::is.null
  [14:28:05.349]                       muffled <- FALSE
  [14:28:05.349]                       if (inherits(cond, "message")) {
  [14:28:05.349]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:05.349]                         if (muffled) 
  [14:28:05.349]                           invokeRestart("muffleMessage")
  [14:28:05.349]                       }
  [14:28:05.349]                       else if (inherits(cond, "warning")) {
  [14:28:05.349]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:05.349]                         if (muffled) 
  [14:28:05.349]                           invokeRestart("muffleWarning")
  [14:28:05.349]                       }
  [14:28:05.349]                       else if (inherits(cond, "condition")) {
  [14:28:05.349]                         if (!is.null(pattern)) {
  [14:28:05.349]                           computeRestarts <- base::computeRestarts
  [14:28:05.349]                           grepl <- base::grepl
  [14:28:05.349]                           restarts <- computeRestarts(cond)
  [14:28:05.349]                           for (restart in restarts) {
  [14:28:05.349]                             name <- restart$name
  [14:28:05.349]                             if (is.null(name)) 
  [14:28:05.349]                               next
  [14:28:05.349]                             if (!grepl(pattern, name)) 
  [14:28:05.349]                               next
  [14:28:05.349]                             invokeRestart(restart)
  [14:28:05.349]                             muffled <- TRUE
  [14:28:05.349]                             break
  [14:28:05.349]                           }
  [14:28:05.349]                         }
  [14:28:05.349]                       }
  [14:28:05.349]                       invisible(muffled)
  [14:28:05.349]                     }
  [14:28:05.349]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:05.349]                   }
  [14:28:05.349]                 }
  [14:28:05.349]             }
  [14:28:05.349]         }))
  [14:28:05.349]     }, error = function(ex) {
  [14:28:05.349]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:05.349]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:05.349]                 ...future.rng), started = ...future.startTime, 
  [14:28:05.349]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:05.349]             version = "1.8"), class = "FutureResult")
  [14:28:05.349]     }, finally = {
  [14:28:05.349]         if (!identical(...future.workdir, getwd())) 
  [14:28:05.349]             setwd(...future.workdir)
  [14:28:05.349]         {
  [14:28:05.349]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:05.349]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:05.349]             }
  [14:28:05.349]             base::options(...future.oldOptions)
  [14:28:05.349]             if (.Platform$OS.type == "windows") {
  [14:28:05.349]                 old_names <- names(...future.oldEnvVars)
  [14:28:05.349]                 envs <- base::Sys.getenv()
  [14:28:05.349]                 names <- names(envs)
  [14:28:05.349]                 common <- intersect(names, old_names)
  [14:28:05.349]                 added <- setdiff(names, old_names)
  [14:28:05.349]                 removed <- setdiff(old_names, names)
  [14:28:05.349]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:05.349]                   envs[common]]
  [14:28:05.349]                 NAMES <- toupper(changed)
  [14:28:05.349]                 args <- list()
  [14:28:05.349]                 for (kk in seq_along(NAMES)) {
  [14:28:05.349]                   name <- changed[[kk]]
  [14:28:05.349]                   NAME <- NAMES[[kk]]
  [14:28:05.349]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.349]                     next
  [14:28:05.349]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.349]                 }
  [14:28:05.349]                 NAMES <- toupper(added)
  [14:28:05.349]                 for (kk in seq_along(NAMES)) {
  [14:28:05.349]                   name <- added[[kk]]
  [14:28:05.349]                   NAME <- NAMES[[kk]]
  [14:28:05.349]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.349]                     next
  [14:28:05.349]                   args[[name]] <- ""
  [14:28:05.349]                 }
  [14:28:05.349]                 NAMES <- toupper(removed)
  [14:28:05.349]                 for (kk in seq_along(NAMES)) {
  [14:28:05.349]                   name <- removed[[kk]]
  [14:28:05.349]                   NAME <- NAMES[[kk]]
  [14:28:05.349]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:05.349]                     next
  [14:28:05.349]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:05.349]                 }
  [14:28:05.349]                 if (length(args) > 0) 
  [14:28:05.349]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:05.349]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:05.349]             }
  [14:28:05.349]             else {
  [14:28:05.349]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:05.349]             }
  [14:28:05.349]             {
  [14:28:05.349]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:05.349]                   0L) {
  [14:28:05.349]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:05.349]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:05.349]                   base::options(opts)
  [14:28:05.349]                 }
  [14:28:05.349]                 {
  [14:28:05.349]                   {
  [14:28:05.349]                     NULL
  [14:28:05.349]                     RNGkind("Mersenne-Twister")
  [14:28:05.349]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:28:05.349]                       inherits = FALSE)
  [14:28:05.349]                   }
  [14:28:05.349]                   options(future.plan = NULL)
  [14:28:05.349]                   if (is.na(NA_character_)) 
  [14:28:05.349]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:05.349]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:05.349]                   future::plan(list(function (...) 
  [14:28:05.349]                   {
  [14:28:05.349]                     Future(1)
  [14:28:05.349]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:05.349]                 }
  [14:28:05.349]             }
  [14:28:05.349]         }
  [14:28:05.349]     })
  [14:28:05.349]     if (TRUE) {
  [14:28:05.349]         base::sink(type = "output", split = FALSE)
  [14:28:05.349]         if (TRUE) {
  [14:28:05.349]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:05.349]         }
  [14:28:05.349]         else {
  [14:28:05.349]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:05.349]         }
  [14:28:05.349]         base::close(...future.stdout)
  [14:28:05.349]         ...future.stdout <- NULL
  [14:28:05.349]     }
  [14:28:05.349]     ...future.result$conditions <- ...future.conditions
  [14:28:05.349]     ...future.result$finished <- base::Sys.time()
  [14:28:05.349]     ...future.result
  [14:28:05.349] }
  [14:28:05.355] plan(): Setting new future strategy stack:
  [14:28:05.356] List of future strategies:
  [14:28:05.356] 1. sequential:
  [14:28:05.356]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:05.356]    - tweaked: FALSE
  [14:28:05.356]    - call: NULL
  [14:28:05.357] plan(): nbrOfWorkers() = 1
  [14:28:05.362] plan(): Setting new future strategy stack:
  [14:28:05.362] List of future strategies:
  [14:28:05.362] 1. future:
  [14:28:05.362]    - args: function (..., workers = "<NULL>")
  [14:28:05.362]    - tweaked: FALSE
  [14:28:05.362]    - call: plan(foo)
  [14:28:05.363] plan(): nbrOfWorkers() = Inf
  [14:28:05.364] SequentialFuture started (and completed)
  [1] 42
  [14:28:05.367] getGlobalsAndPackages() ...
  [14:28:05.367] 
  [14:28:05.367] - globals: [0] <none>
  [14:28:05.367] getGlobalsAndPackages() ... DONE
  [14:28:05.368] [local output] makeClusterPSOCK() ...
  [14:28:05.414] [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:28:05.421] [local output] Base port: 30231
  [14:28:05.422] [local output] Getting setup options for 2 cluster nodes ...
  [14:28:05.422] [local output]  - Node 1 of 2 ...
  [14:28:05.423] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:28:05.425] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpAhQvny/worker.rank=1.parallelly.parent=162012.278dc192d57f8.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpAhQvny/worker.rank=1.parallelly.parent=162012.278dc192d57f8.pid\")"'
  [14:28:05.974] - Possible to infer worker's PID: TRUE
  [14:28:05.974] [local output] Rscript port: 30231
  
  [14:28:05.975] [local output]  - Node 2 of 2 ...
  [14:28:05.976] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:28:05.977] [local output] Rscript port: 30231
  
  [14:28:05.978] [local output] Getting setup options for 2 cluster nodes ... done
  [14:28:05.978] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:28:05.979] [local output] Setting up PSOCK nodes in parallel
  [14:28:05.979] List of 36
  [14:28:05.979]  $ worker          : chr "localhost"
  [14:28:05.979]   ..- attr(*, "localhost")= logi TRUE
  [14:28:05.979]  $ master          : chr "localhost"
  [14:28:05.979]  $ port            : int 30231
  [14:28:05.979]  $ connectTimeout  : num 120
  [14:28:05.979]  $ timeout         : num 120
  [14:28:05.979]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:28:05.979]  $ homogeneous     : logi TRUE
  [14:28:05.979]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=Future-class.R:162012:CRANWIN3:C"| __truncated__
  [14:28:05.979]  $ rscript_envs    : NULL
  [14:28:05.979]  $ rscript_libs    : NULL
  [14:28:05.979]  $ rscript_startup : NULL
  [14:28:05.979]  $ rscript_sh      : chr "cmd"
  [14:28:05.979]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:28:05.979]  $ methods         : logi TRUE
  [14:28:05.979]  $ socketOptions   : chr "no-delay"
  [14:28:05.979]  $ useXDR          : logi FALSE
  [14:28:05.979]  $ outfile         : chr "/dev/null"
  [14:28:05.979]  $ renice          : int NA
  [14:28:05.979]  $ rshcmd          : NULL
  [14:28:05.979]  $ user            : chr(0) 
  [14:28:05.979]  $ revtunnel       : logi FALSE
  [14:28:05.979]  $ rshlogfile      : NULL
  [14:28:05.979]  $ rshopts         : chr(0) 
  [14:28:05.979]  $ rank            : int 1
  [14:28:05.979]  $ manual          : logi FALSE
  [14:28:05.979]  $ dryrun          : logi FALSE
  [14:28:05.979]  $ quiet           : logi FALSE
  [14:28:05.979]  $ setup_strategy  : chr "parallel"
  [14:28:05.979]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:28:05.979]  $ pidfile         : chr "D:/temp/RtmpAhQvny/worker.rank=1.parallelly.parent=162012.278dc192d57f8.pid"
  [14:28:05.979]  $ rshcmd_label    : NULL
  [14:28:05.979]  $ rsh_call        : NULL
  [14:28:05.979]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:28:05.979]  $ localMachine    : logi TRUE
  [14:28:05.979]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:28:05.979]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:28:05.979]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:28:05.979]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:28:05.979]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:28:05.979]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:28:05.979]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:28:05.979]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:28:05.979]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:28:05.979]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:28:05.979]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:28:05.979]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:28:05.979]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:28:05.979]  $ arguments       :List of 28
  [14:28:05.979]   ..$ worker          : chr "localhost"
  [14:28:05.979]   ..$ master          : NULL
  [14:28:05.979]   ..$ port            : int 30231
  [14:28:05.979]   ..$ connectTimeout  : num 120
  [14:28:05.979]   ..$ timeout         : num 120
  [14:28:05.979]   ..$ rscript         : NULL
  [14:28:05.979]   ..$ homogeneous     : NULL
  [14:28:05.979]   ..$ rscript_args    : NULL
  [14:28:05.979]   ..$ rscript_envs    : NULL
  [14:28:05.979]   ..$ rscript_libs    : NULL
  [14:28:05.979]   ..$ rscript_startup : NULL
  [14:28:05.979]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:28:05.979]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:28:05.979]   ..$ methods         : logi TRUE
  [14:28:05.979]   ..$ socketOptions   : chr "no-delay"
  [14:28:05.979]   ..$ useXDR          : logi FALSE
  [14:28:05.979]   ..$ outfile         : chr "/dev/null"
  [14:28:05.979]   ..$ renice          : int NA
  [14:28:05.979]   ..$ rshcmd          : NULL
  [14:28:05.979]   ..$ user            : NULL
  [14:28:05.979]   ..$ revtunnel       : logi NA
  [14:28:05.979]   ..$ rshlogfile      : NULL
  [14:28:05.979]   ..$ rshopts         : NULL
  [14:28:05.979]   ..$ rank            : int 1
  [14:28:05.979]   ..$ manual          : logi FALSE
  [14:28:05.979]   ..$ dryrun          : logi FALSE
  [14:28:05.979]   ..$ quiet           : logi FALSE
  [14:28:05.979]   ..$ setup_strategy  : chr "parallel"
  [14:28:05.979]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:28:06.008] [local output] System call to launch all workers:
  [14:28:06.008] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=Future-class.R:162012:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpAhQvny/worker.rank=1.parallelly.parent=162012.278dc192d57f8.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=30231 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:28:06.008] [local output] Starting PSOCK main server
  [14:28:06.016] [local output] Workers launched
  [14:28:06.016] [local output] Waiting for workers to connect back
  [14:28:06.017]  - [local output] 0 workers out of 2 ready
  [14:28:06.241]  - [local output] 0 workers out of 2 ready
  [14:28:06.242]  - [local output] 1 workers out of 2 ready
  [14:28:06.250]  - [local output] 1 workers out of 2 ready
  [14:28:06.251]  - [local output] 2 workers out of 2 ready
  [14:28:06.251] [local output] Launching of workers completed
  [14:28:06.251] [local output] Collecting session information from workers
  [14:28:06.253] [local output]  - Worker #1 of 2
  [14:28:06.254] [local output]  - Worker #2 of 2
  [14:28:06.254] [local output] makeClusterPSOCK() ... done
  MultisessionFuture:
  Label: '<none>'
  Expression:
  {
      42L
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: 0x00000199de19a650
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 9236af42-4179-7966-1a07-182d6df05089
  Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:28:06.269] Packages needed by the future expression (n = 0): <none>
  [14:28:06.270] Packages needed by future strategies (n = 0): <none>
  [14:28:06.271] {
  [14:28:06.271]     {
  [14:28:06.271]         {
  [14:28:06.271]             ...future.startTime <- base::Sys.time()
  [14:28:06.271]             {
  [14:28:06.271]                 {
  [14:28:06.271]                   {
  [14:28:06.271]                     {
  [14:28:06.271]                       base::local({
  [14:28:06.271]                         has_future <- base::requireNamespace("future", 
  [14:28:06.271]                           quietly = TRUE)
  [14:28:06.271]                         if (has_future) {
  [14:28:06.271]                           ns <- base::getNamespace("future")
  [14:28:06.271]                           version <- ns[[".package"]][["version"]]
  [14:28:06.271]                           if (is.null(version)) 
  [14:28:06.271]                             version <- utils::packageVersion("future")
  [14:28:06.271]                         }
  [14:28:06.271]                         else {
  [14:28:06.271]                           version <- NULL
  [14:28:06.271]                         }
  [14:28:06.271]                         if (!has_future || version < "1.8.0") {
  [14:28:06.271]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:28:06.271]                             "", base::R.version$version.string), 
  [14:28:06.271]                             platform = base::sprintf("%s (%s-bit)", 
  [14:28:06.271]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:06.271]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:06.271]                               "release", "version")], collapse = " "), 
  [14:28:06.271]                             hostname = base::Sys.info()[["nodename"]])
  [14:28:06.271]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:06.271]                             info)
  [14:28:06.271]                           info <- base::paste(info, collapse = "; ")
  [14:28:06.271]                           if (!has_future) {
  [14:28:06.271]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:06.271]                               info)
  [14:28:06.271]                           }
  [14:28:06.271]                           else {
  [14:28:06.271]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:06.271]                               info, version)
  [14:28:06.271]                           }
  [14:28:06.271]                           base::stop(msg)
  [14:28:06.271]                         }
  [14:28:06.271]                       })
  [14:28:06.271]                     }
  [14:28:06.271]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:28:06.271]                     base::options(mc.cores = 1L)
  [14:28:06.271]                   }
  [14:28:06.271]                   options(future.plan = NULL)
  [14:28:06.271]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.271]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:06.271]                 }
  [14:28:06.271]                 ...future.workdir <- getwd()
  [14:28:06.271]             }
  [14:28:06.271]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:06.271]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:06.271]         }
  [14:28:06.271]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:06.271]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:06.271]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:06.271]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:06.271]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:06.271]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:06.271]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:06.271]             base::names(...future.oldOptions))
  [14:28:06.271]     }
  [14:28:06.271]     if (FALSE) {
  [14:28:06.271]     }
  [14:28:06.271]     else {
  [14:28:06.271]         if (TRUE) {
  [14:28:06.271]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:06.271]                 open = "w")
  [14:28:06.271]         }
  [14:28:06.271]         else {
  [14:28:06.271]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:06.271]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:06.271]         }
  [14:28:06.271]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:06.271]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:06.271]             base::sink(type = "output", split = FALSE)
  [14:28:06.271]             base::close(...future.stdout)
  [14:28:06.271]         }, add = TRUE)
  [14:28:06.271]     }
  [14:28:06.271]     ...future.frame <- base::sys.nframe()
  [14:28:06.271]     ...future.conditions <- base::list()
  [14:28:06.271]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:06.271]     if (FALSE) {
  [14:28:06.271]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:06.271]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:06.271]     }
  [14:28:06.271]     ...future.result <- base::tryCatch({
  [14:28:06.271]         base::withCallingHandlers({
  [14:28:06.271]             ...future.value <- base::withVisible(base::local({
  [14:28:06.271]                 ...future.makeSendCondition <- base::local({
  [14:28:06.271]                   sendCondition <- NULL
  [14:28:06.271]                   function(frame = 1L) {
  [14:28:06.271]                     if (is.function(sendCondition)) 
  [14:28:06.271]                       return(sendCondition)
  [14:28:06.271]                     ns <- getNamespace("parallel")
  [14:28:06.271]                     if (exists("sendData", mode = "function", 
  [14:28:06.271]                       envir = ns)) {
  [14:28:06.271]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:28:06.271]                         envir = ns)
  [14:28:06.271]                       envir <- sys.frame(frame)
  [14:28:06.271]                       master <- NULL
  [14:28:06.271]                       while (!identical(envir, .GlobalEnv) && 
  [14:28:06.271]                         !identical(envir, emptyenv())) {
  [14:28:06.271]                         if (exists("master", mode = "list", envir = envir, 
  [14:28:06.271]                           inherits = FALSE)) {
  [14:28:06.271]                           master <- get("master", mode = "list", 
  [14:28:06.271]                             envir = envir, inherits = FALSE)
  [14:28:06.271]                           if (inherits(master, c("SOCKnode", 
  [14:28:06.271]                             "SOCK0node"))) {
  [14:28:06.271]                             sendCondition <<- function(cond) {
  [14:28:06.271]                               data <- list(type = "VALUE", value = cond, 
  [14:28:06.271]                                 success = TRUE)
  [14:28:06.271]                               parallel_sendData(master, data)
  [14:28:06.271]                             }
  [14:28:06.271]                             return(sendCondition)
  [14:28:06.271]                           }
  [14:28:06.271]                         }
  [14:28:06.271]                         frame <- frame + 1L
  [14:28:06.271]                         envir <- sys.frame(frame)
  [14:28:06.271]                       }
  [14:28:06.271]                     }
  [14:28:06.271]                     sendCondition <<- function(cond) NULL
  [14:28:06.271]                   }
  [14:28:06.271]                 })
  [14:28:06.271]                 withCallingHandlers({
  [14:28:06.271]                   {
  [14:28:06.271]                     42L
  [14:28:06.271]                   }
  [14:28:06.271]                 }, immediateCondition = function(cond) {
  [14:28:06.271]                   sendCondition <- ...future.makeSendCondition()
  [14:28:06.271]                   sendCondition(cond)
  [14:28:06.271]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.271]                   {
  [14:28:06.271]                     inherits <- base::inherits
  [14:28:06.271]                     invokeRestart <- base::invokeRestart
  [14:28:06.271]                     is.null <- base::is.null
  [14:28:06.271]                     muffled <- FALSE
  [14:28:06.271]                     if (inherits(cond, "message")) {
  [14:28:06.271]                       muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.271]                       if (muffled) 
  [14:28:06.271]                         invokeRestart("muffleMessage")
  [14:28:06.271]                     }
  [14:28:06.271]                     else if (inherits(cond, "warning")) {
  [14:28:06.271]                       muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.271]                       if (muffled) 
  [14:28:06.271]                         invokeRestart("muffleWarning")
  [14:28:06.271]                     }
  [14:28:06.271]                     else if (inherits(cond, "condition")) {
  [14:28:06.271]                       if (!is.null(pattern)) {
  [14:28:06.271]                         computeRestarts <- base::computeRestarts
  [14:28:06.271]                         grepl <- base::grepl
  [14:28:06.271]                         restarts <- computeRestarts(cond)
  [14:28:06.271]                         for (restart in restarts) {
  [14:28:06.271]                           name <- restart$name
  [14:28:06.271]                           if (is.null(name)) 
  [14:28:06.271]                             next
  [14:28:06.271]                           if (!grepl(pattern, name)) 
  [14:28:06.271]                             next
  [14:28:06.271]                           invokeRestart(restart)
  [14:28:06.271]                           muffled <- TRUE
  [14:28:06.271]                           break
  [14:28:06.271]                         }
  [14:28:06.271]                       }
  [14:28:06.271]                     }
  [14:28:06.271]                     invisible(muffled)
  [14:28:06.271]                   }
  [14:28:06.271]                   muffleCondition(cond)
  [14:28:06.271]                 })
  [14:28:06.271]             }))
  [14:28:06.271]             future::FutureResult(value = ...future.value$value, 
  [14:28:06.271]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.271]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:06.271]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:06.271]                     ...future.globalenv.names))
  [14:28:06.271]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:06.271]         }, condition = base::local({
  [14:28:06.271]             c <- base::c
  [14:28:06.271]             inherits <- base::inherits
  [14:28:06.271]             invokeRestart <- base::invokeRestart
  [14:28:06.271]             length <- base::length
  [14:28:06.271]             list <- base::list
  [14:28:06.271]             seq.int <- base::seq.int
  [14:28:06.271]             signalCondition <- base::signalCondition
  [14:28:06.271]             sys.calls <- base::sys.calls
  [14:28:06.271]             `[[` <- base::`[[`
  [14:28:06.271]             `+` <- base::`+`
  [14:28:06.271]             `<<-` <- base::`<<-`
  [14:28:06.271]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:06.271]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:06.271]                   3L)]
  [14:28:06.271]             }
  [14:28:06.271]             function(cond) {
  [14:28:06.271]                 is_error <- inherits(cond, "error")
  [14:28:06.271]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:06.271]                   NULL)
  [14:28:06.271]                 if (is_error) {
  [14:28:06.271]                   sessionInformation <- function() {
  [14:28:06.271]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:06.271]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:06.271]                       search = base::search(), system = base::Sys.info())
  [14:28:06.271]                   }
  [14:28:06.271]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.271]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:06.271]                     cond$call), session = sessionInformation(), 
  [14:28:06.271]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:06.271]                   signalCondition(cond)
  [14:28:06.271]                 }
  [14:28:06.271]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:06.271]                 "immediateCondition"))) {
  [14:28:06.271]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:06.271]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.271]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:06.271]                   if (TRUE && !signal) {
  [14:28:06.271]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.271]                     {
  [14:28:06.271]                       inherits <- base::inherits
  [14:28:06.271]                       invokeRestart <- base::invokeRestart
  [14:28:06.271]                       is.null <- base::is.null
  [14:28:06.271]                       muffled <- FALSE
  [14:28:06.271]                       if (inherits(cond, "message")) {
  [14:28:06.271]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.271]                         if (muffled) 
  [14:28:06.271]                           invokeRestart("muffleMessage")
  [14:28:06.271]                       }
  [14:28:06.271]                       else if (inherits(cond, "warning")) {
  [14:28:06.271]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.271]                         if (muffled) 
  [14:28:06.271]                           invokeRestart("muffleWarning")
  [14:28:06.271]                       }
  [14:28:06.271]                       else if (inherits(cond, "condition")) {
  [14:28:06.271]                         if (!is.null(pattern)) {
  [14:28:06.271]                           computeRestarts <- base::computeRestarts
  [14:28:06.271]                           grepl <- base::grepl
  [14:28:06.271]                           restarts <- computeRestarts(cond)
  [14:28:06.271]                           for (restart in restarts) {
  [14:28:06.271]                             name <- restart$name
  [14:28:06.271]                             if (is.null(name)) 
  [14:28:06.271]                               next
  [14:28:06.271]                             if (!grepl(pattern, name)) 
  [14:28:06.271]                               next
  [14:28:06.271]                             invokeRestart(restart)
  [14:28:06.271]                             muffled <- TRUE
  [14:28:06.271]                             break
  [14:28:06.271]                           }
  [14:28:06.271]                         }
  [14:28:06.271]                       }
  [14:28:06.271]                       invisible(muffled)
  [14:28:06.271]                     }
  [14:28:06.271]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.271]                   }
  [14:28:06.271]                 }
  [14:28:06.271]                 else {
  [14:28:06.271]                   if (TRUE) {
  [14:28:06.271]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.271]                     {
  [14:28:06.271]                       inherits <- base::inherits
  [14:28:06.271]                       invokeRestart <- base::invokeRestart
  [14:28:06.271]                       is.null <- base::is.null
  [14:28:06.271]                       muffled <- FALSE
  [14:28:06.271]                       if (inherits(cond, "message")) {
  [14:28:06.271]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.271]                         if (muffled) 
  [14:28:06.271]                           invokeRestart("muffleMessage")
  [14:28:06.271]                       }
  [14:28:06.271]                       else if (inherits(cond, "warning")) {
  [14:28:06.271]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.271]                         if (muffled) 
  [14:28:06.271]                           invokeRestart("muffleWarning")
  [14:28:06.271]                       }
  [14:28:06.271]                       else if (inherits(cond, "condition")) {
  [14:28:06.271]                         if (!is.null(pattern)) {
  [14:28:06.271]                           computeRestarts <- base::computeRestarts
  [14:28:06.271]                           grepl <- base::grepl
  [14:28:06.271]                           restarts <- computeRestarts(cond)
  [14:28:06.271]                           for (restart in restarts) {
  [14:28:06.271]                             name <- restart$name
  [14:28:06.271]                             if (is.null(name)) 
  [14:28:06.271]                               next
  [14:28:06.271]                             if (!grepl(pattern, name)) 
  [14:28:06.271]                               next
  [14:28:06.271]                             invokeRestart(restart)
  [14:28:06.271]                             muffled <- TRUE
  [14:28:06.271]                             break
  [14:28:06.271]                           }
  [14:28:06.271]                         }
  [14:28:06.271]                       }
  [14:28:06.271]                       invisible(muffled)
  [14:28:06.271]                     }
  [14:28:06.271]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.271]                   }
  [14:28:06.271]                 }
  [14:28:06.271]             }
  [14:28:06.271]         }))
  [14:28:06.271]     }, error = function(ex) {
  [14:28:06.271]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:06.271]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.271]                 ...future.rng), started = ...future.startTime, 
  [14:28:06.271]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:06.271]             version = "1.8"), class = "FutureResult")
  [14:28:06.271]     }, finally = {
  [14:28:06.271]         if (!identical(...future.workdir, getwd())) 
  [14:28:06.271]             setwd(...future.workdir)
  [14:28:06.271]         {
  [14:28:06.271]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:06.271]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:06.271]             }
  [14:28:06.271]             base::options(...future.oldOptions)
  [14:28:06.271]             if (.Platform$OS.type == "windows") {
  [14:28:06.271]                 old_names <- names(...future.oldEnvVars)
  [14:28:06.271]                 envs <- base::Sys.getenv()
  [14:28:06.271]                 names <- names(envs)
  [14:28:06.271]                 common <- intersect(names, old_names)
  [14:28:06.271]                 added <- setdiff(names, old_names)
  [14:28:06.271]                 removed <- setdiff(old_names, names)
  [14:28:06.271]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:06.271]                   envs[common]]
  [14:28:06.271]                 NAMES <- toupper(changed)
  [14:28:06.271]                 args <- list()
  [14:28:06.271]                 for (kk in seq_along(NAMES)) {
  [14:28:06.271]                   name <- changed[[kk]]
  [14:28:06.271]                   NAME <- NAMES[[kk]]
  [14:28:06.271]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.271]                     next
  [14:28:06.271]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.271]                 }
  [14:28:06.271]                 NAMES <- toupper(added)
  [14:28:06.271]                 for (kk in seq_along(NAMES)) {
  [14:28:06.271]                   name <- added[[kk]]
  [14:28:06.271]                   NAME <- NAMES[[kk]]
  [14:28:06.271]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.271]                     next
  [14:28:06.271]                   args[[name]] <- ""
  [14:28:06.271]                 }
  [14:28:06.271]                 NAMES <- toupper(removed)
  [14:28:06.271]                 for (kk in seq_along(NAMES)) {
  [14:28:06.271]                   name <- removed[[kk]]
  [14:28:06.271]                   NAME <- NAMES[[kk]]
  [14:28:06.271]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.271]                     next
  [14:28:06.271]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.271]                 }
  [14:28:06.271]                 if (length(args) > 0) 
  [14:28:06.271]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:06.271]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:06.271]             }
  [14:28:06.271]             else {
  [14:28:06.271]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:06.271]             }
  [14:28:06.271]             {
  [14:28:06.271]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:06.271]                   0L) {
  [14:28:06.271]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:06.271]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:06.271]                   base::options(opts)
  [14:28:06.271]                 }
  [14:28:06.271]                 {
  [14:28:06.271]                   {
  [14:28:06.271]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:28:06.271]                     NULL
  [14:28:06.271]                   }
  [14:28:06.271]                   options(future.plan = NULL)
  [14:28:06.271]                   if (is.na(NA_character_)) 
  [14:28:06.271]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.271]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:06.271]                   future::plan(list(function (...) 
  [14:28:06.271]                   {
  [14:28:06.271]                     Future(1)
  [14:28:06.271]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:06.271]                 }
  [14:28:06.271]             }
  [14:28:06.271]         }
  [14:28:06.271]     })
  [14:28:06.271]     if (TRUE) {
  [14:28:06.271]         base::sink(type = "output", split = FALSE)
  [14:28:06.271]         if (TRUE) {
  [14:28:06.271]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:06.271]         }
  [14:28:06.271]         else {
  [14:28:06.271]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:06.271]         }
  [14:28:06.271]         base::close(...future.stdout)
  [14:28:06.271]         ...future.stdout <- NULL
  [14:28:06.271]     }
  [14:28:06.271]     ...future.result$conditions <- ...future.conditions
  [14:28:06.271]     ...future.result$finished <- base::Sys.time()
  [14:28:06.271]     ...future.result
  [14:28:06.271] }
  [14:28:06.375] MultisessionFuture started
  [14:28:06.376] result() for ClusterFuture ...
  [14:28:06.377] receiveMessageFromWorker() for ClusterFuture ...
  [14:28:06.377] - Validating connection of MultisessionFuture
  [14:28:06.447] - received message: FutureResult
  [14:28:06.447] - Received FutureResult
  [14:28:06.452] - Erased future from FutureRegistry
  [14:28:06.452] result() for ClusterFuture ...
  [14:28:06.452] - result already collected: FutureResult
  [14:28:06.452] result() for ClusterFuture ... done
  [14:28:06.453] receiveMessageFromWorker() for ClusterFuture ... done
  [14:28:06.453] result() for ClusterFuture ... done
  [14:28:06.453] result() for ClusterFuture ...
  [14:28:06.453] - result already collected: FutureResult
  [14:28:06.454] result() for ClusterFuture ... done
  [1] 42
  [14:28:06.455] getGlobalsAndPackages() ...
  [14:28:06.455] 
  [14:28:06.456] - globals: [0] <none>
  [14:28:06.456] getGlobalsAndPackages() ... DONE
  [14:28:06.469] Packages needed by the future expression (n = 0): <none>
  [14:28:06.469] Packages needed by future strategies (n = 0): <none>
  [14:28:06.470] {
  [14:28:06.470]     {
  [14:28:06.470]         {
  [14:28:06.470]             ...future.startTime <- base::Sys.time()
  [14:28:06.470]             {
  [14:28:06.470]                 {
  [14:28:06.470]                   {
  [14:28:06.470]                     {
  [14:28:06.470]                       base::local({
  [14:28:06.470]                         has_future <- base::requireNamespace("future", 
  [14:28:06.470]                           quietly = TRUE)
  [14:28:06.470]                         if (has_future) {
  [14:28:06.470]                           ns <- base::getNamespace("future")
  [14:28:06.470]                           version <- ns[[".package"]][["version"]]
  [14:28:06.470]                           if (is.null(version)) 
  [14:28:06.470]                             version <- utils::packageVersion("future")
  [14:28:06.470]                         }
  [14:28:06.470]                         else {
  [14:28:06.470]                           version <- NULL
  [14:28:06.470]                         }
  [14:28:06.470]                         if (!has_future || version < "1.8.0") {
  [14:28:06.470]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:28:06.470]                             "", base::R.version$version.string), 
  [14:28:06.470]                             platform = base::sprintf("%s (%s-bit)", 
  [14:28:06.470]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:06.470]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:06.470]                               "release", "version")], collapse = " "), 
  [14:28:06.470]                             hostname = base::Sys.info()[["nodename"]])
  [14:28:06.470]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:06.470]                             info)
  [14:28:06.470]                           info <- base::paste(info, collapse = "; ")
  [14:28:06.470]                           if (!has_future) {
  [14:28:06.470]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:06.470]                               info)
  [14:28:06.470]                           }
  [14:28:06.470]                           else {
  [14:28:06.470]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:06.470]                               info, version)
  [14:28:06.470]                           }
  [14:28:06.470]                           base::stop(msg)
  [14:28:06.470]                         }
  [14:28:06.470]                       })
  [14:28:06.470]                     }
  [14:28:06.470]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:28:06.470]                     base::options(mc.cores = 1L)
  [14:28:06.470]                   }
  [14:28:06.470]                   options(future.plan = NULL)
  [14:28:06.470]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.470]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:06.470]                 }
  [14:28:06.470]                 ...future.workdir <- getwd()
  [14:28:06.470]             }
  [14:28:06.470]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:06.470]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:06.470]         }
  [14:28:06.470]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:06.470]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:06.470]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:06.470]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:06.470]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:06.470]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:06.470]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:06.470]             base::names(...future.oldOptions))
  [14:28:06.470]     }
  [14:28:06.470]     if (FALSE) {
  [14:28:06.470]     }
  [14:28:06.470]     else {
  [14:28:06.470]         if (TRUE) {
  [14:28:06.470]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:06.470]                 open = "w")
  [14:28:06.470]         }
  [14:28:06.470]         else {
  [14:28:06.470]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:06.470]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:06.470]         }
  [14:28:06.470]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:06.470]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:06.470]             base::sink(type = "output", split = FALSE)
  [14:28:06.470]             base::close(...future.stdout)
  [14:28:06.470]         }, add = TRUE)
  [14:28:06.470]     }
  [14:28:06.470]     ...future.frame <- base::sys.nframe()
  [14:28:06.470]     ...future.conditions <- base::list()
  [14:28:06.470]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:06.470]     if (FALSE) {
  [14:28:06.470]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:06.470]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:06.470]     }
  [14:28:06.470]     ...future.result <- base::tryCatch({
  [14:28:06.470]         base::withCallingHandlers({
  [14:28:06.470]             ...future.value <- base::withVisible(base::local({
  [14:28:06.470]                 ...future.makeSendCondition <- base::local({
  [14:28:06.470]                   sendCondition <- NULL
  [14:28:06.470]                   function(frame = 1L) {
  [14:28:06.470]                     if (is.function(sendCondition)) 
  [14:28:06.470]                       return(sendCondition)
  [14:28:06.470]                     ns <- getNamespace("parallel")
  [14:28:06.470]                     if (exists("sendData", mode = "function", 
  [14:28:06.470]                       envir = ns)) {
  [14:28:06.470]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:28:06.470]                         envir = ns)
  [14:28:06.470]                       envir <- sys.frame(frame)
  [14:28:06.470]                       master <- NULL
  [14:28:06.470]                       while (!identical(envir, .GlobalEnv) && 
  [14:28:06.470]                         !identical(envir, emptyenv())) {
  [14:28:06.470]                         if (exists("master", mode = "list", envir = envir, 
  [14:28:06.470]                           inherits = FALSE)) {
  [14:28:06.470]                           master <- get("master", mode = "list", 
  [14:28:06.470]                             envir = envir, inherits = FALSE)
  [14:28:06.470]                           if (inherits(master, c("SOCKnode", 
  [14:28:06.470]                             "SOCK0node"))) {
  [14:28:06.470]                             sendCondition <<- function(cond) {
  [14:28:06.470]                               data <- list(type = "VALUE", value = cond, 
  [14:28:06.470]                                 success = TRUE)
  [14:28:06.470]                               parallel_sendData(master, data)
  [14:28:06.470]                             }
  [14:28:06.470]                             return(sendCondition)
  [14:28:06.470]                           }
  [14:28:06.470]                         }
  [14:28:06.470]                         frame <- frame + 1L
  [14:28:06.470]                         envir <- sys.frame(frame)
  [14:28:06.470]                       }
  [14:28:06.470]                     }
  [14:28:06.470]                     sendCondition <<- function(cond) NULL
  [14:28:06.470]                   }
  [14:28:06.470]                 })
  [14:28:06.470]                 withCallingHandlers({
  [14:28:06.470]                   {
  [14:28:06.470]                     42L
  [14:28:06.470]                   }
  [14:28:06.470]                 }, immediateCondition = function(cond) {
  [14:28:06.470]                   sendCondition <- ...future.makeSendCondition()
  [14:28:06.470]                   sendCondition(cond)
  [14:28:06.470]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.470]                   {
  [14:28:06.470]                     inherits <- base::inherits
  [14:28:06.470]                     invokeRestart <- base::invokeRestart
  [14:28:06.470]                     is.null <- base::is.null
  [14:28:06.470]                     muffled <- FALSE
  [14:28:06.470]                     if (inherits(cond, "message")) {
  [14:28:06.470]                       muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.470]                       if (muffled) 
  [14:28:06.470]                         invokeRestart("muffleMessage")
  [14:28:06.470]                     }
  [14:28:06.470]                     else if (inherits(cond, "warning")) {
  [14:28:06.470]                       muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.470]                       if (muffled) 
  [14:28:06.470]                         invokeRestart("muffleWarning")
  [14:28:06.470]                     }
  [14:28:06.470]                     else if (inherits(cond, "condition")) {
  [14:28:06.470]                       if (!is.null(pattern)) {
  [14:28:06.470]                         computeRestarts <- base::computeRestarts
  [14:28:06.470]                         grepl <- base::grepl
  [14:28:06.470]                         restarts <- computeRestarts(cond)
  [14:28:06.470]                         for (restart in restarts) {
  [14:28:06.470]                           name <- restart$name
  [14:28:06.470]                           if (is.null(name)) 
  [14:28:06.470]                             next
  [14:28:06.470]                           if (!grepl(pattern, name)) 
  [14:28:06.470]                             next
  [14:28:06.470]                           invokeRestart(restart)
  [14:28:06.470]                           muffled <- TRUE
  [14:28:06.470]                           break
  [14:28:06.470]                         }
  [14:28:06.470]                       }
  [14:28:06.470]                     }
  [14:28:06.470]                     invisible(muffled)
  [14:28:06.470]                   }
  [14:28:06.470]                   muffleCondition(cond)
  [14:28:06.470]                 })
  [14:28:06.470]             }))
  [14:28:06.470]             future::FutureResult(value = ...future.value$value, 
  [14:28:06.470]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.470]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:06.470]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:06.470]                     ...future.globalenv.names))
  [14:28:06.470]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:06.470]         }, condition = base::local({
  [14:28:06.470]             c <- base::c
  [14:28:06.470]             inherits <- base::inherits
  [14:28:06.470]             invokeRestart <- base::invokeRestart
  [14:28:06.470]             length <- base::length
  [14:28:06.470]             list <- base::list
  [14:28:06.470]             seq.int <- base::seq.int
  [14:28:06.470]             signalCondition <- base::signalCondition
  [14:28:06.470]             sys.calls <- base::sys.calls
  [14:28:06.470]             `[[` <- base::`[[`
  [14:28:06.470]             `+` <- base::`+`
  [14:28:06.470]             `<<-` <- base::`<<-`
  [14:28:06.470]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:06.470]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:06.470]                   3L)]
  [14:28:06.470]             }
  [14:28:06.470]             function(cond) {
  [14:28:06.470]                 is_error <- inherits(cond, "error")
  [14:28:06.470]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:06.470]                   NULL)
  [14:28:06.470]                 if (is_error) {
  [14:28:06.470]                   sessionInformation <- function() {
  [14:28:06.470]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:06.470]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:06.470]                       search = base::search(), system = base::Sys.info())
  [14:28:06.470]                   }
  [14:28:06.470]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.470]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:06.470]                     cond$call), session = sessionInformation(), 
  [14:28:06.470]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:06.470]                   signalCondition(cond)
  [14:28:06.470]                 }
  [14:28:06.470]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:06.470]                 "immediateCondition"))) {
  [14:28:06.470]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:06.470]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.470]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:06.470]                   if (TRUE && !signal) {
  [14:28:06.470]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.470]                     {
  [14:28:06.470]                       inherits <- base::inherits
  [14:28:06.470]                       invokeRestart <- base::invokeRestart
  [14:28:06.470]                       is.null <- base::is.null
  [14:28:06.470]                       muffled <- FALSE
  [14:28:06.470]                       if (inherits(cond, "message")) {
  [14:28:06.470]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.470]                         if (muffled) 
  [14:28:06.470]                           invokeRestart("muffleMessage")
  [14:28:06.470]                       }
  [14:28:06.470]                       else if (inherits(cond, "warning")) {
  [14:28:06.470]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.470]                         if (muffled) 
  [14:28:06.470]                           invokeRestart("muffleWarning")
  [14:28:06.470]                       }
  [14:28:06.470]                       else if (inherits(cond, "condition")) {
  [14:28:06.470]                         if (!is.null(pattern)) {
  [14:28:06.470]                           computeRestarts <- base::computeRestarts
  [14:28:06.470]                           grepl <- base::grepl
  [14:28:06.470]                           restarts <- computeRestarts(cond)
  [14:28:06.470]                           for (restart in restarts) {
  [14:28:06.470]                             name <- restart$name
  [14:28:06.470]                             if (is.null(name)) 
  [14:28:06.470]                               next
  [14:28:06.470]                             if (!grepl(pattern, name)) 
  [14:28:06.470]                               next
  [14:28:06.470]                             invokeRestart(restart)
  [14:28:06.470]                             muffled <- TRUE
  [14:28:06.470]                             break
  [14:28:06.470]                           }
  [14:28:06.470]                         }
  [14:28:06.470]                       }
  [14:28:06.470]                       invisible(muffled)
  [14:28:06.470]                     }
  [14:28:06.470]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.470]                   }
  [14:28:06.470]                 }
  [14:28:06.470]                 else {
  [14:28:06.470]                   if (TRUE) {
  [14:28:06.470]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.470]                     {
  [14:28:06.470]                       inherits <- base::inherits
  [14:28:06.470]                       invokeRestart <- base::invokeRestart
  [14:28:06.470]                       is.null <- base::is.null
  [14:28:06.470]                       muffled <- FALSE
  [14:28:06.470]                       if (inherits(cond, "message")) {
  [14:28:06.470]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.470]                         if (muffled) 
  [14:28:06.470]                           invokeRestart("muffleMessage")
  [14:28:06.470]                       }
  [14:28:06.470]                       else if (inherits(cond, "warning")) {
  [14:28:06.470]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.470]                         if (muffled) 
  [14:28:06.470]                           invokeRestart("muffleWarning")
  [14:28:06.470]                       }
  [14:28:06.470]                       else if (inherits(cond, "condition")) {
  [14:28:06.470]                         if (!is.null(pattern)) {
  [14:28:06.470]                           computeRestarts <- base::computeRestarts
  [14:28:06.470]                           grepl <- base::grepl
  [14:28:06.470]                           restarts <- computeRestarts(cond)
  [14:28:06.470]                           for (restart in restarts) {
  [14:28:06.470]                             name <- restart$name
  [14:28:06.470]                             if (is.null(name)) 
  [14:28:06.470]                               next
  [14:28:06.470]                             if (!grepl(pattern, name)) 
  [14:28:06.470]                               next
  [14:28:06.470]                             invokeRestart(restart)
  [14:28:06.470]                             muffled <- TRUE
  [14:28:06.470]                             break
  [14:28:06.470]                           }
  [14:28:06.470]                         }
  [14:28:06.470]                       }
  [14:28:06.470]                       invisible(muffled)
  [14:28:06.470]                     }
  [14:28:06.470]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.470]                   }
  [14:28:06.470]                 }
  [14:28:06.470]             }
  [14:28:06.470]         }))
  [14:28:06.470]     }, error = function(ex) {
  [14:28:06.470]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:06.470]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.470]                 ...future.rng), started = ...future.startTime, 
  [14:28:06.470]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:06.470]             version = "1.8"), class = "FutureResult")
  [14:28:06.470]     }, finally = {
  [14:28:06.470]         if (!identical(...future.workdir, getwd())) 
  [14:28:06.470]             setwd(...future.workdir)
  [14:28:06.470]         {
  [14:28:06.470]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:06.470]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:06.470]             }
  [14:28:06.470]             base::options(...future.oldOptions)
  [14:28:06.470]             if (.Platform$OS.type == "windows") {
  [14:28:06.470]                 old_names <- names(...future.oldEnvVars)
  [14:28:06.470]                 envs <- base::Sys.getenv()
  [14:28:06.470]                 names <- names(envs)
  [14:28:06.470]                 common <- intersect(names, old_names)
  [14:28:06.470]                 added <- setdiff(names, old_names)
  [14:28:06.470]                 removed <- setdiff(old_names, names)
  [14:28:06.470]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:06.470]                   envs[common]]
  [14:28:06.470]                 NAMES <- toupper(changed)
  [14:28:06.470]                 args <- list()
  [14:28:06.470]                 for (kk in seq_along(NAMES)) {
  [14:28:06.470]                   name <- changed[[kk]]
  [14:28:06.470]                   NAME <- NAMES[[kk]]
  [14:28:06.470]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.470]                     next
  [14:28:06.470]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.470]                 }
  [14:28:06.470]                 NAMES <- toupper(added)
  [14:28:06.470]                 for (kk in seq_along(NAMES)) {
  [14:28:06.470]                   name <- added[[kk]]
  [14:28:06.470]                   NAME <- NAMES[[kk]]
  [14:28:06.470]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.470]                     next
  [14:28:06.470]                   args[[name]] <- ""
  [14:28:06.470]                 }
  [14:28:06.470]                 NAMES <- toupper(removed)
  [14:28:06.470]                 for (kk in seq_along(NAMES)) {
  [14:28:06.470]                   name <- removed[[kk]]
  [14:28:06.470]                   NAME <- NAMES[[kk]]
  [14:28:06.470]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.470]                     next
  [14:28:06.470]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.470]                 }
  [14:28:06.470]                 if (length(args) > 0) 
  [14:28:06.470]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:06.470]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:06.470]             }
  [14:28:06.470]             else {
  [14:28:06.470]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:06.470]             }
  [14:28:06.470]             {
  [14:28:06.470]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:06.470]                   0L) {
  [14:28:06.470]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:06.470]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:06.470]                   base::options(opts)
  [14:28:06.470]                 }
  [14:28:06.470]                 {
  [14:28:06.470]                   {
  [14:28:06.470]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:28:06.470]                     NULL
  [14:28:06.470]                   }
  [14:28:06.470]                   options(future.plan = NULL)
  [14:28:06.470]                   if (is.na(NA_character_)) 
  [14:28:06.470]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.470]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:06.470]                   future::plan(list(function (...) 
  [14:28:06.470]                   {
  [14:28:06.470]                     Future(1)
  [14:28:06.470]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:06.470]                 }
  [14:28:06.470]             }
  [14:28:06.470]         }
  [14:28:06.470]     })
  [14:28:06.470]     if (TRUE) {
  [14:28:06.470]         base::sink(type = "output", split = FALSE)
  [14:28:06.470]         if (TRUE) {
  [14:28:06.470]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:06.470]         }
  [14:28:06.470]         else {
  [14:28:06.470]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:06.470]         }
  [14:28:06.470]         base::close(...future.stdout)
  [14:28:06.470]         ...future.stdout <- NULL
  [14:28:06.470]     }
  [14:28:06.470]     ...future.result$conditions <- ...future.conditions
  [14:28:06.470]     ...future.result$finished <- base::Sys.time()
  [14:28:06.470]     ...future.result
  [14:28:06.470] }
  [14:28:06.478] MultisessionFuture started
  [14:28:06.478] result() for ClusterFuture ...
  [14:28:06.478] receiveMessageFromWorker() for ClusterFuture ...
  [14:28:06.478] - Validating connection of MultisessionFuture
  [14:28:06.504] - received message: FutureResult
  [14:28:06.504] - Received FutureResult
  [14:28:06.505] - Erased future from FutureRegistry
  [14:28:06.505] result() for ClusterFuture ...
  [14:28:06.505] - result already collected: FutureResult
  [14:28:06.506] result() for ClusterFuture ... done
  [14:28:06.506] receiveMessageFromWorker() for ClusterFuture ... done
  [14:28:06.506] result() for ClusterFuture ... done
  [14:28:06.506] result() for ClusterFuture ...
  [14:28:06.507] - result already collected: FutureResult
  [14:28:06.507] result() for ClusterFuture ... done
  [1] 42
  [14:28:06.507] getGlobalsAndPackages() ...
  [14:28:06.507] Searching for globals...
  [14:28:06.509] - globals found: [1] '{'
  [14:28:06.509] Searching for globals ... DONE
  [14:28:06.509] Resolving globals: FALSE
  [14:28:06.510] 
  [14:28:06.510] 
  [14:28:06.510] getGlobalsAndPackages() ... DONE
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      42L
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 9236af42-4179-7966-1a07-182d6df05089
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:28:06.511] Packages needed by the future expression (n = 0): <none>
  [14:28:06.511] Packages needed by future strategies (n = 0): <none>
  [14:28:06.512] {
  [14:28:06.512]     {
  [14:28:06.512]         {
  [14:28:06.512]             ...future.startTime <- base::Sys.time()
  [14:28:06.512]             {
  [14:28:06.512]                 {
  [14:28:06.512]                   {
  [14:28:06.512]                     base::local({
  [14:28:06.512]                       has_future <- base::requireNamespace("future", 
  [14:28:06.512]                         quietly = TRUE)
  [14:28:06.512]                       if (has_future) {
  [14:28:06.512]                         ns <- base::getNamespace("future")
  [14:28:06.512]                         version <- ns[[".package"]][["version"]]
  [14:28:06.512]                         if (is.null(version)) 
  [14:28:06.512]                           version <- utils::packageVersion("future")
  [14:28:06.512]                       }
  [14:28:06.512]                       else {
  [14:28:06.512]                         version <- NULL
  [14:28:06.512]                       }
  [14:28:06.512]                       if (!has_future || version < "1.8.0") {
  [14:28:06.512]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:28:06.512]                           "", base::R.version$version.string), 
  [14:28:06.512]                           platform = base::sprintf("%s (%s-bit)", 
  [14:28:06.512]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:06.512]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:06.512]                             "release", "version")], collapse = " "), 
  [14:28:06.512]                           hostname = base::Sys.info()[["nodename"]])
  [14:28:06.512]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:06.512]                           info)
  [14:28:06.512]                         info <- base::paste(info, collapse = "; ")
  [14:28:06.512]                         if (!has_future) {
  [14:28:06.512]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:06.512]                             info)
  [14:28:06.512]                         }
  [14:28:06.512]                         else {
  [14:28:06.512]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:06.512]                             info, version)
  [14:28:06.512]                         }
  [14:28:06.512]                         base::stop(msg)
  [14:28:06.512]                       }
  [14:28:06.512]                     })
  [14:28:06.512]                   }
  [14:28:06.512]                   options(future.plan = NULL)
  [14:28:06.512]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.512]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:06.512]                 }
  [14:28:06.512]                 ...future.workdir <- getwd()
  [14:28:06.512]             }
  [14:28:06.512]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:06.512]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:06.512]         }
  [14:28:06.512]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:06.512]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:06.512]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:06.512]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:06.512]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:06.512]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:06.512]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:06.512]             base::names(...future.oldOptions))
  [14:28:06.512]     }
  [14:28:06.512]     if (FALSE) {
  [14:28:06.512]     }
  [14:28:06.512]     else {
  [14:28:06.512]         if (TRUE) {
  [14:28:06.512]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:06.512]                 open = "w")
  [14:28:06.512]         }
  [14:28:06.512]         else {
  [14:28:06.512]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:06.512]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:06.512]         }
  [14:28:06.512]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:06.512]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:06.512]             base::sink(type = "output", split = FALSE)
  [14:28:06.512]             base::close(...future.stdout)
  [14:28:06.512]         }, add = TRUE)
  [14:28:06.512]     }
  [14:28:06.512]     ...future.frame <- base::sys.nframe()
  [14:28:06.512]     ...future.conditions <- base::list()
  [14:28:06.512]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:06.512]     if (FALSE) {
  [14:28:06.512]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:06.512]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:06.512]     }
  [14:28:06.512]     ...future.result <- base::tryCatch({
  [14:28:06.512]         base::withCallingHandlers({
  [14:28:06.512]             ...future.value <- base::withVisible(base::local({
  [14:28:06.512]                 42L
  [14:28:06.512]             }))
  [14:28:06.512]             future::FutureResult(value = ...future.value$value, 
  [14:28:06.512]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.512]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:06.512]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:06.512]                     ...future.globalenv.names))
  [14:28:06.512]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:06.512]         }, condition = base::local({
  [14:28:06.512]             c <- base::c
  [14:28:06.512]             inherits <- base::inherits
  [14:28:06.512]             invokeRestart <- base::invokeRestart
  [14:28:06.512]             length <- base::length
  [14:28:06.512]             list <- base::list
  [14:28:06.512]             seq.int <- base::seq.int
  [14:28:06.512]             signalCondition <- base::signalCondition
  [14:28:06.512]             sys.calls <- base::sys.calls
  [14:28:06.512]             `[[` <- base::`[[`
  [14:28:06.512]             `+` <- base::`+`
  [14:28:06.512]             `<<-` <- base::`<<-`
  [14:28:06.512]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:06.512]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:06.512]                   3L)]
  [14:28:06.512]             }
  [14:28:06.512]             function(cond) {
  [14:28:06.512]                 is_error <- inherits(cond, "error")
  [14:28:06.512]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:06.512]                   NULL)
  [14:28:06.512]                 if (is_error) {
  [14:28:06.512]                   sessionInformation <- function() {
  [14:28:06.512]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:06.512]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:06.512]                       search = base::search(), system = base::Sys.info())
  [14:28:06.512]                   }
  [14:28:06.512]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.512]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:06.512]                     cond$call), session = sessionInformation(), 
  [14:28:06.512]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:06.512]                   signalCondition(cond)
  [14:28:06.512]                 }
  [14:28:06.512]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:06.512]                 "immediateCondition"))) {
  [14:28:06.512]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:06.512]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.512]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:06.512]                   if (TRUE && !signal) {
  [14:28:06.512]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.512]                     {
  [14:28:06.512]                       inherits <- base::inherits
  [14:28:06.512]                       invokeRestart <- base::invokeRestart
  [14:28:06.512]                       is.null <- base::is.null
  [14:28:06.512]                       muffled <- FALSE
  [14:28:06.512]                       if (inherits(cond, "message")) {
  [14:28:06.512]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.512]                         if (muffled) 
  [14:28:06.512]                           invokeRestart("muffleMessage")
  [14:28:06.512]                       }
  [14:28:06.512]                       else if (inherits(cond, "warning")) {
  [14:28:06.512]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.512]                         if (muffled) 
  [14:28:06.512]                           invokeRestart("muffleWarning")
  [14:28:06.512]                       }
  [14:28:06.512]                       else if (inherits(cond, "condition")) {
  [14:28:06.512]                         if (!is.null(pattern)) {
  [14:28:06.512]                           computeRestarts <- base::computeRestarts
  [14:28:06.512]                           grepl <- base::grepl
  [14:28:06.512]                           restarts <- computeRestarts(cond)
  [14:28:06.512]                           for (restart in restarts) {
  [14:28:06.512]                             name <- restart$name
  [14:28:06.512]                             if (is.null(name)) 
  [14:28:06.512]                               next
  [14:28:06.512]                             if (!grepl(pattern, name)) 
  [14:28:06.512]                               next
  [14:28:06.512]                             invokeRestart(restart)
  [14:28:06.512]                             muffled <- TRUE
  [14:28:06.512]                             break
  [14:28:06.512]                           }
  [14:28:06.512]                         }
  [14:28:06.512]                       }
  [14:28:06.512]                       invisible(muffled)
  [14:28:06.512]                     }
  [14:28:06.512]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.512]                   }
  [14:28:06.512]                 }
  [14:28:06.512]                 else {
  [14:28:06.512]                   if (TRUE) {
  [14:28:06.512]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.512]                     {
  [14:28:06.512]                       inherits <- base::inherits
  [14:28:06.512]                       invokeRestart <- base::invokeRestart
  [14:28:06.512]                       is.null <- base::is.null
  [14:28:06.512]                       muffled <- FALSE
  [14:28:06.512]                       if (inherits(cond, "message")) {
  [14:28:06.512]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.512]                         if (muffled) 
  [14:28:06.512]                           invokeRestart("muffleMessage")
  [14:28:06.512]                       }
  [14:28:06.512]                       else if (inherits(cond, "warning")) {
  [14:28:06.512]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.512]                         if (muffled) 
  [14:28:06.512]                           invokeRestart("muffleWarning")
  [14:28:06.512]                       }
  [14:28:06.512]                       else if (inherits(cond, "condition")) {
  [14:28:06.512]                         if (!is.null(pattern)) {
  [14:28:06.512]                           computeRestarts <- base::computeRestarts
  [14:28:06.512]                           grepl <- base::grepl
  [14:28:06.512]                           restarts <- computeRestarts(cond)
  [14:28:06.512]                           for (restart in restarts) {
  [14:28:06.512]                             name <- restart$name
  [14:28:06.512]                             if (is.null(name)) 
  [14:28:06.512]                               next
  [14:28:06.512]                             if (!grepl(pattern, name)) 
  [14:28:06.512]                               next
  [14:28:06.512]                             invokeRestart(restart)
  [14:28:06.512]                             muffled <- TRUE
  [14:28:06.512]                             break
  [14:28:06.512]                           }
  [14:28:06.512]                         }
  [14:28:06.512]                       }
  [14:28:06.512]                       invisible(muffled)
  [14:28:06.512]                     }
  [14:28:06.512]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.512]                   }
  [14:28:06.512]                 }
  [14:28:06.512]             }
  [14:28:06.512]         }))
  [14:28:06.512]     }, error = function(ex) {
  [14:28:06.512]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:06.512]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.512]                 ...future.rng), started = ...future.startTime, 
  [14:28:06.512]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:06.512]             version = "1.8"), class = "FutureResult")
  [14:28:06.512]     }, finally = {
  [14:28:06.512]         if (!identical(...future.workdir, getwd())) 
  [14:28:06.512]             setwd(...future.workdir)
  [14:28:06.512]         {
  [14:28:06.512]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:06.512]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:06.512]             }
  [14:28:06.512]             base::options(...future.oldOptions)
  [14:28:06.512]             if (.Platform$OS.type == "windows") {
  [14:28:06.512]                 old_names <- names(...future.oldEnvVars)
  [14:28:06.512]                 envs <- base::Sys.getenv()
  [14:28:06.512]                 names <- names(envs)
  [14:28:06.512]                 common <- intersect(names, old_names)
  [14:28:06.512]                 added <- setdiff(names, old_names)
  [14:28:06.512]                 removed <- setdiff(old_names, names)
  [14:28:06.512]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:06.512]                   envs[common]]
  [14:28:06.512]                 NAMES <- toupper(changed)
  [14:28:06.512]                 args <- list()
  [14:28:06.512]                 for (kk in seq_along(NAMES)) {
  [14:28:06.512]                   name <- changed[[kk]]
  [14:28:06.512]                   NAME <- NAMES[[kk]]
  [14:28:06.512]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.512]                     next
  [14:28:06.512]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.512]                 }
  [14:28:06.512]                 NAMES <- toupper(added)
  [14:28:06.512]                 for (kk in seq_along(NAMES)) {
  [14:28:06.512]                   name <- added[[kk]]
  [14:28:06.512]                   NAME <- NAMES[[kk]]
  [14:28:06.512]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.512]                     next
  [14:28:06.512]                   args[[name]] <- ""
  [14:28:06.512]                 }
  [14:28:06.512]                 NAMES <- toupper(removed)
  [14:28:06.512]                 for (kk in seq_along(NAMES)) {
  [14:28:06.512]                   name <- removed[[kk]]
  [14:28:06.512]                   NAME <- NAMES[[kk]]
  [14:28:06.512]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.512]                     next
  [14:28:06.512]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.512]                 }
  [14:28:06.512]                 if (length(args) > 0) 
  [14:28:06.512]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:06.512]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:06.512]             }
  [14:28:06.512]             else {
  [14:28:06.512]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:06.512]             }
  [14:28:06.512]             {
  [14:28:06.512]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:06.512]                   0L) {
  [14:28:06.512]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:06.512]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:06.512]                   base::options(opts)
  [14:28:06.512]                 }
  [14:28:06.512]                 {
  [14:28:06.512]                   {
  [14:28:06.512]                     NULL
  [14:28:06.512]                     RNGkind("Mersenne-Twister")
  [14:28:06.512]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:28:06.512]                       inherits = FALSE)
  [14:28:06.512]                   }
  [14:28:06.512]                   options(future.plan = NULL)
  [14:28:06.512]                   if (is.na(NA_character_)) 
  [14:28:06.512]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.512]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:06.512]                   future::plan(list(function (...) 
  [14:28:06.512]                   {
  [14:28:06.512]                     Future(1)
  [14:28:06.512]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:06.512]                 }
  [14:28:06.512]             }
  [14:28:06.512]         }
  [14:28:06.512]     })
  [14:28:06.512]     if (TRUE) {
  [14:28:06.512]         base::sink(type = "output", split = FALSE)
  [14:28:06.512]         if (TRUE) {
  [14:28:06.512]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:06.512]         }
  [14:28:06.512]         else {
  [14:28:06.512]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:06.512]         }
  [14:28:06.512]         base::close(...future.stdout)
  [14:28:06.512]         ...future.stdout <- NULL
  [14:28:06.512]     }
  [14:28:06.512]     ...future.result$conditions <- ...future.conditions
  [14:28:06.512]     ...future.result$finished <- base::Sys.time()
  [14:28:06.512]     ...future.result
  [14:28:06.512] }
  [14:28:06.516] plan(): Setting new future strategy stack:
  [14:28:06.517] List of future strategies:
  [14:28:06.517] 1. sequential:
  [14:28:06.517]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:06.517]    - tweaked: FALSE
  [14:28:06.517]    - call: NULL
  [14:28:06.518] plan(): nbrOfWorkers() = 1
  [14:28:06.519] plan(): Setting new future strategy stack:
  [14:28:06.519] List of future strategies:
  [14:28:06.519] 1. future:
  [14:28:06.519]    - args: function (..., workers = "<NULL>")
  [14:28:06.519]    - tweaked: FALSE
  [14:28:06.519]    - call: plan(foo)
  [14:28:06.520] plan(): nbrOfWorkers() = Inf
  [14:28:06.520] SequentialFuture started (and completed)
  [1] 42
  [14:28:06.521] getGlobalsAndPackages() ...
  [14:28:06.521] Searching for globals...
  [14:28:06.522] - globals found: [1] '{'
  [14:28:06.522] Searching for globals ... DONE
  [14:28:06.522] Resolving globals: FALSE
  [14:28:06.523] 
  [14:28:06.523] 
  [14:28:06.523] getGlobalsAndPackages() ... DONE
  [14:28:06.524] Packages needed by the future expression (n = 0): <none>
  [14:28:06.524] Packages needed by future strategies (n = 0): <none>
  [14:28:06.525] {
  [14:28:06.525]     {
  [14:28:06.525]         {
  [14:28:06.525]             ...future.startTime <- base::Sys.time()
  [14:28:06.525]             {
  [14:28:06.525]                 {
  [14:28:06.525]                   {
  [14:28:06.525]                     base::local({
  [14:28:06.525]                       has_future <- base::requireNamespace("future", 
  [14:28:06.525]                         quietly = TRUE)
  [14:28:06.525]                       if (has_future) {
  [14:28:06.525]                         ns <- base::getNamespace("future")
  [14:28:06.525]                         version <- ns[[".package"]][["version"]]
  [14:28:06.525]                         if (is.null(version)) 
  [14:28:06.525]                           version <- utils::packageVersion("future")
  [14:28:06.525]                       }
  [14:28:06.525]                       else {
  [14:28:06.525]                         version <- NULL
  [14:28:06.525]                       }
  [14:28:06.525]                       if (!has_future || version < "1.8.0") {
  [14:28:06.525]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:28:06.525]                           "", base::R.version$version.string), 
  [14:28:06.525]                           platform = base::sprintf("%s (%s-bit)", 
  [14:28:06.525]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:28:06.525]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:28:06.525]                             "release", "version")], collapse = " "), 
  [14:28:06.525]                           hostname = base::Sys.info()[["nodename"]])
  [14:28:06.525]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:28:06.525]                           info)
  [14:28:06.525]                         info <- base::paste(info, collapse = "; ")
  [14:28:06.525]                         if (!has_future) {
  [14:28:06.525]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:28:06.525]                             info)
  [14:28:06.525]                         }
  [14:28:06.525]                         else {
  [14:28:06.525]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:28:06.525]                             info, version)
  [14:28:06.525]                         }
  [14:28:06.525]                         base::stop(msg)
  [14:28:06.525]                       }
  [14:28:06.525]                     })
  [14:28:06.525]                   }
  [14:28:06.525]                   options(future.plan = NULL)
  [14:28:06.525]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.525]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:28:06.525]                 }
  [14:28:06.525]                 ...future.workdir <- getwd()
  [14:28:06.525]             }
  [14:28:06.525]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:28:06.525]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:28:06.525]         }
  [14:28:06.525]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:28:06.525]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:28:06.525]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:28:06.525]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:28:06.525]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:28:06.525]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:28:06.525]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:28:06.525]             base::names(...future.oldOptions))
  [14:28:06.525]     }
  [14:28:06.525]     if (FALSE) {
  [14:28:06.525]     }
  [14:28:06.525]     else {
  [14:28:06.525]         if (TRUE) {
  [14:28:06.525]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:28:06.525]                 open = "w")
  [14:28:06.525]         }
  [14:28:06.525]         else {
  [14:28:06.525]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:28:06.525]                 windows = "NUL", "/dev/null"), open = "w")
  [14:28:06.525]         }
  [14:28:06.525]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:28:06.525]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:28:06.525]             base::sink(type = "output", split = FALSE)
  [14:28:06.525]             base::close(...future.stdout)
  [14:28:06.525]         }, add = TRUE)
  [14:28:06.525]     }
  [14:28:06.525]     ...future.frame <- base::sys.nframe()
  [14:28:06.525]     ...future.conditions <- base::list()
  [14:28:06.525]     ...future.rng <- base::globalenv()$.Random.seed
  [14:28:06.525]     if (FALSE) {
  [14:28:06.525]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:28:06.525]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:28:06.525]     }
  [14:28:06.525]     ...future.result <- base::tryCatch({
  [14:28:06.525]         base::withCallingHandlers({
  [14:28:06.525]             ...future.value <- base::withVisible(base::local({
  [14:28:06.525]                 42L
  [14:28:06.525]             }))
  [14:28:06.525]             future::FutureResult(value = ...future.value$value, 
  [14:28:06.525]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.525]                   ...future.rng), globalenv = if (FALSE) 
  [14:28:06.525]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:28:06.525]                     ...future.globalenv.names))
  [14:28:06.525]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:28:06.525]         }, condition = base::local({
  [14:28:06.525]             c <- base::c
  [14:28:06.525]             inherits <- base::inherits
  [14:28:06.525]             invokeRestart <- base::invokeRestart
  [14:28:06.525]             length <- base::length
  [14:28:06.525]             list <- base::list
  [14:28:06.525]             seq.int <- base::seq.int
  [14:28:06.525]             signalCondition <- base::signalCondition
  [14:28:06.525]             sys.calls <- base::sys.calls
  [14:28:06.525]             `[[` <- base::`[[`
  [14:28:06.525]             `+` <- base::`+`
  [14:28:06.525]             `<<-` <- base::`<<-`
  [14:28:06.525]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:28:06.525]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:28:06.525]                   3L)]
  [14:28:06.525]             }
  [14:28:06.525]             function(cond) {
  [14:28:06.525]                 is_error <- inherits(cond, "error")
  [14:28:06.525]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:28:06.525]                   NULL)
  [14:28:06.525]                 if (is_error) {
  [14:28:06.525]                   sessionInformation <- function() {
  [14:28:06.525]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:28:06.525]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:28:06.525]                       search = base::search(), system = base::Sys.info())
  [14:28:06.525]                   }
  [14:28:06.525]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.525]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:28:06.525]                     cond$call), session = sessionInformation(), 
  [14:28:06.525]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:28:06.525]                   signalCondition(cond)
  [14:28:06.525]                 }
  [14:28:06.525]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:28:06.525]                 "immediateCondition"))) {
  [14:28:06.525]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:28:06.525]                   ...future.conditions[[length(...future.conditions) + 
  [14:28:06.525]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:28:06.525]                   if (TRUE && !signal) {
  [14:28:06.525]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.525]                     {
  [14:28:06.525]                       inherits <- base::inherits
  [14:28:06.525]                       invokeRestart <- base::invokeRestart
  [14:28:06.525]                       is.null <- base::is.null
  [14:28:06.525]                       muffled <- FALSE
  [14:28:06.525]                       if (inherits(cond, "message")) {
  [14:28:06.525]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.525]                         if (muffled) 
  [14:28:06.525]                           invokeRestart("muffleMessage")
  [14:28:06.525]                       }
  [14:28:06.525]                       else if (inherits(cond, "warning")) {
  [14:28:06.525]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.525]                         if (muffled) 
  [14:28:06.525]                           invokeRestart("muffleWarning")
  [14:28:06.525]                       }
  [14:28:06.525]                       else if (inherits(cond, "condition")) {
  [14:28:06.525]                         if (!is.null(pattern)) {
  [14:28:06.525]                           computeRestarts <- base::computeRestarts
  [14:28:06.525]                           grepl <- base::grepl
  [14:28:06.525]                           restarts <- computeRestarts(cond)
  [14:28:06.525]                           for (restart in restarts) {
  [14:28:06.525]                             name <- restart$name
  [14:28:06.525]                             if (is.null(name)) 
  [14:28:06.525]                               next
  [14:28:06.525]                             if (!grepl(pattern, name)) 
  [14:28:06.525]                               next
  [14:28:06.525]                             invokeRestart(restart)
  [14:28:06.525]                             muffled <- TRUE
  [14:28:06.525]                             break
  [14:28:06.525]                           }
  [14:28:06.525]                         }
  [14:28:06.525]                       }
  [14:28:06.525]                       invisible(muffled)
  [14:28:06.525]                     }
  [14:28:06.525]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.525]                   }
  [14:28:06.525]                 }
  [14:28:06.525]                 else {
  [14:28:06.525]                   if (TRUE) {
  [14:28:06.525]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:28:06.525]                     {
  [14:28:06.525]                       inherits <- base::inherits
  [14:28:06.525]                       invokeRestart <- base::invokeRestart
  [14:28:06.525]                       is.null <- base::is.null
  [14:28:06.525]                       muffled <- FALSE
  [14:28:06.525]                       if (inherits(cond, "message")) {
  [14:28:06.525]                         muffled <- grepl(pattern, "muffleMessage")
  [14:28:06.525]                         if (muffled) 
  [14:28:06.525]                           invokeRestart("muffleMessage")
  [14:28:06.525]                       }
  [14:28:06.525]                       else if (inherits(cond, "warning")) {
  [14:28:06.525]                         muffled <- grepl(pattern, "muffleWarning")
  [14:28:06.525]                         if (muffled) 
  [14:28:06.525]                           invokeRestart("muffleWarning")
  [14:28:06.525]                       }
  [14:28:06.525]                       else if (inherits(cond, "condition")) {
  [14:28:06.525]                         if (!is.null(pattern)) {
  [14:28:06.525]                           computeRestarts <- base::computeRestarts
  [14:28:06.525]                           grepl <- base::grepl
  [14:28:06.525]                           restarts <- computeRestarts(cond)
  [14:28:06.525]                           for (restart in restarts) {
  [14:28:06.525]                             name <- restart$name
  [14:28:06.525]                             if (is.null(name)) 
  [14:28:06.525]                               next
  [14:28:06.525]                             if (!grepl(pattern, name)) 
  [14:28:06.525]                               next
  [14:28:06.525]                             invokeRestart(restart)
  [14:28:06.525]                             muffled <- TRUE
  [14:28:06.525]                             break
  [14:28:06.525]                           }
  [14:28:06.525]                         }
  [14:28:06.525]                       }
  [14:28:06.525]                       invisible(muffled)
  [14:28:06.525]                     }
  [14:28:06.525]                     muffleCondition(cond, pattern = "^muffle")
  [14:28:06.525]                   }
  [14:28:06.525]                 }
  [14:28:06.525]             }
  [14:28:06.525]         }))
  [14:28:06.525]     }, error = function(ex) {
  [14:28:06.525]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:28:06.525]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:28:06.525]                 ...future.rng), started = ...future.startTime, 
  [14:28:06.525]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:28:06.525]             version = "1.8"), class = "FutureResult")
  [14:28:06.525]     }, finally = {
  [14:28:06.525]         if (!identical(...future.workdir, getwd())) 
  [14:28:06.525]             setwd(...future.workdir)
  [14:28:06.525]         {
  [14:28:06.525]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:28:06.525]                 ...future.oldOptions$nwarnings <- NULL
  [14:28:06.525]             }
  [14:28:06.525]             base::options(...future.oldOptions)
  [14:28:06.525]             if (.Platform$OS.type == "windows") {
  [14:28:06.525]                 old_names <- names(...future.oldEnvVars)
  [14:28:06.525]                 envs <- base::Sys.getenv()
  [14:28:06.525]                 names <- names(envs)
  [14:28:06.525]                 common <- intersect(names, old_names)
  [14:28:06.525]                 added <- setdiff(names, old_names)
  [14:28:06.525]                 removed <- setdiff(old_names, names)
  [14:28:06.525]                 changed <- common[...future.oldEnvVars[common] != 
  [14:28:06.525]                   envs[common]]
  [14:28:06.525]                 NAMES <- toupper(changed)
  [14:28:06.525]                 args <- list()
  [14:28:06.525]                 for (kk in seq_along(NAMES)) {
  [14:28:06.525]                   name <- changed[[kk]]
  [14:28:06.525]                   NAME <- NAMES[[kk]]
  [14:28:06.525]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.525]                     next
  [14:28:06.525]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.525]                 }
  [14:28:06.525]                 NAMES <- toupper(added)
  [14:28:06.525]                 for (kk in seq_along(NAMES)) {
  [14:28:06.525]                   name <- added[[kk]]
  [14:28:06.525]                   NAME <- NAMES[[kk]]
  [14:28:06.525]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.525]                     next
  [14:28:06.525]                   args[[name]] <- ""
  [14:28:06.525]                 }
  [14:28:06.525]                 NAMES <- toupper(removed)
  [14:28:06.525]                 for (kk in seq_along(NAMES)) {
  [14:28:06.525]                   name <- removed[[kk]]
  [14:28:06.525]                   NAME <- NAMES[[kk]]
  [14:28:06.525]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:28:06.525]                     next
  [14:28:06.525]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:28:06.525]                 }
  [14:28:06.525]                 if (length(args) > 0) 
  [14:28:06.525]                   base::do.call(base::Sys.setenv, args = args)
  [14:28:06.525]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:28:06.525]             }
  [14:28:06.525]             else {
  [14:28:06.525]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:28:06.525]             }
  [14:28:06.525]             {
  [14:28:06.525]                 if (base::length(...future.futureOptionsAdded) > 
  [14:28:06.525]                   0L) {
  [14:28:06.525]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:28:06.525]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:28:06.525]                   base::options(opts)
  [14:28:06.525]                 }
  [14:28:06.525]                 {
  [14:28:06.525]                   {
  [14:28:06.525]                     NULL
  [14:28:06.525]                     RNGkind("Mersenne-Twister")
  [14:28:06.525]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:28:06.525]                       inherits = FALSE)
  [14:28:06.525]                   }
  [14:28:06.525]                   options(future.plan = NULL)
  [14:28:06.525]                   if (is.na(NA_character_)) 
  [14:28:06.525]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:28:06.525]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:28:06.525]                   future::plan(list(function (...) 
  [14:28:06.525]                   {
  [14:28:06.525]                     Future(1)
  [14:28:06.525]                   }), .cleanup = FALSE, .init = FALSE)
  [14:28:06.525]                 }
  [14:28:06.525]             }
  [14:28:06.525]         }
  [14:28:06.525]     })
  [14:28:06.525]     if (TRUE) {
  [14:28:06.525]         base::sink(type = "output", split = FALSE)
  [14:28:06.525]         if (TRUE) {
  [14:28:06.525]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:28:06.525]         }
  [14:28:06.525]         else {
  [14:28:06.525]             ...future.result["stdout"] <- base::list(NULL)
  [14:28:06.525]         }
  [14:28:06.525]         base::close(...future.stdout)
  [14:28:06.525]         ...future.stdout <- NULL
  [14:28:06.525]     }
  [14:28:06.525]     ...future.result$conditions <- ...future.conditions
  [14:28:06.525]     ...future.result$finished <- base::Sys.time()
  [14:28:06.525]     ...future.result
  [14:28:06.525] }
  [14:28:06.530] plan(): Setting new future strategy stack:
  [14:28:06.530] List of future strategies:
  [14:28:06.530] 1. sequential:
  [14:28:06.530]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:06.530]    - tweaked: FALSE
  [14:28:06.530]    - call: NULL
  [14:28:06.531] plan(): nbrOfWorkers() = 1
  [14:28:06.533] plan(): Setting new future strategy stack:
  [14:28:06.533] List of future strategies:
  [14:28:06.533] 1. future:
  [14:28:06.533]    - args: function (..., workers = "<NULL>")
  [14:28:06.533]    - tweaked: FALSE
  [14:28:06.533]    - call: plan(foo)
  [14:28:06.534] plan(): nbrOfWorkers() = Inf
  [14:28:06.534] SequentialFuture started (and completed)
  [1] 42
  > 
  > message("*** Future class - exception ... DONE")
  *** Future class - exception ... DONE
  > 
  > message("*** Future class ... DONE")
  *** Future class ... DONE
  > 
  > source("incl/end.R")
  [14:28:06.536] plan(): Setting new future strategy stack:
  [14:28:06.536] List of future strategies:
  [14:28:06.536] 1. FutureStrategy:
  [14:28:06.536]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:28:06.536]    - tweaked: FALSE
  [14:28:06.536]    - call: future::plan(oplan)
  [14:28:06.538] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.56    0.14    1.64 
Running the tests in 'tests/cluster-missing-future-pkg.R' failed.
Complete output:
  > source("incl/start.R")
  [14:31:03.660] plan(): Setting new future strategy stack:
  [14:31:03.662] List of future strategies:
  [14:31:03.662] 1. sequential:
  [14:31:03.662]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:31:03.662]    - tweaked: FALSE
  [14:31:03.662]    - call: future::plan("sequential")
  [14:31:03.683] plan(): nbrOfWorkers() = 1
  > options(future.debug = FALSE)
  > 
  > message("*** cluster() ...")
  *** cluster() ...
  > 
  > message("Library paths: ", paste(sQuote(.libPaths()), collapse = ", "))
  Library paths: 'D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29', 'D:/RCompile/recent/R/library'
  > message("Package path: ", sQuote(system.file(package = "future")))
  Package path: 'D:/RCompile/CRANpkg/lib/4.4/future'
  > 
  > types <- "PSOCK"
  > 
  > ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
  > if (isWin32) types <- NULL
  > 
  > if (supportsMulticore() && !on_solaris) types <- c(types, "FORK")
  > 
  > setupClusterWithoutPkgs <- function(type = "PSOCK", withouts = c("future")) {
  +   cl <- parallel::makeCluster(1L, type = type, timeout = 60)
  + 
  +   ## Emulate a worker that does not have 'future' installed.
  +   ## by setting a different user library path on the worker.
  +   libs <- parallel::clusterEvalQ(cl, .libPaths(tempdir()))[[1]]
  + 
  +   ## Check whether 'future' is still available on the worker or not.
  +   ## It could be that it is installed in the system library path, which
  +   ## in case we cannot "hide" the future package from the worker.
  +   has_pkgs <- parallel::clusterCall(cl, fun = sapply, X = withouts,
  +                                     FUN = requireNamespace)[[1]]
  + 
  +   attr(cl, "libs") <- libs
  +   attr(cl, "has_pkgs") <- has_pkgs
  + 
  +   cl
  + }
  > 
  > cl <- NULL
  > for (type in types) {
  +   message(sprintf("Test set #1 with cluster type %s ...", sQuote(type)))
  + 
  +   cl <- setupClusterWithoutPkgs(type)  
  +   if (!all(attr(cl, "has_pkgs"))) {
  +     ## If worker does not have 'future' installed, then there will be an
  +     ## error already when plan() is called, because it will attempt to
  +     ## launch a quick future to validate that everything works.
  +         
  +     res <- tryCatch({
  +       plan(cluster, workers = cl)
  +     }, error = identity)
  +     print(res)
  +     stopifnot(inherits(res, "FutureError"))
  +   }
  +   parallel::stopCluster(cl)
  + 
  +   cl <- setupClusterWithoutPkgs(type)  
  +   if (!all(attr(cl, "has_pkgs"))) {
  +     ## However, if we disable the quick future test, we should not get
  +     ## an error here.
  +     plan(cluster, workers = cl, .skip = FALSE, .init = FALSE)
  + 
  +     ## But we will get:
  +     ##   <FutureError: Internal error: Unexpected result retrieved for
  +     ##   ClusterFuture future ('<none>'): '42L'>
  +     ## if we try to resolve a future:
  +     f <- future(42L)
  +     res <- tryCatch({
  +       result(f)
  +     }, error = identity)
  +     print(res)
  +     stopifnot(inherits(res, "FutureError"))
  + 
  +     ## Assert that the "result" was recorded for future use and
  +     ## it was recorded as a FutureError.
  +     str(f$result)
  +     stopifnot(!is.null(f$result),
  +               inherits(f$result, "FutureError"))
  + 
  +     ## Any attempts to re-request the result / value for this future
  +     ## should from now on re-throw that recorded FutureError.
  +     str(f$result)
  +     stopifnot(!is.null(f$result))
  +     
  +     ## The main rationale for this is that we don't want result() to
  +     ## wait for ever from retrying to retrieve already retrieved results
  +     ## from worker.
  +     res <- tryCatch({
  +        result(f)
  +     }, error = identity)
  +     stopifnot(inherits(res, "FutureError"))
  + 
  +     ## ... and obviously the same for value().
  +     res <- tryCatch({
  +        value(f)
  +     }, error = identity)
  +     stopifnot(inherits(res, "FutureError"))
  +     
  +     ## Retrying with a new future should give the same failure as above.
  +     f <- future(42L)
  +     res <- tryCatch({
  +       result(f)
  +     }, error = identity)
  +     print(res)
  +     stopifnot(inherits(res, "FutureError"))
  +   }
  +   
  +   parallel::stopCluster(cl)
  +   cl <- NULL
  +   
  +   plan(sequential)
  +   
  +   message(sprintf("Test set #1 with cluster type %s ... DONE", sQuote(type)))
  + } ## for (type ...)
  Test set #1 with cluster type 'PSOCK' ...
  <FutureError: Initialization of plan() failed, because the test future used for validation failed. The reason was: Package 'future' is not installed on worker (r_version: R Under development (unstable) (2024-03-22 r86169 ucrt); platform: x86_64-w64-mingw32 (64-bit); os: Windows Server x64 build 20348; hostname: CRANWIN3)>
  
  
  Future UUID: 020cf38f-b147-f5b8-661f-f699d088fa75
  
  
  DEBUG: BEGIN TROUBLESHOOTING HELP
  Future involved:
  ClusterFuture:
  Label: 'future-plan-test'
  Expression:
  [1] NA
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: 0x000002d1ac05f960
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 4df7d38a-e04c-b024-fca0-cd464f663eed
  Class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  
  DEBUG: END TROUBLESHOOTING HELP
  <FutureError: Package 'future' is not installed on worker (r_version: R Under development (unstable) (2024-03-22 r86169 ucrt); platform: x86_64-w64-mingw32 (64-bit); os: Windows Server x64 build 20348; hostname: CRANWIN3)>
  
  
  Future UUID: 9f58b073-91c8-bc8e-b3dc-d895acc62b03
  
  
  DEBUG: BEGIN TROUBLESHOOTING HELP
  Future involved:
  ClusterFuture:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 4df7d38a-e04c-b024-fca0-cd464f663eed
  Class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  
  DEBUG: END TROUBLESHOOTING HELP
  List of 2
   $ message: chr "Package 'future' is not installed on worker (r_version: R Under development (unstable) (2024-03-22 r86169 ucrt)"| __truncated__
   $ call   : NULL
   - attr(*, "class")= chr [1:4] "FutureError" "error" "FutureCondition" "condition"
   - attr(*, "uuid")= chr "9f58b073-91c8-bc8e-b3dc-d895acc62b03"
   - attr(*, "future")=Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x000002d1ac095798> 
  List of 2
   $ message: chr "Package 'future' is not installed on worker (r_version: R Under development (unstable) (2024-03-22 r86169 ucrt)"| __truncated__
   $ call   : NULL
   - attr(*, "class")= chr [1:4] "FutureError" "error" "FutureCondition" "condition"
   - attr(*, "uuid")= chr "9f58b073-91c8-bc8e-b3dc-d895acc62b03"
   - attr(*, "future")=Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x000002d1ac095798> 
  <FutureError: Package 'future' is not installed on worker (r_version: R Under development (unstable) (2024-03-22 r86169 ucrt); platform: x86_64-w64-mingw32 (64-bit); os: Windows Server x64 build 20348; hostname: CRANWIN3)>
  
  
  Future UUID: 75592d58-086f-68f5-74db-fd1852cabd9f
  
  
  DEBUG: BEGIN TROUBLESHOOTING HELP
  Future involved:
  ClusterFuture:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 4df7d38a-e04c-b024-fca0-cd464f663eed
  Class: 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  
  DEBUG: END TROUBLESHOOTING HELP
  Test set #1 with cluster type 'PSOCK' ... DONE
  > 
  > message("*** cluster() ... DONE")
  *** cluster() ... DONE
  > 
  > source("incl/end.R")
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.51    0.10    1.07 
Running the tests in 'tests/dotdotdot.R' failed.
Complete output:
  > source("incl/start.R")
  [14:34:08.008] plan(): Setting new future strategy stack:
  [14:34:08.010] List of future strategies:
  [14:34:08.010] 1. sequential:
  [14:34:08.010]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.010]    - tweaked: FALSE
  [14:34:08.010]    - call: future::plan("sequential")
  [14:34:08.037] plan(): nbrOfWorkers() = 1
  > library("listenv")
  > 
  > for (cores in 1:availCores) {
  +   ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
  +   if (!fullTest && isWin32) next
  +   
  +   message(sprintf("Testing with %d cores ...", cores))
  +   options(mc.cores = cores)
  + 
  +   message("*** Global argument '...' ...")
  + 
  +   sum_fcns <- list()
  + 
  +   sum_fcns$A <- function(x, ...) {
  +     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
  +     y %<-% { sum(x, ...) }
  +     y
  +   }
  + 
  + 
  +   sum_fcns$B <- function(x, ...) {
  +     sumt <- function(x) {
  +       message("Arguments '...' exists: ", exists("...", inherits = TRUE))
  +       y %<-% { sum(x, ...) }
  +       y
  +     }
  +     sumt(x)
  +   }
  + 
  +   sum_fcns$C <- function(x, y) {
  +     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
  +     y %<-% { sum(x, y) }
  +     y
  +   }
  + 
  +   sum_fcns$D <- function(x, y) {
  +     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
  +     y %<-% { sum(x, y, ...) }
  +     y
  +   }
  + 
  +   ## Issue/PR #400: Emulate how '...' may be used by the 'rlang' package
  +   sum_fcns$E <- function(...) {
  +     message("Arguments '...' exists: ", exists("...", inherits = TRUE))
  + 
  +     ## Grab '...' into a Globals object
  +     globals <- globals::globalsByName("...", envir=environment())
  + 
  +     ## Evaluate an expression with '...' in an environment that does not
  +     ## have an '...' object - hence the parent.frame().  This will produce
  +     ## an error unless we pass 'globals' which contains '...'
  +     f <- future({
  +       fcn <- function() sum(...)
  +       fcn()
  +     }, envir = parent.frame(), globals = globals)
  +     y <- value(f)
  +     y
  +   }
  + 
  +   ## Issue: https://github.com/HenrikBengtsson/globals/issues/72
  +   sum_fcns$F <- function(x, y) {
  +     message("Using '...' in a formula")
  + 
  +     fcn <- function(x, y) {
  +       z = ~ list(...)
  +       sum(x, y)
  +     }
  +     
  +     f <- future(fcn(x, y))
  +     y <- value(f)
  +     y
  +   }
  + 
  + 
  +   for (strategy in supportedStrategies(cores)) {
  +     message(sprintf("- plan('%s') ...", strategy))
  +     plan(strategy, substitute = FALSE)
  + 
  +     for (name in names(sum_fcns)) {
  +       message(sprintf("** Sum function '%s' with plan('%s') ...", name, strategy))
  +       sum_fcn <- sum_fcns[[name]]
  +       print(sum_fcn)
  +       y <- try(sum_fcn(1:2, 3))
  +       print(y)
  +       if (name %in% c("D")) {
  +         stopifnot(inherits(y, "try-error"))
  +       } else {
  +         stopifnot(y == 6)
  +       }
  +     }
  +   }
  + 
  +   message(sprintf("Testing with %d cores ... DONE", cores))
  + } ## for (cores ...)
  Testing with 1 cores ...
  *** Global argument '...' ...
  - plan('sequential') ...
  [14:34:08.106] plan(): Setting new future strategy stack:
  [14:34:08.107] List of future strategies:
  [14:34:08.107] 1. sequential:
  [14:34:08.107]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.107]    - tweaked: FALSE
  [14:34:08.107]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.132] plan(): nbrOfWorkers() = 1
  ** Sum function 'A' with plan('sequential') ...
  function (x, ...) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, ...)
      }
      y
  }
  <bytecode: 0x000002748de34e30>
  Arguments '...' exists: TRUE
  [14:34:08.136] getGlobalsAndPackages() ...
  [14:34:08.137] Searching for globals...
  [14:34:08.151] - globals found: [4] '{', 'sum', 'x', '...'
  [14:34:08.151] Searching for globals ... DONE
  [14:34:08.151] Resolving globals: FALSE
  [14:34:08.152] Tweak future expression to call with '...' arguments ...
  [14:34:08.152] {
  [14:34:08.152]     do.call(function(...) {
  [14:34:08.152]         sum(x, ...)
  [14:34:08.152]     }, args = future.call.arguments)
  [14:34:08.152] }
  [14:34:08.152] Tweak future expression to call with '...' arguments ... DONE
  [14:34:08.155] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:08.156] The total size of the 2 globals exported for future expression ('{; sum(x, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'future.call.arguments' (56 bytes of class 'list')
  [14:34:08.156] - globals: [2] 'x', 'future.call.arguments'
  [14:34:08.157] 
  [14:34:08.157] getGlobalsAndPackages() ... DONE
  [14:34:08.158] run() for 'Future' ...
  [14:34:08.159] - state: 'created'
  [14:34:08.159] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.163] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.164] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.164]   - Field: 'label'
  [14:34:08.164]   - Field: 'local'
  [14:34:08.165]   - Field: 'owner'
  [14:34:08.165]   - Field: 'envir'
  [14:34:08.165]   - Field: 'packages'
  [14:34:08.166]   - Field: 'gc'
  [14:34:08.166]   - Field: 'conditions'
  [14:34:08.166]   - Field: 'expr'
  [14:34:08.166]   - Field: 'uuid'
  [14:34:08.167]   - Field: 'seed'
  [14:34:08.167]   - Field: 'version'
  [14:34:08.167]   - Field: 'result'
  [14:34:08.168]   - Field: 'asynchronous'
  [14:34:08.168]   - Field: 'calls'
  [14:34:08.168]   - Field: 'globals'
  [14:34:08.169]   - Field: 'stdout'
  [14:34:08.169]   - Field: 'earlySignal'
  [14:34:08.169]   - Field: 'lazy'
  [14:34:08.169]   - Field: 'state'
  [14:34:08.170] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.170] - Launch lazy future ...
  [14:34:08.171] Packages needed by the future expression (n = 0): <none>
  [14:34:08.172] Packages needed by future strategies (n = 0): <none>
  [14:34:08.173] {
  [14:34:08.173]     {
  [14:34:08.173]         {
  [14:34:08.173]             ...future.startTime <- base::Sys.time()
  [14:34:08.173]             {
  [14:34:08.173]                 {
  [14:34:08.173]                   {
  [14:34:08.173]                     base::local({
  [14:34:08.173]                       has_future <- base::requireNamespace("future", 
  [14:34:08.173]                         quietly = TRUE)
  [14:34:08.173]                       if (has_future) {
  [14:34:08.173]                         ns <- base::getNamespace("future")
  [14:34:08.173]                         version <- ns[[".package"]][["version"]]
  [14:34:08.173]                         if (is.null(version)) 
  [14:34:08.173]                           version <- utils::packageVersion("future")
  [14:34:08.173]                       }
  [14:34:08.173]                       else {
  [14:34:08.173]                         version <- NULL
  [14:34:08.173]                       }
  [14:34:08.173]                       if (!has_future || version < "1.8.0") {
  [14:34:08.173]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.173]                           "", base::R.version$version.string), 
  [14:34:08.173]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.173]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.173]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.173]                             "release", "version")], collapse = " "), 
  [14:34:08.173]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.173]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.173]                           info)
  [14:34:08.173]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.173]                         if (!has_future) {
  [14:34:08.173]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.173]                             info)
  [14:34:08.173]                         }
  [14:34:08.173]                         else {
  [14:34:08.173]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.173]                             info, version)
  [14:34:08.173]                         }
  [14:34:08.173]                         base::stop(msg)
  [14:34:08.173]                       }
  [14:34:08.173]                     })
  [14:34:08.173]                   }
  [14:34:08.173]                   options(future.plan = NULL)
  [14:34:08.173]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.173]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.173]                 }
  [14:34:08.173]                 ...future.workdir <- getwd()
  [14:34:08.173]             }
  [14:34:08.173]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.173]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.173]         }
  [14:34:08.173]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.173]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.173]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.173]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.173]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.173]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.173]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.173]             base::names(...future.oldOptions))
  [14:34:08.173]     }
  [14:34:08.173]     if (FALSE) {
  [14:34:08.173]     }
  [14:34:08.173]     else {
  [14:34:08.173]         if (TRUE) {
  [14:34:08.173]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.173]                 open = "w")
  [14:34:08.173]         }
  [14:34:08.173]         else {
  [14:34:08.173]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.173]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.173]         }
  [14:34:08.173]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.173]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.173]             base::sink(type = "output", split = FALSE)
  [14:34:08.173]             base::close(...future.stdout)
  [14:34:08.173]         }, add = TRUE)
  [14:34:08.173]     }
  [14:34:08.173]     ...future.frame <- base::sys.nframe()
  [14:34:08.173]     ...future.conditions <- base::list()
  [14:34:08.173]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.173]     if (FALSE) {
  [14:34:08.173]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.173]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.173]     }
  [14:34:08.173]     ...future.result <- base::tryCatch({
  [14:34:08.173]         base::withCallingHandlers({
  [14:34:08.173]             ...future.value <- base::withVisible(base::local({
  [14:34:08.173]                 do.call(function(...) {
  [14:34:08.173]                   sum(x, ...)
  [14:34:08.173]                 }, args = future.call.arguments)
  [14:34:08.173]             }))
  [14:34:08.173]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.173]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.173]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.173]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.173]                     ...future.globalenv.names))
  [14:34:08.173]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.173]         }, condition = base::local({
  [14:34:08.173]             c <- base::c
  [14:34:08.173]             inherits <- base::inherits
  [14:34:08.173]             invokeRestart <- base::invokeRestart
  [14:34:08.173]             length <- base::length
  [14:34:08.173]             list <- base::list
  [14:34:08.173]             seq.int <- base::seq.int
  [14:34:08.173]             signalCondition <- base::signalCondition
  [14:34:08.173]             sys.calls <- base::sys.calls
  [14:34:08.173]             `[[` <- base::`[[`
  [14:34:08.173]             `+` <- base::`+`
  [14:34:08.173]             `<<-` <- base::`<<-`
  [14:34:08.173]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.173]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.173]                   3L)]
  [14:34:08.173]             }
  [14:34:08.173]             function(cond) {
  [14:34:08.173]                 is_error <- inherits(cond, "error")
  [14:34:08.173]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.173]                   NULL)
  [14:34:08.173]                 if (is_error) {
  [14:34:08.173]                   sessionInformation <- function() {
  [14:34:08.173]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.173]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.173]                       search = base::search(), system = base::Sys.info())
  [14:34:08.173]                   }
  [14:34:08.173]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.173]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.173]                     cond$call), session = sessionInformation(), 
  [14:34:08.173]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.173]                   signalCondition(cond)
  [14:34:08.173]                 }
  [14:34:08.173]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.173]                 "immediateCondition"))) {
  [14:34:08.173]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.173]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.173]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.173]                   if (TRUE && !signal) {
  [14:34:08.173]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.173]                     {
  [14:34:08.173]                       inherits <- base::inherits
  [14:34:08.173]                       invokeRestart <- base::invokeRestart
  [14:34:08.173]                       is.null <- base::is.null
  [14:34:08.173]                       muffled <- FALSE
  [14:34:08.173]                       if (inherits(cond, "message")) {
  [14:34:08.173]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.173]                         if (muffled) 
  [14:34:08.173]                           invokeRestart("muffleMessage")
  [14:34:08.173]                       }
  [14:34:08.173]                       else if (inherits(cond, "warning")) {
  [14:34:08.173]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.173]                         if (muffled) 
  [14:34:08.173]                           invokeRestart("muffleWarning")
  [14:34:08.173]                       }
  [14:34:08.173]                       else if (inherits(cond, "condition")) {
  [14:34:08.173]                         if (!is.null(pattern)) {
  [14:34:08.173]                           computeRestarts <- base::computeRestarts
  [14:34:08.173]                           grepl <- base::grepl
  [14:34:08.173]                           restarts <- computeRestarts(cond)
  [14:34:08.173]                           for (restart in restarts) {
  [14:34:08.173]                             name <- restart$name
  [14:34:08.173]                             if (is.null(name)) 
  [14:34:08.173]                               next
  [14:34:08.173]                             if (!grepl(pattern, name)) 
  [14:34:08.173]                               next
  [14:34:08.173]                             invokeRestart(restart)
  [14:34:08.173]                             muffled <- TRUE
  [14:34:08.173]                             break
  [14:34:08.173]                           }
  [14:34:08.173]                         }
  [14:34:08.173]                       }
  [14:34:08.173]                       invisible(muffled)
  [14:34:08.173]                     }
  [14:34:08.173]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.173]                   }
  [14:34:08.173]                 }
  [14:34:08.173]                 else {
  [14:34:08.173]                   if (TRUE) {
  [14:34:08.173]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.173]                     {
  [14:34:08.173]                       inherits <- base::inherits
  [14:34:08.173]                       invokeRestart <- base::invokeRestart
  [14:34:08.173]                       is.null <- base::is.null
  [14:34:08.173]                       muffled <- FALSE
  [14:34:08.173]                       if (inherits(cond, "message")) {
  [14:34:08.173]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.173]                         if (muffled) 
  [14:34:08.173]                           invokeRestart("muffleMessage")
  [14:34:08.173]                       }
  [14:34:08.173]                       else if (inherits(cond, "warning")) {
  [14:34:08.173]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.173]                         if (muffled) 
  [14:34:08.173]                           invokeRestart("muffleWarning")
  [14:34:08.173]                       }
  [14:34:08.173]                       else if (inherits(cond, "condition")) {
  [14:34:08.173]                         if (!is.null(pattern)) {
  [14:34:08.173]                           computeRestarts <- base::computeRestarts
  [14:34:08.173]                           grepl <- base::grepl
  [14:34:08.173]                           restarts <- computeRestarts(cond)
  [14:34:08.173]                           for (restart in restarts) {
  [14:34:08.173]                             name <- restart$name
  [14:34:08.173]                             if (is.null(name)) 
  [14:34:08.173]                               next
  [14:34:08.173]                             if (!grepl(pattern, name)) 
  [14:34:08.173]                               next
  [14:34:08.173]                             invokeRestart(restart)
  [14:34:08.173]                             muffled <- TRUE
  [14:34:08.173]                             break
  [14:34:08.173]                           }
  [14:34:08.173]                         }
  [14:34:08.173]                       }
  [14:34:08.173]                       invisible(muffled)
  [14:34:08.173]                     }
  [14:34:08.173]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.173]                   }
  [14:34:08.173]                 }
  [14:34:08.173]             }
  [14:34:08.173]         }))
  [14:34:08.173]     }, error = function(ex) {
  [14:34:08.173]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.173]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.173]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.173]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.173]             version = "1.8"), class = "FutureResult")
  [14:34:08.173]     }, finally = {
  [14:34:08.173]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.173]             setwd(...future.workdir)
  [14:34:08.173]         {
  [14:34:08.173]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.173]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.173]             }
  [14:34:08.173]             base::options(...future.oldOptions)
  [14:34:08.173]             if (.Platform$OS.type == "windows") {
  [14:34:08.173]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.173]                 envs <- base::Sys.getenv()
  [14:34:08.173]                 names <- names(envs)
  [14:34:08.173]                 common <- intersect(names, old_names)
  [14:34:08.173]                 added <- setdiff(names, old_names)
  [14:34:08.173]                 removed <- setdiff(old_names, names)
  [14:34:08.173]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.173]                   envs[common]]
  [14:34:08.173]                 NAMES <- toupper(changed)
  [14:34:08.173]                 args <- list()
  [14:34:08.173]                 for (kk in seq_along(NAMES)) {
  [14:34:08.173]                   name <- changed[[kk]]
  [14:34:08.173]                   NAME <- NAMES[[kk]]
  [14:34:08.173]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.173]                     next
  [14:34:08.173]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.173]                 }
  [14:34:08.173]                 NAMES <- toupper(added)
  [14:34:08.173]                 for (kk in seq_along(NAMES)) {
  [14:34:08.173]                   name <- added[[kk]]
  [14:34:08.173]                   NAME <- NAMES[[kk]]
  [14:34:08.173]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.173]                     next
  [14:34:08.173]                   args[[name]] <- ""
  [14:34:08.173]                 }
  [14:34:08.173]                 NAMES <- toupper(removed)
  [14:34:08.173]                 for (kk in seq_along(NAMES)) {
  [14:34:08.173]                   name <- removed[[kk]]
  [14:34:08.173]                   NAME <- NAMES[[kk]]
  [14:34:08.173]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.173]                     next
  [14:34:08.173]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.173]                 }
  [14:34:08.173]                 if (length(args) > 0) 
  [14:34:08.173]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.173]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.173]             }
  [14:34:08.173]             else {
  [14:34:08.173]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.173]             }
  [14:34:08.173]             {
  [14:34:08.173]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.173]                   0L) {
  [14:34:08.173]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.173]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.173]                   base::options(opts)
  [14:34:08.173]                 }
  [14:34:08.173]                 {
  [14:34:08.173]                   {
  [14:34:08.173]                     NULL
  [14:34:08.173]                     RNGkind("Mersenne-Twister")
  [14:34:08.173]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.173]                       inherits = FALSE)
  [14:34:08.173]                   }
  [14:34:08.173]                   options(future.plan = NULL)
  [14:34:08.173]                   if (is.na(NA_character_)) 
  [14:34:08.173]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.173]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.173]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.173]                   {
  [14:34:08.173]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.173]                     if (!future$lazy) 
  [14:34:08.173]                       future <- run(future)
  [14:34:08.173]                     invisible(future)
  [14:34:08.173]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.173]                 }
  [14:34:08.173]             }
  [14:34:08.173]         }
  [14:34:08.173]     })
  [14:34:08.173]     if (TRUE) {
  [14:34:08.173]         base::sink(type = "output", split = FALSE)
  [14:34:08.173]         if (TRUE) {
  [14:34:08.173]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.173]         }
  [14:34:08.173]         else {
  [14:34:08.173]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.173]         }
  [14:34:08.173]         base::close(...future.stdout)
  [14:34:08.173]         ...future.stdout <- NULL
  [14:34:08.173]     }
  [14:34:08.173]     ...future.result$conditions <- ...future.conditions
  [14:34:08.173]     ...future.result$finished <- base::Sys.time()
  [14:34:08.173]     ...future.result
  [14:34:08.173] }
  [14:34:08.181] assign_globals() ...
  [14:34:08.181] List of 2
  [14:34:08.181]  $ x                    : int [1:2] 1 2
  [14:34:08.181]  $ future.call.arguments:List of 1
  [14:34:08.181]   ..$ : num 3
  [14:34:08.181]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
  [14:34:08.181]  - attr(*, "where")=List of 2
  [14:34:08.181]   ..$ x                    :<environment: R_EmptyEnv> 
  [14:34:08.181]   ..$ future.call.arguments:<environment: R_EmptyEnv> 
  [14:34:08.181]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.181]  - attr(*, "resolved")= logi FALSE
  [14:34:08.181]  - attr(*, "total_size")= num 112
  [14:34:08.181]  - attr(*, "already-done")= logi TRUE
  [14:34:08.193] - copied 'x' to environment
  [14:34:08.193] - copied 'future.call.arguments' to environment
  [14:34:08.193] assign_globals() ... done
  [14:34:08.194] plan(): Setting new future strategy stack:
  [14:34:08.194] List of future strategies:
  [14:34:08.194] 1. sequential:
  [14:34:08.194]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.194]    - tweaked: FALSE
  [14:34:08.194]    - call: NULL
  [14:34:08.195] plan(): nbrOfWorkers() = 1
  [14:34:08.199] plan(): Setting new future strategy stack:
  [14:34:08.199] List of future strategies:
  [14:34:08.199] 1. sequential:
  [14:34:08.199]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.199]    - tweaked: FALSE
  [14:34:08.199]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.200] plan(): nbrOfWorkers() = 1
  [14:34:08.200] SequentialFuture started (and completed)
  [14:34:08.201] - Launch lazy future ... done
  [14:34:08.202] run() for 'SequentialFuture' ... done
  [1] 6
  ** Sum function 'B' with plan('sequential') ...
  function (x, ...) 
  {
      sumt <- function(x) {
          message("Arguments '...' exists: ", exists("...", inherits = TRUE))
          y %<-% {
              sum(x, ...)
          }
          y
      }
      sumt(x)
  }
  <bytecode: 0x000002748bec8ae8>
  Arguments '...' exists: TRUE
  [14:34:08.204] getGlobalsAndPackages() ...
  [14:34:08.204] Searching for globals...
  [14:34:08.207] - globals found: [4] '{', 'sum', 'x', '...'
  [14:34:08.207] Searching for globals ... DONE
  [14:34:08.208] Resolving globals: FALSE
  [14:34:08.208] Tweak future expression to call with '...' arguments ...
  [14:34:08.208] {
  [14:34:08.208]     do.call(function(...) {
  [14:34:08.208]         sum(x, ...)
  [14:34:08.208]     }, args = future.call.arguments)
  [14:34:08.208] }
  [14:34:08.209] Tweak future expression to call with '...' arguments ... DONE
  [14:34:08.210] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:08.211] The total size of the 2 globals exported for future expression ('{; sum(x, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'future.call.arguments' (56 bytes of class 'list')
  [14:34:08.211] - globals: [2] 'x', 'future.call.arguments'
  [14:34:08.211] 
  [14:34:08.212] getGlobalsAndPackages() ... DONE
  [14:34:08.212] run() for 'Future' ...
  [14:34:08.213] - state: 'created'
  [14:34:08.213] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.214] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.214] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.214]   - Field: 'label'
  [14:34:08.214]   - Field: 'local'
  [14:34:08.215]   - Field: 'owner'
  [14:34:08.215]   - Field: 'envir'
  [14:34:08.215]   - Field: 'packages'
  [14:34:08.216]   - Field: 'gc'
  [14:34:08.216]   - Field: 'conditions'
  [14:34:08.216]   - Field: 'expr'
  [14:34:08.217]   - Field: 'uuid'
  [14:34:08.217]   - Field: 'seed'
  [14:34:08.217]   - Field: 'version'
  [14:34:08.217]   - Field: 'result'
  [14:34:08.218]   - Field: 'asynchronous'
  [14:34:08.218]   - Field: 'calls'
  [14:34:08.218]   - Field: 'globals'
  [14:34:08.219]   - Field: 'stdout'
  [14:34:08.219]   - Field: 'earlySignal'
  [14:34:08.219]   - Field: 'lazy'
  [14:34:08.220]   - Field: 'state'
  [14:34:08.220] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.220] - Launch lazy future ...
  [14:34:08.221] Packages needed by the future expression (n = 0): <none>
  [14:34:08.221] Packages needed by future strategies (n = 0): <none>
  [14:34:08.222] {
  [14:34:08.222]     {
  [14:34:08.222]         {
  [14:34:08.222]             ...future.startTime <- base::Sys.time()
  [14:34:08.222]             {
  [14:34:08.222]                 {
  [14:34:08.222]                   {
  [14:34:08.222]                     base::local({
  [14:34:08.222]                       has_future <- base::requireNamespace("future", 
  [14:34:08.222]                         quietly = TRUE)
  [14:34:08.222]                       if (has_future) {
  [14:34:08.222]                         ns <- base::getNamespace("future")
  [14:34:08.222]                         version <- ns[[".package"]][["version"]]
  [14:34:08.222]                         if (is.null(version)) 
  [14:34:08.222]                           version <- utils::packageVersion("future")
  [14:34:08.222]                       }
  [14:34:08.222]                       else {
  [14:34:08.222]                         version <- NULL
  [14:34:08.222]                       }
  [14:34:08.222]                       if (!has_future || version < "1.8.0") {
  [14:34:08.222]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.222]                           "", base::R.version$version.string), 
  [14:34:08.222]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.222]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.222]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.222]                             "release", "version")], collapse = " "), 
  [14:34:08.222]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.222]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.222]                           info)
  [14:34:08.222]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.222]                         if (!has_future) {
  [14:34:08.222]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.222]                             info)
  [14:34:08.222]                         }
  [14:34:08.222]                         else {
  [14:34:08.222]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.222]                             info, version)
  [14:34:08.222]                         }
  [14:34:08.222]                         base::stop(msg)
  [14:34:08.222]                       }
  [14:34:08.222]                     })
  [14:34:08.222]                   }
  [14:34:08.222]                   options(future.plan = NULL)
  [14:34:08.222]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.222]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.222]                 }
  [14:34:08.222]                 ...future.workdir <- getwd()
  [14:34:08.222]             }
  [14:34:08.222]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.222]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.222]         }
  [14:34:08.222]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.222]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.222]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.222]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.222]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.222]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.222]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.222]             base::names(...future.oldOptions))
  [14:34:08.222]     }
  [14:34:08.222]     if (FALSE) {
  [14:34:08.222]     }
  [14:34:08.222]     else {
  [14:34:08.222]         if (TRUE) {
  [14:34:08.222]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.222]                 open = "w")
  [14:34:08.222]         }
  [14:34:08.222]         else {
  [14:34:08.222]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.222]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.222]         }
  [14:34:08.222]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.222]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.222]             base::sink(type = "output", split = FALSE)
  [14:34:08.222]             base::close(...future.stdout)
  [14:34:08.222]         }, add = TRUE)
  [14:34:08.222]     }
  [14:34:08.222]     ...future.frame <- base::sys.nframe()
  [14:34:08.222]     ...future.conditions <- base::list()
  [14:34:08.222]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.222]     if (FALSE) {
  [14:34:08.222]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.222]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.222]     }
  [14:34:08.222]     ...future.result <- base::tryCatch({
  [14:34:08.222]         base::withCallingHandlers({
  [14:34:08.222]             ...future.value <- base::withVisible(base::local({
  [14:34:08.222]                 do.call(function(...) {
  [14:34:08.222]                   sum(x, ...)
  [14:34:08.222]                 }, args = future.call.arguments)
  [14:34:08.222]             }))
  [14:34:08.222]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.222]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.222]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.222]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.222]                     ...future.globalenv.names))
  [14:34:08.222]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.222]         }, condition = base::local({
  [14:34:08.222]             c <- base::c
  [14:34:08.222]             inherits <- base::inherits
  [14:34:08.222]             invokeRestart <- base::invokeRestart
  [14:34:08.222]             length <- base::length
  [14:34:08.222]             list <- base::list
  [14:34:08.222]             seq.int <- base::seq.int
  [14:34:08.222]             signalCondition <- base::signalCondition
  [14:34:08.222]             sys.calls <- base::sys.calls
  [14:34:08.222]             `[[` <- base::`[[`
  [14:34:08.222]             `+` <- base::`+`
  [14:34:08.222]             `<<-` <- base::`<<-`
  [14:34:08.222]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.222]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.222]                   3L)]
  [14:34:08.222]             }
  [14:34:08.222]             function(cond) {
  [14:34:08.222]                 is_error <- inherits(cond, "error")
  [14:34:08.222]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.222]                   NULL)
  [14:34:08.222]                 if (is_error) {
  [14:34:08.222]                   sessionInformation <- function() {
  [14:34:08.222]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.222]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.222]                       search = base::search(), system = base::Sys.info())
  [14:34:08.222]                   }
  [14:34:08.222]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.222]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.222]                     cond$call), session = sessionInformation(), 
  [14:34:08.222]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.222]                   signalCondition(cond)
  [14:34:08.222]                 }
  [14:34:08.222]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.222]                 "immediateCondition"))) {
  [14:34:08.222]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.222]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.222]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.222]                   if (TRUE && !signal) {
  [14:34:08.222]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.222]                     {
  [14:34:08.222]                       inherits <- base::inherits
  [14:34:08.222]                       invokeRestart <- base::invokeRestart
  [14:34:08.222]                       is.null <- base::is.null
  [14:34:08.222]                       muffled <- FALSE
  [14:34:08.222]                       if (inherits(cond, "message")) {
  [14:34:08.222]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.222]                         if (muffled) 
  [14:34:08.222]                           invokeRestart("muffleMessage")
  [14:34:08.222]                       }
  [14:34:08.222]                       else if (inherits(cond, "warning")) {
  [14:34:08.222]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.222]                         if (muffled) 
  [14:34:08.222]                           invokeRestart("muffleWarning")
  [14:34:08.222]                       }
  [14:34:08.222]                       else if (inherits(cond, "condition")) {
  [14:34:08.222]                         if (!is.null(pattern)) {
  [14:34:08.222]                           computeRestarts <- base::computeRestarts
  [14:34:08.222]                           grepl <- base::grepl
  [14:34:08.222]                           restarts <- computeRestarts(cond)
  [14:34:08.222]                           for (restart in restarts) {
  [14:34:08.222]                             name <- restart$name
  [14:34:08.222]                             if (is.null(name)) 
  [14:34:08.222]                               next
  [14:34:08.222]                             if (!grepl(pattern, name)) 
  [14:34:08.222]                               next
  [14:34:08.222]                             invokeRestart(restart)
  [14:34:08.222]                             muffled <- TRUE
  [14:34:08.222]                             break
  [14:34:08.222]                           }
  [14:34:08.222]                         }
  [14:34:08.222]                       }
  [14:34:08.222]                       invisible(muffled)
  [14:34:08.222]                     }
  [14:34:08.222]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.222]                   }
  [14:34:08.222]                 }
  [14:34:08.222]                 else {
  [14:34:08.222]                   if (TRUE) {
  [14:34:08.222]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.222]                     {
  [14:34:08.222]                       inherits <- base::inherits
  [14:34:08.222]                       invokeRestart <- base::invokeRestart
  [14:34:08.222]                       is.null <- base::is.null
  [14:34:08.222]                       muffled <- FALSE
  [14:34:08.222]                       if (inherits(cond, "message")) {
  [14:34:08.222]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.222]                         if (muffled) 
  [14:34:08.222]                           invokeRestart("muffleMessage")
  [14:34:08.222]                       }
  [14:34:08.222]                       else if (inherits(cond, "warning")) {
  [14:34:08.222]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.222]                         if (muffled) 
  [14:34:08.222]                           invokeRestart("muffleWarning")
  [14:34:08.222]                       }
  [14:34:08.222]                       else if (inherits(cond, "condition")) {
  [14:34:08.222]                         if (!is.null(pattern)) {
  [14:34:08.222]                           computeRestarts <- base::computeRestarts
  [14:34:08.222]                           grepl <- base::grepl
  [14:34:08.222]                           restarts <- computeRestarts(cond)
  [14:34:08.222]                           for (restart in restarts) {
  [14:34:08.222]                             name <- restart$name
  [14:34:08.222]                             if (is.null(name)) 
  [14:34:08.222]                               next
  [14:34:08.222]                             if (!grepl(pattern, name)) 
  [14:34:08.222]                               next
  [14:34:08.222]                             invokeRestart(restart)
  [14:34:08.222]                             muffled <- TRUE
  [14:34:08.222]                             break
  [14:34:08.222]                           }
  [14:34:08.222]                         }
  [14:34:08.222]                       }
  [14:34:08.222]                       invisible(muffled)
  [14:34:08.222]                     }
  [14:34:08.222]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.222]                   }
  [14:34:08.222]                 }
  [14:34:08.222]             }
  [14:34:08.222]         }))
  [14:34:08.222]     }, error = function(ex) {
  [14:34:08.222]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.222]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.222]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.222]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.222]             version = "1.8"), class = "FutureResult")
  [14:34:08.222]     }, finally = {
  [14:34:08.222]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.222]             setwd(...future.workdir)
  [14:34:08.222]         {
  [14:34:08.222]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.222]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.222]             }
  [14:34:08.222]             base::options(...future.oldOptions)
  [14:34:08.222]             if (.Platform$OS.type == "windows") {
  [14:34:08.222]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.222]                 envs <- base::Sys.getenv()
  [14:34:08.222]                 names <- names(envs)
  [14:34:08.222]                 common <- intersect(names, old_names)
  [14:34:08.222]                 added <- setdiff(names, old_names)
  [14:34:08.222]                 removed <- setdiff(old_names, names)
  [14:34:08.222]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.222]                   envs[common]]
  [14:34:08.222]                 NAMES <- toupper(changed)
  [14:34:08.222]                 args <- list()
  [14:34:08.222]                 for (kk in seq_along(NAMES)) {
  [14:34:08.222]                   name <- changed[[kk]]
  [14:34:08.222]                   NAME <- NAMES[[kk]]
  [14:34:08.222]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.222]                     next
  [14:34:08.222]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.222]                 }
  [14:34:08.222]                 NAMES <- toupper(added)
  [14:34:08.222]                 for (kk in seq_along(NAMES)) {
  [14:34:08.222]                   name <- added[[kk]]
  [14:34:08.222]                   NAME <- NAMES[[kk]]
  [14:34:08.222]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.222]                     next
  [14:34:08.222]                   args[[name]] <- ""
  [14:34:08.222]                 }
  [14:34:08.222]                 NAMES <- toupper(removed)
  [14:34:08.222]                 for (kk in seq_along(NAMES)) {
  [14:34:08.222]                   name <- removed[[kk]]
  [14:34:08.222]                   NAME <- NAMES[[kk]]
  [14:34:08.222]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.222]                     next
  [14:34:08.222]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.222]                 }
  [14:34:08.222]                 if (length(args) > 0) 
  [14:34:08.222]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.222]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.222]             }
  [14:34:08.222]             else {
  [14:34:08.222]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.222]             }
  [14:34:08.222]             {
  [14:34:08.222]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.222]                   0L) {
  [14:34:08.222]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.222]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.222]                   base::options(opts)
  [14:34:08.222]                 }
  [14:34:08.222]                 {
  [14:34:08.222]                   {
  [14:34:08.222]                     NULL
  [14:34:08.222]                     RNGkind("Mersenne-Twister")
  [14:34:08.222]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.222]                       inherits = FALSE)
  [14:34:08.222]                   }
  [14:34:08.222]                   options(future.plan = NULL)
  [14:34:08.222]                   if (is.na(NA_character_)) 
  [14:34:08.222]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.222]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.222]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.222]                   {
  [14:34:08.222]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.222]                     if (!future$lazy) 
  [14:34:08.222]                       future <- run(future)
  [14:34:08.222]                     invisible(future)
  [14:34:08.222]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.222]                 }
  [14:34:08.222]             }
  [14:34:08.222]         }
  [14:34:08.222]     })
  [14:34:08.222]     if (TRUE) {
  [14:34:08.222]         base::sink(type = "output", split = FALSE)
  [14:34:08.222]         if (TRUE) {
  [14:34:08.222]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.222]         }
  [14:34:08.222]         else {
  [14:34:08.222]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.222]         }
  [14:34:08.222]         base::close(...future.stdout)
  [14:34:08.222]         ...future.stdout <- NULL
  [14:34:08.222]     }
  [14:34:08.222]     ...future.result$conditions <- ...future.conditions
  [14:34:08.222]     ...future.result$finished <- base::Sys.time()
  [14:34:08.222]     ...future.result
  [14:34:08.222] }
  [14:34:08.229] assign_globals() ...
  [14:34:08.230] List of 2
  [14:34:08.230]  $ x                    : int [1:2] 1 2
  [14:34:08.230]  $ future.call.arguments:List of 1
  [14:34:08.230]   ..$ : num 3
  [14:34:08.230]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
  [14:34:08.230]  - attr(*, "where")=List of 2
  [14:34:08.230]   ..$ x                    :<environment: R_EmptyEnv> 
  [14:34:08.230]   ..$ future.call.arguments:<environment: R_EmptyEnv> 
  [14:34:08.230]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.230]  - attr(*, "resolved")= logi FALSE
  [14:34:08.230]  - attr(*, "total_size")= num 112
  [14:34:08.230]  - attr(*, "already-done")= logi TRUE
  [14:34:08.241] - copied 'x' to environment
  [14:34:08.241] - copied 'future.call.arguments' to environment
  [14:34:08.242] assign_globals() ... done
  [14:34:08.242] plan(): Setting new future strategy stack:
  [14:34:08.242] List of future strategies:
  [14:34:08.242] 1. sequential:
  [14:34:08.242]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.242]    - tweaked: FALSE
  [14:34:08.242]    - call: NULL
  [14:34:08.244] plan(): nbrOfWorkers() = 1
  [14:34:08.245] plan(): Setting new future strategy stack:
  [14:34:08.246] List of future strategies:
  [14:34:08.246] 1. sequential:
  [14:34:08.246]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.246]    - tweaked: FALSE
  [14:34:08.246]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.247] plan(): nbrOfWorkers() = 1
  [14:34:08.247] SequentialFuture started (and completed)
  [14:34:08.248] - Launch lazy future ... done
  [14:34:08.248] run() for 'SequentialFuture' ... done
  [1] 6
  ** Sum function 'C' with plan('sequential') ...
  function (x, y) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, y)
      }
      y
  }
  <bytecode: 0x000002748b70ef10>
  Arguments '...' exists: FALSE
  [14:34:08.249] getGlobalsAndPackages() ...
  [14:34:08.250] Searching for globals...
  [14:34:08.252] - globals found: [4] '{', 'sum', 'x', 'y'
  [14:34:08.252] Searching for globals ... DONE
  [14:34:08.253] Resolving globals: FALSE
  [14:34:08.254] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:08.254] The total size of the 2 globals exported for future expression ('{; sum(x, y); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:08.255] - globals: [2] 'x', 'y'
  [14:34:08.255] 
  [14:34:08.255] getGlobalsAndPackages() ... DONE
  [14:34:08.256] run() for 'Future' ...
  [14:34:08.256] - state: 'created'
  [14:34:08.257] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.257] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.258] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.258]   - Field: 'label'
  [14:34:08.258]   - Field: 'local'
  [14:34:08.258]   - Field: 'owner'
  [14:34:08.259]   - Field: 'envir'
  [14:34:08.259]   - Field: 'packages'
  [14:34:08.259]   - Field: 'gc'
  [14:34:08.260]   - Field: 'conditions'
  [14:34:08.260]   - Field: 'expr'
  [14:34:08.260]   - Field: 'uuid'
  [14:34:08.261]   - Field: 'seed'
  [14:34:08.261]   - Field: 'version'
  [14:34:08.261]   - Field: 'result'
  [14:34:08.261]   - Field: 'asynchronous'
  [14:34:08.262]   - Field: 'calls'
  [14:34:08.262]   - Field: 'globals'
  [14:34:08.262]   - Field: 'stdout'
  [14:34:08.263]   - Field: 'earlySignal'
  [14:34:08.263]   - Field: 'lazy'
  [14:34:08.263]   - Field: 'state'
  [14:34:08.263] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.264] - Launch lazy future ...
  [14:34:08.264] Packages needed by the future expression (n = 0): <none>
  [14:34:08.264] Packages needed by future strategies (n = 0): <none>
  [14:34:08.265] {
  [14:34:08.265]     {
  [14:34:08.265]         {
  [14:34:08.265]             ...future.startTime <- base::Sys.time()
  [14:34:08.265]             {
  [14:34:08.265]                 {
  [14:34:08.265]                   {
  [14:34:08.265]                     base::local({
  [14:34:08.265]                       has_future <- base::requireNamespace("future", 
  [14:34:08.265]                         quietly = TRUE)
  [14:34:08.265]                       if (has_future) {
  [14:34:08.265]                         ns <- base::getNamespace("future")
  [14:34:08.265]                         version <- ns[[".package"]][["version"]]
  [14:34:08.265]                         if (is.null(version)) 
  [14:34:08.265]                           version <- utils::packageVersion("future")
  [14:34:08.265]                       }
  [14:34:08.265]                       else {
  [14:34:08.265]                         version <- NULL
  [14:34:08.265]                       }
  [14:34:08.265]                       if (!has_future || version < "1.8.0") {
  [14:34:08.265]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.265]                           "", base::R.version$version.string), 
  [14:34:08.265]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.265]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.265]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.265]                             "release", "version")], collapse = " "), 
  [14:34:08.265]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.265]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.265]                           info)
  [14:34:08.265]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.265]                         if (!has_future) {
  [14:34:08.265]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.265]                             info)
  [14:34:08.265]                         }
  [14:34:08.265]                         else {
  [14:34:08.265]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.265]                             info, version)
  [14:34:08.265]                         }
  [14:34:08.265]                         base::stop(msg)
  [14:34:08.265]                       }
  [14:34:08.265]                     })
  [14:34:08.265]                   }
  [14:34:08.265]                   options(future.plan = NULL)
  [14:34:08.265]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.265]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.265]                 }
  [14:34:08.265]                 ...future.workdir <- getwd()
  [14:34:08.265]             }
  [14:34:08.265]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.265]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.265]         }
  [14:34:08.265]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.265]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.265]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.265]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.265]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.265]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.265]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.265]             base::names(...future.oldOptions))
  [14:34:08.265]     }
  [14:34:08.265]     if (FALSE) {
  [14:34:08.265]     }
  [14:34:08.265]     else {
  [14:34:08.265]         if (TRUE) {
  [14:34:08.265]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.265]                 open = "w")
  [14:34:08.265]         }
  [14:34:08.265]         else {
  [14:34:08.265]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.265]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.265]         }
  [14:34:08.265]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.265]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.265]             base::sink(type = "output", split = FALSE)
  [14:34:08.265]             base::close(...future.stdout)
  [14:34:08.265]         }, add = TRUE)
  [14:34:08.265]     }
  [14:34:08.265]     ...future.frame <- base::sys.nframe()
  [14:34:08.265]     ...future.conditions <- base::list()
  [14:34:08.265]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.265]     if (FALSE) {
  [14:34:08.265]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.265]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.265]     }
  [14:34:08.265]     ...future.result <- base::tryCatch({
  [14:34:08.265]         base::withCallingHandlers({
  [14:34:08.265]             ...future.value <- base::withVisible(base::local({
  [14:34:08.265]                 sum(x, y)
  [14:34:08.265]             }))
  [14:34:08.265]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.265]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.265]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.265]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.265]                     ...future.globalenv.names))
  [14:34:08.265]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.265]         }, condition = base::local({
  [14:34:08.265]             c <- base::c
  [14:34:08.265]             inherits <- base::inherits
  [14:34:08.265]             invokeRestart <- base::invokeRestart
  [14:34:08.265]             length <- base::length
  [14:34:08.265]             list <- base::list
  [14:34:08.265]             seq.int <- base::seq.int
  [14:34:08.265]             signalCondition <- base::signalCondition
  [14:34:08.265]             sys.calls <- base::sys.calls
  [14:34:08.265]             `[[` <- base::`[[`
  [14:34:08.265]             `+` <- base::`+`
  [14:34:08.265]             `<<-` <- base::`<<-`
  [14:34:08.265]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.265]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.265]                   3L)]
  [14:34:08.265]             }
  [14:34:08.265]             function(cond) {
  [14:34:08.265]                 is_error <- inherits(cond, "error")
  [14:34:08.265]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.265]                   NULL)
  [14:34:08.265]                 if (is_error) {
  [14:34:08.265]                   sessionInformation <- function() {
  [14:34:08.265]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.265]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.265]                       search = base::search(), system = base::Sys.info())
  [14:34:08.265]                   }
  [14:34:08.265]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.265]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.265]                     cond$call), session = sessionInformation(), 
  [14:34:08.265]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.265]                   signalCondition(cond)
  [14:34:08.265]                 }
  [14:34:08.265]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.265]                 "immediateCondition"))) {
  [14:34:08.265]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.265]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.265]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.265]                   if (TRUE && !signal) {
  [14:34:08.265]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.265]                     {
  [14:34:08.265]                       inherits <- base::inherits
  [14:34:08.265]                       invokeRestart <- base::invokeRestart
  [14:34:08.265]                       is.null <- base::is.null
  [14:34:08.265]                       muffled <- FALSE
  [14:34:08.265]                       if (inherits(cond, "message")) {
  [14:34:08.265]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.265]                         if (muffled) 
  [14:34:08.265]                           invokeRestart("muffleMessage")
  [14:34:08.265]                       }
  [14:34:08.265]                       else if (inherits(cond, "warning")) {
  [14:34:08.265]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.265]                         if (muffled) 
  [14:34:08.265]                           invokeRestart("muffleWarning")
  [14:34:08.265]                       }
  [14:34:08.265]                       else if (inherits(cond, "condition")) {
  [14:34:08.265]                         if (!is.null(pattern)) {
  [14:34:08.265]                           computeRestarts <- base::computeRestarts
  [14:34:08.265]                           grepl <- base::grepl
  [14:34:08.265]                           restarts <- computeRestarts(cond)
  [14:34:08.265]                           for (restart in restarts) {
  [14:34:08.265]                             name <- restart$name
  [14:34:08.265]                             if (is.null(name)) 
  [14:34:08.265]                               next
  [14:34:08.265]                             if (!grepl(pattern, name)) 
  [14:34:08.265]                               next
  [14:34:08.265]                             invokeRestart(restart)
  [14:34:08.265]                             muffled <- TRUE
  [14:34:08.265]                             break
  [14:34:08.265]                           }
  [14:34:08.265]                         }
  [14:34:08.265]                       }
  [14:34:08.265]                       invisible(muffled)
  [14:34:08.265]                     }
  [14:34:08.265]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.265]                   }
  [14:34:08.265]                 }
  [14:34:08.265]                 else {
  [14:34:08.265]                   if (TRUE) {
  [14:34:08.265]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.265]                     {
  [14:34:08.265]                       inherits <- base::inherits
  [14:34:08.265]                       invokeRestart <- base::invokeRestart
  [14:34:08.265]                       is.null <- base::is.null
  [14:34:08.265]                       muffled <- FALSE
  [14:34:08.265]                       if (inherits(cond, "message")) {
  [14:34:08.265]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.265]                         if (muffled) 
  [14:34:08.265]                           invokeRestart("muffleMessage")
  [14:34:08.265]                       }
  [14:34:08.265]                       else if (inherits(cond, "warning")) {
  [14:34:08.265]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.265]                         if (muffled) 
  [14:34:08.265]                           invokeRestart("muffleWarning")
  [14:34:08.265]                       }
  [14:34:08.265]                       else if (inherits(cond, "condition")) {
  [14:34:08.265]                         if (!is.null(pattern)) {
  [14:34:08.265]                           computeRestarts <- base::computeRestarts
  [14:34:08.265]                           grepl <- base::grepl
  [14:34:08.265]                           restarts <- computeRestarts(cond)
  [14:34:08.265]                           for (restart in restarts) {
  [14:34:08.265]                             name <- restart$name
  [14:34:08.265]                             if (is.null(name)) 
  [14:34:08.265]                               next
  [14:34:08.265]                             if (!grepl(pattern, name)) 
  [14:34:08.265]                               next
  [14:34:08.265]                             invokeRestart(restart)
  [14:34:08.265]                             muffled <- TRUE
  [14:34:08.265]                             break
  [14:34:08.265]                           }
  [14:34:08.265]                         }
  [14:34:08.265]                       }
  [14:34:08.265]                       invisible(muffled)
  [14:34:08.265]                     }
  [14:34:08.265]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.265]                   }
  [14:34:08.265]                 }
  [14:34:08.265]             }
  [14:34:08.265]         }))
  [14:34:08.265]     }, error = function(ex) {
  [14:34:08.265]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.265]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.265]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.265]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.265]             version = "1.8"), class = "FutureResult")
  [14:34:08.265]     }, finally = {
  [14:34:08.265]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.265]             setwd(...future.workdir)
  [14:34:08.265]         {
  [14:34:08.265]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.265]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.265]             }
  [14:34:08.265]             base::options(...future.oldOptions)
  [14:34:08.265]             if (.Platform$OS.type == "windows") {
  [14:34:08.265]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.265]                 envs <- base::Sys.getenv()
  [14:34:08.265]                 names <- names(envs)
  [14:34:08.265]                 common <- intersect(names, old_names)
  [14:34:08.265]                 added <- setdiff(names, old_names)
  [14:34:08.265]                 removed <- setdiff(old_names, names)
  [14:34:08.265]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.265]                   envs[common]]
  [14:34:08.265]                 NAMES <- toupper(changed)
  [14:34:08.265]                 args <- list()
  [14:34:08.265]                 for (kk in seq_along(NAMES)) {
  [14:34:08.265]                   name <- changed[[kk]]
  [14:34:08.265]                   NAME <- NAMES[[kk]]
  [14:34:08.265]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.265]                     next
  [14:34:08.265]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.265]                 }
  [14:34:08.265]                 NAMES <- toupper(added)
  [14:34:08.265]                 for (kk in seq_along(NAMES)) {
  [14:34:08.265]                   name <- added[[kk]]
  [14:34:08.265]                   NAME <- NAMES[[kk]]
  [14:34:08.265]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.265]                     next
  [14:34:08.265]                   args[[name]] <- ""
  [14:34:08.265]                 }
  [14:34:08.265]                 NAMES <- toupper(removed)
  [14:34:08.265]                 for (kk in seq_along(NAMES)) {
  [14:34:08.265]                   name <- removed[[kk]]
  [14:34:08.265]                   NAME <- NAMES[[kk]]
  [14:34:08.265]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.265]                     next
  [14:34:08.265]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.265]                 }
  [14:34:08.265]                 if (length(args) > 0) 
  [14:34:08.265]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.265]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.265]             }
  [14:34:08.265]             else {
  [14:34:08.265]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.265]             }
  [14:34:08.265]             {
  [14:34:08.265]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.265]                   0L) {
  [14:34:08.265]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.265]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.265]                   base::options(opts)
  [14:34:08.265]                 }
  [14:34:08.265]                 {
  [14:34:08.265]                   {
  [14:34:08.265]                     NULL
  [14:34:08.265]                     RNGkind("Mersenne-Twister")
  [14:34:08.265]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.265]                       inherits = FALSE)
  [14:34:08.265]                   }
  [14:34:08.265]                   options(future.plan = NULL)
  [14:34:08.265]                   if (is.na(NA_character_)) 
  [14:34:08.265]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.265]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.265]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.265]                   {
  [14:34:08.265]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.265]                     if (!future$lazy) 
  [14:34:08.265]                       future <- run(future)
  [14:34:08.265]                     invisible(future)
  [14:34:08.265]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.265]                 }
  [14:34:08.265]             }
  [14:34:08.265]         }
  [14:34:08.265]     })
  [14:34:08.265]     if (TRUE) {
  [14:34:08.265]         base::sink(type = "output", split = FALSE)
  [14:34:08.265]         if (TRUE) {
  [14:34:08.265]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.265]         }
  [14:34:08.265]         else {
  [14:34:08.265]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.265]         }
  [14:34:08.265]         base::close(...future.stdout)
  [14:34:08.265]         ...future.stdout <- NULL
  [14:34:08.265]     }
  [14:34:08.265]     ...future.result$conditions <- ...future.conditions
  [14:34:08.265]     ...future.result$finished <- base::Sys.time()
  [14:34:08.265]     ...future.result
  [14:34:08.265] }
  [14:34:08.272] assign_globals() ...
  [14:34:08.273] List of 2
  [14:34:08.273]  $ x: int [1:2] 1 2
  [14:34:08.273]  $ y: num 3
  [14:34:08.273]  - attr(*, "where")=List of 2
  [14:34:08.273]   ..$ x:<environment: R_EmptyEnv> 
  [14:34:08.273]   ..$ y:<environment: R_EmptyEnv> 
  [14:34:08.273]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.273]  - attr(*, "resolved")= logi FALSE
  [14:34:08.273]  - attr(*, "total_size")= num 112
  [14:34:08.273]  - attr(*, "already-done")= logi TRUE
  [14:34:08.279] - copied 'x' to environment
  [14:34:08.279] - copied 'y' to environment
  [14:34:08.279] assign_globals() ... done
  [14:34:08.280] plan(): Setting new future strategy stack:
  [14:34:08.280] List of future strategies:
  [14:34:08.280] 1. sequential:
  [14:34:08.280]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.280]    - tweaked: FALSE
  [14:34:08.280]    - call: NULL
  [14:34:08.281] plan(): nbrOfWorkers() = 1
  [14:34:08.283] plan(): Setting new future strategy stack:
  [14:34:08.283] List of future strategies:
  [14:34:08.283] 1. sequential:
  [14:34:08.283]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.283]    - tweaked: FALSE
  [14:34:08.283]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.284] plan(): nbrOfWorkers() = 1
  [14:34:08.285] SequentialFuture started (and completed)
  [14:34:08.285] - Launch lazy future ... done
  [14:34:08.285] run() for 'SequentialFuture' ... done
  [1] 6
  ** Sum function 'D' with plan('sequential') ...
  function (x, y) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, y, ...)
      }
      y
  }
  <bytecode: 0x000002748b803958>
  Arguments '...' exists: FALSE
  [14:34:08.287] getGlobalsAndPackages() ...
  [14:34:08.287] Searching for globals...
  [14:34:08.290] - globals found: [5] '{', 'sum', 'x', 'y', '...'
  [14:34:08.290] Searching for globals ... DONE
  [14:34:08.291] Resolving globals: FALSE
  [14:34:08.291] Tweak future expression to call with '...' arguments ...
  [14:34:08.292] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:08.293] The total size of the 2 globals exported for future expression ('{; sum(x, y, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:08.293] - globals: [2] 'x', 'y'
  [14:34:08.293] 
  [14:34:08.294] getGlobalsAndPackages() ... DONE
  [14:34:08.297] run() for 'Future' ...
  [14:34:08.297] - state: 'created'
  [14:34:08.297] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.298] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.298] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.299]   - Field: 'label'
  [14:34:08.299]   - Field: 'local'
  [14:34:08.299]   - Field: 'owner'
  [14:34:08.300]   - Field: 'envir'
  [14:34:08.300]   - Field: 'packages'
  [14:34:08.300]   - Field: 'gc'
  [14:34:08.300]   - Field: 'conditions'
  [14:34:08.301]   - Field: 'expr'
  [14:34:08.301]   - Field: 'uuid'
  [14:34:08.301]   - Field: 'seed'
  [14:34:08.301]   - Field: 'version'
  [14:34:08.302]   - Field: 'result'
  [14:34:08.302]   - Field: 'asynchronous'
  [14:34:08.302]   - Field: 'calls'
  [14:34:08.303]   - Field: 'globals'
  [14:34:08.303]   - Field: 'stdout'
  [14:34:08.303]   - Field: 'earlySignal'
  [14:34:08.303]   - Field: 'lazy'
  [14:34:08.304]   - Field: 'state'
  [14:34:08.304] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.304] - Launch lazy future ...
  [14:34:08.305] Packages needed by the future expression (n = 0): <none>
  [14:34:08.305] Packages needed by future strategies (n = 0): <none>
  [14:34:08.306] {
  [14:34:08.306]     {
  [14:34:08.306]         {
  [14:34:08.306]             ...future.startTime <- base::Sys.time()
  [14:34:08.306]             {
  [14:34:08.306]                 {
  [14:34:08.306]                   {
  [14:34:08.306]                     base::local({
  [14:34:08.306]                       has_future <- base::requireNamespace("future", 
  [14:34:08.306]                         quietly = TRUE)
  [14:34:08.306]                       if (has_future) {
  [14:34:08.306]                         ns <- base::getNamespace("future")
  [14:34:08.306]                         version <- ns[[".package"]][["version"]]
  [14:34:08.306]                         if (is.null(version)) 
  [14:34:08.306]                           version <- utils::packageVersion("future")
  [14:34:08.306]                       }
  [14:34:08.306]                       else {
  [14:34:08.306]                         version <- NULL
  [14:34:08.306]                       }
  [14:34:08.306]                       if (!has_future || version < "1.8.0") {
  [14:34:08.306]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.306]                           "", base::R.version$version.string), 
  [14:34:08.306]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.306]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.306]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.306]                             "release", "version")], collapse = " "), 
  [14:34:08.306]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.306]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.306]                           info)
  [14:34:08.306]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.306]                         if (!has_future) {
  [14:34:08.306]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.306]                             info)
  [14:34:08.306]                         }
  [14:34:08.306]                         else {
  [14:34:08.306]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.306]                             info, version)
  [14:34:08.306]                         }
  [14:34:08.306]                         base::stop(msg)
  [14:34:08.306]                       }
  [14:34:08.306]                     })
  [14:34:08.306]                   }
  [14:34:08.306]                   options(future.plan = NULL)
  [14:34:08.306]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.306]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.306]                 }
  [14:34:08.306]                 ...future.workdir <- getwd()
  [14:34:08.306]             }
  [14:34:08.306]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.306]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.306]         }
  [14:34:08.306]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.306]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.306]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.306]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.306]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.306]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.306]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.306]             base::names(...future.oldOptions))
  [14:34:08.306]     }
  [14:34:08.306]     if (FALSE) {
  [14:34:08.306]     }
  [14:34:08.306]     else {
  [14:34:08.306]         if (TRUE) {
  [14:34:08.306]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.306]                 open = "w")
  [14:34:08.306]         }
  [14:34:08.306]         else {
  [14:34:08.306]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.306]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.306]         }
  [14:34:08.306]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.306]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.306]             base::sink(type = "output", split = FALSE)
  [14:34:08.306]             base::close(...future.stdout)
  [14:34:08.306]         }, add = TRUE)
  [14:34:08.306]     }
  [14:34:08.306]     ...future.frame <- base::sys.nframe()
  [14:34:08.306]     ...future.conditions <- base::list()
  [14:34:08.306]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.306]     if (FALSE) {
  [14:34:08.306]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.306]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.306]     }
  [14:34:08.306]     ...future.result <- base::tryCatch({
  [14:34:08.306]         base::withCallingHandlers({
  [14:34:08.306]             ...future.value <- base::withVisible(base::local({
  [14:34:08.306]                 sum(x, y, ...)
  [14:34:08.306]             }))
  [14:34:08.306]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.306]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.306]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.306]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.306]                     ...future.globalenv.names))
  [14:34:08.306]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.306]         }, condition = base::local({
  [14:34:08.306]             c <- base::c
  [14:34:08.306]             inherits <- base::inherits
  [14:34:08.306]             invokeRestart <- base::invokeRestart
  [14:34:08.306]             length <- base::length
  [14:34:08.306]             list <- base::list
  [14:34:08.306]             seq.int <- base::seq.int
  [14:34:08.306]             signalCondition <- base::signalCondition
  [14:34:08.306]             sys.calls <- base::sys.calls
  [14:34:08.306]             `[[` <- base::`[[`
  [14:34:08.306]             `+` <- base::`+`
  [14:34:08.306]             `<<-` <- base::`<<-`
  [14:34:08.306]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.306]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.306]                   3L)]
  [14:34:08.306]             }
  [14:34:08.306]             function(cond) {
  [14:34:08.306]                 is_error <- inherits(cond, "error")
  [14:34:08.306]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.306]                   NULL)
  [14:34:08.306]                 if (is_error) {
  [14:34:08.306]                   sessionInformation <- function() {
  [14:34:08.306]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.306]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.306]                       search = base::search(), system = base::Sys.info())
  [14:34:08.306]                   }
  [14:34:08.306]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.306]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.306]                     cond$call), session = sessionInformation(), 
  [14:34:08.306]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.306]                   signalCondition(cond)
  [14:34:08.306]                 }
  [14:34:08.306]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.306]                 "immediateCondition"))) {
  [14:34:08.306]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.306]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.306]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.306]                   if (TRUE && !signal) {
  [14:34:08.306]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.306]                     {
  [14:34:08.306]                       inherits <- base::inherits
  [14:34:08.306]                       invokeRestart <- base::invokeRestart
  [14:34:08.306]                       is.null <- base::is.null
  [14:34:08.306]                       muffled <- FALSE
  [14:34:08.306]                       if (inherits(cond, "message")) {
  [14:34:08.306]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.306]                         if (muffled) 
  [14:34:08.306]                           invokeRestart("muffleMessage")
  [14:34:08.306]                       }
  [14:34:08.306]                       else if (inherits(cond, "warning")) {
  [14:34:08.306]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.306]                         if (muffled) 
  [14:34:08.306]                           invokeRestart("muffleWarning")
  [14:34:08.306]                       }
  [14:34:08.306]                       else if (inherits(cond, "condition")) {
  [14:34:08.306]                         if (!is.null(pattern)) {
  [14:34:08.306]                           computeRestarts <- base::computeRestarts
  [14:34:08.306]                           grepl <- base::grepl
  [14:34:08.306]                           restarts <- computeRestarts(cond)
  [14:34:08.306]                           for (restart in restarts) {
  [14:34:08.306]                             name <- restart$name
  [14:34:08.306]                             if (is.null(name)) 
  [14:34:08.306]                               next
  [14:34:08.306]                             if (!grepl(pattern, name)) 
  [14:34:08.306]                               next
  [14:34:08.306]                             invokeRestart(restart)
  [14:34:08.306]                             muffled <- TRUE
  [14:34:08.306]                             break
  [14:34:08.306]                           }
  [14:34:08.306]                         }
  [14:34:08.306]                       }
  [14:34:08.306]                       invisible(muffled)
  [14:34:08.306]                     }
  [14:34:08.306]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.306]                   }
  [14:34:08.306]                 }
  [14:34:08.306]                 else {
  [14:34:08.306]                   if (TRUE) {
  [14:34:08.306]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.306]                     {
  [14:34:08.306]                       inherits <- base::inherits
  [14:34:08.306]                       invokeRestart <- base::invokeRestart
  [14:34:08.306]                       is.null <- base::is.null
  [14:34:08.306]                       muffled <- FALSE
  [14:34:08.306]                       if (inherits(cond, "message")) {
  [14:34:08.306]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.306]                         if (muffled) 
  [14:34:08.306]                           invokeRestart("muffleMessage")
  [14:34:08.306]                       }
  [14:34:08.306]                       else if (inherits(cond, "warning")) {
  [14:34:08.306]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.306]                         if (muffled) 
  [14:34:08.306]                           invokeRestart("muffleWarning")
  [14:34:08.306]                       }
  [14:34:08.306]                       else if (inherits(cond, "condition")) {
  [14:34:08.306]                         if (!is.null(pattern)) {
  [14:34:08.306]                           computeRestarts <- base::computeRestarts
  [14:34:08.306]                           grepl <- base::grepl
  [14:34:08.306]                           restarts <- computeRestarts(cond)
  [14:34:08.306]                           for (restart in restarts) {
  [14:34:08.306]                             name <- restart$name
  [14:34:08.306]                             if (is.null(name)) 
  [14:34:08.306]                               next
  [14:34:08.306]                             if (!grepl(pattern, name)) 
  [14:34:08.306]                               next
  [14:34:08.306]                             invokeRestart(restart)
  [14:34:08.306]                             muffled <- TRUE
  [14:34:08.306]                             break
  [14:34:08.306]                           }
  [14:34:08.306]                         }
  [14:34:08.306]                       }
  [14:34:08.306]                       invisible(muffled)
  [14:34:08.306]                     }
  [14:34:08.306]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.306]                   }
  [14:34:08.306]                 }
  [14:34:08.306]             }
  [14:34:08.306]         }))
  [14:34:08.306]     }, error = function(ex) {
  [14:34:08.306]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.306]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.306]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.306]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.306]             version = "1.8"), class = "FutureResult")
  [14:34:08.306]     }, finally = {
  [14:34:08.306]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.306]             setwd(...future.workdir)
  [14:34:08.306]         {
  [14:34:08.306]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.306]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.306]             }
  [14:34:08.306]             base::options(...future.oldOptions)
  [14:34:08.306]             if (.Platform$OS.type == "windows") {
  [14:34:08.306]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.306]                 envs <- base::Sys.getenv()
  [14:34:08.306]                 names <- names(envs)
  [14:34:08.306]                 common <- intersect(names, old_names)
  [14:34:08.306]                 added <- setdiff(names, old_names)
  [14:34:08.306]                 removed <- setdiff(old_names, names)
  [14:34:08.306]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.306]                   envs[common]]
  [14:34:08.306]                 NAMES <- toupper(changed)
  [14:34:08.306]                 args <- list()
  [14:34:08.306]                 for (kk in seq_along(NAMES)) {
  [14:34:08.306]                   name <- changed[[kk]]
  [14:34:08.306]                   NAME <- NAMES[[kk]]
  [14:34:08.306]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.306]                     next
  [14:34:08.306]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.306]                 }
  [14:34:08.306]                 NAMES <- toupper(added)
  [14:34:08.306]                 for (kk in seq_along(NAMES)) {
  [14:34:08.306]                   name <- added[[kk]]
  [14:34:08.306]                   NAME <- NAMES[[kk]]
  [14:34:08.306]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.306]                     next
  [14:34:08.306]                   args[[name]] <- ""
  [14:34:08.306]                 }
  [14:34:08.306]                 NAMES <- toupper(removed)
  [14:34:08.306]                 for (kk in seq_along(NAMES)) {
  [14:34:08.306]                   name <- removed[[kk]]
  [14:34:08.306]                   NAME <- NAMES[[kk]]
  [14:34:08.306]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.306]                     next
  [14:34:08.306]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.306]                 }
  [14:34:08.306]                 if (length(args) > 0) 
  [14:34:08.306]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.306]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.306]             }
  [14:34:08.306]             else {
  [14:34:08.306]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.306]             }
  [14:34:08.306]             {
  [14:34:08.306]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.306]                   0L) {
  [14:34:08.306]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.306]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.306]                   base::options(opts)
  [14:34:08.306]                 }
  [14:34:08.306]                 {
  [14:34:08.306]                   {
  [14:34:08.306]                     NULL
  [14:34:08.306]                     RNGkind("Mersenne-Twister")
  [14:34:08.306]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.306]                       inherits = FALSE)
  [14:34:08.306]                   }
  [14:34:08.306]                   options(future.plan = NULL)
  [14:34:08.306]                   if (is.na(NA_character_)) 
  [14:34:08.306]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.306]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.306]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.306]                   {
  [14:34:08.306]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.306]                     if (!future$lazy) 
  [14:34:08.306]                       future <- run(future)
  [14:34:08.306]                     invisible(future)
  [14:34:08.306]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.306]                 }
  [14:34:08.306]             }
  [14:34:08.306]         }
  [14:34:08.306]     })
  [14:34:08.306]     if (TRUE) {
  [14:34:08.306]         base::sink(type = "output", split = FALSE)
  [14:34:08.306]         if (TRUE) {
  [14:34:08.306]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.306]         }
  [14:34:08.306]         else {
  [14:34:08.306]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.306]         }
  [14:34:08.306]         base::close(...future.stdout)
  [14:34:08.306]         ...future.stdout <- NULL
  [14:34:08.306]     }
  [14:34:08.306]     ...future.result$conditions <- ...future.conditions
  [14:34:08.306]     ...future.result$finished <- base::Sys.time()
  [14:34:08.306]     ...future.result
  [14:34:08.306] }
  [14:34:08.313] assign_globals() ...
  [14:34:08.314] List of 2
  [14:34:08.314]  $ x: int [1:2] 1 2
  [14:34:08.314]  $ y: num 3
  [14:34:08.314]  - attr(*, "where")=List of 2
  [14:34:08.314]   ..$ x:<environment: R_EmptyEnv> 
  [14:34:08.314]   ..$ y:<environment: R_EmptyEnv> 
  [14:34:08.314]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.314]  - attr(*, "resolved")= logi FALSE
  [14:34:08.314]  - attr(*, "total_size")= num 112
  [14:34:08.314]  - attr(*, "already-done")= logi TRUE
  [14:34:08.319] - copied 'x' to environment
  [14:34:08.320] - copied 'y' to environment
  [14:34:08.320] assign_globals() ... done
  [14:34:08.320] plan(): Setting new future strategy stack:
  [14:34:08.321] List of future strategies:
  [14:34:08.321] 1. sequential:
  [14:34:08.321]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.321]    - tweaked: FALSE
  [14:34:08.321]    - call: NULL
  [14:34:08.322] plan(): nbrOfWorkers() = 1
  [14:34:08.324] plan(): Setting new future strategy stack:
  [14:34:08.324] List of future strategies:
  [14:34:08.324] 1. sequential:
  [14:34:08.324]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.324]    - tweaked: FALSE
  [14:34:08.324]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.325] plan(): nbrOfWorkers() = 1
  [14:34:08.325] SequentialFuture started (and completed)
  [14:34:08.325] signalConditions() ...
  [14:34:08.326]  - include = 'immediateCondition'
  [14:34:08.326]  - exclude = 
  [14:34:08.326]  - resignal = FALSE
  [14:34:08.326]  - Number of conditions: 1
  [14:34:08.327] signalConditions() ... done
  [14:34:08.327] - Launch lazy future ... done
  [14:34:08.327] run() for 'SequentialFuture' ... done
  [14:34:08.327] signalConditions() ...
  [14:34:08.327]  - include = 'immediateCondition'
  [14:34:08.328]  - exclude = 
  [14:34:08.328]  - resignal = FALSE
  [14:34:08.328]  - Number of conditions: 1
  [14:34:08.328] signalConditions() ... done
  [14:34:08.328] Future state: 'finished'
  [14:34:08.328] signalConditions() ...
  [14:34:08.329]  - include = 'condition'
  [14:34:08.329]  - exclude = 'immediateCondition'
  [14:34:08.329]  - resignal = TRUE
  [14:34:08.329]  - Number of conditions: 1
  [14:34:08.329]  - Condition #1: 'simpleError', 'error', 'condition'
  [14:34:08.330] signalConditions() ... done
  Error in eval(quote({ : '...' used in an incorrect context
  [1] "Error in eval(quote({ : '...' used in an incorrect context\n"
  attr(,"class")
  [1] "try-error"
  attr(,"condition")
  <simpleError in eval(quote({    sum(x, y, ...)}), new.env()): '...' used in an incorrect context>
  ** Sum function 'E' with plan('sequential') ...
  function (...) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      globals <- globals::globalsByName("...", envir = environment())
      f <- future({
          fcn <- function() sum(...)
          fcn()
      }, envir = parent.frame(), globals = globals)
      y <- value(f)
      y
  }
  <bytecode: 0x000002748d749ae8>
  Arguments '...' exists: TRUE
  [14:34:08.331] getGlobalsAndPackages() ...
  [14:34:08.331] - globals passed as-is: [1] '...'
  [14:34:08.331] Resolving globals: FALSE
  [14:34:08.332] Tweak future expression to call with '...' arguments ...
  [14:34:08.332] {
  [14:34:08.332]     do.call(function(...) {
  [14:34:08.332]         fcn <- function() sum(...)
  [14:34:08.332]         fcn()
  [14:34:08.332]     }, args = future.call.arguments)
  [14:34:08.332] }
  [14:34:08.332] Tweak future expression to call with '...' arguments ... DONE
  [14:34:08.333] The total size of the 1 globals is 112 bytes (112 bytes)
  [14:34:08.333] The total size of the 1 globals exported for future expression ('{; fcn <- function() sum(...); fcn(); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'future.call.arguments' (112 bytes of class 'list')
  [14:34:08.333] - globals: [1] 'future.call.arguments'
  [14:34:08.333] 
  [14:34:08.334] getGlobalsAndPackages() ... DONE
  [14:34:08.334] run() for 'Future' ...
  [14:34:08.334] - state: 'created'
  [14:34:08.334] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.335] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.335] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.335]   - Field: 'label'
  [14:34:08.335]   - Field: 'local'
  [14:34:08.335]   - Field: 'owner'
  [14:34:08.335]   - Field: 'envir'
  [14:34:08.336]   - Field: 'packages'
  [14:34:08.336]   - Field: 'gc'
  [14:34:08.336]   - Field: 'conditions'
  [14:34:08.336]   - Field: 'expr'
  [14:34:08.336]   - Field: 'uuid'
  [14:34:08.336]   - Field: 'seed'
  [14:34:08.337]   - Field: 'version'
  [14:34:08.337]   - Field: 'result'
  [14:34:08.337]   - Field: 'asynchronous'
  [14:34:08.337]   - Field: 'calls'
  [14:34:08.338]   - Field: 'globals'
  [14:34:08.338]   - Field: 'stdout'
  [14:34:08.338]   - Field: 'earlySignal'
  [14:34:08.339]   - Field: 'lazy'
  [14:34:08.339]   - Field: 'state'
  [14:34:08.339] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.339] - Launch lazy future ...
  [14:34:08.339] Packages needed by the future expression (n = 0): <none>
  [14:34:08.340] Packages needed by future strategies (n = 0): <none>
  [14:34:08.340] {
  [14:34:08.340]     {
  [14:34:08.340]         {
  [14:34:08.340]             ...future.startTime <- base::Sys.time()
  [14:34:08.340]             {
  [14:34:08.340]                 {
  [14:34:08.340]                   {
  [14:34:08.340]                     base::local({
  [14:34:08.340]                       has_future <- base::requireNamespace("future", 
  [14:34:08.340]                         quietly = TRUE)
  [14:34:08.340]                       if (has_future) {
  [14:34:08.340]                         ns <- base::getNamespace("future")
  [14:34:08.340]                         version <- ns[[".package"]][["version"]]
  [14:34:08.340]                         if (is.null(version)) 
  [14:34:08.340]                           version <- utils::packageVersion("future")
  [14:34:08.340]                       }
  [14:34:08.340]                       else {
  [14:34:08.340]                         version <- NULL
  [14:34:08.340]                       }
  [14:34:08.340]                       if (!has_future || version < "1.8.0") {
  [14:34:08.340]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.340]                           "", base::R.version$version.string), 
  [14:34:08.340]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.340]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.340]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.340]                             "release", "version")], collapse = " "), 
  [14:34:08.340]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.340]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.340]                           info)
  [14:34:08.340]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.340]                         if (!has_future) {
  [14:34:08.340]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.340]                             info)
  [14:34:08.340]                         }
  [14:34:08.340]                         else {
  [14:34:08.340]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.340]                             info, version)
  [14:34:08.340]                         }
  [14:34:08.340]                         base::stop(msg)
  [14:34:08.340]                       }
  [14:34:08.340]                     })
  [14:34:08.340]                   }
  [14:34:08.340]                   options(future.plan = NULL)
  [14:34:08.340]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.340]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.340]                 }
  [14:34:08.340]                 ...future.workdir <- getwd()
  [14:34:08.340]             }
  [14:34:08.340]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.340]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.340]         }
  [14:34:08.340]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.340]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.340]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.340]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.340]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.340]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.340]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.340]             base::names(...future.oldOptions))
  [14:34:08.340]     }
  [14:34:08.340]     if (FALSE) {
  [14:34:08.340]     }
  [14:34:08.340]     else {
  [14:34:08.340]         if (TRUE) {
  [14:34:08.340]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.340]                 open = "w")
  [14:34:08.340]         }
  [14:34:08.340]         else {
  [14:34:08.340]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.340]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.340]         }
  [14:34:08.340]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.340]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.340]             base::sink(type = "output", split = FALSE)
  [14:34:08.340]             base::close(...future.stdout)
  [14:34:08.340]         }, add = TRUE)
  [14:34:08.340]     }
  [14:34:08.340]     ...future.frame <- base::sys.nframe()
  [14:34:08.340]     ...future.conditions <- base::list()
  [14:34:08.340]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.340]     if (FALSE) {
  [14:34:08.340]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.340]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.340]     }
  [14:34:08.340]     ...future.result <- base::tryCatch({
  [14:34:08.340]         base::withCallingHandlers({
  [14:34:08.340]             ...future.value <- base::withVisible(base::local({
  [14:34:08.340]                 do.call(function(...) {
  [14:34:08.340]                   fcn <- function() sum(...)
  [14:34:08.340]                   fcn()
  [14:34:08.340]                 }, args = future.call.arguments)
  [14:34:08.340]             }))
  [14:34:08.340]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.340]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.340]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.340]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.340]                     ...future.globalenv.names))
  [14:34:08.340]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.340]         }, condition = base::local({
  [14:34:08.340]             c <- base::c
  [14:34:08.340]             inherits <- base::inherits
  [14:34:08.340]             invokeRestart <- base::invokeRestart
  [14:34:08.340]             length <- base::length
  [14:34:08.340]             list <- base::list
  [14:34:08.340]             seq.int <- base::seq.int
  [14:34:08.340]             signalCondition <- base::signalCondition
  [14:34:08.340]             sys.calls <- base::sys.calls
  [14:34:08.340]             `[[` <- base::`[[`
  [14:34:08.340]             `+` <- base::`+`
  [14:34:08.340]             `<<-` <- base::`<<-`
  [14:34:08.340]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.340]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.340]                   3L)]
  [14:34:08.340]             }
  [14:34:08.340]             function(cond) {
  [14:34:08.340]                 is_error <- inherits(cond, "error")
  [14:34:08.340]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.340]                   NULL)
  [14:34:08.340]                 if (is_error) {
  [14:34:08.340]                   sessionInformation <- function() {
  [14:34:08.340]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.340]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.340]                       search = base::search(), system = base::Sys.info())
  [14:34:08.340]                   }
  [14:34:08.340]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.340]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.340]                     cond$call), session = sessionInformation(), 
  [14:34:08.340]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.340]                   signalCondition(cond)
  [14:34:08.340]                 }
  [14:34:08.340]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.340]                 "immediateCondition"))) {
  [14:34:08.340]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.340]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.340]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.340]                   if (TRUE && !signal) {
  [14:34:08.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.340]                     {
  [14:34:08.340]                       inherits <- base::inherits
  [14:34:08.340]                       invokeRestart <- base::invokeRestart
  [14:34:08.340]                       is.null <- base::is.null
  [14:34:08.340]                       muffled <- FALSE
  [14:34:08.340]                       if (inherits(cond, "message")) {
  [14:34:08.340]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.340]                         if (muffled) 
  [14:34:08.340]                           invokeRestart("muffleMessage")
  [14:34:08.340]                       }
  [14:34:08.340]                       else if (inherits(cond, "warning")) {
  [14:34:08.340]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.340]                         if (muffled) 
  [14:34:08.340]                           invokeRestart("muffleWarning")
  [14:34:08.340]                       }
  [14:34:08.340]                       else if (inherits(cond, "condition")) {
  [14:34:08.340]                         if (!is.null(pattern)) {
  [14:34:08.340]                           computeRestarts <- base::computeRestarts
  [14:34:08.340]                           grepl <- base::grepl
  [14:34:08.340]                           restarts <- computeRestarts(cond)
  [14:34:08.340]                           for (restart in restarts) {
  [14:34:08.340]                             name <- restart$name
  [14:34:08.340]                             if (is.null(name)) 
  [14:34:08.340]                               next
  [14:34:08.340]                             if (!grepl(pattern, name)) 
  [14:34:08.340]                               next
  [14:34:08.340]                             invokeRestart(restart)
  [14:34:08.340]                             muffled <- TRUE
  [14:34:08.340]                             break
  [14:34:08.340]                           }
  [14:34:08.340]                         }
  [14:34:08.340]                       }
  [14:34:08.340]                       invisible(muffled)
  [14:34:08.340]                     }
  [14:34:08.340]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.340]                   }
  [14:34:08.340]                 }
  [14:34:08.340]                 else {
  [14:34:08.340]                   if (TRUE) {
  [14:34:08.340]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.340]                     {
  [14:34:08.340]                       inherits <- base::inherits
  [14:34:08.340]                       invokeRestart <- base::invokeRestart
  [14:34:08.340]                       is.null <- base::is.null
  [14:34:08.340]                       muffled <- FALSE
  [14:34:08.340]                       if (inherits(cond, "message")) {
  [14:34:08.340]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.340]                         if (muffled) 
  [14:34:08.340]                           invokeRestart("muffleMessage")
  [14:34:08.340]                       }
  [14:34:08.340]                       else if (inherits(cond, "warning")) {
  [14:34:08.340]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.340]                         if (muffled) 
  [14:34:08.340]                           invokeRestart("muffleWarning")
  [14:34:08.340]                       }
  [14:34:08.340]                       else if (inherits(cond, "condition")) {
  [14:34:08.340]                         if (!is.null(pattern)) {
  [14:34:08.340]                           computeRestarts <- base::computeRestarts
  [14:34:08.340]                           grepl <- base::grepl
  [14:34:08.340]                           restarts <- computeRestarts(cond)
  [14:34:08.340]                           for (restart in restarts) {
  [14:34:08.340]                             name <- restart$name
  [14:34:08.340]                             if (is.null(name)) 
  [14:34:08.340]                               next
  [14:34:08.340]                             if (!grepl(pattern, name)) 
  [14:34:08.340]                               next
  [14:34:08.340]                             invokeRestart(restart)
  [14:34:08.340]                             muffled <- TRUE
  [14:34:08.340]                             break
  [14:34:08.340]                           }
  [14:34:08.340]                         }
  [14:34:08.340]                       }
  [14:34:08.340]                       invisible(muffled)
  [14:34:08.340]                     }
  [14:34:08.340]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.340]                   }
  [14:34:08.340]                 }
  [14:34:08.340]             }
  [14:34:08.340]         }))
  [14:34:08.340]     }, error = function(ex) {
  [14:34:08.340]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.340]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.340]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.340]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.340]             version = "1.8"), class = "FutureResult")
  [14:34:08.340]     }, finally = {
  [14:34:08.340]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.340]             setwd(...future.workdir)
  [14:34:08.340]         {
  [14:34:08.340]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.340]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.340]             }
  [14:34:08.340]             base::options(...future.oldOptions)
  [14:34:08.340]             if (.Platform$OS.type == "windows") {
  [14:34:08.340]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.340]                 envs <- base::Sys.getenv()
  [14:34:08.340]                 names <- names(envs)
  [14:34:08.340]                 common <- intersect(names, old_names)
  [14:34:08.340]                 added <- setdiff(names, old_names)
  [14:34:08.340]                 removed <- setdiff(old_names, names)
  [14:34:08.340]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.340]                   envs[common]]
  [14:34:08.340]                 NAMES <- toupper(changed)
  [14:34:08.340]                 args <- list()
  [14:34:08.340]                 for (kk in seq_along(NAMES)) {
  [14:34:08.340]                   name <- changed[[kk]]
  [14:34:08.340]                   NAME <- NAMES[[kk]]
  [14:34:08.340]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.340]                     next
  [14:34:08.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.340]                 }
  [14:34:08.340]                 NAMES <- toupper(added)
  [14:34:08.340]                 for (kk in seq_along(NAMES)) {
  [14:34:08.340]                   name <- added[[kk]]
  [14:34:08.340]                   NAME <- NAMES[[kk]]
  [14:34:08.340]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.340]                     next
  [14:34:08.340]                   args[[name]] <- ""
  [14:34:08.340]                 }
  [14:34:08.340]                 NAMES <- toupper(removed)
  [14:34:08.340]                 for (kk in seq_along(NAMES)) {
  [14:34:08.340]                   name <- removed[[kk]]
  [14:34:08.340]                   NAME <- NAMES[[kk]]
  [14:34:08.340]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.340]                     next
  [14:34:08.340]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.340]                 }
  [14:34:08.340]                 if (length(args) > 0) 
  [14:34:08.340]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.340]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.340]             }
  [14:34:08.340]             else {
  [14:34:08.340]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.340]             }
  [14:34:08.340]             {
  [14:34:08.340]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.340]                   0L) {
  [14:34:08.340]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.340]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.340]                   base::options(opts)
  [14:34:08.340]                 }
  [14:34:08.340]                 {
  [14:34:08.340]                   {
  [14:34:08.340]                     NULL
  [14:34:08.340]                     RNGkind("Mersenne-Twister")
  [14:34:08.340]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.340]                       inherits = FALSE)
  [14:34:08.340]                   }
  [14:34:08.340]                   options(future.plan = NULL)
  [14:34:08.340]                   if (is.na(NA_character_)) 
  [14:34:08.340]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.340]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.340]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.340]                   {
  [14:34:08.340]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.340]                     if (!future$lazy) 
  [14:34:08.340]                       future <- run(future)
  [14:34:08.340]                     invisible(future)
  [14:34:08.340]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.340]                 }
  [14:34:08.340]             }
  [14:34:08.340]         }
  [14:34:08.340]     })
  [14:34:08.340]     if (TRUE) {
  [14:34:08.340]         base::sink(type = "output", split = FALSE)
  [14:34:08.340]         if (TRUE) {
  [14:34:08.340]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.340]         }
  [14:34:08.340]         else {
  [14:34:08.340]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.340]         }
  [14:34:08.340]         base::close(...future.stdout)
  [14:34:08.340]         ...future.stdout <- NULL
  [14:34:08.340]     }
  [14:34:08.340]     ...future.result$conditions <- ...future.conditions
  [14:34:08.340]     ...future.result$finished <- base::Sys.time()
  [14:34:08.340]     ...future.result
  [14:34:08.340] }
  [14:34:08.344] assign_globals() ...
  [14:34:08.344] List of 1
  [14:34:08.344]  $ future.call.arguments:List of 2
  [14:34:08.344]   ..$ : int [1:2] 1 2
  [14:34:08.344]   ..$ : num 3
  [14:34:08.344]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
  [14:34:08.344]  - attr(*, "where")=List of 1
  [14:34:08.344]   ..$ future.call.arguments:<environment: R_EmptyEnv> 
  [14:34:08.344]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.344]  - attr(*, "resolved")= logi FALSE
  [14:34:08.344]  - attr(*, "total_size")= num 112
  [14:34:08.344]  - attr(*, "already-done")= logi TRUE
  [14:34:08.351] - copied 'future.call.arguments' to environment
  [14:34:08.351] assign_globals() ... done
  [14:34:08.352] plan(): Setting new future strategy stack:
  [14:34:08.352] List of future strategies:
  [14:34:08.352] 1. sequential:
  [14:34:08.352]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.352]    - tweaked: FALSE
  [14:34:08.352]    - call: NULL
  [14:34:08.353] plan(): nbrOfWorkers() = 1
  [14:34:08.354] plan(): Setting new future strategy stack:
  [14:34:08.354] List of future strategies:
  [14:34:08.354] 1. sequential:
  [14:34:08.354]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.354]    - tweaked: FALSE
  [14:34:08.354]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.355] plan(): nbrOfWorkers() = 1
  [14:34:08.355] SequentialFuture started (and completed)
  [14:34:08.355] - Launch lazy future ... done
  [14:34:08.355] run() for 'SequentialFuture' ... done
  [1] 6
  ** Sum function 'F' with plan('sequential') ...
  function (x, y) 
  {
      message("Using '...' in a formula")
      fcn <- function(x, y) {
          z = ~list(...)
          sum(x, y)
      }
      f <- future(fcn(x, y))
      y <- value(f)
      y
  }
  <bytecode: 0x000002748dab99c8>
  Using '...' in a formula
  [14:34:08.356] getGlobalsAndPackages() ...
  [14:34:08.357] Searching for globals...
  [14:34:08.362] - globals found: [9] 'fcn', 'x', 'y', '{', '=', '~', 'list', '...', 'sum'
  [14:34:08.363] Searching for globals ... DONE
  [14:34:08.363] Resolving globals: FALSE
  [14:34:08.363] Tweak future expression to call with '...' arguments ...
  [14:34:08.364] The total size of the 3 globals is 4.18 KiB (4280 bytes)
  [14:34:08.365] The total size of the 3 globals exported for future expression ('fcn(x, y)') is 4.18 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'fcn' (4.07 KiB of class 'function'), 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:08.365] - globals: [3] 'fcn', 'x', 'y'
  [14:34:08.365] 
  [14:34:08.365] getGlobalsAndPackages() ... DONE
  [14:34:08.366] run() for 'Future' ...
  [14:34:08.366] - state: 'created'
  [14:34:08.366] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:34:08.367] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:34:08.367] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:34:08.367]   - Field: 'label'
  [14:34:08.367]   - Field: 'local'
  [14:34:08.367]   - Field: 'owner'
  [14:34:08.367]   - Field: 'envir'
  [14:34:08.368]   - Field: 'packages'
  [14:34:08.368]   - Field: 'gc'
  [14:34:08.368]   - Field: 'conditions'
  [14:34:08.368]   - Field: 'expr'
  [14:34:08.368]   - Field: 'uuid'
  [14:34:08.369]   - Field: 'seed'
  [14:34:08.369]   - Field: 'version'
  [14:34:08.369]   - Field: 'result'
  [14:34:08.369]   - Field: 'asynchronous'
  [14:34:08.369]   - Field: 'calls'
  [14:34:08.369]   - Field: 'globals'
  [14:34:08.370]   - Field: 'stdout'
  [14:34:08.370]   - Field: 'earlySignal'
  [14:34:08.370]   - Field: 'lazy'
  [14:34:08.370]   - Field: 'state'
  [14:34:08.370] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:34:08.371] - Launch lazy future ...
  [14:34:08.371] Packages needed by the future expression (n = 0): <none>
  [14:34:08.371] Packages needed by future strategies (n = 0): <none>
  [14:34:08.373] {
  [14:34:08.373]     {
  [14:34:08.373]         {
  [14:34:08.373]             ...future.startTime <- base::Sys.time()
  [14:34:08.373]             {
  [14:34:08.373]                 {
  [14:34:08.373]                   {
  [14:34:08.373]                     base::local({
  [14:34:08.373]                       has_future <- base::requireNamespace("future", 
  [14:34:08.373]                         quietly = TRUE)
  [14:34:08.373]                       if (has_future) {
  [14:34:08.373]                         ns <- base::getNamespace("future")
  [14:34:08.373]                         version <- ns[[".package"]][["version"]]
  [14:34:08.373]                         if (is.null(version)) 
  [14:34:08.373]                           version <- utils::packageVersion("future")
  [14:34:08.373]                       }
  [14:34:08.373]                       else {
  [14:34:08.373]                         version <- NULL
  [14:34:08.373]                       }
  [14:34:08.373]                       if (!has_future || version < "1.8.0") {
  [14:34:08.373]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:34:08.373]                           "", base::R.version$version.string), 
  [14:34:08.373]                           platform = base::sprintf("%s (%s-bit)", 
  [14:34:08.373]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:08.373]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:08.373]                             "release", "version")], collapse = " "), 
  [14:34:08.373]                           hostname = base::Sys.info()[["nodename"]])
  [14:34:08.373]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:08.373]                           info)
  [14:34:08.373]                         info <- base::paste(info, collapse = "; ")
  [14:34:08.373]                         if (!has_future) {
  [14:34:08.373]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:08.373]                             info)
  [14:34:08.373]                         }
  [14:34:08.373]                         else {
  [14:34:08.373]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:08.373]                             info, version)
  [14:34:08.373]                         }
  [14:34:08.373]                         base::stop(msg)
  [14:34:08.373]                       }
  [14:34:08.373]                     })
  [14:34:08.373]                   }
  [14:34:08.373]                   options(future.plan = NULL)
  [14:34:08.373]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.373]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:08.373]                 }
  [14:34:08.373]                 ...future.workdir <- getwd()
  [14:34:08.373]             }
  [14:34:08.373]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:08.373]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:08.373]         }
  [14:34:08.373]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:08.373]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:08.373]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:08.373]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:08.373]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:08.373]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:08.373]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:08.373]             base::names(...future.oldOptions))
  [14:34:08.373]     }
  [14:34:08.373]     if (FALSE) {
  [14:34:08.373]     }
  [14:34:08.373]     else {
  [14:34:08.373]         if (TRUE) {
  [14:34:08.373]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:08.373]                 open = "w")
  [14:34:08.373]         }
  [14:34:08.373]         else {
  [14:34:08.373]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:08.373]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:08.373]         }
  [14:34:08.373]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:08.373]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:08.373]             base::sink(type = "output", split = FALSE)
  [14:34:08.373]             base::close(...future.stdout)
  [14:34:08.373]         }, add = TRUE)
  [14:34:08.373]     }
  [14:34:08.373]     ...future.frame <- base::sys.nframe()
  [14:34:08.373]     ...future.conditions <- base::list()
  [14:34:08.373]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:08.373]     if (FALSE) {
  [14:34:08.373]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:08.373]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:08.373]     }
  [14:34:08.373]     ...future.result <- base::tryCatch({
  [14:34:08.373]         base::withCallingHandlers({
  [14:34:08.373]             ...future.value <- base::withVisible(base::local(fcn(x, 
  [14:34:08.373]                 y)))
  [14:34:08.373]             future::FutureResult(value = ...future.value$value, 
  [14:34:08.373]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.373]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:08.373]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:08.373]                     ...future.globalenv.names))
  [14:34:08.373]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:08.373]         }, condition = base::local({
  [14:34:08.373]             c <- base::c
  [14:34:08.373]             inherits <- base::inherits
  [14:34:08.373]             invokeRestart <- base::invokeRestart
  [14:34:08.373]             length <- base::length
  [14:34:08.373]             list <- base::list
  [14:34:08.373]             seq.int <- base::seq.int
  [14:34:08.373]             signalCondition <- base::signalCondition
  [14:34:08.373]             sys.calls <- base::sys.calls
  [14:34:08.373]             `[[` <- base::`[[`
  [14:34:08.373]             `+` <- base::`+`
  [14:34:08.373]             `<<-` <- base::`<<-`
  [14:34:08.373]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:08.373]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:08.373]                   3L)]
  [14:34:08.373]             }
  [14:34:08.373]             function(cond) {
  [14:34:08.373]                 is_error <- inherits(cond, "error")
  [14:34:08.373]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:08.373]                   NULL)
  [14:34:08.373]                 if (is_error) {
  [14:34:08.373]                   sessionInformation <- function() {
  [14:34:08.373]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:08.373]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:08.373]                       search = base::search(), system = base::Sys.info())
  [14:34:08.373]                   }
  [14:34:08.373]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.373]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:08.373]                     cond$call), session = sessionInformation(), 
  [14:34:08.373]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:08.373]                   signalCondition(cond)
  [14:34:08.373]                 }
  [14:34:08.373]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:08.373]                 "immediateCondition"))) {
  [14:34:08.373]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:08.373]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:08.373]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:08.373]                   if (TRUE && !signal) {
  [14:34:08.373]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.373]                     {
  [14:34:08.373]                       inherits <- base::inherits
  [14:34:08.373]                       invokeRestart <- base::invokeRestart
  [14:34:08.373]                       is.null <- base::is.null
  [14:34:08.373]                       muffled <- FALSE
  [14:34:08.373]                       if (inherits(cond, "message")) {
  [14:34:08.373]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.373]                         if (muffled) 
  [14:34:08.373]                           invokeRestart("muffleMessage")
  [14:34:08.373]                       }
  [14:34:08.373]                       else if (inherits(cond, "warning")) {
  [14:34:08.373]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.373]                         if (muffled) 
  [14:34:08.373]                           invokeRestart("muffleWarning")
  [14:34:08.373]                       }
  [14:34:08.373]                       else if (inherits(cond, "condition")) {
  [14:34:08.373]                         if (!is.null(pattern)) {
  [14:34:08.373]                           computeRestarts <- base::computeRestarts
  [14:34:08.373]                           grepl <- base::grepl
  [14:34:08.373]                           restarts <- computeRestarts(cond)
  [14:34:08.373]                           for (restart in restarts) {
  [14:34:08.373]                             name <- restart$name
  [14:34:08.373]                             if (is.null(name)) 
  [14:34:08.373]                               next
  [14:34:08.373]                             if (!grepl(pattern, name)) 
  [14:34:08.373]                               next
  [14:34:08.373]                             invokeRestart(restart)
  [14:34:08.373]                             muffled <- TRUE
  [14:34:08.373]                             break
  [14:34:08.373]                           }
  [14:34:08.373]                         }
  [14:34:08.373]                       }
  [14:34:08.373]                       invisible(muffled)
  [14:34:08.373]                     }
  [14:34:08.373]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.373]                   }
  [14:34:08.373]                 }
  [14:34:08.373]                 else {
  [14:34:08.373]                   if (TRUE) {
  [14:34:08.373]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:08.373]                     {
  [14:34:08.373]                       inherits <- base::inherits
  [14:34:08.373]                       invokeRestart <- base::invokeRestart
  [14:34:08.373]                       is.null <- base::is.null
  [14:34:08.373]                       muffled <- FALSE
  [14:34:08.373]                       if (inherits(cond, "message")) {
  [14:34:08.373]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:08.373]                         if (muffled) 
  [14:34:08.373]                           invokeRestart("muffleMessage")
  [14:34:08.373]                       }
  [14:34:08.373]                       else if (inherits(cond, "warning")) {
  [14:34:08.373]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:08.373]                         if (muffled) 
  [14:34:08.373]                           invokeRestart("muffleWarning")
  [14:34:08.373]                       }
  [14:34:08.373]                       else if (inherits(cond, "condition")) {
  [14:34:08.373]                         if (!is.null(pattern)) {
  [14:34:08.373]                           computeRestarts <- base::computeRestarts
  [14:34:08.373]                           grepl <- base::grepl
  [14:34:08.373]                           restarts <- computeRestarts(cond)
  [14:34:08.373]                           for (restart in restarts) {
  [14:34:08.373]                             name <- restart$name
  [14:34:08.373]                             if (is.null(name)) 
  [14:34:08.373]                               next
  [14:34:08.373]                             if (!grepl(pattern, name)) 
  [14:34:08.373]                               next
  [14:34:08.373]                             invokeRestart(restart)
  [14:34:08.373]                             muffled <- TRUE
  [14:34:08.373]                             break
  [14:34:08.373]                           }
  [14:34:08.373]                         }
  [14:34:08.373]                       }
  [14:34:08.373]                       invisible(muffled)
  [14:34:08.373]                     }
  [14:34:08.373]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:08.373]                   }
  [14:34:08.373]                 }
  [14:34:08.373]             }
  [14:34:08.373]         }))
  [14:34:08.373]     }, error = function(ex) {
  [14:34:08.373]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:08.373]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:08.373]                 ...future.rng), started = ...future.startTime, 
  [14:34:08.373]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:08.373]             version = "1.8"), class = "FutureResult")
  [14:34:08.373]     }, finally = {
  [14:34:08.373]         if (!identical(...future.workdir, getwd())) 
  [14:34:08.373]             setwd(...future.workdir)
  [14:34:08.373]         {
  [14:34:08.373]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:08.373]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:08.373]             }
  [14:34:08.373]             base::options(...future.oldOptions)
  [14:34:08.373]             if (.Platform$OS.type == "windows") {
  [14:34:08.373]                 old_names <- names(...future.oldEnvVars)
  [14:34:08.373]                 envs <- base::Sys.getenv()
  [14:34:08.373]                 names <- names(envs)
  [14:34:08.373]                 common <- intersect(names, old_names)
  [14:34:08.373]                 added <- setdiff(names, old_names)
  [14:34:08.373]                 removed <- setdiff(old_names, names)
  [14:34:08.373]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:08.373]                   envs[common]]
  [14:34:08.373]                 NAMES <- toupper(changed)
  [14:34:08.373]                 args <- list()
  [14:34:08.373]                 for (kk in seq_along(NAMES)) {
  [14:34:08.373]                   name <- changed[[kk]]
  [14:34:08.373]                   NAME <- NAMES[[kk]]
  [14:34:08.373]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.373]                     next
  [14:34:08.373]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.373]                 }
  [14:34:08.373]                 NAMES <- toupper(added)
  [14:34:08.373]                 for (kk in seq_along(NAMES)) {
  [14:34:08.373]                   name <- added[[kk]]
  [14:34:08.373]                   NAME <- NAMES[[kk]]
  [14:34:08.373]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.373]                     next
  [14:34:08.373]                   args[[name]] <- ""
  [14:34:08.373]                 }
  [14:34:08.373]                 NAMES <- toupper(removed)
  [14:34:08.373]                 for (kk in seq_along(NAMES)) {
  [14:34:08.373]                   name <- removed[[kk]]
  [14:34:08.373]                   NAME <- NAMES[[kk]]
  [14:34:08.373]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:08.373]                     next
  [14:34:08.373]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:08.373]                 }
  [14:34:08.373]                 if (length(args) > 0) 
  [14:34:08.373]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:08.373]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:08.373]             }
  [14:34:08.373]             else {
  [14:34:08.373]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:08.373]             }
  [14:34:08.373]             {
  [14:34:08.373]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:08.373]                   0L) {
  [14:34:08.373]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:08.373]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:08.373]                   base::options(opts)
  [14:34:08.373]                 }
  [14:34:08.373]                 {
  [14:34:08.373]                   {
  [14:34:08.373]                     NULL
  [14:34:08.373]                     RNGkind("Mersenne-Twister")
  [14:34:08.373]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:34:08.373]                       inherits = FALSE)
  [14:34:08.373]                   }
  [14:34:08.373]                   options(future.plan = NULL)
  [14:34:08.373]                   if (is.na(NA_character_)) 
  [14:34:08.373]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:08.373]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:08.373]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:34:08.373]                   {
  [14:34:08.373]                     future <- SequentialFuture(..., envir = envir)
  [14:34:08.373]                     if (!future$lazy) 
  [14:34:08.373]                       future <- run(future)
  [14:34:08.373]                     invisible(future)
  [14:34:08.373]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:08.373]                 }
  [14:34:08.373]             }
  [14:34:08.373]         }
  [14:34:08.373]     })
  [14:34:08.373]     if (TRUE) {
  [14:34:08.373]         base::sink(type = "output", split = FALSE)
  [14:34:08.373]         if (TRUE) {
  [14:34:08.373]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:08.373]         }
  [14:34:08.373]         else {
  [14:34:08.373]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:08.373]         }
  [14:34:08.373]         base::close(...future.stdout)
  [14:34:08.373]         ...future.stdout <- NULL
  [14:34:08.373]     }
  [14:34:08.373]     ...future.result$conditions <- ...future.conditions
  [14:34:08.373]     ...future.result$finished <- base::Sys.time()
  [14:34:08.373]     ...future.result
  [14:34:08.373] }
  [14:34:08.376] assign_globals() ...
  [14:34:08.377] List of 3
  [14:34:08.377]  $ fcn:function (x, y)  
  [14:34:08.377]  $ x  : int [1:2] 1 2
  [14:34:08.377]  $ y  : num 3
  [14:34:08.377]  - attr(*, "where")=List of 3
  [14:34:08.377]   ..$ fcn:<environment: R_EmptyEnv> 
  [14:34:08.377]   ..$ x  :<environment: R_EmptyEnv> 
  [14:34:08.377]   ..$ y  :<environment: R_EmptyEnv> 
  [14:34:08.377]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:34:08.377]  - attr(*, "resolved")= logi FALSE
  [14:34:08.377]  - attr(*, "total_size")= num 4280
  [14:34:08.377]  - attr(*, "already-done")= logi TRUE
  [14:34:08.382] - reassign environment for 'fcn'
  [14:34:08.382] - copied 'fcn' to environment
  [14:34:08.382] - copied 'x' to environment
  [14:34:08.382] - copied 'y' to environment
  [14:34:08.382] assign_globals() ... done
  [14:34:08.383] plan(): Setting new future strategy stack:
  [14:34:08.383] List of future strategies:
  [14:34:08.383] 1. sequential:
  [14:34:08.383]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.383]    - tweaked: FALSE
  [14:34:08.383]    - call: NULL
  [14:34:08.384] plan(): nbrOfWorkers() = 1
  [14:34:08.385] plan(): Setting new future strategy stack:
  [14:34:08.385] List of future strategies:
  [14:34:08.385] 1. sequential:
  [14:34:08.385]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:08.385]    - tweaked: FALSE
  [14:34:08.385]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.386] plan(): nbrOfWorkers() = 1
  [14:34:08.386] SequentialFuture started (and completed)
  [14:34:08.386] - Launch lazy future ... done
  [14:34:08.387] run() for 'SequentialFuture' ... done
  [1] 6
  Testing with 1 cores ... DONE
  Testing with 2 cores ...
  *** Global argument '...' ...
  - plan('multisession') ...
  [14:34:08.396] plan(): Setting new future strategy stack:
  [14:34:08.396] List of future strategies:
  [14:34:08.396] 1. multisession:
  [14:34:08.396]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
  [14:34:08.396]    - tweaked: FALSE
  [14:34:08.396]    - call: plan(strategy, substitute = FALSE)
  [14:34:08.397] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [14:34:08.397] multisession:
  [14:34:08.397] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
  [14:34:08.397] - tweaked: FALSE
  [14:34:08.397] - call: plan(strategy, substitute = FALSE)
  [14:34:08.403] getGlobalsAndPackages() ...
  [14:34:08.403] Not searching for globals
  [14:34:08.404] - globals: [0] <none>
  [14:34:08.404] getGlobalsAndPackages() ... DONE
  [14:34:08.404] [local output] makeClusterPSOCK() ...
  [14:34:08.448] [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:34:08.455] [local output] Base port: 29350
  [14:34:08.455] [local output] Getting setup options for 2 cluster nodes ...
  [14:34:08.456] [local output]  - Node 1 of 2 ...
  [14:34:08.456] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:34:08.458] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmpu4OqM1/worker.rank=1.parallelly.parent=25860.65046d8e685d.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/Rtmpu4OqM1/worker.rank=1.parallelly.parent=25860.65046d8e685d.pid\")"'
  [14:34:09.009] - Possible to infer worker's PID: TRUE
  [14:34:09.010] [local output] Rscript port: 29350
  
  [14:34:09.010] [local output]  - Node 2 of 2 ...
  [14:34:09.011] [local output] localMachine=TRUE => revtunnel=FALSE
  
  [14:34:09.012] [local output] Rscript port: 29350
  
  [14:34:09.012] [local output] Getting setup options for 2 cluster nodes ... done
  [14:34:09.013] [local output]  - Parallel setup requested for some PSOCK nodes
  [14:34:09.013] [local output] Setting up PSOCK nodes in parallel
  [14:34:09.014] List of 36
  [14:34:09.014]  $ worker          : chr "localhost"
  [14:34:09.014]   ..- attr(*, "localhost")= logi TRUE
  [14:34:09.014]  $ master          : chr "localhost"
  [14:34:09.014]  $ port            : int 29350
  [14:34:09.014]  $ connectTimeout  : num 120
  [14:34:09.014]  $ timeout         : num 120
  [14:34:09.014]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
  [14:34:09.014]  $ homogeneous     : logi TRUE
  [14:34:09.014]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=dotdotdot.R:25860:CRANWIN3:CRAN\"| __truncated__
  [14:34:09.014]  $ rscript_envs    : NULL
  [14:34:09.014]  $ rscript_libs    : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
  [14:34:09.014]  $ rscript_startup : NULL
  [14:34:09.014]  $ rscript_sh      : chr "cmd"
  [14:34:09.014]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:34:09.014]  $ methods         : logi TRUE
  [14:34:09.014]  $ socketOptions   : chr "no-delay"
  [14:34:09.014]  $ useXDR          : logi FALSE
  [14:34:09.014]  $ outfile         : chr "/dev/null"
  [14:34:09.014]  $ renice          : int NA
  [14:34:09.014]  $ rshcmd          : NULL
  [14:34:09.014]  $ user            : chr(0) 
  [14:34:09.014]  $ revtunnel       : logi FALSE
  [14:34:09.014]  $ rshlogfile      : NULL
  [14:34:09.014]  $ rshopts         : chr(0) 
  [14:34:09.014]  $ rank            : int 1
  [14:34:09.014]  $ manual          : logi FALSE
  [14:34:09.014]  $ dryrun          : logi FALSE
  [14:34:09.014]  $ quiet           : logi FALSE
  [14:34:09.014]  $ setup_strategy  : chr "parallel"
  [14:34:09.014]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:34:09.014]  $ pidfile         : chr "D:/temp/Rtmpu4OqM1/worker.rank=1.parallelly.parent=25860.65046d8e685d.pid"
  [14:34:09.014]  $ rshcmd_label    : NULL
  [14:34:09.014]  $ rsh_call        : NULL
  [14:34:09.014]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
  [14:34:09.014]  $ localMachine    : logi TRUE
  [14:34:09.014]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
  [14:34:09.014]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
  [14:34:09.014]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
  [14:34:09.014]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
  [14:34:09.014]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
  [14:34:09.014]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
  [14:34:09.014]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
  [14:34:09.014]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
  [14:34:09.014]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
  [14:34:09.014]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
  [14:34:09.014]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
  [14:34:09.014]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
  [14:34:09.014]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
  [14:34:09.014]  $ arguments       :List of 28
  [14:34:09.014]   ..$ worker          : chr "localhost"
  [14:34:09.014]   ..$ master          : NULL
  [14:34:09.014]   ..$ port            : int 29350
  [14:34:09.014]   ..$ connectTimeout  : num 120
  [14:34:09.014]   ..$ timeout         : num 120
  [14:34:09.014]   ..$ rscript         : NULL
  [14:34:09.014]   ..$ homogeneous     : NULL
  [14:34:09.014]   ..$ rscript_args    : NULL
  [14:34:09.014]   ..$ rscript_envs    : NULL
  [14:34:09.014]   ..$ rscript_libs    : chr [1:2] "D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29" "D:/RCompile/recent/R/library"
  [14:34:09.014]   ..$ rscript_startup : NULL
  [14:34:09.014]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
  [14:34:09.014]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  [14:34:09.014]   ..$ methods         : logi TRUE
  [14:34:09.014]   ..$ socketOptions   : chr "no-delay"
  [14:34:09.014]   ..$ useXDR          : logi FALSE
  [14:34:09.014]   ..$ outfile         : chr "/dev/null"
  [14:34:09.014]   ..$ renice          : int NA
  [14:34:09.014]   ..$ rshcmd          : NULL
  [14:34:09.014]   ..$ user            : NULL
  [14:34:09.014]   ..$ revtunnel       : logi NA
  [14:34:09.014]   ..$ rshlogfile      : NULL
  [14:34:09.014]   ..$ rshopts         : NULL
  [14:34:09.014]   ..$ rank            : int 1
  [14:34:09.014]   ..$ manual          : logi FALSE
  [14:34:09.014]   ..$ dryrun          : logi FALSE
  [14:34:09.014]   ..$ quiet           : logi FALSE
  [14:34:09.014]   ..$ setup_strategy  : chr "parallel"
  [14:34:09.014]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
  [14:34:09.036] [local output] System call to launch all workers:
  [14:34:09.036] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=dotdotdot.R:25860:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmpu4OqM1/worker.rank=1.parallelly.parent=25860.65046d8e685d.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/Rtmpol16SZ/RLIBS_1c4dc27d83e29\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=29350 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
  [14:34:09.037] [local output] Starting PSOCK main server
  [14:34:09.043] [local output] Workers launched
  [14:34:09.044] [local output] Waiting for workers to connect back
  [14:34:09.044]  - [local output] 0 workers out of 2 ready
  [14:34:09.294]  - [local output] 0 workers out of 2 ready
  [14:34:09.294]  - [local output] 1 workers out of 2 ready
  [14:34:09.311]  - [local output] 1 workers out of 2 ready
  [14:34:09.312]  - [local output] 2 workers out of 2 ready
  [14:34:09.313] [local output] Launching of workers completed
  [14:34:09.313] [local output] Collecting session information from workers
  [14:34:09.315] [local output]  - Worker #1 of 2
  [14:34:09.316] [local output]  - Worker #2 of 2
  [14:34:09.317] [local output] makeClusterPSOCK() ... done
  [14:34:09.334] Packages needed by the future expression (n = 0): <none>
  [14:34:09.334] Packages needed by future strategies (n = 0): <none>
  [14:34:09.335] {
  [14:34:09.335]     {
  [14:34:09.335]         {
  [14:34:09.335]             ...future.startTime <- base::Sys.time()
  [14:34:09.335]             {
  [14:34:09.335]                 {
  [14:34:09.335]                   {
  [14:34:09.335]                     {
  [14:34:09.335]                       base::local({
  [14:34:09.335]                         has_future <- base::requireNamespace("future", 
  [14:34:09.335]                           quietly = TRUE)
  [14:34:09.335]                         if (has_future) {
  [14:34:09.335]                           ns <- base::getNamespace("future")
  [14:34:09.335]                           version <- ns[[".package"]][["version"]]
  [14:34:09.335]                           if (is.null(version)) 
  [14:34:09.335]                             version <- utils::packageVersion("future")
  [14:34:09.335]                         }
  [14:34:09.335]                         else {
  [14:34:09.335]                           version <- NULL
  [14:34:09.335]                         }
  [14:34:09.335]                         if (!has_future || version < "1.8.0") {
  [14:34:09.335]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.335]                             "", base::R.version$version.string), 
  [14:34:09.335]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.335]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.335]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.335]                               "release", "version")], collapse = " "), 
  [14:34:09.335]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.335]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.335]                             info)
  [14:34:09.335]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.335]                           if (!has_future) {
  [14:34:09.335]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.335]                               info)
  [14:34:09.335]                           }
  [14:34:09.335]                           else {
  [14:34:09.335]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.335]                               info, version)
  [14:34:09.335]                           }
  [14:34:09.335]                           base::stop(msg)
  [14:34:09.335]                         }
  [14:34:09.335]                       })
  [14:34:09.335]                     }
  [14:34:09.335]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.335]                     base::options(mc.cores = 1L)
  [14:34:09.335]                   }
  [14:34:09.335]                   options(future.plan = NULL)
  [14:34:09.335]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.335]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.335]                 }
  [14:34:09.335]                 ...future.workdir <- getwd()
  [14:34:09.335]             }
  [14:34:09.335]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.335]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.335]         }
  [14:34:09.335]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.335]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.335]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.335]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.335]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.335]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.335]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.335]             base::names(...future.oldOptions))
  [14:34:09.335]     }
  [14:34:09.335]     if (FALSE) {
  [14:34:09.335]     }
  [14:34:09.335]     else {
  [14:34:09.335]         if (TRUE) {
  [14:34:09.335]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.335]                 open = "w")
  [14:34:09.335]         }
  [14:34:09.335]         else {
  [14:34:09.335]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.335]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.335]         }
  [14:34:09.335]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.335]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.335]             base::sink(type = "output", split = FALSE)
  [14:34:09.335]             base::close(...future.stdout)
  [14:34:09.335]         }, add = TRUE)
  [14:34:09.335]     }
  [14:34:09.335]     ...future.frame <- base::sys.nframe()
  [14:34:09.335]     ...future.conditions <- base::list()
  [14:34:09.335]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.335]     if (FALSE) {
  [14:34:09.335]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.335]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.335]     }
  [14:34:09.335]     ...future.result <- base::tryCatch({
  [14:34:09.335]         base::withCallingHandlers({
  [14:34:09.335]             ...future.value <- base::withVisible(base::local({
  [14:34:09.335]                 ...future.makeSendCondition <- base::local({
  [14:34:09.335]                   sendCondition <- NULL
  [14:34:09.335]                   function(frame = 1L) {
  [14:34:09.335]                     if (is.function(sendCondition)) 
  [14:34:09.335]                       return(sendCondition)
  [14:34:09.335]                     ns <- getNamespace("parallel")
  [14:34:09.335]                     if (exists("sendData", mode = "function", 
  [14:34:09.335]                       envir = ns)) {
  [14:34:09.335]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.335]                         envir = ns)
  [14:34:09.335]                       envir <- sys.frame(frame)
  [14:34:09.335]                       master <- NULL
  [14:34:09.335]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.335]                         !identical(envir, emptyenv())) {
  [14:34:09.335]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.335]                           inherits = FALSE)) {
  [14:34:09.335]                           master <- get("master", mode = "list", 
  [14:34:09.335]                             envir = envir, inherits = FALSE)
  [14:34:09.335]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.335]                             "SOCK0node"))) {
  [14:34:09.335]                             sendCondition <<- function(cond) {
  [14:34:09.335]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.335]                                 success = TRUE)
  [14:34:09.335]                               parallel_sendData(master, data)
  [14:34:09.335]                             }
  [14:34:09.335]                             return(sendCondition)
  [14:34:09.335]                           }
  [14:34:09.335]                         }
  [14:34:09.335]                         frame <- frame + 1L
  [14:34:09.335]                         envir <- sys.frame(frame)
  [14:34:09.335]                       }
  [14:34:09.335]                     }
  [14:34:09.335]                     sendCondition <<- function(cond) NULL
  [14:34:09.335]                   }
  [14:34:09.335]                 })
  [14:34:09.335]                 withCallingHandlers({
  [14:34:09.335]                   NA
  [14:34:09.335]                 }, immediateCondition = function(cond) {
  [14:34:09.335]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.335]                   sendCondition(cond)
  [14:34:09.335]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.335]                   {
  [14:34:09.335]                     inherits <- base::inherits
  [14:34:09.335]                     invokeRestart <- base::invokeRestart
  [14:34:09.335]                     is.null <- base::is.null
  [14:34:09.335]                     muffled <- FALSE
  [14:34:09.335]                     if (inherits(cond, "message")) {
  [14:34:09.335]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.335]                       if (muffled) 
  [14:34:09.335]                         invokeRestart("muffleMessage")
  [14:34:09.335]                     }
  [14:34:09.335]                     else if (inherits(cond, "warning")) {
  [14:34:09.335]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.335]                       if (muffled) 
  [14:34:09.335]                         invokeRestart("muffleWarning")
  [14:34:09.335]                     }
  [14:34:09.335]                     else if (inherits(cond, "condition")) {
  [14:34:09.335]                       if (!is.null(pattern)) {
  [14:34:09.335]                         computeRestarts <- base::computeRestarts
  [14:34:09.335]                         grepl <- base::grepl
  [14:34:09.335]                         restarts <- computeRestarts(cond)
  [14:34:09.335]                         for (restart in restarts) {
  [14:34:09.335]                           name <- restart$name
  [14:34:09.335]                           if (is.null(name)) 
  [14:34:09.335]                             next
  [14:34:09.335]                           if (!grepl(pattern, name)) 
  [14:34:09.335]                             next
  [14:34:09.335]                           invokeRestart(restart)
  [14:34:09.335]                           muffled <- TRUE
  [14:34:09.335]                           break
  [14:34:09.335]                         }
  [14:34:09.335]                       }
  [14:34:09.335]                     }
  [14:34:09.335]                     invisible(muffled)
  [14:34:09.335]                   }
  [14:34:09.335]                   muffleCondition(cond)
  [14:34:09.335]                 })
  [14:34:09.335]             }))
  [14:34:09.335]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.335]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.335]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.335]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.335]                     ...future.globalenv.names))
  [14:34:09.335]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.335]         }, condition = base::local({
  [14:34:09.335]             c <- base::c
  [14:34:09.335]             inherits <- base::inherits
  [14:34:09.335]             invokeRestart <- base::invokeRestart
  [14:34:09.335]             length <- base::length
  [14:34:09.335]             list <- base::list
  [14:34:09.335]             seq.int <- base::seq.int
  [14:34:09.335]             signalCondition <- base::signalCondition
  [14:34:09.335]             sys.calls <- base::sys.calls
  [14:34:09.335]             `[[` <- base::`[[`
  [14:34:09.335]             `+` <- base::`+`
  [14:34:09.335]             `<<-` <- base::`<<-`
  [14:34:09.335]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.335]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.335]                   3L)]
  [14:34:09.335]             }
  [14:34:09.335]             function(cond) {
  [14:34:09.335]                 is_error <- inherits(cond, "error")
  [14:34:09.335]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.335]                   NULL)
  [14:34:09.335]                 if (is_error) {
  [14:34:09.335]                   sessionInformation <- function() {
  [14:34:09.335]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.335]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.335]                       search = base::search(), system = base::Sys.info())
  [14:34:09.335]                   }
  [14:34:09.335]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.335]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.335]                     cond$call), session = sessionInformation(), 
  [14:34:09.335]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.335]                   signalCondition(cond)
  [14:34:09.335]                 }
  [14:34:09.335]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.335]                 "immediateCondition"))) {
  [14:34:09.335]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.335]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.335]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.335]                   if (TRUE && !signal) {
  [14:34:09.335]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.335]                     {
  [14:34:09.335]                       inherits <- base::inherits
  [14:34:09.335]                       invokeRestart <- base::invokeRestart
  [14:34:09.335]                       is.null <- base::is.null
  [14:34:09.335]                       muffled <- FALSE
  [14:34:09.335]                       if (inherits(cond, "message")) {
  [14:34:09.335]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.335]                         if (muffled) 
  [14:34:09.335]                           invokeRestart("muffleMessage")
  [14:34:09.335]                       }
  [14:34:09.335]                       else if (inherits(cond, "warning")) {
  [14:34:09.335]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.335]                         if (muffled) 
  [14:34:09.335]                           invokeRestart("muffleWarning")
  [14:34:09.335]                       }
  [14:34:09.335]                       else if (inherits(cond, "condition")) {
  [14:34:09.335]                         if (!is.null(pattern)) {
  [14:34:09.335]                           computeRestarts <- base::computeRestarts
  [14:34:09.335]                           grepl <- base::grepl
  [14:34:09.335]                           restarts <- computeRestarts(cond)
  [14:34:09.335]                           for (restart in restarts) {
  [14:34:09.335]                             name <- restart$name
  [14:34:09.335]                             if (is.null(name)) 
  [14:34:09.335]                               next
  [14:34:09.335]                             if (!grepl(pattern, name)) 
  [14:34:09.335]                               next
  [14:34:09.335]                             invokeRestart(restart)
  [14:34:09.335]                             muffled <- TRUE
  [14:34:09.335]                             break
  [14:34:09.335]                           }
  [14:34:09.335]                         }
  [14:34:09.335]                       }
  [14:34:09.335]                       invisible(muffled)
  [14:34:09.335]                     }
  [14:34:09.335]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.335]                   }
  [14:34:09.335]                 }
  [14:34:09.335]                 else {
  [14:34:09.335]                   if (TRUE) {
  [14:34:09.335]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.335]                     {
  [14:34:09.335]                       inherits <- base::inherits
  [14:34:09.335]                       invokeRestart <- base::invokeRestart
  [14:34:09.335]                       is.null <- base::is.null
  [14:34:09.335]                       muffled <- FALSE
  [14:34:09.335]                       if (inherits(cond, "message")) {
  [14:34:09.335]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.335]                         if (muffled) 
  [14:34:09.335]                           invokeRestart("muffleMessage")
  [14:34:09.335]                       }
  [14:34:09.335]                       else if (inherits(cond, "warning")) {
  [14:34:09.335]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.335]                         if (muffled) 
  [14:34:09.335]                           invokeRestart("muffleWarning")
  [14:34:09.335]                       }
  [14:34:09.335]                       else if (inherits(cond, "condition")) {
  [14:34:09.335]                         if (!is.null(pattern)) {
  [14:34:09.335]                           computeRestarts <- base::computeRestarts
  [14:34:09.335]                           grepl <- base::grepl
  [14:34:09.335]                           restarts <- computeRestarts(cond)
  [14:34:09.335]                           for (restart in restarts) {
  [14:34:09.335]                             name <- restart$name
  [14:34:09.335]                             if (is.null(name)) 
  [14:34:09.335]                               next
  [14:34:09.335]                             if (!grepl(pattern, name)) 
  [14:34:09.335]                               next
  [14:34:09.335]                             invokeRestart(restart)
  [14:34:09.335]                             muffled <- TRUE
  [14:34:09.335]                             break
  [14:34:09.335]                           }
  [14:34:09.335]                         }
  [14:34:09.335]                       }
  [14:34:09.335]                       invisible(muffled)
  [14:34:09.335]                     }
  [14:34:09.335]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.335]                   }
  [14:34:09.335]                 }
  [14:34:09.335]             }
  [14:34:09.335]         }))
  [14:34:09.335]     }, error = function(ex) {
  [14:34:09.335]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.335]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.335]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.335]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.335]             version = "1.8"), class = "FutureResult")
  [14:34:09.335]     }, finally = {
  [14:34:09.335]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.335]             setwd(...future.workdir)
  [14:34:09.335]         {
  [14:34:09.335]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.335]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.335]             }
  [14:34:09.335]             base::options(...future.oldOptions)
  [14:34:09.335]             if (.Platform$OS.type == "windows") {
  [14:34:09.335]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.335]                 envs <- base::Sys.getenv()
  [14:34:09.335]                 names <- names(envs)
  [14:34:09.335]                 common <- intersect(names, old_names)
  [14:34:09.335]                 added <- setdiff(names, old_names)
  [14:34:09.335]                 removed <- setdiff(old_names, names)
  [14:34:09.335]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.335]                   envs[common]]
  [14:34:09.335]                 NAMES <- toupper(changed)
  [14:34:09.335]                 args <- list()
  [14:34:09.335]                 for (kk in seq_along(NAMES)) {
  [14:34:09.335]                   name <- changed[[kk]]
  [14:34:09.335]                   NAME <- NAMES[[kk]]
  [14:34:09.335]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.335]                     next
  [14:34:09.335]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.335]                 }
  [14:34:09.335]                 NAMES <- toupper(added)
  [14:34:09.335]                 for (kk in seq_along(NAMES)) {
  [14:34:09.335]                   name <- added[[kk]]
  [14:34:09.335]                   NAME <- NAMES[[kk]]
  [14:34:09.335]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.335]                     next
  [14:34:09.335]                   args[[name]] <- ""
  [14:34:09.335]                 }
  [14:34:09.335]                 NAMES <- toupper(removed)
  [14:34:09.335]                 for (kk in seq_along(NAMES)) {
  [14:34:09.335]                   name <- removed[[kk]]
  [14:34:09.335]                   NAME <- NAMES[[kk]]
  [14:34:09.335]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.335]                     next
  [14:34:09.335]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.335]                 }
  [14:34:09.335]                 if (length(args) > 0) 
  [14:34:09.335]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.335]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.335]             }
  [14:34:09.335]             else {
  [14:34:09.335]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.335]             }
  [14:34:09.335]             {
  [14:34:09.335]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.335]                   0L) {
  [14:34:09.335]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.335]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.335]                   base::options(opts)
  [14:34:09.335]                 }
  [14:34:09.335]                 {
  [14:34:09.335]                   {
  [14:34:09.335]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.335]                     NULL
  [14:34:09.335]                   }
  [14:34:09.335]                   options(future.plan = NULL)
  [14:34:09.335]                   if (is.na(NA_character_)) 
  [14:34:09.335]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.335]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.335]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.335]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.335]                     envir = parent.frame()) 
  [14:34:09.335]                   {
  [14:34:09.335]                     if (is.function(workers)) 
  [14:34:09.335]                       workers <- workers()
  [14:34:09.335]                     workers <- structure(as.integer(workers), 
  [14:34:09.335]                       class = class(workers))
  [14:34:09.335]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.335]                       workers >= 1)
  [14:34:09.335]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.335]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.335]                     }
  [14:34:09.335]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.335]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.335]                       envir = envir)
  [14:34:09.335]                     if (!future$lazy) 
  [14:34:09.335]                       future <- run(future)
  [14:34:09.335]                     invisible(future)
  [14:34:09.335]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.335]                 }
  [14:34:09.335]             }
  [14:34:09.335]         }
  [14:34:09.335]     })
  [14:34:09.335]     if (TRUE) {
  [14:34:09.335]         base::sink(type = "output", split = FALSE)
  [14:34:09.335]         if (TRUE) {
  [14:34:09.335]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.335]         }
  [14:34:09.335]         else {
  [14:34:09.335]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.335]         }
  [14:34:09.335]         base::close(...future.stdout)
  [14:34:09.335]         ...future.stdout <- NULL
  [14:34:09.335]     }
  [14:34:09.335]     ...future.result$conditions <- ...future.conditions
  [14:34:09.335]     ...future.result$finished <- base::Sys.time()
  [14:34:09.335]     ...future.result
  [14:34:09.335] }
  [14:34:09.477] MultisessionFuture started
  [14:34:09.477] result() for ClusterFuture ...
  [14:34:09.478] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.478] - Validating connection of MultisessionFuture
  [14:34:09.572] - received message: FutureResult
  [14:34:09.572] - Received FutureResult
  [14:34:09.578] - Erased future from FutureRegistry
  [14:34:09.578] result() for ClusterFuture ...
  [14:34:09.579] - result already collected: FutureResult
  [14:34:09.579] result() for ClusterFuture ... done
  [14:34:09.579] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:09.580] result() for ClusterFuture ... done
  [14:34:09.580] result() for ClusterFuture ...
  [14:34:09.580] - result already collected: FutureResult
  [14:34:09.581] result() for ClusterFuture ... done
  [14:34:09.581] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [14:34:09.585] plan(): nbrOfWorkers() = 2
  ** Sum function 'A' with plan('multisession') ...
  function (x, ...) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, ...)
      }
      y
  }
  <bytecode: 0x000002748de34e30>
  Arguments '...' exists: TRUE
  [14:34:09.586] getGlobalsAndPackages() ...
  [14:34:09.587] Searching for globals...
  [14:34:09.590] - globals found: [4] '{', 'sum', 'x', '...'
  [14:34:09.590] Searching for globals ... DONE
  [14:34:09.591] Resolving globals: FALSE
  [14:34:09.591] Tweak future expression to call with '...' arguments ...
  [14:34:09.591] {
  [14:34:09.591]     do.call(function(...) {
  [14:34:09.591]         sum(x, ...)
  [14:34:09.591]     }, args = future.call.arguments)
  [14:34:09.591] }
  [14:34:09.592] Tweak future expression to call with '...' arguments ... DONE
  [14:34:09.593] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:09.594] The total size of the 2 globals exported for future expression ('{; sum(x, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'future.call.arguments' (56 bytes of class 'list')
  [14:34:09.595] - globals: [2] 'x', 'future.call.arguments'
  [14:34:09.595] 
  [14:34:09.595] getGlobalsAndPackages() ... DONE
  [14:34:09.596] run() for 'Future' ...
  [14:34:09.596] - state: 'created'
  [14:34:09.597] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:09.617] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:09.618] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:09.618]   - Field: 'node'
  [14:34:09.618]   - Field: 'label'
  [14:34:09.619]   - Field: 'local'
  [14:34:09.619]   - Field: 'owner'
  [14:34:09.619]   - Field: 'envir'
  [14:34:09.620]   - Field: 'workers'
  [14:34:09.620]   - Field: 'packages'
  [14:34:09.620]   - Field: 'gc'
  [14:34:09.621]   - Field: 'conditions'
  [14:34:09.621]   - Field: 'persistent'
  [14:34:09.621]   - Field: 'expr'
  [14:34:09.622]   - Field: 'uuid'
  [14:34:09.622]   - Field: 'seed'
  [14:34:09.622]   - Field: 'version'
  [14:34:09.623]   - Field: 'result'
  [14:34:09.623]   - Field: 'asynchronous'
  [14:34:09.623]   - Field: 'calls'
  [14:34:09.623]   - Field: 'globals'
  [14:34:09.624]   - Field: 'stdout'
  [14:34:09.624]   - Field: 'earlySignal'
  [14:34:09.624]   - Field: 'lazy'
  [14:34:09.625]   - Field: 'state'
  [14:34:09.625] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:09.625] - Launch lazy future ...
  [14:34:09.626] Packages needed by the future expression (n = 0): <none>
  [14:34:09.626] Packages needed by future strategies (n = 0): <none>
  [14:34:09.628] {
  [14:34:09.628]     {
  [14:34:09.628]         {
  [14:34:09.628]             ...future.startTime <- base::Sys.time()
  [14:34:09.628]             {
  [14:34:09.628]                 {
  [14:34:09.628]                   {
  [14:34:09.628]                     {
  [14:34:09.628]                       base::local({
  [14:34:09.628]                         has_future <- base::requireNamespace("future", 
  [14:34:09.628]                           quietly = TRUE)
  [14:34:09.628]                         if (has_future) {
  [14:34:09.628]                           ns <- base::getNamespace("future")
  [14:34:09.628]                           version <- ns[[".package"]][["version"]]
  [14:34:09.628]                           if (is.null(version)) 
  [14:34:09.628]                             version <- utils::packageVersion("future")
  [14:34:09.628]                         }
  [14:34:09.628]                         else {
  [14:34:09.628]                           version <- NULL
  [14:34:09.628]                         }
  [14:34:09.628]                         if (!has_future || version < "1.8.0") {
  [14:34:09.628]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.628]                             "", base::R.version$version.string), 
  [14:34:09.628]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.628]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.628]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.628]                               "release", "version")], collapse = " "), 
  [14:34:09.628]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.628]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.628]                             info)
  [14:34:09.628]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.628]                           if (!has_future) {
  [14:34:09.628]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.628]                               info)
  [14:34:09.628]                           }
  [14:34:09.628]                           else {
  [14:34:09.628]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.628]                               info, version)
  [14:34:09.628]                           }
  [14:34:09.628]                           base::stop(msg)
  [14:34:09.628]                         }
  [14:34:09.628]                       })
  [14:34:09.628]                     }
  [14:34:09.628]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.628]                     base::options(mc.cores = 1L)
  [14:34:09.628]                   }
  [14:34:09.628]                   options(future.plan = NULL)
  [14:34:09.628]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.628]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.628]                 }
  [14:34:09.628]                 ...future.workdir <- getwd()
  [14:34:09.628]             }
  [14:34:09.628]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.628]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.628]         }
  [14:34:09.628]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.628]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.628]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.628]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.628]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.628]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.628]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.628]             base::names(...future.oldOptions))
  [14:34:09.628]     }
  [14:34:09.628]     if (FALSE) {
  [14:34:09.628]     }
  [14:34:09.628]     else {
  [14:34:09.628]         if (TRUE) {
  [14:34:09.628]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.628]                 open = "w")
  [14:34:09.628]         }
  [14:34:09.628]         else {
  [14:34:09.628]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.628]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.628]         }
  [14:34:09.628]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.628]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.628]             base::sink(type = "output", split = FALSE)
  [14:34:09.628]             base::close(...future.stdout)
  [14:34:09.628]         }, add = TRUE)
  [14:34:09.628]     }
  [14:34:09.628]     ...future.frame <- base::sys.nframe()
  [14:34:09.628]     ...future.conditions <- base::list()
  [14:34:09.628]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.628]     if (FALSE) {
  [14:34:09.628]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.628]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.628]     }
  [14:34:09.628]     ...future.result <- base::tryCatch({
  [14:34:09.628]         base::withCallingHandlers({
  [14:34:09.628]             ...future.value <- base::withVisible(base::local({
  [14:34:09.628]                 ...future.makeSendCondition <- base::local({
  [14:34:09.628]                   sendCondition <- NULL
  [14:34:09.628]                   function(frame = 1L) {
  [14:34:09.628]                     if (is.function(sendCondition)) 
  [14:34:09.628]                       return(sendCondition)
  [14:34:09.628]                     ns <- getNamespace("parallel")
  [14:34:09.628]                     if (exists("sendData", mode = "function", 
  [14:34:09.628]                       envir = ns)) {
  [14:34:09.628]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.628]                         envir = ns)
  [14:34:09.628]                       envir <- sys.frame(frame)
  [14:34:09.628]                       master <- NULL
  [14:34:09.628]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.628]                         !identical(envir, emptyenv())) {
  [14:34:09.628]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.628]                           inherits = FALSE)) {
  [14:34:09.628]                           master <- get("master", mode = "list", 
  [14:34:09.628]                             envir = envir, inherits = FALSE)
  [14:34:09.628]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.628]                             "SOCK0node"))) {
  [14:34:09.628]                             sendCondition <<- function(cond) {
  [14:34:09.628]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.628]                                 success = TRUE)
  [14:34:09.628]                               parallel_sendData(master, data)
  [14:34:09.628]                             }
  [14:34:09.628]                             return(sendCondition)
  [14:34:09.628]                           }
  [14:34:09.628]                         }
  [14:34:09.628]                         frame <- frame + 1L
  [14:34:09.628]                         envir <- sys.frame(frame)
  [14:34:09.628]                       }
  [14:34:09.628]                     }
  [14:34:09.628]                     sendCondition <<- function(cond) NULL
  [14:34:09.628]                   }
  [14:34:09.628]                 })
  [14:34:09.628]                 withCallingHandlers({
  [14:34:09.628]                   {
  [14:34:09.628]                     do.call(function(...) {
  [14:34:09.628]                       sum(x, ...)
  [14:34:09.628]                     }, args = future.call.arguments)
  [14:34:09.628]                   }
  [14:34:09.628]                 }, immediateCondition = function(cond) {
  [14:34:09.628]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.628]                   sendCondition(cond)
  [14:34:09.628]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.628]                   {
  [14:34:09.628]                     inherits <- base::inherits
  [14:34:09.628]                     invokeRestart <- base::invokeRestart
  [14:34:09.628]                     is.null <- base::is.null
  [14:34:09.628]                     muffled <- FALSE
  [14:34:09.628]                     if (inherits(cond, "message")) {
  [14:34:09.628]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.628]                       if (muffled) 
  [14:34:09.628]                         invokeRestart("muffleMessage")
  [14:34:09.628]                     }
  [14:34:09.628]                     else if (inherits(cond, "warning")) {
  [14:34:09.628]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.628]                       if (muffled) 
  [14:34:09.628]                         invokeRestart("muffleWarning")
  [14:34:09.628]                     }
  [14:34:09.628]                     else if (inherits(cond, "condition")) {
  [14:34:09.628]                       if (!is.null(pattern)) {
  [14:34:09.628]                         computeRestarts <- base::computeRestarts
  [14:34:09.628]                         grepl <- base::grepl
  [14:34:09.628]                         restarts <- computeRestarts(cond)
  [14:34:09.628]                         for (restart in restarts) {
  [14:34:09.628]                           name <- restart$name
  [14:34:09.628]                           if (is.null(name)) 
  [14:34:09.628]                             next
  [14:34:09.628]                           if (!grepl(pattern, name)) 
  [14:34:09.628]                             next
  [14:34:09.628]                           invokeRestart(restart)
  [14:34:09.628]                           muffled <- TRUE
  [14:34:09.628]                           break
  [14:34:09.628]                         }
  [14:34:09.628]                       }
  [14:34:09.628]                     }
  [14:34:09.628]                     invisible(muffled)
  [14:34:09.628]                   }
  [14:34:09.628]                   muffleCondition(cond)
  [14:34:09.628]                 })
  [14:34:09.628]             }))
  [14:34:09.628]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.628]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.628]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.628]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.628]                     ...future.globalenv.names))
  [14:34:09.628]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.628]         }, condition = base::local({
  [14:34:09.628]             c <- base::c
  [14:34:09.628]             inherits <- base::inherits
  [14:34:09.628]             invokeRestart <- base::invokeRestart
  [14:34:09.628]             length <- base::length
  [14:34:09.628]             list <- base::list
  [14:34:09.628]             seq.int <- base::seq.int
  [14:34:09.628]             signalCondition <- base::signalCondition
  [14:34:09.628]             sys.calls <- base::sys.calls
  [14:34:09.628]             `[[` <- base::`[[`
  [14:34:09.628]             `+` <- base::`+`
  [14:34:09.628]             `<<-` <- base::`<<-`
  [14:34:09.628]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.628]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.628]                   3L)]
  [14:34:09.628]             }
  [14:34:09.628]             function(cond) {
  [14:34:09.628]                 is_error <- inherits(cond, "error")
  [14:34:09.628]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.628]                   NULL)
  [14:34:09.628]                 if (is_error) {
  [14:34:09.628]                   sessionInformation <- function() {
  [14:34:09.628]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.628]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.628]                       search = base::search(), system = base::Sys.info())
  [14:34:09.628]                   }
  [14:34:09.628]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.628]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.628]                     cond$call), session = sessionInformation(), 
  [14:34:09.628]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.628]                   signalCondition(cond)
  [14:34:09.628]                 }
  [14:34:09.628]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.628]                 "immediateCondition"))) {
  [14:34:09.628]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.628]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.628]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.628]                   if (TRUE && !signal) {
  [14:34:09.628]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.628]                     {
  [14:34:09.628]                       inherits <- base::inherits
  [14:34:09.628]                       invokeRestart <- base::invokeRestart
  [14:34:09.628]                       is.null <- base::is.null
  [14:34:09.628]                       muffled <- FALSE
  [14:34:09.628]                       if (inherits(cond, "message")) {
  [14:34:09.628]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.628]                         if (muffled) 
  [14:34:09.628]                           invokeRestart("muffleMessage")
  [14:34:09.628]                       }
  [14:34:09.628]                       else if (inherits(cond, "warning")) {
  [14:34:09.628]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.628]                         if (muffled) 
  [14:34:09.628]                           invokeRestart("muffleWarning")
  [14:34:09.628]                       }
  [14:34:09.628]                       else if (inherits(cond, "condition")) {
  [14:34:09.628]                         if (!is.null(pattern)) {
  [14:34:09.628]                           computeRestarts <- base::computeRestarts
  [14:34:09.628]                           grepl <- base::grepl
  [14:34:09.628]                           restarts <- computeRestarts(cond)
  [14:34:09.628]                           for (restart in restarts) {
  [14:34:09.628]                             name <- restart$name
  [14:34:09.628]                             if (is.null(name)) 
  [14:34:09.628]                               next
  [14:34:09.628]                             if (!grepl(pattern, name)) 
  [14:34:09.628]                               next
  [14:34:09.628]                             invokeRestart(restart)
  [14:34:09.628]                             muffled <- TRUE
  [14:34:09.628]                             break
  [14:34:09.628]                           }
  [14:34:09.628]                         }
  [14:34:09.628]                       }
  [14:34:09.628]                       invisible(muffled)
  [14:34:09.628]                     }
  [14:34:09.628]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.628]                   }
  [14:34:09.628]                 }
  [14:34:09.628]                 else {
  [14:34:09.628]                   if (TRUE) {
  [14:34:09.628]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.628]                     {
  [14:34:09.628]                       inherits <- base::inherits
  [14:34:09.628]                       invokeRestart <- base::invokeRestart
  [14:34:09.628]                       is.null <- base::is.null
  [14:34:09.628]                       muffled <- FALSE
  [14:34:09.628]                       if (inherits(cond, "message")) {
  [14:34:09.628]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.628]                         if (muffled) 
  [14:34:09.628]                           invokeRestart("muffleMessage")
  [14:34:09.628]                       }
  [14:34:09.628]                       else if (inherits(cond, "warning")) {
  [14:34:09.628]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.628]                         if (muffled) 
  [14:34:09.628]                           invokeRestart("muffleWarning")
  [14:34:09.628]                       }
  [14:34:09.628]                       else if (inherits(cond, "condition")) {
  [14:34:09.628]                         if (!is.null(pattern)) {
  [14:34:09.628]                           computeRestarts <- base::computeRestarts
  [14:34:09.628]                           grepl <- base::grepl
  [14:34:09.628]                           restarts <- computeRestarts(cond)
  [14:34:09.628]                           for (restart in restarts) {
  [14:34:09.628]                             name <- restart$name
  [14:34:09.628]                             if (is.null(name)) 
  [14:34:09.628]                               next
  [14:34:09.628]                             if (!grepl(pattern, name)) 
  [14:34:09.628]                               next
  [14:34:09.628]                             invokeRestart(restart)
  [14:34:09.628]                             muffled <- TRUE
  [14:34:09.628]                             break
  [14:34:09.628]                           }
  [14:34:09.628]                         }
  [14:34:09.628]                       }
  [14:34:09.628]                       invisible(muffled)
  [14:34:09.628]                     }
  [14:34:09.628]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.628]                   }
  [14:34:09.628]                 }
  [14:34:09.628]             }
  [14:34:09.628]         }))
  [14:34:09.628]     }, error = function(ex) {
  [14:34:09.628]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.628]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.628]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.628]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.628]             version = "1.8"), class = "FutureResult")
  [14:34:09.628]     }, finally = {
  [14:34:09.628]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.628]             setwd(...future.workdir)
  [14:34:09.628]         {
  [14:34:09.628]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.628]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.628]             }
  [14:34:09.628]             base::options(...future.oldOptions)
  [14:34:09.628]             if (.Platform$OS.type == "windows") {
  [14:34:09.628]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.628]                 envs <- base::Sys.getenv()
  [14:34:09.628]                 names <- names(envs)
  [14:34:09.628]                 common <- intersect(names, old_names)
  [14:34:09.628]                 added <- setdiff(names, old_names)
  [14:34:09.628]                 removed <- setdiff(old_names, names)
  [14:34:09.628]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.628]                   envs[common]]
  [14:34:09.628]                 NAMES <- toupper(changed)
  [14:34:09.628]                 args <- list()
  [14:34:09.628]                 for (kk in seq_along(NAMES)) {
  [14:34:09.628]                   name <- changed[[kk]]
  [14:34:09.628]                   NAME <- NAMES[[kk]]
  [14:34:09.628]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.628]                     next
  [14:34:09.628]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.628]                 }
  [14:34:09.628]                 NAMES <- toupper(added)
  [14:34:09.628]                 for (kk in seq_along(NAMES)) {
  [14:34:09.628]                   name <- added[[kk]]
  [14:34:09.628]                   NAME <- NAMES[[kk]]
  [14:34:09.628]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.628]                     next
  [14:34:09.628]                   args[[name]] <- ""
  [14:34:09.628]                 }
  [14:34:09.628]                 NAMES <- toupper(removed)
  [14:34:09.628]                 for (kk in seq_along(NAMES)) {
  [14:34:09.628]                   name <- removed[[kk]]
  [14:34:09.628]                   NAME <- NAMES[[kk]]
  [14:34:09.628]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.628]                     next
  [14:34:09.628]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.628]                 }
  [14:34:09.628]                 if (length(args) > 0) 
  [14:34:09.628]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.628]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.628]             }
  [14:34:09.628]             else {
  [14:34:09.628]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.628]             }
  [14:34:09.628]             {
  [14:34:09.628]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.628]                   0L) {
  [14:34:09.628]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.628]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.628]                   base::options(opts)
  [14:34:09.628]                 }
  [14:34:09.628]                 {
  [14:34:09.628]                   {
  [14:34:09.628]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.628]                     NULL
  [14:34:09.628]                   }
  [14:34:09.628]                   options(future.plan = NULL)
  [14:34:09.628]                   if (is.na(NA_character_)) 
  [14:34:09.628]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.628]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.628]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.628]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.628]                     envir = parent.frame()) 
  [14:34:09.628]                   {
  [14:34:09.628]                     if (is.function(workers)) 
  [14:34:09.628]                       workers <- workers()
  [14:34:09.628]                     workers <- structure(as.integer(workers), 
  [14:34:09.628]                       class = class(workers))
  [14:34:09.628]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.628]                       workers >= 1)
  [14:34:09.628]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.628]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.628]                     }
  [14:34:09.628]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.628]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.628]                       envir = envir)
  [14:34:09.628]                     if (!future$lazy) 
  [14:34:09.628]                       future <- run(future)
  [14:34:09.628]                     invisible(future)
  [14:34:09.628]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.628]                 }
  [14:34:09.628]             }
  [14:34:09.628]         }
  [14:34:09.628]     })
  [14:34:09.628]     if (TRUE) {
  [14:34:09.628]         base::sink(type = "output", split = FALSE)
  [14:34:09.628]         if (TRUE) {
  [14:34:09.628]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.628]         }
  [14:34:09.628]         else {
  [14:34:09.628]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.628]         }
  [14:34:09.628]         base::close(...future.stdout)
  [14:34:09.628]         ...future.stdout <- NULL
  [14:34:09.628]     }
  [14:34:09.628]     ...future.result$conditions <- ...future.conditions
  [14:34:09.628]     ...future.result$finished <- base::Sys.time()
  [14:34:09.628]     ...future.result
  [14:34:09.628] }
  [14:34:09.637] Exporting 2 global objects (112 bytes) to cluster node #1 ...
  [14:34:09.637] Exporting 'x' (56 bytes) to cluster node #1 ...
  [14:34:09.638] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.638] Exporting 'future.call.arguments' (56 bytes) to cluster node #1 ...
  [14:34:09.639] Exporting 'future.call.arguments' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.639] Exporting 2 global objects (112 bytes) to cluster node #1 ... DONE
  [14:34:09.640] MultisessionFuture started
  [14:34:09.641] - Launch lazy future ... done
  [14:34:09.641] run() for 'MultisessionFuture' ... done
  [14:34:09.641] result() for ClusterFuture ...
  [14:34:09.642] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.642] - Validating connection of MultisessionFuture
  [14:34:09.663] - received message: FutureResult
  [14:34:09.663] - Received FutureResult
  [14:34:09.664] - Erased future from FutureRegistry
  [14:34:09.664] result() for ClusterFuture ...
  [14:34:09.665] - result already collected: FutureResult
  [14:34:09.665] result() for ClusterFuture ... done
  [14:34:09.665] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:09.665] result() for ClusterFuture ... done
  [14:34:09.666] result() for ClusterFuture ...
  [14:34:09.666] - result already collected: FutureResult
  [14:34:09.666] result() for ClusterFuture ... done
  [1] 6
  ** Sum function 'B' with plan('multisession') ...
  function (x, ...) 
  {
      sumt <- function(x) {
          message("Arguments '...' exists: ", exists("...", inherits = TRUE))
          y %<-% {
              sum(x, ...)
          }
          y
      }
      sumt(x)
  }
  <bytecode: 0x000002748bec8ae8>
  Arguments '...' exists: TRUE
  [14:34:09.668] getGlobalsAndPackages() ...
  [14:34:09.668] Searching for globals...
  [14:34:09.672] - globals found: [4] '{', 'sum', 'x', '...'
  [14:34:09.672] Searching for globals ... DONE
  [14:34:09.672] Resolving globals: FALSE
  [14:34:09.672] Tweak future expression to call with '...' arguments ...
  [14:34:09.673] {
  [14:34:09.673]     do.call(function(...) {
  [14:34:09.673]         sum(x, ...)
  [14:34:09.673]     }, args = future.call.arguments)
  [14:34:09.673] }
  [14:34:09.673] Tweak future expression to call with '...' arguments ... DONE
  [14:34:09.675] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:09.676] The total size of the 2 globals exported for future expression ('{; sum(x, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'future.call.arguments' (56 bytes of class 'list')
  [14:34:09.676] - globals: [2] 'x', 'future.call.arguments'
  [14:34:09.676] 
  [14:34:09.676] getGlobalsAndPackages() ... DONE
  [14:34:09.677] run() for 'Future' ...
  [14:34:09.677] - state: 'created'
  [14:34:09.678] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:09.697] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:09.697] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:09.698]   - Field: 'node'
  [14:34:09.698]   - Field: 'label'
  [14:34:09.698]   - Field: 'local'
  [14:34:09.699]   - Field: 'owner'
  [14:34:09.699]   - Field: 'envir'
  [14:34:09.699]   - Field: 'workers'
  [14:34:09.700]   - Field: 'packages'
  [14:34:09.700]   - Field: 'gc'
  [14:34:09.700]   - Field: 'conditions'
  [14:34:09.700]   - Field: 'persistent'
  [14:34:09.701]   - Field: 'expr'
  [14:34:09.701]   - Field: 'uuid'
  [14:34:09.701]   - Field: 'seed'
  [14:34:09.702]   - Field: 'version'
  [14:34:09.702]   - Field: 'result'
  [14:34:09.702]   - Field: 'asynchronous'
  [14:34:09.703]   - Field: 'calls'
  [14:34:09.703]   - Field: 'globals'
  [14:34:09.703]   - Field: 'stdout'
  [14:34:09.703]   - Field: 'earlySignal'
  [14:34:09.704]   - Field: 'lazy'
  [14:34:09.704]   - Field: 'state'
  [14:34:09.704] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:09.705] - Launch lazy future ...
  [14:34:09.705] Packages needed by the future expression (n = 0): <none>
  [14:34:09.706] Packages needed by future strategies (n = 0): <none>
  [14:34:09.707] {
  [14:34:09.707]     {
  [14:34:09.707]         {
  [14:34:09.707]             ...future.startTime <- base::Sys.time()
  [14:34:09.707]             {
  [14:34:09.707]                 {
  [14:34:09.707]                   {
  [14:34:09.707]                     {
  [14:34:09.707]                       base::local({
  [14:34:09.707]                         has_future <- base::requireNamespace("future", 
  [14:34:09.707]                           quietly = TRUE)
  [14:34:09.707]                         if (has_future) {
  [14:34:09.707]                           ns <- base::getNamespace("future")
  [14:34:09.707]                           version <- ns[[".package"]][["version"]]
  [14:34:09.707]                           if (is.null(version)) 
  [14:34:09.707]                             version <- utils::packageVersion("future")
  [14:34:09.707]                         }
  [14:34:09.707]                         else {
  [14:34:09.707]                           version <- NULL
  [14:34:09.707]                         }
  [14:34:09.707]                         if (!has_future || version < "1.8.0") {
  [14:34:09.707]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.707]                             "", base::R.version$version.string), 
  [14:34:09.707]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.707]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.707]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.707]                               "release", "version")], collapse = " "), 
  [14:34:09.707]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.707]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.707]                             info)
  [14:34:09.707]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.707]                           if (!has_future) {
  [14:34:09.707]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.707]                               info)
  [14:34:09.707]                           }
  [14:34:09.707]                           else {
  [14:34:09.707]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.707]                               info, version)
  [14:34:09.707]                           }
  [14:34:09.707]                           base::stop(msg)
  [14:34:09.707]                         }
  [14:34:09.707]                       })
  [14:34:09.707]                     }
  [14:34:09.707]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.707]                     base::options(mc.cores = 1L)
  [14:34:09.707]                   }
  [14:34:09.707]                   options(future.plan = NULL)
  [14:34:09.707]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.707]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.707]                 }
  [14:34:09.707]                 ...future.workdir <- getwd()
  [14:34:09.707]             }
  [14:34:09.707]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.707]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.707]         }
  [14:34:09.707]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.707]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.707]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.707]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.707]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.707]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.707]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.707]             base::names(...future.oldOptions))
  [14:34:09.707]     }
  [14:34:09.707]     if (FALSE) {
  [14:34:09.707]     }
  [14:34:09.707]     else {
  [14:34:09.707]         if (TRUE) {
  [14:34:09.707]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.707]                 open = "w")
  [14:34:09.707]         }
  [14:34:09.707]         else {
  [14:34:09.707]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.707]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.707]         }
  [14:34:09.707]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.707]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.707]             base::sink(type = "output", split = FALSE)
  [14:34:09.707]             base::close(...future.stdout)
  [14:34:09.707]         }, add = TRUE)
  [14:34:09.707]     }
  [14:34:09.707]     ...future.frame <- base::sys.nframe()
  [14:34:09.707]     ...future.conditions <- base::list()
  [14:34:09.707]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.707]     if (FALSE) {
  [14:34:09.707]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.707]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.707]     }
  [14:34:09.707]     ...future.result <- base::tryCatch({
  [14:34:09.707]         base::withCallingHandlers({
  [14:34:09.707]             ...future.value <- base::withVisible(base::local({
  [14:34:09.707]                 ...future.makeSendCondition <- base::local({
  [14:34:09.707]                   sendCondition <- NULL
  [14:34:09.707]                   function(frame = 1L) {
  [14:34:09.707]                     if (is.function(sendCondition)) 
  [14:34:09.707]                       return(sendCondition)
  [14:34:09.707]                     ns <- getNamespace("parallel")
  [14:34:09.707]                     if (exists("sendData", mode = "function", 
  [14:34:09.707]                       envir = ns)) {
  [14:34:09.707]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.707]                         envir = ns)
  [14:34:09.707]                       envir <- sys.frame(frame)
  [14:34:09.707]                       master <- NULL
  [14:34:09.707]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.707]                         !identical(envir, emptyenv())) {
  [14:34:09.707]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.707]                           inherits = FALSE)) {
  [14:34:09.707]                           master <- get("master", mode = "list", 
  [14:34:09.707]                             envir = envir, inherits = FALSE)
  [14:34:09.707]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.707]                             "SOCK0node"))) {
  [14:34:09.707]                             sendCondition <<- function(cond) {
  [14:34:09.707]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.707]                                 success = TRUE)
  [14:34:09.707]                               parallel_sendData(master, data)
  [14:34:09.707]                             }
  [14:34:09.707]                             return(sendCondition)
  [14:34:09.707]                           }
  [14:34:09.707]                         }
  [14:34:09.707]                         frame <- frame + 1L
  [14:34:09.707]                         envir <- sys.frame(frame)
  [14:34:09.707]                       }
  [14:34:09.707]                     }
  [14:34:09.707]                     sendCondition <<- function(cond) NULL
  [14:34:09.707]                   }
  [14:34:09.707]                 })
  [14:34:09.707]                 withCallingHandlers({
  [14:34:09.707]                   {
  [14:34:09.707]                     do.call(function(...) {
  [14:34:09.707]                       sum(x, ...)
  [14:34:09.707]                     }, args = future.call.arguments)
  [14:34:09.707]                   }
  [14:34:09.707]                 }, immediateCondition = function(cond) {
  [14:34:09.707]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.707]                   sendCondition(cond)
  [14:34:09.707]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.707]                   {
  [14:34:09.707]                     inherits <- base::inherits
  [14:34:09.707]                     invokeRestart <- base::invokeRestart
  [14:34:09.707]                     is.null <- base::is.null
  [14:34:09.707]                     muffled <- FALSE
  [14:34:09.707]                     if (inherits(cond, "message")) {
  [14:34:09.707]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.707]                       if (muffled) 
  [14:34:09.707]                         invokeRestart("muffleMessage")
  [14:34:09.707]                     }
  [14:34:09.707]                     else if (inherits(cond, "warning")) {
  [14:34:09.707]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.707]                       if (muffled) 
  [14:34:09.707]                         invokeRestart("muffleWarning")
  [14:34:09.707]                     }
  [14:34:09.707]                     else if (inherits(cond, "condition")) {
  [14:34:09.707]                       if (!is.null(pattern)) {
  [14:34:09.707]                         computeRestarts <- base::computeRestarts
  [14:34:09.707]                         grepl <- base::grepl
  [14:34:09.707]                         restarts <- computeRestarts(cond)
  [14:34:09.707]                         for (restart in restarts) {
  [14:34:09.707]                           name <- restart$name
  [14:34:09.707]                           if (is.null(name)) 
  [14:34:09.707]                             next
  [14:34:09.707]                           if (!grepl(pattern, name)) 
  [14:34:09.707]                             next
  [14:34:09.707]                           invokeRestart(restart)
  [14:34:09.707]                           muffled <- TRUE
  [14:34:09.707]                           break
  [14:34:09.707]                         }
  [14:34:09.707]                       }
  [14:34:09.707]                     }
  [14:34:09.707]                     invisible(muffled)
  [14:34:09.707]                   }
  [14:34:09.707]                   muffleCondition(cond)
  [14:34:09.707]                 })
  [14:34:09.707]             }))
  [14:34:09.707]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.707]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.707]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.707]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.707]                     ...future.globalenv.names))
  [14:34:09.707]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.707]         }, condition = base::local({
  [14:34:09.707]             c <- base::c
  [14:34:09.707]             inherits <- base::inherits
  [14:34:09.707]             invokeRestart <- base::invokeRestart
  [14:34:09.707]             length <- base::length
  [14:34:09.707]             list <- base::list
  [14:34:09.707]             seq.int <- base::seq.int
  [14:34:09.707]             signalCondition <- base::signalCondition
  [14:34:09.707]             sys.calls <- base::sys.calls
  [14:34:09.707]             `[[` <- base::`[[`
  [14:34:09.707]             `+` <- base::`+`
  [14:34:09.707]             `<<-` <- base::`<<-`
  [14:34:09.707]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.707]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.707]                   3L)]
  [14:34:09.707]             }
  [14:34:09.707]             function(cond) {
  [14:34:09.707]                 is_error <- inherits(cond, "error")
  [14:34:09.707]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.707]                   NULL)
  [14:34:09.707]                 if (is_error) {
  [14:34:09.707]                   sessionInformation <- function() {
  [14:34:09.707]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.707]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.707]                       search = base::search(), system = base::Sys.info())
  [14:34:09.707]                   }
  [14:34:09.707]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.707]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.707]                     cond$call), session = sessionInformation(), 
  [14:34:09.707]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.707]                   signalCondition(cond)
  [14:34:09.707]                 }
  [14:34:09.707]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.707]                 "immediateCondition"))) {
  [14:34:09.707]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.707]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.707]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.707]                   if (TRUE && !signal) {
  [14:34:09.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.707]                     {
  [14:34:09.707]                       inherits <- base::inherits
  [14:34:09.707]                       invokeRestart <- base::invokeRestart
  [14:34:09.707]                       is.null <- base::is.null
  [14:34:09.707]                       muffled <- FALSE
  [14:34:09.707]                       if (inherits(cond, "message")) {
  [14:34:09.707]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.707]                         if (muffled) 
  [14:34:09.707]                           invokeRestart("muffleMessage")
  [14:34:09.707]                       }
  [14:34:09.707]                       else if (inherits(cond, "warning")) {
  [14:34:09.707]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.707]                         if (muffled) 
  [14:34:09.707]                           invokeRestart("muffleWarning")
  [14:34:09.707]                       }
  [14:34:09.707]                       else if (inherits(cond, "condition")) {
  [14:34:09.707]                         if (!is.null(pattern)) {
  [14:34:09.707]                           computeRestarts <- base::computeRestarts
  [14:34:09.707]                           grepl <- base::grepl
  [14:34:09.707]                           restarts <- computeRestarts(cond)
  [14:34:09.707]                           for (restart in restarts) {
  [14:34:09.707]                             name <- restart$name
  [14:34:09.707]                             if (is.null(name)) 
  [14:34:09.707]                               next
  [14:34:09.707]                             if (!grepl(pattern, name)) 
  [14:34:09.707]                               next
  [14:34:09.707]                             invokeRestart(restart)
  [14:34:09.707]                             muffled <- TRUE
  [14:34:09.707]                             break
  [14:34:09.707]                           }
  [14:34:09.707]                         }
  [14:34:09.707]                       }
  [14:34:09.707]                       invisible(muffled)
  [14:34:09.707]                     }
  [14:34:09.707]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.707]                   }
  [14:34:09.707]                 }
  [14:34:09.707]                 else {
  [14:34:09.707]                   if (TRUE) {
  [14:34:09.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.707]                     {
  [14:34:09.707]                       inherits <- base::inherits
  [14:34:09.707]                       invokeRestart <- base::invokeRestart
  [14:34:09.707]                       is.null <- base::is.null
  [14:34:09.707]                       muffled <- FALSE
  [14:34:09.707]                       if (inherits(cond, "message")) {
  [14:34:09.707]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.707]                         if (muffled) 
  [14:34:09.707]                           invokeRestart("muffleMessage")
  [14:34:09.707]                       }
  [14:34:09.707]                       else if (inherits(cond, "warning")) {
  [14:34:09.707]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.707]                         if (muffled) 
  [14:34:09.707]                           invokeRestart("muffleWarning")
  [14:34:09.707]                       }
  [14:34:09.707]                       else if (inherits(cond, "condition")) {
  [14:34:09.707]                         if (!is.null(pattern)) {
  [14:34:09.707]                           computeRestarts <- base::computeRestarts
  [14:34:09.707]                           grepl <- base::grepl
  [14:34:09.707]                           restarts <- computeRestarts(cond)
  [14:34:09.707]                           for (restart in restarts) {
  [14:34:09.707]                             name <- restart$name
  [14:34:09.707]                             if (is.null(name)) 
  [14:34:09.707]                               next
  [14:34:09.707]                             if (!grepl(pattern, name)) 
  [14:34:09.707]                               next
  [14:34:09.707]                             invokeRestart(restart)
  [14:34:09.707]                             muffled <- TRUE
  [14:34:09.707]                             break
  [14:34:09.707]                           }
  [14:34:09.707]                         }
  [14:34:09.707]                       }
  [14:34:09.707]                       invisible(muffled)
  [14:34:09.707]                     }
  [14:34:09.707]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.707]                   }
  [14:34:09.707]                 }
  [14:34:09.707]             }
  [14:34:09.707]         }))
  [14:34:09.707]     }, error = function(ex) {
  [14:34:09.707]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.707]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.707]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.707]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.707]             version = "1.8"), class = "FutureResult")
  [14:34:09.707]     }, finally = {
  [14:34:09.707]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.707]             setwd(...future.workdir)
  [14:34:09.707]         {
  [14:34:09.707]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.707]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.707]             }
  [14:34:09.707]             base::options(...future.oldOptions)
  [14:34:09.707]             if (.Platform$OS.type == "windows") {
  [14:34:09.707]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.707]                 envs <- base::Sys.getenv()
  [14:34:09.707]                 names <- names(envs)
  [14:34:09.707]                 common <- intersect(names, old_names)
  [14:34:09.707]                 added <- setdiff(names, old_names)
  [14:34:09.707]                 removed <- setdiff(old_names, names)
  [14:34:09.707]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.707]                   envs[common]]
  [14:34:09.707]                 NAMES <- toupper(changed)
  [14:34:09.707]                 args <- list()
  [14:34:09.707]                 for (kk in seq_along(NAMES)) {
  [14:34:09.707]                   name <- changed[[kk]]
  [14:34:09.707]                   NAME <- NAMES[[kk]]
  [14:34:09.707]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.707]                     next
  [14:34:09.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.707]                 }
  [14:34:09.707]                 NAMES <- toupper(added)
  [14:34:09.707]                 for (kk in seq_along(NAMES)) {
  [14:34:09.707]                   name <- added[[kk]]
  [14:34:09.707]                   NAME <- NAMES[[kk]]
  [14:34:09.707]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.707]                     next
  [14:34:09.707]                   args[[name]] <- ""
  [14:34:09.707]                 }
  [14:34:09.707]                 NAMES <- toupper(removed)
  [14:34:09.707]                 for (kk in seq_along(NAMES)) {
  [14:34:09.707]                   name <- removed[[kk]]
  [14:34:09.707]                   NAME <- NAMES[[kk]]
  [14:34:09.707]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.707]                     next
  [14:34:09.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.707]                 }
  [14:34:09.707]                 if (length(args) > 0) 
  [14:34:09.707]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.707]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.707]             }
  [14:34:09.707]             else {
  [14:34:09.707]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.707]             }
  [14:34:09.707]             {
  [14:34:09.707]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.707]                   0L) {
  [14:34:09.707]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.707]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.707]                   base::options(opts)
  [14:34:09.707]                 }
  [14:34:09.707]                 {
  [14:34:09.707]                   {
  [14:34:09.707]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.707]                     NULL
  [14:34:09.707]                   }
  [14:34:09.707]                   options(future.plan = NULL)
  [14:34:09.707]                   if (is.na(NA_character_)) 
  [14:34:09.707]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.707]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.707]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.707]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.707]                     envir = parent.frame()) 
  [14:34:09.707]                   {
  [14:34:09.707]                     if (is.function(workers)) 
  [14:34:09.707]                       workers <- workers()
  [14:34:09.707]                     workers <- structure(as.integer(workers), 
  [14:34:09.707]                       class = class(workers))
  [14:34:09.707]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.707]                       workers >= 1)
  [14:34:09.707]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.707]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.707]                     }
  [14:34:09.707]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.707]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.707]                       envir = envir)
  [14:34:09.707]                     if (!future$lazy) 
  [14:34:09.707]                       future <- run(future)
  [14:34:09.707]                     invisible(future)
  [14:34:09.707]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.707]                 }
  [14:34:09.707]             }
  [14:34:09.707]         }
  [14:34:09.707]     })
  [14:34:09.707]     if (TRUE) {
  [14:34:09.707]         base::sink(type = "output", split = FALSE)
  [14:34:09.707]         if (TRUE) {
  [14:34:09.707]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.707]         }
  [14:34:09.707]         else {
  [14:34:09.707]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.707]         }
  [14:34:09.707]         base::close(...future.stdout)
  [14:34:09.707]         ...future.stdout <- NULL
  [14:34:09.707]     }
  [14:34:09.707]     ...future.result$conditions <- ...future.conditions
  [14:34:09.707]     ...future.result$finished <- base::Sys.time()
  [14:34:09.707]     ...future.result
  [14:34:09.707] }
  [14:34:09.717] Exporting 2 global objects (112 bytes) to cluster node #1 ...
  [14:34:09.717] Exporting 'x' (56 bytes) to cluster node #1 ...
  [14:34:09.718] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.718] Exporting 'future.call.arguments' (56 bytes) to cluster node #1 ...
  [14:34:09.719] Exporting 'future.call.arguments' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.720] Exporting 2 global objects (112 bytes) to cluster node #1 ... DONE
  [14:34:09.721] MultisessionFuture started
  [14:34:09.721] - Launch lazy future ... done
  [14:34:09.721] run() for 'MultisessionFuture' ... done
  [14:34:09.722] result() for ClusterFuture ...
  [14:34:09.722] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.723] - Validating connection of MultisessionFuture
  [14:34:09.751] - received message: FutureResult
  [14:34:09.751] - Received FutureResult
  [14:34:09.752] - Erased future from FutureRegistry
  [14:34:09.752] result() for ClusterFuture ...
  [14:34:09.752] - result already collected: FutureResult
  [14:34:09.752] result() for ClusterFuture ... done
  [14:34:09.753] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:09.753] result() for ClusterFuture ... done
  [14:34:09.753] result() for ClusterFuture ...
  [14:34:09.754] - result already collected: FutureResult
  [14:34:09.754] result() for ClusterFuture ... done
  [1] 6
  ** Sum function 'C' with plan('multisession') ...
  function (x, y) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, y)
      }
      y
  }
  <bytecode: 0x000002748b70ef10>
  Arguments '...' exists: FALSE
  [14:34:09.755] getGlobalsAndPackages() ...
  [14:34:09.756] Searching for globals...
  [14:34:09.758] - globals found: [4] '{', 'sum', 'x', 'y'
  [14:34:09.759] Searching for globals ... DONE
  [14:34:09.759] Resolving globals: FALSE
  [14:34:09.760] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:09.761] The total size of the 2 globals exported for future expression ('{; sum(x, y); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:09.761] - globals: [2] 'x', 'y'
  [14:34:09.762] 
  [14:34:09.762] getGlobalsAndPackages() ... DONE
  [14:34:09.762] run() for 'Future' ...
  [14:34:09.763] - state: 'created'
  [14:34:09.763] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:09.782] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:09.782] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:09.783]   - Field: 'node'
  [14:34:09.783]   - Field: 'label'
  [14:34:09.783]   - Field: 'local'
  [14:34:09.784]   - Field: 'owner'
  [14:34:09.784]   - Field: 'envir'
  [14:34:09.784]   - Field: 'workers'
  [14:34:09.784]   - Field: 'packages'
  [14:34:09.785]   - Field: 'gc'
  [14:34:09.785]   - Field: 'conditions'
  [14:34:09.785]   - Field: 'persistent'
  [14:34:09.786]   - Field: 'expr'
  [14:34:09.786]   - Field: 'uuid'
  [14:34:09.786]   - Field: 'seed'
  [14:34:09.787]   - Field: 'version'
  [14:34:09.787]   - Field: 'result'
  [14:34:09.787]   - Field: 'asynchronous'
  [14:34:09.788]   - Field: 'calls'
  [14:34:09.788]   - Field: 'globals'
  [14:34:09.788]   - Field: 'stdout'
  [14:34:09.788]   - Field: 'earlySignal'
  [14:34:09.789]   - Field: 'lazy'
  [14:34:09.789]   - Field: 'state'
  [14:34:09.789] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:09.790] - Launch lazy future ...
  [14:34:09.790] Packages needed by the future expression (n = 0): <none>
  [14:34:09.791] Packages needed by future strategies (n = 0): <none>
  [14:34:09.795] {
  [14:34:09.795]     {
  [14:34:09.795]         {
  [14:34:09.795]             ...future.startTime <- base::Sys.time()
  [14:34:09.795]             {
  [14:34:09.795]                 {
  [14:34:09.795]                   {
  [14:34:09.795]                     {
  [14:34:09.795]                       base::local({
  [14:34:09.795]                         has_future <- base::requireNamespace("future", 
  [14:34:09.795]                           quietly = TRUE)
  [14:34:09.795]                         if (has_future) {
  [14:34:09.795]                           ns <- base::getNamespace("future")
  [14:34:09.795]                           version <- ns[[".package"]][["version"]]
  [14:34:09.795]                           if (is.null(version)) 
  [14:34:09.795]                             version <- utils::packageVersion("future")
  [14:34:09.795]                         }
  [14:34:09.795]                         else {
  [14:34:09.795]                           version <- NULL
  [14:34:09.795]                         }
  [14:34:09.795]                         if (!has_future || version < "1.8.0") {
  [14:34:09.795]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.795]                             "", base::R.version$version.string), 
  [14:34:09.795]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.795]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.795]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.795]                               "release", "version")], collapse = " "), 
  [14:34:09.795]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.795]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.795]                             info)
  [14:34:09.795]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.795]                           if (!has_future) {
  [14:34:09.795]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.795]                               info)
  [14:34:09.795]                           }
  [14:34:09.795]                           else {
  [14:34:09.795]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.795]                               info, version)
  [14:34:09.795]                           }
  [14:34:09.795]                           base::stop(msg)
  [14:34:09.795]                         }
  [14:34:09.795]                       })
  [14:34:09.795]                     }
  [14:34:09.795]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.795]                     base::options(mc.cores = 1L)
  [14:34:09.795]                   }
  [14:34:09.795]                   options(future.plan = NULL)
  [14:34:09.795]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.795]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.795]                 }
  [14:34:09.795]                 ...future.workdir <- getwd()
  [14:34:09.795]             }
  [14:34:09.795]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.795]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.795]         }
  [14:34:09.795]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.795]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.795]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.795]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.795]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.795]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.795]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.795]             base::names(...future.oldOptions))
  [14:34:09.795]     }
  [14:34:09.795]     if (FALSE) {
  [14:34:09.795]     }
  [14:34:09.795]     else {
  [14:34:09.795]         if (TRUE) {
  [14:34:09.795]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.795]                 open = "w")
  [14:34:09.795]         }
  [14:34:09.795]         else {
  [14:34:09.795]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.795]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.795]         }
  [14:34:09.795]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.795]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.795]             base::sink(type = "output", split = FALSE)
  [14:34:09.795]             base::close(...future.stdout)
  [14:34:09.795]         }, add = TRUE)
  [14:34:09.795]     }
  [14:34:09.795]     ...future.frame <- base::sys.nframe()
  [14:34:09.795]     ...future.conditions <- base::list()
  [14:34:09.795]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.795]     if (FALSE) {
  [14:34:09.795]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.795]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.795]     }
  [14:34:09.795]     ...future.result <- base::tryCatch({
  [14:34:09.795]         base::withCallingHandlers({
  [14:34:09.795]             ...future.value <- base::withVisible(base::local({
  [14:34:09.795]                 ...future.makeSendCondition <- base::local({
  [14:34:09.795]                   sendCondition <- NULL
  [14:34:09.795]                   function(frame = 1L) {
  [14:34:09.795]                     if (is.function(sendCondition)) 
  [14:34:09.795]                       return(sendCondition)
  [14:34:09.795]                     ns <- getNamespace("parallel")
  [14:34:09.795]                     if (exists("sendData", mode = "function", 
  [14:34:09.795]                       envir = ns)) {
  [14:34:09.795]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.795]                         envir = ns)
  [14:34:09.795]                       envir <- sys.frame(frame)
  [14:34:09.795]                       master <- NULL
  [14:34:09.795]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.795]                         !identical(envir, emptyenv())) {
  [14:34:09.795]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.795]                           inherits = FALSE)) {
  [14:34:09.795]                           master <- get("master", mode = "list", 
  [14:34:09.795]                             envir = envir, inherits = FALSE)
  [14:34:09.795]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.795]                             "SOCK0node"))) {
  [14:34:09.795]                             sendCondition <<- function(cond) {
  [14:34:09.795]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.795]                                 success = TRUE)
  [14:34:09.795]                               parallel_sendData(master, data)
  [14:34:09.795]                             }
  [14:34:09.795]                             return(sendCondition)
  [14:34:09.795]                           }
  [14:34:09.795]                         }
  [14:34:09.795]                         frame <- frame + 1L
  [14:34:09.795]                         envir <- sys.frame(frame)
  [14:34:09.795]                       }
  [14:34:09.795]                     }
  [14:34:09.795]                     sendCondition <<- function(cond) NULL
  [14:34:09.795]                   }
  [14:34:09.795]                 })
  [14:34:09.795]                 withCallingHandlers({
  [14:34:09.795]                   {
  [14:34:09.795]                     sum(x, y)
  [14:34:09.795]                   }
  [14:34:09.795]                 }, immediateCondition = function(cond) {
  [14:34:09.795]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.795]                   sendCondition(cond)
  [14:34:09.795]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.795]                   {
  [14:34:09.795]                     inherits <- base::inherits
  [14:34:09.795]                     invokeRestart <- base::invokeRestart
  [14:34:09.795]                     is.null <- base::is.null
  [14:34:09.795]                     muffled <- FALSE
  [14:34:09.795]                     if (inherits(cond, "message")) {
  [14:34:09.795]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.795]                       if (muffled) 
  [14:34:09.795]                         invokeRestart("muffleMessage")
  [14:34:09.795]                     }
  [14:34:09.795]                     else if (inherits(cond, "warning")) {
  [14:34:09.795]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.795]                       if (muffled) 
  [14:34:09.795]                         invokeRestart("muffleWarning")
  [14:34:09.795]                     }
  [14:34:09.795]                     else if (inherits(cond, "condition")) {
  [14:34:09.795]                       if (!is.null(pattern)) {
  [14:34:09.795]                         computeRestarts <- base::computeRestarts
  [14:34:09.795]                         grepl <- base::grepl
  [14:34:09.795]                         restarts <- computeRestarts(cond)
  [14:34:09.795]                         for (restart in restarts) {
  [14:34:09.795]                           name <- restart$name
  [14:34:09.795]                           if (is.null(name)) 
  [14:34:09.795]                             next
  [14:34:09.795]                           if (!grepl(pattern, name)) 
  [14:34:09.795]                             next
  [14:34:09.795]                           invokeRestart(restart)
  [14:34:09.795]                           muffled <- TRUE
  [14:34:09.795]                           break
  [14:34:09.795]                         }
  [14:34:09.795]                       }
  [14:34:09.795]                     }
  [14:34:09.795]                     invisible(muffled)
  [14:34:09.795]                   }
  [14:34:09.795]                   muffleCondition(cond)
  [14:34:09.795]                 })
  [14:34:09.795]             }))
  [14:34:09.795]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.795]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.795]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.795]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.795]                     ...future.globalenv.names))
  [14:34:09.795]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.795]         }, condition = base::local({
  [14:34:09.795]             c <- base::c
  [14:34:09.795]             inherits <- base::inherits
  [14:34:09.795]             invokeRestart <- base::invokeRestart
  [14:34:09.795]             length <- base::length
  [14:34:09.795]             list <- base::list
  [14:34:09.795]             seq.int <- base::seq.int
  [14:34:09.795]             signalCondition <- base::signalCondition
  [14:34:09.795]             sys.calls <- base::sys.calls
  [14:34:09.795]             `[[` <- base::`[[`
  [14:34:09.795]             `+` <- base::`+`
  [14:34:09.795]             `<<-` <- base::`<<-`
  [14:34:09.795]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.795]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.795]                   3L)]
  [14:34:09.795]             }
  [14:34:09.795]             function(cond) {
  [14:34:09.795]                 is_error <- inherits(cond, "error")
  [14:34:09.795]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.795]                   NULL)
  [14:34:09.795]                 if (is_error) {
  [14:34:09.795]                   sessionInformation <- function() {
  [14:34:09.795]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.795]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.795]                       search = base::search(), system = base::Sys.info())
  [14:34:09.795]                   }
  [14:34:09.795]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.795]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.795]                     cond$call), session = sessionInformation(), 
  [14:34:09.795]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.795]                   signalCondition(cond)
  [14:34:09.795]                 }
  [14:34:09.795]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.795]                 "immediateCondition"))) {
  [14:34:09.795]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.795]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.795]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.795]                   if (TRUE && !signal) {
  [14:34:09.795]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.795]                     {
  [14:34:09.795]                       inherits <- base::inherits
  [14:34:09.795]                       invokeRestart <- base::invokeRestart
  [14:34:09.795]                       is.null <- base::is.null
  [14:34:09.795]                       muffled <- FALSE
  [14:34:09.795]                       if (inherits(cond, "message")) {
  [14:34:09.795]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.795]                         if (muffled) 
  [14:34:09.795]                           invokeRestart("muffleMessage")
  [14:34:09.795]                       }
  [14:34:09.795]                       else if (inherits(cond, "warning")) {
  [14:34:09.795]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.795]                         if (muffled) 
  [14:34:09.795]                           invokeRestart("muffleWarning")
  [14:34:09.795]                       }
  [14:34:09.795]                       else if (inherits(cond, "condition")) {
  [14:34:09.795]                         if (!is.null(pattern)) {
  [14:34:09.795]                           computeRestarts <- base::computeRestarts
  [14:34:09.795]                           grepl <- base::grepl
  [14:34:09.795]                           restarts <- computeRestarts(cond)
  [14:34:09.795]                           for (restart in restarts) {
  [14:34:09.795]                             name <- restart$name
  [14:34:09.795]                             if (is.null(name)) 
  [14:34:09.795]                               next
  [14:34:09.795]                             if (!grepl(pattern, name)) 
  [14:34:09.795]                               next
  [14:34:09.795]                             invokeRestart(restart)
  [14:34:09.795]                             muffled <- TRUE
  [14:34:09.795]                             break
  [14:34:09.795]                           }
  [14:34:09.795]                         }
  [14:34:09.795]                       }
  [14:34:09.795]                       invisible(muffled)
  [14:34:09.795]                     }
  [14:34:09.795]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.795]                   }
  [14:34:09.795]                 }
  [14:34:09.795]                 else {
  [14:34:09.795]                   if (TRUE) {
  [14:34:09.795]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.795]                     {
  [14:34:09.795]                       inherits <- base::inherits
  [14:34:09.795]                       invokeRestart <- base::invokeRestart
  [14:34:09.795]                       is.null <- base::is.null
  [14:34:09.795]                       muffled <- FALSE
  [14:34:09.795]                       if (inherits(cond, "message")) {
  [14:34:09.795]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.795]                         if (muffled) 
  [14:34:09.795]                           invokeRestart("muffleMessage")
  [14:34:09.795]                       }
  [14:34:09.795]                       else if (inherits(cond, "warning")) {
  [14:34:09.795]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.795]                         if (muffled) 
  [14:34:09.795]                           invokeRestart("muffleWarning")
  [14:34:09.795]                       }
  [14:34:09.795]                       else if (inherits(cond, "condition")) {
  [14:34:09.795]                         if (!is.null(pattern)) {
  [14:34:09.795]                           computeRestarts <- base::computeRestarts
  [14:34:09.795]                           grepl <- base::grepl
  [14:34:09.795]                           restarts <- computeRestarts(cond)
  [14:34:09.795]                           for (restart in restarts) {
  [14:34:09.795]                             name <- restart$name
  [14:34:09.795]                             if (is.null(name)) 
  [14:34:09.795]                               next
  [14:34:09.795]                             if (!grepl(pattern, name)) 
  [14:34:09.795]                               next
  [14:34:09.795]                             invokeRestart(restart)
  [14:34:09.795]                             muffled <- TRUE
  [14:34:09.795]                             break
  [14:34:09.795]                           }
  [14:34:09.795]                         }
  [14:34:09.795]                       }
  [14:34:09.795]                       invisible(muffled)
  [14:34:09.795]                     }
  [14:34:09.795]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.795]                   }
  [14:34:09.795]                 }
  [14:34:09.795]             }
  [14:34:09.795]         }))
  [14:34:09.795]     }, error = function(ex) {
  [14:34:09.795]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.795]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.795]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.795]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.795]             version = "1.8"), class = "FutureResult")
  [14:34:09.795]     }, finally = {
  [14:34:09.795]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.795]             setwd(...future.workdir)
  [14:34:09.795]         {
  [14:34:09.795]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.795]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.795]             }
  [14:34:09.795]             base::options(...future.oldOptions)
  [14:34:09.795]             if (.Platform$OS.type == "windows") {
  [14:34:09.795]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.795]                 envs <- base::Sys.getenv()
  [14:34:09.795]                 names <- names(envs)
  [14:34:09.795]                 common <- intersect(names, old_names)
  [14:34:09.795]                 added <- setdiff(names, old_names)
  [14:34:09.795]                 removed <- setdiff(old_names, names)
  [14:34:09.795]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.795]                   envs[common]]
  [14:34:09.795]                 NAMES <- toupper(changed)
  [14:34:09.795]                 args <- list()
  [14:34:09.795]                 for (kk in seq_along(NAMES)) {
  [14:34:09.795]                   name <- changed[[kk]]
  [14:34:09.795]                   NAME <- NAMES[[kk]]
  [14:34:09.795]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.795]                     next
  [14:34:09.795]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.795]                 }
  [14:34:09.795]                 NAMES <- toupper(added)
  [14:34:09.795]                 for (kk in seq_along(NAMES)) {
  [14:34:09.795]                   name <- added[[kk]]
  [14:34:09.795]                   NAME <- NAMES[[kk]]
  [14:34:09.795]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.795]                     next
  [14:34:09.795]                   args[[name]] <- ""
  [14:34:09.795]                 }
  [14:34:09.795]                 NAMES <- toupper(removed)
  [14:34:09.795]                 for (kk in seq_along(NAMES)) {
  [14:34:09.795]                   name <- removed[[kk]]
  [14:34:09.795]                   NAME <- NAMES[[kk]]
  [14:34:09.795]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.795]                     next
  [14:34:09.795]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.795]                 }
  [14:34:09.795]                 if (length(args) > 0) 
  [14:34:09.795]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.795]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.795]             }
  [14:34:09.795]             else {
  [14:34:09.795]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.795]             }
  [14:34:09.795]             {
  [14:34:09.795]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.795]                   0L) {
  [14:34:09.795]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.795]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.795]                   base::options(opts)
  [14:34:09.795]                 }
  [14:34:09.795]                 {
  [14:34:09.795]                   {
  [14:34:09.795]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.795]                     NULL
  [14:34:09.795]                   }
  [14:34:09.795]                   options(future.plan = NULL)
  [14:34:09.795]                   if (is.na(NA_character_)) 
  [14:34:09.795]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.795]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.795]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.795]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.795]                     envir = parent.frame()) 
  [14:34:09.795]                   {
  [14:34:09.795]                     if (is.function(workers)) 
  [14:34:09.795]                       workers <- workers()
  [14:34:09.795]                     workers <- structure(as.integer(workers), 
  [14:34:09.795]                       class = class(workers))
  [14:34:09.795]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.795]                       workers >= 1)
  [14:34:09.795]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.795]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.795]                     }
  [14:34:09.795]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.795]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.795]                       envir = envir)
  [14:34:09.795]                     if (!future$lazy) 
  [14:34:09.795]                       future <- run(future)
  [14:34:09.795]                     invisible(future)
  [14:34:09.795]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.795]                 }
  [14:34:09.795]             }
  [14:34:09.795]         }
  [14:34:09.795]     })
  [14:34:09.795]     if (TRUE) {
  [14:34:09.795]         base::sink(type = "output", split = FALSE)
  [14:34:09.795]         if (TRUE) {
  [14:34:09.795]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.795]         }
  [14:34:09.795]         else {
  [14:34:09.795]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.795]         }
  [14:34:09.795]         base::close(...future.stdout)
  [14:34:09.795]         ...future.stdout <- NULL
  [14:34:09.795]     }
  [14:34:09.795]     ...future.result$conditions <- ...future.conditions
  [14:34:09.795]     ...future.result$finished <- base::Sys.time()
  [14:34:09.795]     ...future.result
  [14:34:09.795] }
  [14:34:09.804] Exporting 2 global objects (112 bytes) to cluster node #1 ...
  [14:34:09.805] Exporting 'x' (56 bytes) to cluster node #1 ...
  [14:34:09.805] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.806] Exporting 'y' (56 bytes) to cluster node #1 ...
  [14:34:09.806] Exporting 'y' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.807] Exporting 2 global objects (112 bytes) to cluster node #1 ... DONE
  [14:34:09.808] MultisessionFuture started
  [14:34:09.808] - Launch lazy future ... done
  [14:34:09.808] run() for 'MultisessionFuture' ... done
  [14:34:09.809] result() for ClusterFuture ...
  [14:34:09.809] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.809] - Validating connection of MultisessionFuture
  [14:34:09.839] - received message: FutureResult
  [14:34:09.840] - Received FutureResult
  [14:34:09.840] - Erased future from FutureRegistry
  [14:34:09.840] result() for ClusterFuture ...
  [14:34:09.840] - result already collected: FutureResult
  [14:34:09.841] result() for ClusterFuture ... done
  [14:34:09.841] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:09.841] result() for ClusterFuture ... done
  [14:34:09.841] result() for ClusterFuture ...
  [14:34:09.842] - result already collected: FutureResult
  [14:34:09.842] result() for ClusterFuture ... done
  [1] 6
  ** Sum function 'D' with plan('multisession') ...
  function (x, y) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      y %<-% {
          sum(x, y, ...)
      }
      y
  }
  <bytecode: 0x000002748b803958>
  Arguments '...' exists: FALSE
  [14:34:09.843] getGlobalsAndPackages() ...
  [14:34:09.843] Searching for globals...
  [14:34:09.846] - globals found: [5] '{', 'sum', 'x', 'y', '...'
  [14:34:09.847] Searching for globals ... DONE
  [14:34:09.847] Resolving globals: FALSE
  [14:34:09.847] Tweak future expression to call with '...' arguments ...
  [14:34:09.848] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:34:09.849] The total size of the 2 globals exported for future expression ('{; sum(x, y, ...); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:09.849] - globals: [2] 'x', 'y'
  [14:34:09.849] 
  [14:34:09.849] getGlobalsAndPackages() ... DONE
  [14:34:09.850] run() for 'Future' ...
  [14:34:09.850] - state: 'created'
  [14:34:09.851] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:09.869] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:09.869] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:09.869]   - Field: 'node'
  [14:34:09.870]   - Field: 'label'
  [14:34:09.870]   - Field: 'local'
  [14:34:09.870]   - Field: 'owner'
  [14:34:09.871]   - Field: 'envir'
  [14:34:09.871]   - Field: 'workers'
  [14:34:09.871]   - Field: 'packages'
  [14:34:09.871]   - Field: 'gc'
  [14:34:09.872]   - Field: 'conditions'
  [14:34:09.872]   - Field: 'persistent'
  [14:34:09.872]   - Field: 'expr'
  [14:34:09.872]   - Field: 'uuid'
  [14:34:09.873]   - Field: 'seed'
  [14:34:09.873]   - Field: 'version'
  [14:34:09.873]   - Field: 'result'
  [14:34:09.873]   - Field: 'asynchronous'
  [14:34:09.874]   - Field: 'calls'
  [14:34:09.874]   - Field: 'globals'
  [14:34:09.874]   - Field: 'stdout'
  [14:34:09.874]   - Field: 'earlySignal'
  [14:34:09.875]   - Field: 'lazy'
  [14:34:09.875]   - Field: 'state'
  [14:34:09.875] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:09.875] - Launch lazy future ...
  [14:34:09.876] Packages needed by the future expression (n = 0): <none>
  [14:34:09.876] Packages needed by future strategies (n = 0): <none>
  [14:34:09.877] {
  [14:34:09.877]     {
  [14:34:09.877]         {
  [14:34:09.877]             ...future.startTime <- base::Sys.time()
  [14:34:09.877]             {
  [14:34:09.877]                 {
  [14:34:09.877]                   {
  [14:34:09.877]                     {
  [14:34:09.877]                       base::local({
  [14:34:09.877]                         has_future <- base::requireNamespace("future", 
  [14:34:09.877]                           quietly = TRUE)
  [14:34:09.877]                         if (has_future) {
  [14:34:09.877]                           ns <- base::getNamespace("future")
  [14:34:09.877]                           version <- ns[[".package"]][["version"]]
  [14:34:09.877]                           if (is.null(version)) 
  [14:34:09.877]                             version <- utils::packageVersion("future")
  [14:34:09.877]                         }
  [14:34:09.877]                         else {
  [14:34:09.877]                           version <- NULL
  [14:34:09.877]                         }
  [14:34:09.877]                         if (!has_future || version < "1.8.0") {
  [14:34:09.877]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.877]                             "", base::R.version$version.string), 
  [14:34:09.877]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.877]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.877]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.877]                               "release", "version")], collapse = " "), 
  [14:34:09.877]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.877]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.877]                             info)
  [14:34:09.877]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.877]                           if (!has_future) {
  [14:34:09.877]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.877]                               info)
  [14:34:09.877]                           }
  [14:34:09.877]                           else {
  [14:34:09.877]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.877]                               info, version)
  [14:34:09.877]                           }
  [14:34:09.877]                           base::stop(msg)
  [14:34:09.877]                         }
  [14:34:09.877]                       })
  [14:34:09.877]                     }
  [14:34:09.877]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.877]                     base::options(mc.cores = 1L)
  [14:34:09.877]                   }
  [14:34:09.877]                   options(future.plan = NULL)
  [14:34:09.877]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.877]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.877]                 }
  [14:34:09.877]                 ...future.workdir <- getwd()
  [14:34:09.877]             }
  [14:34:09.877]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.877]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.877]         }
  [14:34:09.877]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.877]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.877]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.877]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.877]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.877]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.877]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.877]             base::names(...future.oldOptions))
  [14:34:09.877]     }
  [14:34:09.877]     if (FALSE) {
  [14:34:09.877]     }
  [14:34:09.877]     else {
  [14:34:09.877]         if (TRUE) {
  [14:34:09.877]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.877]                 open = "w")
  [14:34:09.877]         }
  [14:34:09.877]         else {
  [14:34:09.877]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.877]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.877]         }
  [14:34:09.877]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.877]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.877]             base::sink(type = "output", split = FALSE)
  [14:34:09.877]             base::close(...future.stdout)
  [14:34:09.877]         }, add = TRUE)
  [14:34:09.877]     }
  [14:34:09.877]     ...future.frame <- base::sys.nframe()
  [14:34:09.877]     ...future.conditions <- base::list()
  [14:34:09.877]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.877]     if (FALSE) {
  [14:34:09.877]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.877]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.877]     }
  [14:34:09.877]     ...future.result <- base::tryCatch({
  [14:34:09.877]         base::withCallingHandlers({
  [14:34:09.877]             ...future.value <- base::withVisible(base::local({
  [14:34:09.877]                 ...future.makeSendCondition <- base::local({
  [14:34:09.877]                   sendCondition <- NULL
  [14:34:09.877]                   function(frame = 1L) {
  [14:34:09.877]                     if (is.function(sendCondition)) 
  [14:34:09.877]                       return(sendCondition)
  [14:34:09.877]                     ns <- getNamespace("parallel")
  [14:34:09.877]                     if (exists("sendData", mode = "function", 
  [14:34:09.877]                       envir = ns)) {
  [14:34:09.877]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.877]                         envir = ns)
  [14:34:09.877]                       envir <- sys.frame(frame)
  [14:34:09.877]                       master <- NULL
  [14:34:09.877]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.877]                         !identical(envir, emptyenv())) {
  [14:34:09.877]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.877]                           inherits = FALSE)) {
  [14:34:09.877]                           master <- get("master", mode = "list", 
  [14:34:09.877]                             envir = envir, inherits = FALSE)
  [14:34:09.877]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.877]                             "SOCK0node"))) {
  [14:34:09.877]                             sendCondition <<- function(cond) {
  [14:34:09.877]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.877]                                 success = TRUE)
  [14:34:09.877]                               parallel_sendData(master, data)
  [14:34:09.877]                             }
  [14:34:09.877]                             return(sendCondition)
  [14:34:09.877]                           }
  [14:34:09.877]                         }
  [14:34:09.877]                         frame <- frame + 1L
  [14:34:09.877]                         envir <- sys.frame(frame)
  [14:34:09.877]                       }
  [14:34:09.877]                     }
  [14:34:09.877]                     sendCondition <<- function(cond) NULL
  [14:34:09.877]                   }
  [14:34:09.877]                 })
  [14:34:09.877]                 withCallingHandlers({
  [14:34:09.877]                   {
  [14:34:09.877]                     sum(x, y, ...)
  [14:34:09.877]                   }
  [14:34:09.877]                 }, immediateCondition = function(cond) {
  [14:34:09.877]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.877]                   sendCondition(cond)
  [14:34:09.877]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.877]                   {
  [14:34:09.877]                     inherits <- base::inherits
  [14:34:09.877]                     invokeRestart <- base::invokeRestart
  [14:34:09.877]                     is.null <- base::is.null
  [14:34:09.877]                     muffled <- FALSE
  [14:34:09.877]                     if (inherits(cond, "message")) {
  [14:34:09.877]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.877]                       if (muffled) 
  [14:34:09.877]                         invokeRestart("muffleMessage")
  [14:34:09.877]                     }
  [14:34:09.877]                     else if (inherits(cond, "warning")) {
  [14:34:09.877]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.877]                       if (muffled) 
  [14:34:09.877]                         invokeRestart("muffleWarning")
  [14:34:09.877]                     }
  [14:34:09.877]                     else if (inherits(cond, "condition")) {
  [14:34:09.877]                       if (!is.null(pattern)) {
  [14:34:09.877]                         computeRestarts <- base::computeRestarts
  [14:34:09.877]                         grepl <- base::grepl
  [14:34:09.877]                         restarts <- computeRestarts(cond)
  [14:34:09.877]                         for (restart in restarts) {
  [14:34:09.877]                           name <- restart$name
  [14:34:09.877]                           if (is.null(name)) 
  [14:34:09.877]                             next
  [14:34:09.877]                           if (!grepl(pattern, name)) 
  [14:34:09.877]                             next
  [14:34:09.877]                           invokeRestart(restart)
  [14:34:09.877]                           muffled <- TRUE
  [14:34:09.877]                           break
  [14:34:09.877]                         }
  [14:34:09.877]                       }
  [14:34:09.877]                     }
  [14:34:09.877]                     invisible(muffled)
  [14:34:09.877]                   }
  [14:34:09.877]                   muffleCondition(cond)
  [14:34:09.877]                 })
  [14:34:09.877]             }))
  [14:34:09.877]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.877]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.877]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.877]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.877]                     ...future.globalenv.names))
  [14:34:09.877]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.877]         }, condition = base::local({
  [14:34:09.877]             c <- base::c
  [14:34:09.877]             inherits <- base::inherits
  [14:34:09.877]             invokeRestart <- base::invokeRestart
  [14:34:09.877]             length <- base::length
  [14:34:09.877]             list <- base::list
  [14:34:09.877]             seq.int <- base::seq.int
  [14:34:09.877]             signalCondition <- base::signalCondition
  [14:34:09.877]             sys.calls <- base::sys.calls
  [14:34:09.877]             `[[` <- base::`[[`
  [14:34:09.877]             `+` <- base::`+`
  [14:34:09.877]             `<<-` <- base::`<<-`
  [14:34:09.877]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.877]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.877]                   3L)]
  [14:34:09.877]             }
  [14:34:09.877]             function(cond) {
  [14:34:09.877]                 is_error <- inherits(cond, "error")
  [14:34:09.877]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.877]                   NULL)
  [14:34:09.877]                 if (is_error) {
  [14:34:09.877]                   sessionInformation <- function() {
  [14:34:09.877]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.877]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.877]                       search = base::search(), system = base::Sys.info())
  [14:34:09.877]                   }
  [14:34:09.877]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.877]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.877]                     cond$call), session = sessionInformation(), 
  [14:34:09.877]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.877]                   signalCondition(cond)
  [14:34:09.877]                 }
  [14:34:09.877]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.877]                 "immediateCondition"))) {
  [14:34:09.877]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.877]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.877]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.877]                   if (TRUE && !signal) {
  [14:34:09.877]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.877]                     {
  [14:34:09.877]                       inherits <- base::inherits
  [14:34:09.877]                       invokeRestart <- base::invokeRestart
  [14:34:09.877]                       is.null <- base::is.null
  [14:34:09.877]                       muffled <- FALSE
  [14:34:09.877]                       if (inherits(cond, "message")) {
  [14:34:09.877]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.877]                         if (muffled) 
  [14:34:09.877]                           invokeRestart("muffleMessage")
  [14:34:09.877]                       }
  [14:34:09.877]                       else if (inherits(cond, "warning")) {
  [14:34:09.877]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.877]                         if (muffled) 
  [14:34:09.877]                           invokeRestart("muffleWarning")
  [14:34:09.877]                       }
  [14:34:09.877]                       else if (inherits(cond, "condition")) {
  [14:34:09.877]                         if (!is.null(pattern)) {
  [14:34:09.877]                           computeRestarts <- base::computeRestarts
  [14:34:09.877]                           grepl <- base::grepl
  [14:34:09.877]                           restarts <- computeRestarts(cond)
  [14:34:09.877]                           for (restart in restarts) {
  [14:34:09.877]                             name <- restart$name
  [14:34:09.877]                             if (is.null(name)) 
  [14:34:09.877]                               next
  [14:34:09.877]                             if (!grepl(pattern, name)) 
  [14:34:09.877]                               next
  [14:34:09.877]                             invokeRestart(restart)
  [14:34:09.877]                             muffled <- TRUE
  [14:34:09.877]                             break
  [14:34:09.877]                           }
  [14:34:09.877]                         }
  [14:34:09.877]                       }
  [14:34:09.877]                       invisible(muffled)
  [14:34:09.877]                     }
  [14:34:09.877]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.877]                   }
  [14:34:09.877]                 }
  [14:34:09.877]                 else {
  [14:34:09.877]                   if (TRUE) {
  [14:34:09.877]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.877]                     {
  [14:34:09.877]                       inherits <- base::inherits
  [14:34:09.877]                       invokeRestart <- base::invokeRestart
  [14:34:09.877]                       is.null <- base::is.null
  [14:34:09.877]                       muffled <- FALSE
  [14:34:09.877]                       if (inherits(cond, "message")) {
  [14:34:09.877]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.877]                         if (muffled) 
  [14:34:09.877]                           invokeRestart("muffleMessage")
  [14:34:09.877]                       }
  [14:34:09.877]                       else if (inherits(cond, "warning")) {
  [14:34:09.877]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.877]                         if (muffled) 
  [14:34:09.877]                           invokeRestart("muffleWarning")
  [14:34:09.877]                       }
  [14:34:09.877]                       else if (inherits(cond, "condition")) {
  [14:34:09.877]                         if (!is.null(pattern)) {
  [14:34:09.877]                           computeRestarts <- base::computeRestarts
  [14:34:09.877]                           grepl <- base::grepl
  [14:34:09.877]                           restarts <- computeRestarts(cond)
  [14:34:09.877]                           for (restart in restarts) {
  [14:34:09.877]                             name <- restart$name
  [14:34:09.877]                             if (is.null(name)) 
  [14:34:09.877]                               next
  [14:34:09.877]                             if (!grepl(pattern, name)) 
  [14:34:09.877]                               next
  [14:34:09.877]                             invokeRestart(restart)
  [14:34:09.877]                             muffled <- TRUE
  [14:34:09.877]                             break
  [14:34:09.877]                           }
  [14:34:09.877]                         }
  [14:34:09.877]                       }
  [14:34:09.877]                       invisible(muffled)
  [14:34:09.877]                     }
  [14:34:09.877]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.877]                   }
  [14:34:09.877]                 }
  [14:34:09.877]             }
  [14:34:09.877]         }))
  [14:34:09.877]     }, error = function(ex) {
  [14:34:09.877]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.877]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.877]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.877]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.877]             version = "1.8"), class = "FutureResult")
  [14:34:09.877]     }, finally = {
  [14:34:09.877]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.877]             setwd(...future.workdir)
  [14:34:09.877]         {
  [14:34:09.877]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.877]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.877]             }
  [14:34:09.877]             base::options(...future.oldOptions)
  [14:34:09.877]             if (.Platform$OS.type == "windows") {
  [14:34:09.877]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.877]                 envs <- base::Sys.getenv()
  [14:34:09.877]                 names <- names(envs)
  [14:34:09.877]                 common <- intersect(names, old_names)
  [14:34:09.877]                 added <- setdiff(names, old_names)
  [14:34:09.877]                 removed <- setdiff(old_names, names)
  [14:34:09.877]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.877]                   envs[common]]
  [14:34:09.877]                 NAMES <- toupper(changed)
  [14:34:09.877]                 args <- list()
  [14:34:09.877]                 for (kk in seq_along(NAMES)) {
  [14:34:09.877]                   name <- changed[[kk]]
  [14:34:09.877]                   NAME <- NAMES[[kk]]
  [14:34:09.877]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.877]                     next
  [14:34:09.877]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.877]                 }
  [14:34:09.877]                 NAMES <- toupper(added)
  [14:34:09.877]                 for (kk in seq_along(NAMES)) {
  [14:34:09.877]                   name <- added[[kk]]
  [14:34:09.877]                   NAME <- NAMES[[kk]]
  [14:34:09.877]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.877]                     next
  [14:34:09.877]                   args[[name]] <- ""
  [14:34:09.877]                 }
  [14:34:09.877]                 NAMES <- toupper(removed)
  [14:34:09.877]                 for (kk in seq_along(NAMES)) {
  [14:34:09.877]                   name <- removed[[kk]]
  [14:34:09.877]                   NAME <- NAMES[[kk]]
  [14:34:09.877]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.877]                     next
  [14:34:09.877]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.877]                 }
  [14:34:09.877]                 if (length(args) > 0) 
  [14:34:09.877]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.877]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.877]             }
  [14:34:09.877]             else {
  [14:34:09.877]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.877]             }
  [14:34:09.877]             {
  [14:34:09.877]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.877]                   0L) {
  [14:34:09.877]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.877]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.877]                   base::options(opts)
  [14:34:09.877]                 }
  [14:34:09.877]                 {
  [14:34:09.877]                   {
  [14:34:09.877]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.877]                     NULL
  [14:34:09.877]                   }
  [14:34:09.877]                   options(future.plan = NULL)
  [14:34:09.877]                   if (is.na(NA_character_)) 
  [14:34:09.877]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.877]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.877]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.877]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.877]                     envir = parent.frame()) 
  [14:34:09.877]                   {
  [14:34:09.877]                     if (is.function(workers)) 
  [14:34:09.877]                       workers <- workers()
  [14:34:09.877]                     workers <- structure(as.integer(workers), 
  [14:34:09.877]                       class = class(workers))
  [14:34:09.877]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.877]                       workers >= 1)
  [14:34:09.877]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.877]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.877]                     }
  [14:34:09.877]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.877]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.877]                       envir = envir)
  [14:34:09.877]                     if (!future$lazy) 
  [14:34:09.877]                       future <- run(future)
  [14:34:09.877]                     invisible(future)
  [14:34:09.877]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.877]                 }
  [14:34:09.877]             }
  [14:34:09.877]         }
  [14:34:09.877]     })
  [14:34:09.877]     if (TRUE) {
  [14:34:09.877]         base::sink(type = "output", split = FALSE)
  [14:34:09.877]         if (TRUE) {
  [14:34:09.877]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.877]         }
  [14:34:09.877]         else {
  [14:34:09.877]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.877]         }
  [14:34:09.877]         base::close(...future.stdout)
  [14:34:09.877]         ...future.stdout <- NULL
  [14:34:09.877]     }
  [14:34:09.877]     ...future.result$conditions <- ...future.conditions
  [14:34:09.877]     ...future.result$finished <- base::Sys.time()
  [14:34:09.877]     ...future.result
  [14:34:09.877] }
  [14:34:09.886] Exporting 2 global objects (112 bytes) to cluster node #1 ...
  [14:34:09.887] Exporting 'x' (56 bytes) to cluster node #1 ...
  [14:34:09.887] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.888] Exporting 'y' (56 bytes) to cluster node #1 ...
  [14:34:09.889] Exporting 'y' (56 bytes) to cluster node #1 ... DONE
  [14:34:09.889] Exporting 2 global objects (112 bytes) to cluster node #1 ... DONE
  [14:34:09.890] MultisessionFuture started
  [14:34:09.890] - Launch lazy future ... done
  [14:34:09.890] run() for 'MultisessionFuture' ... done
  [14:34:09.891] result() for ClusterFuture ...
  [14:34:09.891] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.891] - Validating connection of MultisessionFuture
  [14:34:09.917] - received message: FutureResult
  [14:34:09.917] - Received FutureResult
  [14:34:09.917] - Erased future from FutureRegistry
  [14:34:09.918] result() for ClusterFuture ...
  [14:34:09.918] - result already collected: FutureResult
  [14:34:09.918] result() for ClusterFuture ... done
  [14:34:09.919] signalConditions() ...
  [14:34:09.919]  - include = 'immediateCondition'
  [14:34:09.919]  - exclude = 
  [14:34:09.919]  - resignal = FALSE
  [14:34:09.920]  - Number of conditions: 1
  [14:34:09.921] signalConditions() ... done
  [14:34:09.921] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:09.921] result() for ClusterFuture ... done
  [14:34:09.922] result() for ClusterFuture ...
  [14:34:09.922] - result already collected: FutureResult
  [14:34:09.922] result() for ClusterFuture ... done
  [14:34:09.922] signalConditions() ...
  [14:34:09.923]  - include = 'immediateCondition'
  [14:34:09.923]  - exclude = 
  [14:34:09.923]  - resignal = FALSE
  [14:34:09.923]  - Number of conditions: 1
  [14:34:09.924] signalConditions() ... done
  [14:34:09.924] Future state: 'finished'
  [14:34:09.924] result() for ClusterFuture ...
  [14:34:09.924] - result already collected: FutureResult
  [14:34:09.925] result() for ClusterFuture ... done
  [14:34:09.925] signalConditions() ...
  [14:34:09.925]  - include = 'condition'
  [14:34:09.925]  - exclude = 'immediateCondition'
  [14:34:09.926]  - resignal = TRUE
  [14:34:09.926]  - Number of conditions: 1
  [14:34:09.926]  - Condition #1: 'simpleError', 'error', 'condition'
  [14:34:09.927] signalConditions() ... done
  Error in withCallingHandlers({ : '...' used in an incorrect context
  [1] "Error in withCallingHandlers({ : '...' used in an incorrect context\n"
  attr(,"class")
  [1] "try-error"
  attr(,"condition")
  <simpleError in withCallingHandlers({    {        sum(x, y, ...)    }}, immediateCondition = function(cond) {    sendCondition <- ...future.makeSendCondition()    sendCondition(cond)    muffleCondition <- function (cond, pattern = "^muffle")     {        inherits <- base::inherits        invokeRestart <- base::invokeRestart        is.null <- base::is.null        muffled <- FALSE        if (inherits(cond, "message")) {            muffled <- grepl(pattern, "muffleMessage")            if (muffled)                 invokeRestart("muffleMessage")        }        else if (inherits(cond, "warning")) {            muffled <- grepl(pattern, "muffleWarning")            if (muffled)                 invokeRestart("muffleWarning")        }        else if (inherits(cond, "condition")) {            if (!is.null(pattern)) {                computeRestarts <- base::computeRestarts                grepl <- base::grepl                restarts <- computeRestarts(cond)                for (restart in restarts) {                  name <- restart$name                  if (is.null(name))                     next                  if (!grepl(pattern, name))                     next                  invokeRestart(restart)                  muffled <- TRUE                  break                }            }        }        invisible(muffled)    }    muffleCondition(cond)}): '...' used in an incorrect context>
  ** Sum function 'E' with plan('multisession') ...
  function (...) 
  {
      message("Arguments '...' exists: ", exists("...", inherits = TRUE))
      globals <- globals::globalsByName("...", envir = environment())
      f <- future({
          fcn <- function() sum(...)
          fcn()
      }, envir = parent.frame(), globals = globals)
      y <- value(f)
      y
  }
  <bytecode: 0x000002748d749ae8>
  Arguments '...' exists: TRUE
  [14:34:09.929] getGlobalsAndPackages() ...
  [14:34:09.929] - globals passed as-is: [1] '...'
  [14:34:09.930] Resolving globals: FALSE
  [14:34:09.930] Tweak future expression to call with '...' arguments ...
  [14:34:09.930] {
  [14:34:09.930]     do.call(function(...) {
  [14:34:09.930]         fcn <- function() sum(...)
  [14:34:09.930]         fcn()
  [14:34:09.930]     }, args = future.call.arguments)
  [14:34:09.930] }
  [14:34:09.931] Tweak future expression to call with '...' arguments ... DONE
  [14:34:09.932] The total size of the 1 globals is 112 bytes (112 bytes)
  [14:34:09.932] The total size of the 1 globals exported for future expression ('{; fcn <- function() sum(...); fcn(); }') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'future.call.arguments' (112 bytes of class 'list')
  [14:34:09.933] - globals: [1] 'future.call.arguments'
  [14:34:09.933] 
  [14:34:09.933] getGlobalsAndPackages() ... DONE
  [14:34:09.934] run() for 'Future' ...
  [14:34:09.934] - state: 'created'
  [14:34:09.934] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:09.952] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:09.953] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:09.953]   - Field: 'node'
  [14:34:09.953]   - Field: 'label'
  [14:34:09.953]   - Field: 'local'
  [14:34:09.954]   - Field: 'owner'
  [14:34:09.954]   - Field: 'envir'
  [14:34:09.954]   - Field: 'workers'
  [14:34:09.954]   - Field: 'packages'
  [14:34:09.955]   - Field: 'gc'
  [14:34:09.955]   - Field: 'conditions'
  [14:34:09.955]   - Field: 'persistent'
  [14:34:09.956]   - Field: 'expr'
  [14:34:09.956]   - Field: 'uuid'
  [14:34:09.956]   - Field: 'seed'
  [14:34:09.956]   - Field: 'version'
  [14:34:09.957]   - Field: 'result'
  [14:34:09.957]   - Field: 'asynchronous'
  [14:34:09.957]   - Field: 'calls'
  [14:34:09.957]   - Field: 'globals'
  [14:34:09.957]   - Field: 'stdout'
  [14:34:09.958]   - Field: 'earlySignal'
  [14:34:09.958]   - Field: 'lazy'
  [14:34:09.958]   - Field: 'state'
  [14:34:09.958] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:09.959] - Launch lazy future ...
  [14:34:09.959] Packages needed by the future expression (n = 0): <none>
  [14:34:09.960] Packages needed by future strategies (n = 0): <none>
  [14:34:09.961] {
  [14:34:09.961]     {
  [14:34:09.961]         {
  [14:34:09.961]             ...future.startTime <- base::Sys.time()
  [14:34:09.961]             {
  [14:34:09.961]                 {
  [14:34:09.961]                   {
  [14:34:09.961]                     {
  [14:34:09.961]                       base::local({
  [14:34:09.961]                         has_future <- base::requireNamespace("future", 
  [14:34:09.961]                           quietly = TRUE)
  [14:34:09.961]                         if (has_future) {
  [14:34:09.961]                           ns <- base::getNamespace("future")
  [14:34:09.961]                           version <- ns[[".package"]][["version"]]
  [14:34:09.961]                           if (is.null(version)) 
  [14:34:09.961]                             version <- utils::packageVersion("future")
  [14:34:09.961]                         }
  [14:34:09.961]                         else {
  [14:34:09.961]                           version <- NULL
  [14:34:09.961]                         }
  [14:34:09.961]                         if (!has_future || version < "1.8.0") {
  [14:34:09.961]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:09.961]                             "", base::R.version$version.string), 
  [14:34:09.961]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:09.961]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:09.961]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:09.961]                               "release", "version")], collapse = " "), 
  [14:34:09.961]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:09.961]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:09.961]                             info)
  [14:34:09.961]                           info <- base::paste(info, collapse = "; ")
  [14:34:09.961]                           if (!has_future) {
  [14:34:09.961]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:09.961]                               info)
  [14:34:09.961]                           }
  [14:34:09.961]                           else {
  [14:34:09.961]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:09.961]                               info, version)
  [14:34:09.961]                           }
  [14:34:09.961]                           base::stop(msg)
  [14:34:09.961]                         }
  [14:34:09.961]                       })
  [14:34:09.961]                     }
  [14:34:09.961]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:09.961]                     base::options(mc.cores = 1L)
  [14:34:09.961]                   }
  [14:34:09.961]                   options(future.plan = NULL)
  [14:34:09.961]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.961]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:09.961]                 }
  [14:34:09.961]                 ...future.workdir <- getwd()
  [14:34:09.961]             }
  [14:34:09.961]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:09.961]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:09.961]         }
  [14:34:09.961]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:09.961]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:09.961]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:09.961]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:09.961]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:09.961]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:09.961]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:09.961]             base::names(...future.oldOptions))
  [14:34:09.961]     }
  [14:34:09.961]     if (FALSE) {
  [14:34:09.961]     }
  [14:34:09.961]     else {
  [14:34:09.961]         if (TRUE) {
  [14:34:09.961]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:09.961]                 open = "w")
  [14:34:09.961]         }
  [14:34:09.961]         else {
  [14:34:09.961]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:09.961]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:09.961]         }
  [14:34:09.961]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:09.961]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:09.961]             base::sink(type = "output", split = FALSE)
  [14:34:09.961]             base::close(...future.stdout)
  [14:34:09.961]         }, add = TRUE)
  [14:34:09.961]     }
  [14:34:09.961]     ...future.frame <- base::sys.nframe()
  [14:34:09.961]     ...future.conditions <- base::list()
  [14:34:09.961]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:09.961]     if (FALSE) {
  [14:34:09.961]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:09.961]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:09.961]     }
  [14:34:09.961]     ...future.result <- base::tryCatch({
  [14:34:09.961]         base::withCallingHandlers({
  [14:34:09.961]             ...future.value <- base::withVisible(base::local({
  [14:34:09.961]                 ...future.makeSendCondition <- base::local({
  [14:34:09.961]                   sendCondition <- NULL
  [14:34:09.961]                   function(frame = 1L) {
  [14:34:09.961]                     if (is.function(sendCondition)) 
  [14:34:09.961]                       return(sendCondition)
  [14:34:09.961]                     ns <- getNamespace("parallel")
  [14:34:09.961]                     if (exists("sendData", mode = "function", 
  [14:34:09.961]                       envir = ns)) {
  [14:34:09.961]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:09.961]                         envir = ns)
  [14:34:09.961]                       envir <- sys.frame(frame)
  [14:34:09.961]                       master <- NULL
  [14:34:09.961]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:09.961]                         !identical(envir, emptyenv())) {
  [14:34:09.961]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:09.961]                           inherits = FALSE)) {
  [14:34:09.961]                           master <- get("master", mode = "list", 
  [14:34:09.961]                             envir = envir, inherits = FALSE)
  [14:34:09.961]                           if (inherits(master, c("SOCKnode", 
  [14:34:09.961]                             "SOCK0node"))) {
  [14:34:09.961]                             sendCondition <<- function(cond) {
  [14:34:09.961]                               data <- list(type = "VALUE", value = cond, 
  [14:34:09.961]                                 success = TRUE)
  [14:34:09.961]                               parallel_sendData(master, data)
  [14:34:09.961]                             }
  [14:34:09.961]                             return(sendCondition)
  [14:34:09.961]                           }
  [14:34:09.961]                         }
  [14:34:09.961]                         frame <- frame + 1L
  [14:34:09.961]                         envir <- sys.frame(frame)
  [14:34:09.961]                       }
  [14:34:09.961]                     }
  [14:34:09.961]                     sendCondition <<- function(cond) NULL
  [14:34:09.961]                   }
  [14:34:09.961]                 })
  [14:34:09.961]                 withCallingHandlers({
  [14:34:09.961]                   {
  [14:34:09.961]                     do.call(function(...) {
  [14:34:09.961]                       fcn <- function() sum(...)
  [14:34:09.961]                       fcn()
  [14:34:09.961]                     }, args = future.call.arguments)
  [14:34:09.961]                   }
  [14:34:09.961]                 }, immediateCondition = function(cond) {
  [14:34:09.961]                   sendCondition <- ...future.makeSendCondition()
  [14:34:09.961]                   sendCondition(cond)
  [14:34:09.961]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.961]                   {
  [14:34:09.961]                     inherits <- base::inherits
  [14:34:09.961]                     invokeRestart <- base::invokeRestart
  [14:34:09.961]                     is.null <- base::is.null
  [14:34:09.961]                     muffled <- FALSE
  [14:34:09.961]                     if (inherits(cond, "message")) {
  [14:34:09.961]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.961]                       if (muffled) 
  [14:34:09.961]                         invokeRestart("muffleMessage")
  [14:34:09.961]                     }
  [14:34:09.961]                     else if (inherits(cond, "warning")) {
  [14:34:09.961]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.961]                       if (muffled) 
  [14:34:09.961]                         invokeRestart("muffleWarning")
  [14:34:09.961]                     }
  [14:34:09.961]                     else if (inherits(cond, "condition")) {
  [14:34:09.961]                       if (!is.null(pattern)) {
  [14:34:09.961]                         computeRestarts <- base::computeRestarts
  [14:34:09.961]                         grepl <- base::grepl
  [14:34:09.961]                         restarts <- computeRestarts(cond)
  [14:34:09.961]                         for (restart in restarts) {
  [14:34:09.961]                           name <- restart$name
  [14:34:09.961]                           if (is.null(name)) 
  [14:34:09.961]                             next
  [14:34:09.961]                           if (!grepl(pattern, name)) 
  [14:34:09.961]                             next
  [14:34:09.961]                           invokeRestart(restart)
  [14:34:09.961]                           muffled <- TRUE
  [14:34:09.961]                           break
  [14:34:09.961]                         }
  [14:34:09.961]                       }
  [14:34:09.961]                     }
  [14:34:09.961]                     invisible(muffled)
  [14:34:09.961]                   }
  [14:34:09.961]                   muffleCondition(cond)
  [14:34:09.961]                 })
  [14:34:09.961]             }))
  [14:34:09.961]             future::FutureResult(value = ...future.value$value, 
  [14:34:09.961]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.961]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:09.961]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:09.961]                     ...future.globalenv.names))
  [14:34:09.961]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:09.961]         }, condition = base::local({
  [14:34:09.961]             c <- base::c
  [14:34:09.961]             inherits <- base::inherits
  [14:34:09.961]             invokeRestart <- base::invokeRestart
  [14:34:09.961]             length <- base::length
  [14:34:09.961]             list <- base::list
  [14:34:09.961]             seq.int <- base::seq.int
  [14:34:09.961]             signalCondition <- base::signalCondition
  [14:34:09.961]             sys.calls <- base::sys.calls
  [14:34:09.961]             `[[` <- base::`[[`
  [14:34:09.961]             `+` <- base::`+`
  [14:34:09.961]             `<<-` <- base::`<<-`
  [14:34:09.961]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:09.961]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:09.961]                   3L)]
  [14:34:09.961]             }
  [14:34:09.961]             function(cond) {
  [14:34:09.961]                 is_error <- inherits(cond, "error")
  [14:34:09.961]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:09.961]                   NULL)
  [14:34:09.961]                 if (is_error) {
  [14:34:09.961]                   sessionInformation <- function() {
  [14:34:09.961]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:09.961]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:09.961]                       search = base::search(), system = base::Sys.info())
  [14:34:09.961]                   }
  [14:34:09.961]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.961]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:09.961]                     cond$call), session = sessionInformation(), 
  [14:34:09.961]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:09.961]                   signalCondition(cond)
  [14:34:09.961]                 }
  [14:34:09.961]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:09.961]                 "immediateCondition"))) {
  [14:34:09.961]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:09.961]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:09.961]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:09.961]                   if (TRUE && !signal) {
  [14:34:09.961]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.961]                     {
  [14:34:09.961]                       inherits <- base::inherits
  [14:34:09.961]                       invokeRestart <- base::invokeRestart
  [14:34:09.961]                       is.null <- base::is.null
  [14:34:09.961]                       muffled <- FALSE
  [14:34:09.961]                       if (inherits(cond, "message")) {
  [14:34:09.961]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.961]                         if (muffled) 
  [14:34:09.961]                           invokeRestart("muffleMessage")
  [14:34:09.961]                       }
  [14:34:09.961]                       else if (inherits(cond, "warning")) {
  [14:34:09.961]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.961]                         if (muffled) 
  [14:34:09.961]                           invokeRestart("muffleWarning")
  [14:34:09.961]                       }
  [14:34:09.961]                       else if (inherits(cond, "condition")) {
  [14:34:09.961]                         if (!is.null(pattern)) {
  [14:34:09.961]                           computeRestarts <- base::computeRestarts
  [14:34:09.961]                           grepl <- base::grepl
  [14:34:09.961]                           restarts <- computeRestarts(cond)
  [14:34:09.961]                           for (restart in restarts) {
  [14:34:09.961]                             name <- restart$name
  [14:34:09.961]                             if (is.null(name)) 
  [14:34:09.961]                               next
  [14:34:09.961]                             if (!grepl(pattern, name)) 
  [14:34:09.961]                               next
  [14:34:09.961]                             invokeRestart(restart)
  [14:34:09.961]                             muffled <- TRUE
  [14:34:09.961]                             break
  [14:34:09.961]                           }
  [14:34:09.961]                         }
  [14:34:09.961]                       }
  [14:34:09.961]                       invisible(muffled)
  [14:34:09.961]                     }
  [14:34:09.961]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.961]                   }
  [14:34:09.961]                 }
  [14:34:09.961]                 else {
  [14:34:09.961]                   if (TRUE) {
  [14:34:09.961]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:09.961]                     {
  [14:34:09.961]                       inherits <- base::inherits
  [14:34:09.961]                       invokeRestart <- base::invokeRestart
  [14:34:09.961]                       is.null <- base::is.null
  [14:34:09.961]                       muffled <- FALSE
  [14:34:09.961]                       if (inherits(cond, "message")) {
  [14:34:09.961]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:09.961]                         if (muffled) 
  [14:34:09.961]                           invokeRestart("muffleMessage")
  [14:34:09.961]                       }
  [14:34:09.961]                       else if (inherits(cond, "warning")) {
  [14:34:09.961]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:09.961]                         if (muffled) 
  [14:34:09.961]                           invokeRestart("muffleWarning")
  [14:34:09.961]                       }
  [14:34:09.961]                       else if (inherits(cond, "condition")) {
  [14:34:09.961]                         if (!is.null(pattern)) {
  [14:34:09.961]                           computeRestarts <- base::computeRestarts
  [14:34:09.961]                           grepl <- base::grepl
  [14:34:09.961]                           restarts <- computeRestarts(cond)
  [14:34:09.961]                           for (restart in restarts) {
  [14:34:09.961]                             name <- restart$name
  [14:34:09.961]                             if (is.null(name)) 
  [14:34:09.961]                               next
  [14:34:09.961]                             if (!grepl(pattern, name)) 
  [14:34:09.961]                               next
  [14:34:09.961]                             invokeRestart(restart)
  [14:34:09.961]                             muffled <- TRUE
  [14:34:09.961]                             break
  [14:34:09.961]                           }
  [14:34:09.961]                         }
  [14:34:09.961]                       }
  [14:34:09.961]                       invisible(muffled)
  [14:34:09.961]                     }
  [14:34:09.961]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:09.961]                   }
  [14:34:09.961]                 }
  [14:34:09.961]             }
  [14:34:09.961]         }))
  [14:34:09.961]     }, error = function(ex) {
  [14:34:09.961]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:09.961]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:09.961]                 ...future.rng), started = ...future.startTime, 
  [14:34:09.961]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:09.961]             version = "1.8"), class = "FutureResult")
  [14:34:09.961]     }, finally = {
  [14:34:09.961]         if (!identical(...future.workdir, getwd())) 
  [14:34:09.961]             setwd(...future.workdir)
  [14:34:09.961]         {
  [14:34:09.961]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:09.961]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:09.961]             }
  [14:34:09.961]             base::options(...future.oldOptions)
  [14:34:09.961]             if (.Platform$OS.type == "windows") {
  [14:34:09.961]                 old_names <- names(...future.oldEnvVars)
  [14:34:09.961]                 envs <- base::Sys.getenv()
  [14:34:09.961]                 names <- names(envs)
  [14:34:09.961]                 common <- intersect(names, old_names)
  [14:34:09.961]                 added <- setdiff(names, old_names)
  [14:34:09.961]                 removed <- setdiff(old_names, names)
  [14:34:09.961]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:09.961]                   envs[common]]
  [14:34:09.961]                 NAMES <- toupper(changed)
  [14:34:09.961]                 args <- list()
  [14:34:09.961]                 for (kk in seq_along(NAMES)) {
  [14:34:09.961]                   name <- changed[[kk]]
  [14:34:09.961]                   NAME <- NAMES[[kk]]
  [14:34:09.961]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.961]                     next
  [14:34:09.961]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.961]                 }
  [14:34:09.961]                 NAMES <- toupper(added)
  [14:34:09.961]                 for (kk in seq_along(NAMES)) {
  [14:34:09.961]                   name <- added[[kk]]
  [14:34:09.961]                   NAME <- NAMES[[kk]]
  [14:34:09.961]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.961]                     next
  [14:34:09.961]                   args[[name]] <- ""
  [14:34:09.961]                 }
  [14:34:09.961]                 NAMES <- toupper(removed)
  [14:34:09.961]                 for (kk in seq_along(NAMES)) {
  [14:34:09.961]                   name <- removed[[kk]]
  [14:34:09.961]                   NAME <- NAMES[[kk]]
  [14:34:09.961]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:09.961]                     next
  [14:34:09.961]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:09.961]                 }
  [14:34:09.961]                 if (length(args) > 0) 
  [14:34:09.961]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:09.961]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:09.961]             }
  [14:34:09.961]             else {
  [14:34:09.961]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:09.961]             }
  [14:34:09.961]             {
  [14:34:09.961]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:09.961]                   0L) {
  [14:34:09.961]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:09.961]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:09.961]                   base::options(opts)
  [14:34:09.961]                 }
  [14:34:09.961]                 {
  [14:34:09.961]                   {
  [14:34:09.961]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:09.961]                     NULL
  [14:34:09.961]                   }
  [14:34:09.961]                   options(future.plan = NULL)
  [14:34:09.961]                   if (is.na(NA_character_)) 
  [14:34:09.961]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:09.961]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:09.961]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:09.961]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:09.961]                     envir = parent.frame()) 
  [14:34:09.961]                   {
  [14:34:09.961]                     if (is.function(workers)) 
  [14:34:09.961]                       workers <- workers()
  [14:34:09.961]                     workers <- structure(as.integer(workers), 
  [14:34:09.961]                       class = class(workers))
  [14:34:09.961]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:09.961]                       workers >= 1)
  [14:34:09.961]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:09.961]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:09.961]                     }
  [14:34:09.961]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:09.961]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:09.961]                       envir = envir)
  [14:34:09.961]                     if (!future$lazy) 
  [14:34:09.961]                       future <- run(future)
  [14:34:09.961]                     invisible(future)
  [14:34:09.961]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:09.961]                 }
  [14:34:09.961]             }
  [14:34:09.961]         }
  [14:34:09.961]     })
  [14:34:09.961]     if (TRUE) {
  [14:34:09.961]         base::sink(type = "output", split = FALSE)
  [14:34:09.961]         if (TRUE) {
  [14:34:09.961]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:09.961]         }
  [14:34:09.961]         else {
  [14:34:09.961]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:09.961]         }
  [14:34:09.961]         base::close(...future.stdout)
  [14:34:09.961]         ...future.stdout <- NULL
  [14:34:09.961]     }
  [14:34:09.961]     ...future.result$conditions <- ...future.conditions
  [14:34:09.961]     ...future.result$finished <- base::Sys.time()
  [14:34:09.961]     ...future.result
  [14:34:09.961] }
  [14:34:09.969] Exporting 1 global objects (112 bytes) to cluster node #1 ...
  [14:34:09.970] Exporting 'future.call.arguments' (112 bytes) to cluster node #1 ...
  [14:34:09.971] Exporting 'future.call.arguments' (112 bytes) to cluster node #1 ... DONE
  [14:34:09.971] Exporting 1 global objects (112 bytes) to cluster node #1 ... DONE
  [14:34:09.972] MultisessionFuture started
  [14:34:09.972] - Launch lazy future ... done
  [14:34:09.972] run() for 'MultisessionFuture' ... done
  [14:34:09.972] result() for ClusterFuture ...
  [14:34:09.972] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:09.973] - Validating connection of MultisessionFuture
  [14:34:09.999] - received message: FutureResult
  [14:34:09.999] - Received FutureResult
  [14:34:09.999] - Erased future from FutureRegistry
  [14:34:09.999] result() for ClusterFuture ...
  [14:34:09.999] - result already collected: FutureResult
  [14:34:10.000] result() for ClusterFuture ... done
  [14:34:10.000] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:10.000] result() for ClusterFuture ... done
  [14:34:10.000] result() for ClusterFuture ...
  [14:34:10.000] - result already collected: FutureResult
  [14:34:10.000] result() for ClusterFuture ... done
  [1] 6
  ** Sum function 'F' with plan('multisession') ...
  function (x, y) 
  {
      message("Using '...' in a formula")
      fcn <- function(x, y) {
          z = ~list(...)
          sum(x, y)
      }
      f <- future(fcn(x, y))
      y <- value(f)
      y
  }
  <bytecode: 0x000002748dab99c8>
  Using '...' in a formula
  [14:34:10.001] getGlobalsAndPackages() ...
  [14:34:10.001] Searching for globals...
  [14:34:10.005] - globals found: [9] 'fcn', 'x', 'y', '{', '=', '~', 'list', '...', 'sum'
  [14:34:10.005] Searching for globals ... DONE
  [14:34:10.005] Resolving globals: FALSE
  [14:34:10.005] Tweak future expression to call with '...' arguments ...
  [14:34:10.006] The total size of the 3 globals is 4.18 KiB (4280 bytes)
  [14:34:10.006] The total size of the 3 globals exported for future expression ('fcn(x, y)') is 4.18 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'fcn' (4.07 KiB of class 'function'), 'x' (56 bytes of class 'numeric') and 'y' (56 bytes of class 'numeric')
  [14:34:10.007] - globals: [3] 'fcn', 'x', 'y'
  [14:34:10.007] 
  [14:34:10.007] getGlobalsAndPackages() ... DONE
  [14:34:10.008] run() for 'Future' ...
  [14:34:10.008] - state: 'created'
  [14:34:10.008] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
  [14:34:10.023] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  [14:34:10.023] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
  [14:34:10.023]   - Field: 'node'
  [14:34:10.023]   - Field: 'label'
  [14:34:10.024]   - Field: 'local'
  [14:34:10.024]   - Field: 'owner'
  [14:34:10.024]   - Field: 'envir'
  [14:34:10.024]   - Field: 'workers'
  [14:34:10.024]   - Field: 'packages'
  [14:34:10.024]   - Field: 'gc'
  [14:34:10.025]   - Field: 'conditions'
  [14:34:10.025]   - Field: 'persistent'
  [14:34:10.025]   - Field: 'expr'
  [14:34:10.025]   - Field: 'uuid'
  [14:34:10.025]   - Field: 'seed'
  [14:34:10.025]   - Field: 'version'
  [14:34:10.026]   - Field: 'result'
  [14:34:10.026]   - Field: 'asynchronous'
  [14:34:10.026]   - Field: 'calls'
  [14:34:10.026]   - Field: 'globals'
  [14:34:10.026]   - Field: 'stdout'
  [14:34:10.027]   - Field: 'earlySignal'
  [14:34:10.027]   - Field: 'lazy'
  [14:34:10.027]   - Field: 'state'
  [14:34:10.027] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
  [14:34:10.027] - Launch lazy future ...
  [14:34:10.028] Packages needed by the future expression (n = 0): <none>
  [14:34:10.028] Packages needed by future strategies (n = 0): <none>
  [14:34:10.028] {
  [14:34:10.028]     {
  [14:34:10.028]         {
  [14:34:10.028]             ...future.startTime <- base::Sys.time()
  [14:34:10.028]             {
  [14:34:10.028]                 {
  [14:34:10.028]                   {
  [14:34:10.028]                     {
  [14:34:10.028]                       base::local({
  [14:34:10.028]                         has_future <- base::requireNamespace("future", 
  [14:34:10.028]                           quietly = TRUE)
  [14:34:10.028]                         if (has_future) {
  [14:34:10.028]                           ns <- base::getNamespace("future")
  [14:34:10.028]                           version <- ns[[".package"]][["version"]]
  [14:34:10.028]                           if (is.null(version)) 
  [14:34:10.028]                             version <- utils::packageVersion("future")
  [14:34:10.028]                         }
  [14:34:10.028]                         else {
  [14:34:10.028]                           version <- NULL
  [14:34:10.028]                         }
  [14:34:10.028]                         if (!has_future || version < "1.8.0") {
  [14:34:10.028]                           info <- base::c(r_version = base::gsub("R version ", 
  [14:34:10.028]                             "", base::R.version$version.string), 
  [14:34:10.028]                             platform = base::sprintf("%s (%s-bit)", 
  [14:34:10.028]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:34:10.028]                             os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:34:10.028]                               "release", "version")], collapse = " "), 
  [14:34:10.028]                             hostname = base::Sys.info()[["nodename"]])
  [14:34:10.028]                           info <- base::sprintf("%s: %s", base::names(info), 
  [14:34:10.028]                             info)
  [14:34:10.028]                           info <- base::paste(info, collapse = "; ")
  [14:34:10.028]                           if (!has_future) {
  [14:34:10.028]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:34:10.028]                               info)
  [14:34:10.028]                           }
  [14:34:10.028]                           else {
  [14:34:10.028]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:34:10.028]                               info, version)
  [14:34:10.028]                           }
  [14:34:10.028]                           base::stop(msg)
  [14:34:10.028]                         }
  [14:34:10.028]                       })
  [14:34:10.028]                     }
  [14:34:10.028]                     ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:34:10.028]                     base::options(mc.cores = 1L)
  [14:34:10.028]                   }
  [14:34:10.028]                   options(future.plan = NULL)
  [14:34:10.028]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:10.028]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:34:10.028]                 }
  [14:34:10.028]                 ...future.workdir <- getwd()
  [14:34:10.028]             }
  [14:34:10.028]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:34:10.028]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:34:10.028]         }
  [14:34:10.028]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:34:10.028]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:34:10.028]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:34:10.028]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:34:10.028]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:34:10.028]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:34:10.028]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:34:10.028]             base::names(...future.oldOptions))
  [14:34:10.028]     }
  [14:34:10.028]     if (FALSE) {
  [14:34:10.028]     }
  [14:34:10.028]     else {
  [14:34:10.028]         if (TRUE) {
  [14:34:10.028]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:34:10.028]                 open = "w")
  [14:34:10.028]         }
  [14:34:10.028]         else {
  [14:34:10.028]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:34:10.028]                 windows = "NUL", "/dev/null"), open = "w")
  [14:34:10.028]         }
  [14:34:10.028]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:34:10.028]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:34:10.028]             base::sink(type = "output", split = FALSE)
  [14:34:10.028]             base::close(...future.stdout)
  [14:34:10.028]         }, add = TRUE)
  [14:34:10.028]     }
  [14:34:10.028]     ...future.frame <- base::sys.nframe()
  [14:34:10.028]     ...future.conditions <- base::list()
  [14:34:10.028]     ...future.rng <- base::globalenv()$.Random.seed
  [14:34:10.028]     if (FALSE) {
  [14:34:10.028]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:34:10.028]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:34:10.028]     }
  [14:34:10.028]     ...future.result <- base::tryCatch({
  [14:34:10.028]         base::withCallingHandlers({
  [14:34:10.028]             ...future.value <- base::withVisible(base::local({
  [14:34:10.028]                 ...future.makeSendCondition <- base::local({
  [14:34:10.028]                   sendCondition <- NULL
  [14:34:10.028]                   function(frame = 1L) {
  [14:34:10.028]                     if (is.function(sendCondition)) 
  [14:34:10.028]                       return(sendCondition)
  [14:34:10.028]                     ns <- getNamespace("parallel")
  [14:34:10.028]                     if (exists("sendData", mode = "function", 
  [14:34:10.028]                       envir = ns)) {
  [14:34:10.028]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:34:10.028]                         envir = ns)
  [14:34:10.028]                       envir <- sys.frame(frame)
  [14:34:10.028]                       master <- NULL
  [14:34:10.028]                       while (!identical(envir, .GlobalEnv) && 
  [14:34:10.028]                         !identical(envir, emptyenv())) {
  [14:34:10.028]                         if (exists("master", mode = "list", envir = envir, 
  [14:34:10.028]                           inherits = FALSE)) {
  [14:34:10.028]                           master <- get("master", mode = "list", 
  [14:34:10.028]                             envir = envir, inherits = FALSE)
  [14:34:10.028]                           if (inherits(master, c("SOCKnode", 
  [14:34:10.028]                             "SOCK0node"))) {
  [14:34:10.028]                             sendCondition <<- function(cond) {
  [14:34:10.028]                               data <- list(type = "VALUE", value = cond, 
  [14:34:10.028]                                 success = TRUE)
  [14:34:10.028]                               parallel_sendData(master, data)
  [14:34:10.028]                             }
  [14:34:10.028]                             return(sendCondition)
  [14:34:10.028]                           }
  [14:34:10.028]                         }
  [14:34:10.028]                         frame <- frame + 1L
  [14:34:10.028]                         envir <- sys.frame(frame)
  [14:34:10.028]                       }
  [14:34:10.028]                     }
  [14:34:10.028]                     sendCondition <<- function(cond) NULL
  [14:34:10.028]                   }
  [14:34:10.028]                 })
  [14:34:10.028]                 withCallingHandlers({
  [14:34:10.028]                   fcn(x, y)
  [14:34:10.028]                 }, immediateCondition = function(cond) {
  [14:34:10.028]                   sendCondition <- ...future.makeSendCondition()
  [14:34:10.028]                   sendCondition(cond)
  [14:34:10.028]                   muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:10.028]                   {
  [14:34:10.028]                     inherits <- base::inherits
  [14:34:10.028]                     invokeRestart <- base::invokeRestart
  [14:34:10.028]                     is.null <- base::is.null
  [14:34:10.028]                     muffled <- FALSE
  [14:34:10.028]                     if (inherits(cond, "message")) {
  [14:34:10.028]                       muffled <- grepl(pattern, "muffleMessage")
  [14:34:10.028]                       if (muffled) 
  [14:34:10.028]                         invokeRestart("muffleMessage")
  [14:34:10.028]                     }
  [14:34:10.028]                     else if (inherits(cond, "warning")) {
  [14:34:10.028]                       muffled <- grepl(pattern, "muffleWarning")
  [14:34:10.028]                       if (muffled) 
  [14:34:10.028]                         invokeRestart("muffleWarning")
  [14:34:10.028]                     }
  [14:34:10.028]                     else if (inherits(cond, "condition")) {
  [14:34:10.028]                       if (!is.null(pattern)) {
  [14:34:10.028]                         computeRestarts <- base::computeRestarts
  [14:34:10.028]                         grepl <- base::grepl
  [14:34:10.028]                         restarts <- computeRestarts(cond)
  [14:34:10.028]                         for (restart in restarts) {
  [14:34:10.028]                           name <- restart$name
  [14:34:10.028]                           if (is.null(name)) 
  [14:34:10.028]                             next
  [14:34:10.028]                           if (!grepl(pattern, name)) 
  [14:34:10.028]                             next
  [14:34:10.028]                           invokeRestart(restart)
  [14:34:10.028]                           muffled <- TRUE
  [14:34:10.028]                           break
  [14:34:10.028]                         }
  [14:34:10.028]                       }
  [14:34:10.028]                     }
  [14:34:10.028]                     invisible(muffled)
  [14:34:10.028]                   }
  [14:34:10.028]                   muffleCondition(cond)
  [14:34:10.028]                 })
  [14:34:10.028]             }))
  [14:34:10.028]             future::FutureResult(value = ...future.value$value, 
  [14:34:10.028]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:10.028]                   ...future.rng), globalenv = if (FALSE) 
  [14:34:10.028]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:34:10.028]                     ...future.globalenv.names))
  [14:34:10.028]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:34:10.028]         }, condition = base::local({
  [14:34:10.028]             c <- base::c
  [14:34:10.028]             inherits <- base::inherits
  [14:34:10.028]             invokeRestart <- base::invokeRestart
  [14:34:10.028]             length <- base::length
  [14:34:10.028]             list <- base::list
  [14:34:10.028]             seq.int <- base::seq.int
  [14:34:10.028]             signalCondition <- base::signalCondition
  [14:34:10.028]             sys.calls <- base::sys.calls
  [14:34:10.028]             `[[` <- base::`[[`
  [14:34:10.028]             `+` <- base::`+`
  [14:34:10.028]             `<<-` <- base::`<<-`
  [14:34:10.028]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:34:10.028]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:34:10.028]                   3L)]
  [14:34:10.028]             }
  [14:34:10.028]             function(cond) {
  [14:34:10.028]                 is_error <- inherits(cond, "error")
  [14:34:10.028]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:34:10.028]                   NULL)
  [14:34:10.028]                 if (is_error) {
  [14:34:10.028]                   sessionInformation <- function() {
  [14:34:10.028]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:34:10.028]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:34:10.028]                       search = base::search(), system = base::Sys.info())
  [14:34:10.028]                   }
  [14:34:10.028]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:10.028]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:34:10.028]                     cond$call), session = sessionInformation(), 
  [14:34:10.028]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:34:10.028]                   signalCondition(cond)
  [14:34:10.028]                 }
  [14:34:10.028]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:34:10.028]                 "immediateCondition"))) {
  [14:34:10.028]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:34:10.028]                   ...future.conditions[[length(...future.conditions) + 
  [14:34:10.028]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:34:10.028]                   if (TRUE && !signal) {
  [14:34:10.028]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:10.028]                     {
  [14:34:10.028]                       inherits <- base::inherits
  [14:34:10.028]                       invokeRestart <- base::invokeRestart
  [14:34:10.028]                       is.null <- base::is.null
  [14:34:10.028]                       muffled <- FALSE
  [14:34:10.028]                       if (inherits(cond, "message")) {
  [14:34:10.028]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:10.028]                         if (muffled) 
  [14:34:10.028]                           invokeRestart("muffleMessage")
  [14:34:10.028]                       }
  [14:34:10.028]                       else if (inherits(cond, "warning")) {
  [14:34:10.028]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:10.028]                         if (muffled) 
  [14:34:10.028]                           invokeRestart("muffleWarning")
  [14:34:10.028]                       }
  [14:34:10.028]                       else if (inherits(cond, "condition")) {
  [14:34:10.028]                         if (!is.null(pattern)) {
  [14:34:10.028]                           computeRestarts <- base::computeRestarts
  [14:34:10.028]                           grepl <- base::grepl
  [14:34:10.028]                           restarts <- computeRestarts(cond)
  [14:34:10.028]                           for (restart in restarts) {
  [14:34:10.028]                             name <- restart$name
  [14:34:10.028]                             if (is.null(name)) 
  [14:34:10.028]                               next
  [14:34:10.028]                             if (!grepl(pattern, name)) 
  [14:34:10.028]                               next
  [14:34:10.028]                             invokeRestart(restart)
  [14:34:10.028]                             muffled <- TRUE
  [14:34:10.028]                             break
  [14:34:10.028]                           }
  [14:34:10.028]                         }
  [14:34:10.028]                       }
  [14:34:10.028]                       invisible(muffled)
  [14:34:10.028]                     }
  [14:34:10.028]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:10.028]                   }
  [14:34:10.028]                 }
  [14:34:10.028]                 else {
  [14:34:10.028]                   if (TRUE) {
  [14:34:10.028]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:34:10.028]                     {
  [14:34:10.028]                       inherits <- base::inherits
  [14:34:10.028]                       invokeRestart <- base::invokeRestart
  [14:34:10.028]                       is.null <- base::is.null
  [14:34:10.028]                       muffled <- FALSE
  [14:34:10.028]                       if (inherits(cond, "message")) {
  [14:34:10.028]                         muffled <- grepl(pattern, "muffleMessage")
  [14:34:10.028]                         if (muffled) 
  [14:34:10.028]                           invokeRestart("muffleMessage")
  [14:34:10.028]                       }
  [14:34:10.028]                       else if (inherits(cond, "warning")) {
  [14:34:10.028]                         muffled <- grepl(pattern, "muffleWarning")
  [14:34:10.028]                         if (muffled) 
  [14:34:10.028]                           invokeRestart("muffleWarning")
  [14:34:10.028]                       }
  [14:34:10.028]                       else if (inherits(cond, "condition")) {
  [14:34:10.028]                         if (!is.null(pattern)) {
  [14:34:10.028]                           computeRestarts <- base::computeRestarts
  [14:34:10.028]                           grepl <- base::grepl
  [14:34:10.028]                           restarts <- computeRestarts(cond)
  [14:34:10.028]                           for (restart in restarts) {
  [14:34:10.028]                             name <- restart$name
  [14:34:10.028]                             if (is.null(name)) 
  [14:34:10.028]                               next
  [14:34:10.028]                             if (!grepl(pattern, name)) 
  [14:34:10.028]                               next
  [14:34:10.028]                             invokeRestart(restart)
  [14:34:10.028]                             muffled <- TRUE
  [14:34:10.028]                             break
  [14:34:10.028]                           }
  [14:34:10.028]                         }
  [14:34:10.028]                       }
  [14:34:10.028]                       invisible(muffled)
  [14:34:10.028]                     }
  [14:34:10.028]                     muffleCondition(cond, pattern = "^muffle")
  [14:34:10.028]                   }
  [14:34:10.028]                 }
  [14:34:10.028]             }
  [14:34:10.028]         }))
  [14:34:10.028]     }, error = function(ex) {
  [14:34:10.028]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:34:10.028]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:34:10.028]                 ...future.rng), started = ...future.startTime, 
  [14:34:10.028]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:34:10.028]             version = "1.8"), class = "FutureResult")
  [14:34:10.028]     }, finally = {
  [14:34:10.028]         if (!identical(...future.workdir, getwd())) 
  [14:34:10.028]             setwd(...future.workdir)
  [14:34:10.028]         {
  [14:34:10.028]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:34:10.028]                 ...future.oldOptions$nwarnings <- NULL
  [14:34:10.028]             }
  [14:34:10.028]             base::options(...future.oldOptions)
  [14:34:10.028]             if (.Platform$OS.type == "windows") {
  [14:34:10.028]                 old_names <- names(...future.oldEnvVars)
  [14:34:10.028]                 envs <- base::Sys.getenv()
  [14:34:10.028]                 names <- names(envs)
  [14:34:10.028]                 common <- intersect(names, old_names)
  [14:34:10.028]                 added <- setdiff(names, old_names)
  [14:34:10.028]                 removed <- setdiff(old_names, names)
  [14:34:10.028]                 changed <- common[...future.oldEnvVars[common] != 
  [14:34:10.028]                   envs[common]]
  [14:34:10.028]                 NAMES <- toupper(changed)
  [14:34:10.028]                 args <- list()
  [14:34:10.028]                 for (kk in seq_along(NAMES)) {
  [14:34:10.028]                   name <- changed[[kk]]
  [14:34:10.028]                   NAME <- NAMES[[kk]]
  [14:34:10.028]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:10.028]                     next
  [14:34:10.028]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:10.028]                 }
  [14:34:10.028]                 NAMES <- toupper(added)
  [14:34:10.028]                 for (kk in seq_along(NAMES)) {
  [14:34:10.028]                   name <- added[[kk]]
  [14:34:10.028]                   NAME <- NAMES[[kk]]
  [14:34:10.028]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:10.028]                     next
  [14:34:10.028]                   args[[name]] <- ""
  [14:34:10.028]                 }
  [14:34:10.028]                 NAMES <- toupper(removed)
  [14:34:10.028]                 for (kk in seq_along(NAMES)) {
  [14:34:10.028]                   name <- removed[[kk]]
  [14:34:10.028]                   NAME <- NAMES[[kk]]
  [14:34:10.028]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:34:10.028]                     next
  [14:34:10.028]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:34:10.028]                 }
  [14:34:10.028]                 if (length(args) > 0) 
  [14:34:10.028]                   base::do.call(base::Sys.setenv, args = args)
  [14:34:10.028]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:34:10.028]             }
  [14:34:10.028]             else {
  [14:34:10.028]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:34:10.028]             }
  [14:34:10.028]             {
  [14:34:10.028]                 if (base::length(...future.futureOptionsAdded) > 
  [14:34:10.028]                   0L) {
  [14:34:10.028]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:34:10.028]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:34:10.028]                   base::options(opts)
  [14:34:10.028]                 }
  [14:34:10.028]                 {
  [14:34:10.028]                   {
  [14:34:10.028]                     base::options(mc.cores = ...future.mc.cores.old)
  [14:34:10.028]                     NULL
  [14:34:10.028]                   }
  [14:34:10.028]                   options(future.plan = NULL)
  [14:34:10.028]                   if (is.na(NA_character_)) 
  [14:34:10.028]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:34:10.028]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:34:10.028]                   future::plan(list(function (..., workers = availableCores(), 
  [14:34:10.028]                     lazy = FALSE, rscript_libs = .libPaths(), 
  [14:34:10.028]                     envir = parent.frame()) 
  [14:34:10.028]                   {
  [14:34:10.028]                     if (is.function(workers)) 
  [14:34:10.028]                       workers <- workers()
  [14:34:10.028]                     workers <- structure(as.integer(workers), 
  [14:34:10.028]                       class = class(workers))
  [14:34:10.028]                     stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:34:10.028]                       workers >= 1)
  [14:34:10.028]                     if (workers == 1L && !inherits(workers, "AsIs")) {
  [14:34:10.028]                       return(sequential(..., lazy = TRUE, envir = envir))
  [14:34:10.028]                     }
  [14:34:10.028]                     future <- MultisessionFuture(..., workers = workers, 
  [14:34:10.028]                       lazy = lazy, rscript_libs = rscript_libs, 
  [14:34:10.028]                       envir = envir)
  [14:34:10.028]                     if (!future$lazy) 
  [14:34:10.028]                       future <- run(future)
  [14:34:10.028]                     invisible(future)
  [14:34:10.028]                   }), .cleanup = FALSE, .init = FALSE)
  [14:34:10.028]                 }
  [14:34:10.028]             }
  [14:34:10.028]         }
  [14:34:10.028]     })
  [14:34:10.028]     if (TRUE) {
  [14:34:10.028]         base::sink(type = "output", split = FALSE)
  [14:34:10.028]         if (TRUE) {
  [14:34:10.028]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:34:10.028]         }
  [14:34:10.028]         else {
  [14:34:10.028]             ...future.result["stdout"] <- base::list(NULL)
  [14:34:10.028]         }
  [14:34:10.028]         base::close(...future.stdout)
  [14:34:10.028]         ...future.stdout <- NULL
  [14:34:10.028]     }
  [14:34:10.028]     ...future.result$conditions <- ...future.conditions
  [14:34:10.028]     ...future.result$finished <- base::Sys.time()
  [14:34:10.028]     ...future.result
  [14:34:10.028] }
  [14:34:10.034] Exporting 3 global objects (4.18 KiB) to cluster node #1 ...
  [14:34:10.035] Exporting 'fcn' (4.07 KiB) to cluster node #1 ...
  [14:34:10.035] Exporting 'fcn' (4.07 KiB) to cluster node #1 ... DONE
  [14:34:10.035] Exporting 'x' (56 bytes) to cluster node #1 ...
  [14:34:10.036] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
  [14:34:10.036] Exporting 'y' (56 bytes) to cluster node #1 ...
  [14:34:10.037] Exporting 'y' (56 bytes) to cluster node #1 ... DONE
  [14:34:10.037] Exporting 3 global objects (4.18 KiB) to cluster node #1 ... DONE
  [14:34:10.037] MultisessionFuture started
  [14:34:10.038] - Launch lazy future ... done
  [14:34:10.038] run() for 'MultisessionFuture' ... done
  [14:34:10.038] result() for ClusterFuture ...
  [14:34:10.038] receiveMessageFromWorker() for ClusterFuture ...
  [14:34:10.038] - Validating connection of MultisessionFuture
  [14:34:10.055] - received message: FutureResult
  [14:34:10.056] - Received FutureResult
  [14:34:10.056] - Erased future from FutureRegistry
  [14:34:10.056] result() for ClusterFuture ...
  [14:34:10.057] - result already collected: FutureResult
  [14:34:10.057] result() for ClusterFuture ... done
  [14:34:10.057] receiveMessageFromWorker() for ClusterFuture ... done
  [14:34:10.057] result() for ClusterFuture ... done
  [14:34:10.058] result() for ClusterFuture ...
  [14:34:10.058] - result already collected: FutureResult
  [14:34:10.058] result() for ClusterFuture ... done
  [1] 6
  Testing with 2 cores ... DONE
  > 
  > message("*** Global argument '...' ... DONE")
  *** Global argument '...' ... DONE
  > 
  > source("incl/end.R")
  [14:34:10.060] plan(): Setting new future strategy stack:
  [14:34:10.060] List of future strategies:
  [14:34:10.060] 1. FutureStrategy:
  [14:34:10.060]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:34:10.060]    - tweaked: FALSE
  [14:34:10.060]    - call: future::plan(oplan)
  [14:34:10.062] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     1.12    0.12    2.42 
Running the tests in 'tests/early-signaling.R' failed.
Complete output:
  > source("incl/start.R")
  [14:36:56.470] plan(): Setting new future strategy stack:
  [14:36:56.473] List of future strategies:
  [14:36:56.473] 1. sequential:
  [14:36:56.473]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:36:56.473]    - tweaked: FALSE
  [14:36:56.473]    - call: future::plan("sequential")
  [14:36:56.505] plan(): nbrOfWorkers() = 1
  > 
  > options(future.debug = FALSE)
  > 
  > message("*** Early signaling of conditions ...")
  *** Early signaling of conditions ...
  > 
  > message("*** Early signaling of conditions with sequential futures ...")
  *** Early signaling of conditions with sequential futures ...
  > 
  > plan(sequential)
  > f <- future({ stop("bang!") })
  > r <- resolved(f)
  > stopifnot(r)
  > v <- tryCatch(value(f), error = identity)
  > stopifnot(inherits(v, "error"))
  > 
  > message("- with lazy evaluation ...")
  - with lazy evaluation ...
  > f <- future({ stop("bang!") }, lazy = TRUE)
  > r <- resolved(f)
  > stopifnot(r)
  > v <- tryCatch(value(f), error = identity)
  > stopifnot(inherits(v, "error"))
  > 
  > plan(sequential, earlySignal = TRUE)
  > f <- tryCatch(future({ stop("bang!") }), error = identity)
  > stopifnot(inherits(f, "error"))
  > 
  > message("- with lazy evaluation ...")
  - with lazy evaluation ...
  > 
  > ## Errors
  > f <- future({ stop("bang!") }, lazy = TRUE)
  > r <- tryCatch(resolved(f), error = identity)
  > stopifnot(inherits(r, "error"))
  > v <- tryCatch(value(f), error = identity)
  > stopifnot(inherits(v, "error"))
  > 
  > ## Warnings
  > f <- future({ warning("careful!") }, lazy = TRUE)
  > res <- tryCatch({
  +   r <- resolved(f)
  + }, condition = function(w) w)
  > str(res)
  List of 2
   $ message: chr "careful!"
   $ call   : language eval(quote({     warning("careful!") ...
   - attr(*, "class")= chr [1:3] "simpleWarning" "warning" "condition"
  > stopifnot(inherits(res, "warning"))
  > 
  > ## Messages
  > f <- future({ message("hey!") }, lazy = TRUE)
  > res <- tryCatch({
  +   r <- resolved(f)
  + }, condition = function(w) w)
  > stopifnot(inherits(res, "message"))
  > 
  > ## Condition
  > f <- future({ signalCondition(simpleCondition("hmm")) }, lazy = TRUE)
  > res <- tryCatch({
  +   r <- resolved(f)
  + }, condition = function(w) w)
  > stopifnot(inherits(res, "condition"))
  > 
  > message("*** Early signaling of conditions with sequential futures ... DONE")
  *** Early signaling of conditions with sequential futures ... DONE
  > 
  > 
  > message("Number of available cores: ", availableCores())
  Number of available cores: 2
  > 
  > message("*** Early signaling of conditions with multisession futures ...")
  *** Early signaling of conditions with multisession futures ...
  > 
  > plan(multisession)
  > f <- future({ stop("bang!") })
  > Sys.sleep(1.0)
  > r <- resolved(f)
  > stopifnot(r)
  > v <- tryCatch(value(f), error = identity)
  > stopifnot(inherits(v, "error"))
  > 
  > if (availableCores() > 1L) {
  +   plan(multisession, earlySignal = TRUE)
  +   f <- future({ stop("bang!") })
  +   Sys.sleep(1.0)
  +   print(f)
  +   r <- tryCatch(resolved(f), error = identity)
  +   stopifnot(inherits(r, "error") || inherits(f, "SequentialFuture"))
  +   v <- tryCatch(value(f), error = identity)
  +   stopifnot(inherits(v, "error"))
  + } else {
  +   message("- Skipping earlySignal = TRUE with 'multisession' because availableCores() == 1")
  + }
  MultisessionFuture:
  Label: '<none>'
  Expression:
  {
      stop("bang!")
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: TRUE
  Owner process: 4cf255de-9db2-8fd9-27db-2f5120e7171d
  Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
  > 
  > 
  > message("*** Early signaling of conditions with multisession futures ... DONE")
  *** Early signaling of conditions with multisession futures ... DONE
  > 
  > 
  > if (supportsMulticore()) {
  +   message("*** Early signaling of conditions with multicore futures ...")
  +   
  +   plan(multicore)
  +   f <- future({ stop("bang!") })
  +   Sys.sleep(1.0)
  +   r <- resolved(f)
  +   stopifnot(r)
  +   v <- tryCatch(value(f), error = identity)
  +   stopifnot(inherits(v, "error"))
  +   
  +   if (availableCores() > 1L) {
  +     plan(multicore, earlySignal = TRUE)
  +     f <- future({ stop("bang!") })
  +     Sys.sleep(1.0)
  +     print(f)
  +     r <- tryCatch(resolved(f), error = identity)
  +     stopifnot(inherits(r, "error") || inherits(f, "SequentialFuture"))
  +     v <- tryCatch(value(f), error = identity)
  +     stopifnot(inherits(v, "error"))
  +   
  +     ## Errors
  +     f <- future({ stop("bang!") }, earlySignal = TRUE)
  +     Sys.sleep(1.0)
  +     r <- tryCatch(resolved(f), error = identity)
  +     stopifnot(inherits(r, "error") || inherits(f, "SequentialFuture"))
  +     v <- tryCatch(value(f), error = identity)
  +     stopifnot(inherits(v, "error"))
  +   } else {
  +     message("- Skipping earlySignal = TRUE with 'multicore' because availableCores() == 1")
  +   }
  +   
  +   ## Warnings
  +   f <- future({ warning("careful!") }, earlySignal = TRUE)
  +   Sys.sleep(1.0)
  +   res <- tryCatch({ r <- resolved(f) }, condition = function(w) w)
  +   #stopifnot(inherits(res, "warning"))
  +   
  +   ## Messages
  +   f <- future({ message("hey!") }, earlySignal = TRUE)
  +   Sys.sleep(1.0)
  +   res <- tryCatch({ r <- resolved(f) }, condition = function(w) w)
  +   #stopifnot(inherits(res, "message"))
  +   
  +   ## Condition
  +   f <- future({ signalCondition(simpleCondition("hmm")) }, earlySignal = TRUE)
  +   Sys.sleep(1.0)
  +   res <- tryCatch({ r <- resolved(f) }, condition = function(w) w)
  +   #stopifnot(inherits(res, "condition"))
  +   
  +   message("*** Early signaling of conditions with multicore futures ... DONE")
  + }
  > 
  > 
  > message("*** Early signaling of conditions ... DONE")
  *** Early signaling of conditions ... DONE
  > 
  > source("incl/end.R")
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.67    0.20    4.29 
Running the tests in 'tests/future,optsenvvars.R' failed.
Complete output:
  > source("incl/start.R")
  [14:39:32.272] plan(): Setting new future strategy stack:
  [14:39:32.274] List of future strategies:
  [14:39:32.274] 1. sequential:
  [14:39:32.274]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:39:32.274]    - tweaked: FALSE
  [14:39:32.274]    - call: future::plan("sequential")
  [14:39:32.300] plan(): nbrOfWorkers() = 1
  > options(future.debug = FALSE)
  > message("*** Futures - undo R options and environment variables ...")
  *** Futures - undo R options and environment variables ...
  > 
  > strategies <- supportedStrategies()
  > 
  > ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
  > if (!fullTest && isWin32) strategies <- NULL
  > 
  > options(digits = 6L)
  > Sys.setenv(R_DEFAULT_INTERNET_TIMEOUT = "300")
  > old_options <- options()
  > old_envvars <- Sys.getenv()
  > 
  > for (strategy in strategies) {
  +   message(sprintf("- plan('%s') ...", strategy))
  +   plan(strategy)
  + 
  +   f <- future({
  +     options(digits = 4L)
  +     options(abc = 42L)
  +     Sys.setenv(R_DEFAULT_INTERNET_TIMEOUT = "30")
  +     Sys.setenv(ABC = "42")
  +   })
  +   v <- value(f)
  +   stopifnot(
  +     getOption("digits") == 6L,
  +     #DISABLED# is.null(getOption("abc")),
  +     identical(options()[names(old_options)], old_options),
  +     identical(Sys.getenv("R_DEFAULT_INTERNET_TIMEOUT"), "300")
  +     #DISABLED# is.na(Sys.getenv("ABC", NA_character_))
  +   )
  +   
  +   envvars <- Sys.getenv()
  +   if (.Platform$OS.type == "windows") {
  +     ## Drop empty environment variables, because they are not supported by
  +     ## MS Windows, but may exist because they're inherited from a host OS
  +     old_envvars <- old_envvars[nzchar(old_envvars)]
  +     envvars <- envvars[nzchar(envvars)]
  +   }
  + 
  +   envvars <- envvars[names(old_envvars)]
  +   
  +   ## Any added?
  +   diff <- setdiff(names(envvars), names(old_envvars))
  +   if (length(diff) > 0) {
  +     stop(sprintf("Detected added environment variables: %s", paste(diff, collapse = ", ")))
  +   }
  +   
  +   ## Any removed?
  +   diff <- setdiff(names(old_envvars), names(envvars))
  +   if (length(diff) > 0) {
  +     stop(sprintf("Detected removed environment variables: %s", paste(diff, collapse = ", ")))
  +   }
  + 
  +   ## Any changed?
  +   for (name in names(old_envvars)) {
  +       if (!identical(envvars[[name]], old_envvars[[name]])) {
  +           stop(sprintf("Detected modified environment variable: %s=%s (was %s)", name, sQuote(envvars[[name]]), sQuote(old_envvars[[name]])))
  +       }
  +   }
  + 
  +   stopifnot(all.equal(envvars, old_envvars))
  +   stopifnot(identical(envvars, old_envvars))
  + 
  +   message(sprintf("- plan('%s') ... DONE", strategy))
  + } ## for (strategy ...)
  - plan('sequential') ...
  - plan('sequential') ... DONE
  - plan('multisession') ...
  - plan('multisession') ... DONE
  > 
  > message("*** Futures - undo R options and environment variables ... DONE")
  *** Futures - undo R options and environment variables ... DONE
  > 
  > source("incl/end.R")
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.57    0.09    1.67 
Running the tests in 'tests/future.R' failed.
Complete output:
  > source("incl/start.R")
  [14:42:20.335] plan(): Setting new future strategy stack:
  [14:42:20.337] List of future strategies:
  [14:42:20.337] 1. sequential:
  [14:42:20.337]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.337]    - tweaked: FALSE
  [14:42:20.337]    - call: future::plan("sequential")
  [14:42:20.361] plan(): nbrOfWorkers() = 1
  > 
  > message("*** future() ...")
  *** future() ...
  > 
  > f <- future({
  +   42L
  + }, lazy = TRUE)
  [14:42:20.372] getGlobalsAndPackages() ...
  [14:42:20.372] Searching for globals...
  [14:42:20.377] - globals found: [1] '{'
  [14:42:20.377] Searching for globals ... DONE
  [14:42:20.378] Resolving globals: FALSE
  [14:42:20.378] 
  [14:42:20.379] 
  [14:42:20.379] getGlobalsAndPackages() ... DONE
  > 
  > print(resolved(f))
  [14:42:20.380] resolved() for 'Future' ...
  [14:42:20.380] - state: 'created'
  [14:42:20.381] - run: TRUE
  [14:42:20.381] - run() ...
  [14:42:20.381] run() for 'Future' ...
  [14:42:20.381] - state: 'created'
  [14:42:20.382] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:42:20.382] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:42:20.383] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:42:20.383]   - Field: 'label'
  [14:42:20.383]   - Field: 'local'
  [14:42:20.384]   - Field: 'owner'
  [14:42:20.384]   - Field: 'envir'
  [14:42:20.384]   - Field: 'packages'
  [14:42:20.385]   - Field: 'gc'
  [14:42:20.385]   - Field: 'conditions'
  [14:42:20.385]   - Field: 'expr'
  [14:42:20.386]   - Field: 'uuid'
  [14:42:20.386]   - Field: 'seed'
  [14:42:20.386]   - Field: 'version'
  [14:42:20.387]   - Field: 'result'
  [14:42:20.387]   - Field: 'asynchronous'
  [14:42:20.387]   - Field: 'calls'
  [14:42:20.387]   - Field: 'globals'
  [14:42:20.388]   - Field: 'stdout'
  [14:42:20.388]   - Field: 'earlySignal'
  [14:42:20.388]   - Field: 'lazy'
  [14:42:20.389]   - Field: 'state'
  [14:42:20.389] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:42:20.389] - Launch lazy future ...
  [14:42:20.391] Packages needed by the future expression (n = 0): <none>
  [14:42:20.391] Packages needed by future strategies (n = 0): <none>
  [14:42:20.393] {
  [14:42:20.393]     {
  [14:42:20.393]         {
  [14:42:20.393]             ...future.startTime <- base::Sys.time()
  [14:42:20.393]             {
  [14:42:20.393]                 {
  [14:42:20.393]                   {
  [14:42:20.393]                     base::local({
  [14:42:20.393]                       has_future <- base::requireNamespace("future", 
  [14:42:20.393]                         quietly = TRUE)
  [14:42:20.393]                       if (has_future) {
  [14:42:20.393]                         ns <- base::getNamespace("future")
  [14:42:20.393]                         version <- ns[[".package"]][["version"]]
  [14:42:20.393]                         if (is.null(version)) 
  [14:42:20.393]                           version <- utils::packageVersion("future")
  [14:42:20.393]                       }
  [14:42:20.393]                       else {
  [14:42:20.393]                         version <- NULL
  [14:42:20.393]                       }
  [14:42:20.393]                       if (!has_future || version < "1.8.0") {
  [14:42:20.393]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:42:20.393]                           "", base::R.version$version.string), 
  [14:42:20.393]                           platform = base::sprintf("%s (%s-bit)", 
  [14:42:20.393]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:42:20.393]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:42:20.393]                             "release", "version")], collapse = " "), 
  [14:42:20.393]                           hostname = base::Sys.info()[["nodename"]])
  [14:42:20.393]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:42:20.393]                           info)
  [14:42:20.393]                         info <- base::paste(info, collapse = "; ")
  [14:42:20.393]                         if (!has_future) {
  [14:42:20.393]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:42:20.393]                             info)
  [14:42:20.393]                         }
  [14:42:20.393]                         else {
  [14:42:20.393]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:42:20.393]                             info, version)
  [14:42:20.393]                         }
  [14:42:20.393]                         base::stop(msg)
  [14:42:20.393]                       }
  [14:42:20.393]                     })
  [14:42:20.393]                   }
  [14:42:20.393]                   options(future.plan = NULL)
  [14:42:20.393]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.393]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:42:20.393]                 }
  [14:42:20.393]                 ...future.workdir <- getwd()
  [14:42:20.393]             }
  [14:42:20.393]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:42:20.393]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:42:20.393]         }
  [14:42:20.393]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:42:20.393]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:42:20.393]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:42:20.393]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:42:20.393]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:42:20.393]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:42:20.393]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:42:20.393]             base::names(...future.oldOptions))
  [14:42:20.393]     }
  [14:42:20.393]     if (FALSE) {
  [14:42:20.393]     }
  [14:42:20.393]     else {
  [14:42:20.393]         if (TRUE) {
  [14:42:20.393]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:42:20.393]                 open = "w")
  [14:42:20.393]         }
  [14:42:20.393]         else {
  [14:42:20.393]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:42:20.393]                 windows = "NUL", "/dev/null"), open = "w")
  [14:42:20.393]         }
  [14:42:20.393]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:42:20.393]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:42:20.393]             base::sink(type = "output", split = FALSE)
  [14:42:20.393]             base::close(...future.stdout)
  [14:42:20.393]         }, add = TRUE)
  [14:42:20.393]     }
  [14:42:20.393]     ...future.frame <- base::sys.nframe()
  [14:42:20.393]     ...future.conditions <- base::list()
  [14:42:20.393]     ...future.rng <- base::globalenv()$.Random.seed
  [14:42:20.393]     if (FALSE) {
  [14:42:20.393]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:42:20.393]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:42:20.393]     }
  [14:42:20.393]     ...future.result <- base::tryCatch({
  [14:42:20.393]         base::withCallingHandlers({
  [14:42:20.393]             ...future.value <- base::withVisible(base::local({
  [14:42:20.393]                 42L
  [14:42:20.393]             }))
  [14:42:20.393]             future::FutureResult(value = ...future.value$value, 
  [14:42:20.393]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.393]                   ...future.rng), globalenv = if (FALSE) 
  [14:42:20.393]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:42:20.393]                     ...future.globalenv.names))
  [14:42:20.393]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:42:20.393]         }, condition = base::local({
  [14:42:20.393]             c <- base::c
  [14:42:20.393]             inherits <- base::inherits
  [14:42:20.393]             invokeRestart <- base::invokeRestart
  [14:42:20.393]             length <- base::length
  [14:42:20.393]             list <- base::list
  [14:42:20.393]             seq.int <- base::seq.int
  [14:42:20.393]             signalCondition <- base::signalCondition
  [14:42:20.393]             sys.calls <- base::sys.calls
  [14:42:20.393]             `[[` <- base::`[[`
  [14:42:20.393]             `+` <- base::`+`
  [14:42:20.393]             `<<-` <- base::`<<-`
  [14:42:20.393]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:42:20.393]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:42:20.393]                   3L)]
  [14:42:20.393]             }
  [14:42:20.393]             function(cond) {
  [14:42:20.393]                 is_error <- inherits(cond, "error")
  [14:42:20.393]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:42:20.393]                   NULL)
  [14:42:20.393]                 if (is_error) {
  [14:42:20.393]                   sessionInformation <- function() {
  [14:42:20.393]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:42:20.393]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:42:20.393]                       search = base::search(), system = base::Sys.info())
  [14:42:20.393]                   }
  [14:42:20.393]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.393]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:42:20.393]                     cond$call), session = sessionInformation(), 
  [14:42:20.393]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:42:20.393]                   signalCondition(cond)
  [14:42:20.393]                 }
  [14:42:20.393]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:42:20.393]                 "immediateCondition"))) {
  [14:42:20.393]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:42:20.393]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.393]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:42:20.393]                   if (TRUE && !signal) {
  [14:42:20.393]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.393]                     {
  [14:42:20.393]                       inherits <- base::inherits
  [14:42:20.393]                       invokeRestart <- base::invokeRestart
  [14:42:20.393]                       is.null <- base::is.null
  [14:42:20.393]                       muffled <- FALSE
  [14:42:20.393]                       if (inherits(cond, "message")) {
  [14:42:20.393]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.393]                         if (muffled) 
  [14:42:20.393]                           invokeRestart("muffleMessage")
  [14:42:20.393]                       }
  [14:42:20.393]                       else if (inherits(cond, "warning")) {
  [14:42:20.393]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.393]                         if (muffled) 
  [14:42:20.393]                           invokeRestart("muffleWarning")
  [14:42:20.393]                       }
  [14:42:20.393]                       else if (inherits(cond, "condition")) {
  [14:42:20.393]                         if (!is.null(pattern)) {
  [14:42:20.393]                           computeRestarts <- base::computeRestarts
  [14:42:20.393]                           grepl <- base::grepl
  [14:42:20.393]                           restarts <- computeRestarts(cond)
  [14:42:20.393]                           for (restart in restarts) {
  [14:42:20.393]                             name <- restart$name
  [14:42:20.393]                             if (is.null(name)) 
  [14:42:20.393]                               next
  [14:42:20.393]                             if (!grepl(pattern, name)) 
  [14:42:20.393]                               next
  [14:42:20.393]                             invokeRestart(restart)
  [14:42:20.393]                             muffled <- TRUE
  [14:42:20.393]                             break
  [14:42:20.393]                           }
  [14:42:20.393]                         }
  [14:42:20.393]                       }
  [14:42:20.393]                       invisible(muffled)
  [14:42:20.393]                     }
  [14:42:20.393]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.393]                   }
  [14:42:20.393]                 }
  [14:42:20.393]                 else {
  [14:42:20.393]                   if (TRUE) {
  [14:42:20.393]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.393]                     {
  [14:42:20.393]                       inherits <- base::inherits
  [14:42:20.393]                       invokeRestart <- base::invokeRestart
  [14:42:20.393]                       is.null <- base::is.null
  [14:42:20.393]                       muffled <- FALSE
  [14:42:20.393]                       if (inherits(cond, "message")) {
  [14:42:20.393]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.393]                         if (muffled) 
  [14:42:20.393]                           invokeRestart("muffleMessage")
  [14:42:20.393]                       }
  [14:42:20.393]                       else if (inherits(cond, "warning")) {
  [14:42:20.393]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.393]                         if (muffled) 
  [14:42:20.393]                           invokeRestart("muffleWarning")
  [14:42:20.393]                       }
  [14:42:20.393]                       else if (inherits(cond, "condition")) {
  [14:42:20.393]                         if (!is.null(pattern)) {
  [14:42:20.393]                           computeRestarts <- base::computeRestarts
  [14:42:20.393]                           grepl <- base::grepl
  [14:42:20.393]                           restarts <- computeRestarts(cond)
  [14:42:20.393]                           for (restart in restarts) {
  [14:42:20.393]                             name <- restart$name
  [14:42:20.393]                             if (is.null(name)) 
  [14:42:20.393]                               next
  [14:42:20.393]                             if (!grepl(pattern, name)) 
  [14:42:20.393]                               next
  [14:42:20.393]                             invokeRestart(restart)
  [14:42:20.393]                             muffled <- TRUE
  [14:42:20.393]                             break
  [14:42:20.393]                           }
  [14:42:20.393]                         }
  [14:42:20.393]                       }
  [14:42:20.393]                       invisible(muffled)
  [14:42:20.393]                     }
  [14:42:20.393]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.393]                   }
  [14:42:20.393]                 }
  [14:42:20.393]             }
  [14:42:20.393]         }))
  [14:42:20.393]     }, error = function(ex) {
  [14:42:20.393]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:42:20.393]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.393]                 ...future.rng), started = ...future.startTime, 
  [14:42:20.393]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:42:20.393]             version = "1.8"), class = "FutureResult")
  [14:42:20.393]     }, finally = {
  [14:42:20.393]         if (!identical(...future.workdir, getwd())) 
  [14:42:20.393]             setwd(...future.workdir)
  [14:42:20.393]         {
  [14:42:20.393]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:42:20.393]                 ...future.oldOptions$nwarnings <- NULL
  [14:42:20.393]             }
  [14:42:20.393]             base::options(...future.oldOptions)
  [14:42:20.393]             if (.Platform$OS.type == "windows") {
  [14:42:20.393]                 old_names <- names(...future.oldEnvVars)
  [14:42:20.393]                 envs <- base::Sys.getenv()
  [14:42:20.393]                 names <- names(envs)
  [14:42:20.393]                 common <- intersect(names, old_names)
  [14:42:20.393]                 added <- setdiff(names, old_names)
  [14:42:20.393]                 removed <- setdiff(old_names, names)
  [14:42:20.393]                 changed <- common[...future.oldEnvVars[common] != 
  [14:42:20.393]                   envs[common]]
  [14:42:20.393]                 NAMES <- toupper(changed)
  [14:42:20.393]                 args <- list()
  [14:42:20.393]                 for (kk in seq_along(NAMES)) {
  [14:42:20.393]                   name <- changed[[kk]]
  [14:42:20.393]                   NAME <- NAMES[[kk]]
  [14:42:20.393]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.393]                     next
  [14:42:20.393]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.393]                 }
  [14:42:20.393]                 NAMES <- toupper(added)
  [14:42:20.393]                 for (kk in seq_along(NAMES)) {
  [14:42:20.393]                   name <- added[[kk]]
  [14:42:20.393]                   NAME <- NAMES[[kk]]
  [14:42:20.393]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.393]                     next
  [14:42:20.393]                   args[[name]] <- ""
  [14:42:20.393]                 }
  [14:42:20.393]                 NAMES <- toupper(removed)
  [14:42:20.393]                 for (kk in seq_along(NAMES)) {
  [14:42:20.393]                   name <- removed[[kk]]
  [14:42:20.393]                   NAME <- NAMES[[kk]]
  [14:42:20.393]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.393]                     next
  [14:42:20.393]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.393]                 }
  [14:42:20.393]                 if (length(args) > 0) 
  [14:42:20.393]                   base::do.call(base::Sys.setenv, args = args)
  [14:42:20.393]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:42:20.393]             }
  [14:42:20.393]             else {
  [14:42:20.393]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:42:20.393]             }
  [14:42:20.393]             {
  [14:42:20.393]                 if (base::length(...future.futureOptionsAdded) > 
  [14:42:20.393]                   0L) {
  [14:42:20.393]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:42:20.393]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:42:20.393]                   base::options(opts)
  [14:42:20.393]                 }
  [14:42:20.393]                 {
  [14:42:20.393]                   {
  [14:42:20.393]                     NULL
  [14:42:20.393]                     RNGkind("Mersenne-Twister")
  [14:42:20.393]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:42:20.393]                       inherits = FALSE)
  [14:42:20.393]                   }
  [14:42:20.393]                   options(future.plan = NULL)
  [14:42:20.393]                   if (is.na(NA_character_)) 
  [14:42:20.393]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.393]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:42:20.393]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:42:20.393]                   {
  [14:42:20.393]                     future <- SequentialFuture(..., envir = envir)
  [14:42:20.393]                     if (!future$lazy) 
  [14:42:20.393]                       future <- run(future)
  [14:42:20.393]                     invisible(future)
  [14:42:20.393]                   }), .cleanup = FALSE, .init = FALSE)
  [14:42:20.393]                 }
  [14:42:20.393]             }
  [14:42:20.393]         }
  [14:42:20.393]     })
  [14:42:20.393]     if (TRUE) {
  [14:42:20.393]         base::sink(type = "output", split = FALSE)
  [14:42:20.393]         if (TRUE) {
  [14:42:20.393]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:42:20.393]         }
  [14:42:20.393]         else {
  [14:42:20.393]             ...future.result["stdout"] <- base::list(NULL)
  [14:42:20.393]         }
  [14:42:20.393]         base::close(...future.stdout)
  [14:42:20.393]         ...future.stdout <- NULL
  [14:42:20.393]     }
  [14:42:20.393]     ...future.result$conditions <- ...future.conditions
  [14:42:20.393]     ...future.result$finished <- base::Sys.time()
  [14:42:20.393]     ...future.result
  [14:42:20.393] }
  [14:42:20.402] plan(): Setting new future strategy stack:
  [14:42:20.402] List of future strategies:
  [14:42:20.402] 1. sequential:
  [14:42:20.402]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.402]    - tweaked: FALSE
  [14:42:20.402]    - call: NULL
  [14:42:20.403] plan(): nbrOfWorkers() = 1
  [14:42:20.407] plan(): Setting new future strategy stack:
  [14:42:20.407] List of future strategies:
  [14:42:20.407] 1. sequential:
  [14:42:20.407]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.407]    - tweaked: FALSE
  [14:42:20.407]    - call: future::plan("sequential")
  [14:42:20.408] plan(): nbrOfWorkers() = 1
  [14:42:20.409] SequentialFuture started (and completed)
  [14:42:20.410] - Launch lazy future ... done
  [14:42:20.410] run() for 'SequentialFuture' ... done
  [14:42:20.410] - run() ... done
  [14:42:20.410] - resolved() ...
  [14:42:20.411] resolved() for 'SequentialFuture' ...
  [14:42:20.411] - state: 'finished'
  [14:42:20.411] - run: TRUE
  [14:42:20.412] - result: 'FutureResult'
  [14:42:20.412] resolved() for 'SequentialFuture' ... done
  [14:42:20.412] - resolved: TRUE
  [14:42:20.413] - resolved() ... done
  [14:42:20.413] resolved() for 'SequentialFuture' ... done
  [1] TRUE
  > y <- value(f)
  > print(y)
  [1] 42
  > stopifnot(y == 42L)
  > 
  > 
  > message("*** future() w/ gc = TRUE ...")
  *** future() w/ gc = TRUE ...
  > 
  > f <- future(42L, gc = TRUE, lazy = TRUE)
  [14:42:20.415] getGlobalsAndPackages() ...
  [14:42:20.415] Searching for globals...
  [14:42:20.416] 
  [14:42:20.416] Searching for globals ... DONE
  [14:42:20.416] - globals: [0] <none>
  [14:42:20.416] getGlobalsAndPackages() ... DONE
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: TRUE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: e4371207-7341-c3d8-7dfd-fb487052561e
  Class: 'Future', 'environment'
  > y <- value(f)
  [14:42:20.418] run() for 'Future' ...
  [14:42:20.419] - state: 'created'
  [14:42:20.419] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:42:20.420] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:42:20.420] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:42:20.421]   - Field: 'label'
  [14:42:20.421]   - Field: 'local'
  [14:42:20.421]   - Field: 'owner'
  [14:42:20.422]   - Field: 'envir'
  [14:42:20.422]   - Field: 'packages'
  [14:42:20.422]   - Field: 'gc'
  [14:42:20.423]   - Field: 'conditions'
  [14:42:20.423]   - Field: 'expr'
  [14:42:20.423]   - Field: 'uuid'
  [14:42:20.423]   - Field: 'seed'
  [14:42:20.428]   - Field: 'version'
  [14:42:20.429]   - Field: 'result'
  [14:42:20.429]   - Field: 'asynchronous'
  [14:42:20.429]   - Field: 'calls'
  [14:42:20.430]   - Field: 'globals'
  [14:42:20.430]   - Field: 'stdout'
  [14:42:20.430]   - Field: 'earlySignal'
  [14:42:20.430]   - Field: 'lazy'
  [14:42:20.431]   - Field: 'state'
  [14:42:20.431] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:42:20.431] - Launch lazy future ...
  [14:42:20.432] Packages needed by the future expression (n = 0): <none>
  [14:42:20.432] Packages needed by future strategies (n = 0): <none>
  [14:42:20.433] {
  [14:42:20.433]     {
  [14:42:20.433]         {
  [14:42:20.433]             ...future.startTime <- base::Sys.time()
  [14:42:20.433]             {
  [14:42:20.433]                 {
  [14:42:20.433]                   {
  [14:42:20.433]                     base::local({
  [14:42:20.433]                       has_future <- base::requireNamespace("future", 
  [14:42:20.433]                         quietly = TRUE)
  [14:42:20.433]                       if (has_future) {
  [14:42:20.433]                         ns <- base::getNamespace("future")
  [14:42:20.433]                         version <- ns[[".package"]][["version"]]
  [14:42:20.433]                         if (is.null(version)) 
  [14:42:20.433]                           version <- utils::packageVersion("future")
  [14:42:20.433]                       }
  [14:42:20.433]                       else {
  [14:42:20.433]                         version <- NULL
  [14:42:20.433]                       }
  [14:42:20.433]                       if (!has_future || version < "1.8.0") {
  [14:42:20.433]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:42:20.433]                           "", base::R.version$version.string), 
  [14:42:20.433]                           platform = base::sprintf("%s (%s-bit)", 
  [14:42:20.433]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:42:20.433]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:42:20.433]                             "release", "version")], collapse = " "), 
  [14:42:20.433]                           hostname = base::Sys.info()[["nodename"]])
  [14:42:20.433]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:42:20.433]                           info)
  [14:42:20.433]                         info <- base::paste(info, collapse = "; ")
  [14:42:20.433]                         if (!has_future) {
  [14:42:20.433]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:42:20.433]                             info)
  [14:42:20.433]                         }
  [14:42:20.433]                         else {
  [14:42:20.433]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:42:20.433]                             info, version)
  [14:42:20.433]                         }
  [14:42:20.433]                         base::stop(msg)
  [14:42:20.433]                       }
  [14:42:20.433]                     })
  [14:42:20.433]                   }
  [14:42:20.433]                   options(future.plan = NULL)
  [14:42:20.433]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.433]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:42:20.433]                 }
  [14:42:20.433]                 ...future.workdir <- getwd()
  [14:42:20.433]             }
  [14:42:20.433]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:42:20.433]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:42:20.433]         }
  [14:42:20.433]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:42:20.433]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:42:20.433]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:42:20.433]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:42:20.433]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:42:20.433]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:42:20.433]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:42:20.433]             base::names(...future.oldOptions))
  [14:42:20.433]     }
  [14:42:20.433]     if (FALSE) {
  [14:42:20.433]     }
  [14:42:20.433]     else {
  [14:42:20.433]         if (TRUE) {
  [14:42:20.433]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:42:20.433]                 open = "w")
  [14:42:20.433]         }
  [14:42:20.433]         else {
  [14:42:20.433]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:42:20.433]                 windows = "NUL", "/dev/null"), open = "w")
  [14:42:20.433]         }
  [14:42:20.433]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:42:20.433]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:42:20.433]             base::sink(type = "output", split = FALSE)
  [14:42:20.433]             base::close(...future.stdout)
  [14:42:20.433]         }, add = TRUE)
  [14:42:20.433]     }
  [14:42:20.433]     ...future.frame <- base::sys.nframe()
  [14:42:20.433]     ...future.conditions <- base::list()
  [14:42:20.433]     ...future.rng <- base::globalenv()$.Random.seed
  [14:42:20.433]     if (FALSE) {
  [14:42:20.433]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:42:20.433]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:42:20.433]     }
  [14:42:20.433]     ...future.result <- base::tryCatch({
  [14:42:20.433]         base::withCallingHandlers({
  [14:42:20.433]             ...future.value <- base::withVisible(base::local(42L))
  [14:42:20.433]             future::FutureResult(value = ...future.value$value, 
  [14:42:20.433]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.433]                   ...future.rng), globalenv = if (FALSE) 
  [14:42:20.433]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:42:20.433]                     ...future.globalenv.names))
  [14:42:20.433]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:42:20.433]         }, condition = base::local({
  [14:42:20.433]             c <- base::c
  [14:42:20.433]             inherits <- base::inherits
  [14:42:20.433]             invokeRestart <- base::invokeRestart
  [14:42:20.433]             length <- base::length
  [14:42:20.433]             list <- base::list
  [14:42:20.433]             seq.int <- base::seq.int
  [14:42:20.433]             signalCondition <- base::signalCondition
  [14:42:20.433]             sys.calls <- base::sys.calls
  [14:42:20.433]             `[[` <- base::`[[`
  [14:42:20.433]             `+` <- base::`+`
  [14:42:20.433]             `<<-` <- base::`<<-`
  [14:42:20.433]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:42:20.433]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:42:20.433]                   3L)]
  [14:42:20.433]             }
  [14:42:20.433]             function(cond) {
  [14:42:20.433]                 is_error <- inherits(cond, "error")
  [14:42:20.433]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:42:20.433]                   NULL)
  [14:42:20.433]                 if (is_error) {
  [14:42:20.433]                   sessionInformation <- function() {
  [14:42:20.433]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:42:20.433]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:42:20.433]                       search = base::search(), system = base::Sys.info())
  [14:42:20.433]                   }
  [14:42:20.433]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.433]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:42:20.433]                     cond$call), session = sessionInformation(), 
  [14:42:20.433]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:42:20.433]                   signalCondition(cond)
  [14:42:20.433]                 }
  [14:42:20.433]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:42:20.433]                 "immediateCondition"))) {
  [14:42:20.433]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:42:20.433]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.433]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:42:20.433]                   if (TRUE && !signal) {
  [14:42:20.433]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.433]                     {
  [14:42:20.433]                       inherits <- base::inherits
  [14:42:20.433]                       invokeRestart <- base::invokeRestart
  [14:42:20.433]                       is.null <- base::is.null
  [14:42:20.433]                       muffled <- FALSE
  [14:42:20.433]                       if (inherits(cond, "message")) {
  [14:42:20.433]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.433]                         if (muffled) 
  [14:42:20.433]                           invokeRestart("muffleMessage")
  [14:42:20.433]                       }
  [14:42:20.433]                       else if (inherits(cond, "warning")) {
  [14:42:20.433]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.433]                         if (muffled) 
  [14:42:20.433]                           invokeRestart("muffleWarning")
  [14:42:20.433]                       }
  [14:42:20.433]                       else if (inherits(cond, "condition")) {
  [14:42:20.433]                         if (!is.null(pattern)) {
  [14:42:20.433]                           computeRestarts <- base::computeRestarts
  [14:42:20.433]                           grepl <- base::grepl
  [14:42:20.433]                           restarts <- computeRestarts(cond)
  [14:42:20.433]                           for (restart in restarts) {
  [14:42:20.433]                             name <- restart$name
  [14:42:20.433]                             if (is.null(name)) 
  [14:42:20.433]                               next
  [14:42:20.433]                             if (!grepl(pattern, name)) 
  [14:42:20.433]                               next
  [14:42:20.433]                             invokeRestart(restart)
  [14:42:20.433]                             muffled <- TRUE
  [14:42:20.433]                             break
  [14:42:20.433]                           }
  [14:42:20.433]                         }
  [14:42:20.433]                       }
  [14:42:20.433]                       invisible(muffled)
  [14:42:20.433]                     }
  [14:42:20.433]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.433]                   }
  [14:42:20.433]                 }
  [14:42:20.433]                 else {
  [14:42:20.433]                   if (TRUE) {
  [14:42:20.433]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.433]                     {
  [14:42:20.433]                       inherits <- base::inherits
  [14:42:20.433]                       invokeRestart <- base::invokeRestart
  [14:42:20.433]                       is.null <- base::is.null
  [14:42:20.433]                       muffled <- FALSE
  [14:42:20.433]                       if (inherits(cond, "message")) {
  [14:42:20.433]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.433]                         if (muffled) 
  [14:42:20.433]                           invokeRestart("muffleMessage")
  [14:42:20.433]                       }
  [14:42:20.433]                       else if (inherits(cond, "warning")) {
  [14:42:20.433]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.433]                         if (muffled) 
  [14:42:20.433]                           invokeRestart("muffleWarning")
  [14:42:20.433]                       }
  [14:42:20.433]                       else if (inherits(cond, "condition")) {
  [14:42:20.433]                         if (!is.null(pattern)) {
  [14:42:20.433]                           computeRestarts <- base::computeRestarts
  [14:42:20.433]                           grepl <- base::grepl
  [14:42:20.433]                           restarts <- computeRestarts(cond)
  [14:42:20.433]                           for (restart in restarts) {
  [14:42:20.433]                             name <- restart$name
  [14:42:20.433]                             if (is.null(name)) 
  [14:42:20.433]                               next
  [14:42:20.433]                             if (!grepl(pattern, name)) 
  [14:42:20.433]                               next
  [14:42:20.433]                             invokeRestart(restart)
  [14:42:20.433]                             muffled <- TRUE
  [14:42:20.433]                             break
  [14:42:20.433]                           }
  [14:42:20.433]                         }
  [14:42:20.433]                       }
  [14:42:20.433]                       invisible(muffled)
  [14:42:20.433]                     }
  [14:42:20.433]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.433]                   }
  [14:42:20.433]                 }
  [14:42:20.433]             }
  [14:42:20.433]         }))
  [14:42:20.433]     }, error = function(ex) {
  [14:42:20.433]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:42:20.433]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.433]                 ...future.rng), started = ...future.startTime, 
  [14:42:20.433]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:42:20.433]             version = "1.8"), class = "FutureResult")
  [14:42:20.433]     }, finally = {
  [14:42:20.433]         if (!identical(...future.workdir, getwd())) 
  [14:42:20.433]             setwd(...future.workdir)
  [14:42:20.433]         {
  [14:42:20.433]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:42:20.433]                 ...future.oldOptions$nwarnings <- NULL
  [14:42:20.433]             }
  [14:42:20.433]             base::options(...future.oldOptions)
  [14:42:20.433]             if (.Platform$OS.type == "windows") {
  [14:42:20.433]                 old_names <- names(...future.oldEnvVars)
  [14:42:20.433]                 envs <- base::Sys.getenv()
  [14:42:20.433]                 names <- names(envs)
  [14:42:20.433]                 common <- intersect(names, old_names)
  [14:42:20.433]                 added <- setdiff(names, old_names)
  [14:42:20.433]                 removed <- setdiff(old_names, names)
  [14:42:20.433]                 changed <- common[...future.oldEnvVars[common] != 
  [14:42:20.433]                   envs[common]]
  [14:42:20.433]                 NAMES <- toupper(changed)
  [14:42:20.433]                 args <- list()
  [14:42:20.433]                 for (kk in seq_along(NAMES)) {
  [14:42:20.433]                   name <- changed[[kk]]
  [14:42:20.433]                   NAME <- NAMES[[kk]]
  [14:42:20.433]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.433]                     next
  [14:42:20.433]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.433]                 }
  [14:42:20.433]                 NAMES <- toupper(added)
  [14:42:20.433]                 for (kk in seq_along(NAMES)) {
  [14:42:20.433]                   name <- added[[kk]]
  [14:42:20.433]                   NAME <- NAMES[[kk]]
  [14:42:20.433]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.433]                     next
  [14:42:20.433]                   args[[name]] <- ""
  [14:42:20.433]                 }
  [14:42:20.433]                 NAMES <- toupper(removed)
  [14:42:20.433]                 for (kk in seq_along(NAMES)) {
  [14:42:20.433]                   name <- removed[[kk]]
  [14:42:20.433]                   NAME <- NAMES[[kk]]
  [14:42:20.433]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.433]                     next
  [14:42:20.433]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.433]                 }
  [14:42:20.433]                 if (length(args) > 0) 
  [14:42:20.433]                   base::do.call(base::Sys.setenv, args = args)
  [14:42:20.433]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:42:20.433]             }
  [14:42:20.433]             else {
  [14:42:20.433]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:42:20.433]             }
  [14:42:20.433]             {
  [14:42:20.433]                 if (base::length(...future.futureOptionsAdded) > 
  [14:42:20.433]                   0L) {
  [14:42:20.433]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:42:20.433]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:42:20.433]                   base::options(opts)
  [14:42:20.433]                 }
  [14:42:20.433]                 {
  [14:42:20.433]                   {
  [14:42:20.433]                     NULL
  [14:42:20.433]                     RNGkind("Mersenne-Twister")
  [14:42:20.433]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:42:20.433]                       inherits = FALSE)
  [14:42:20.433]                   }
  [14:42:20.433]                   options(future.plan = NULL)
  [14:42:20.433]                   if (is.na(NA_character_)) 
  [14:42:20.433]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.433]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:42:20.433]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:42:20.433]                   {
  [14:42:20.433]                     future <- SequentialFuture(..., envir = envir)
  [14:42:20.433]                     if (!future$lazy) 
  [14:42:20.433]                       future <- run(future)
  [14:42:20.433]                     invisible(future)
  [14:42:20.433]                   }), .cleanup = FALSE, .init = FALSE)
  [14:42:20.433]                 }
  [14:42:20.433]             }
  [14:42:20.433]         }
  [14:42:20.433]     })
  [14:42:20.433]     if (TRUE) {
  [14:42:20.433]         base::sink(type = "output", split = FALSE)
  [14:42:20.433]         if (TRUE) {
  [14:42:20.433]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:42:20.433]         }
  [14:42:20.433]         else {
  [14:42:20.433]             ...future.result["stdout"] <- base::list(NULL)
  [14:42:20.433]         }
  [14:42:20.433]         base::close(...future.stdout)
  [14:42:20.433]         ...future.stdout <- NULL
  [14:42:20.433]     }
  [14:42:20.433]     ...future.result$conditions <- ...future.conditions
  [14:42:20.433]     ...future.result$finished <- base::Sys.time()
  [14:42:20.433]     ...future.result
  [14:42:20.433] }
  [14:42:20.440] plan(): Setting new future strategy stack:
  [14:42:20.441] List of future strategies:
  [14:42:20.441] 1. sequential:
  [14:42:20.441]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.441]    - tweaked: FALSE
  [14:42:20.441]    - call: NULL
  [14:42:20.442] plan(): nbrOfWorkers() = 1
  [14:42:20.444] plan(): Setting new future strategy stack:
  [14:42:20.444] List of future strategies:
  [14:42:20.444] 1. sequential:
  [14:42:20.444]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.444]    - tweaked: FALSE
  [14:42:20.444]    - call: future::plan("sequential")
  [14:42:20.445] plan(): nbrOfWorkers() = 1
  [14:42:20.445] SequentialFuture started (and completed)
  [14:42:20.446] - Launch lazy future ... done
  [14:42:20.446] run() for 'SequentialFuture' ... done
  > print(y)
  [1] 42
  > stopifnot(y == 42L)
  > 
  > message("*** future() w/ gc = TRUE ... DONE")
  *** future() w/ gc = TRUE ... DONE
  > message("*** future() ... DONE")
  *** future() ... DONE
  > 
  > message("*** future() ...")
  *** future() ...
  > 
  > f <- future({
  +   42L
  + }, lazy = TRUE)
  [14:42:20.447] getGlobalsAndPackages() ...
  [14:42:20.447] Searching for globals...
  [14:42:20.449] - globals found: [1] '{'
  [14:42:20.449] Searching for globals ... DONE
  [14:42:20.449] Resolving globals: FALSE
  [14:42:20.450] 
  [14:42:20.450] 
  [14:42:20.450] getGlobalsAndPackages() ... DONE
  > 
  > print(resolved(f))
  [14:42:20.451] resolved() for 'Future' ...
  [14:42:20.451] - state: 'created'
  [14:42:20.451] - run: TRUE
  [14:42:20.452] - run() ...
  [14:42:20.452] run() for 'Future' ...
  [14:42:20.452] - state: 'created'
  [14:42:20.452] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:42:20.453] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:42:20.453] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:42:20.454]   - Field: 'label'
  [14:42:20.454]   - Field: 'local'
  [14:42:20.454]   - Field: 'owner'
  [14:42:20.454]   - Field: 'envir'
  [14:42:20.455]   - Field: 'packages'
  [14:42:20.455]   - Field: 'gc'
  [14:42:20.455]   - Field: 'conditions'
  [14:42:20.455]   - Field: 'expr'
  [14:42:20.456]   - Field: 'uuid'
  [14:42:20.456]   - Field: 'seed'
  [14:42:20.456]   - Field: 'version'
  [14:42:20.457]   - Field: 'result'
  [14:42:20.457]   - Field: 'asynchronous'
  [14:42:20.457]   - Field: 'calls'
  [14:42:20.457]   - Field: 'globals'
  [14:42:20.458]   - Field: 'stdout'
  [14:42:20.458]   - Field: 'earlySignal'
  [14:42:20.458]   - Field: 'lazy'
  [14:42:20.458]   - Field: 'state'
  [14:42:20.459] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:42:20.459] - Launch lazy future ...
  [14:42:20.459] Packages needed by the future expression (n = 0): <none>
  [14:42:20.460] Packages needed by future strategies (n = 0): <none>
  [14:42:20.461] {
  [14:42:20.461]     {
  [14:42:20.461]         {
  [14:42:20.461]             ...future.startTime <- base::Sys.time()
  [14:42:20.461]             {
  [14:42:20.461]                 {
  [14:42:20.461]                   {
  [14:42:20.461]                     base::local({
  [14:42:20.461]                       has_future <- base::requireNamespace("future", 
  [14:42:20.461]                         quietly = TRUE)
  [14:42:20.461]                       if (has_future) {
  [14:42:20.461]                         ns <- base::getNamespace("future")
  [14:42:20.461]                         version <- ns[[".package"]][["version"]]
  [14:42:20.461]                         if (is.null(version)) 
  [14:42:20.461]                           version <- utils::packageVersion("future")
  [14:42:20.461]                       }
  [14:42:20.461]                       else {
  [14:42:20.461]                         version <- NULL
  [14:42:20.461]                       }
  [14:42:20.461]                       if (!has_future || version < "1.8.0") {
  [14:42:20.461]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:42:20.461]                           "", base::R.version$version.string), 
  [14:42:20.461]                           platform = base::sprintf("%s (%s-bit)", 
  [14:42:20.461]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:42:20.461]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:42:20.461]                             "release", "version")], collapse = " "), 
  [14:42:20.461]                           hostname = base::Sys.info()[["nodename"]])
  [14:42:20.461]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:42:20.461]                           info)
  [14:42:20.461]                         info <- base::paste(info, collapse = "; ")
  [14:42:20.461]                         if (!has_future) {
  [14:42:20.461]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:42:20.461]                             info)
  [14:42:20.461]                         }
  [14:42:20.461]                         else {
  [14:42:20.461]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:42:20.461]                             info, version)
  [14:42:20.461]                         }
  [14:42:20.461]                         base::stop(msg)
  [14:42:20.461]                       }
  [14:42:20.461]                     })
  [14:42:20.461]                   }
  [14:42:20.461]                   options(future.plan = NULL)
  [14:42:20.461]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.461]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:42:20.461]                 }
  [14:42:20.461]                 ...future.workdir <- getwd()
  [14:42:20.461]             }
  [14:42:20.461]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:42:20.461]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:42:20.461]         }
  [14:42:20.461]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:42:20.461]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:42:20.461]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:42:20.461]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:42:20.461]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:42:20.461]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:42:20.461]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:42:20.461]             base::names(...future.oldOptions))
  [14:42:20.461]     }
  [14:42:20.461]     if (FALSE) {
  [14:42:20.461]     }
  [14:42:20.461]     else {
  [14:42:20.461]         if (TRUE) {
  [14:42:20.461]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:42:20.461]                 open = "w")
  [14:42:20.461]         }
  [14:42:20.461]         else {
  [14:42:20.461]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:42:20.461]                 windows = "NUL", "/dev/null"), open = "w")
  [14:42:20.461]         }
  [14:42:20.461]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:42:20.461]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:42:20.461]             base::sink(type = "output", split = FALSE)
  [14:42:20.461]             base::close(...future.stdout)
  [14:42:20.461]         }, add = TRUE)
  [14:42:20.461]     }
  [14:42:20.461]     ...future.frame <- base::sys.nframe()
  [14:42:20.461]     ...future.conditions <- base::list()
  [14:42:20.461]     ...future.rng <- base::globalenv()$.Random.seed
  [14:42:20.461]     if (FALSE) {
  [14:42:20.461]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:42:20.461]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:42:20.461]     }
  [14:42:20.461]     ...future.result <- base::tryCatch({
  [14:42:20.461]         base::withCallingHandlers({
  [14:42:20.461]             ...future.value <- base::withVisible(base::local({
  [14:42:20.461]                 42L
  [14:42:20.461]             }))
  [14:42:20.461]             future::FutureResult(value = ...future.value$value, 
  [14:42:20.461]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.461]                   ...future.rng), globalenv = if (FALSE) 
  [14:42:20.461]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:42:20.461]                     ...future.globalenv.names))
  [14:42:20.461]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:42:20.461]         }, condition = base::local({
  [14:42:20.461]             c <- base::c
  [14:42:20.461]             inherits <- base::inherits
  [14:42:20.461]             invokeRestart <- base::invokeRestart
  [14:42:20.461]             length <- base::length
  [14:42:20.461]             list <- base::list
  [14:42:20.461]             seq.int <- base::seq.int
  [14:42:20.461]             signalCondition <- base::signalCondition
  [14:42:20.461]             sys.calls <- base::sys.calls
  [14:42:20.461]             `[[` <- base::`[[`
  [14:42:20.461]             `+` <- base::`+`
  [14:42:20.461]             `<<-` <- base::`<<-`
  [14:42:20.461]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:42:20.461]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:42:20.461]                   3L)]
  [14:42:20.461]             }
  [14:42:20.461]             function(cond) {
  [14:42:20.461]                 is_error <- inherits(cond, "error")
  [14:42:20.461]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:42:20.461]                   NULL)
  [14:42:20.461]                 if (is_error) {
  [14:42:20.461]                   sessionInformation <- function() {
  [14:42:20.461]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:42:20.461]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:42:20.461]                       search = base::search(), system = base::Sys.info())
  [14:42:20.461]                   }
  [14:42:20.461]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.461]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:42:20.461]                     cond$call), session = sessionInformation(), 
  [14:42:20.461]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:42:20.461]                   signalCondition(cond)
  [14:42:20.461]                 }
  [14:42:20.461]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:42:20.461]                 "immediateCondition"))) {
  [14:42:20.461]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:42:20.461]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.461]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:42:20.461]                   if (TRUE && !signal) {
  [14:42:20.461]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.461]                     {
  [14:42:20.461]                       inherits <- base::inherits
  [14:42:20.461]                       invokeRestart <- base::invokeRestart
  [14:42:20.461]                       is.null <- base::is.null
  [14:42:20.461]                       muffled <- FALSE
  [14:42:20.461]                       if (inherits(cond, "message")) {
  [14:42:20.461]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.461]                         if (muffled) 
  [14:42:20.461]                           invokeRestart("muffleMessage")
  [14:42:20.461]                       }
  [14:42:20.461]                       else if (inherits(cond, "warning")) {
  [14:42:20.461]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.461]                         if (muffled) 
  [14:42:20.461]                           invokeRestart("muffleWarning")
  [14:42:20.461]                       }
  [14:42:20.461]                       else if (inherits(cond, "condition")) {
  [14:42:20.461]                         if (!is.null(pattern)) {
  [14:42:20.461]                           computeRestarts <- base::computeRestarts
  [14:42:20.461]                           grepl <- base::grepl
  [14:42:20.461]                           restarts <- computeRestarts(cond)
  [14:42:20.461]                           for (restart in restarts) {
  [14:42:20.461]                             name <- restart$name
  [14:42:20.461]                             if (is.null(name)) 
  [14:42:20.461]                               next
  [14:42:20.461]                             if (!grepl(pattern, name)) 
  [14:42:20.461]                               next
  [14:42:20.461]                             invokeRestart(restart)
  [14:42:20.461]                             muffled <- TRUE
  [14:42:20.461]                             break
  [14:42:20.461]                           }
  [14:42:20.461]                         }
  [14:42:20.461]                       }
  [14:42:20.461]                       invisible(muffled)
  [14:42:20.461]                     }
  [14:42:20.461]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.461]                   }
  [14:42:20.461]                 }
  [14:42:20.461]                 else {
  [14:42:20.461]                   if (TRUE) {
  [14:42:20.461]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.461]                     {
  [14:42:20.461]                       inherits <- base::inherits
  [14:42:20.461]                       invokeRestart <- base::invokeRestart
  [14:42:20.461]                       is.null <- base::is.null
  [14:42:20.461]                       muffled <- FALSE
  [14:42:20.461]                       if (inherits(cond, "message")) {
  [14:42:20.461]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.461]                         if (muffled) 
  [14:42:20.461]                           invokeRestart("muffleMessage")
  [14:42:20.461]                       }
  [14:42:20.461]                       else if (inherits(cond, "warning")) {
  [14:42:20.461]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.461]                         if (muffled) 
  [14:42:20.461]                           invokeRestart("muffleWarning")
  [14:42:20.461]                       }
  [14:42:20.461]                       else if (inherits(cond, "condition")) {
  [14:42:20.461]                         if (!is.null(pattern)) {
  [14:42:20.461]                           computeRestarts <- base::computeRestarts
  [14:42:20.461]                           grepl <- base::grepl
  [14:42:20.461]                           restarts <- computeRestarts(cond)
  [14:42:20.461]                           for (restart in restarts) {
  [14:42:20.461]                             name <- restart$name
  [14:42:20.461]                             if (is.null(name)) 
  [14:42:20.461]                               next
  [14:42:20.461]                             if (!grepl(pattern, name)) 
  [14:42:20.461]                               next
  [14:42:20.461]                             invokeRestart(restart)
  [14:42:20.461]                             muffled <- TRUE
  [14:42:20.461]                             break
  [14:42:20.461]                           }
  [14:42:20.461]                         }
  [14:42:20.461]                       }
  [14:42:20.461]                       invisible(muffled)
  [14:42:20.461]                     }
  [14:42:20.461]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.461]                   }
  [14:42:20.461]                 }
  [14:42:20.461]             }
  [14:42:20.461]         }))
  [14:42:20.461]     }, error = function(ex) {
  [14:42:20.461]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:42:20.461]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.461]                 ...future.rng), started = ...future.startTime, 
  [14:42:20.461]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:42:20.461]             version = "1.8"), class = "FutureResult")
  [14:42:20.461]     }, finally = {
  [14:42:20.461]         if (!identical(...future.workdir, getwd())) 
  [14:42:20.461]             setwd(...future.workdir)
  [14:42:20.461]         {
  [14:42:20.461]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:42:20.461]                 ...future.oldOptions$nwarnings <- NULL
  [14:42:20.461]             }
  [14:42:20.461]             base::options(...future.oldOptions)
  [14:42:20.461]             if (.Platform$OS.type == "windows") {
  [14:42:20.461]                 old_names <- names(...future.oldEnvVars)
  [14:42:20.461]                 envs <- base::Sys.getenv()
  [14:42:20.461]                 names <- names(envs)
  [14:42:20.461]                 common <- intersect(names, old_names)
  [14:42:20.461]                 added <- setdiff(names, old_names)
  [14:42:20.461]                 removed <- setdiff(old_names, names)
  [14:42:20.461]                 changed <- common[...future.oldEnvVars[common] != 
  [14:42:20.461]                   envs[common]]
  [14:42:20.461]                 NAMES <- toupper(changed)
  [14:42:20.461]                 args <- list()
  [14:42:20.461]                 for (kk in seq_along(NAMES)) {
  [14:42:20.461]                   name <- changed[[kk]]
  [14:42:20.461]                   NAME <- NAMES[[kk]]
  [14:42:20.461]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.461]                     next
  [14:42:20.461]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.461]                 }
  [14:42:20.461]                 NAMES <- toupper(added)
  [14:42:20.461]                 for (kk in seq_along(NAMES)) {
  [14:42:20.461]                   name <- added[[kk]]
  [14:42:20.461]                   NAME <- NAMES[[kk]]
  [14:42:20.461]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.461]                     next
  [14:42:20.461]                   args[[name]] <- ""
  [14:42:20.461]                 }
  [14:42:20.461]                 NAMES <- toupper(removed)
  [14:42:20.461]                 for (kk in seq_along(NAMES)) {
  [14:42:20.461]                   name <- removed[[kk]]
  [14:42:20.461]                   NAME <- NAMES[[kk]]
  [14:42:20.461]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.461]                     next
  [14:42:20.461]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.461]                 }
  [14:42:20.461]                 if (length(args) > 0) 
  [14:42:20.461]                   base::do.call(base::Sys.setenv, args = args)
  [14:42:20.461]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:42:20.461]             }
  [14:42:20.461]             else {
  [14:42:20.461]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:42:20.461]             }
  [14:42:20.461]             {
  [14:42:20.461]                 if (base::length(...future.futureOptionsAdded) > 
  [14:42:20.461]                   0L) {
  [14:42:20.461]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:42:20.461]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:42:20.461]                   base::options(opts)
  [14:42:20.461]                 }
  [14:42:20.461]                 {
  [14:42:20.461]                   {
  [14:42:20.461]                     NULL
  [14:42:20.461]                     RNGkind("Mersenne-Twister")
  [14:42:20.461]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:42:20.461]                       inherits = FALSE)
  [14:42:20.461]                   }
  [14:42:20.461]                   options(future.plan = NULL)
  [14:42:20.461]                   if (is.na(NA_character_)) 
  [14:42:20.461]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.461]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:42:20.461]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:42:20.461]                   {
  [14:42:20.461]                     future <- SequentialFuture(..., envir = envir)
  [14:42:20.461]                     if (!future$lazy) 
  [14:42:20.461]                       future <- run(future)
  [14:42:20.461]                     invisible(future)
  [14:42:20.461]                   }), .cleanup = FALSE, .init = FALSE)
  [14:42:20.461]                 }
  [14:42:20.461]             }
  [14:42:20.461]         }
  [14:42:20.461]     })
  [14:42:20.461]     if (TRUE) {
  [14:42:20.461]         base::sink(type = "output", split = FALSE)
  [14:42:20.461]         if (TRUE) {
  [14:42:20.461]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:42:20.461]         }
  [14:42:20.461]         else {
  [14:42:20.461]             ...future.result["stdout"] <- base::list(NULL)
  [14:42:20.461]         }
  [14:42:20.461]         base::close(...future.stdout)
  [14:42:20.461]         ...future.stdout <- NULL
  [14:42:20.461]     }
  [14:42:20.461]     ...future.result$conditions <- ...future.conditions
  [14:42:20.461]     ...future.result$finished <- base::Sys.time()
  [14:42:20.461]     ...future.result
  [14:42:20.461] }
  [14:42:20.468] plan(): Setting new future strategy stack:
  [14:42:20.468] List of future strategies:
  [14:42:20.468] 1. sequential:
  [14:42:20.468]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.468]    - tweaked: FALSE
  [14:42:20.468]    - call: NULL
  [14:42:20.469] plan(): nbrOfWorkers() = 1
  [14:42:20.471] plan(): Setting new future strategy stack:
  [14:42:20.471] List of future strategies:
  [14:42:20.471] 1. sequential:
  [14:42:20.471]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.471]    - tweaked: FALSE
  [14:42:20.471]    - call: future::plan("sequential")
  [14:42:20.472] plan(): nbrOfWorkers() = 1
  [14:42:20.473] SequentialFuture started (and completed)
  [14:42:20.473] - Launch lazy future ... done
  [14:42:20.473] run() for 'SequentialFuture' ... done
  [14:42:20.473] - run() ... done
  [14:42:20.474] - resolved() ...
  [14:42:20.474] resolved() for 'SequentialFuture' ...
  [14:42:20.474] - state: 'finished'
  [14:42:20.474] - run: TRUE
  [14:42:20.475] - result: 'FutureResult'
  [14:42:20.475] resolved() for 'SequentialFuture' ... done
  [14:42:20.475] - resolved: TRUE
  [14:42:20.476] - resolved() ... done
  [14:42:20.476] resolved() for 'SequentialFuture' ... done
  [1] TRUE
  > y <- value(f)
  > print(y)
  [1] 42
  > stopifnot(y == 42L)
  > 
  > 
  > message("*** future() w/ gc = TRUE ...")
  *** future() w/ gc = TRUE ...
  > 
  > f <- future(42L, gc = TRUE, lazy = TRUE)
  [14:42:20.477] getGlobalsAndPackages() ...
  [14:42:20.477] Searching for globals...
  [14:42:20.478] 
  [14:42:20.478] Searching for globals ... DONE
  [14:42:20.478] - globals: [0] <none>
  [14:42:20.478] getGlobalsAndPackages() ... DONE
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: TRUE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: e4371207-7341-c3d8-7dfd-fb487052561e
  Class: 'Future', 'environment'
  > y <- value(f)
  [14:42:20.479] run() for 'Future' ...
  [14:42:20.480] - state: 'created'
  [14:42:20.480] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:42:20.481] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:42:20.481] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:42:20.481]   - Field: 'label'
  [14:42:20.481]   - Field: 'local'
  [14:42:20.482]   - Field: 'owner'
  [14:42:20.482]   - Field: 'envir'
  [14:42:20.482]   - Field: 'packages'
  [14:42:20.483]   - Field: 'gc'
  [14:42:20.483]   - Field: 'conditions'
  [14:42:20.483]   - Field: 'expr'
  [14:42:20.484]   - Field: 'uuid'
  [14:42:20.484]   - Field: 'seed'
  [14:42:20.484]   - Field: 'version'
  [14:42:20.484]   - Field: 'result'
  [14:42:20.485]   - Field: 'asynchronous'
  [14:42:20.485]   - Field: 'calls'
  [14:42:20.485]   - Field: 'globals'
  [14:42:20.486]   - Field: 'stdout'
  [14:42:20.486]   - Field: 'earlySignal'
  [14:42:20.486]   - Field: 'lazy'
  [14:42:20.487]   - Field: 'state'
  [14:42:20.487] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:42:20.487] - Launch lazy future ...
  [14:42:20.487] Packages needed by the future expression (n = 0): <none>
  [14:42:20.487] Packages needed by future strategies (n = 0): <none>
  [14:42:20.488] {
  [14:42:20.488]     {
  [14:42:20.488]         {
  [14:42:20.488]             ...future.startTime <- base::Sys.time()
  [14:42:20.488]             {
  [14:42:20.488]                 {
  [14:42:20.488]                   {
  [14:42:20.488]                     base::local({
  [14:42:20.488]                       has_future <- base::requireNamespace("future", 
  [14:42:20.488]                         quietly = TRUE)
  [14:42:20.488]                       if (has_future) {
  [14:42:20.488]                         ns <- base::getNamespace("future")
  [14:42:20.488]                         version <- ns[[".package"]][["version"]]
  [14:42:20.488]                         if (is.null(version)) 
  [14:42:20.488]                           version <- utils::packageVersion("future")
  [14:42:20.488]                       }
  [14:42:20.488]                       else {
  [14:42:20.488]                         version <- NULL
  [14:42:20.488]                       }
  [14:42:20.488]                       if (!has_future || version < "1.8.0") {
  [14:42:20.488]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:42:20.488]                           "", base::R.version$version.string), 
  [14:42:20.488]                           platform = base::sprintf("%s (%s-bit)", 
  [14:42:20.488]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:42:20.488]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:42:20.488]                             "release", "version")], collapse = " "), 
  [14:42:20.488]                           hostname = base::Sys.info()[["nodename"]])
  [14:42:20.488]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:42:20.488]                           info)
  [14:42:20.488]                         info <- base::paste(info, collapse = "; ")
  [14:42:20.488]                         if (!has_future) {
  [14:42:20.488]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:42:20.488]                             info)
  [14:42:20.488]                         }
  [14:42:20.488]                         else {
  [14:42:20.488]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:42:20.488]                             info, version)
  [14:42:20.488]                         }
  [14:42:20.488]                         base::stop(msg)
  [14:42:20.488]                       }
  [14:42:20.488]                     })
  [14:42:20.488]                   }
  [14:42:20.488]                   options(future.plan = NULL)
  [14:42:20.488]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.488]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:42:20.488]                 }
  [14:42:20.488]                 ...future.workdir <- getwd()
  [14:42:20.488]             }
  [14:42:20.488]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:42:20.488]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:42:20.488]         }
  [14:42:20.488]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:42:20.488]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:42:20.488]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:42:20.488]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:42:20.488]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:42:20.488]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:42:20.488]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:42:20.488]             base::names(...future.oldOptions))
  [14:42:20.488]     }
  [14:42:20.488]     if (FALSE) {
  [14:42:20.488]     }
  [14:42:20.488]     else {
  [14:42:20.488]         if (TRUE) {
  [14:42:20.488]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:42:20.488]                 open = "w")
  [14:42:20.488]         }
  [14:42:20.488]         else {
  [14:42:20.488]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:42:20.488]                 windows = "NUL", "/dev/null"), open = "w")
  [14:42:20.488]         }
  [14:42:20.488]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:42:20.488]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:42:20.488]             base::sink(type = "output", split = FALSE)
  [14:42:20.488]             base::close(...future.stdout)
  [14:42:20.488]         }, add = TRUE)
  [14:42:20.488]     }
  [14:42:20.488]     ...future.frame <- base::sys.nframe()
  [14:42:20.488]     ...future.conditions <- base::list()
  [14:42:20.488]     ...future.rng <- base::globalenv()$.Random.seed
  [14:42:20.488]     if (FALSE) {
  [14:42:20.488]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:42:20.488]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:42:20.488]     }
  [14:42:20.488]     ...future.result <- base::tryCatch({
  [14:42:20.488]         base::withCallingHandlers({
  [14:42:20.488]             ...future.value <- base::withVisible(base::local(42L))
  [14:42:20.488]             future::FutureResult(value = ...future.value$value, 
  [14:42:20.488]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.488]                   ...future.rng), globalenv = if (FALSE) 
  [14:42:20.488]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:42:20.488]                     ...future.globalenv.names))
  [14:42:20.488]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:42:20.488]         }, condition = base::local({
  [14:42:20.488]             c <- base::c
  [14:42:20.488]             inherits <- base::inherits
  [14:42:20.488]             invokeRestart <- base::invokeRestart
  [14:42:20.488]             length <- base::length
  [14:42:20.488]             list <- base::list
  [14:42:20.488]             seq.int <- base::seq.int
  [14:42:20.488]             signalCondition <- base::signalCondition
  [14:42:20.488]             sys.calls <- base::sys.calls
  [14:42:20.488]             `[[` <- base::`[[`
  [14:42:20.488]             `+` <- base::`+`
  [14:42:20.488]             `<<-` <- base::`<<-`
  [14:42:20.488]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:42:20.488]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:42:20.488]                   3L)]
  [14:42:20.488]             }
  [14:42:20.488]             function(cond) {
  [14:42:20.488]                 is_error <- inherits(cond, "error")
  [14:42:20.488]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:42:20.488]                   NULL)
  [14:42:20.488]                 if (is_error) {
  [14:42:20.488]                   sessionInformation <- function() {
  [14:42:20.488]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:42:20.488]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:42:20.488]                       search = base::search(), system = base::Sys.info())
  [14:42:20.488]                   }
  [14:42:20.488]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.488]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:42:20.488]                     cond$call), session = sessionInformation(), 
  [14:42:20.488]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:42:20.488]                   signalCondition(cond)
  [14:42:20.488]                 }
  [14:42:20.488]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:42:20.488]                 "immediateCondition"))) {
  [14:42:20.488]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:42:20.488]                   ...future.conditions[[length(...future.conditions) + 
  [14:42:20.488]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:42:20.488]                   if (TRUE && !signal) {
  [14:42:20.488]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.488]                     {
  [14:42:20.488]                       inherits <- base::inherits
  [14:42:20.488]                       invokeRestart <- base::invokeRestart
  [14:42:20.488]                       is.null <- base::is.null
  [14:42:20.488]                       muffled <- FALSE
  [14:42:20.488]                       if (inherits(cond, "message")) {
  [14:42:20.488]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.488]                         if (muffled) 
  [14:42:20.488]                           invokeRestart("muffleMessage")
  [14:42:20.488]                       }
  [14:42:20.488]                       else if (inherits(cond, "warning")) {
  [14:42:20.488]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.488]                         if (muffled) 
  [14:42:20.488]                           invokeRestart("muffleWarning")
  [14:42:20.488]                       }
  [14:42:20.488]                       else if (inherits(cond, "condition")) {
  [14:42:20.488]                         if (!is.null(pattern)) {
  [14:42:20.488]                           computeRestarts <- base::computeRestarts
  [14:42:20.488]                           grepl <- base::grepl
  [14:42:20.488]                           restarts <- computeRestarts(cond)
  [14:42:20.488]                           for (restart in restarts) {
  [14:42:20.488]                             name <- restart$name
  [14:42:20.488]                             if (is.null(name)) 
  [14:42:20.488]                               next
  [14:42:20.488]                             if (!grepl(pattern, name)) 
  [14:42:20.488]                               next
  [14:42:20.488]                             invokeRestart(restart)
  [14:42:20.488]                             muffled <- TRUE
  [14:42:20.488]                             break
  [14:42:20.488]                           }
  [14:42:20.488]                         }
  [14:42:20.488]                       }
  [14:42:20.488]                       invisible(muffled)
  [14:42:20.488]                     }
  [14:42:20.488]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.488]                   }
  [14:42:20.488]                 }
  [14:42:20.488]                 else {
  [14:42:20.488]                   if (TRUE) {
  [14:42:20.488]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:42:20.488]                     {
  [14:42:20.488]                       inherits <- base::inherits
  [14:42:20.488]                       invokeRestart <- base::invokeRestart
  [14:42:20.488]                       is.null <- base::is.null
  [14:42:20.488]                       muffled <- FALSE
  [14:42:20.488]                       if (inherits(cond, "message")) {
  [14:42:20.488]                         muffled <- grepl(pattern, "muffleMessage")
  [14:42:20.488]                         if (muffled) 
  [14:42:20.488]                           invokeRestart("muffleMessage")
  [14:42:20.488]                       }
  [14:42:20.488]                       else if (inherits(cond, "warning")) {
  [14:42:20.488]                         muffled <- grepl(pattern, "muffleWarning")
  [14:42:20.488]                         if (muffled) 
  [14:42:20.488]                           invokeRestart("muffleWarning")
  [14:42:20.488]                       }
  [14:42:20.488]                       else if (inherits(cond, "condition")) {
  [14:42:20.488]                         if (!is.null(pattern)) {
  [14:42:20.488]                           computeRestarts <- base::computeRestarts
  [14:42:20.488]                           grepl <- base::grepl
  [14:42:20.488]                           restarts <- computeRestarts(cond)
  [14:42:20.488]                           for (restart in restarts) {
  [14:42:20.488]                             name <- restart$name
  [14:42:20.488]                             if (is.null(name)) 
  [14:42:20.488]                               next
  [14:42:20.488]                             if (!grepl(pattern, name)) 
  [14:42:20.488]                               next
  [14:42:20.488]                             invokeRestart(restart)
  [14:42:20.488]                             muffled <- TRUE
  [14:42:20.488]                             break
  [14:42:20.488]                           }
  [14:42:20.488]                         }
  [14:42:20.488]                       }
  [14:42:20.488]                       invisible(muffled)
  [14:42:20.488]                     }
  [14:42:20.488]                     muffleCondition(cond, pattern = "^muffle")
  [14:42:20.488]                   }
  [14:42:20.488]                 }
  [14:42:20.488]             }
  [14:42:20.488]         }))
  [14:42:20.488]     }, error = function(ex) {
  [14:42:20.488]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:42:20.488]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:42:20.488]                 ...future.rng), started = ...future.startTime, 
  [14:42:20.488]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:42:20.488]             version = "1.8"), class = "FutureResult")
  [14:42:20.488]     }, finally = {
  [14:42:20.488]         if (!identical(...future.workdir, getwd())) 
  [14:42:20.488]             setwd(...future.workdir)
  [14:42:20.488]         {
  [14:42:20.488]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:42:20.488]                 ...future.oldOptions$nwarnings <- NULL
  [14:42:20.488]             }
  [14:42:20.488]             base::options(...future.oldOptions)
  [14:42:20.488]             if (.Platform$OS.type == "windows") {
  [14:42:20.488]                 old_names <- names(...future.oldEnvVars)
  [14:42:20.488]                 envs <- base::Sys.getenv()
  [14:42:20.488]                 names <- names(envs)
  [14:42:20.488]                 common <- intersect(names, old_names)
  [14:42:20.488]                 added <- setdiff(names, old_names)
  [14:42:20.488]                 removed <- setdiff(old_names, names)
  [14:42:20.488]                 changed <- common[...future.oldEnvVars[common] != 
  [14:42:20.488]                   envs[common]]
  [14:42:20.488]                 NAMES <- toupper(changed)
  [14:42:20.488]                 args <- list()
  [14:42:20.488]                 for (kk in seq_along(NAMES)) {
  [14:42:20.488]                   name <- changed[[kk]]
  [14:42:20.488]                   NAME <- NAMES[[kk]]
  [14:42:20.488]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.488]                     next
  [14:42:20.488]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.488]                 }
  [14:42:20.488]                 NAMES <- toupper(added)
  [14:42:20.488]                 for (kk in seq_along(NAMES)) {
  [14:42:20.488]                   name <- added[[kk]]
  [14:42:20.488]                   NAME <- NAMES[[kk]]
  [14:42:20.488]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.488]                     next
  [14:42:20.488]                   args[[name]] <- ""
  [14:42:20.488]                 }
  [14:42:20.488]                 NAMES <- toupper(removed)
  [14:42:20.488]                 for (kk in seq_along(NAMES)) {
  [14:42:20.488]                   name <- removed[[kk]]
  [14:42:20.488]                   NAME <- NAMES[[kk]]
  [14:42:20.488]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:42:20.488]                     next
  [14:42:20.488]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:42:20.488]                 }
  [14:42:20.488]                 if (length(args) > 0) 
  [14:42:20.488]                   base::do.call(base::Sys.setenv, args = args)
  [14:42:20.488]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:42:20.488]             }
  [14:42:20.488]             else {
  [14:42:20.488]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:42:20.488]             }
  [14:42:20.488]             {
  [14:42:20.488]                 if (base::length(...future.futureOptionsAdded) > 
  [14:42:20.488]                   0L) {
  [14:42:20.488]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:42:20.488]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:42:20.488]                   base::options(opts)
  [14:42:20.488]                 }
  [14:42:20.488]                 {
  [14:42:20.488]                   {
  [14:42:20.488]                     NULL
  [14:42:20.488]                     RNGkind("Mersenne-Twister")
  [14:42:20.488]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:42:20.488]                       inherits = FALSE)
  [14:42:20.488]                   }
  [14:42:20.488]                   options(future.plan = NULL)
  [14:42:20.488]                   if (is.na(NA_character_)) 
  [14:42:20.488]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:42:20.488]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:42:20.488]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:42:20.488]                   {
  [14:42:20.488]                     future <- SequentialFuture(..., envir = envir)
  [14:42:20.488]                     if (!future$lazy) 
  [14:42:20.488]                       future <- run(future)
  [14:42:20.488]                     invisible(future)
  [14:42:20.488]                   }), .cleanup = FALSE, .init = FALSE)
  [14:42:20.488]                 }
  [14:42:20.488]             }
  [14:42:20.488]         }
  [14:42:20.488]     })
  [14:42:20.488]     if (TRUE) {
  [14:42:20.488]         base::sink(type = "output", split = FALSE)
  [14:42:20.488]         if (TRUE) {
  [14:42:20.488]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:42:20.488]         }
  [14:42:20.488]         else {
  [14:42:20.488]             ...future.result["stdout"] <- base::list(NULL)
  [14:42:20.488]         }
  [14:42:20.488]         base::close(...future.stdout)
  [14:42:20.488]         ...future.stdout <- NULL
  [14:42:20.488]     }
  [14:42:20.488]     ...future.result$conditions <- ...future.conditions
  [14:42:20.488]     ...future.result$finished <- base::Sys.time()
  [14:42:20.488]     ...future.result
  [14:42:20.488] }
  [14:42:20.493] plan(): Setting new future strategy stack:
  [14:42:20.493] List of future strategies:
  [14:42:20.493] 1. sequential:
  [14:42:20.493]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.493]    - tweaked: FALSE
  [14:42:20.493]    - call: NULL
  [14:42:20.494] plan(): nbrOfWorkers() = 1
  [14:42:20.495] plan(): Setting new future strategy stack:
  [14:42:20.495] List of future strategies:
  [14:42:20.495] 1. sequential:
  [14:42:20.495]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.495]    - tweaked: FALSE
  [14:42:20.495]    - call: future::plan("sequential")
  [14:42:20.496] plan(): nbrOfWorkers() = 1
  [14:42:20.497] SequentialFuture started (and completed)
  [14:42:20.497] - Launch lazy future ... done
  [14:42:20.497] run() for 'SequentialFuture' ... done
  > print(y)
  [1] 42
  > stopifnot(y == 42L)
  > 
  > message("*** future() w/ gc = TRUE ... DONE")
  *** future() w/ gc = TRUE ... DONE
  > 
  > 
  > message("*** future() - exceptions ...")
  *** future() - exceptions ...
  > 
  > target <- list(name = "<unknown>", envir = new.env(), code = "Yo!", exists = TRUE)
  > res <- tryCatch(get_future(target, mustExist = TRUE), error = identity)
  [14:42:20.498] ERROR: Future ('<unknown>') not found in environment '<noname>': 'Yo!'
  > stopifnot(inherits(res, "error"))
  > 
  > message("*** future() - exceptions ... DONE")
  *** future() - exceptions ... DONE
  > 
  > message("*** future() ... DONE")
  *** future() ... DONE
  > 
  > source("incl/end.R")
  [14:42:20.499] plan(): Setting new future strategy stack:
  [14:42:20.499] List of future strategies:
  [14:42:20.499] 1. FutureStrategy:
  [14:42:20.499]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:42:20.499]    - tweaked: FALSE
  [14:42:20.499]    - call: future::plan(oplan)
  [14:42:20.525] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.51    0.09    0.57 
Running the tests in 'tests/futureAssign_OP_with_listenv.R' failed.
Complete output:
  > source("incl/start.R")
  [14:45:03.413] plan(): Setting new future strategy stack:
  [14:45:03.416] List of future strategies:
  [14:45:03.416] 1. sequential:
  [14:45:03.416]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.416]    - tweaked: FALSE
  [14:45:03.416]    - call: future::plan("sequential")
  [14:45:03.443] plan(): nbrOfWorkers() = 1
  > library("listenv")
  > 
  > message("*** %<-% to listenv ...")
  *** %<-% to listenv ...
  > 
  > ## - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  > ## Future assignment via infix operator
  > ## - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  > z <- listenv()
  > stopifnot(length(names(z)) == 0)
  > 
  > message("*** %<-% to listenv: Assign by index")
  *** %<-% to listenv: Assign by index
  > z[[1]] %<-% { 2 } %lazy% TRUE
  [14:45:03.463] getGlobalsAndPackages() ...
  [14:45:03.464] Searching for globals...
  [14:45:03.470] - globals found: [1] '{'
  [14:45:03.470] Searching for globals ... DONE
  [14:45:03.470] Resolving globals: FALSE
  [14:45:03.471] 
  [14:45:03.471] 
  [14:45:03.472] getGlobalsAndPackages() ... DONE
  > stopifnot(length(z) == 1)
  > stopifnot(length(names(z)) == 0)
  > 
  > z[[1]] %<-% { 2 } %lazy% TRUE
  [14:45:03.473] getGlobalsAndPackages() ...
  [14:45:03.473] Searching for globals...
  [14:45:03.474] - globals found: [1] '{'
  [14:45:03.474] Searching for globals ... DONE
  [14:45:03.475] Resolving globals: FALSE
  [14:45:03.475] 
  [14:45:03.475] 
  [14:45:03.476] getGlobalsAndPackages() ... DONE
  > stopifnot(length(z) == 1)
  > stopifnot(length(names(z)) == 0)
  > 
  > z[[4]] %<-% { "async!" } %lazy% TRUE
  [14:45:03.476] getGlobalsAndPackages() ...
  [14:45:03.477] Searching for globals...
  [14:45:03.478] - globals found: [1] '{'
  [14:45:03.478] Searching for globals ... DONE
  [14:45:03.478] Resolving globals: FALSE
  [14:45:03.479] 
  [14:45:03.479] 
  [14:45:03.479] getGlobalsAndPackages() ... DONE
  > stopifnot(length(z) == 4)
  > stopifnot(length(names(z)) == 0)
  > 
  > message("*** %<-% to listenv: Update names")
  *** %<-% to listenv: Update names
  > names(z) <- c("A", "B", "C", "D")
  > stopifnot(identical(names(z), c("A", "B", "C", "D")))
  > 
  > 
  > message("*** %<-% to listenv: Assign by name (existing)")
  *** %<-% to listenv: Assign by name (existing)
  > z$B %<-% { TRUE } %lazy% TRUE
  [14:45:03.480] getGlobalsAndPackages() ...
  [14:45:03.481] Searching for globals...
  [14:45:03.481] - globals found: [1] '{'
  [14:45:03.482] Searching for globals ... DONE
  [14:45:03.482] Resolving globals: FALSE
  [14:45:03.482] 
  [14:45:03.483] 
  [14:45:03.483] getGlobalsAndPackages() ... DONE
  > stopifnot(length(z) == 4)
  > stopifnot(identical(names(z), c("A", "B", "C", "D")))
  > 
  > y <- as.list(z)
  [14:45:03.484] run() for 'Future' ...
  [14:45:03.484] - state: 'created'
  [14:45:03.485] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.485] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.486] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.486]   - Field: 'label'
  [14:45:03.486]   - Field: 'local'
  [14:45:03.486]   - Field: 'owner'
  [14:45:03.487]   - Field: 'envir'
  [14:45:03.487]   - Field: 'packages'
  [14:45:03.487]   - Field: 'gc'
  [14:45:03.487]   - Field: 'conditions'
  [14:45:03.488]   - Field: 'expr'
  [14:45:03.488]   - Field: 'uuid'
  [14:45:03.488]   - Field: 'seed'
  [14:45:03.488]   - Field: 'version'
  [14:45:03.489]   - Field: 'result'
  [14:45:03.489]   - Field: 'asynchronous'
  [14:45:03.489]   - Field: 'calls'
  [14:45:03.489]   - Field: 'globals'
  [14:45:03.489]   - Field: 'stdout'
  [14:45:03.490]   - Field: 'earlySignal'
  [14:45:03.490]   - Field: 'lazy'
  [14:45:03.490]   - Field: 'state'
  [14:45:03.490] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.491] - Launch lazy future ...
  [14:45:03.492] Packages needed by the future expression (n = 0): <none>
  [14:45:03.492] Packages needed by future strategies (n = 0): <none>
  [14:45:03.497] {
  [14:45:03.497]     {
  [14:45:03.497]         {
  [14:45:03.497]             ...future.startTime <- base::Sys.time()
  [14:45:03.497]             {
  [14:45:03.497]                 {
  [14:45:03.497]                   {
  [14:45:03.497]                     base::local({
  [14:45:03.497]                       has_future <- base::requireNamespace("future", 
  [14:45:03.497]                         quietly = TRUE)
  [14:45:03.497]                       if (has_future) {
  [14:45:03.497]                         ns <- base::getNamespace("future")
  [14:45:03.497]                         version <- ns[[".package"]][["version"]]
  [14:45:03.497]                         if (is.null(version)) 
  [14:45:03.497]                           version <- utils::packageVersion("future")
  [14:45:03.497]                       }
  [14:45:03.497]                       else {
  [14:45:03.497]                         version <- NULL
  [14:45:03.497]                       }
  [14:45:03.497]                       if (!has_future || version < "1.8.0") {
  [14:45:03.497]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.497]                           "", base::R.version$version.string), 
  [14:45:03.497]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.497]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.497]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.497]                             "release", "version")], collapse = " "), 
  [14:45:03.497]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.497]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.497]                           info)
  [14:45:03.497]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.497]                         if (!has_future) {
  [14:45:03.497]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.497]                             info)
  [14:45:03.497]                         }
  [14:45:03.497]                         else {
  [14:45:03.497]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.497]                             info, version)
  [14:45:03.497]                         }
  [14:45:03.497]                         base::stop(msg)
  [14:45:03.497]                       }
  [14:45:03.497]                     })
  [14:45:03.497]                   }
  [14:45:03.497]                   options(future.plan = NULL)
  [14:45:03.497]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.497]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.497]                 }
  [14:45:03.497]                 ...future.workdir <- getwd()
  [14:45:03.497]             }
  [14:45:03.497]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.497]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.497]         }
  [14:45:03.497]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.497]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.497]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.497]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.497]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.497]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.497]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.497]             base::names(...future.oldOptions))
  [14:45:03.497]     }
  [14:45:03.497]     if (FALSE) {
  [14:45:03.497]     }
  [14:45:03.497]     else {
  [14:45:03.497]         if (TRUE) {
  [14:45:03.497]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.497]                 open = "w")
  [14:45:03.497]         }
  [14:45:03.497]         else {
  [14:45:03.497]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.497]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.497]         }
  [14:45:03.497]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.497]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.497]             base::sink(type = "output", split = FALSE)
  [14:45:03.497]             base::close(...future.stdout)
  [14:45:03.497]         }, add = TRUE)
  [14:45:03.497]     }
  [14:45:03.497]     ...future.frame <- base::sys.nframe()
  [14:45:03.497]     ...future.conditions <- base::list()
  [14:45:03.497]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.497]     if (FALSE) {
  [14:45:03.497]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.497]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.497]     }
  [14:45:03.497]     ...future.result <- base::tryCatch({
  [14:45:03.497]         base::withCallingHandlers({
  [14:45:03.497]             ...future.value <- base::withVisible(base::local({
  [14:45:03.497]                 2
  [14:45:03.497]             }))
  [14:45:03.497]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.497]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.497]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.497]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.497]                     ...future.globalenv.names))
  [14:45:03.497]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.497]         }, condition = base::local({
  [14:45:03.497]             c <- base::c
  [14:45:03.497]             inherits <- base::inherits
  [14:45:03.497]             invokeRestart <- base::invokeRestart
  [14:45:03.497]             length <- base::length
  [14:45:03.497]             list <- base::list
  [14:45:03.497]             seq.int <- base::seq.int
  [14:45:03.497]             signalCondition <- base::signalCondition
  [14:45:03.497]             sys.calls <- base::sys.calls
  [14:45:03.497]             `[[` <- base::`[[`
  [14:45:03.497]             `+` <- base::`+`
  [14:45:03.497]             `<<-` <- base::`<<-`
  [14:45:03.497]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.497]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.497]                   3L)]
  [14:45:03.497]             }
  [14:45:03.497]             function(cond) {
  [14:45:03.497]                 is_error <- inherits(cond, "error")
  [14:45:03.497]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.497]                   NULL)
  [14:45:03.497]                 if (is_error) {
  [14:45:03.497]                   sessionInformation <- function() {
  [14:45:03.497]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.497]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.497]                       search = base::search(), system = base::Sys.info())
  [14:45:03.497]                   }
  [14:45:03.497]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.497]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.497]                     cond$call), session = sessionInformation(), 
  [14:45:03.497]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.497]                   signalCondition(cond)
  [14:45:03.497]                 }
  [14:45:03.497]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.497]                 "immediateCondition"))) {
  [14:45:03.497]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.497]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.497]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.497]                   if (TRUE && !signal) {
  [14:45:03.497]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.497]                     {
  [14:45:03.497]                       inherits <- base::inherits
  [14:45:03.497]                       invokeRestart <- base::invokeRestart
  [14:45:03.497]                       is.null <- base::is.null
  [14:45:03.497]                       muffled <- FALSE
  [14:45:03.497]                       if (inherits(cond, "message")) {
  [14:45:03.497]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.497]                         if (muffled) 
  [14:45:03.497]                           invokeRestart("muffleMessage")
  [14:45:03.497]                       }
  [14:45:03.497]                       else if (inherits(cond, "warning")) {
  [14:45:03.497]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.497]                         if (muffled) 
  [14:45:03.497]                           invokeRestart("muffleWarning")
  [14:45:03.497]                       }
  [14:45:03.497]                       else if (inherits(cond, "condition")) {
  [14:45:03.497]                         if (!is.null(pattern)) {
  [14:45:03.497]                           computeRestarts <- base::computeRestarts
  [14:45:03.497]                           grepl <- base::grepl
  [14:45:03.497]                           restarts <- computeRestarts(cond)
  [14:45:03.497]                           for (restart in restarts) {
  [14:45:03.497]                             name <- restart$name
  [14:45:03.497]                             if (is.null(name)) 
  [14:45:03.497]                               next
  [14:45:03.497]                             if (!grepl(pattern, name)) 
  [14:45:03.497]                               next
  [14:45:03.497]                             invokeRestart(restart)
  [14:45:03.497]                             muffled <- TRUE
  [14:45:03.497]                             break
  [14:45:03.497]                           }
  [14:45:03.497]                         }
  [14:45:03.497]                       }
  [14:45:03.497]                       invisible(muffled)
  [14:45:03.497]                     }
  [14:45:03.497]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.497]                   }
  [14:45:03.497]                 }
  [14:45:03.497]                 else {
  [14:45:03.497]                   if (TRUE) {
  [14:45:03.497]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.497]                     {
  [14:45:03.497]                       inherits <- base::inherits
  [14:45:03.497]                       invokeRestart <- base::invokeRestart
  [14:45:03.497]                       is.null <- base::is.null
  [14:45:03.497]                       muffled <- FALSE
  [14:45:03.497]                       if (inherits(cond, "message")) {
  [14:45:03.497]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.497]                         if (muffled) 
  [14:45:03.497]                           invokeRestart("muffleMessage")
  [14:45:03.497]                       }
  [14:45:03.497]                       else if (inherits(cond, "warning")) {
  [14:45:03.497]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.497]                         if (muffled) 
  [14:45:03.497]                           invokeRestart("muffleWarning")
  [14:45:03.497]                       }
  [14:45:03.497]                       else if (inherits(cond, "condition")) {
  [14:45:03.497]                         if (!is.null(pattern)) {
  [14:45:03.497]                           computeRestarts <- base::computeRestarts
  [14:45:03.497]                           grepl <- base::grepl
  [14:45:03.497]                           restarts <- computeRestarts(cond)
  [14:45:03.497]                           for (restart in restarts) {
  [14:45:03.497]                             name <- restart$name
  [14:45:03.497]                             if (is.null(name)) 
  [14:45:03.497]                               next
  [14:45:03.497]                             if (!grepl(pattern, name)) 
  [14:45:03.497]                               next
  [14:45:03.497]                             invokeRestart(restart)
  [14:45:03.497]                             muffled <- TRUE
  [14:45:03.497]                             break
  [14:45:03.497]                           }
  [14:45:03.497]                         }
  [14:45:03.497]                       }
  [14:45:03.497]                       invisible(muffled)
  [14:45:03.497]                     }
  [14:45:03.497]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.497]                   }
  [14:45:03.497]                 }
  [14:45:03.497]             }
  [14:45:03.497]         }))
  [14:45:03.497]     }, error = function(ex) {
  [14:45:03.497]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.497]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.497]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.497]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.497]             version = "1.8"), class = "FutureResult")
  [14:45:03.497]     }, finally = {
  [14:45:03.497]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.497]             setwd(...future.workdir)
  [14:45:03.497]         {
  [14:45:03.497]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.497]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.497]             }
  [14:45:03.497]             base::options(...future.oldOptions)
  [14:45:03.497]             if (.Platform$OS.type == "windows") {
  [14:45:03.497]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.497]                 envs <- base::Sys.getenv()
  [14:45:03.497]                 names <- names(envs)
  [14:45:03.497]                 common <- intersect(names, old_names)
  [14:45:03.497]                 added <- setdiff(names, old_names)
  [14:45:03.497]                 removed <- setdiff(old_names, names)
  [14:45:03.497]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.497]                   envs[common]]
  [14:45:03.497]                 NAMES <- toupper(changed)
  [14:45:03.497]                 args <- list()
  [14:45:03.497]                 for (kk in seq_along(NAMES)) {
  [14:45:03.497]                   name <- changed[[kk]]
  [14:45:03.497]                   NAME <- NAMES[[kk]]
  [14:45:03.497]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.497]                     next
  [14:45:03.497]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.497]                 }
  [14:45:03.497]                 NAMES <- toupper(added)
  [14:45:03.497]                 for (kk in seq_along(NAMES)) {
  [14:45:03.497]                   name <- added[[kk]]
  [14:45:03.497]                   NAME <- NAMES[[kk]]
  [14:45:03.497]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.497]                     next
  [14:45:03.497]                   args[[name]] <- ""
  [14:45:03.497]                 }
  [14:45:03.497]                 NAMES <- toupper(removed)
  [14:45:03.497]                 for (kk in seq_along(NAMES)) {
  [14:45:03.497]                   name <- removed[[kk]]
  [14:45:03.497]                   NAME <- NAMES[[kk]]
  [14:45:03.497]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.497]                     next
  [14:45:03.497]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.497]                 }
  [14:45:03.497]                 if (length(args) > 0) 
  [14:45:03.497]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.497]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.497]             }
  [14:45:03.497]             else {
  [14:45:03.497]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.497]             }
  [14:45:03.497]             {
  [14:45:03.497]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.497]                   0L) {
  [14:45:03.497]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.497]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.497]                   base::options(opts)
  [14:45:03.497]                 }
  [14:45:03.497]                 {
  [14:45:03.497]                   {
  [14:45:03.497]                     NULL
  [14:45:03.497]                     RNGkind("Mersenne-Twister")
  [14:45:03.497]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.497]                       inherits = FALSE)
  [14:45:03.497]                   }
  [14:45:03.497]                   options(future.plan = NULL)
  [14:45:03.497]                   if (is.na(NA_character_)) 
  [14:45:03.497]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.497]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.497]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.497]                   {
  [14:45:03.497]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.497]                     if (!future$lazy) 
  [14:45:03.497]                       future <- run(future)
  [14:45:03.497]                     invisible(future)
  [14:45:03.497]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.497]                 }
  [14:45:03.497]             }
  [14:45:03.497]         }
  [14:45:03.497]     })
  [14:45:03.497]     if (TRUE) {
  [14:45:03.497]         base::sink(type = "output", split = FALSE)
  [14:45:03.497]         if (TRUE) {
  [14:45:03.497]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.497]         }
  [14:45:03.497]         else {
  [14:45:03.497]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.497]         }
  [14:45:03.497]         base::close(...future.stdout)
  [14:45:03.497]         ...future.stdout <- NULL
  [14:45:03.497]     }
  [14:45:03.497]     ...future.result$conditions <- ...future.conditions
  [14:45:03.497]     ...future.result$finished <- base::Sys.time()
  [14:45:03.497]     ...future.result
  [14:45:03.497] }
  [14:45:03.503] plan(): Setting new future strategy stack:
  [14:45:03.503] List of future strategies:
  [14:45:03.503] 1. sequential:
  [14:45:03.503]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.503]    - tweaked: FALSE
  [14:45:03.503]    - call: NULL
  [14:45:03.504] plan(): nbrOfWorkers() = 1
  [14:45:03.507] plan(): Setting new future strategy stack:
  [14:45:03.507] List of future strategies:
  [14:45:03.507] 1. sequential:
  [14:45:03.507]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.507]    - tweaked: FALSE
  [14:45:03.507]    - call: future::plan("sequential")
  [14:45:03.508] plan(): nbrOfWorkers() = 1
  [14:45:03.508] SequentialFuture started (and completed)
  [14:45:03.509] - Launch lazy future ... done
  [14:45:03.509] run() for 'SequentialFuture' ... done
  [14:45:03.510] run() for 'Future' ...
  [14:45:03.510] - state: 'created'
  [14:45:03.510] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.511] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.511] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.511]   - Field: 'label'
  [14:45:03.511]   - Field: 'local'
  [14:45:03.512]   - Field: 'owner'
  [14:45:03.512]   - Field: 'envir'
  [14:45:03.512]   - Field: 'packages'
  [14:45:03.512]   - Field: 'gc'
  [14:45:03.513]   - Field: 'conditions'
  [14:45:03.513]   - Field: 'expr'
  [14:45:03.513]   - Field: 'uuid'
  [14:45:03.513]   - Field: 'seed'
  [14:45:03.513]   - Field: 'version'
  [14:45:03.514]   - Field: 'result'
  [14:45:03.514]   - Field: 'asynchronous'
  [14:45:03.514]   - Field: 'calls'
  [14:45:03.514]   - Field: 'globals'
  [14:45:03.515]   - Field: 'stdout'
  [14:45:03.515]   - Field: 'earlySignal'
  [14:45:03.515]   - Field: 'lazy'
  [14:45:03.515]   - Field: 'state'
  [14:45:03.516] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.516] - Launch lazy future ...
  [14:45:03.516] Packages needed by the future expression (n = 0): <none>
  [14:45:03.516] Packages needed by future strategies (n = 0): <none>
  [14:45:03.517] {
  [14:45:03.517]     {
  [14:45:03.517]         {
  [14:45:03.517]             ...future.startTime <- base::Sys.time()
  [14:45:03.517]             {
  [14:45:03.517]                 {
  [14:45:03.517]                   {
  [14:45:03.517]                     base::local({
  [14:45:03.517]                       has_future <- base::requireNamespace("future", 
  [14:45:03.517]                         quietly = TRUE)
  [14:45:03.517]                       if (has_future) {
  [14:45:03.517]                         ns <- base::getNamespace("future")
  [14:45:03.517]                         version <- ns[[".package"]][["version"]]
  [14:45:03.517]                         if (is.null(version)) 
  [14:45:03.517]                           version <- utils::packageVersion("future")
  [14:45:03.517]                       }
  [14:45:03.517]                       else {
  [14:45:03.517]                         version <- NULL
  [14:45:03.517]                       }
  [14:45:03.517]                       if (!has_future || version < "1.8.0") {
  [14:45:03.517]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.517]                           "", base::R.version$version.string), 
  [14:45:03.517]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.517]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.517]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.517]                             "release", "version")], collapse = " "), 
  [14:45:03.517]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.517]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.517]                           info)
  [14:45:03.517]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.517]                         if (!has_future) {
  [14:45:03.517]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.517]                             info)
  [14:45:03.517]                         }
  [14:45:03.517]                         else {
  [14:45:03.517]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.517]                             info, version)
  [14:45:03.517]                         }
  [14:45:03.517]                         base::stop(msg)
  [14:45:03.517]                       }
  [14:45:03.517]                     })
  [14:45:03.517]                   }
  [14:45:03.517]                   options(future.plan = NULL)
  [14:45:03.517]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.517]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.517]                 }
  [14:45:03.517]                 ...future.workdir <- getwd()
  [14:45:03.517]             }
  [14:45:03.517]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.517]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.517]         }
  [14:45:03.517]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.517]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.517]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.517]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.517]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.517]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.517]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.517]             base::names(...future.oldOptions))
  [14:45:03.517]     }
  [14:45:03.517]     if (FALSE) {
  [14:45:03.517]     }
  [14:45:03.517]     else {
  [14:45:03.517]         if (TRUE) {
  [14:45:03.517]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.517]                 open = "w")
  [14:45:03.517]         }
  [14:45:03.517]         else {
  [14:45:03.517]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.517]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.517]         }
  [14:45:03.517]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.517]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.517]             base::sink(type = "output", split = FALSE)
  [14:45:03.517]             base::close(...future.stdout)
  [14:45:03.517]         }, add = TRUE)
  [14:45:03.517]     }
  [14:45:03.517]     ...future.frame <- base::sys.nframe()
  [14:45:03.517]     ...future.conditions <- base::list()
  [14:45:03.517]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.517]     if (FALSE) {
  [14:45:03.517]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.517]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.517]     }
  [14:45:03.517]     ...future.result <- base::tryCatch({
  [14:45:03.517]         base::withCallingHandlers({
  [14:45:03.517]             ...future.value <- base::withVisible(base::local({
  [14:45:03.517]                 "async!"
  [14:45:03.517]             }))
  [14:45:03.517]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.517]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.517]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.517]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.517]                     ...future.globalenv.names))
  [14:45:03.517]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.517]         }, condition = base::local({
  [14:45:03.517]             c <- base::c
  [14:45:03.517]             inherits <- base::inherits
  [14:45:03.517]             invokeRestart <- base::invokeRestart
  [14:45:03.517]             length <- base::length
  [14:45:03.517]             list <- base::list
  [14:45:03.517]             seq.int <- base::seq.int
  [14:45:03.517]             signalCondition <- base::signalCondition
  [14:45:03.517]             sys.calls <- base::sys.calls
  [14:45:03.517]             `[[` <- base::`[[`
  [14:45:03.517]             `+` <- base::`+`
  [14:45:03.517]             `<<-` <- base::`<<-`
  [14:45:03.517]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.517]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.517]                   3L)]
  [14:45:03.517]             }
  [14:45:03.517]             function(cond) {
  [14:45:03.517]                 is_error <- inherits(cond, "error")
  [14:45:03.517]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.517]                   NULL)
  [14:45:03.517]                 if (is_error) {
  [14:45:03.517]                   sessionInformation <- function() {
  [14:45:03.517]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.517]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.517]                       search = base::search(), system = base::Sys.info())
  [14:45:03.517]                   }
  [14:45:03.517]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.517]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.517]                     cond$call), session = sessionInformation(), 
  [14:45:03.517]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.517]                   signalCondition(cond)
  [14:45:03.517]                 }
  [14:45:03.517]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.517]                 "immediateCondition"))) {
  [14:45:03.517]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.517]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.517]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.517]                   if (TRUE && !signal) {
  [14:45:03.517]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.517]                     {
  [14:45:03.517]                       inherits <- base::inherits
  [14:45:03.517]                       invokeRestart <- base::invokeRestart
  [14:45:03.517]                       is.null <- base::is.null
  [14:45:03.517]                       muffled <- FALSE
  [14:45:03.517]                       if (inherits(cond, "message")) {
  [14:45:03.517]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.517]                         if (muffled) 
  [14:45:03.517]                           invokeRestart("muffleMessage")
  [14:45:03.517]                       }
  [14:45:03.517]                       else if (inherits(cond, "warning")) {
  [14:45:03.517]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.517]                         if (muffled) 
  [14:45:03.517]                           invokeRestart("muffleWarning")
  [14:45:03.517]                       }
  [14:45:03.517]                       else if (inherits(cond, "condition")) {
  [14:45:03.517]                         if (!is.null(pattern)) {
  [14:45:03.517]                           computeRestarts <- base::computeRestarts
  [14:45:03.517]                           grepl <- base::grepl
  [14:45:03.517]                           restarts <- computeRestarts(cond)
  [14:45:03.517]                           for (restart in restarts) {
  [14:45:03.517]                             name <- restart$name
  [14:45:03.517]                             if (is.null(name)) 
  [14:45:03.517]                               next
  [14:45:03.517]                             if (!grepl(pattern, name)) 
  [14:45:03.517]                               next
  [14:45:03.517]                             invokeRestart(restart)
  [14:45:03.517]                             muffled <- TRUE
  [14:45:03.517]                             break
  [14:45:03.517]                           }
  [14:45:03.517]                         }
  [14:45:03.517]                       }
  [14:45:03.517]                       invisible(muffled)
  [14:45:03.517]                     }
  [14:45:03.517]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.517]                   }
  [14:45:03.517]                 }
  [14:45:03.517]                 else {
  [14:45:03.517]                   if (TRUE) {
  [14:45:03.517]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.517]                     {
  [14:45:03.517]                       inherits <- base::inherits
  [14:45:03.517]                       invokeRestart <- base::invokeRestart
  [14:45:03.517]                       is.null <- base::is.null
  [14:45:03.517]                       muffled <- FALSE
  [14:45:03.517]                       if (inherits(cond, "message")) {
  [14:45:03.517]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.517]                         if (muffled) 
  [14:45:03.517]                           invokeRestart("muffleMessage")
  [14:45:03.517]                       }
  [14:45:03.517]                       else if (inherits(cond, "warning")) {
  [14:45:03.517]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.517]                         if (muffled) 
  [14:45:03.517]                           invokeRestart("muffleWarning")
  [14:45:03.517]                       }
  [14:45:03.517]                       else if (inherits(cond, "condition")) {
  [14:45:03.517]                         if (!is.null(pattern)) {
  [14:45:03.517]                           computeRestarts <- base::computeRestarts
  [14:45:03.517]                           grepl <- base::grepl
  [14:45:03.517]                           restarts <- computeRestarts(cond)
  [14:45:03.517]                           for (restart in restarts) {
  [14:45:03.517]                             name <- restart$name
  [14:45:03.517]                             if (is.null(name)) 
  [14:45:03.517]                               next
  [14:45:03.517]                             if (!grepl(pattern, name)) 
  [14:45:03.517]                               next
  [14:45:03.517]                             invokeRestart(restart)
  [14:45:03.517]                             muffled <- TRUE
  [14:45:03.517]                             break
  [14:45:03.517]                           }
  [14:45:03.517]                         }
  [14:45:03.517]                       }
  [14:45:03.517]                       invisible(muffled)
  [14:45:03.517]                     }
  [14:45:03.517]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.517]                   }
  [14:45:03.517]                 }
  [14:45:03.517]             }
  [14:45:03.517]         }))
  [14:45:03.517]     }, error = function(ex) {
  [14:45:03.517]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.517]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.517]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.517]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.517]             version = "1.8"), class = "FutureResult")
  [14:45:03.517]     }, finally = {
  [14:45:03.517]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.517]             setwd(...future.workdir)
  [14:45:03.517]         {
  [14:45:03.517]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.517]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.517]             }
  [14:45:03.517]             base::options(...future.oldOptions)
  [14:45:03.517]             if (.Platform$OS.type == "windows") {
  [14:45:03.517]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.517]                 envs <- base::Sys.getenv()
  [14:45:03.517]                 names <- names(envs)
  [14:45:03.517]                 common <- intersect(names, old_names)
  [14:45:03.517]                 added <- setdiff(names, old_names)
  [14:45:03.517]                 removed <- setdiff(old_names, names)
  [14:45:03.517]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.517]                   envs[common]]
  [14:45:03.517]                 NAMES <- toupper(changed)
  [14:45:03.517]                 args <- list()
  [14:45:03.517]                 for (kk in seq_along(NAMES)) {
  [14:45:03.517]                   name <- changed[[kk]]
  [14:45:03.517]                   NAME <- NAMES[[kk]]
  [14:45:03.517]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.517]                     next
  [14:45:03.517]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.517]                 }
  [14:45:03.517]                 NAMES <- toupper(added)
  [14:45:03.517]                 for (kk in seq_along(NAMES)) {
  [14:45:03.517]                   name <- added[[kk]]
  [14:45:03.517]                   NAME <- NAMES[[kk]]
  [14:45:03.517]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.517]                     next
  [14:45:03.517]                   args[[name]] <- ""
  [14:45:03.517]                 }
  [14:45:03.517]                 NAMES <- toupper(removed)
  [14:45:03.517]                 for (kk in seq_along(NAMES)) {
  [14:45:03.517]                   name <- removed[[kk]]
  [14:45:03.517]                   NAME <- NAMES[[kk]]
  [14:45:03.517]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.517]                     next
  [14:45:03.517]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.517]                 }
  [14:45:03.517]                 if (length(args) > 0) 
  [14:45:03.517]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.517]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.517]             }
  [14:45:03.517]             else {
  [14:45:03.517]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.517]             }
  [14:45:03.517]             {
  [14:45:03.517]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.517]                   0L) {
  [14:45:03.517]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.517]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.517]                   base::options(opts)
  [14:45:03.517]                 }
  [14:45:03.517]                 {
  [14:45:03.517]                   {
  [14:45:03.517]                     NULL
  [14:45:03.517]                     RNGkind("Mersenne-Twister")
  [14:45:03.517]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.517]                       inherits = FALSE)
  [14:45:03.517]                   }
  [14:45:03.517]                   options(future.plan = NULL)
  [14:45:03.517]                   if (is.na(NA_character_)) 
  [14:45:03.517]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.517]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.517]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.517]                   {
  [14:45:03.517]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.517]                     if (!future$lazy) 
  [14:45:03.517]                       future <- run(future)
  [14:45:03.517]                     invisible(future)
  [14:45:03.517]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.517]                 }
  [14:45:03.517]             }
  [14:45:03.517]         }
  [14:45:03.517]     })
  [14:45:03.517]     if (TRUE) {
  [14:45:03.517]         base::sink(type = "output", split = FALSE)
  [14:45:03.517]         if (TRUE) {
  [14:45:03.517]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.517]         }
  [14:45:03.517]         else {
  [14:45:03.517]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.517]         }
  [14:45:03.517]         base::close(...future.stdout)
  [14:45:03.517]         ...future.stdout <- NULL
  [14:45:03.517]     }
  [14:45:03.517]     ...future.result$conditions <- ...future.conditions
  [14:45:03.517]     ...future.result$finished <- base::Sys.time()
  [14:45:03.517]     ...future.result
  [14:45:03.517] }
  [14:45:03.524] plan(): Setting new future strategy stack:
  [14:45:03.524] List of future strategies:
  [14:45:03.524] 1. sequential:
  [14:45:03.524]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.524]    - tweaked: FALSE
  [14:45:03.524]    - call: NULL
  [14:45:03.525] plan(): nbrOfWorkers() = 1
  [14:45:03.527] plan(): Setting new future strategy stack:
  [14:45:03.528] List of future strategies:
  [14:45:03.528] 1. sequential:
  [14:45:03.528]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.528]    - tweaked: FALSE
  [14:45:03.528]    - call: future::plan("sequential")
  [14:45:03.529] plan(): nbrOfWorkers() = 1
  [14:45:03.529] SequentialFuture started (and completed)
  [14:45:03.529] - Launch lazy future ... done
  [14:45:03.530] run() for 'SequentialFuture' ... done
  > str(y)
  List of 4
   $ A: num 2
   $ B: NULL
   $ C: NULL
   $ D: chr "async!"
  > stopifnot(length(y) == 4)
  > stopifnot(identical(names(y), c("A", "B", "C", "D")))
  > 
  > 
  > message("*** %<-% to listenv: Asserting no name clashes among futures")
  *** %<-% to listenv: Asserting no name clashes among futures
  > u <- listenv()
  > u$a %<-% { 1 } %lazy% TRUE
  [14:45:03.537] getGlobalsAndPackages() ...
  [14:45:03.538] Searching for globals...
  [14:45:03.539] - globals found: [1] '{'
  [14:45:03.539] Searching for globals ... DONE
  [14:45:03.539] Resolving globals: FALSE
  [14:45:03.540] 
  [14:45:03.540] 
  [14:45:03.541] getGlobalsAndPackages() ... DONE
  > stopifnot(identical(names(u), "a"))
  > fu <- futureOf(u$a)
  > 
  > v <- listenv()
  > v$a %<-% { 2 } %lazy% TRUE
  [14:45:03.542] getGlobalsAndPackages() ...
  [14:45:03.542] Searching for globals...
  [14:45:03.544] - globals found: [1] '{'
  [14:45:03.544] Searching for globals ... DONE
  [14:45:03.544] Resolving globals: FALSE
  [14:45:03.545] 
  [14:45:03.545] 
  [14:45:03.545] getGlobalsAndPackages() ... DONE
  > stopifnot(identical(names(v), "a"))
  > fv <- futureOf(v$a)
  > stopifnot(!identical(fu, fv))
  > 
  > fu <- futureOf(u$a)
  > stopifnot(!identical(fu, fv))
  > 
  > stopifnot(identical(u$a, 1))
  [14:45:03.547] run() for 'Future' ...
  [14:45:03.547] - state: 'created'
  [14:45:03.547] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.548] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.548] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.549]   - Field: 'label'
  [14:45:03.549]   - Field: 'local'
  [14:45:03.549]   - Field: 'owner'
  [14:45:03.549]   - Field: 'envir'
  [14:45:03.550]   - Field: 'packages'
  [14:45:03.550]   - Field: 'gc'
  [14:45:03.550]   - Field: 'conditions'
  [14:45:03.550]   - Field: 'expr'
  [14:45:03.551]   - Field: 'uuid'
  [14:45:03.551]   - Field: 'seed'
  [14:45:03.551]   - Field: 'version'
  [14:45:03.552]   - Field: 'result'
  [14:45:03.552]   - Field: 'asynchronous'
  [14:45:03.552]   - Field: 'calls'
  [14:45:03.552]   - Field: 'globals'
  [14:45:03.553]   - Field: 'stdout'
  [14:45:03.553]   - Field: 'earlySignal'
  [14:45:03.553]   - Field: 'lazy'
  [14:45:03.553]   - Field: 'state'
  [14:45:03.554] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.554] - Launch lazy future ...
  [14:45:03.554] Packages needed by the future expression (n = 0): <none>
  [14:45:03.555] Packages needed by future strategies (n = 0): <none>
  [14:45:03.556] {
  [14:45:03.556]     {
  [14:45:03.556]         {
  [14:45:03.556]             ...future.startTime <- base::Sys.time()
  [14:45:03.556]             {
  [14:45:03.556]                 {
  [14:45:03.556]                   {
  [14:45:03.556]                     base::local({
  [14:45:03.556]                       has_future <- base::requireNamespace("future", 
  [14:45:03.556]                         quietly = TRUE)
  [14:45:03.556]                       if (has_future) {
  [14:45:03.556]                         ns <- base::getNamespace("future")
  [14:45:03.556]                         version <- ns[[".package"]][["version"]]
  [14:45:03.556]                         if (is.null(version)) 
  [14:45:03.556]                           version <- utils::packageVersion("future")
  [14:45:03.556]                       }
  [14:45:03.556]                       else {
  [14:45:03.556]                         version <- NULL
  [14:45:03.556]                       }
  [14:45:03.556]                       if (!has_future || version < "1.8.0") {
  [14:45:03.556]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.556]                           "", base::R.version$version.string), 
  [14:45:03.556]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.556]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.556]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.556]                             "release", "version")], collapse = " "), 
  [14:45:03.556]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.556]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.556]                           info)
  [14:45:03.556]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.556]                         if (!has_future) {
  [14:45:03.556]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.556]                             info)
  [14:45:03.556]                         }
  [14:45:03.556]                         else {
  [14:45:03.556]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.556]                             info, version)
  [14:45:03.556]                         }
  [14:45:03.556]                         base::stop(msg)
  [14:45:03.556]                       }
  [14:45:03.556]                     })
  [14:45:03.556]                   }
  [14:45:03.556]                   options(future.plan = NULL)
  [14:45:03.556]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.556]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.556]                 }
  [14:45:03.556]                 ...future.workdir <- getwd()
  [14:45:03.556]             }
  [14:45:03.556]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.556]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.556]         }
  [14:45:03.556]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.556]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.556]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.556]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.556]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.556]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.556]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.556]             base::names(...future.oldOptions))
  [14:45:03.556]     }
  [14:45:03.556]     if (FALSE) {
  [14:45:03.556]     }
  [14:45:03.556]     else {
  [14:45:03.556]         if (TRUE) {
  [14:45:03.556]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.556]                 open = "w")
  [14:45:03.556]         }
  [14:45:03.556]         else {
  [14:45:03.556]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.556]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.556]         }
  [14:45:03.556]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.556]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.556]             base::sink(type = "output", split = FALSE)
  [14:45:03.556]             base::close(...future.stdout)
  [14:45:03.556]         }, add = TRUE)
  [14:45:03.556]     }
  [14:45:03.556]     ...future.frame <- base::sys.nframe()
  [14:45:03.556]     ...future.conditions <- base::list()
  [14:45:03.556]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.556]     if (FALSE) {
  [14:45:03.556]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.556]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.556]     }
  [14:45:03.556]     ...future.result <- base::tryCatch({
  [14:45:03.556]         base::withCallingHandlers({
  [14:45:03.556]             ...future.value <- base::withVisible(base::local({
  [14:45:03.556]                 1
  [14:45:03.556]             }))
  [14:45:03.556]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.556]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.556]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.556]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.556]                     ...future.globalenv.names))
  [14:45:03.556]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.556]         }, condition = base::local({
  [14:45:03.556]             c <- base::c
  [14:45:03.556]             inherits <- base::inherits
  [14:45:03.556]             invokeRestart <- base::invokeRestart
  [14:45:03.556]             length <- base::length
  [14:45:03.556]             list <- base::list
  [14:45:03.556]             seq.int <- base::seq.int
  [14:45:03.556]             signalCondition <- base::signalCondition
  [14:45:03.556]             sys.calls <- base::sys.calls
  [14:45:03.556]             `[[` <- base::`[[`
  [14:45:03.556]             `+` <- base::`+`
  [14:45:03.556]             `<<-` <- base::`<<-`
  [14:45:03.556]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.556]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.556]                   3L)]
  [14:45:03.556]             }
  [14:45:03.556]             function(cond) {
  [14:45:03.556]                 is_error <- inherits(cond, "error")
  [14:45:03.556]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.556]                   NULL)
  [14:45:03.556]                 if (is_error) {
  [14:45:03.556]                   sessionInformation <- function() {
  [14:45:03.556]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.556]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.556]                       search = base::search(), system = base::Sys.info())
  [14:45:03.556]                   }
  [14:45:03.556]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.556]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.556]                     cond$call), session = sessionInformation(), 
  [14:45:03.556]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.556]                   signalCondition(cond)
  [14:45:03.556]                 }
  [14:45:03.556]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.556]                 "immediateCondition"))) {
  [14:45:03.556]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.556]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.556]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.556]                   if (TRUE && !signal) {
  [14:45:03.556]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.556]                     {
  [14:45:03.556]                       inherits <- base::inherits
  [14:45:03.556]                       invokeRestart <- base::invokeRestart
  [14:45:03.556]                       is.null <- base::is.null
  [14:45:03.556]                       muffled <- FALSE
  [14:45:03.556]                       if (inherits(cond, "message")) {
  [14:45:03.556]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.556]                         if (muffled) 
  [14:45:03.556]                           invokeRestart("muffleMessage")
  [14:45:03.556]                       }
  [14:45:03.556]                       else if (inherits(cond, "warning")) {
  [14:45:03.556]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.556]                         if (muffled) 
  [14:45:03.556]                           invokeRestart("muffleWarning")
  [14:45:03.556]                       }
  [14:45:03.556]                       else if (inherits(cond, "condition")) {
  [14:45:03.556]                         if (!is.null(pattern)) {
  [14:45:03.556]                           computeRestarts <- base::computeRestarts
  [14:45:03.556]                           grepl <- base::grepl
  [14:45:03.556]                           restarts <- computeRestarts(cond)
  [14:45:03.556]                           for (restart in restarts) {
  [14:45:03.556]                             name <- restart$name
  [14:45:03.556]                             if (is.null(name)) 
  [14:45:03.556]                               next
  [14:45:03.556]                             if (!grepl(pattern, name)) 
  [14:45:03.556]                               next
  [14:45:03.556]                             invokeRestart(restart)
  [14:45:03.556]                             muffled <- TRUE
  [14:45:03.556]                             break
  [14:45:03.556]                           }
  [14:45:03.556]                         }
  [14:45:03.556]                       }
  [14:45:03.556]                       invisible(muffled)
  [14:45:03.556]                     }
  [14:45:03.556]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.556]                   }
  [14:45:03.556]                 }
  [14:45:03.556]                 else {
  [14:45:03.556]                   if (TRUE) {
  [14:45:03.556]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.556]                     {
  [14:45:03.556]                       inherits <- base::inherits
  [14:45:03.556]                       invokeRestart <- base::invokeRestart
  [14:45:03.556]                       is.null <- base::is.null
  [14:45:03.556]                       muffled <- FALSE
  [14:45:03.556]                       if (inherits(cond, "message")) {
  [14:45:03.556]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.556]                         if (muffled) 
  [14:45:03.556]                           invokeRestart("muffleMessage")
  [14:45:03.556]                       }
  [14:45:03.556]                       else if (inherits(cond, "warning")) {
  [14:45:03.556]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.556]                         if (muffled) 
  [14:45:03.556]                           invokeRestart("muffleWarning")
  [14:45:03.556]                       }
  [14:45:03.556]                       else if (inherits(cond, "condition")) {
  [14:45:03.556]                         if (!is.null(pattern)) {
  [14:45:03.556]                           computeRestarts <- base::computeRestarts
  [14:45:03.556]                           grepl <- base::grepl
  [14:45:03.556]                           restarts <- computeRestarts(cond)
  [14:45:03.556]                           for (restart in restarts) {
  [14:45:03.556]                             name <- restart$name
  [14:45:03.556]                             if (is.null(name)) 
  [14:45:03.556]                               next
  [14:45:03.556]                             if (!grepl(pattern, name)) 
  [14:45:03.556]                               next
  [14:45:03.556]                             invokeRestart(restart)
  [14:45:03.556]                             muffled <- TRUE
  [14:45:03.556]                             break
  [14:45:03.556]                           }
  [14:45:03.556]                         }
  [14:45:03.556]                       }
  [14:45:03.556]                       invisible(muffled)
  [14:45:03.556]                     }
  [14:45:03.556]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.556]                   }
  [14:45:03.556]                 }
  [14:45:03.556]             }
  [14:45:03.556]         }))
  [14:45:03.556]     }, error = function(ex) {
  [14:45:03.556]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.556]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.556]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.556]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.556]             version = "1.8"), class = "FutureResult")
  [14:45:03.556]     }, finally = {
  [14:45:03.556]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.556]             setwd(...future.workdir)
  [14:45:03.556]         {
  [14:45:03.556]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.556]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.556]             }
  [14:45:03.556]             base::options(...future.oldOptions)
  [14:45:03.556]             if (.Platform$OS.type == "windows") {
  [14:45:03.556]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.556]                 envs <- base::Sys.getenv()
  [14:45:03.556]                 names <- names(envs)
  [14:45:03.556]                 common <- intersect(names, old_names)
  [14:45:03.556]                 added <- setdiff(names, old_names)
  [14:45:03.556]                 removed <- setdiff(old_names, names)
  [14:45:03.556]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.556]                   envs[common]]
  [14:45:03.556]                 NAMES <- toupper(changed)
  [14:45:03.556]                 args <- list()
  [14:45:03.556]                 for (kk in seq_along(NAMES)) {
  [14:45:03.556]                   name <- changed[[kk]]
  [14:45:03.556]                   NAME <- NAMES[[kk]]
  [14:45:03.556]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.556]                     next
  [14:45:03.556]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.556]                 }
  [14:45:03.556]                 NAMES <- toupper(added)
  [14:45:03.556]                 for (kk in seq_along(NAMES)) {
  [14:45:03.556]                   name <- added[[kk]]
  [14:45:03.556]                   NAME <- NAMES[[kk]]
  [14:45:03.556]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.556]                     next
  [14:45:03.556]                   args[[name]] <- ""
  [14:45:03.556]                 }
  [14:45:03.556]                 NAMES <- toupper(removed)
  [14:45:03.556]                 for (kk in seq_along(NAMES)) {
  [14:45:03.556]                   name <- removed[[kk]]
  [14:45:03.556]                   NAME <- NAMES[[kk]]
  [14:45:03.556]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.556]                     next
  [14:45:03.556]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.556]                 }
  [14:45:03.556]                 if (length(args) > 0) 
  [14:45:03.556]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.556]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.556]             }
  [14:45:03.556]             else {
  [14:45:03.556]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.556]             }
  [14:45:03.556]             {
  [14:45:03.556]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.556]                   0L) {
  [14:45:03.556]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.556]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.556]                   base::options(opts)
  [14:45:03.556]                 }
  [14:45:03.556]                 {
  [14:45:03.556]                   {
  [14:45:03.556]                     NULL
  [14:45:03.556]                     RNGkind("Mersenne-Twister")
  [14:45:03.556]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.556]                       inherits = FALSE)
  [14:45:03.556]                   }
  [14:45:03.556]                   options(future.plan = NULL)
  [14:45:03.556]                   if (is.na(NA_character_)) 
  [14:45:03.556]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.556]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.556]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.556]                   {
  [14:45:03.556]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.556]                     if (!future$lazy) 
  [14:45:03.556]                       future <- run(future)
  [14:45:03.556]                     invisible(future)
  [14:45:03.556]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.556]                 }
  [14:45:03.556]             }
  [14:45:03.556]         }
  [14:45:03.556]     })
  [14:45:03.556]     if (TRUE) {
  [14:45:03.556]         base::sink(type = "output", split = FALSE)
  [14:45:03.556]         if (TRUE) {
  [14:45:03.556]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.556]         }
  [14:45:03.556]         else {
  [14:45:03.556]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.556]         }
  [14:45:03.556]         base::close(...future.stdout)
  [14:45:03.556]         ...future.stdout <- NULL
  [14:45:03.556]     }
  [14:45:03.556]     ...future.result$conditions <- ...future.conditions
  [14:45:03.556]     ...future.result$finished <- base::Sys.time()
  [14:45:03.556]     ...future.result
  [14:45:03.556] }
  [14:45:03.563] plan(): Setting new future strategy stack:
  [14:45:03.564] List of future strategies:
  [14:45:03.564] 1. sequential:
  [14:45:03.564]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.564]    - tweaked: FALSE
  [14:45:03.564]    - call: NULL
  [14:45:03.565] plan(): nbrOfWorkers() = 1
  [14:45:03.567] plan(): Setting new future strategy stack:
  [14:45:03.567] List of future strategies:
  [14:45:03.567] 1. sequential:
  [14:45:03.567]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.567]    - tweaked: FALSE
  [14:45:03.567]    - call: future::plan("sequential")
  [14:45:03.568] plan(): nbrOfWorkers() = 1
  [14:45:03.568] SequentialFuture started (and completed)
  [14:45:03.569] - Launch lazy future ... done
  [14:45:03.569] run() for 'SequentialFuture' ... done
  > stopifnot(identical(v$a, 2))
  [14:45:03.569] run() for 'Future' ...
  [14:45:03.570] - state: 'created'
  [14:45:03.570] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.571] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.571] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.571]   - Field: 'label'
  [14:45:03.572]   - Field: 'local'
  [14:45:03.572]   - Field: 'owner'
  [14:45:03.575]   - Field: 'envir'
  [14:45:03.576]   - Field: 'packages'
  [14:45:03.576]   - Field: 'gc'
  [14:45:03.576]   - Field: 'conditions'
  [14:45:03.577]   - Field: 'expr'
  [14:45:03.577]   - Field: 'uuid'
  [14:45:03.577]   - Field: 'seed'
  [14:45:03.577]   - Field: 'version'
  [14:45:03.578]   - Field: 'result'
  [14:45:03.578]   - Field: 'asynchronous'
  [14:45:03.578]   - Field: 'calls'
  [14:45:03.578]   - Field: 'globals'
  [14:45:03.579]   - Field: 'stdout'
  [14:45:03.579]   - Field: 'earlySignal'
  [14:45:03.579]   - Field: 'lazy'
  [14:45:03.580]   - Field: 'state'
  [14:45:03.580] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.580] - Launch lazy future ...
  [14:45:03.580] Packages needed by the future expression (n = 0): <none>
  [14:45:03.581] Packages needed by future strategies (n = 0): <none>
  [14:45:03.582] {
  [14:45:03.582]     {
  [14:45:03.582]         {
  [14:45:03.582]             ...future.startTime <- base::Sys.time()
  [14:45:03.582]             {
  [14:45:03.582]                 {
  [14:45:03.582]                   {
  [14:45:03.582]                     base::local({
  [14:45:03.582]                       has_future <- base::requireNamespace("future", 
  [14:45:03.582]                         quietly = TRUE)
  [14:45:03.582]                       if (has_future) {
  [14:45:03.582]                         ns <- base::getNamespace("future")
  [14:45:03.582]                         version <- ns[[".package"]][["version"]]
  [14:45:03.582]                         if (is.null(version)) 
  [14:45:03.582]                           version <- utils::packageVersion("future")
  [14:45:03.582]                       }
  [14:45:03.582]                       else {
  [14:45:03.582]                         version <- NULL
  [14:45:03.582]                       }
  [14:45:03.582]                       if (!has_future || version < "1.8.0") {
  [14:45:03.582]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.582]                           "", base::R.version$version.string), 
  [14:45:03.582]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.582]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.582]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.582]                             "release", "version")], collapse = " "), 
  [14:45:03.582]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.582]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.582]                           info)
  [14:45:03.582]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.582]                         if (!has_future) {
  [14:45:03.582]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.582]                             info)
  [14:45:03.582]                         }
  [14:45:03.582]                         else {
  [14:45:03.582]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.582]                             info, version)
  [14:45:03.582]                         }
  [14:45:03.582]                         base::stop(msg)
  [14:45:03.582]                       }
  [14:45:03.582]                     })
  [14:45:03.582]                   }
  [14:45:03.582]                   options(future.plan = NULL)
  [14:45:03.582]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.582]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.582]                 }
  [14:45:03.582]                 ...future.workdir <- getwd()
  [14:45:03.582]             }
  [14:45:03.582]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.582]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.582]         }
  [14:45:03.582]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.582]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.582]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.582]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.582]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.582]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.582]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.582]             base::names(...future.oldOptions))
  [14:45:03.582]     }
  [14:45:03.582]     if (FALSE) {
  [14:45:03.582]     }
  [14:45:03.582]     else {
  [14:45:03.582]         if (TRUE) {
  [14:45:03.582]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.582]                 open = "w")
  [14:45:03.582]         }
  [14:45:03.582]         else {
  [14:45:03.582]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.582]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.582]         }
  [14:45:03.582]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.582]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.582]             base::sink(type = "output", split = FALSE)
  [14:45:03.582]             base::close(...future.stdout)
  [14:45:03.582]         }, add = TRUE)
  [14:45:03.582]     }
  [14:45:03.582]     ...future.frame <- base::sys.nframe()
  [14:45:03.582]     ...future.conditions <- base::list()
  [14:45:03.582]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.582]     if (FALSE) {
  [14:45:03.582]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.582]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.582]     }
  [14:45:03.582]     ...future.result <- base::tryCatch({
  [14:45:03.582]         base::withCallingHandlers({
  [14:45:03.582]             ...future.value <- base::withVisible(base::local({
  [14:45:03.582]                 2
  [14:45:03.582]             }))
  [14:45:03.582]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.582]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.582]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.582]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.582]                     ...future.globalenv.names))
  [14:45:03.582]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.582]         }, condition = base::local({
  [14:45:03.582]             c <- base::c
  [14:45:03.582]             inherits <- base::inherits
  [14:45:03.582]             invokeRestart <- base::invokeRestart
  [14:45:03.582]             length <- base::length
  [14:45:03.582]             list <- base::list
  [14:45:03.582]             seq.int <- base::seq.int
  [14:45:03.582]             signalCondition <- base::signalCondition
  [14:45:03.582]             sys.calls <- base::sys.calls
  [14:45:03.582]             `[[` <- base::`[[`
  [14:45:03.582]             `+` <- base::`+`
  [14:45:03.582]             `<<-` <- base::`<<-`
  [14:45:03.582]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.582]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.582]                   3L)]
  [14:45:03.582]             }
  [14:45:03.582]             function(cond) {
  [14:45:03.582]                 is_error <- inherits(cond, "error")
  [14:45:03.582]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.582]                   NULL)
  [14:45:03.582]                 if (is_error) {
  [14:45:03.582]                   sessionInformation <- function() {
  [14:45:03.582]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.582]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.582]                       search = base::search(), system = base::Sys.info())
  [14:45:03.582]                   }
  [14:45:03.582]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.582]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.582]                     cond$call), session = sessionInformation(), 
  [14:45:03.582]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.582]                   signalCondition(cond)
  [14:45:03.582]                 }
  [14:45:03.582]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.582]                 "immediateCondition"))) {
  [14:45:03.582]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.582]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.582]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.582]                   if (TRUE && !signal) {
  [14:45:03.582]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.582]                     {
  [14:45:03.582]                       inherits <- base::inherits
  [14:45:03.582]                       invokeRestart <- base::invokeRestart
  [14:45:03.582]                       is.null <- base::is.null
  [14:45:03.582]                       muffled <- FALSE
  [14:45:03.582]                       if (inherits(cond, "message")) {
  [14:45:03.582]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.582]                         if (muffled) 
  [14:45:03.582]                           invokeRestart("muffleMessage")
  [14:45:03.582]                       }
  [14:45:03.582]                       else if (inherits(cond, "warning")) {
  [14:45:03.582]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.582]                         if (muffled) 
  [14:45:03.582]                           invokeRestart("muffleWarning")
  [14:45:03.582]                       }
  [14:45:03.582]                       else if (inherits(cond, "condition")) {
  [14:45:03.582]                         if (!is.null(pattern)) {
  [14:45:03.582]                           computeRestarts <- base::computeRestarts
  [14:45:03.582]                           grepl <- base::grepl
  [14:45:03.582]                           restarts <- computeRestarts(cond)
  [14:45:03.582]                           for (restart in restarts) {
  [14:45:03.582]                             name <- restart$name
  [14:45:03.582]                             if (is.null(name)) 
  [14:45:03.582]                               next
  [14:45:03.582]                             if (!grepl(pattern, name)) 
  [14:45:03.582]                               next
  [14:45:03.582]                             invokeRestart(restart)
  [14:45:03.582]                             muffled <- TRUE
  [14:45:03.582]                             break
  [14:45:03.582]                           }
  [14:45:03.582]                         }
  [14:45:03.582]                       }
  [14:45:03.582]                       invisible(muffled)
  [14:45:03.582]                     }
  [14:45:03.582]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.582]                   }
  [14:45:03.582]                 }
  [14:45:03.582]                 else {
  [14:45:03.582]                   if (TRUE) {
  [14:45:03.582]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.582]                     {
  [14:45:03.582]                       inherits <- base::inherits
  [14:45:03.582]                       invokeRestart <- base::invokeRestart
  [14:45:03.582]                       is.null <- base::is.null
  [14:45:03.582]                       muffled <- FALSE
  [14:45:03.582]                       if (inherits(cond, "message")) {
  [14:45:03.582]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.582]                         if (muffled) 
  [14:45:03.582]                           invokeRestart("muffleMessage")
  [14:45:03.582]                       }
  [14:45:03.582]                       else if (inherits(cond, "warning")) {
  [14:45:03.582]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.582]                         if (muffled) 
  [14:45:03.582]                           invokeRestart("muffleWarning")
  [14:45:03.582]                       }
  [14:45:03.582]                       else if (inherits(cond, "condition")) {
  [14:45:03.582]                         if (!is.null(pattern)) {
  [14:45:03.582]                           computeRestarts <- base::computeRestarts
  [14:45:03.582]                           grepl <- base::grepl
  [14:45:03.582]                           restarts <- computeRestarts(cond)
  [14:45:03.582]                           for (restart in restarts) {
  [14:45:03.582]                             name <- restart$name
  [14:45:03.582]                             if (is.null(name)) 
  [14:45:03.582]                               next
  [14:45:03.582]                             if (!grepl(pattern, name)) 
  [14:45:03.582]                               next
  [14:45:03.582]                             invokeRestart(restart)
  [14:45:03.582]                             muffled <- TRUE
  [14:45:03.582]                             break
  [14:45:03.582]                           }
  [14:45:03.582]                         }
  [14:45:03.582]                       }
  [14:45:03.582]                       invisible(muffled)
  [14:45:03.582]                     }
  [14:45:03.582]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.582]                   }
  [14:45:03.582]                 }
  [14:45:03.582]             }
  [14:45:03.582]         }))
  [14:45:03.582]     }, error = function(ex) {
  [14:45:03.582]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.582]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.582]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.582]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.582]             version = "1.8"), class = "FutureResult")
  [14:45:03.582]     }, finally = {
  [14:45:03.582]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.582]             setwd(...future.workdir)
  [14:45:03.582]         {
  [14:45:03.582]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.582]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.582]             }
  [14:45:03.582]             base::options(...future.oldOptions)
  [14:45:03.582]             if (.Platform$OS.type == "windows") {
  [14:45:03.582]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.582]                 envs <- base::Sys.getenv()
  [14:45:03.582]                 names <- names(envs)
  [14:45:03.582]                 common <- intersect(names, old_names)
  [14:45:03.582]                 added <- setdiff(names, old_names)
  [14:45:03.582]                 removed <- setdiff(old_names, names)
  [14:45:03.582]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.582]                   envs[common]]
  [14:45:03.582]                 NAMES <- toupper(changed)
  [14:45:03.582]                 args <- list()
  [14:45:03.582]                 for (kk in seq_along(NAMES)) {
  [14:45:03.582]                   name <- changed[[kk]]
  [14:45:03.582]                   NAME <- NAMES[[kk]]
  [14:45:03.582]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.582]                     next
  [14:45:03.582]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.582]                 }
  [14:45:03.582]                 NAMES <- toupper(added)
  [14:45:03.582]                 for (kk in seq_along(NAMES)) {
  [14:45:03.582]                   name <- added[[kk]]
  [14:45:03.582]                   NAME <- NAMES[[kk]]
  [14:45:03.582]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.582]                     next
  [14:45:03.582]                   args[[name]] <- ""
  [14:45:03.582]                 }
  [14:45:03.582]                 NAMES <- toupper(removed)
  [14:45:03.582]                 for (kk in seq_along(NAMES)) {
  [14:45:03.582]                   name <- removed[[kk]]
  [14:45:03.582]                   NAME <- NAMES[[kk]]
  [14:45:03.582]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.582]                     next
  [14:45:03.582]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.582]                 }
  [14:45:03.582]                 if (length(args) > 0) 
  [14:45:03.582]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.582]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.582]             }
  [14:45:03.582]             else {
  [14:45:03.582]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.582]             }
  [14:45:03.582]             {
  [14:45:03.582]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.582]                   0L) {
  [14:45:03.582]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.582]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.582]                   base::options(opts)
  [14:45:03.582]                 }
  [14:45:03.582]                 {
  [14:45:03.582]                   {
  [14:45:03.582]                     NULL
  [14:45:03.582]                     RNGkind("Mersenne-Twister")
  [14:45:03.582]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.582]                       inherits = FALSE)
  [14:45:03.582]                   }
  [14:45:03.582]                   options(future.plan = NULL)
  [14:45:03.582]                   if (is.na(NA_character_)) 
  [14:45:03.582]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.582]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.582]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.582]                   {
  [14:45:03.582]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.582]                     if (!future$lazy) 
  [14:45:03.582]                       future <- run(future)
  [14:45:03.582]                     invisible(future)
  [14:45:03.582]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.582]                 }
  [14:45:03.582]             }
  [14:45:03.582]         }
  [14:45:03.582]     })
  [14:45:03.582]     if (TRUE) {
  [14:45:03.582]         base::sink(type = "output", split = FALSE)
  [14:45:03.582]         if (TRUE) {
  [14:45:03.582]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.582]         }
  [14:45:03.582]         else {
  [14:45:03.582]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.582]         }
  [14:45:03.582]         base::close(...future.stdout)
  [14:45:03.582]         ...future.stdout <- NULL
  [14:45:03.582]     }
  [14:45:03.582]     ...future.result$conditions <- ...future.conditions
  [14:45:03.582]     ...future.result$finished <- base::Sys.time()
  [14:45:03.582]     ...future.result
  [14:45:03.582] }
  [14:45:03.589] plan(): Setting new future strategy stack:
  [14:45:03.589] List of future strategies:
  [14:45:03.589] 1. sequential:
  [14:45:03.589]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.589]    - tweaked: FALSE
  [14:45:03.589]    - call: NULL
  [14:45:03.590] plan(): nbrOfWorkers() = 1
  [14:45:03.592] plan(): Setting new future strategy stack:
  [14:45:03.592] List of future strategies:
  [14:45:03.592] 1. sequential:
  [14:45:03.592]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.592]    - tweaked: FALSE
  [14:45:03.592]    - call: future::plan("sequential")
  [14:45:03.593] plan(): nbrOfWorkers() = 1
  [14:45:03.593] SequentialFuture started (and completed)
  [14:45:03.593] - Launch lazy future ... done
  [14:45:03.594] run() for 'SequentialFuture' ... done
  > 
  > 
  > message("*** %<-% to listenv: multiple dimensions ...")
  *** %<-% to listenv: multiple dimensions ...
  > 
  > x0 <- list()
  > length(x0) <- 6
  > dim(x0) <- c(3, 2)
  > 
  > x <- listenv()
  > length(x) <- 6
  > dim(x) <- c(3, 2)
  > 
  > for (cc in 1:ncol(x)) {
  +   for (rr in 1:nrow(x)) {
  +     x0[[rr, cc]] <- sprintf("(%s, %s)", rr, cc)
  +     x[[rr, cc]] %<-% sprintf("(%s, %s)", rr, cc) %lazy% TRUE
  +   }
  + }
  [14:45:03.605] getGlobalsAndPackages() ...
  [14:45:03.605] Searching for globals...
  [14:45:03.608] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.609] Searching for globals ... DONE
  [14:45:03.609] Resolving globals: FALSE
  [14:45:03.611] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.611] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.612] - globals: [2] 'rr', 'cc'
  [14:45:03.612] 
  [14:45:03.612] getGlobalsAndPackages() ... DONE
  [14:45:03.613] getGlobalsAndPackages() ...
  [14:45:03.614] Searching for globals...
  [14:45:03.615] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.615] Searching for globals ... DONE
  [14:45:03.615] Resolving globals: FALSE
  [14:45:03.616] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.617] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.617] - globals: [2] 'rr', 'cc'
  [14:45:03.617] 
  [14:45:03.618] getGlobalsAndPackages() ... DONE
  [14:45:03.619] getGlobalsAndPackages() ...
  [14:45:03.619] Searching for globals...
  [14:45:03.620] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.621] Searching for globals ... DONE
  [14:45:03.621] Resolving globals: FALSE
  [14:45:03.622] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.622] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.623] - globals: [2] 'rr', 'cc'
  [14:45:03.623] 
  [14:45:03.623] getGlobalsAndPackages() ... DONE
  [14:45:03.624] getGlobalsAndPackages() ...
  [14:45:03.624] Searching for globals...
  [14:45:03.626] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.626] Searching for globals ... DONE
  [14:45:03.626] Resolving globals: FALSE
  [14:45:03.630] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.631] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.631] - globals: [2] 'rr', 'cc'
  [14:45:03.632] 
  [14:45:03.632] getGlobalsAndPackages() ... DONE
  [14:45:03.633] getGlobalsAndPackages() ...
  [14:45:03.633] Searching for globals...
  [14:45:03.635] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.635] Searching for globals ... DONE
  [14:45:03.635] Resolving globals: FALSE
  [14:45:03.636] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.637] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.637] - globals: [2] 'rr', 'cc'
  [14:45:03.637] 
  [14:45:03.637] getGlobalsAndPackages() ... DONE
  [14:45:03.639] getGlobalsAndPackages() ...
  [14:45:03.639] Searching for globals...
  [14:45:03.640] - globals found: [3] 'sprintf', 'rr', 'cc'
  [14:45:03.640] Searching for globals ... DONE
  [14:45:03.641] Resolving globals: FALSE
  [14:45:03.641] The total size of the 2 globals is 112 bytes (112 bytes)
  [14:45:03.642] The total size of the 2 globals exported for future expression ('sprintf("(%s, %s)", rr, cc)') is 112 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'rr' (56 bytes of class 'numeric') and 'cc' (56 bytes of class 'numeric')
  [14:45:03.642] - globals: [2] 'rr', 'cc'
  [14:45:03.643] 
  [14:45:03.643] getGlobalsAndPackages() ... DONE
  > 
  > y <- as.list(x)
  [14:45:03.644] run() for 'Future' ...
  [14:45:03.644] - state: 'created'
  [14:45:03.644] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.645] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.645] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.645]   - Field: 'label'
  [14:45:03.646]   - Field: 'local'
  [14:45:03.646]   - Field: 'owner'
  [14:45:03.646]   - Field: 'envir'
  [14:45:03.647]   - Field: 'packages'
  [14:45:03.647]   - Field: 'gc'
  [14:45:03.647]   - Field: 'conditions'
  [14:45:03.647]   - Field: 'expr'
  [14:45:03.648]   - Field: 'uuid'
  [14:45:03.648]   - Field: 'seed'
  [14:45:03.648]   - Field: 'version'
  [14:45:03.648]   - Field: 'result'
  [14:45:03.649]   - Field: 'asynchronous'
  [14:45:03.649]   - Field: 'calls'
  [14:45:03.649]   - Field: 'globals'
  [14:45:03.650]   - Field: 'stdout'
  [14:45:03.650]   - Field: 'earlySignal'
  [14:45:03.650]   - Field: 'lazy'
  [14:45:03.650]   - Field: 'state'
  [14:45:03.651] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.651] - Launch lazy future ...
  [14:45:03.651] Packages needed by the future expression (n = 0): <none>
  [14:45:03.652] Packages needed by future strategies (n = 0): <none>
  [14:45:03.653] {
  [14:45:03.653]     {
  [14:45:03.653]         {
  [14:45:03.653]             ...future.startTime <- base::Sys.time()
  [14:45:03.653]             {
  [14:45:03.653]                 {
  [14:45:03.653]                   {
  [14:45:03.653]                     base::local({
  [14:45:03.653]                       has_future <- base::requireNamespace("future", 
  [14:45:03.653]                         quietly = TRUE)
  [14:45:03.653]                       if (has_future) {
  [14:45:03.653]                         ns <- base::getNamespace("future")
  [14:45:03.653]                         version <- ns[[".package"]][["version"]]
  [14:45:03.653]                         if (is.null(version)) 
  [14:45:03.653]                           version <- utils::packageVersion("future")
  [14:45:03.653]                       }
  [14:45:03.653]                       else {
  [14:45:03.653]                         version <- NULL
  [14:45:03.653]                       }
  [14:45:03.653]                       if (!has_future || version < "1.8.0") {
  [14:45:03.653]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.653]                           "", base::R.version$version.string), 
  [14:45:03.653]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.653]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.653]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.653]                             "release", "version")], collapse = " "), 
  [14:45:03.653]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.653]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.653]                           info)
  [14:45:03.653]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.653]                         if (!has_future) {
  [14:45:03.653]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.653]                             info)
  [14:45:03.653]                         }
  [14:45:03.653]                         else {
  [14:45:03.653]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.653]                             info, version)
  [14:45:03.653]                         }
  [14:45:03.653]                         base::stop(msg)
  [14:45:03.653]                       }
  [14:45:03.653]                     })
  [14:45:03.653]                   }
  [14:45:03.653]                   options(future.plan = NULL)
  [14:45:03.653]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.653]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.653]                 }
  [14:45:03.653]                 ...future.workdir <- getwd()
  [14:45:03.653]             }
  [14:45:03.653]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.653]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.653]         }
  [14:45:03.653]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.653]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.653]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.653]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.653]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.653]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.653]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.653]             base::names(...future.oldOptions))
  [14:45:03.653]     }
  [14:45:03.653]     if (FALSE) {
  [14:45:03.653]     }
  [14:45:03.653]     else {
  [14:45:03.653]         if (TRUE) {
  [14:45:03.653]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.653]                 open = "w")
  [14:45:03.653]         }
  [14:45:03.653]         else {
  [14:45:03.653]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.653]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.653]         }
  [14:45:03.653]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.653]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.653]             base::sink(type = "output", split = FALSE)
  [14:45:03.653]             base::close(...future.stdout)
  [14:45:03.653]         }, add = TRUE)
  [14:45:03.653]     }
  [14:45:03.653]     ...future.frame <- base::sys.nframe()
  [14:45:03.653]     ...future.conditions <- base::list()
  [14:45:03.653]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.653]     if (FALSE) {
  [14:45:03.653]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.653]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.653]     }
  [14:45:03.653]     ...future.result <- base::tryCatch({
  [14:45:03.653]         base::withCallingHandlers({
  [14:45:03.653]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.653]                 rr, cc)))
  [14:45:03.653]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.653]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.653]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.653]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.653]                     ...future.globalenv.names))
  [14:45:03.653]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.653]         }, condition = base::local({
  [14:45:03.653]             c <- base::c
  [14:45:03.653]             inherits <- base::inherits
  [14:45:03.653]             invokeRestart <- base::invokeRestart
  [14:45:03.653]             length <- base::length
  [14:45:03.653]             list <- base::list
  [14:45:03.653]             seq.int <- base::seq.int
  [14:45:03.653]             signalCondition <- base::signalCondition
  [14:45:03.653]             sys.calls <- base::sys.calls
  [14:45:03.653]             `[[` <- base::`[[`
  [14:45:03.653]             `+` <- base::`+`
  [14:45:03.653]             `<<-` <- base::`<<-`
  [14:45:03.653]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.653]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.653]                   3L)]
  [14:45:03.653]             }
  [14:45:03.653]             function(cond) {
  [14:45:03.653]                 is_error <- inherits(cond, "error")
  [14:45:03.653]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.653]                   NULL)
  [14:45:03.653]                 if (is_error) {
  [14:45:03.653]                   sessionInformation <- function() {
  [14:45:03.653]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.653]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.653]                       search = base::search(), system = base::Sys.info())
  [14:45:03.653]                   }
  [14:45:03.653]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.653]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.653]                     cond$call), session = sessionInformation(), 
  [14:45:03.653]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.653]                   signalCondition(cond)
  [14:45:03.653]                 }
  [14:45:03.653]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.653]                 "immediateCondition"))) {
  [14:45:03.653]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.653]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.653]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.653]                   if (TRUE && !signal) {
  [14:45:03.653]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.653]                     {
  [14:45:03.653]                       inherits <- base::inherits
  [14:45:03.653]                       invokeRestart <- base::invokeRestart
  [14:45:03.653]                       is.null <- base::is.null
  [14:45:03.653]                       muffled <- FALSE
  [14:45:03.653]                       if (inherits(cond, "message")) {
  [14:45:03.653]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.653]                         if (muffled) 
  [14:45:03.653]                           invokeRestart("muffleMessage")
  [14:45:03.653]                       }
  [14:45:03.653]                       else if (inherits(cond, "warning")) {
  [14:45:03.653]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.653]                         if (muffled) 
  [14:45:03.653]                           invokeRestart("muffleWarning")
  [14:45:03.653]                       }
  [14:45:03.653]                       else if (inherits(cond, "condition")) {
  [14:45:03.653]                         if (!is.null(pattern)) {
  [14:45:03.653]                           computeRestarts <- base::computeRestarts
  [14:45:03.653]                           grepl <- base::grepl
  [14:45:03.653]                           restarts <- computeRestarts(cond)
  [14:45:03.653]                           for (restart in restarts) {
  [14:45:03.653]                             name <- restart$name
  [14:45:03.653]                             if (is.null(name)) 
  [14:45:03.653]                               next
  [14:45:03.653]                             if (!grepl(pattern, name)) 
  [14:45:03.653]                               next
  [14:45:03.653]                             invokeRestart(restart)
  [14:45:03.653]                             muffled <- TRUE
  [14:45:03.653]                             break
  [14:45:03.653]                           }
  [14:45:03.653]                         }
  [14:45:03.653]                       }
  [14:45:03.653]                       invisible(muffled)
  [14:45:03.653]                     }
  [14:45:03.653]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.653]                   }
  [14:45:03.653]                 }
  [14:45:03.653]                 else {
  [14:45:03.653]                   if (TRUE) {
  [14:45:03.653]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.653]                     {
  [14:45:03.653]                       inherits <- base::inherits
  [14:45:03.653]                       invokeRestart <- base::invokeRestart
  [14:45:03.653]                       is.null <- base::is.null
  [14:45:03.653]                       muffled <- FALSE
  [14:45:03.653]                       if (inherits(cond, "message")) {
  [14:45:03.653]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.653]                         if (muffled) 
  [14:45:03.653]                           invokeRestart("muffleMessage")
  [14:45:03.653]                       }
  [14:45:03.653]                       else if (inherits(cond, "warning")) {
  [14:45:03.653]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.653]                         if (muffled) 
  [14:45:03.653]                           invokeRestart("muffleWarning")
  [14:45:03.653]                       }
  [14:45:03.653]                       else if (inherits(cond, "condition")) {
  [14:45:03.653]                         if (!is.null(pattern)) {
  [14:45:03.653]                           computeRestarts <- base::computeRestarts
  [14:45:03.653]                           grepl <- base::grepl
  [14:45:03.653]                           restarts <- computeRestarts(cond)
  [14:45:03.653]                           for (restart in restarts) {
  [14:45:03.653]                             name <- restart$name
  [14:45:03.653]                             if (is.null(name)) 
  [14:45:03.653]                               next
  [14:45:03.653]                             if (!grepl(pattern, name)) 
  [14:45:03.653]                               next
  [14:45:03.653]                             invokeRestart(restart)
  [14:45:03.653]                             muffled <- TRUE
  [14:45:03.653]                             break
  [14:45:03.653]                           }
  [14:45:03.653]                         }
  [14:45:03.653]                       }
  [14:45:03.653]                       invisible(muffled)
  [14:45:03.653]                     }
  [14:45:03.653]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.653]                   }
  [14:45:03.653]                 }
  [14:45:03.653]             }
  [14:45:03.653]         }))
  [14:45:03.653]     }, error = function(ex) {
  [14:45:03.653]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.653]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.653]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.653]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.653]             version = "1.8"), class = "FutureResult")
  [14:45:03.653]     }, finally = {
  [14:45:03.653]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.653]             setwd(...future.workdir)
  [14:45:03.653]         {
  [14:45:03.653]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.653]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.653]             }
  [14:45:03.653]             base::options(...future.oldOptions)
  [14:45:03.653]             if (.Platform$OS.type == "windows") {
  [14:45:03.653]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.653]                 envs <- base::Sys.getenv()
  [14:45:03.653]                 names <- names(envs)
  [14:45:03.653]                 common <- intersect(names, old_names)
  [14:45:03.653]                 added <- setdiff(names, old_names)
  [14:45:03.653]                 removed <- setdiff(old_names, names)
  [14:45:03.653]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.653]                   envs[common]]
  [14:45:03.653]                 NAMES <- toupper(changed)
  [14:45:03.653]                 args <- list()
  [14:45:03.653]                 for (kk in seq_along(NAMES)) {
  [14:45:03.653]                   name <- changed[[kk]]
  [14:45:03.653]                   NAME <- NAMES[[kk]]
  [14:45:03.653]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.653]                     next
  [14:45:03.653]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.653]                 }
  [14:45:03.653]                 NAMES <- toupper(added)
  [14:45:03.653]                 for (kk in seq_along(NAMES)) {
  [14:45:03.653]                   name <- added[[kk]]
  [14:45:03.653]                   NAME <- NAMES[[kk]]
  [14:45:03.653]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.653]                     next
  [14:45:03.653]                   args[[name]] <- ""
  [14:45:03.653]                 }
  [14:45:03.653]                 NAMES <- toupper(removed)
  [14:45:03.653]                 for (kk in seq_along(NAMES)) {
  [14:45:03.653]                   name <- removed[[kk]]
  [14:45:03.653]                   NAME <- NAMES[[kk]]
  [14:45:03.653]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.653]                     next
  [14:45:03.653]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.653]                 }
  [14:45:03.653]                 if (length(args) > 0) 
  [14:45:03.653]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.653]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.653]             }
  [14:45:03.653]             else {
  [14:45:03.653]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.653]             }
  [14:45:03.653]             {
  [14:45:03.653]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.653]                   0L) {
  [14:45:03.653]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.653]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.653]                   base::options(opts)
  [14:45:03.653]                 }
  [14:45:03.653]                 {
  [14:45:03.653]                   {
  [14:45:03.653]                     NULL
  [14:45:03.653]                     RNGkind("Mersenne-Twister")
  [14:45:03.653]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.653]                       inherits = FALSE)
  [14:45:03.653]                   }
  [14:45:03.653]                   options(future.plan = NULL)
  [14:45:03.653]                   if (is.na(NA_character_)) 
  [14:45:03.653]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.653]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.653]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.653]                   {
  [14:45:03.653]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.653]                     if (!future$lazy) 
  [14:45:03.653]                       future <- run(future)
  [14:45:03.653]                     invisible(future)
  [14:45:03.653]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.653]                 }
  [14:45:03.653]             }
  [14:45:03.653]         }
  [14:45:03.653]     })
  [14:45:03.653]     if (TRUE) {
  [14:45:03.653]         base::sink(type = "output", split = FALSE)
  [14:45:03.653]         if (TRUE) {
  [14:45:03.653]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.653]         }
  [14:45:03.653]         else {
  [14:45:03.653]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.653]         }
  [14:45:03.653]         base::close(...future.stdout)
  [14:45:03.653]         ...future.stdout <- NULL
  [14:45:03.653]     }
  [14:45:03.653]     ...future.result$conditions <- ...future.conditions
  [14:45:03.653]     ...future.result$finished <- base::Sys.time()
  [14:45:03.653]     ...future.result
  [14:45:03.653] }
  [14:45:03.659] assign_globals() ...
  [14:45:03.660] List of 2
  [14:45:03.660]  $ rr: int 1
  [14:45:03.660]  $ cc: int 1
  [14:45:03.660]  - attr(*, "where")=List of 2
  [14:45:03.660]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.660]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.660]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.660]  - attr(*, "resolved")= logi FALSE
  [14:45:03.660]  - attr(*, "total_size")= num 112
  [14:45:03.660]  - attr(*, "already-done")= logi TRUE
  [14:45:03.666] - copied 'rr' to environment
  [14:45:03.666] - copied 'cc' to environment
  [14:45:03.667] assign_globals() ... done
  [14:45:03.667] plan(): Setting new future strategy stack:
  [14:45:03.667] List of future strategies:
  [14:45:03.667] 1. sequential:
  [14:45:03.667]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.667]    - tweaked: FALSE
  [14:45:03.667]    - call: NULL
  [14:45:03.668] plan(): nbrOfWorkers() = 1
  [14:45:03.670] plan(): Setting new future strategy stack:
  [14:45:03.671] List of future strategies:
  [14:45:03.671] 1. sequential:
  [14:45:03.671]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.671]    - tweaked: FALSE
  [14:45:03.671]    - call: future::plan("sequential")
  [14:45:03.672] plan(): nbrOfWorkers() = 1
  [14:45:03.672] SequentialFuture started (and completed)
  [14:45:03.672] - Launch lazy future ... done
  [14:45:03.673] run() for 'SequentialFuture' ... done
  [14:45:03.673] run() for 'Future' ...
  [14:45:03.673] - state: 'created'
  [14:45:03.674] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.674] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.675] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.675]   - Field: 'label'
  [14:45:03.675]   - Field: 'local'
  [14:45:03.676]   - Field: 'owner'
  [14:45:03.676]   - Field: 'envir'
  [14:45:03.676]   - Field: 'packages'
  [14:45:03.676]   - Field: 'gc'
  [14:45:03.677]   - Field: 'conditions'
  [14:45:03.677]   - Field: 'expr'
  [14:45:03.677]   - Field: 'uuid'
  [14:45:03.677]   - Field: 'seed'
  [14:45:03.678]   - Field: 'version'
  [14:45:03.678]   - Field: 'result'
  [14:45:03.678]   - Field: 'asynchronous'
  [14:45:03.679]   - Field: 'calls'
  [14:45:03.679]   - Field: 'globals'
  [14:45:03.679]   - Field: 'stdout'
  [14:45:03.679]   - Field: 'earlySignal'
  [14:45:03.680]   - Field: 'lazy'
  [14:45:03.680]   - Field: 'state'
  [14:45:03.680] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.680] - Launch lazy future ...
  [14:45:03.681] Packages needed by the future expression (n = 0): <none>
  [14:45:03.681] Packages needed by future strategies (n = 0): <none>
  [14:45:03.682] {
  [14:45:03.682]     {
  [14:45:03.682]         {
  [14:45:03.682]             ...future.startTime <- base::Sys.time()
  [14:45:03.682]             {
  [14:45:03.682]                 {
  [14:45:03.682]                   {
  [14:45:03.682]                     base::local({
  [14:45:03.682]                       has_future <- base::requireNamespace("future", 
  [14:45:03.682]                         quietly = TRUE)
  [14:45:03.682]                       if (has_future) {
  [14:45:03.682]                         ns <- base::getNamespace("future")
  [14:45:03.682]                         version <- ns[[".package"]][["version"]]
  [14:45:03.682]                         if (is.null(version)) 
  [14:45:03.682]                           version <- utils::packageVersion("future")
  [14:45:03.682]                       }
  [14:45:03.682]                       else {
  [14:45:03.682]                         version <- NULL
  [14:45:03.682]                       }
  [14:45:03.682]                       if (!has_future || version < "1.8.0") {
  [14:45:03.682]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.682]                           "", base::R.version$version.string), 
  [14:45:03.682]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.682]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.682]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.682]                             "release", "version")], collapse = " "), 
  [14:45:03.682]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.682]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.682]                           info)
  [14:45:03.682]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.682]                         if (!has_future) {
  [14:45:03.682]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.682]                             info)
  [14:45:03.682]                         }
  [14:45:03.682]                         else {
  [14:45:03.682]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.682]                             info, version)
  [14:45:03.682]                         }
  [14:45:03.682]                         base::stop(msg)
  [14:45:03.682]                       }
  [14:45:03.682]                     })
  [14:45:03.682]                   }
  [14:45:03.682]                   options(future.plan = NULL)
  [14:45:03.682]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.682]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.682]                 }
  [14:45:03.682]                 ...future.workdir <- getwd()
  [14:45:03.682]             }
  [14:45:03.682]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.682]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.682]         }
  [14:45:03.682]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.682]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.682]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.682]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.682]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.682]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.682]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.682]             base::names(...future.oldOptions))
  [14:45:03.682]     }
  [14:45:03.682]     if (FALSE) {
  [14:45:03.682]     }
  [14:45:03.682]     else {
  [14:45:03.682]         if (TRUE) {
  [14:45:03.682]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.682]                 open = "w")
  [14:45:03.682]         }
  [14:45:03.682]         else {
  [14:45:03.682]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.682]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.682]         }
  [14:45:03.682]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.682]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.682]             base::sink(type = "output", split = FALSE)
  [14:45:03.682]             base::close(...future.stdout)
  [14:45:03.682]         }, add = TRUE)
  [14:45:03.682]     }
  [14:45:03.682]     ...future.frame <- base::sys.nframe()
  [14:45:03.682]     ...future.conditions <- base::list()
  [14:45:03.682]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.682]     if (FALSE) {
  [14:45:03.682]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.682]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.682]     }
  [14:45:03.682]     ...future.result <- base::tryCatch({
  [14:45:03.682]         base::withCallingHandlers({
  [14:45:03.682]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.682]                 rr, cc)))
  [14:45:03.682]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.682]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.682]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.682]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.682]                     ...future.globalenv.names))
  [14:45:03.682]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.682]         }, condition = base::local({
  [14:45:03.682]             c <- base::c
  [14:45:03.682]             inherits <- base::inherits
  [14:45:03.682]             invokeRestart <- base::invokeRestart
  [14:45:03.682]             length <- base::length
  [14:45:03.682]             list <- base::list
  [14:45:03.682]             seq.int <- base::seq.int
  [14:45:03.682]             signalCondition <- base::signalCondition
  [14:45:03.682]             sys.calls <- base::sys.calls
  [14:45:03.682]             `[[` <- base::`[[`
  [14:45:03.682]             `+` <- base::`+`
  [14:45:03.682]             `<<-` <- base::`<<-`
  [14:45:03.682]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.682]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.682]                   3L)]
  [14:45:03.682]             }
  [14:45:03.682]             function(cond) {
  [14:45:03.682]                 is_error <- inherits(cond, "error")
  [14:45:03.682]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.682]                   NULL)
  [14:45:03.682]                 if (is_error) {
  [14:45:03.682]                   sessionInformation <- function() {
  [14:45:03.682]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.682]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.682]                       search = base::search(), system = base::Sys.info())
  [14:45:03.682]                   }
  [14:45:03.682]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.682]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.682]                     cond$call), session = sessionInformation(), 
  [14:45:03.682]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.682]                   signalCondition(cond)
  [14:45:03.682]                 }
  [14:45:03.682]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.682]                 "immediateCondition"))) {
  [14:45:03.682]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.682]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.682]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.682]                   if (TRUE && !signal) {
  [14:45:03.682]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.682]                     {
  [14:45:03.682]                       inherits <- base::inherits
  [14:45:03.682]                       invokeRestart <- base::invokeRestart
  [14:45:03.682]                       is.null <- base::is.null
  [14:45:03.682]                       muffled <- FALSE
  [14:45:03.682]                       if (inherits(cond, "message")) {
  [14:45:03.682]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.682]                         if (muffled) 
  [14:45:03.682]                           invokeRestart("muffleMessage")
  [14:45:03.682]                       }
  [14:45:03.682]                       else if (inherits(cond, "warning")) {
  [14:45:03.682]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.682]                         if (muffled) 
  [14:45:03.682]                           invokeRestart("muffleWarning")
  [14:45:03.682]                       }
  [14:45:03.682]                       else if (inherits(cond, "condition")) {
  [14:45:03.682]                         if (!is.null(pattern)) {
  [14:45:03.682]                           computeRestarts <- base::computeRestarts
  [14:45:03.682]                           grepl <- base::grepl
  [14:45:03.682]                           restarts <- computeRestarts(cond)
  [14:45:03.682]                           for (restart in restarts) {
  [14:45:03.682]                             name <- restart$name
  [14:45:03.682]                             if (is.null(name)) 
  [14:45:03.682]                               next
  [14:45:03.682]                             if (!grepl(pattern, name)) 
  [14:45:03.682]                               next
  [14:45:03.682]                             invokeRestart(restart)
  [14:45:03.682]                             muffled <- TRUE
  [14:45:03.682]                             break
  [14:45:03.682]                           }
  [14:45:03.682]                         }
  [14:45:03.682]                       }
  [14:45:03.682]                       invisible(muffled)
  [14:45:03.682]                     }
  [14:45:03.682]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.682]                   }
  [14:45:03.682]                 }
  [14:45:03.682]                 else {
  [14:45:03.682]                   if (TRUE) {
  [14:45:03.682]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.682]                     {
  [14:45:03.682]                       inherits <- base::inherits
  [14:45:03.682]                       invokeRestart <- base::invokeRestart
  [14:45:03.682]                       is.null <- base::is.null
  [14:45:03.682]                       muffled <- FALSE
  [14:45:03.682]                       if (inherits(cond, "message")) {
  [14:45:03.682]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.682]                         if (muffled) 
  [14:45:03.682]                           invokeRestart("muffleMessage")
  [14:45:03.682]                       }
  [14:45:03.682]                       else if (inherits(cond, "warning")) {
  [14:45:03.682]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.682]                         if (muffled) 
  [14:45:03.682]                           invokeRestart("muffleWarning")
  [14:45:03.682]                       }
  [14:45:03.682]                       else if (inherits(cond, "condition")) {
  [14:45:03.682]                         if (!is.null(pattern)) {
  [14:45:03.682]                           computeRestarts <- base::computeRestarts
  [14:45:03.682]                           grepl <- base::grepl
  [14:45:03.682]                           restarts <- computeRestarts(cond)
  [14:45:03.682]                           for (restart in restarts) {
  [14:45:03.682]                             name <- restart$name
  [14:45:03.682]                             if (is.null(name)) 
  [14:45:03.682]                               next
  [14:45:03.682]                             if (!grepl(pattern, name)) 
  [14:45:03.682]                               next
  [14:45:03.682]                             invokeRestart(restart)
  [14:45:03.682]                             muffled <- TRUE
  [14:45:03.682]                             break
  [14:45:03.682]                           }
  [14:45:03.682]                         }
  [14:45:03.682]                       }
  [14:45:03.682]                       invisible(muffled)
  [14:45:03.682]                     }
  [14:45:03.682]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.682]                   }
  [14:45:03.682]                 }
  [14:45:03.682]             }
  [14:45:03.682]         }))
  [14:45:03.682]     }, error = function(ex) {
  [14:45:03.682]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.682]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.682]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.682]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.682]             version = "1.8"), class = "FutureResult")
  [14:45:03.682]     }, finally = {
  [14:45:03.682]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.682]             setwd(...future.workdir)
  [14:45:03.682]         {
  [14:45:03.682]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.682]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.682]             }
  [14:45:03.682]             base::options(...future.oldOptions)
  [14:45:03.682]             if (.Platform$OS.type == "windows") {
  [14:45:03.682]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.682]                 envs <- base::Sys.getenv()
  [14:45:03.682]                 names <- names(envs)
  [14:45:03.682]                 common <- intersect(names, old_names)
  [14:45:03.682]                 added <- setdiff(names, old_names)
  [14:45:03.682]                 removed <- setdiff(old_names, names)
  [14:45:03.682]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.682]                   envs[common]]
  [14:45:03.682]                 NAMES <- toupper(changed)
  [14:45:03.682]                 args <- list()
  [14:45:03.682]                 for (kk in seq_along(NAMES)) {
  [14:45:03.682]                   name <- changed[[kk]]
  [14:45:03.682]                   NAME <- NAMES[[kk]]
  [14:45:03.682]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.682]                     next
  [14:45:03.682]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.682]                 }
  [14:45:03.682]                 NAMES <- toupper(added)
  [14:45:03.682]                 for (kk in seq_along(NAMES)) {
  [14:45:03.682]                   name <- added[[kk]]
  [14:45:03.682]                   NAME <- NAMES[[kk]]
  [14:45:03.682]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.682]                     next
  [14:45:03.682]                   args[[name]] <- ""
  [14:45:03.682]                 }
  [14:45:03.682]                 NAMES <- toupper(removed)
  [14:45:03.682]                 for (kk in seq_along(NAMES)) {
  [14:45:03.682]                   name <- removed[[kk]]
  [14:45:03.682]                   NAME <- NAMES[[kk]]
  [14:45:03.682]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.682]                     next
  [14:45:03.682]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.682]                 }
  [14:45:03.682]                 if (length(args) > 0) 
  [14:45:03.682]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.682]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.682]             }
  [14:45:03.682]             else {
  [14:45:03.682]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.682]             }
  [14:45:03.682]             {
  [14:45:03.682]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.682]                   0L) {
  [14:45:03.682]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.682]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.682]                   base::options(opts)
  [14:45:03.682]                 }
  [14:45:03.682]                 {
  [14:45:03.682]                   {
  [14:45:03.682]                     NULL
  [14:45:03.682]                     RNGkind("Mersenne-Twister")
  [14:45:03.682]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.682]                       inherits = FALSE)
  [14:45:03.682]                   }
  [14:45:03.682]                   options(future.plan = NULL)
  [14:45:03.682]                   if (is.na(NA_character_)) 
  [14:45:03.682]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.682]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.682]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.682]                   {
  [14:45:03.682]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.682]                     if (!future$lazy) 
  [14:45:03.682]                       future <- run(future)
  [14:45:03.682]                     invisible(future)
  [14:45:03.682]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.682]                 }
  [14:45:03.682]             }
  [14:45:03.682]         }
  [14:45:03.682]     })
  [14:45:03.682]     if (TRUE) {
  [14:45:03.682]         base::sink(type = "output", split = FALSE)
  [14:45:03.682]         if (TRUE) {
  [14:45:03.682]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.682]         }
  [14:45:03.682]         else {
  [14:45:03.682]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.682]         }
  [14:45:03.682]         base::close(...future.stdout)
  [14:45:03.682]         ...future.stdout <- NULL
  [14:45:03.682]     }
  [14:45:03.682]     ...future.result$conditions <- ...future.conditions
  [14:45:03.682]     ...future.result$finished <- base::Sys.time()
  [14:45:03.682]     ...future.result
  [14:45:03.682] }
  [14:45:03.689] assign_globals() ...
  [14:45:03.689] List of 2
  [14:45:03.689]  $ rr: int 2
  [14:45:03.689]  $ cc: int 1
  [14:45:03.689]  - attr(*, "where")=List of 2
  [14:45:03.689]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.689]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.689]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.689]  - attr(*, "resolved")= logi FALSE
  [14:45:03.689]  - attr(*, "total_size")= num 112
  [14:45:03.689]  - attr(*, "already-done")= logi TRUE
  [14:45:03.699] - copied 'rr' to environment
  [14:45:03.699] - copied 'cc' to environment
  [14:45:03.699] assign_globals() ... done
  [14:45:03.700] plan(): Setting new future strategy stack:
  [14:45:03.700] List of future strategies:
  [14:45:03.700] 1. sequential:
  [14:45:03.700]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.700]    - tweaked: FALSE
  [14:45:03.700]    - call: NULL
  [14:45:03.701] plan(): nbrOfWorkers() = 1
  [14:45:03.703] plan(): Setting new future strategy stack:
  [14:45:03.703] List of future strategies:
  [14:45:03.703] 1. sequential:
  [14:45:03.703]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.703]    - tweaked: FALSE
  [14:45:03.703]    - call: future::plan("sequential")
  [14:45:03.704] plan(): nbrOfWorkers() = 1
  [14:45:03.705] SequentialFuture started (and completed)
  [14:45:03.705] - Launch lazy future ... done
  [14:45:03.705] run() for 'SequentialFuture' ... done
  [14:45:03.706] run() for 'Future' ...
  [14:45:03.706] - state: 'created'
  [14:45:03.706] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.707] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.707] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.707]   - Field: 'label'
  [14:45:03.708]   - Field: 'local'
  [14:45:03.708]   - Field: 'owner'
  [14:45:03.708]   - Field: 'envir'
  [14:45:03.709]   - Field: 'packages'
  [14:45:03.709]   - Field: 'gc'
  [14:45:03.709]   - Field: 'conditions'
  [14:45:03.709]   - Field: 'expr'
  [14:45:03.710]   - Field: 'uuid'
  [14:45:03.710]   - Field: 'seed'
  [14:45:03.710]   - Field: 'version'
  [14:45:03.710]   - Field: 'result'
  [14:45:03.711]   - Field: 'asynchronous'
  [14:45:03.711]   - Field: 'calls'
  [14:45:03.711]   - Field: 'globals'
  [14:45:03.712]   - Field: 'stdout'
  [14:45:03.712]   - Field: 'earlySignal'
  [14:45:03.712]   - Field: 'lazy'
  [14:45:03.712]   - Field: 'state'
  [14:45:03.713] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.713] - Launch lazy future ...
  [14:45:03.713] Packages needed by the future expression (n = 0): <none>
  [14:45:03.714] Packages needed by future strategies (n = 0): <none>
  [14:45:03.715] {
  [14:45:03.715]     {
  [14:45:03.715]         {
  [14:45:03.715]             ...future.startTime <- base::Sys.time()
  [14:45:03.715]             {
  [14:45:03.715]                 {
  [14:45:03.715]                   {
  [14:45:03.715]                     base::local({
  [14:45:03.715]                       has_future <- base::requireNamespace("future", 
  [14:45:03.715]                         quietly = TRUE)
  [14:45:03.715]                       if (has_future) {
  [14:45:03.715]                         ns <- base::getNamespace("future")
  [14:45:03.715]                         version <- ns[[".package"]][["version"]]
  [14:45:03.715]                         if (is.null(version)) 
  [14:45:03.715]                           version <- utils::packageVersion("future")
  [14:45:03.715]                       }
  [14:45:03.715]                       else {
  [14:45:03.715]                         version <- NULL
  [14:45:03.715]                       }
  [14:45:03.715]                       if (!has_future || version < "1.8.0") {
  [14:45:03.715]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.715]                           "", base::R.version$version.string), 
  [14:45:03.715]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.715]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.715]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.715]                             "release", "version")], collapse = " "), 
  [14:45:03.715]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.715]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.715]                           info)
  [14:45:03.715]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.715]                         if (!has_future) {
  [14:45:03.715]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.715]                             info)
  [14:45:03.715]                         }
  [14:45:03.715]                         else {
  [14:45:03.715]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.715]                             info, version)
  [14:45:03.715]                         }
  [14:45:03.715]                         base::stop(msg)
  [14:45:03.715]                       }
  [14:45:03.715]                     })
  [14:45:03.715]                   }
  [14:45:03.715]                   options(future.plan = NULL)
  [14:45:03.715]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.715]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.715]                 }
  [14:45:03.715]                 ...future.workdir <- getwd()
  [14:45:03.715]             }
  [14:45:03.715]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.715]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.715]         }
  [14:45:03.715]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.715]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.715]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.715]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.715]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.715]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.715]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.715]             base::names(...future.oldOptions))
  [14:45:03.715]     }
  [14:45:03.715]     if (FALSE) {
  [14:45:03.715]     }
  [14:45:03.715]     else {
  [14:45:03.715]         if (TRUE) {
  [14:45:03.715]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.715]                 open = "w")
  [14:45:03.715]         }
  [14:45:03.715]         else {
  [14:45:03.715]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.715]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.715]         }
  [14:45:03.715]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.715]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.715]             base::sink(type = "output", split = FALSE)
  [14:45:03.715]             base::close(...future.stdout)
  [14:45:03.715]         }, add = TRUE)
  [14:45:03.715]     }
  [14:45:03.715]     ...future.frame <- base::sys.nframe()
  [14:45:03.715]     ...future.conditions <- base::list()
  [14:45:03.715]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.715]     if (FALSE) {
  [14:45:03.715]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.715]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.715]     }
  [14:45:03.715]     ...future.result <- base::tryCatch({
  [14:45:03.715]         base::withCallingHandlers({
  [14:45:03.715]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.715]                 rr, cc)))
  [14:45:03.715]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.715]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.715]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.715]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.715]                     ...future.globalenv.names))
  [14:45:03.715]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.715]         }, condition = base::local({
  [14:45:03.715]             c <- base::c
  [14:45:03.715]             inherits <- base::inherits
  [14:45:03.715]             invokeRestart <- base::invokeRestart
  [14:45:03.715]             length <- base::length
  [14:45:03.715]             list <- base::list
  [14:45:03.715]             seq.int <- base::seq.int
  [14:45:03.715]             signalCondition <- base::signalCondition
  [14:45:03.715]             sys.calls <- base::sys.calls
  [14:45:03.715]             `[[` <- base::`[[`
  [14:45:03.715]             `+` <- base::`+`
  [14:45:03.715]             `<<-` <- base::`<<-`
  [14:45:03.715]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.715]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.715]                   3L)]
  [14:45:03.715]             }
  [14:45:03.715]             function(cond) {
  [14:45:03.715]                 is_error <- inherits(cond, "error")
  [14:45:03.715]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.715]                   NULL)
  [14:45:03.715]                 if (is_error) {
  [14:45:03.715]                   sessionInformation <- function() {
  [14:45:03.715]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.715]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.715]                       search = base::search(), system = base::Sys.info())
  [14:45:03.715]                   }
  [14:45:03.715]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.715]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.715]                     cond$call), session = sessionInformation(), 
  [14:45:03.715]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.715]                   signalCondition(cond)
  [14:45:03.715]                 }
  [14:45:03.715]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.715]                 "immediateCondition"))) {
  [14:45:03.715]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.715]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.715]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.715]                   if (TRUE && !signal) {
  [14:45:03.715]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.715]                     {
  [14:45:03.715]                       inherits <- base::inherits
  [14:45:03.715]                       invokeRestart <- base::invokeRestart
  [14:45:03.715]                       is.null <- base::is.null
  [14:45:03.715]                       muffled <- FALSE
  [14:45:03.715]                       if (inherits(cond, "message")) {
  [14:45:03.715]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.715]                         if (muffled) 
  [14:45:03.715]                           invokeRestart("muffleMessage")
  [14:45:03.715]                       }
  [14:45:03.715]                       else if (inherits(cond, "warning")) {
  [14:45:03.715]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.715]                         if (muffled) 
  [14:45:03.715]                           invokeRestart("muffleWarning")
  [14:45:03.715]                       }
  [14:45:03.715]                       else if (inherits(cond, "condition")) {
  [14:45:03.715]                         if (!is.null(pattern)) {
  [14:45:03.715]                           computeRestarts <- base::computeRestarts
  [14:45:03.715]                           grepl <- base::grepl
  [14:45:03.715]                           restarts <- computeRestarts(cond)
  [14:45:03.715]                           for (restart in restarts) {
  [14:45:03.715]                             name <- restart$name
  [14:45:03.715]                             if (is.null(name)) 
  [14:45:03.715]                               next
  [14:45:03.715]                             if (!grepl(pattern, name)) 
  [14:45:03.715]                               next
  [14:45:03.715]                             invokeRestart(restart)
  [14:45:03.715]                             muffled <- TRUE
  [14:45:03.715]                             break
  [14:45:03.715]                           }
  [14:45:03.715]                         }
  [14:45:03.715]                       }
  [14:45:03.715]                       invisible(muffled)
  [14:45:03.715]                     }
  [14:45:03.715]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.715]                   }
  [14:45:03.715]                 }
  [14:45:03.715]                 else {
  [14:45:03.715]                   if (TRUE) {
  [14:45:03.715]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.715]                     {
  [14:45:03.715]                       inherits <- base::inherits
  [14:45:03.715]                       invokeRestart <- base::invokeRestart
  [14:45:03.715]                       is.null <- base::is.null
  [14:45:03.715]                       muffled <- FALSE
  [14:45:03.715]                       if (inherits(cond, "message")) {
  [14:45:03.715]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.715]                         if (muffled) 
  [14:45:03.715]                           invokeRestart("muffleMessage")
  [14:45:03.715]                       }
  [14:45:03.715]                       else if (inherits(cond, "warning")) {
  [14:45:03.715]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.715]                         if (muffled) 
  [14:45:03.715]                           invokeRestart("muffleWarning")
  [14:45:03.715]                       }
  [14:45:03.715]                       else if (inherits(cond, "condition")) {
  [14:45:03.715]                         if (!is.null(pattern)) {
  [14:45:03.715]                           computeRestarts <- base::computeRestarts
  [14:45:03.715]                           grepl <- base::grepl
  [14:45:03.715]                           restarts <- computeRestarts(cond)
  [14:45:03.715]                           for (restart in restarts) {
  [14:45:03.715]                             name <- restart$name
  [14:45:03.715]                             if (is.null(name)) 
  [14:45:03.715]                               next
  [14:45:03.715]                             if (!grepl(pattern, name)) 
  [14:45:03.715]                               next
  [14:45:03.715]                             invokeRestart(restart)
  [14:45:03.715]                             muffled <- TRUE
  [14:45:03.715]                             break
  [14:45:03.715]                           }
  [14:45:03.715]                         }
  [14:45:03.715]                       }
  [14:45:03.715]                       invisible(muffled)
  [14:45:03.715]                     }
  [14:45:03.715]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.715]                   }
  [14:45:03.715]                 }
  [14:45:03.715]             }
  [14:45:03.715]         }))
  [14:45:03.715]     }, error = function(ex) {
  [14:45:03.715]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.715]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.715]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.715]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.715]             version = "1.8"), class = "FutureResult")
  [14:45:03.715]     }, finally = {
  [14:45:03.715]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.715]             setwd(...future.workdir)
  [14:45:03.715]         {
  [14:45:03.715]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.715]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.715]             }
  [14:45:03.715]             base::options(...future.oldOptions)
  [14:45:03.715]             if (.Platform$OS.type == "windows") {
  [14:45:03.715]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.715]                 envs <- base::Sys.getenv()
  [14:45:03.715]                 names <- names(envs)
  [14:45:03.715]                 common <- intersect(names, old_names)
  [14:45:03.715]                 added <- setdiff(names, old_names)
  [14:45:03.715]                 removed <- setdiff(old_names, names)
  [14:45:03.715]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.715]                   envs[common]]
  [14:45:03.715]                 NAMES <- toupper(changed)
  [14:45:03.715]                 args <- list()
  [14:45:03.715]                 for (kk in seq_along(NAMES)) {
  [14:45:03.715]                   name <- changed[[kk]]
  [14:45:03.715]                   NAME <- NAMES[[kk]]
  [14:45:03.715]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.715]                     next
  [14:45:03.715]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.715]                 }
  [14:45:03.715]                 NAMES <- toupper(added)
  [14:45:03.715]                 for (kk in seq_along(NAMES)) {
  [14:45:03.715]                   name <- added[[kk]]
  [14:45:03.715]                   NAME <- NAMES[[kk]]
  [14:45:03.715]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.715]                     next
  [14:45:03.715]                   args[[name]] <- ""
  [14:45:03.715]                 }
  [14:45:03.715]                 NAMES <- toupper(removed)
  [14:45:03.715]                 for (kk in seq_along(NAMES)) {
  [14:45:03.715]                   name <- removed[[kk]]
  [14:45:03.715]                   NAME <- NAMES[[kk]]
  [14:45:03.715]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.715]                     next
  [14:45:03.715]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.715]                 }
  [14:45:03.715]                 if (length(args) > 0) 
  [14:45:03.715]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.715]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.715]             }
  [14:45:03.715]             else {
  [14:45:03.715]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.715]             }
  [14:45:03.715]             {
  [14:45:03.715]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.715]                   0L) {
  [14:45:03.715]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.715]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.715]                   base::options(opts)
  [14:45:03.715]                 }
  [14:45:03.715]                 {
  [14:45:03.715]                   {
  [14:45:03.715]                     NULL
  [14:45:03.715]                     RNGkind("Mersenne-Twister")
  [14:45:03.715]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.715]                       inherits = FALSE)
  [14:45:03.715]                   }
  [14:45:03.715]                   options(future.plan = NULL)
  [14:45:03.715]                   if (is.na(NA_character_)) 
  [14:45:03.715]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.715]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.715]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.715]                   {
  [14:45:03.715]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.715]                     if (!future$lazy) 
  [14:45:03.715]                       future <- run(future)
  [14:45:03.715]                     invisible(future)
  [14:45:03.715]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.715]                 }
  [14:45:03.715]             }
  [14:45:03.715]         }
  [14:45:03.715]     })
  [14:45:03.715]     if (TRUE) {
  [14:45:03.715]         base::sink(type = "output", split = FALSE)
  [14:45:03.715]         if (TRUE) {
  [14:45:03.715]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.715]         }
  [14:45:03.715]         else {
  [14:45:03.715]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.715]         }
  [14:45:03.715]         base::close(...future.stdout)
  [14:45:03.715]         ...future.stdout <- NULL
  [14:45:03.715]     }
  [14:45:03.715]     ...future.result$conditions <- ...future.conditions
  [14:45:03.715]     ...future.result$finished <- base::Sys.time()
  [14:45:03.715]     ...future.result
  [14:45:03.715] }
  [14:45:03.723] assign_globals() ...
  [14:45:03.723] List of 2
  [14:45:03.723]  $ rr: int 3
  [14:45:03.723]  $ cc: int 1
  [14:45:03.723]  - attr(*, "where")=List of 2
  [14:45:03.723]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.723]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.723]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.723]  - attr(*, "resolved")= logi FALSE
  [14:45:03.723]  - attr(*, "total_size")= num 112
  [14:45:03.723]  - attr(*, "already-done")= logi TRUE
  [14:45:03.729] - copied 'rr' to environment
  [14:45:03.729] - copied 'cc' to environment
  [14:45:03.729] assign_globals() ... done
  [14:45:03.730] plan(): Setting new future strategy stack:
  [14:45:03.730] List of future strategies:
  [14:45:03.730] 1. sequential:
  [14:45:03.730]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.730]    - tweaked: FALSE
  [14:45:03.730]    - call: NULL
  [14:45:03.731] plan(): nbrOfWorkers() = 1
  [14:45:03.733] plan(): Setting new future strategy stack:
  [14:45:03.733] List of future strategies:
  [14:45:03.733] 1. sequential:
  [14:45:03.733]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.733]    - tweaked: FALSE
  [14:45:03.733]    - call: future::plan("sequential")
  [14:45:03.734] plan(): nbrOfWorkers() = 1
  [14:45:03.734] SequentialFuture started (and completed)
  [14:45:03.735] - Launch lazy future ... done
  [14:45:03.735] run() for 'SequentialFuture' ... done
  [14:45:03.735] run() for 'Future' ...
  [14:45:03.736] - state: 'created'
  [14:45:03.736] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.736] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.737] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.737]   - Field: 'label'
  [14:45:03.737]   - Field: 'local'
  [14:45:03.737]   - Field: 'owner'
  [14:45:03.737]   - Field: 'envir'
  [14:45:03.738]   - Field: 'packages'
  [14:45:03.738]   - Field: 'gc'
  [14:45:03.738]   - Field: 'conditions'
  [14:45:03.738]   - Field: 'expr'
  [14:45:03.738]   - Field: 'uuid'
  [14:45:03.739]   - Field: 'seed'
  [14:45:03.739]   - Field: 'version'
  [14:45:03.739]   - Field: 'result'
  [14:45:03.739]   - Field: 'asynchronous'
  [14:45:03.739]   - Field: 'calls'
  [14:45:03.740]   - Field: 'globals'
  [14:45:03.740]   - Field: 'stdout'
  [14:45:03.740]   - Field: 'earlySignal'
  [14:45:03.740]   - Field: 'lazy'
  [14:45:03.740]   - Field: 'state'
  [14:45:03.741] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.741] - Launch lazy future ...
  [14:45:03.741] Packages needed by the future expression (n = 0): <none>
  [14:45:03.741] Packages needed by future strategies (n = 0): <none>
  [14:45:03.742] {
  [14:45:03.742]     {
  [14:45:03.742]         {
  [14:45:03.742]             ...future.startTime <- base::Sys.time()
  [14:45:03.742]             {
  [14:45:03.742]                 {
  [14:45:03.742]                   {
  [14:45:03.742]                     base::local({
  [14:45:03.742]                       has_future <- base::requireNamespace("future", 
  [14:45:03.742]                         quietly = TRUE)
  [14:45:03.742]                       if (has_future) {
  [14:45:03.742]                         ns <- base::getNamespace("future")
  [14:45:03.742]                         version <- ns[[".package"]][["version"]]
  [14:45:03.742]                         if (is.null(version)) 
  [14:45:03.742]                           version <- utils::packageVersion("future")
  [14:45:03.742]                       }
  [14:45:03.742]                       else {
  [14:45:03.742]                         version <- NULL
  [14:45:03.742]                       }
  [14:45:03.742]                       if (!has_future || version < "1.8.0") {
  [14:45:03.742]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.742]                           "", base::R.version$version.string), 
  [14:45:03.742]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.742]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.742]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.742]                             "release", "version")], collapse = " "), 
  [14:45:03.742]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.742]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.742]                           info)
  [14:45:03.742]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.742]                         if (!has_future) {
  [14:45:03.742]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.742]                             info)
  [14:45:03.742]                         }
  [14:45:03.742]                         else {
  [14:45:03.742]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.742]                             info, version)
  [14:45:03.742]                         }
  [14:45:03.742]                         base::stop(msg)
  [14:45:03.742]                       }
  [14:45:03.742]                     })
  [14:45:03.742]                   }
  [14:45:03.742]                   options(future.plan = NULL)
  [14:45:03.742]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.742]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.742]                 }
  [14:45:03.742]                 ...future.workdir <- getwd()
  [14:45:03.742]             }
  [14:45:03.742]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.742]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.742]         }
  [14:45:03.742]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.742]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.742]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.742]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.742]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.742]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.742]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.742]             base::names(...future.oldOptions))
  [14:45:03.742]     }
  [14:45:03.742]     if (FALSE) {
  [14:45:03.742]     }
  [14:45:03.742]     else {
  [14:45:03.742]         if (TRUE) {
  [14:45:03.742]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.742]                 open = "w")
  [14:45:03.742]         }
  [14:45:03.742]         else {
  [14:45:03.742]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.742]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.742]         }
  [14:45:03.742]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.742]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.742]             base::sink(type = "output", split = FALSE)
  [14:45:03.742]             base::close(...future.stdout)
  [14:45:03.742]         }, add = TRUE)
  [14:45:03.742]     }
  [14:45:03.742]     ...future.frame <- base::sys.nframe()
  [14:45:03.742]     ...future.conditions <- base::list()
  [14:45:03.742]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.742]     if (FALSE) {
  [14:45:03.742]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.742]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.742]     }
  [14:45:03.742]     ...future.result <- base::tryCatch({
  [14:45:03.742]         base::withCallingHandlers({
  [14:45:03.742]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.742]                 rr, cc)))
  [14:45:03.742]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.742]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.742]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.742]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.742]                     ...future.globalenv.names))
  [14:45:03.742]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.742]         }, condition = base::local({
  [14:45:03.742]             c <- base::c
  [14:45:03.742]             inherits <- base::inherits
  [14:45:03.742]             invokeRestart <- base::invokeRestart
  [14:45:03.742]             length <- base::length
  [14:45:03.742]             list <- base::list
  [14:45:03.742]             seq.int <- base::seq.int
  [14:45:03.742]             signalCondition <- base::signalCondition
  [14:45:03.742]             sys.calls <- base::sys.calls
  [14:45:03.742]             `[[` <- base::`[[`
  [14:45:03.742]             `+` <- base::`+`
  [14:45:03.742]             `<<-` <- base::`<<-`
  [14:45:03.742]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.742]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.742]                   3L)]
  [14:45:03.742]             }
  [14:45:03.742]             function(cond) {
  [14:45:03.742]                 is_error <- inherits(cond, "error")
  [14:45:03.742]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.742]                   NULL)
  [14:45:03.742]                 if (is_error) {
  [14:45:03.742]                   sessionInformation <- function() {
  [14:45:03.742]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.742]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.742]                       search = base::search(), system = base::Sys.info())
  [14:45:03.742]                   }
  [14:45:03.742]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.742]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.742]                     cond$call), session = sessionInformation(), 
  [14:45:03.742]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.742]                   signalCondition(cond)
  [14:45:03.742]                 }
  [14:45:03.742]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.742]                 "immediateCondition"))) {
  [14:45:03.742]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.742]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.742]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.742]                   if (TRUE && !signal) {
  [14:45:03.742]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.742]                     {
  [14:45:03.742]                       inherits <- base::inherits
  [14:45:03.742]                       invokeRestart <- base::invokeRestart
  [14:45:03.742]                       is.null <- base::is.null
  [14:45:03.742]                       muffled <- FALSE
  [14:45:03.742]                       if (inherits(cond, "message")) {
  [14:45:03.742]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.742]                         if (muffled) 
  [14:45:03.742]                           invokeRestart("muffleMessage")
  [14:45:03.742]                       }
  [14:45:03.742]                       else if (inherits(cond, "warning")) {
  [14:45:03.742]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.742]                         if (muffled) 
  [14:45:03.742]                           invokeRestart("muffleWarning")
  [14:45:03.742]                       }
  [14:45:03.742]                       else if (inherits(cond, "condition")) {
  [14:45:03.742]                         if (!is.null(pattern)) {
  [14:45:03.742]                           computeRestarts <- base::computeRestarts
  [14:45:03.742]                           grepl <- base::grepl
  [14:45:03.742]                           restarts <- computeRestarts(cond)
  [14:45:03.742]                           for (restart in restarts) {
  [14:45:03.742]                             name <- restart$name
  [14:45:03.742]                             if (is.null(name)) 
  [14:45:03.742]                               next
  [14:45:03.742]                             if (!grepl(pattern, name)) 
  [14:45:03.742]                               next
  [14:45:03.742]                             invokeRestart(restart)
  [14:45:03.742]                             muffled <- TRUE
  [14:45:03.742]                             break
  [14:45:03.742]                           }
  [14:45:03.742]                         }
  [14:45:03.742]                       }
  [14:45:03.742]                       invisible(muffled)
  [14:45:03.742]                     }
  [14:45:03.742]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.742]                   }
  [14:45:03.742]                 }
  [14:45:03.742]                 else {
  [14:45:03.742]                   if (TRUE) {
  [14:45:03.742]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.742]                     {
  [14:45:03.742]                       inherits <- base::inherits
  [14:45:03.742]                       invokeRestart <- base::invokeRestart
  [14:45:03.742]                       is.null <- base::is.null
  [14:45:03.742]                       muffled <- FALSE
  [14:45:03.742]                       if (inherits(cond, "message")) {
  [14:45:03.742]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.742]                         if (muffled) 
  [14:45:03.742]                           invokeRestart("muffleMessage")
  [14:45:03.742]                       }
  [14:45:03.742]                       else if (inherits(cond, "warning")) {
  [14:45:03.742]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.742]                         if (muffled) 
  [14:45:03.742]                           invokeRestart("muffleWarning")
  [14:45:03.742]                       }
  [14:45:03.742]                       else if (inherits(cond, "condition")) {
  [14:45:03.742]                         if (!is.null(pattern)) {
  [14:45:03.742]                           computeRestarts <- base::computeRestarts
  [14:45:03.742]                           grepl <- base::grepl
  [14:45:03.742]                           restarts <- computeRestarts(cond)
  [14:45:03.742]                           for (restart in restarts) {
  [14:45:03.742]                             name <- restart$name
  [14:45:03.742]                             if (is.null(name)) 
  [14:45:03.742]                               next
  [14:45:03.742]                             if (!grepl(pattern, name)) 
  [14:45:03.742]                               next
  [14:45:03.742]                             invokeRestart(restart)
  [14:45:03.742]                             muffled <- TRUE
  [14:45:03.742]                             break
  [14:45:03.742]                           }
  [14:45:03.742]                         }
  [14:45:03.742]                       }
  [14:45:03.742]                       invisible(muffled)
  [14:45:03.742]                     }
  [14:45:03.742]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.742]                   }
  [14:45:03.742]                 }
  [14:45:03.742]             }
  [14:45:03.742]         }))
  [14:45:03.742]     }, error = function(ex) {
  [14:45:03.742]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.742]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.742]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.742]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.742]             version = "1.8"), class = "FutureResult")
  [14:45:03.742]     }, finally = {
  [14:45:03.742]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.742]             setwd(...future.workdir)
  [14:45:03.742]         {
  [14:45:03.742]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.742]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.742]             }
  [14:45:03.742]             base::options(...future.oldOptions)
  [14:45:03.742]             if (.Platform$OS.type == "windows") {
  [14:45:03.742]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.742]                 envs <- base::Sys.getenv()
  [14:45:03.742]                 names <- names(envs)
  [14:45:03.742]                 common <- intersect(names, old_names)
  [14:45:03.742]                 added <- setdiff(names, old_names)
  [14:45:03.742]                 removed <- setdiff(old_names, names)
  [14:45:03.742]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.742]                   envs[common]]
  [14:45:03.742]                 NAMES <- toupper(changed)
  [14:45:03.742]                 args <- list()
  [14:45:03.742]                 for (kk in seq_along(NAMES)) {
  [14:45:03.742]                   name <- changed[[kk]]
  [14:45:03.742]                   NAME <- NAMES[[kk]]
  [14:45:03.742]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.742]                     next
  [14:45:03.742]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.742]                 }
  [14:45:03.742]                 NAMES <- toupper(added)
  [14:45:03.742]                 for (kk in seq_along(NAMES)) {
  [14:45:03.742]                   name <- added[[kk]]
  [14:45:03.742]                   NAME <- NAMES[[kk]]
  [14:45:03.742]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.742]                     next
  [14:45:03.742]                   args[[name]] <- ""
  [14:45:03.742]                 }
  [14:45:03.742]                 NAMES <- toupper(removed)
  [14:45:03.742]                 for (kk in seq_along(NAMES)) {
  [14:45:03.742]                   name <- removed[[kk]]
  [14:45:03.742]                   NAME <- NAMES[[kk]]
  [14:45:03.742]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.742]                     next
  [14:45:03.742]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.742]                 }
  [14:45:03.742]                 if (length(args) > 0) 
  [14:45:03.742]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.742]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.742]             }
  [14:45:03.742]             else {
  [14:45:03.742]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.742]             }
  [14:45:03.742]             {
  [14:45:03.742]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.742]                   0L) {
  [14:45:03.742]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.742]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.742]                   base::options(opts)
  [14:45:03.742]                 }
  [14:45:03.742]                 {
  [14:45:03.742]                   {
  [14:45:03.742]                     NULL
  [14:45:03.742]                     RNGkind("Mersenne-Twister")
  [14:45:03.742]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.742]                       inherits = FALSE)
  [14:45:03.742]                   }
  [14:45:03.742]                   options(future.plan = NULL)
  [14:45:03.742]                   if (is.na(NA_character_)) 
  [14:45:03.742]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.742]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.742]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.742]                   {
  [14:45:03.742]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.742]                     if (!future$lazy) 
  [14:45:03.742]                       future <- run(future)
  [14:45:03.742]                     invisible(future)
  [14:45:03.742]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.742]                 }
  [14:45:03.742]             }
  [14:45:03.742]         }
  [14:45:03.742]     })
  [14:45:03.742]     if (TRUE) {
  [14:45:03.742]         base::sink(type = "output", split = FALSE)
  [14:45:03.742]         if (TRUE) {
  [14:45:03.742]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.742]         }
  [14:45:03.742]         else {
  [14:45:03.742]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.742]         }
  [14:45:03.742]         base::close(...future.stdout)
  [14:45:03.742]         ...future.stdout <- NULL
  [14:45:03.742]     }
  [14:45:03.742]     ...future.result$conditions <- ...future.conditions
  [14:45:03.742]     ...future.result$finished <- base::Sys.time()
  [14:45:03.742]     ...future.result
  [14:45:03.742] }
  [14:45:03.747] assign_globals() ...
  [14:45:03.747] List of 2
  [14:45:03.747]  $ rr: int 1
  [14:45:03.747]  $ cc: int 2
  [14:45:03.747]  - attr(*, "where")=List of 2
  [14:45:03.747]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.747]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.747]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.747]  - attr(*, "resolved")= logi FALSE
  [14:45:03.747]  - attr(*, "total_size")= num 112
  [14:45:03.747]  - attr(*, "already-done")= logi TRUE
  [14:45:03.756] - copied 'rr' to environment
  [14:45:03.756] - copied 'cc' to environment
  [14:45:03.757] assign_globals() ... done
  [14:45:03.757] plan(): Setting new future strategy stack:
  [14:45:03.757] List of future strategies:
  [14:45:03.757] 1. sequential:
  [14:45:03.757]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.757]    - tweaked: FALSE
  [14:45:03.757]    - call: NULL
  [14:45:03.758] plan(): nbrOfWorkers() = 1
  [14:45:03.760] plan(): Setting new future strategy stack:
  [14:45:03.760] List of future strategies:
  [14:45:03.760] 1. sequential:
  [14:45:03.760]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.760]    - tweaked: FALSE
  [14:45:03.760]    - call: future::plan("sequential")
  [14:45:03.761] plan(): nbrOfWorkers() = 1
  [14:45:03.761] SequentialFuture started (and completed)
  [14:45:03.762] - Launch lazy future ... done
  [14:45:03.762] run() for 'SequentialFuture' ... done
  [14:45:03.762] run() for 'Future' ...
  [14:45:03.763] - state: 'created'
  [14:45:03.763] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.763] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.764] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.764]   - Field: 'label'
  [14:45:03.764]   - Field: 'local'
  [14:45:03.764]   - Field: 'owner'
  [14:45:03.764]   - Field: 'envir'
  [14:45:03.765]   - Field: 'packages'
  [14:45:03.765]   - Field: 'gc'
  [14:45:03.765]   - Field: 'conditions'
  [14:45:03.765]   - Field: 'expr'
  [14:45:03.765]   - Field: 'uuid'
  [14:45:03.766]   - Field: 'seed'
  [14:45:03.766]   - Field: 'version'
  [14:45:03.766]   - Field: 'result'
  [14:45:03.766]   - Field: 'asynchronous'
  [14:45:03.767]   - Field: 'calls'
  [14:45:03.767]   - Field: 'globals'
  [14:45:03.767]   - Field: 'stdout'
  [14:45:03.767]   - Field: 'earlySignal'
  [14:45:03.767]   - Field: 'lazy'
  [14:45:03.768]   - Field: 'state'
  [14:45:03.768] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.768] - Launch lazy future ...
  [14:45:03.768] Packages needed by the future expression (n = 0): <none>
  [14:45:03.769] Packages needed by future strategies (n = 0): <none>
  [14:45:03.770] {
  [14:45:03.770]     {
  [14:45:03.770]         {
  [14:45:03.770]             ...future.startTime <- base::Sys.time()
  [14:45:03.770]             {
  [14:45:03.770]                 {
  [14:45:03.770]                   {
  [14:45:03.770]                     base::local({
  [14:45:03.770]                       has_future <- base::requireNamespace("future", 
  [14:45:03.770]                         quietly = TRUE)
  [14:45:03.770]                       if (has_future) {
  [14:45:03.770]                         ns <- base::getNamespace("future")
  [14:45:03.770]                         version <- ns[[".package"]][["version"]]
  [14:45:03.770]                         if (is.null(version)) 
  [14:45:03.770]                           version <- utils::packageVersion("future")
  [14:45:03.770]                       }
  [14:45:03.770]                       else {
  [14:45:03.770]                         version <- NULL
  [14:45:03.770]                       }
  [14:45:03.770]                       if (!has_future || version < "1.8.0") {
  [14:45:03.770]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.770]                           "", base::R.version$version.string), 
  [14:45:03.770]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.770]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.770]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.770]                             "release", "version")], collapse = " "), 
  [14:45:03.770]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.770]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.770]                           info)
  [14:45:03.770]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.770]                         if (!has_future) {
  [14:45:03.770]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.770]                             info)
  [14:45:03.770]                         }
  [14:45:03.770]                         else {
  [14:45:03.770]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.770]                             info, version)
  [14:45:03.770]                         }
  [14:45:03.770]                         base::stop(msg)
  [14:45:03.770]                       }
  [14:45:03.770]                     })
  [14:45:03.770]                   }
  [14:45:03.770]                   options(future.plan = NULL)
  [14:45:03.770]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.770]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.770]                 }
  [14:45:03.770]                 ...future.workdir <- getwd()
  [14:45:03.770]             }
  [14:45:03.770]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.770]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.770]         }
  [14:45:03.770]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.770]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.770]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.770]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.770]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.770]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.770]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.770]             base::names(...future.oldOptions))
  [14:45:03.770]     }
  [14:45:03.770]     if (FALSE) {
  [14:45:03.770]     }
  [14:45:03.770]     else {
  [14:45:03.770]         if (TRUE) {
  [14:45:03.770]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.770]                 open = "w")
  [14:45:03.770]         }
  [14:45:03.770]         else {
  [14:45:03.770]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.770]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.770]         }
  [14:45:03.770]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.770]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.770]             base::sink(type = "output", split = FALSE)
  [14:45:03.770]             base::close(...future.stdout)
  [14:45:03.770]         }, add = TRUE)
  [14:45:03.770]     }
  [14:45:03.770]     ...future.frame <- base::sys.nframe()
  [14:45:03.770]     ...future.conditions <- base::list()
  [14:45:03.770]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.770]     if (FALSE) {
  [14:45:03.770]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.770]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.770]     }
  [14:45:03.770]     ...future.result <- base::tryCatch({
  [14:45:03.770]         base::withCallingHandlers({
  [14:45:03.770]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.770]                 rr, cc)))
  [14:45:03.770]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.770]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.770]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.770]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.770]                     ...future.globalenv.names))
  [14:45:03.770]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.770]         }, condition = base::local({
  [14:45:03.770]             c <- base::c
  [14:45:03.770]             inherits <- base::inherits
  [14:45:03.770]             invokeRestart <- base::invokeRestart
  [14:45:03.770]             length <- base::length
  [14:45:03.770]             list <- base::list
  [14:45:03.770]             seq.int <- base::seq.int
  [14:45:03.770]             signalCondition <- base::signalCondition
  [14:45:03.770]             sys.calls <- base::sys.calls
  [14:45:03.770]             `[[` <- base::`[[`
  [14:45:03.770]             `+` <- base::`+`
  [14:45:03.770]             `<<-` <- base::`<<-`
  [14:45:03.770]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.770]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.770]                   3L)]
  [14:45:03.770]             }
  [14:45:03.770]             function(cond) {
  [14:45:03.770]                 is_error <- inherits(cond, "error")
  [14:45:03.770]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.770]                   NULL)
  [14:45:03.770]                 if (is_error) {
  [14:45:03.770]                   sessionInformation <- function() {
  [14:45:03.770]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.770]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.770]                       search = base::search(), system = base::Sys.info())
  [14:45:03.770]                   }
  [14:45:03.770]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.770]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.770]                     cond$call), session = sessionInformation(), 
  [14:45:03.770]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.770]                   signalCondition(cond)
  [14:45:03.770]                 }
  [14:45:03.770]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.770]                 "immediateCondition"))) {
  [14:45:03.770]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.770]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.770]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.770]                   if (TRUE && !signal) {
  [14:45:03.770]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.770]                     {
  [14:45:03.770]                       inherits <- base::inherits
  [14:45:03.770]                       invokeRestart <- base::invokeRestart
  [14:45:03.770]                       is.null <- base::is.null
  [14:45:03.770]                       muffled <- FALSE
  [14:45:03.770]                       if (inherits(cond, "message")) {
  [14:45:03.770]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.770]                         if (muffled) 
  [14:45:03.770]                           invokeRestart("muffleMessage")
  [14:45:03.770]                       }
  [14:45:03.770]                       else if (inherits(cond, "warning")) {
  [14:45:03.770]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.770]                         if (muffled) 
  [14:45:03.770]                           invokeRestart("muffleWarning")
  [14:45:03.770]                       }
  [14:45:03.770]                       else if (inherits(cond, "condition")) {
  [14:45:03.770]                         if (!is.null(pattern)) {
  [14:45:03.770]                           computeRestarts <- base::computeRestarts
  [14:45:03.770]                           grepl <- base::grepl
  [14:45:03.770]                           restarts <- computeRestarts(cond)
  [14:45:03.770]                           for (restart in restarts) {
  [14:45:03.770]                             name <- restart$name
  [14:45:03.770]                             if (is.null(name)) 
  [14:45:03.770]                               next
  [14:45:03.770]                             if (!grepl(pattern, name)) 
  [14:45:03.770]                               next
  [14:45:03.770]                             invokeRestart(restart)
  [14:45:03.770]                             muffled <- TRUE
  [14:45:03.770]                             break
  [14:45:03.770]                           }
  [14:45:03.770]                         }
  [14:45:03.770]                       }
  [14:45:03.770]                       invisible(muffled)
  [14:45:03.770]                     }
  [14:45:03.770]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.770]                   }
  [14:45:03.770]                 }
  [14:45:03.770]                 else {
  [14:45:03.770]                   if (TRUE) {
  [14:45:03.770]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.770]                     {
  [14:45:03.770]                       inherits <- base::inherits
  [14:45:03.770]                       invokeRestart <- base::invokeRestart
  [14:45:03.770]                       is.null <- base::is.null
  [14:45:03.770]                       muffled <- FALSE
  [14:45:03.770]                       if (inherits(cond, "message")) {
  [14:45:03.770]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.770]                         if (muffled) 
  [14:45:03.770]                           invokeRestart("muffleMessage")
  [14:45:03.770]                       }
  [14:45:03.770]                       else if (inherits(cond, "warning")) {
  [14:45:03.770]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.770]                         if (muffled) 
  [14:45:03.770]                           invokeRestart("muffleWarning")
  [14:45:03.770]                       }
  [14:45:03.770]                       else if (inherits(cond, "condition")) {
  [14:45:03.770]                         if (!is.null(pattern)) {
  [14:45:03.770]                           computeRestarts <- base::computeRestarts
  [14:45:03.770]                           grepl <- base::grepl
  [14:45:03.770]                           restarts <- computeRestarts(cond)
  [14:45:03.770]                           for (restart in restarts) {
  [14:45:03.770]                             name <- restart$name
  [14:45:03.770]                             if (is.null(name)) 
  [14:45:03.770]                               next
  [14:45:03.770]                             if (!grepl(pattern, name)) 
  [14:45:03.770]                               next
  [14:45:03.770]                             invokeRestart(restart)
  [14:45:03.770]                             muffled <- TRUE
  [14:45:03.770]                             break
  [14:45:03.770]                           }
  [14:45:03.770]                         }
  [14:45:03.770]                       }
  [14:45:03.770]                       invisible(muffled)
  [14:45:03.770]                     }
  [14:45:03.770]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.770]                   }
  [14:45:03.770]                 }
  [14:45:03.770]             }
  [14:45:03.770]         }))
  [14:45:03.770]     }, error = function(ex) {
  [14:45:03.770]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.770]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.770]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.770]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.770]             version = "1.8"), class = "FutureResult")
  [14:45:03.770]     }, finally = {
  [14:45:03.770]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.770]             setwd(...future.workdir)
  [14:45:03.770]         {
  [14:45:03.770]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.770]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.770]             }
  [14:45:03.770]             base::options(...future.oldOptions)
  [14:45:03.770]             if (.Platform$OS.type == "windows") {
  [14:45:03.770]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.770]                 envs <- base::Sys.getenv()
  [14:45:03.770]                 names <- names(envs)
  [14:45:03.770]                 common <- intersect(names, old_names)
  [14:45:03.770]                 added <- setdiff(names, old_names)
  [14:45:03.770]                 removed <- setdiff(old_names, names)
  [14:45:03.770]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.770]                   envs[common]]
  [14:45:03.770]                 NAMES <- toupper(changed)
  [14:45:03.770]                 args <- list()
  [14:45:03.770]                 for (kk in seq_along(NAMES)) {
  [14:45:03.770]                   name <- changed[[kk]]
  [14:45:03.770]                   NAME <- NAMES[[kk]]
  [14:45:03.770]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.770]                     next
  [14:45:03.770]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.770]                 }
  [14:45:03.770]                 NAMES <- toupper(added)
  [14:45:03.770]                 for (kk in seq_along(NAMES)) {
  [14:45:03.770]                   name <- added[[kk]]
  [14:45:03.770]                   NAME <- NAMES[[kk]]
  [14:45:03.770]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.770]                     next
  [14:45:03.770]                   args[[name]] <- ""
  [14:45:03.770]                 }
  [14:45:03.770]                 NAMES <- toupper(removed)
  [14:45:03.770]                 for (kk in seq_along(NAMES)) {
  [14:45:03.770]                   name <- removed[[kk]]
  [14:45:03.770]                   NAME <- NAMES[[kk]]
  [14:45:03.770]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.770]                     next
  [14:45:03.770]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.770]                 }
  [14:45:03.770]                 if (length(args) > 0) 
  [14:45:03.770]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.770]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.770]             }
  [14:45:03.770]             else {
  [14:45:03.770]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.770]             }
  [14:45:03.770]             {
  [14:45:03.770]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.770]                   0L) {
  [14:45:03.770]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.770]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.770]                   base::options(opts)
  [14:45:03.770]                 }
  [14:45:03.770]                 {
  [14:45:03.770]                   {
  [14:45:03.770]                     NULL
  [14:45:03.770]                     RNGkind("Mersenne-Twister")
  [14:45:03.770]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.770]                       inherits = FALSE)
  [14:45:03.770]                   }
  [14:45:03.770]                   options(future.plan = NULL)
  [14:45:03.770]                   if (is.na(NA_character_)) 
  [14:45:03.770]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.770]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.770]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.770]                   {
  [14:45:03.770]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.770]                     if (!future$lazy) 
  [14:45:03.770]                       future <- run(future)
  [14:45:03.770]                     invisible(future)
  [14:45:03.770]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.770]                 }
  [14:45:03.770]             }
  [14:45:03.770]         }
  [14:45:03.770]     })
  [14:45:03.770]     if (TRUE) {
  [14:45:03.770]         base::sink(type = "output", split = FALSE)
  [14:45:03.770]         if (TRUE) {
  [14:45:03.770]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.770]         }
  [14:45:03.770]         else {
  [14:45:03.770]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.770]         }
  [14:45:03.770]         base::close(...future.stdout)
  [14:45:03.770]         ...future.stdout <- NULL
  [14:45:03.770]     }
  [14:45:03.770]     ...future.result$conditions <- ...future.conditions
  [14:45:03.770]     ...future.result$finished <- base::Sys.time()
  [14:45:03.770]     ...future.result
  [14:45:03.770] }
  [14:45:03.775] assign_globals() ...
  [14:45:03.775] List of 2
  [14:45:03.775]  $ rr: int 2
  [14:45:03.775]  $ cc: int 2
  [14:45:03.775]  - attr(*, "where")=List of 2
  [14:45:03.775]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.775]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.775]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.775]  - attr(*, "resolved")= logi FALSE
  [14:45:03.775]  - attr(*, "total_size")= num 112
  [14:45:03.775]  - attr(*, "already-done")= logi TRUE
  [14:45:03.781] - copied 'rr' to environment
  [14:45:03.781] - copied 'cc' to environment
  [14:45:03.781] assign_globals() ... done
  [14:45:03.782] plan(): Setting new future strategy stack:
  [14:45:03.782] List of future strategies:
  [14:45:03.782] 1. sequential:
  [14:45:03.782]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.782]    - tweaked: FALSE
  [14:45:03.782]    - call: NULL
  [14:45:03.783] plan(): nbrOfWorkers() = 1
  [14:45:03.785] plan(): Setting new future strategy stack:
  [14:45:03.786] List of future strategies:
  [14:45:03.786] 1. sequential:
  [14:45:03.786]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.786]    - tweaked: FALSE
  [14:45:03.786]    - call: future::plan("sequential")
  [14:45:03.787] plan(): nbrOfWorkers() = 1
  [14:45:03.787] SequentialFuture started (and completed)
  [14:45:03.788] - Launch lazy future ... done
  [14:45:03.788] run() for 'SequentialFuture' ... done
  [14:45:03.789] run() for 'Future' ...
  [14:45:03.789] - state: 'created'
  [14:45:03.789] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:45:03.790] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:45:03.790] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:45:03.791]   - Field: 'label'
  [14:45:03.791]   - Field: 'local'
  [14:45:03.791]   - Field: 'owner'
  [14:45:03.791]   - Field: 'envir'
  [14:45:03.792]   - Field: 'packages'
  [14:45:03.792]   - Field: 'gc'
  [14:45:03.792]   - Field: 'conditions'
  [14:45:03.793]   - Field: 'expr'
  [14:45:03.793]   - Field: 'uuid'
  [14:45:03.793]   - Field: 'seed'
  [14:45:03.793]   - Field: 'version'
  [14:45:03.794]   - Field: 'result'
  [14:45:03.794]   - Field: 'asynchronous'
  [14:45:03.794]   - Field: 'calls'
  [14:45:03.794]   - Field: 'globals'
  [14:45:03.795]   - Field: 'stdout'
  [14:45:03.795]   - Field: 'earlySignal'
  [14:45:03.795]   - Field: 'lazy'
  [14:45:03.796]   - Field: 'state'
  [14:45:03.796] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:45:03.796] - Launch lazy future ...
  [14:45:03.797] Packages needed by the future expression (n = 0): <none>
  [14:45:03.797] Packages needed by future strategies (n = 0): <none>
  [14:45:03.798] {
  [14:45:03.798]     {
  [14:45:03.798]         {
  [14:45:03.798]             ...future.startTime <- base::Sys.time()
  [14:45:03.798]             {
  [14:45:03.798]                 {
  [14:45:03.798]                   {
  [14:45:03.798]                     base::local({
  [14:45:03.798]                       has_future <- base::requireNamespace("future", 
  [14:45:03.798]                         quietly = TRUE)
  [14:45:03.798]                       if (has_future) {
  [14:45:03.798]                         ns <- base::getNamespace("future")
  [14:45:03.798]                         version <- ns[[".package"]][["version"]]
  [14:45:03.798]                         if (is.null(version)) 
  [14:45:03.798]                           version <- utils::packageVersion("future")
  [14:45:03.798]                       }
  [14:45:03.798]                       else {
  [14:45:03.798]                         version <- NULL
  [14:45:03.798]                       }
  [14:45:03.798]                       if (!has_future || version < "1.8.0") {
  [14:45:03.798]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:45:03.798]                           "", base::R.version$version.string), 
  [14:45:03.798]                           platform = base::sprintf("%s (%s-bit)", 
  [14:45:03.798]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:45:03.798]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:45:03.798]                             "release", "version")], collapse = " "), 
  [14:45:03.798]                           hostname = base::Sys.info()[["nodename"]])
  [14:45:03.798]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:45:03.798]                           info)
  [14:45:03.798]                         info <- base::paste(info, collapse = "; ")
  [14:45:03.798]                         if (!has_future) {
  [14:45:03.798]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:45:03.798]                             info)
  [14:45:03.798]                         }
  [14:45:03.798]                         else {
  [14:45:03.798]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:45:03.798]                             info, version)
  [14:45:03.798]                         }
  [14:45:03.798]                         base::stop(msg)
  [14:45:03.798]                       }
  [14:45:03.798]                     })
  [14:45:03.798]                   }
  [14:45:03.798]                   options(future.plan = NULL)
  [14:45:03.798]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.798]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:45:03.798]                 }
  [14:45:03.798]                 ...future.workdir <- getwd()
  [14:45:03.798]             }
  [14:45:03.798]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:45:03.798]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:45:03.798]         }
  [14:45:03.798]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:45:03.798]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:45:03.798]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:45:03.798]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:45:03.798]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:45:03.798]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:45:03.798]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:45:03.798]             base::names(...future.oldOptions))
  [14:45:03.798]     }
  [14:45:03.798]     if (FALSE) {
  [14:45:03.798]     }
  [14:45:03.798]     else {
  [14:45:03.798]         if (TRUE) {
  [14:45:03.798]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:45:03.798]                 open = "w")
  [14:45:03.798]         }
  [14:45:03.798]         else {
  [14:45:03.798]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:45:03.798]                 windows = "NUL", "/dev/null"), open = "w")
  [14:45:03.798]         }
  [14:45:03.798]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:45:03.798]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:45:03.798]             base::sink(type = "output", split = FALSE)
  [14:45:03.798]             base::close(...future.stdout)
  [14:45:03.798]         }, add = TRUE)
  [14:45:03.798]     }
  [14:45:03.798]     ...future.frame <- base::sys.nframe()
  [14:45:03.798]     ...future.conditions <- base::list()
  [14:45:03.798]     ...future.rng <- base::globalenv()$.Random.seed
  [14:45:03.798]     if (FALSE) {
  [14:45:03.798]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:45:03.798]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:45:03.798]     }
  [14:45:03.798]     ...future.result <- base::tryCatch({
  [14:45:03.798]         base::withCallingHandlers({
  [14:45:03.798]             ...future.value <- base::withVisible(base::local(sprintf("(%s, %s)", 
  [14:45:03.798]                 rr, cc)))
  [14:45:03.798]             future::FutureResult(value = ...future.value$value, 
  [14:45:03.798]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.798]                   ...future.rng), globalenv = if (FALSE) 
  [14:45:03.798]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:45:03.798]                     ...future.globalenv.names))
  [14:45:03.798]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:45:03.798]         }, condition = base::local({
  [14:45:03.798]             c <- base::c
  [14:45:03.798]             inherits <- base::inherits
  [14:45:03.798]             invokeRestart <- base::invokeRestart
  [14:45:03.798]             length <- base::length
  [14:45:03.798]             list <- base::list
  [14:45:03.798]             seq.int <- base::seq.int
  [14:45:03.798]             signalCondition <- base::signalCondition
  [14:45:03.798]             sys.calls <- base::sys.calls
  [14:45:03.798]             `[[` <- base::`[[`
  [14:45:03.798]             `+` <- base::`+`
  [14:45:03.798]             `<<-` <- base::`<<-`
  [14:45:03.798]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:45:03.798]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:45:03.798]                   3L)]
  [14:45:03.798]             }
  [14:45:03.798]             function(cond) {
  [14:45:03.798]                 is_error <- inherits(cond, "error")
  [14:45:03.798]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:45:03.798]                   NULL)
  [14:45:03.798]                 if (is_error) {
  [14:45:03.798]                   sessionInformation <- function() {
  [14:45:03.798]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:45:03.798]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:45:03.798]                       search = base::search(), system = base::Sys.info())
  [14:45:03.798]                   }
  [14:45:03.798]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.798]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:45:03.798]                     cond$call), session = sessionInformation(), 
  [14:45:03.798]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:45:03.798]                   signalCondition(cond)
  [14:45:03.798]                 }
  [14:45:03.798]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:45:03.798]                 "immediateCondition"))) {
  [14:45:03.798]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:45:03.798]                   ...future.conditions[[length(...future.conditions) + 
  [14:45:03.798]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:45:03.798]                   if (TRUE && !signal) {
  [14:45:03.798]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.798]                     {
  [14:45:03.798]                       inherits <- base::inherits
  [14:45:03.798]                       invokeRestart <- base::invokeRestart
  [14:45:03.798]                       is.null <- base::is.null
  [14:45:03.798]                       muffled <- FALSE
  [14:45:03.798]                       if (inherits(cond, "message")) {
  [14:45:03.798]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.798]                         if (muffled) 
  [14:45:03.798]                           invokeRestart("muffleMessage")
  [14:45:03.798]                       }
  [14:45:03.798]                       else if (inherits(cond, "warning")) {
  [14:45:03.798]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.798]                         if (muffled) 
  [14:45:03.798]                           invokeRestart("muffleWarning")
  [14:45:03.798]                       }
  [14:45:03.798]                       else if (inherits(cond, "condition")) {
  [14:45:03.798]                         if (!is.null(pattern)) {
  [14:45:03.798]                           computeRestarts <- base::computeRestarts
  [14:45:03.798]                           grepl <- base::grepl
  [14:45:03.798]                           restarts <- computeRestarts(cond)
  [14:45:03.798]                           for (restart in restarts) {
  [14:45:03.798]                             name <- restart$name
  [14:45:03.798]                             if (is.null(name)) 
  [14:45:03.798]                               next
  [14:45:03.798]                             if (!grepl(pattern, name)) 
  [14:45:03.798]                               next
  [14:45:03.798]                             invokeRestart(restart)
  [14:45:03.798]                             muffled <- TRUE
  [14:45:03.798]                             break
  [14:45:03.798]                           }
  [14:45:03.798]                         }
  [14:45:03.798]                       }
  [14:45:03.798]                       invisible(muffled)
  [14:45:03.798]                     }
  [14:45:03.798]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.798]                   }
  [14:45:03.798]                 }
  [14:45:03.798]                 else {
  [14:45:03.798]                   if (TRUE) {
  [14:45:03.798]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:45:03.798]                     {
  [14:45:03.798]                       inherits <- base::inherits
  [14:45:03.798]                       invokeRestart <- base::invokeRestart
  [14:45:03.798]                       is.null <- base::is.null
  [14:45:03.798]                       muffled <- FALSE
  [14:45:03.798]                       if (inherits(cond, "message")) {
  [14:45:03.798]                         muffled <- grepl(pattern, "muffleMessage")
  [14:45:03.798]                         if (muffled) 
  [14:45:03.798]                           invokeRestart("muffleMessage")
  [14:45:03.798]                       }
  [14:45:03.798]                       else if (inherits(cond, "warning")) {
  [14:45:03.798]                         muffled <- grepl(pattern, "muffleWarning")
  [14:45:03.798]                         if (muffled) 
  [14:45:03.798]                           invokeRestart("muffleWarning")
  [14:45:03.798]                       }
  [14:45:03.798]                       else if (inherits(cond, "condition")) {
  [14:45:03.798]                         if (!is.null(pattern)) {
  [14:45:03.798]                           computeRestarts <- base::computeRestarts
  [14:45:03.798]                           grepl <- base::grepl
  [14:45:03.798]                           restarts <- computeRestarts(cond)
  [14:45:03.798]                           for (restart in restarts) {
  [14:45:03.798]                             name <- restart$name
  [14:45:03.798]                             if (is.null(name)) 
  [14:45:03.798]                               next
  [14:45:03.798]                             if (!grepl(pattern, name)) 
  [14:45:03.798]                               next
  [14:45:03.798]                             invokeRestart(restart)
  [14:45:03.798]                             muffled <- TRUE
  [14:45:03.798]                             break
  [14:45:03.798]                           }
  [14:45:03.798]                         }
  [14:45:03.798]                       }
  [14:45:03.798]                       invisible(muffled)
  [14:45:03.798]                     }
  [14:45:03.798]                     muffleCondition(cond, pattern = "^muffle")
  [14:45:03.798]                   }
  [14:45:03.798]                 }
  [14:45:03.798]             }
  [14:45:03.798]         }))
  [14:45:03.798]     }, error = function(ex) {
  [14:45:03.798]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:45:03.798]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:45:03.798]                 ...future.rng), started = ...future.startTime, 
  [14:45:03.798]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:45:03.798]             version = "1.8"), class = "FutureResult")
  [14:45:03.798]     }, finally = {
  [14:45:03.798]         if (!identical(...future.workdir, getwd())) 
  [14:45:03.798]             setwd(...future.workdir)
  [14:45:03.798]         {
  [14:45:03.798]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:45:03.798]                 ...future.oldOptions$nwarnings <- NULL
  [14:45:03.798]             }
  [14:45:03.798]             base::options(...future.oldOptions)
  [14:45:03.798]             if (.Platform$OS.type == "windows") {
  [14:45:03.798]                 old_names <- names(...future.oldEnvVars)
  [14:45:03.798]                 envs <- base::Sys.getenv()
  [14:45:03.798]                 names <- names(envs)
  [14:45:03.798]                 common <- intersect(names, old_names)
  [14:45:03.798]                 added <- setdiff(names, old_names)
  [14:45:03.798]                 removed <- setdiff(old_names, names)
  [14:45:03.798]                 changed <- common[...future.oldEnvVars[common] != 
  [14:45:03.798]                   envs[common]]
  [14:45:03.798]                 NAMES <- toupper(changed)
  [14:45:03.798]                 args <- list()
  [14:45:03.798]                 for (kk in seq_along(NAMES)) {
  [14:45:03.798]                   name <- changed[[kk]]
  [14:45:03.798]                   NAME <- NAMES[[kk]]
  [14:45:03.798]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.798]                     next
  [14:45:03.798]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.798]                 }
  [14:45:03.798]                 NAMES <- toupper(added)
  [14:45:03.798]                 for (kk in seq_along(NAMES)) {
  [14:45:03.798]                   name <- added[[kk]]
  [14:45:03.798]                   NAME <- NAMES[[kk]]
  [14:45:03.798]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.798]                     next
  [14:45:03.798]                   args[[name]] <- ""
  [14:45:03.798]                 }
  [14:45:03.798]                 NAMES <- toupper(removed)
  [14:45:03.798]                 for (kk in seq_along(NAMES)) {
  [14:45:03.798]                   name <- removed[[kk]]
  [14:45:03.798]                   NAME <- NAMES[[kk]]
  [14:45:03.798]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:45:03.798]                     next
  [14:45:03.798]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:45:03.798]                 }
  [14:45:03.798]                 if (length(args) > 0) 
  [14:45:03.798]                   base::do.call(base::Sys.setenv, args = args)
  [14:45:03.798]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:45:03.798]             }
  [14:45:03.798]             else {
  [14:45:03.798]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:45:03.798]             }
  [14:45:03.798]             {
  [14:45:03.798]                 if (base::length(...future.futureOptionsAdded) > 
  [14:45:03.798]                   0L) {
  [14:45:03.798]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:45:03.798]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:45:03.798]                   base::options(opts)
  [14:45:03.798]                 }
  [14:45:03.798]                 {
  [14:45:03.798]                   {
  [14:45:03.798]                     NULL
  [14:45:03.798]                     RNGkind("Mersenne-Twister")
  [14:45:03.798]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:45:03.798]                       inherits = FALSE)
  [14:45:03.798]                   }
  [14:45:03.798]                   options(future.plan = NULL)
  [14:45:03.798]                   if (is.na(NA_character_)) 
  [14:45:03.798]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:45:03.798]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:45:03.798]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:45:03.798]                   {
  [14:45:03.798]                     future <- SequentialFuture(..., envir = envir)
  [14:45:03.798]                     if (!future$lazy) 
  [14:45:03.798]                       future <- run(future)
  [14:45:03.798]                     invisible(future)
  [14:45:03.798]                   }), .cleanup = FALSE, .init = FALSE)
  [14:45:03.798]                 }
  [14:45:03.798]             }
  [14:45:03.798]         }
  [14:45:03.798]     })
  [14:45:03.798]     if (TRUE) {
  [14:45:03.798]         base::sink(type = "output", split = FALSE)
  [14:45:03.798]         if (TRUE) {
  [14:45:03.798]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:45:03.798]         }
  [14:45:03.798]         else {
  [14:45:03.798]             ...future.result["stdout"] <- base::list(NULL)
  [14:45:03.798]         }
  [14:45:03.798]         base::close(...future.stdout)
  [14:45:03.798]         ...future.stdout <- NULL
  [14:45:03.798]     }
  [14:45:03.798]     ...future.result$conditions <- ...future.conditions
  [14:45:03.798]     ...future.result$finished <- base::Sys.time()
  [14:45:03.798]     ...future.result
  [14:45:03.798] }
  [14:45:03.804] assign_globals() ...
  [14:45:03.804] List of 2
  [14:45:03.804]  $ rr: int 3
  [14:45:03.804]  $ cc: int 2
  [14:45:03.804]  - attr(*, "where")=List of 2
  [14:45:03.804]   ..$ rr:<environment: R_EmptyEnv> 
  [14:45:03.804]   ..$ cc:<environment: R_EmptyEnv> 
  [14:45:03.804]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:45:03.804]  - attr(*, "resolved")= logi FALSE
  [14:45:03.804]  - attr(*, "total_size")= num 112
  [14:45:03.804]  - attr(*, "already-done")= logi TRUE
  [14:45:03.815] - copied 'rr' to environment
  [14:45:03.816] - copied 'cc' to environment
  [14:45:03.816] assign_globals() ... done
  [14:45:03.816] plan(): Setting new future strategy stack:
  [14:45:03.817] List of future strategies:
  [14:45:03.817] 1. sequential:
  [14:45:03.817]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.817]    - tweaked: FALSE
  [14:45:03.817]    - call: NULL
  [14:45:03.818] plan(): nbrOfWorkers() = 1
  [14:45:03.820] plan(): Setting new future strategy stack:
  [14:45:03.820] List of future strategies:
  [14:45:03.820] 1. sequential:
  [14:45:03.820]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.820]    - tweaked: FALSE
  [14:45:03.820]    - call: future::plan("sequential")
  [14:45:03.821] plan(): nbrOfWorkers() = 1
  [14:45:03.821] SequentialFuture started (and completed)
  [14:45:03.822] - Launch lazy future ... done
  [14:45:03.822] run() for 'SequentialFuture' ... done
  > dim(y) <- dim(x)
  > stopifnot(identical(y, x0))
  > 
  > message("*** %<-% to listenv: multiple dimensions ... DONE")
  *** %<-% to listenv: multiple dimensions ... DONE
  > 
  > message("*** %<-% to listenv ... DONE")
  *** %<-% to listenv ... DONE
  > 
  > source("incl/end.R")
  [14:45:03.824] plan(): Setting new future strategy stack:
  [14:45:03.824] List of future strategies:
  [14:45:03.824] 1. FutureStrategy:
  [14:45:03.824]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:45:03.824]    - tweaked: FALSE
  [14:45:03.824]    - call: future::plan(oplan)
  [14:45:03.851] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.75    0.07    0.84 
Running the tests in 'tests/futureOf_with_environment.R' failed.
Complete output:
  > source("incl/start.R")
  [14:47:46.031] plan(): Setting new future strategy stack:
  [14:47:46.033] List of future strategies:
  [14:47:46.033] 1. sequential:
  [14:47:46.033]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.033]    - tweaked: FALSE
  [14:47:46.033]    - call: future::plan("sequential")
  [14:47:46.050] plan(): nbrOfWorkers() = 1
  > 
  > suppressWarnings(rm(list = c("x", "z")))
  > 
  > message("*** futureOf() with environment ...")
  *** futureOf() with environment ...
  > 
  > message("*** futureOf() with environment - future assignments ...")
  *** futureOf() with environment - future assignments ...
  > 
  > x <- new.env()
  > x$a %<-% { 1 }
  [14:47:46.059] getGlobalsAndPackages() ...
  [14:47:46.059] Searching for globals...
  [14:47:46.063] - globals found: [1] '{'
  [14:47:46.063] Searching for globals ... DONE
  [14:47:46.063] Resolving globals: FALSE
  [14:47:46.064] 
  [14:47:46.064] 
  [14:47:46.064] getGlobalsAndPackages() ... DONE
  [14:47:46.065] run() for 'Future' ...
  [14:47:46.066] - state: 'created'
  [14:47:46.066] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:47:46.067] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:47:46.067] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:47:46.067]   - Field: 'label'
  [14:47:46.068]   - Field: 'local'
  [14:47:46.068]   - Field: 'owner'
  [14:47:46.068]   - Field: 'envir'
  [14:47:46.069]   - Field: 'packages'
  [14:47:46.069]   - Field: 'gc'
  [14:47:46.069]   - Field: 'conditions'
  [14:47:46.069]   - Field: 'expr'
  [14:47:46.070]   - Field: 'uuid'
  [14:47:46.070]   - Field: 'seed'
  [14:47:46.070]   - Field: 'version'
  [14:47:46.071]   - Field: 'result'
  [14:47:46.071]   - Field: 'asynchronous'
  [14:47:46.071]   - Field: 'calls'
  [14:47:46.072]   - Field: 'globals'
  [14:47:46.072]   - Field: 'stdout'
  [14:47:46.072]   - Field: 'earlySignal'
  [14:47:46.072]   - Field: 'lazy'
  [14:47:46.073]   - Field: 'state'
  [14:47:46.073] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:47:46.073] - Launch lazy future ...
  [14:47:46.075] Packages needed by the future expression (n = 0): <none>
  [14:47:46.075] Packages needed by future strategies (n = 0): <none>
  [14:47:46.077] {
  [14:47:46.077]     {
  [14:47:46.077]         {
  [14:47:46.077]             ...future.startTime <- base::Sys.time()
  [14:47:46.077]             {
  [14:47:46.077]                 {
  [14:47:46.077]                   {
  [14:47:46.077]                     base::local({
  [14:47:46.077]                       has_future <- base::requireNamespace("future", 
  [14:47:46.077]                         quietly = TRUE)
  [14:47:46.077]                       if (has_future) {
  [14:47:46.077]                         ns <- base::getNamespace("future")
  [14:47:46.077]                         version <- ns[[".package"]][["version"]]
  [14:47:46.077]                         if (is.null(version)) 
  [14:47:46.077]                           version <- utils::packageVersion("future")
  [14:47:46.077]                       }
  [14:47:46.077]                       else {
  [14:47:46.077]                         version <- NULL
  [14:47:46.077]                       }
  [14:47:46.077]                       if (!has_future || version < "1.8.0") {
  [14:47:46.077]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:47:46.077]                           "", base::R.version$version.string), 
  [14:47:46.077]                           platform = base::sprintf("%s (%s-bit)", 
  [14:47:46.077]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:47:46.077]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:47:46.077]                             "release", "version")], collapse = " "), 
  [14:47:46.077]                           hostname = base::Sys.info()[["nodename"]])
  [14:47:46.077]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:47:46.077]                           info)
  [14:47:46.077]                         info <- base::paste(info, collapse = "; ")
  [14:47:46.077]                         if (!has_future) {
  [14:47:46.077]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:47:46.077]                             info)
  [14:47:46.077]                         }
  [14:47:46.077]                         else {
  [14:47:46.077]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:47:46.077]                             info, version)
  [14:47:46.077]                         }
  [14:47:46.077]                         base::stop(msg)
  [14:47:46.077]                       }
  [14:47:46.077]                     })
  [14:47:46.077]                   }
  [14:47:46.077]                   options(future.plan = NULL)
  [14:47:46.077]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:47:46.077]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:47:46.077]                 }
  [14:47:46.077]                 ...future.workdir <- getwd()
  [14:47:46.077]             }
  [14:47:46.077]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:47:46.077]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:47:46.077]         }
  [14:47:46.077]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:47:46.077]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:47:46.077]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:47:46.077]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:47:46.077]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:47:46.077]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:47:46.077]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:47:46.077]             base::names(...future.oldOptions))
  [14:47:46.077]     }
  [14:47:46.077]     if (FALSE) {
  [14:47:46.077]     }
  [14:47:46.077]     else {
  [14:47:46.077]         if (TRUE) {
  [14:47:46.077]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:47:46.077]                 open = "w")
  [14:47:46.077]         }
  [14:47:46.077]         else {
  [14:47:46.077]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:47:46.077]                 windows = "NUL", "/dev/null"), open = "w")
  [14:47:46.077]         }
  [14:47:46.077]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:47:46.077]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:47:46.077]             base::sink(type = "output", split = FALSE)
  [14:47:46.077]             base::close(...future.stdout)
  [14:47:46.077]         }, add = TRUE)
  [14:47:46.077]     }
  [14:47:46.077]     ...future.frame <- base::sys.nframe()
  [14:47:46.077]     ...future.conditions <- base::list()
  [14:47:46.077]     ...future.rng <- base::globalenv()$.Random.seed
  [14:47:46.077]     if (FALSE) {
  [14:47:46.077]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:47:46.077]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:47:46.077]     }
  [14:47:46.077]     ...future.result <- base::tryCatch({
  [14:47:46.077]         base::withCallingHandlers({
  [14:47:46.077]             ...future.value <- base::withVisible(base::local({
  [14:47:46.077]                 1
  [14:47:46.077]             }))
  [14:47:46.077]             future::FutureResult(value = ...future.value$value, 
  [14:47:46.077]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:47:46.077]                   ...future.rng), globalenv = if (FALSE) 
  [14:47:46.077]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:47:46.077]                     ...future.globalenv.names))
  [14:47:46.077]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:47:46.077]         }, condition = base::local({
  [14:47:46.077]             c <- base::c
  [14:47:46.077]             inherits <- base::inherits
  [14:47:46.077]             invokeRestart <- base::invokeRestart
  [14:47:46.077]             length <- base::length
  [14:47:46.077]             list <- base::list
  [14:47:46.077]             seq.int <- base::seq.int
  [14:47:46.077]             signalCondition <- base::signalCondition
  [14:47:46.077]             sys.calls <- base::sys.calls
  [14:47:46.077]             `[[` <- base::`[[`
  [14:47:46.077]             `+` <- base::`+`
  [14:47:46.077]             `<<-` <- base::`<<-`
  [14:47:46.077]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:47:46.077]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:47:46.077]                   3L)]
  [14:47:46.077]             }
  [14:47:46.077]             function(cond) {
  [14:47:46.077]                 is_error <- inherits(cond, "error")
  [14:47:46.077]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:47:46.077]                   NULL)
  [14:47:46.077]                 if (is_error) {
  [14:47:46.077]                   sessionInformation <- function() {
  [14:47:46.077]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:47:46.077]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:47:46.077]                       search = base::search(), system = base::Sys.info())
  [14:47:46.077]                   }
  [14:47:46.077]                   ...future.conditions[[length(...future.conditions) + 
  [14:47:46.077]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:47:46.077]                     cond$call), session = sessionInformation(), 
  [14:47:46.077]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:47:46.077]                   signalCondition(cond)
  [14:47:46.077]                 }
  [14:47:46.077]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:47:46.077]                 "immediateCondition"))) {
  [14:47:46.077]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:47:46.077]                   ...future.conditions[[length(...future.conditions) + 
  [14:47:46.077]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:47:46.077]                   if (TRUE && !signal) {
  [14:47:46.077]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:47:46.077]                     {
  [14:47:46.077]                       inherits <- base::inherits
  [14:47:46.077]                       invokeRestart <- base::invokeRestart
  [14:47:46.077]                       is.null <- base::is.null
  [14:47:46.077]                       muffled <- FALSE
  [14:47:46.077]                       if (inherits(cond, "message")) {
  [14:47:46.077]                         muffled <- grepl(pattern, "muffleMessage")
  [14:47:46.077]                         if (muffled) 
  [14:47:46.077]                           invokeRestart("muffleMessage")
  [14:47:46.077]                       }
  [14:47:46.077]                       else if (inherits(cond, "warning")) {
  [14:47:46.077]                         muffled <- grepl(pattern, "muffleWarning")
  [14:47:46.077]                         if (muffled) 
  [14:47:46.077]                           invokeRestart("muffleWarning")
  [14:47:46.077]                       }
  [14:47:46.077]                       else if (inherits(cond, "condition")) {
  [14:47:46.077]                         if (!is.null(pattern)) {
  [14:47:46.077]                           computeRestarts <- base::computeRestarts
  [14:47:46.077]                           grepl <- base::grepl
  [14:47:46.077]                           restarts <- computeRestarts(cond)
  [14:47:46.077]                           for (restart in restarts) {
  [14:47:46.077]                             name <- restart$name
  [14:47:46.077]                             if (is.null(name)) 
  [14:47:46.077]                               next
  [14:47:46.077]                             if (!grepl(pattern, name)) 
  [14:47:46.077]                               next
  [14:47:46.077]                             invokeRestart(restart)
  [14:47:46.077]                             muffled <- TRUE
  [14:47:46.077]                             break
  [14:47:46.077]                           }
  [14:47:46.077]                         }
  [14:47:46.077]                       }
  [14:47:46.077]                       invisible(muffled)
  [14:47:46.077]                     }
  [14:47:46.077]                     muffleCondition(cond, pattern = "^muffle")
  [14:47:46.077]                   }
  [14:47:46.077]                 }
  [14:47:46.077]                 else {
  [14:47:46.077]                   if (TRUE) {
  [14:47:46.077]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:47:46.077]                     {
  [14:47:46.077]                       inherits <- base::inherits
  [14:47:46.077]                       invokeRestart <- base::invokeRestart
  [14:47:46.077]                       is.null <- base::is.null
  [14:47:46.077]                       muffled <- FALSE
  [14:47:46.077]                       if (inherits(cond, "message")) {
  [14:47:46.077]                         muffled <- grepl(pattern, "muffleMessage")
  [14:47:46.077]                         if (muffled) 
  [14:47:46.077]                           invokeRestart("muffleMessage")
  [14:47:46.077]                       }
  [14:47:46.077]                       else if (inherits(cond, "warning")) {
  [14:47:46.077]                         muffled <- grepl(pattern, "muffleWarning")
  [14:47:46.077]                         if (muffled) 
  [14:47:46.077]                           invokeRestart("muffleWarning")
  [14:47:46.077]                       }
  [14:47:46.077]                       else if (inherits(cond, "condition")) {
  [14:47:46.077]                         if (!is.null(pattern)) {
  [14:47:46.077]                           computeRestarts <- base::computeRestarts
  [14:47:46.077]                           grepl <- base::grepl
  [14:47:46.077]                           restarts <- computeRestarts(cond)
  [14:47:46.077]                           for (restart in restarts) {
  [14:47:46.077]                             name <- restart$name
  [14:47:46.077]                             if (is.null(name)) 
  [14:47:46.077]                               next
  [14:47:46.077]                             if (!grepl(pattern, name)) 
  [14:47:46.077]                               next
  [14:47:46.077]                             invokeRestart(restart)
  [14:47:46.077]                             muffled <- TRUE
  [14:47:46.077]                             break
  [14:47:46.077]                           }
  [14:47:46.077]                         }
  [14:47:46.077]                       }
  [14:47:46.077]                       invisible(muffled)
  [14:47:46.077]                     }
  [14:47:46.077]                     muffleCondition(cond, pattern = "^muffle")
  [14:47:46.077]                   }
  [14:47:46.077]                 }
  [14:47:46.077]             }
  [14:47:46.077]         }))
  [14:47:46.077]     }, error = function(ex) {
  [14:47:46.077]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:47:46.077]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:47:46.077]                 ...future.rng), started = ...future.startTime, 
  [14:47:46.077]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:47:46.077]             version = "1.8"), class = "FutureResult")
  [14:47:46.077]     }, finally = {
  [14:47:46.077]         if (!identical(...future.workdir, getwd())) 
  [14:47:46.077]             setwd(...future.workdir)
  [14:47:46.077]         {
  [14:47:46.077]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:47:46.077]                 ...future.oldOptions$nwarnings <- NULL
  [14:47:46.077]             }
  [14:47:46.077]             base::options(...future.oldOptions)
  [14:47:46.077]             if (.Platform$OS.type == "windows") {
  [14:47:46.077]                 old_names <- names(...future.oldEnvVars)
  [14:47:46.077]                 envs <- base::Sys.getenv()
  [14:47:46.077]                 names <- names(envs)
  [14:47:46.077]                 common <- intersect(names, old_names)
  [14:47:46.077]                 added <- setdiff(names, old_names)
  [14:47:46.077]                 removed <- setdiff(old_names, names)
  [14:47:46.077]                 changed <- common[...future.oldEnvVars[common] != 
  [14:47:46.077]                   envs[common]]
  [14:47:46.077]                 NAMES <- toupper(changed)
  [14:47:46.077]                 args <- list()
  [14:47:46.077]                 for (kk in seq_along(NAMES)) {
  [14:47:46.077]                   name <- changed[[kk]]
  [14:47:46.077]                   NAME <- NAMES[[kk]]
  [14:47:46.077]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.077]                     next
  [14:47:46.077]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:47:46.077]                 }
  [14:47:46.077]                 NAMES <- toupper(added)
  [14:47:46.077]                 for (kk in seq_along(NAMES)) {
  [14:47:46.077]                   name <- added[[kk]]
  [14:47:46.077]                   NAME <- NAMES[[kk]]
  [14:47:46.077]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.077]                     next
  [14:47:46.077]                   args[[name]] <- ""
  [14:47:46.077]                 }
  [14:47:46.077]                 NAMES <- toupper(removed)
  [14:47:46.077]                 for (kk in seq_along(NAMES)) {
  [14:47:46.077]                   name <- removed[[kk]]
  [14:47:46.077]                   NAME <- NAMES[[kk]]
  [14:47:46.077]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.077]                     next
  [14:47:46.077]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:47:46.077]                 }
  [14:47:46.077]                 if (length(args) > 0) 
  [14:47:46.077]                   base::do.call(base::Sys.setenv, args = args)
  [14:47:46.077]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:47:46.077]             }
  [14:47:46.077]             else {
  [14:47:46.077]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:47:46.077]             }
  [14:47:46.077]             {
  [14:47:46.077]                 if (base::length(...future.futureOptionsAdded) > 
  [14:47:46.077]                   0L) {
  [14:47:46.077]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:47:46.077]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:47:46.077]                   base::options(opts)
  [14:47:46.077]                 }
  [14:47:46.077]                 {
  [14:47:46.077]                   {
  [14:47:46.077]                     NULL
  [14:47:46.077]                     RNGkind("Mersenne-Twister")
  [14:47:46.077]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:47:46.077]                       inherits = FALSE)
  [14:47:46.077]                   }
  [14:47:46.077]                   options(future.plan = NULL)
  [14:47:46.077]                   if (is.na(NA_character_)) 
  [14:47:46.077]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:47:46.077]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:47:46.077]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:47:46.077]                   {
  [14:47:46.077]                     future <- SequentialFuture(..., envir = envir)
  [14:47:46.077]                     if (!future$lazy) 
  [14:47:46.077]                       future <- run(future)
  [14:47:46.077]                     invisible(future)
  [14:47:46.077]                   }), .cleanup = FALSE, .init = FALSE)
  [14:47:46.077]                 }
  [14:47:46.077]             }
  [14:47:46.077]         }
  [14:47:46.077]     })
  [14:47:46.077]     if (TRUE) {
  [14:47:46.077]         base::sink(type = "output", split = FALSE)
  [14:47:46.077]         if (TRUE) {
  [14:47:46.077]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:47:46.077]         }
  [14:47:46.077]         else {
  [14:47:46.077]             ...future.result["stdout"] <- base::list(NULL)
  [14:47:46.077]         }
  [14:47:46.077]         base::close(...future.stdout)
  [14:47:46.077]         ...future.stdout <- NULL
  [14:47:46.077]     }
  [14:47:46.077]     ...future.result$conditions <- ...future.conditions
  [14:47:46.077]     ...future.result$finished <- base::Sys.time()
  [14:47:46.077]     ...future.result
  [14:47:46.077] }
  [14:47:46.084] plan(): Setting new future strategy stack:
  [14:47:46.084] List of future strategies:
  [14:47:46.084] 1. sequential:
  [14:47:46.084]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.084]    - tweaked: FALSE
  [14:47:46.084]    - call: NULL
  [14:47:46.085] plan(): nbrOfWorkers() = 1
  [14:47:46.088] plan(): Setting new future strategy stack:
  [14:47:46.088] List of future strategies:
  [14:47:46.088] 1. sequential:
  [14:47:46.088]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.088]    - tweaked: FALSE
  [14:47:46.088]    - call: future::plan("sequential")
  [14:47:46.089] plan(): nbrOfWorkers() = 1
  [14:47:46.090] SequentialFuture started (and completed)
  [14:47:46.091] - Launch lazy future ... done
  [14:47:46.091] run() for 'SequentialFuture' ... done
  > 
  > f1 <- futureOf("a", envir = x)
  > print(f1)
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  > f2 <- futureOf(a, envir = x)
  > f3 <- futureOf(x[["a"]])
  > f4 <- futureOf(x$a)
  > stopifnot(identical(f2, f1), identical(f3, f1), identical(f4, f1))
  > 
  > ## Identify all futures
  > fs <- futureOf(envir = x)
  > print(fs)
  $a
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  
  > stopifnot(identical(names(fs), c("a")))
  > stopifnot(identical(fs$a, f1))
  > 
  > fsD <- futureOf(envir = x, drop = TRUE)
  > print(fsD)
  $a
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  
  > stopifnot(all(sapply(fsD, FUN = inherits, "Future")))
  > stopifnot(identical(fsD, fs))
  > 
  > message("*** futureOf() with environment - future assignments ... DONE")
  *** futureOf() with environment - future assignments ... DONE
  > 
  > 
  > message("*** futureOf() with environment - futures ...")
  *** futureOf() with environment - futures ...
  > 
  > x <- new.env()
  > x$a <- future({ 1 })
  [14:47:46.098] getGlobalsAndPackages() ...
  [14:47:46.098] Searching for globals...
  [14:47:46.099] - globals found: [1] '{'
  [14:47:46.099] Searching for globals ... DONE
  [14:47:46.100] Resolving globals: FALSE
  [14:47:46.100] 
  [14:47:46.101] 
  [14:47:46.101] getGlobalsAndPackages() ... DONE
  [14:47:46.101] run() for 'Future' ...
  [14:47:46.105] - state: 'created'
  [14:47:46.106] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:47:46.106] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:47:46.107] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:47:46.107]   - Field: 'label'
  [14:47:46.107]   - Field: 'local'
  [14:47:46.108]   - Field: 'owner'
  [14:47:46.108]   - Field: 'envir'
  [14:47:46.108]   - Field: 'packages'
  [14:47:46.109]   - Field: 'gc'
  [14:47:46.109]   - Field: 'conditions'
  [14:47:46.109]   - Field: 'expr'
  [14:47:46.110]   - Field: 'uuid'
  [14:47:46.110]   - Field: 'seed'
  [14:47:46.110]   - Field: 'version'
  [14:47:46.110]   - Field: 'result'
  [14:47:46.111]   - Field: 'asynchronous'
  [14:47:46.111]   - Field: 'calls'
  [14:47:46.111]   - Field: 'globals'
  [14:47:46.112]   - Field: 'stdout'
  [14:47:46.112]   - Field: 'earlySignal'
  [14:47:46.112]   - Field: 'lazy'
  [14:47:46.113]   - Field: 'state'
  [14:47:46.113] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:47:46.113] - Launch lazy future ...
  [14:47:46.114] Packages needed by the future expression (n = 0): <none>
  [14:47:46.114] Packages needed by future strategies (n = 0): <none>
  [14:47:46.115] {
  [14:47:46.115]     {
  [14:47:46.115]         {
  [14:47:46.115]             ...future.startTime <- base::Sys.time()
  [14:47:46.115]             {
  [14:47:46.115]                 {
  [14:47:46.115]                   {
  [14:47:46.115]                     base::local({
  [14:47:46.115]                       has_future <- base::requireNamespace("future", 
  [14:47:46.115]                         quietly = TRUE)
  [14:47:46.115]                       if (has_future) {
  [14:47:46.115]                         ns <- base::getNamespace("future")
  [14:47:46.115]                         version <- ns[[".package"]][["version"]]
  [14:47:46.115]                         if (is.null(version)) 
  [14:47:46.115]                           version <- utils::packageVersion("future")
  [14:47:46.115]                       }
  [14:47:46.115]                       else {
  [14:47:46.115]                         version <- NULL
  [14:47:46.115]                       }
  [14:47:46.115]                       if (!has_future || version < "1.8.0") {
  [14:47:46.115]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:47:46.115]                           "", base::R.version$version.string), 
  [14:47:46.115]                           platform = base::sprintf("%s (%s-bit)", 
  [14:47:46.115]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:47:46.115]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:47:46.115]                             "release", "version")], collapse = " "), 
  [14:47:46.115]                           hostname = base::Sys.info()[["nodename"]])
  [14:47:46.115]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:47:46.115]                           info)
  [14:47:46.115]                         info <- base::paste(info, collapse = "; ")
  [14:47:46.115]                         if (!has_future) {
  [14:47:46.115]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:47:46.115]                             info)
  [14:47:46.115]                         }
  [14:47:46.115]                         else {
  [14:47:46.115]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:47:46.115]                             info, version)
  [14:47:46.115]                         }
  [14:47:46.115]                         base::stop(msg)
  [14:47:46.115]                       }
  [14:47:46.115]                     })
  [14:47:46.115]                   }
  [14:47:46.115]                   options(future.plan = NULL)
  [14:47:46.115]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:47:46.115]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:47:46.115]                 }
  [14:47:46.115]                 ...future.workdir <- getwd()
  [14:47:46.115]             }
  [14:47:46.115]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:47:46.115]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:47:46.115]         }
  [14:47:46.115]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:47:46.115]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:47:46.115]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:47:46.115]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:47:46.115]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:47:46.115]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:47:46.115]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:47:46.115]             base::names(...future.oldOptions))
  [14:47:46.115]     }
  [14:47:46.115]     if (FALSE) {
  [14:47:46.115]     }
  [14:47:46.115]     else {
  [14:47:46.115]         if (TRUE) {
  [14:47:46.115]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:47:46.115]                 open = "w")
  [14:47:46.115]         }
  [14:47:46.115]         else {
  [14:47:46.115]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:47:46.115]                 windows = "NUL", "/dev/null"), open = "w")
  [14:47:46.115]         }
  [14:47:46.115]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:47:46.115]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:47:46.115]             base::sink(type = "output", split = FALSE)
  [14:47:46.115]             base::close(...future.stdout)
  [14:47:46.115]         }, add = TRUE)
  [14:47:46.115]     }
  [14:47:46.115]     ...future.frame <- base::sys.nframe()
  [14:47:46.115]     ...future.conditions <- base::list()
  [14:47:46.115]     ...future.rng <- base::globalenv()$.Random.seed
  [14:47:46.115]     if (FALSE) {
  [14:47:46.115]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:47:46.115]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:47:46.115]     }
  [14:47:46.115]     ...future.result <- base::tryCatch({
  [14:47:46.115]         base::withCallingHandlers({
  [14:47:46.115]             ...future.value <- base::withVisible(base::local({
  [14:47:46.115]                 1
  [14:47:46.115]             }))
  [14:47:46.115]             future::FutureResult(value = ...future.value$value, 
  [14:47:46.115]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:47:46.115]                   ...future.rng), globalenv = if (FALSE) 
  [14:47:46.115]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:47:46.115]                     ...future.globalenv.names))
  [14:47:46.115]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:47:46.115]         }, condition = base::local({
  [14:47:46.115]             c <- base::c
  [14:47:46.115]             inherits <- base::inherits
  [14:47:46.115]             invokeRestart <- base::invokeRestart
  [14:47:46.115]             length <- base::length
  [14:47:46.115]             list <- base::list
  [14:47:46.115]             seq.int <- base::seq.int
  [14:47:46.115]             signalCondition <- base::signalCondition
  [14:47:46.115]             sys.calls <- base::sys.calls
  [14:47:46.115]             `[[` <- base::`[[`
  [14:47:46.115]             `+` <- base::`+`
  [14:47:46.115]             `<<-` <- base::`<<-`
  [14:47:46.115]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:47:46.115]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:47:46.115]                   3L)]
  [14:47:46.115]             }
  [14:47:46.115]             function(cond) {
  [14:47:46.115]                 is_error <- inherits(cond, "error")
  [14:47:46.115]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:47:46.115]                   NULL)
  [14:47:46.115]                 if (is_error) {
  [14:47:46.115]                   sessionInformation <- function() {
  [14:47:46.115]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:47:46.115]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:47:46.115]                       search = base::search(), system = base::Sys.info())
  [14:47:46.115]                   }
  [14:47:46.115]                   ...future.conditions[[length(...future.conditions) + 
  [14:47:46.115]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:47:46.115]                     cond$call), session = sessionInformation(), 
  [14:47:46.115]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:47:46.115]                   signalCondition(cond)
  [14:47:46.115]                 }
  [14:47:46.115]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:47:46.115]                 "immediateCondition"))) {
  [14:47:46.115]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:47:46.115]                   ...future.conditions[[length(...future.conditions) + 
  [14:47:46.115]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:47:46.115]                   if (TRUE && !signal) {
  [14:47:46.115]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:47:46.115]                     {
  [14:47:46.115]                       inherits <- base::inherits
  [14:47:46.115]                       invokeRestart <- base::invokeRestart
  [14:47:46.115]                       is.null <- base::is.null
  [14:47:46.115]                       muffled <- FALSE
  [14:47:46.115]                       if (inherits(cond, "message")) {
  [14:47:46.115]                         muffled <- grepl(pattern, "muffleMessage")
  [14:47:46.115]                         if (muffled) 
  [14:47:46.115]                           invokeRestart("muffleMessage")
  [14:47:46.115]                       }
  [14:47:46.115]                       else if (inherits(cond, "warning")) {
  [14:47:46.115]                         muffled <- grepl(pattern, "muffleWarning")
  [14:47:46.115]                         if (muffled) 
  [14:47:46.115]                           invokeRestart("muffleWarning")
  [14:47:46.115]                       }
  [14:47:46.115]                       else if (inherits(cond, "condition")) {
  [14:47:46.115]                         if (!is.null(pattern)) {
  [14:47:46.115]                           computeRestarts <- base::computeRestarts
  [14:47:46.115]                           grepl <- base::grepl
  [14:47:46.115]                           restarts <- computeRestarts(cond)
  [14:47:46.115]                           for (restart in restarts) {
  [14:47:46.115]                             name <- restart$name
  [14:47:46.115]                             if (is.null(name)) 
  [14:47:46.115]                               next
  [14:47:46.115]                             if (!grepl(pattern, name)) 
  [14:47:46.115]                               next
  [14:47:46.115]                             invokeRestart(restart)
  [14:47:46.115]                             muffled <- TRUE
  [14:47:46.115]                             break
  [14:47:46.115]                           }
  [14:47:46.115]                         }
  [14:47:46.115]                       }
  [14:47:46.115]                       invisible(muffled)
  [14:47:46.115]                     }
  [14:47:46.115]                     muffleCondition(cond, pattern = "^muffle")
  [14:47:46.115]                   }
  [14:47:46.115]                 }
  [14:47:46.115]                 else {
  [14:47:46.115]                   if (TRUE) {
  [14:47:46.115]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:47:46.115]                     {
  [14:47:46.115]                       inherits <- base::inherits
  [14:47:46.115]                       invokeRestart <- base::invokeRestart
  [14:47:46.115]                       is.null <- base::is.null
  [14:47:46.115]                       muffled <- FALSE
  [14:47:46.115]                       if (inherits(cond, "message")) {
  [14:47:46.115]                         muffled <- grepl(pattern, "muffleMessage")
  [14:47:46.115]                         if (muffled) 
  [14:47:46.115]                           invokeRestart("muffleMessage")
  [14:47:46.115]                       }
  [14:47:46.115]                       else if (inherits(cond, "warning")) {
  [14:47:46.115]                         muffled <- grepl(pattern, "muffleWarning")
  [14:47:46.115]                         if (muffled) 
  [14:47:46.115]                           invokeRestart("muffleWarning")
  [14:47:46.115]                       }
  [14:47:46.115]                       else if (inherits(cond, "condition")) {
  [14:47:46.115]                         if (!is.null(pattern)) {
  [14:47:46.115]                           computeRestarts <- base::computeRestarts
  [14:47:46.115]                           grepl <- base::grepl
  [14:47:46.115]                           restarts <- computeRestarts(cond)
  [14:47:46.115]                           for (restart in restarts) {
  [14:47:46.115]                             name <- restart$name
  [14:47:46.115]                             if (is.null(name)) 
  [14:47:46.115]                               next
  [14:47:46.115]                             if (!grepl(pattern, name)) 
  [14:47:46.115]                               next
  [14:47:46.115]                             invokeRestart(restart)
  [14:47:46.115]                             muffled <- TRUE
  [14:47:46.115]                             break
  [14:47:46.115]                           }
  [14:47:46.115]                         }
  [14:47:46.115]                       }
  [14:47:46.115]                       invisible(muffled)
  [14:47:46.115]                     }
  [14:47:46.115]                     muffleCondition(cond, pattern = "^muffle")
  [14:47:46.115]                   }
  [14:47:46.115]                 }
  [14:47:46.115]             }
  [14:47:46.115]         }))
  [14:47:46.115]     }, error = function(ex) {
  [14:47:46.115]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:47:46.115]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:47:46.115]                 ...future.rng), started = ...future.startTime, 
  [14:47:46.115]             finished = Sys.time(), session_uuid = NA_character_, 
  [14:47:46.115]             version = "1.8"), class = "FutureResult")
  [14:47:46.115]     }, finally = {
  [14:47:46.115]         if (!identical(...future.workdir, getwd())) 
  [14:47:46.115]             setwd(...future.workdir)
  [14:47:46.115]         {
  [14:47:46.115]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
  [14:47:46.115]                 ...future.oldOptions$nwarnings <- NULL
  [14:47:46.115]             }
  [14:47:46.115]             base::options(...future.oldOptions)
  [14:47:46.115]             if (.Platform$OS.type == "windows") {
  [14:47:46.115]                 old_names <- names(...future.oldEnvVars)
  [14:47:46.115]                 envs <- base::Sys.getenv()
  [14:47:46.115]                 names <- names(envs)
  [14:47:46.115]                 common <- intersect(names, old_names)
  [14:47:46.115]                 added <- setdiff(names, old_names)
  [14:47:46.115]                 removed <- setdiff(old_names, names)
  [14:47:46.115]                 changed <- common[...future.oldEnvVars[common] != 
  [14:47:46.115]                   envs[common]]
  [14:47:46.115]                 NAMES <- toupper(changed)
  [14:47:46.115]                 args <- list()
  [14:47:46.115]                 for (kk in seq_along(NAMES)) {
  [14:47:46.115]                   name <- changed[[kk]]
  [14:47:46.115]                   NAME <- NAMES[[kk]]
  [14:47:46.115]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.115]                     next
  [14:47:46.115]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:47:46.115]                 }
  [14:47:46.115]                 NAMES <- toupper(added)
  [14:47:46.115]                 for (kk in seq_along(NAMES)) {
  [14:47:46.115]                   name <- added[[kk]]
  [14:47:46.115]                   NAME <- NAMES[[kk]]
  [14:47:46.115]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.115]                     next
  [14:47:46.115]                   args[[name]] <- ""
  [14:47:46.115]                 }
  [14:47:46.115]                 NAMES <- toupper(removed)
  [14:47:46.115]                 for (kk in seq_along(NAMES)) {
  [14:47:46.115]                   name <- removed[[kk]]
  [14:47:46.115]                   NAME <- NAMES[[kk]]
  [14:47:46.115]                   if (name != NAME && is.element(NAME, old_names)) 
  [14:47:46.115]                     next
  [14:47:46.115]                   args[[name]] <- ...future.oldEnvVars[[name]]
  [14:47:46.115]                 }
  [14:47:46.115]                 if (length(args) > 0) 
  [14:47:46.115]                   base::do.call(base::Sys.setenv, args = args)
  [14:47:46.115]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
  [14:47:46.115]             }
  [14:47:46.115]             else {
  [14:47:46.115]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
  [14:47:46.115]             }
  [14:47:46.115]             {
  [14:47:46.115]                 if (base::length(...future.futureOptionsAdded) > 
  [14:47:46.115]                   0L) {
  [14:47:46.115]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
  [14:47:46.115]                   base::names(opts) <- ...future.futureOptionsAdded
  [14:47:46.115]                   base::options(opts)
  [14:47:46.115]                 }
  [14:47:46.115]                 {
  [14:47:46.115]                   {
  [14:47:46.115]                     NULL
  [14:47:46.115]                     RNGkind("Mersenne-Twister")
  [14:47:46.115]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
  [14:47:46.115]                       inherits = FALSE)
  [14:47:46.115]                   }
  [14:47:46.115]                   options(future.plan = NULL)
  [14:47:46.115]                   if (is.na(NA_character_)) 
  [14:47:46.115]                     Sys.unsetenv("R_FUTURE_PLAN")
  [14:47:46.115]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
  [14:47:46.115]                   future::plan(list(function (..., envir = parent.frame()) 
  [14:47:46.115]                   {
  [14:47:46.115]                     future <- SequentialFuture(..., envir = envir)
  [14:47:46.115]                     if (!future$lazy) 
  [14:47:46.115]                       future <- run(future)
  [14:47:46.115]                     invisible(future)
  [14:47:46.115]                   }), .cleanup = FALSE, .init = FALSE)
  [14:47:46.115]                 }
  [14:47:46.115]             }
  [14:47:46.115]         }
  [14:47:46.115]     })
  [14:47:46.115]     if (TRUE) {
  [14:47:46.115]         base::sink(type = "output", split = FALSE)
  [14:47:46.115]         if (TRUE) {
  [14:47:46.115]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:47:46.115]         }
  [14:47:46.115]         else {
  [14:47:46.115]             ...future.result["stdout"] <- base::list(NULL)
  [14:47:46.115]         }
  [14:47:46.115]         base::close(...future.stdout)
  [14:47:46.115]         ...future.stdout <- NULL
  [14:47:46.115]     }
  [14:47:46.115]     ...future.result$conditions <- ...future.conditions
  [14:47:46.115]     ...future.result$finished <- base::Sys.time()
  [14:47:46.115]     ...future.result
  [14:47:46.115] }
  [14:47:46.122] plan(): Setting new future strategy stack:
  [14:47:46.122] List of future strategies:
  [14:47:46.122] 1. sequential:
  [14:47:46.122]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.122]    - tweaked: FALSE
  [14:47:46.122]    - call: NULL
  [14:47:46.123] plan(): nbrOfWorkers() = 1
  [14:47:46.125] plan(): Setting new future strategy stack:
  [14:47:46.125] List of future strategies:
  [14:47:46.125] 1. sequential:
  [14:47:46.125]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.125]    - tweaked: FALSE
  [14:47:46.125]    - call: future::plan("sequential")
  [14:47:46.126] plan(): nbrOfWorkers() = 1
  [14:47:46.126] SequentialFuture started (and completed)
  [14:47:46.127] - Launch lazy future ... done
  [14:47:46.127] run() for 'SequentialFuture' ... done
  > 
  > f1 <- futureOf("a", envir = x)
  > print(f1)
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  > stopifnot(identical(f1, x$a))
  > f2 <- futureOf(a, envir = x)
  > stopifnot(identical(f2, x$a))
  > f3 <- futureOf(x[["a"]])
  > stopifnot(identical(f3, x$a))
  > f4 <- futureOf(x$a)
  > stopifnot(identical(f4, x$a))
  > 
  > ## Identify all futures
  > fs <- futureOf(envir = x)
  > print(fs)
  $a
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  
  > stopifnot(identical(names(fs), c("a")))
  > stopifnot(identical(fs$a, f1))
  > 
  > fsD <- futureOf(envir = x, drop = TRUE)
  > print(fsD)
  $a
  SequentialFuture:
  Label: '<none>'
  Expression:
  {
      1
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: R_GlobalEnv
  Capture standard output: TRUE
  Capture condition classes: 'condition' (excluding 'nothing')
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'numeric'
  Early signaling: FALSE
  Owner process: 127b15e2-1d0e-8050-f8b2-59a0b2780984
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  
  > stopifnot(all(sapply(fsD, FUN = inherits, "Future")))
  > stopifnot(identical(fsD, fs))
  > 
  > message("*** futureOf() with environment - futures ... DONE")
  *** futureOf() with environment - futures ... DONE
  > 
  > 
  > message("*** futureOf() with environment - exceptions ...")
  *** futureOf() with environment - exceptions ...
  > 
  > ## Invalid subset
  > res <- tryCatch(futureOf(x[[0]], mustExist = FALSE), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > res <- tryCatch(futureOf(x[[0]], mustExist = TRUE), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > res <- tryCatch(futureOf(x[[10]], mustExist = TRUE), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > res <- tryCatch(futureOf(x[[1 + 2i]], mustExist = TRUE), error = identity)
  > stopifnot(inherits(res, "error"))
  > 
  > message("*** futureOf() with environment - exceptions ... DONE")
  *** futureOf() with environment - exceptions ... DONE
  > 
  > message("*** futureOf() with environment ... DONE")
  *** futureOf() with environment ... DONE
  > 
  > source("incl/end.R")
  [14:47:46.136] plan(): Setting new future strategy stack:
  [14:47:46.136] List of future strategies:
  [14:47:46.136] 1. FutureStrategy:
  [14:47:46.136]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:47:46.136]    - tweaked: FALSE
  [14:47:46.136]    - call: future::plan(oplan)
  [14:47:46.163] plan(): nbrOfWorkers() = 1
  Failed to undo environment variables:
   - Expected environment variables: [n=148] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TIMINGS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'mailMaintainer', 'maj.version', 'nextArg--library'
   - Environment variables still there: [n=0] 
   - Environment variables missing: [n=1] 'MAKEFLAGS'
  Differences environment variable by environment variable:
  List of 3
   $ name    : chr "MAKEFLAGS"
   $ expected: 'Dlist' chr ""
   $ actual  : 'Dlist' chr NA
  > 
  > proc.time()
     user  system elapsed 
     0.42    0.10    0.53 
Running the tests in 'tests/globals,S4methods.R' failed.
Complete output:
  > source("incl/start.R")
  [14:50:35.839] plan(): Setting new future strategy stack:
  [14:50:35.841] List of future strategies:
  [14:50:35.841] 1. sequential:
  [14:50:35.841]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:50:35.841]    - tweaked: FALSE
  [14:50:35.841]    - call: future::plan("sequential")
  [14:50:35.866] plan(): nbrOfWorkers() = 1
  > library(methods)
  > 
  > message("*** Globals - S4 methods ...")
  *** Globals - S4 methods ...
  > 
  > setGeneric("my_fcn", function(x) standardGeneric("my_fcn"))
  [1] "my_fcn"
  > setMethod("my_fcn", signature(x = "numeric"), function(x) { -x })
  > org_my_fcn <- my_fcn
  > 
  > truth <- my_fcn(3)
  > 
  > for (strategy in supportedStrategies()) {
  +   message("Type of future: ", strategy)
  +   plan(strategy)
  + 
  +   ## Assert that S4 generic function 'my_fcn()' is exported
  +   f <- future({ my_fcn }, lazy = TRUE)
  +   rm(list = "my_fcn")
  +   v <- value(f)
  +   print(v)
  +   stopifnot(
  +     is.function(v),
  +     inherits(v, class(org_my_fcn)[1])
  +   )
  +   my_fcn <- org_my_fcn
  +   
  +   ## FIXME:
  +   ## Just like S3 methods, S4 methods are not picked up
  +   ## https://github.com/HenrikBengtsson/future/issues/615
  +   f <- future({ my_fcn(3) }, lazy = TRUE)
  +   rm(list = "my_fcn")
  +   v <- tryCatch(value(f), error = identity)
  +   print(v)
  +   if (isTRUE(as.logical(Sys.getenv("R_CHECK_IDEAL")))) {
  +     if (getOption("future.globals.keepWhere", TRUE)) {
  +       stopifnot(identical(v, truth))
  +     } else {
  +       stopifnot(inherits(v, "error"))
  +     }
  +   } else if (isTRUE(getOption("future.globals.keepWhere", FALSE))) {
  +     stopifnot(identical(v, truth))
  +   } else {
  +     if (strategy %in% c("sequential", "multicore")) {
  +       stopifnot(inherits(v, "error"))
  +     } else {
  +       stopifnot(identical(v, truth))
  +     }
  +   }
  +   my_fcn <- org_my_fcn
  + }
  Type of future: sequential
  [14:50:35.919] plan(): Setting new future strategy stack:
  [14:50:35.920] List of future strategies:
  [14:50:35.920] 1. sequential:
  [14:50:35.920]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
  [14:50:35.920]    - tweaked: FALSE
  [14:50:35.920]    - call: plan(strategy)
  [14:50:35.943] plan(): nbrOfWorkers() = 1
  [14:50:35.944] getGlobalsAndPackages() ...
  [14:50:35.945] Searching for globals...
  [14:50:35.958] - globals found: [7] '{', 'my_fcn', 'standardGeneric', 'NULL', 'stop', 'gettextf', 'x'
  [14:50:35.958] Searching for globals ... DONE
  [14:50:35.958] Resolving globals: FALSE
  [14:50:35.960] The total size of the 1 globals is 3.84 KiB (3936 bytes)
  [14:50:35.961] The total size of the 1 globals exported for future expression ('{; my_fcn; }') is 3.84 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'my_fcn' (3.84 KiB of class 'function')
  [14:50:35.961] - globals: [1] 'my_fcn'
  [14:50:35.962] 
  [14:50:35.962] getGlobalsAndPackages() ... DONE
  [14:50:35.963] run() for 'Future' ...
  [14:50:35.964] - state: 'created'
  [14:50:35.964] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
  [14:50:35.965] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [14:50:35.965] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
  [14:50:35.965]   - Field: 'label'
  [14:50:35.965]   - Field: 'local'
  [14:50:35.966]   - Field: 'owner'
  [14:50:35.966]   - Field: 'envir'
  [14:50:35.966]   - Field: 'packages'
  [14:50:35.967]   - Field: 'gc'
  [14:50:35.967]   - Field: 'conditions'
  [14:50:35.967]   - Field: 'expr'
  [14:50:35.967]   - Field: 'uuid'
  [14:50:35.968]   - Field: 'seed'
  [14:50:35.968]   - Field: 'version'
  [14:50:35.968]   - Field: 'result'
  [14:50:35.968]   - Field: 'asynchronous'
  [14:50:35.969]   - Field: 'calls'
  [14:50:35.969]   - Field: 'globals'
  [14:50:35.969]   - Field: 'stdout'
  [14:50:35.969]   - Field: 'earlySignal'
  [14:50:35.970]   - Field: 'lazy'
  [14:50:35.970]   - Field: 'state'
  [14:50:35.970] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
  [14:50:35.970] - Launch lazy future ...
  [14:50:35.972] Packages needed by the future expression (n = 0): <none>
  [14:50:35.972] Packages needed by future strategies (n = 0): <none>
  [14:50:35.973] {
  [14:50:35.973]     {
  [14:50:35.973]         {
  [14:50:35.973]             ...future.startTime <- base::Sys.time()
  [14:50:35.973]             {
  [14:50:35.973]                 {
  [14:50:35.973]                   {
  [14:50:35.973]                     base::local({
  [14:50:35.973]                       has_future <- base::requireNamespace("future", 
  [14:50:35.973]                         quietly = TRUE)
  [14:50:35.973]                       if (has_future) {
  [14:50:35.973]                         ns <- base::getNamespace("future")
  [14:50:35.973]                         version <- ns[[".package"]][["version"]]
  [14:50:35.973]                         if (is.null(version)) 
  [14:50:35.973]                           version <- utils::packageVersion("future")
  [14:50:35.973]                       }
  [14:50:35.973]                       else {
  [14:50:35.973]                         version <- NULL
  [14:50:35.973]                       }
  [14:50:35.973]                       if (!has_future || version < "1.8.0") {
  [14:50:35.973]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:50:35.973]                           "", base::R.version$version.string), 
  [14:50:35.973]                           platform = base::sprintf("%s (%s-bit)", 
  [14:50:35.973]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:50:35.973]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:50:35.973]                             "release", "version")], collapse = " "), 
  [14:50:35.973]                           hostname = base::Sys.info()[["nodename"]])
  [14:50:35.973]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:50:35.973]                           info)
  [14:50:35.973]                         info <- base::paste(info, collapse = "; ")
  [14:50:35.973]                         if (!has_future) {
  [14:50:35.973]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:50:35.973]                             info)
  [14:50:35.973]                         }
  [14:50:35.973]                         else {
  [14:50:35.973]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:50:35.973]                             info, version)
  [14:50:35.973]                         }
  [14:50:35.973]                         base::stop(msg)
  [14:50:35.973]                       }
  [14:50:35.973]                     })
  [14:50:35.973]                   }
  [14:50:35.973]                   options(future.plan = NULL)
  [14:50:35.973]                   Sys.unsetenv("R_FUTURE_PLAN")
  [14:50:35.973]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:50:35.973]                 }
  [14:50:35.973]                 ...future.workdir <- getwd()
  [14:50:35.973]             }
  [14:50:35.973]             ...future.oldOptions <- base::as.list(base::.Options)
  [14:50:35.973]             ...future.oldEnvVars <- base::Sys.getenv()
  [14:50:35.973]         }
  [14:50:35.973]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
  [14:50:35.973]             future.globals.maxSize = NULL, future.globals.method = NULL, 
  [14:50:35.973]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
  [14:50:35.973]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
  [14:50:35.973]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
  [14:50:35.973]             future.stdout.windows.reencode = NULL, width = 80L)
  [14:50:35.973]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
  [14:50:35.973]             base::names(...future.oldOptions))
  [14:50:35.973]     }
  [14:50:35.973]     if (FALSE) {
  [14:50:35.973]     }
  [14:50:35.973]     else {
  [14:50:35.973]         if (TRUE) {
  [14:50:35.973]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:50:35.973]                 open = "w")
  [14:50:35.973]         }
  [14:50:35.973]         else {
  [14:50:35.973]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:50:35.973]                 windows = "NUL", "/dev/null"), open = "w")
  [14:50:35.973]         }
  [14:50:35.973]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:50:35.973]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:50:35.973]             base::sink(type = "output", split = FALSE)
  [14:50:35.973]             base::close(...future.stdout)
  [14:50:35.973]         }, add = TRUE)
  [14:50:35.973]     }
  [14:50:35.973]     ...future.frame <- base::sys.nframe()
  [14:50:35.973]     ...future.conditions <- base::list()
  [14:50:35.973]     ...future.rng <- base::globalenv()$.Random.seed
  [14:50:35.973]     if (FALSE) {
  [14:50:35.973]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
  [14:50:35.973]             "...future.value", "...future.globalenv.names", ".Random.seed")
  [14:50:35.973]     }
  [14:50:35.973]     ...future.result <- base::tryCatch({
  [14:50:35.973]         base::withCallingHandlers({
  [14:50:35.973]             ...future.value <- base::withVisible(base::local({
  [14:50:35.973]                 my_fcn
  [14:50:35.973]             }))
  [14:50:35.973]             future::FutureResult(value = ...future.value$value, 
  [14:50:35.973]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:50:35.973]                   ...future.rng), globalenv = if (FALSE) 
  [14:50:35.973]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
  [14:50:35.973]                     ...future.globalenv.names))
  [14:50:35.973]                 else NULL, started = ...future.startTime, version = "1.8")
  [14:50:35.973]         }, condition = base::local({
  [14:50:35.973]             c <- base::c
  [14:50:35.973]             inherits <- base::inherits
  [14:50:35.973]             invokeRestart <- base::invokeRestart
  [14:50:35.973]             length <- base::length
  [14:50:35.973]             list <- base::list
  [14:50:35.973]             seq.int <- base::seq.int
  [14:50:35.973]             signalCondition <- base::signalCondition
  [14:50:35.973]             sys.calls <- base::sys.calls
  [14:50:35.973]             `[[` <- base::`[[`
  [14:50:35.973]             `+` <- base::`+`
  [14:50:35.973]             `<<-` <- base::`<<-`
  [14:50:35.973]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:50:35.973]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:50:35.973]                   3L)]
  [14:50:35.973]             }
  [14:50:35.973]             function(cond) {
  [14:50:35.973]                 is_error <- inherits(cond, "error")
  [14:50:35.973]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
  [14:50:35.973]                   NULL)
  [14:50:35.973]                 if (is_error) {
  [14:50:35.973]                   sessionInformation <- function() {
  [14:50:35.973]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:50:35.973]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:50:35.973]                       search = base::search(), system = base::Sys.info())
  [14:50:35.973]                   }
  [14:50:35.973]                   ...future.conditions[[length(...future.conditions) + 
  [14:50:35.973]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:50:35.973]                     cond$call), session = sessionInformation(), 
  [14:50:35.973]                     timestamp = base::Sys.time(), signaled = 0L)
  [14:50:35.973]                   signalCondition(cond)
  [14:50:35.973]                 }
  [14:50:35.973]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
  [14:50:35.973]                 "immediateCondition"))) {
  [14:50:35.973]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:50:35.973]                   ...future.conditions[[length(...future.conditions) + 
  [14:50:35.973]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:50:35.973]                   if (TRUE && !signal) {
  [14:50:35.973]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:50:35.973]                     {
  [14:50:35.973]                       inherits <- base::inherits
  [14:50:35.973]                       invokeRestart <- base::invokeRestart
  [14:50:35.973]                       is.null <- base::is.null
  [14:50:35.973]                       muffled <- FALSE
  [14:50:35.973]                       if (inherits(cond, "message")) {
  [14:50:35.973]                         muffled <- grepl(pattern, "muffleMessage")
  [14:50:35.973]                         if (muffled) 
  [14:50:35.973]                           invokeRestart("muffleMessage")
  [14:50:35.973]                       }
  [14:50:35.973]                       else if (inherits(cond, "warning")) {
  [14:50:35.973]                         muffled <- grepl(pattern, "muffleWarning")
  [14:50:35.973]                         if (muffled) 
  [14:50:35.973]                           invokeRestart("muffleWarning")
  [14:50:35.973]                       }
  [14:50:35.973]                       else if (inherits(cond, "condition")) {
  [14:50:35.973]                         if (!is.null(pattern)) {
  [14:50:35.973]                           computeRestarts <- base::computeRestarts
  [14:50:35.973]                           grepl <- base::grepl
  [14:50:35.973]                           restarts <- computeRestarts(cond)
  [14:50:35.973]                           for (restart in restarts) {
  [14:50:35.973]                             name <- restart$name
  [14:50:35.973]                             if (is.null(name)) 
  [14:50:35.973]                               next
  [14:50:35.973]                             if (!grepl(pattern, name)) 
  [14:50:35.973]                               next
  [14:50:35.973]                             invokeRestart(restart)
  [14:50:35.973]                             muffled <- TRUE
  [14:50:35.973]                             break
  [14:50:35.973]                           }
  [14:50:35.973]                         }
  [14:50:35.973]                       }
  [14:50:35.973]                       invisible(muffled)
  [14:50:35.973]                     }
  [14:50:35.973]                     muffleCondition(cond, pattern = "^muffle")
  [14:50:35.973]                   }
  [14:50:35.973]                 }
  [14:50:35.973]                 else {
  [14:50:35.973]                   if (TRUE) {
  [14:50:35.973]                     muffleCondition <- function (cond, pattern = "^muffle") 
  [14:50:35.973]                     {
  [14:50:35.973]                       inherits <- base::inherits
  [14:50:35.973]                       invokeRestart <- base::invokeRestart
  [14:50:35.973]                       is.null <- base::is.null
  [14:50:35.973]                       muffled <- FALSE
  [14:50:35.973]                       if (inherits(cond, "message")) {
  [14:50:35.973]                         muffled <- grepl(pattern, "muffleMessage")
  [14:50:35.973]                         if (muffled) 
  [14:50:35.973]                           invokeRestart("muffleMessage")
  [14:50:35.973]                       }
  [14:50:35.973]                       else if (inherits(cond, "warning")) {
  [14:50:35.973]                         muffled <- grepl(pattern, "muffleWarning")
  [14:50:35.973]                         if (muffled) 
  [14:50:35.973]