Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/3s]
  Running ‘doRNG,dopar.R’ [3s/33s]
  Running ‘doRNG,dorng.R’ [6s/37s]
  Running ‘foreach,errors.R’ [7s/101s]
  Running ‘foreach,globals.R’ [8s/102s]
  Running ‘foreach,nested.R’ [8s/136s]
  Running ‘foreach,nested_dopar.R’ [11s/120s]
  Running ‘foreach.R’ [11s/50s]
  Running ‘future.BatchJobs.R’ [27s/32s]
  Running ‘future.batchtools.R’ [32s/34s]
  Running ‘options.R’ [3s/20s]
  Running ‘registerDoFuture.R’ [2s/32s]
  Running ‘times.R’ [3s/33s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/0s]
  Running ‘zzz_opt-in,caret.R’ [0s/0s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/1s]
Running the tests in ‘tests/foreach,nested_dopar.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [13:08:51.357] plan(): Setting new future strategy stack:
  [13:08:51.358] List of future strategies:
  [13:08:51.358] 1. sequential:
  [13:08:51.358]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.358]    - tweaked: FALSE
  [13:08:51.358]    - call: future::plan(future::sequential)
  [13:08:51.360] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested %dopar% ...")
  *** doFuture - nested %dopar% ...
  > 
  > registerDoFuture()
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ...")
  *** doFuture - nested %dopar%  and tricky globals ...
  > 
  > ## This works ...
  > x <- foreach(j = 1) %dopar% { j }
  [13:08:51.365] doFuture() ...
  [13:08:51.368] - dummy globals (as locals): [1] 'j'
  [13:08:51.369] - R expression:
  [13:08:51.370] {
  [13:08:51.370]     doFuture::registerDoFuture()
  [13:08:51.370]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.370]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.370]         j <- NULL
  [13:08:51.370]         ...future.env <- environment()
  [13:08:51.370]         local({
  [13:08:51.370]             for (name in names(...future.x_jj)) {
  [13:08:51.370]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.370]                   inherits = FALSE)
  [13:08:51.370]             }
  [13:08:51.370]         })
  [13:08:51.370]         tryCatch({
  [13:08:51.370]             j
  [13:08:51.370]         }, error = identity)
  [13:08:51.370]     })
  [13:08:51.370] }
  [13:08:51.370] - identifying globals and packages ...
  [13:08:51.373] getGlobalsAndPackages() ...
  [13:08:51.373] Searching for globals...
  [13:08:51.408] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [13:08:51.408] Searching for globals ... DONE
  [13:08:51.409] Resolving globals: FALSE
  [13:08:51.411] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:08:51.411] - globals: [1] '...future.x_ii'
  [13:08:51.412] 
  [13:08:51.412] getGlobalsAndPackages() ... DONE
  [13:08:51.412] List of 1
  [13:08:51.412]  $ ...future.x_ii: NULL
  [13:08:51.412]  - attr(*, "where")=List of 1
  [13:08:51.412]   ..$ ...future.x_ii:<environment: 0x55c3102aeaf0> 
  [13:08:51.412]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.412]  - attr(*, "resolved")= logi FALSE
  [13:08:51.412]  - attr(*, "total_size")= num 0
  [13:08:51.424]   - R expression:
  [13:08:51.424] {
  [13:08:51.424]     doFuture::registerDoFuture()
  [13:08:51.424]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.424]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.424]         j <- NULL
  [13:08:51.424]         ...future.env <- environment()
  [13:08:51.424]         local({
  [13:08:51.424]             for (name in names(...future.x_jj)) {
  [13:08:51.424]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.424]                   inherits = FALSE)
  [13:08:51.424]             }
  [13:08:51.424]         })
  [13:08:51.424]         tryCatch({
  [13:08:51.424]             j
  [13:08:51.424]         }, error = identity)
  [13:08:51.424]     })
  [13:08:51.424] }
  [13:08:51.425]   - globals: [1] '...future.x_ii'
  [13:08:51.425] List of 1
  [13:08:51.425]  $ ...future.x_ii: NULL
  [13:08:51.425]  - attr(*, "where")=List of 1
  [13:08:51.425]   ..$ ...future.x_ii:<environment: 0x55c3102aeaf0> 
  [13:08:51.425]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.425]  - attr(*, "resolved")= logi FALSE
  [13:08:51.425]  - attr(*, "total_size")= num 0
  [13:08:51.431]   - packages: [1] 'doFuture'
  [13:08:51.431] - identifying globals and packages ... DONE
  [13:08:51.432] Number of chunks: 1
  [13:08:51.433] Number of futures (= number of chunks): 1
  [13:08:51.433] Launching 1 futures (chunks) ...
  [13:08:51.433] Chunk #1 of 1 ...
  [13:08:51.433]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:51.434] getGlobalsAndPackages() ...
  [13:08:51.434] Searching for globals...
  [13:08:51.435] 
  [13:08:51.435] Searching for globals ... DONE
  [13:08:51.436] - globals: [0] <none>
  [13:08:51.436] getGlobalsAndPackages() ... DONE
  [13:08:51.436] 
  [13:08:51.436] 
  [13:08:51.437]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:51.437] getGlobalsAndPackages() ...
  [13:08:51.438] - globals passed as-is: [1] '...future.x_ii'
  [13:08:51.438] Resolving globals: FALSE
  [13:08:51.439] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:08:51.439] - globals: [1] '...future.x_ii'
  [13:08:51.440] 
  [13:08:51.440] getGlobalsAndPackages() ... DONE
  [13:08:51.442] Packages needed by the future expression (n = 1): 'doFuture'
  [13:08:51.443] Packages needed by future strategies (n = 0): <none>
  [13:08:51.447] {
  [13:08:51.447]     {
  [13:08:51.447]         ...future.startTime <- Sys.time()
  [13:08:51.447]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:51.447]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:51.447]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [13:08:51.447]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:51.447]             future.resolve.recursive = NULL, width = 80L)
  [13:08:51.447]         {
  [13:08:51.447]             {
  [13:08:51.447]                 {
  [13:08:51.447]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:51.447]                   version <- if (has_future) 
  [13:08:51.447]                     packageVersion("future")
  [13:08:51.447]                   else NULL
  [13:08:51.447]                   if (!has_future || version < "1.8.0") {
  [13:08:51.447]                     info <- c(r_version = gsub("R version ", 
  [13:08:51.447]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:51.447]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:51.447]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:51.447]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:51.447]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:51.447]                     info <- paste(info, collapse = "; ")
  [13:08:51.447]                     if (!has_future) {
  [13:08:51.447]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:51.447]                         info)
  [13:08:51.447]                     }
  [13:08:51.447]                     else {
  [13:08:51.447]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:51.447]                         info, version)
  [13:08:51.447]                     }
  [13:08:51.447]                     stop(msg)
  [13:08:51.447]                   }
  [13:08:51.447]                 }
  [13:08:51.447]                 local({
  [13:08:51.447]                   for (pkg in "doFuture") {
  [13:08:51.447]                     loadNamespace(pkg)
  [13:08:51.447]                     library(pkg, character.only = TRUE)
  [13:08:51.447]                   }
  [13:08:51.447]                 })
  [13:08:51.447]             }
  [13:08:51.447]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:51.447]         }
  [13:08:51.447]     }
  [13:08:51.447]     if (is.na(TRUE)) {
  [13:08:51.447]     }
  [13:08:51.447]     else {
  [13:08:51.447]         if (TRUE) {
  [13:08:51.447]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:51.447]         }
  [13:08:51.447]         else {
  [13:08:51.447]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:51.447]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:51.447]         }
  [13:08:51.447]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:51.447]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:51.447]             sink(type = "output", split = FALSE)
  [13:08:51.447]             close(...future.stdout)
  [13:08:51.447]         }, add = TRUE)
  [13:08:51.447]     }
  [13:08:51.447]     ...future.frame <- sys.nframe()
  [13:08:51.447]     ...future.conditions <- list()
  [13:08:51.447]     ...future.result <- tryCatch({
  [13:08:51.447]         withCallingHandlers({
  [13:08:51.447]             ...future.value <- local({
  [13:08:51.447]                 doFuture::registerDoFuture()
  [13:08:51.447]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.447]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.447]                   j <- NULL
  [13:08:51.447]                   ...future.env <- environment()
  [13:08:51.447]                   local({
  [13:08:51.447]                     for (name in names(...future.x_jj)) {
  [13:08:51.447]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.447]                         inherits = FALSE)
  [13:08:51.447]                     }
  [13:08:51.447]                   })
  [13:08:51.447]                   tryCatch({
  [13:08:51.447]                     j
  [13:08:51.447]                   }, error = identity)
  [13:08:51.447]                 })
  [13:08:51.447]             })
  [13:08:51.447]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:51.447]                 version = "1.8")
  [13:08:51.447]         }, condition = local({
  [13:08:51.447]             inherits <- base::inherits
  [13:08:51.447]             invokeRestart <- base::invokeRestart
  [13:08:51.447]             length <- base::length
  [13:08:51.447]             seq.int <- base::seq.int
  [13:08:51.447]             sys.calls <- base::sys.calls
  [13:08:51.447]             `[[` <- base::`[[`
  [13:08:51.447]             `+` <- base::`+`
  [13:08:51.447]             `<<-` <- base::`<<-`
  [13:08:51.447]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:51.447]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:51.447]                   3L)]
  [13:08:51.447]             }
  [13:08:51.447]             function(cond) {
  [13:08:51.447]                 if (inherits(cond, "error")) {
  [13:08:51.447]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.447]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:51.447]                     cond$call), timestamp = base::Sys.time())
  [13:08:51.447]                   signalCondition(cond)
  [13:08:51.447]                 }
  [13:08:51.447]                 else if (inherits(cond, c("message", "warning"
  [13:08:51.447]                 ))) {
  [13:08:51.447]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.447]                     1L]] <<- list(condition = cond)
  [13:08:51.447]                   if (inherits(cond, "message")) {
  [13:08:51.447]                     invokeRestart("muffleMessage")
  [13:08:51.447]                   }
  [13:08:51.447]                   else if (inherits(cond, "warning")) {
  [13:08:51.447]                     invokeRestart("muffleWarning")
  [13:08:51.447]                   }
  [13:08:51.447]                 }
  [13:08:51.447]             }
  [13:08:51.447]         }))
  [13:08:51.447]     }, error = function(ex) {
  [13:08:51.447]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:51.447]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:51.447]             class = "FutureResult")
  [13:08:51.447]     }, finally = {
  [13:08:51.447]         {
  [13:08:51.447]             NULL
  [13:08:51.447]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:08:51.447]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.447]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.447]                 label = NULL, ...) 
  [13:08:51.447]             {
  [13:08:51.447]                 if (substitute) 
  [13:08:51.447]                   expr <- substitute(expr)
  [13:08:51.447]                 local <- as.logical(local)
  [13:08:51.447]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.447]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.447]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.447]                   label = label, ...)
  [13:08:51.447]                 if (!future$lazy) 
  [13:08:51.447]                   future <- run(future)
  [13:08:51.447]                 invisible(future)
  [13:08:51.447]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.447]         }
  [13:08:51.447]         options(...future.oldOptions)
  [13:08:51.447]     })
  [13:08:51.447]     if (is.na(TRUE)) {
  [13:08:51.447]     }
  [13:08:51.447]     else {
  [13:08:51.447]         sink(type = "output", split = FALSE)
  [13:08:51.447]         if (TRUE) {
  [13:08:51.447]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:51.447]         }
  [13:08:51.447]         else {
  [13:08:51.447]             ...future.result["stdout"] <- list(NULL)
  [13:08:51.447]         }
  [13:08:51.447]         close(...future.stdout)
  [13:08:51.447]         ...future.stdout <- NULL
  [13:08:51.447]     }
  [13:08:51.447]     ...future.result$conditions <- ...future.conditions
  [13:08:51.447]     ...future.result
  [13:08:51.447] }
  [13:08:51.452] plan(): Setting new future strategy stack:
  [13:08:51.453] List of future strategies:
  [13:08:51.453] 1. sequential:
  [13:08:51.453]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.453]    - tweaked: FALSE
  [13:08:51.453]    - call: NULL
  [13:08:51.454] plan(): nbrOfWorkers() = 1
  [13:08:51.455] plan(): Setting new future strategy stack:
  [13:08:51.455] List of future strategies:
  [13:08:51.455] 1. sequential:
  [13:08:51.455]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.455]    - tweaked: FALSE
  [13:08:51.455]    - call: future::plan(future::sequential)
  [13:08:51.456] plan(): nbrOfWorkers() = 1
  [13:08:51.457] SequentialFuture started (and completed)
  [13:08:51.457] Chunk #1 of 1 ... DONE
  [13:08:51.458] Launching 1 futures (chunks) ... DONE
  [13:08:51.458] - resolving futures
  [13:08:51.459] resolve() on list ...
  [13:08:51.459]  recursive: 0
  [13:08:51.459]  length: 1
  [13:08:51.459] 
  [13:08:51.460]  length: 0 (resolved future 1)
  [13:08:51.460] resolve() on list ... DONE
  [13:08:51.461] - relaying conditions of futures
  [13:08:51.462] - collecting values of futures
  [13:08:51.462] - accumulating results
  [13:08:51.464] - processing errors (handler = 'stop')
  [13:08:51.465] - extracting results
  [13:08:51.465] doFuture() ... DONE
  > str(x)
  List of 1
   $ : num 1
  > rm(list = "x")
  > 
  > ## ... but this would give a "globals-not-found" error in
  > ## doFuture (<= 0.4.0) because 'j' was interpreted as global variable
  > x <- foreach(i = 1, .packages = "foreach") %dopar% {
  +   foreach(j = 1) %dopar% { j }
  + }
  [13:08:51.467] doFuture() ...
  [13:08:51.468] - dummy globals (as locals): [1] 'i'
  [13:08:51.469] - R expression:
  [13:08:51.470] {
  [13:08:51.470]     doFuture::registerDoFuture()
  [13:08:51.470]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.470]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.470]         i <- NULL
  [13:08:51.470]         ...future.env <- environment()
  [13:08:51.470]         local({
  [13:08:51.470]             for (name in names(...future.x_jj)) {
  [13:08:51.470]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.470]                   inherits = FALSE)
  [13:08:51.470]             }
  [13:08:51.470]         })
  [13:08:51.470]         tryCatch({
  [13:08:51.470]             foreach(j = 1) %dopar% {
  [13:08:51.470]                 j
  [13:08:51.470]             }
  [13:08:51.470]         }, error = identity)
  [13:08:51.470]     })
  [13:08:51.470] }
  [13:08:51.470] - identifying globals and packages ...
  [13:08:51.471] getGlobalsAndPackages() ...
  [13:08:51.471] Searching for globals...
  [13:08:51.489] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [13:08:51.490] Searching for globals ... DONE
  [13:08:51.490] Resolving globals: FALSE
  [13:08:51.492] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:08:51.493] - globals: [1] '...future.x_ii'
  [13:08:51.493] - packages: [1] 'foreach'
  [13:08:51.493] getGlobalsAndPackages() ... DONE
  [13:08:51.494] List of 1
  [13:08:51.494]  $ ...future.x_ii: NULL
  [13:08:51.494]  - attr(*, "where")=List of 1
  [13:08:51.494]   ..$ ...future.x_ii:<environment: 0x55c310315838> 
  [13:08:51.494]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.494]  - attr(*, "resolved")= logi FALSE
  [13:08:51.494]  - attr(*, "total_size")= num 0
  [13:08:51.499]   - R expression:
  [13:08:51.499] {
  [13:08:51.499]     doFuture::registerDoFuture()
  [13:08:51.499]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.499]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.499]         i <- NULL
  [13:08:51.499]         ...future.env <- environment()
  [13:08:51.499]         local({
  [13:08:51.499]             for (name in names(...future.x_jj)) {
  [13:08:51.499]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.499]                   inherits = FALSE)
  [13:08:51.499]             }
  [13:08:51.499]         })
  [13:08:51.499]         tryCatch({
  [13:08:51.499]             foreach(j = 1) %dopar% {
  [13:08:51.499]                 j
  [13:08:51.499]             }
  [13:08:51.499]         }, error = identity)
  [13:08:51.499]     })
  [13:08:51.499] }
  [13:08:51.500]   - globals: [1] '...future.x_ii'
  [13:08:51.500] List of 1
  [13:08:51.500]  $ ...future.x_ii: NULL
  [13:08:51.500]  - attr(*, "where")=List of 1
  [13:08:51.500]   ..$ ...future.x_ii:<environment: 0x55c310315838> 
  [13:08:51.500]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.500]  - attr(*, "resolved")= logi FALSE
  [13:08:51.500]  - attr(*, "total_size")= num 0
  [13:08:51.505]   - packages: [2] 'doFuture', 'foreach'
  [13:08:51.505] - identifying globals and packages ... DONE
  [13:08:51.506] Number of chunks: 1
  [13:08:51.506] Number of futures (= number of chunks): 1
  [13:08:51.506] Launching 1 futures (chunks) ...
  [13:08:51.506] Chunk #1 of 1 ...
  [13:08:51.507]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:51.507] getGlobalsAndPackages() ...
  [13:08:51.507] Searching for globals...
  [13:08:51.508] 
  [13:08:51.508] Searching for globals ... DONE
  [13:08:51.508] - globals: [0] <none>
  [13:08:51.509] getGlobalsAndPackages() ... DONE
  [13:08:51.509] 
  [13:08:51.509] 
  [13:08:51.509]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:51.510] getGlobalsAndPackages() ...
  [13:08:51.510] - globals passed as-is: [1] '...future.x_ii'
  [13:08:51.510] Resolving globals: FALSE
  [13:08:51.511] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:08:51.512] - globals: [1] '...future.x_ii'
  [13:08:51.512] 
  [13:08:51.512] getGlobalsAndPackages() ... DONE
  [13:08:51.514] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [13:08:51.514] Packages needed by future strategies (n = 0): <none>
  [13:08:51.518] {
  [13:08:51.518]     {
  [13:08:51.518]         ...future.startTime <- Sys.time()
  [13:08:51.518]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:51.518]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:51.518]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:51.518]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:51.518]             future.resolve.recursive = NULL, width = 80L)
  [13:08:51.518]         {
  [13:08:51.518]             {
  [13:08:51.518]                 {
  [13:08:51.518]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:51.518]                   version <- if (has_future) 
  [13:08:51.518]                     packageVersion("future")
  [13:08:51.518]                   else NULL
  [13:08:51.518]                   if (!has_future || version < "1.8.0") {
  [13:08:51.518]                     info <- c(r_version = gsub("R version ", 
  [13:08:51.518]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:51.518]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:51.518]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:51.518]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:51.518]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:51.518]                     info <- paste(info, collapse = "; ")
  [13:08:51.518]                     if (!has_future) {
  [13:08:51.518]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:51.518]                         info)
  [13:08:51.518]                     }
  [13:08:51.518]                     else {
  [13:08:51.518]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:51.518]                         info, version)
  [13:08:51.518]                     }
  [13:08:51.518]                     stop(msg)
  [13:08:51.518]                   }
  [13:08:51.518]                 }
  [13:08:51.518]                 local({
  [13:08:51.518]                   for (pkg in c("doFuture", "foreach")) {
  [13:08:51.518]                     loadNamespace(pkg)
  [13:08:51.518]                     library(pkg, character.only = TRUE)
  [13:08:51.518]                   }
  [13:08:51.518]                 })
  [13:08:51.518]             }
  [13:08:51.518]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:51.518]         }
  [13:08:51.518]     }
  [13:08:51.518]     if (is.na(TRUE)) {
  [13:08:51.518]     }
  [13:08:51.518]     else {
  [13:08:51.518]         if (TRUE) {
  [13:08:51.518]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:51.518]         }
  [13:08:51.518]         else {
  [13:08:51.518]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:51.518]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:51.518]         }
  [13:08:51.518]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:51.518]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:51.518]             sink(type = "output", split = FALSE)
  [13:08:51.518]             close(...future.stdout)
  [13:08:51.518]         }, add = TRUE)
  [13:08:51.518]     }
  [13:08:51.518]     ...future.frame <- sys.nframe()
  [13:08:51.518]     ...future.conditions <- list()
  [13:08:51.518]     ...future.result <- tryCatch({
  [13:08:51.518]         withCallingHandlers({
  [13:08:51.518]             ...future.value <- local({
  [13:08:51.518]                 doFuture::registerDoFuture()
  [13:08:51.518]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.518]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.518]                   i <- NULL
  [13:08:51.518]                   ...future.env <- environment()
  [13:08:51.518]                   local({
  [13:08:51.518]                     for (name in names(...future.x_jj)) {
  [13:08:51.518]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.518]                         inherits = FALSE)
  [13:08:51.518]                     }
  [13:08:51.518]                   })
  [13:08:51.518]                   tryCatch({
  [13:08:51.518]                     foreach(j = 1) %dopar% {
  [13:08:51.518]                       j
  [13:08:51.518]                     }
  [13:08:51.518]                   }, error = identity)
  [13:08:51.518]                 })
  [13:08:51.518]             })
  [13:08:51.518]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:51.518]                 version = "1.8")
  [13:08:51.518]         }, condition = local({
  [13:08:51.518]             inherits <- base::inherits
  [13:08:51.518]             invokeRestart <- base::invokeRestart
  [13:08:51.518]             length <- base::length
  [13:08:51.518]             seq.int <- base::seq.int
  [13:08:51.518]             sys.calls <- base::sys.calls
  [13:08:51.518]             `[[` <- base::`[[`
  [13:08:51.518]             `+` <- base::`+`
  [13:08:51.518]             `<<-` <- base::`<<-`
  [13:08:51.518]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:51.518]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:51.518]                   3L)]
  [13:08:51.518]             }
  [13:08:51.518]             function(cond) {
  [13:08:51.518]                 if (inherits(cond, "error")) {
  [13:08:51.518]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.518]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:51.518]                     cond$call), timestamp = base::Sys.time())
  [13:08:51.518]                   signalCondition(cond)
  [13:08:51.518]                 }
  [13:08:51.518]                 else if (inherits(cond, c("message", "warning"
  [13:08:51.518]                 ))) {
  [13:08:51.518]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.518]                     1L]] <<- list(condition = cond)
  [13:08:51.518]                   if (inherits(cond, "message")) {
  [13:08:51.518]                     invokeRestart("muffleMessage")
  [13:08:51.518]                   }
  [13:08:51.518]                   else if (inherits(cond, "warning")) {
  [13:08:51.518]                     invokeRestart("muffleWarning")
  [13:08:51.518]                   }
  [13:08:51.518]                 }
  [13:08:51.518]             }
  [13:08:51.518]         }))
  [13:08:51.518]     }, error = function(ex) {
  [13:08:51.518]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:51.518]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:51.518]             class = "FutureResult")
  [13:08:51.518]     }, finally = {
  [13:08:51.518]         {
  [13:08:51.518]             NULL
  [13:08:51.518]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:08:51.518]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.518]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.518]                 label = NULL, ...) 
  [13:08:51.518]             {
  [13:08:51.518]                 if (substitute) 
  [13:08:51.518]                   expr <- substitute(expr)
  [13:08:51.518]                 local <- as.logical(local)
  [13:08:51.518]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.518]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.518]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.518]                   label = label, ...)
  [13:08:51.518]                 if (!future$lazy) 
  [13:08:51.518]                   future <- run(future)
  [13:08:51.518]                 invisible(future)
  [13:08:51.518]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.518]         }
  [13:08:51.518]         options(...future.oldOptions)
  [13:08:51.518]     })
  [13:08:51.518]     if (is.na(TRUE)) {
  [13:08:51.518]     }
  [13:08:51.518]     else {
  [13:08:51.518]         sink(type = "output", split = FALSE)
  [13:08:51.518]         if (TRUE) {
  [13:08:51.518]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:51.518]         }
  [13:08:51.518]         else {
  [13:08:51.518]             ...future.result["stdout"] <- list(NULL)
  [13:08:51.518]         }
  [13:08:51.518]         close(...future.stdout)
  [13:08:51.518]         ...future.stdout <- NULL
  [13:08:51.518]     }
  [13:08:51.518]     ...future.result$conditions <- ...future.conditions
  [13:08:51.518]     ...future.result
  [13:08:51.518] }
  [13:08:51.523] plan(): Setting new future strategy stack:
  [13:08:51.523] List of future strategies:
  [13:08:51.523] 1. sequential:
  [13:08:51.523]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.523]    - tweaked: FALSE
  [13:08:51.523]    - call: NULL
  [13:08:51.524] plan(): nbrOfWorkers() = 1
  [13:08:51.596] plan(): Setting new future strategy stack:
  [13:08:51.597] List of future strategies:
  [13:08:51.597] 1. sequential:
  [13:08:51.597]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.597]    - tweaked: FALSE
  [13:08:51.597]    - call: future::plan(future::sequential)
  [13:08:51.598] plan(): nbrOfWorkers() = 1
  [13:08:51.598] SequentialFuture started (and completed)
  [13:08:51.599] Chunk #1 of 1 ... DONE
  [13:08:51.599] Launching 1 futures (chunks) ... DONE
  [13:08:51.599] - resolving futures
  [13:08:51.599] resolve() on list ...
  [13:08:51.600]  recursive: 0
  [13:08:51.600]  length: 1
  [13:08:51.600] 
  [13:08:51.601]  length: 0 (resolved future 1)
  [13:08:51.601] resolve() on list ... DONE
  [13:08:51.601] - relaying conditions of futures
  [13:08:51.601] Future state: 'finished'
  [13:08:51.525] doFuture() ...
  [13:08:51.527] - dummy globals (as locals): [1] 'j'
  [13:08:51.528] - R expression:
  [13:08:51.528] {
  [13:08:51.528]     doFuture::registerDoFuture()
  [13:08:51.528]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.528]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.528]         j <- NULL
  [13:08:51.528]         ...future.env <- environment()
  [13:08:51.528]         local({
  [13:08:51.528]             for (name in names(...future.x_jj)) {
  [13:08:51.528]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.528]                   inherits = FALSE)
  [13:08:51.528]             }
  [13:08:51.528]         })
  [13:08:51.528]         tryCatch({
  [13:08:51.528]             j
  [13:08:51.528]         }, error = identity)
  [13:08:51.528]     })
  [13:08:51.528] }
  [13:08:51.529] - identifying globals and packages ...
  [13:08:51.530] getGlobalsAndPackages() ...
  [13:08:51.530] Searching for globals...
  [13:08:51.543] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [13:08:51.544] Searching for globals ... DONE
  [13:08:51.544] Resolving globals: FALSE
  [13:08:51.546] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:08:51.546] - globals: [1] '...future.x_ii'
  [13:08:51.547] 
  [13:08:51.547] getGlobalsAndPackages() ... DONE
  [13:08:51.548] List of 1
  [13:08:51.548]  $ ...future.x_ii: NULL
  [13:08:51.548]  - attr(*, "where")=List of 1
  [13:08:51.548]   ..$ ...future.x_ii:<environment: 0x55c30ffdde98> 
  [13:08:51.548]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.548]  - attr(*, "resolved")= logi FALSE
  [13:08:51.548]  - attr(*, "total_size")= num 0
  [13:08:51.557]   - R expression:
  [13:08:51.558] {
  [13:08:51.558]     doFuture::registerDoFuture()
  [13:08:51.558]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.558]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.558]         j <- NULL
  [13:08:51.558]         ...future.env <- environment()
  [13:08:51.558]         local({
  [13:08:51.558]             for (name in names(...future.x_jj)) {
  [13:08:51.558]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.558]                   inherits = FALSE)
  [13:08:51.558]             }
  [13:08:51.558]         })
  [13:08:51.558]         tryCatch({
  [13:08:51.558]             j
  [13:08:51.558]         }, error = identity)
  [13:08:51.558]     })
  [13:08:51.558] }
  [13:08:51.559]   - globals: [1] '...future.x_ii'
  [13:08:51.559] List of 1
  [13:08:51.559]  $ ...future.x_ii: NULL
  [13:08:51.559]  - attr(*, "where")=List of 1
  [13:08:51.559]   ..$ ...future.x_ii:<environment: 0x55c30ffdde98> 
  [13:08:51.559]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.559]  - attr(*, "resolved")= logi FALSE
  [13:08:51.559]  - attr(*, "total_size")= num 0
  [13:08:51.565]   - packages: [1] 'doFuture'
  [13:08:51.566] - identifying globals and packages ... DONE
  [13:08:51.566] Number of chunks: 1
  [13:08:51.566] Number of futures (= number of chunks): 1
  [13:08:51.567] Launching 1 futures (chunks) ...
  [13:08:51.567] Chunk #1 of 1 ...
  [13:08:51.567]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:51.568] getGlobalsAndPackages() ...
  [13:08:51.568] Searching for globals...
  [13:08:51.569] 
  [13:08:51.569] Searching for globals ... DONE
  [13:08:51.570] - globals: [0] <none>
  [13:08:51.570] getGlobalsAndPackages() ... DONE
  [13:08:51.571] 
  [13:08:51.571] 
  [13:08:51.571]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:51.572] getGlobalsAndPackages() ...
  [13:08:51.572] - globals passed as-is: [1] '...future.x_ii'
  [13:08:51.573] Resolving globals: FALSE
  [13:08:51.573] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:08:51.574] - globals: [1] '...future.x_ii'
  [13:08:51.574] 
  [13:08:51.575] getGlobalsAndPackages() ... DONE
  [13:08:51.576] Packages needed by the future expression (n = 1): 'doFuture'
  [13:08:51.576] Packages needed by future strategies (n = 0): <none>
  [13:08:51.580] {
  [13:08:51.580]     {
  [13:08:51.580]         ...future.startTime <- Sys.time()
  [13:08:51.580]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:51.580]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:51.580]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:51.580]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:51.580]             future.resolve.recursive = NULL, width = 80L)
  [13:08:51.580]         {
  [13:08:51.580]             {
  [13:08:51.580]                 {
  [13:08:51.580]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:51.580]                   version <- if (has_future) 
  [13:08:51.580]                     packageVersion("future")
  [13:08:51.580]                   else NULL
  [13:08:51.580]                   if (!has_future || version < "1.8.0") {
  [13:08:51.580]                     info <- c(r_version = gsub("R version ", 
  [13:08:51.580]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:51.580]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:51.580]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:51.580]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:51.580]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:51.580]                     info <- paste(info, collapse = "; ")
  [13:08:51.580]                     if (!has_future) {
  [13:08:51.580]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:51.580]                         info)
  [13:08:51.580]                     }
  [13:08:51.580]                     else {
  [13:08:51.580]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:51.580]                         info, version)
  [13:08:51.580]                     }
  [13:08:51.580]                     stop(msg)
  [13:08:51.580]                   }
  [13:08:51.580]                 }
  [13:08:51.580]                 local({
  [13:08:51.580]                   for (pkg in "doFuture") {
  [13:08:51.580]                     loadNamespace(pkg)
  [13:08:51.580]                     library(pkg, character.only = TRUE)
  [13:08:51.580]                   }
  [13:08:51.580]                 })
  [13:08:51.580]             }
  [13:08:51.580]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:51.580]         }
  [13:08:51.580]     }
  [13:08:51.580]     if (is.na(TRUE)) {
  [13:08:51.580]     }
  [13:08:51.580]     else {
  [13:08:51.580]         if (TRUE) {
  [13:08:51.580]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:51.580]         }
  [13:08:51.580]         else {
  [13:08:51.580]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:51.580]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:51.580]         }
  [13:08:51.580]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:51.580]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:51.580]             sink(type = "output", split = FALSE)
  [13:08:51.580]             close(...future.stdout)
  [13:08:51.580]         }, add = TRUE)
  [13:08:51.580]     }
  [13:08:51.580]     ...future.frame <- sys.nframe()
  [13:08:51.580]     ...future.conditions <- list()
  [13:08:51.580]     ...future.result <- tryCatch({
  [13:08:51.580]         withCallingHandlers({
  [13:08:51.580]             ...future.value <- local({
  [13:08:51.580]                 doFuture::registerDoFuture()
  [13:08:51.580]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.580]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.580]                   j <- NULL
  [13:08:51.580]                   ...future.env <- environment()
  [13:08:51.580]                   local({
  [13:08:51.580]                     for (name in names(...future.x_jj)) {
  [13:08:51.580]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.580]                         inherits = FALSE)
  [13:08:51.580]                     }
  [13:08:51.580]                   })
  [13:08:51.580]                   tryCatch({
  [13:08:51.580]                     j
  [13:08:51.580]                   }, error = identity)
  [13:08:51.580]                 })
  [13:08:51.580]             })
  [13:08:51.580]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:51.580]                 version = "1.8")
  [13:08:51.580]         }, condition = local({
  [13:08:51.580]             inherits <- base::inherits
  [13:08:51.580]             invokeRestart <- base::invokeRestart
  [13:08:51.580]             length <- base::length
  [13:08:51.580]             seq.int <- base::seq.int
  [13:08:51.580]             sys.calls <- base::sys.calls
  [13:08:51.580]             `[[` <- base::`[[`
  [13:08:51.580]             `+` <- base::`+`
  [13:08:51.580]             `<<-` <- base::`<<-`
  [13:08:51.580]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:51.580]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:51.580]                   3L)]
  [13:08:51.580]             }
  [13:08:51.580]             function(cond) {
  [13:08:51.580]                 if (inherits(cond, "error")) {
  [13:08:51.580]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.580]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:51.580]                     cond$call), timestamp = base::Sys.time())
  [13:08:51.580]                   signalCondition(cond)
  [13:08:51.580]                 }
  [13:08:51.580]                 else if (inherits(cond, c("message", "warning"
  [13:08:51.580]                 ))) {
  [13:08:51.580]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.580]                     1L]] <<- list(condition = cond)
  [13:08:51.580]                   if (inherits(cond, "message")) {
  [13:08:51.580]                     invokeRestart("muffleMessage")
  [13:08:51.580]                   }
  [13:08:51.580]                   else if (inherits(cond, "warning")) {
  [13:08:51.580]                     invokeRestart("muffleWarning")
  [13:08:51.580]                   }
  [13:08:51.580]                 }
  [13:08:51.580]             }
  [13:08:51.580]         }))
  [13:08:51.580]     }, error = function(ex) {
  [13:08:51.580]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:51.580]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:51.580]             class = "FutureResult")
  [13:08:51.580]     }, finally = {
  [13:08:51.580]         {
  [13:08:51.580]             NULL
  [13:08:51.580]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:08:51.580]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.580]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.580]                 label = NULL, ...) 
  [13:08:51.580]             {
  [13:08:51.580]                 if (substitute) 
  [13:08:51.580]                   expr <- substitute(expr)
  [13:08:51.580]                 local <- as.logical(local)
  [13:08:51.580]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.580]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.580]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.580]                   label = label, ...)
  [13:08:51.580]                 if (!future$lazy) 
  [13:08:51.580]                   future <- run(future)
  [13:08:51.580]                 invisible(future)
  [13:08:51.580]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.580]         }
  [13:08:51.580]         options(...future.oldOptions)
  [13:08:51.580]     })
  [13:08:51.580]     if (is.na(TRUE)) {
  [13:08:51.580]     }
  [13:08:51.580]     else {
  [13:08:51.580]         sink(type = "output", split = FALSE)
  [13:08:51.580]         if (TRUE) {
  [13:08:51.580]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:51.580]         }
  [13:08:51.580]         else {
  [13:08:51.580]             ...future.result["stdout"] <- list(NULL)
  [13:08:51.580]         }
  [13:08:51.580]         close(...future.stdout)
  [13:08:51.580]         ...future.stdout <- NULL
  [13:08:51.580]     }
  [13:08:51.580]     ...future.result$conditions <- ...future.conditions
  [13:08:51.580]     ...future.result
  [13:08:51.580] }
  [13:08:51.585] plan(): Setting new future strategy stack:
  [13:08:51.585] List of future strategies:
  [13:08:51.585] 1. sequential:
  [13:08:51.585]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.585]    - tweaked: FALSE
  [13:08:51.585]    - call: NULL
  [13:08:51.586] plan(): nbrOfWorkers() = 1
  [13:08:51.587] plan(): Setting new future strategy stack:
  [13:08:51.588] List of future strategies:
  [13:08:51.588] 1. sequential:
  [13:08:51.588]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.588]    - tweaked: FALSE
  [13:08:51.588]    - call: NULL
  [13:08:51.589] plan(): nbrOfWorkers() = 1
  [13:08:51.589] SequentialFuture started (and completed)
  [13:08:51.590] Chunk #1 of 1 ... DONE
  [13:08:51.590] Launching 1 futures (chunks) ... DONE
  [13:08:51.591] - resolving futures
  [13:08:51.591] resolve() on list ...
  [13:08:51.591]  recursive: 0
  [13:08:51.592]  length: 1
  [13:08:51.592] 
  [13:08:51.592]  length: 0 (resolved future 1)
  [13:08:51.593] resolve() on list ... DONE
  [13:08:51.593] - relaying conditions of futures
  [13:08:51.594] - collecting values of futures
  [13:08:51.594] - accumulating results
  [13:08:51.595] - processing errors (handler = 'stop')
  [13:08:51.595] - extracting results
  [13:08:51.596] doFuture() ... DONE
  [13:08:51.609] - collecting values of futures
  [13:08:51.610] - accumulating results
  [13:08:51.610] - processing errors (handler = 'stop')
  [13:08:51.611] - extracting results
  [13:08:51.611] doFuture() ... DONE
  > str(x)
  List of 1
   $ :List of 1
    ..$ : num 1
  > rm(list = "x")
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ... DONE")
  *** doFuture - nested %dopar%  and tricky globals ... DONE
  > 
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  + 
  +     as <- 1:2
  +     bs <- 3:1
  + 
  +     stopifnot(!exists("a", inherits = FALSE), !exists("b", inherits = FALSE))
  + 
  +     message("foreach() - level 1 ...")
  +     x <- foreach(a = as, .export = c("bs", "strategy2"),
  +                  .packages = "foreach") %dopar% {
  +       plan_list <- future::plan()
  +       stopifnot(inherits(plan_list, strategy2))
  +       plan_a <- future::plan("list")
  +       str(plan_a)
  +       stopifnot(inherits(plan_a[[1]], strategy2))
  + 
  +       message("foreach() - level 2 ...")
  +       y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% {
  +         plan_list <- future::plan()
  +         message(capture.output(print(plan_list)))
  +         stopifnot(
  +           inherits(plan_list, "future"),
  +           inherits(plan_list, getOption("future.default", "sequential"))
  +         )
  + 
  +         plan_b <- future::plan("list")
  +         str(plan_b)
  +         stopifnot(
  +           inherits(plan_b[[1]], "future"),
  +           inherits(plan_b[[1]], getOption("future.default", "sequential"))
  +         )
  + 
  +         list(a = a, plan_a = plan_a,
  +              b = b, plan_b = plan_b)
  +       }
  +       message("foreach() - level 2 ... DONE")
  + 
  +       y
  +     }
  +     message("foreach() - level 1 ... DONE")
  + 
  +     local({
  +       stopifnot(length(x) == length(as))
  +       for (aa in seq_along(as)) {
  +         x_aa <- x[[aa]]
  +         stopifnot(length(x_aa) == length(bs))
  +         a <- as[aa]
  +         for (bb in seq_along(bs)) {
  +           x_aa_bb <- x_aa[[bb]]
  +           b <- bs[bb]
  +           stopifnot(
  +             length(x_aa_bb) == 4L,
  +             all(names(x_aa_bb) == c("a", "plan_a", "b", "plan_b")),
  +             x_aa_bb$a == a,
  +             x_aa_bb$b == b,
  +             inherits(x_aa_bb$plan_a[[1]], strategy2),
  +             inherits(x_aa_bb$plan_b[[1]], "future"),
  +             inherits(x_aa_bb$plan_b[[1]],
  +                      getOption("future.default", "sequential"))
  +           )
  +         }
  +       }
  +     })
  + 
  +     ## Cleanup in order make sure none of these variables exist as
  +     ## proxies for missing globals of the name names
  +     rm(list = c("as", "bs", "x"))
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [13:08:51.722] plan(): Setting new future strategy stack:
  [13:08:51.722] List of future strategies:
  [13:08:51.722] 1. sequential:
  [13:08:51.722]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.722]    - tweaked: FALSE
  [13:08:51.722]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:51.722] 2. sequential:
  [13:08:51.722]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.722]    - tweaked: FALSE
  [13:08:51.722]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:51.752] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:08:51.752] doFuture() ...
  [13:08:51.754] - dummy globals (as locals): [1] 'a'
  [13:08:51.755] - R expression:
  [13:08:51.755] {
  [13:08:51.755]     doFuture::registerDoFuture()
  [13:08:51.755]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.755]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.755]         a <- NULL
  [13:08:51.755]         ...future.env <- environment()
  [13:08:51.755]         local({
  [13:08:51.755]             for (name in names(...future.x_jj)) {
  [13:08:51.755]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.755]                   inherits = FALSE)
  [13:08:51.755]             }
  [13:08:51.755]         })
  [13:08:51.755]         tryCatch({
  [13:08:51.755]             plan_list <- future::plan()
  [13:08:51.755]             stopifnot(inherits(plan_list, strategy2))
  [13:08:51.755]             plan_a <- future::plan("list")
  [13:08:51.755]             str(plan_a)
  [13:08:51.755]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:51.755]             message("foreach() - level 2 ...")
  [13:08:51.755]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:51.755]                 {
  [13:08:51.755]                   plan_list <- future::plan()
  [13:08:51.755]                   message(capture.output(print(plan_list)))
  [13:08:51.755]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:51.755]                     getOption("future.default", "sequential")))
  [13:08:51.755]                   plan_b <- future::plan("list")
  [13:08:51.755]                   str(plan_b)
  [13:08:51.755]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:51.755]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:51.755]                       "sequential")))
  [13:08:51.755]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.755]                 }
  [13:08:51.755]             message("foreach() - level 2 ... DONE")
  [13:08:51.755]             y
  [13:08:51.755]         }, error = identity)
  [13:08:51.755]     })
  [13:08:51.755] }
  [13:08:51.756] - identifying globals and packages ...
  [13:08:51.757] getGlobalsAndPackages() ...
  [13:08:51.761] Searching for globals...
  [13:08:51.789] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:08:51.790] Searching for globals ... DONE
  [13:08:51.790] Resolving globals: FALSE
  [13:08:51.792] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:08:51.793] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:51.793] - packages: [2] 'utils', 'foreach'
  [13:08:51.793] getGlobalsAndPackages() ... DONE
  [13:08:51.794] List of 3
  [13:08:51.794]  $ ...future.x_ii: NULL
  [13:08:51.794]  $ strategy2     : chr "sequential"
  [13:08:51.794]  $ bs            : int [1:3] 3 2 1
  [13:08:51.794]  - attr(*, "where")=List of 3
  [13:08:51.794]   ..$ ...future.x_ii:<environment: 0x55c310814ab8> 
  [13:08:51.794]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:51.794]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:51.794]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.794]  - attr(*, "resolved")= logi FALSE
  [13:08:51.794]  - attr(*, "total_size")= num 184
  [13:08:51.803]   - R expression:
  [13:08:51.803] {
  [13:08:51.803]     doFuture::registerDoFuture()
  [13:08:51.803]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.803]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.803]         a <- NULL
  [13:08:51.803]         ...future.env <- environment()
  [13:08:51.803]         local({
  [13:08:51.803]             for (name in names(...future.x_jj)) {
  [13:08:51.803]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.803]                   inherits = FALSE)
  [13:08:51.803]             }
  [13:08:51.803]         })
  [13:08:51.803]         tryCatch({
  [13:08:51.803]             plan_list <- future::plan()
  [13:08:51.803]             stopifnot(inherits(plan_list, strategy2))
  [13:08:51.803]             plan_a <- future::plan("list")
  [13:08:51.803]             str(plan_a)
  [13:08:51.803]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:51.803]             message("foreach() - level 2 ...")
  [13:08:51.803]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:51.803]                 {
  [13:08:51.803]                   plan_list <- future::plan()
  [13:08:51.803]                   message(capture.output(print(plan_list)))
  [13:08:51.803]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:51.803]                     getOption("future.default", "sequential")))
  [13:08:51.803]                   plan_b <- future::plan("list")
  [13:08:51.803]                   str(plan_b)
  [13:08:51.803]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:51.803]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:51.803]                       "sequential")))
  [13:08:51.803]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.803]                 }
  [13:08:51.803]             message("foreach() - level 2 ... DONE")
  [13:08:51.803]             y
  [13:08:51.803]         }, error = identity)
  [13:08:51.803]     })
  [13:08:51.803] }
  [13:08:51.804]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:51.805] List of 3
  [13:08:51.805]  $ ...future.x_ii: NULL
  [13:08:51.805]  $ strategy2     : chr "sequential"
  [13:08:51.805]  $ bs            : int [1:3] 3 2 1
  [13:08:51.805]  - attr(*, "where")=List of 3
  [13:08:51.805]   ..$ ...future.x_ii:<environment: 0x55c310814ab8> 
  [13:08:51.805]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:51.805]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:51.805]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.805]  - attr(*, "resolved")= logi FALSE
  [13:08:51.805]  - attr(*, "total_size")= num 184
  [13:08:51.813]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:08:51.814] - identifying globals and packages ... DONE
  [13:08:51.814] Number of chunks: 1
  [13:08:51.814] Number of futures (= number of chunks): 1
  [13:08:51.815] Launching 1 futures (chunks) ...
  [13:08:51.815] Chunk #1 of 1 ...
  [13:08:51.815]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:51.815] getGlobalsAndPackages() ...
  [13:08:51.816] Searching for globals...
  [13:08:51.820] 
  [13:08:51.820] Searching for globals ... DONE
  [13:08:51.820] - globals: [0] <none>
  [13:08:51.821] getGlobalsAndPackages() ... DONE
  [13:08:51.821] 
  [13:08:51.821] 
  [13:08:51.822]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:51.822] getGlobalsAndPackages() ...
  [13:08:51.822] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:51.823] Resolving globals: FALSE
  [13:08:51.824] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:08:51.824] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:51.825] 
  [13:08:51.825] getGlobalsAndPackages() ... DONE
  [13:08:51.826] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:08:51.827] Packages needed by future strategies (n = 1): 'future'
  [13:08:51.831] {
  [13:08:51.831]     {
  [13:08:51.831]         ...future.startTime <- Sys.time()
  [13:08:51.831]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:51.831]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:51.831]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:51.831]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:51.831]             future.resolve.recursive = NULL, width = 80L)
  [13:08:51.831]         {
  [13:08:51.831]             {
  [13:08:51.831]                 {
  [13:08:51.831]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:51.831]                   version <- if (has_future) 
  [13:08:51.831]                     packageVersion("future")
  [13:08:51.831]                   else NULL
  [13:08:51.831]                   if (!has_future || version < "1.8.0") {
  [13:08:51.831]                     info <- c(r_version = gsub("R version ", 
  [13:08:51.831]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:51.831]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:51.831]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:51.831]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:51.831]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:51.831]                     info <- paste(info, collapse = "; ")
  [13:08:51.831]                     if (!has_future) {
  [13:08:51.831]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:51.831]                         info)
  [13:08:51.831]                     }
  [13:08:51.831]                     else {
  [13:08:51.831]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:51.831]                         info, version)
  [13:08:51.831]                     }
  [13:08:51.831]                     stop(msg)
  [13:08:51.831]                   }
  [13:08:51.831]                 }
  [13:08:51.831]                 local({
  [13:08:51.831]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:08:51.831]                   "future")) {
  [13:08:51.831]                     loadNamespace(pkg)
  [13:08:51.831]                     library(pkg, character.only = TRUE)
  [13:08:51.831]                   }
  [13:08:51.831]                 })
  [13:08:51.831]             }
  [13:08:51.831]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:51.831]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.831]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.831]                 label = NULL, ...) 
  [13:08:51.831]             {
  [13:08:51.831]                 if (substitute) 
  [13:08:51.831]                   expr <- substitute(expr)
  [13:08:51.831]                 local <- as.logical(local)
  [13:08:51.831]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.831]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.831]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.831]                   label = label, ...)
  [13:08:51.831]                 if (!future$lazy) 
  [13:08:51.831]                   future <- run(future)
  [13:08:51.831]                 invisible(future)
  [13:08:51.831]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.831]         }
  [13:08:51.831]     }
  [13:08:51.831]     if (is.na(TRUE)) {
  [13:08:51.831]     }
  [13:08:51.831]     else {
  [13:08:51.831]         if (TRUE) {
  [13:08:51.831]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:51.831]         }
  [13:08:51.831]         else {
  [13:08:51.831]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:51.831]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:51.831]         }
  [13:08:51.831]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:51.831]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:51.831]             sink(type = "output", split = FALSE)
  [13:08:51.831]             close(...future.stdout)
  [13:08:51.831]         }, add = TRUE)
  [13:08:51.831]     }
  [13:08:51.831]     ...future.frame <- sys.nframe()
  [13:08:51.831]     ...future.conditions <- list()
  [13:08:51.831]     ...future.result <- tryCatch({
  [13:08:51.831]         withCallingHandlers({
  [13:08:51.831]             ...future.value <- local({
  [13:08:51.831]                 doFuture::registerDoFuture()
  [13:08:51.831]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.831]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.831]                   a <- NULL
  [13:08:51.831]                   ...future.env <- environment()
  [13:08:51.831]                   local({
  [13:08:51.831]                     for (name in names(...future.x_jj)) {
  [13:08:51.831]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.831]                         inherits = FALSE)
  [13:08:51.831]                     }
  [13:08:51.831]                   })
  [13:08:51.831]                   tryCatch({
  [13:08:51.831]                     plan_list <- future::plan()
  [13:08:51.831]                     stopifnot(inherits(plan_list, strategy2))
  [13:08:51.831]                     plan_a <- future::plan("list")
  [13:08:51.831]                     str(plan_a)
  [13:08:51.831]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:51.831]                     message("foreach() - level 2 ...")
  [13:08:51.831]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:51.831]                       {
  [13:08:51.831]                         plan_list <- future::plan()
  [13:08:51.831]                         message(capture.output(print(plan_list)))
  [13:08:51.831]                         stopifnot(inherits(plan_list, "future"), 
  [13:08:51.831]                           inherits(plan_list, getOption("future.default", 
  [13:08:51.831]                             "sequential")))
  [13:08:51.831]                         plan_b <- future::plan("list")
  [13:08:51.831]                         str(plan_b)
  [13:08:51.831]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:51.831]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:08:51.831]                             "sequential")))
  [13:08:51.831]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.831]                       }
  [13:08:51.831]                     message("foreach() - level 2 ... DONE")
  [13:08:51.831]                     y
  [13:08:51.831]                   }, error = identity)
  [13:08:51.831]                 })
  [13:08:51.831]             })
  [13:08:51.831]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:51.831]                 version = "1.8")
  [13:08:51.831]         }, condition = local({
  [13:08:51.831]             inherits <- base::inherits
  [13:08:51.831]             invokeRestart <- base::invokeRestart
  [13:08:51.831]             length <- base::length
  [13:08:51.831]             seq.int <- base::seq.int
  [13:08:51.831]             sys.calls <- base::sys.calls
  [13:08:51.831]             `[[` <- base::`[[`
  [13:08:51.831]             `+` <- base::`+`
  [13:08:51.831]             `<<-` <- base::`<<-`
  [13:08:51.831]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:51.831]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:51.831]                   3L)]
  [13:08:51.831]             }
  [13:08:51.831]             function(cond) {
  [13:08:51.831]                 if (inherits(cond, "error")) {
  [13:08:51.831]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.831]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:51.831]                     cond$call), timestamp = base::Sys.time())
  [13:08:51.831]                   signalCondition(cond)
  [13:08:51.831]                 }
  [13:08:51.831]                 else if (inherits(cond, c("message", "warning"
  [13:08:51.831]                 ))) {
  [13:08:51.831]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.831]                     1L]] <<- list(condition = cond)
  [13:08:51.831]                   if (inherits(cond, "message")) {
  [13:08:51.831]                     invokeRestart("muffleMessage")
  [13:08:51.831]                   }
  [13:08:51.831]                   else if (inherits(cond, "warning")) {
  [13:08:51.831]                     invokeRestart("muffleWarning")
  [13:08:51.831]                   }
  [13:08:51.831]                 }
  [13:08:51.831]             }
  [13:08:51.831]         }))
  [13:08:51.831]     }, error = function(ex) {
  [13:08:51.831]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:51.831]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:51.831]             class = "FutureResult")
  [13:08:51.831]     }, finally = {
  [13:08:51.831]         {
  [13:08:51.831]             NULL
  [13:08:51.831]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:08:51.831]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.831]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.831]                 label = NULL, ...) 
  [13:08:51.831]             {
  [13:08:51.831]                 if (substitute) 
  [13:08:51.831]                   expr <- substitute(expr)
  [13:08:51.831]                 local <- as.logical(local)
  [13:08:51.831]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.831]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.831]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.831]                   label = label, ...)
  [13:08:51.831]                 if (!future$lazy) 
  [13:08:51.831]                   future <- run(future)
  [13:08:51.831]                 invisible(future)
  [13:08:51.831]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:08:51.831]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:08:51.831]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:51.831]             {
  [13:08:51.831]                 if (substitute) 
  [13:08:51.831]                   expr <- substitute(expr)
  [13:08:51.831]                 local <- as.logical(local)
  [13:08:51.831]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.831]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.831]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.831]                   label = label, ...)
  [13:08:51.831]                 if (!future$lazy) 
  [13:08:51.831]                   future <- run(future)
  [13:08:51.831]                 invisible(future)
  [13:08:51.831]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.831]         }
  [13:08:51.831]         options(...future.oldOptions)
  [13:08:51.831]     })
  [13:08:51.831]     if (is.na(TRUE)) {
  [13:08:51.831]     }
  [13:08:51.831]     else {
  [13:08:51.831]         sink(type = "output", split = FALSE)
  [13:08:51.831]         if (TRUE) {
  [13:08:51.831]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:51.831]         }
  [13:08:51.831]         else {
  [13:08:51.831]             ...future.result["stdout"] <- list(NULL)
  [13:08:51.831]         }
  [13:08:51.831]         close(...future.stdout)
  [13:08:51.831]         ...future.stdout <- NULL
  [13:08:51.831]     }
  [13:08:51.831]     ...future.result$conditions <- ...future.conditions
  [13:08:51.831]     ...future.result
  [13:08:51.831] }
  [13:08:51.837] plan(): Setting new future strategy stack:
  [13:08:51.837] List of future strategies:
  [13:08:51.837] 1. sequential:
  [13:08:51.837]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.837]    - tweaked: FALSE
  [13:08:51.837]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:51.839] plan(): nbrOfWorkers() = 1
  [13:08:52.145] plan(): Setting new future strategy stack:
  [13:08:52.146] List of future strategies:
  [13:08:52.146] 1. sequential:
  [13:08:52.146]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.146]    - tweaked: FALSE
  [13:08:52.146]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.146] 2. sequential:
  [13:08:52.146]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.146]    - tweaked: FALSE
  [13:08:52.146]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.147] plan(): nbrOfWorkers() = 1
  [13:08:52.147] SequentialFuture started (and completed)
  [13:08:52.148] Chunk #1 of 1 ... DONE
  [13:08:52.148] Launching 1 futures (chunks) ... DONE
  [13:08:52.148] - resolving futures
  [13:08:52.149] resolve() on list ...
  [13:08:52.149]  recursive: 0
  [13:08:52.149]  length: 1
  [13:08:52.149] 
  [13:08:52.150]  length: 0 (resolved future 1)
  [13:08:52.150] resolve() on list ... DONE
  [13:08:52.150] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.151] Future state: 'finished'
  foreach() - level 2 ...
  [13:08:51.844] doFuture() ...
  [13:08:51.845] - dummy globals (as locals): [1] 'b'
  [13:08:51.846] - R expression:
  [13:08:51.847] {
  [13:08:51.847]     doFuture::registerDoFuture()
  [13:08:51.847]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.847]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.847]         b <- NULL
  [13:08:51.847]         ...future.env <- environment()
  [13:08:51.847]         local({
  [13:08:51.847]             for (name in names(...future.x_jj)) {
  [13:08:51.847]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.847]                   inherits = FALSE)
  [13:08:51.847]             }
  [13:08:51.847]         })
  [13:08:51.847]         tryCatch({
  [13:08:51.847]             plan_list <- future::plan()
  [13:08:51.847]             message(capture.output(print(plan_list)))
  [13:08:51.847]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:51.847]                 getOption("future.default", "sequential")))
  [13:08:51.847]             plan_b <- future::plan("list")
  [13:08:51.847]             str(plan_b)
  [13:08:51.847]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:51.847]                 getOption("future.default", "sequential")))
  [13:08:51.847]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.847]         }, error = identity)
  [13:08:51.847]     })
  [13:08:51.847] }
  [13:08:51.848] - identifying globals and packages ...
  [13:08:51.848] getGlobalsAndPackages() ...
  [13:08:51.849] Searching for globals...
  [13:08:51.871] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:08:51.872] Searching for globals ... DONE
  [13:08:51.872] Resolving globals: FALSE
  [13:08:51.875] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:08:51.876] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:51.877] - packages: [1] 'utils'
  [13:08:51.877] getGlobalsAndPackages() ... DONE
  [13:08:51.877] List of 3
  [13:08:51.877]  $ ...future.x_ii: NULL
  [13:08:51.877]  $ a             : int 1
  [13:08:51.877]  $ plan_a        :List of 1
  [13:08:51.877]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:51.877]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:08:51.877]     ...)  
  [13:08:51.877]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:08:51.877]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:51.877]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:51.877]  - attr(*, "where")=List of 3
  [13:08:51.877]   ..$ ...future.x_ii:<environment: 0x55c30f0f8130> 
  [13:08:51.877]   ..$ a             :<environment: 0x55c30dfb5268> 
  [13:08:51.877]   ..$ plan_a        :<environment: 0x55c30dfb5268> 
  [13:08:51.877]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.877]  - attr(*, "resolved")= logi FALSE
  [13:08:51.877]  - attr(*, "total_size")= num 40624
  [13:08:51.895]   - R expression:
  [13:08:51.895] {
  [13:08:51.895]     doFuture::registerDoFuture()
  [13:08:51.895]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.895]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.895]         b <- NULL
  [13:08:51.895]         ...future.env <- environment()
  [13:08:51.895]         local({
  [13:08:51.895]             for (name in names(...future.x_jj)) {
  [13:08:51.895]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.895]                   inherits = FALSE)
  [13:08:51.895]             }
  [13:08:51.895]         })
  [13:08:51.895]         tryCatch({
  [13:08:51.895]             plan_list <- future::plan()
  [13:08:51.895]             message(capture.output(print(plan_list)))
  [13:08:51.895]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:51.895]                 getOption("future.default", "sequential")))
  [13:08:51.895]             plan_b <- future::plan("list")
  [13:08:51.895]             str(plan_b)
  [13:08:51.895]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:51.895]                 getOption("future.default", "sequential")))
  [13:08:51.895]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.895]         }, error = identity)
  [13:08:51.895]     })
  [13:08:51.895] }
  [13:08:51.896]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:51.897] List of 3
  [13:08:51.897]  $ ...future.x_ii: NULL
  [13:08:51.897]  $ a             : int 1
  [13:08:51.897]  $ plan_a        :List of 1
  [13:08:51.897]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:51.897]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:08:51.897]     ...)  
  [13:08:51.897]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:08:51.897]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:51.897]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:51.897]  - attr(*, "where")=List of 3
  [13:08:51.897]   ..$ ...future.x_ii:<environment: 0x55c30f0f8130> 
  [13:08:51.897]   ..$ a             :<environment: 0x55c30dfb5268> 
  [13:08:51.897]   ..$ plan_a        :<environment: 0x55c30dfb5268> 
  [13:08:51.897]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:51.897]  - attr(*, "resolved")= logi FALSE
  [13:08:51.897]  - attr(*, "total_size")= num 40624
  [13:08:51.912]   - packages: [2] 'doFuture', 'utils'
  [13:08:51.912] - identifying globals and packages ... DONE
  [13:08:51.912] Number of chunks: 1
  [13:08:51.913] Number of futures (= number of chunks): 1
  [13:08:51.913] Launching 1 futures (chunks) ...
  [13:08:51.914] Chunk #1 of 1 ...
  [13:08:51.914]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:51.914] getGlobalsAndPackages() ...
  [13:08:51.915] Searching for globals...
  [13:08:51.916] 
  [13:08:51.916] Searching for globals ... DONE
  [13:08:51.917] - globals: [0] <none>
  [13:08:51.917] getGlobalsAndPackages() ... DONE
  [13:08:51.917] 
  [13:08:51.918] 
  [13:08:51.918]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:51.919] getGlobalsAndPackages() ...
  [13:08:51.919] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:51.920] Resolving globals: FALSE
  [13:08:51.921] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:08:51.922] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:51.923] 
  [13:08:51.923] getGlobalsAndPackages() ... DONE
  [13:08:51.925] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:51.925] Packages needed by future strategies (n = 0): <none>
  [13:08:51.930] {
  [13:08:51.930]     {
  [13:08:51.930]         ...future.startTime <- Sys.time()
  [13:08:51.930]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:51.930]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:51.930]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:51.930]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:51.930]             future.resolve.recursive = NULL, width = 80L)
  [13:08:51.930]         {
  [13:08:51.930]             {
  [13:08:51.930]                 {
  [13:08:51.930]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:51.930]                   version <- if (has_future) 
  [13:08:51.930]                     packageVersion("future")
  [13:08:51.930]                   else NULL
  [13:08:51.930]                   if (!has_future || version < "1.8.0") {
  [13:08:51.930]                     info <- c(r_version = gsub("R version ", 
  [13:08:51.930]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:51.930]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:51.930]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:51.930]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:51.930]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:51.930]                     info <- paste(info, collapse = "; ")
  [13:08:51.930]                     if (!has_future) {
  [13:08:51.930]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:51.930]                         info)
  [13:08:51.930]                     }
  [13:08:51.930]                     else {
  [13:08:51.930]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:51.930]                         info, version)
  [13:08:51.930]                     }
  [13:08:51.930]                     stop(msg)
  [13:08:51.930]                   }
  [13:08:51.930]                 }
  [13:08:51.930]                 local({
  [13:08:51.930]                   for (pkg in c("doFuture", "utils")) {
  [13:08:51.930]                     loadNamespace(pkg)
  [13:08:51.930]                     library(pkg, character.only = TRUE)
  [13:08:51.930]                   }
  [13:08:51.930]                 })
  [13:08:51.930]             }
  [13:08:51.930]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:51.930]         }
  [13:08:51.930]     }
  [13:08:51.930]     if (is.na(TRUE)) {
  [13:08:51.930]     }
  [13:08:51.930]     else {
  [13:08:51.930]         if (TRUE) {
  [13:08:51.930]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:51.930]         }
  [13:08:51.930]         else {
  [13:08:51.930]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:51.930]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:51.930]         }
  [13:08:51.930]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:51.930]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:51.930]             sink(type = "output", split = FALSE)
  [13:08:51.930]             close(...future.stdout)
  [13:08:51.930]         }, add = TRUE)
  [13:08:51.930]     }
  [13:08:51.930]     ...future.frame <- sys.nframe()
  [13:08:51.930]     ...future.conditions <- list()
  [13:08:51.930]     ...future.result <- tryCatch({
  [13:08:51.930]         withCallingHandlers({
  [13:08:51.930]             ...future.value <- local({
  [13:08:51.930]                 doFuture::registerDoFuture()
  [13:08:51.930]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:51.930]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:51.930]                   b <- NULL
  [13:08:51.930]                   ...future.env <- environment()
  [13:08:51.930]                   local({
  [13:08:51.930]                     for (name in names(...future.x_jj)) {
  [13:08:51.930]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:51.930]                         inherits = FALSE)
  [13:08:51.930]                     }
  [13:08:51.930]                   })
  [13:08:51.930]                   tryCatch({
  [13:08:51.930]                     plan_list <- future::plan()
  [13:08:51.930]                     message(capture.output(print(plan_list)))
  [13:08:51.930]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:51.930]                       inherits(plan_list, getOption("future.default", 
  [13:08:51.930]                         "sequential")))
  [13:08:51.930]                     plan_b <- future::plan("list")
  [13:08:51.930]                     str(plan_b)
  [13:08:51.930]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:51.930]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:51.930]                         "sequential")))
  [13:08:51.930]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:51.930]                   }, error = identity)
  [13:08:51.930]                 })
  [13:08:51.930]             })
  [13:08:51.930]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:51.930]                 version = "1.8")
  [13:08:51.930]         }, condition = local({
  [13:08:51.930]             inherits <- base::inherits
  [13:08:51.930]             invokeRestart <- base::invokeRestart
  [13:08:51.930]             length <- base::length
  [13:08:51.930]             seq.int <- base::seq.int
  [13:08:51.930]             sys.calls <- base::sys.calls
  [13:08:51.930]             `[[` <- base::`[[`
  [13:08:51.930]             `+` <- base::`+`
  [13:08:51.930]             `<<-` <- base::`<<-`
  [13:08:51.930]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:51.930]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:51.930]                   3L)]
  [13:08:51.930]             }
  [13:08:51.930]             function(cond) {
  [13:08:51.930]                 if (inherits(cond, "error")) {
  [13:08:51.930]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.930]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:51.930]                     cond$call), timestamp = base::Sys.time())
  [13:08:51.930]                   signalCondition(cond)
  [13:08:51.930]                 }
  [13:08:51.930]                 else if (inherits(cond, c("message", "warning"
  [13:08:51.930]                 ))) {
  [13:08:51.930]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:51.930]                     1L]] <<- list(condition = cond)
  [13:08:51.930]                   if (inherits(cond, "message")) {
  [13:08:51.930]                     invokeRestart("muffleMessage")
  [13:08:51.930]                   }
  [13:08:51.930]                   else if (inherits(cond, "warning")) {
  [13:08:51.930]                     invokeRestart("muffleWarning")
  [13:08:51.930]                   }
  [13:08:51.930]                 }
  [13:08:51.930]             }
  [13:08:51.930]         }))
  [13:08:51.930]     }, error = function(ex) {
  [13:08:51.930]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:51.930]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:51.930]             class = "FutureResult")
  [13:08:51.930]     }, finally = {
  [13:08:51.930]         {
  [13:08:51.930]             NULL
  [13:08:51.930]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:51.930]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:51.930]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:51.930]                 label = NULL, ...) 
  [13:08:51.930]             {
  [13:08:51.930]                 if (substitute) 
  [13:08:51.930]                   expr <- substitute(expr)
  [13:08:51.930]                 local <- as.logical(local)
  [13:08:51.930]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:51.930]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:51.930]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:51.930]                   label = label, ...)
  [13:08:51.930]                 if (!future$lazy) 
  [13:08:51.930]                   future <- run(future)
  [13:08:51.930]                 invisible(future)
  [13:08:51.930]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:51.930]         }
  [13:08:51.930]         options(...future.oldOptions)
  [13:08:51.930]     })
  [13:08:51.930]     if (is.na(TRUE)) {
  [13:08:51.930]     }
  [13:08:51.930]     else {
  [13:08:51.930]         sink(type = "output", split = FALSE)
  [13:08:51.930]         if (TRUE) {
  [13:08:51.930]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:51.930]         }
  [13:08:51.930]         else {
  [13:08:51.930]             ...future.result["stdout"] <- list(NULL)
  [13:08:51.930]         }
  [13:08:51.930]         close(...future.stdout)
  [13:08:51.930]         ...future.stdout <- NULL
  [13:08:51.930]     }
  [13:08:51.930]     ...future.result$conditions <- ...future.conditions
  [13:08:51.930]     ...future.result
  [13:08:51.930] }
  [13:08:51.935] plan(): Setting new future strategy stack:
  [13:08:51.936] List of future strategies:
  [13:08:51.936] 1. sequential:
  [13:08:51.936]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.936]    - tweaked: FALSE
  [13:08:51.936]    - call: NULL
  [13:08:51.937] plan(): nbrOfWorkers() = 1
  [13:08:51.981] plan(): Setting new future strategy stack:
  [13:08:51.981] List of future strategies:
  [13:08:51.981] 1. sequential:
  [13:08:51.981]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:51.981]    - tweaked: FALSE
  [13:08:51.981]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:51.982] plan(): nbrOfWorkers() = 1
  [13:08:51.983] SequentialFuture started (and completed)
  [13:08:51.983] Chunk #1 of 1 ... DONE
  [13:08:51.984] Launching 1 futures (chunks) ... DONE
  [13:08:51.984] - resolving futures
  [13:08:51.984] resolve() on list ...
  [13:08:51.985]  recursive: 0
  [13:08:51.985]  length: 1
  [13:08:51.985] 
  [13:08:51.986]  length: 0 (resolved future 1)
  [13:08:51.986] resolve() on list ... DONE
  [13:08:51.986] - relaying conditions of futures
  [13:08:51.987] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:51.988] - collecting values of futures
  [13:08:51.988] - accumulating results
  [13:08:51.989] - processing errors (handler = 'stop')
  [13:08:51.990] - extracting results
  [13:08:51.990] doFuture() ... DONE
  foreach() - level 2 ... DONE
  foreach() - level 2 ...
  [13:08:52.037] doFuture() ...
  [13:08:52.038] - dummy globals (as locals): [1] 'b'
  [13:08:52.039] - R expression:
  [13:08:52.040] {
  [13:08:52.040]     doFuture::registerDoFuture()
  [13:08:52.040]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.040]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.040]         b <- NULL
  [13:08:52.040]         ...future.env <- environment()
  [13:08:52.040]         local({
  [13:08:52.040]             for (name in names(...future.x_jj)) {
  [13:08:52.040]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.040]                   inherits = FALSE)
  [13:08:52.040]             }
  [13:08:52.040]         })
  [13:08:52.040]         tryCatch({
  [13:08:52.040]             plan_list <- future::plan()
  [13:08:52.040]             message(capture.output(print(plan_list)))
  [13:08:52.040]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.040]                 getOption("future.default", "sequential")))
  [13:08:52.040]             plan_b <- future::plan("list")
  [13:08:52.040]             str(plan_b)
  [13:08:52.040]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.040]                 getOption("future.default", "sequential")))
  [13:08:52.040]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.040]         }, error = identity)
  [13:08:52.040]     })
  [13:08:52.040] }
  [13:08:52.041] - identifying globals and packages ...
  [13:08:52.041] getGlobalsAndPackages() ...
  [13:08:52.041] Searching for globals...
  [13:08:52.066] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:08:52.066] Searching for globals ... DONE
  [13:08:52.067] Resolving globals: FALSE
  [13:08:52.069] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:08:52.070] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.070] - packages: [1] 'utils'
  [13:08:52.071] getGlobalsAndPackages() ... DONE
  [13:08:52.071] List of 3
  [13:08:52.071]  $ ...future.x_ii: NULL
  [13:08:52.071]  $ a             : int 2
  [13:08:52.071]  $ plan_a        :List of 1
  [13:08:52.071]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.071]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:08:52.071]     ...)  
  [13:08:52.071]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:08:52.071]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.071]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.071]  - attr(*, "where")=List of 3
  [13:08:52.071]   ..$ ...future.x_ii:<environment: 0x55c30fdaf4f0> 
  [13:08:52.071]   ..$ a             :<environment: 0x55c30fe9edd0> 
  [13:08:52.071]   ..$ plan_a        :<environment: 0x55c30fe9edd0> 
  [13:08:52.071]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.071]  - attr(*, "resolved")= logi FALSE
  [13:08:52.071]  - attr(*, "total_size")= num 40624
  [13:08:52.083]   - R expression:
  [13:08:52.083] {
  [13:08:52.083]     doFuture::registerDoFuture()
  [13:08:52.083]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.083]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.083]         b <- NULL
  [13:08:52.083]         ...future.env <- environment()
  [13:08:52.083]         local({
  [13:08:52.083]             for (name in names(...future.x_jj)) {
  [13:08:52.083]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.083]                   inherits = FALSE)
  [13:08:52.083]             }
  [13:08:52.083]         })
  [13:08:52.083]         tryCatch({
  [13:08:52.083]             plan_list <- future::plan()
  [13:08:52.083]             message(capture.output(print(plan_list)))
  [13:08:52.083]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.083]                 getOption("future.default", "sequential")))
  [13:08:52.083]             plan_b <- future::plan("list")
  [13:08:52.083]             str(plan_b)
  [13:08:52.083]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.083]                 getOption("future.default", "sequential")))
  [13:08:52.083]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.083]         }, error = identity)
  [13:08:52.083]     })
  [13:08:52.083] }
  [13:08:52.084]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.085] List of 3
  [13:08:52.085]  $ ...future.x_ii: NULL
  [13:08:52.085]  $ a             : int 2
  [13:08:52.085]  $ plan_a        :List of 1
  [13:08:52.085]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.085]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:08:52.085]     ...)  
  [13:08:52.085]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:08:52.085]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.085]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.085]  - attr(*, "where")=List of 3
  [13:08:52.085]   ..$ ...future.x_ii:<environment: 0x55c30fdaf4f0> 
  [13:08:52.085]   ..$ a             :<environment: 0x55c30fe9edd0> 
  [13:08:52.085]   ..$ plan_a        :<environment: 0x55c30fe9edd0> 
  [13:08:52.085]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.085]  - attr(*, "resolved")= logi FALSE
  [13:08:52.085]  - attr(*, "total_size")= num 40624
  [13:08:52.096]   - packages: [2] 'doFuture', 'utils'
  [13:08:52.097] - identifying globals and packages ... DONE
  [13:08:52.097] Number of chunks: 1
  [13:08:52.098] Number of futures (= number of chunks): 1
  [13:08:52.098] Launching 1 futures (chunks) ...
  [13:08:52.098] Chunk #1 of 1 ...
  [13:08:52.099]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:52.099] getGlobalsAndPackages() ...
  [13:08:52.099] Searching for globals...
  [13:08:52.100] 
  [13:08:52.101] Searching for globals ... DONE
  [13:08:52.101] - globals: [0] <none>
  [13:08:52.101] getGlobalsAndPackages() ... DONE
  [13:08:52.102] 
  [13:08:52.102] 
  [13:08:52.102]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:52.103] getGlobalsAndPackages() ...
  [13:08:52.103] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.103] Resolving globals: FALSE
  [13:08:52.105] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:08:52.105] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.106] 
  [13:08:52.106] getGlobalsAndPackages() ... DONE
  [13:08:52.108] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:52.108] Packages needed by future strategies (n = 0): <none>
  [13:08:52.112] {
  [13:08:52.112]     {
  [13:08:52.112]         ...future.startTime <- Sys.time()
  [13:08:52.112]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.112]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.112]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.112]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.112]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.112]         {
  [13:08:52.112]             {
  [13:08:52.112]                 {
  [13:08:52.112]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:52.112]                   version <- if (has_future) 
  [13:08:52.112]                     packageVersion("future")
  [13:08:52.112]                   else NULL
  [13:08:52.112]                   if (!has_future || version < "1.8.0") {
  [13:08:52.112]                     info <- c(r_version = gsub("R version ", 
  [13:08:52.112]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.112]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.112]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.112]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.112]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:52.112]                     info <- paste(info, collapse = "; ")
  [13:08:52.112]                     if (!has_future) {
  [13:08:52.112]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.112]                         info)
  [13:08:52.112]                     }
  [13:08:52.112]                     else {
  [13:08:52.112]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.112]                         info, version)
  [13:08:52.112]                     }
  [13:08:52.112]                     stop(msg)
  [13:08:52.112]                   }
  [13:08:52.112]                 }
  [13:08:52.112]                 local({
  [13:08:52.112]                   for (pkg in c("doFuture", "utils")) {
  [13:08:52.112]                     loadNamespace(pkg)
  [13:08:52.112]                     library(pkg, character.only = TRUE)
  [13:08:52.112]                   }
  [13:08:52.112]                 })
  [13:08:52.112]             }
  [13:08:52.112]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:52.112]         }
  [13:08:52.112]     }
  [13:08:52.112]     if (is.na(TRUE)) {
  [13:08:52.112]     }
  [13:08:52.112]     else {
  [13:08:52.112]         if (TRUE) {
  [13:08:52.112]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.112]         }
  [13:08:52.112]         else {
  [13:08:52.112]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.112]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.112]         }
  [13:08:52.112]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.112]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.112]             sink(type = "output", split = FALSE)
  [13:08:52.112]             close(...future.stdout)
  [13:08:52.112]         }, add = TRUE)
  [13:08:52.112]     }
  [13:08:52.112]     ...future.frame <- sys.nframe()
  [13:08:52.112]     ...future.conditions <- list()
  [13:08:52.112]     ...future.result <- tryCatch({
  [13:08:52.112]         withCallingHandlers({
  [13:08:52.112]             ...future.value <- local({
  [13:08:52.112]                 doFuture::registerDoFuture()
  [13:08:52.112]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.112]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.112]                   b <- NULL
  [13:08:52.112]                   ...future.env <- environment()
  [13:08:52.112]                   local({
  [13:08:52.112]                     for (name in names(...future.x_jj)) {
  [13:08:52.112]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.112]                         inherits = FALSE)
  [13:08:52.112]                     }
  [13:08:52.112]                   })
  [13:08:52.112]                   tryCatch({
  [13:08:52.112]                     plan_list <- future::plan()
  [13:08:52.112]                     message(capture.output(print(plan_list)))
  [13:08:52.112]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:52.112]                       inherits(plan_list, getOption("future.default", 
  [13:08:52.112]                         "sequential")))
  [13:08:52.112]                     plan_b <- future::plan("list")
  [13:08:52.112]                     str(plan_b)
  [13:08:52.112]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.112]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.112]                         "sequential")))
  [13:08:52.112]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.112]                   }, error = identity)
  [13:08:52.112]                 })
  [13:08:52.112]             })
  [13:08:52.112]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.112]                 version = "1.8")
  [13:08:52.112]         }, condition = local({
  [13:08:52.112]             inherits <- base::inherits
  [13:08:52.112]             invokeRestart <- base::invokeRestart
  [13:08:52.112]             length <- base::length
  [13:08:52.112]             seq.int <- base::seq.int
  [13:08:52.112]             sys.calls <- base::sys.calls
  [13:08:52.112]             `[[` <- base::`[[`
  [13:08:52.112]             `+` <- base::`+`
  [13:08:52.112]             `<<-` <- base::`<<-`
  [13:08:52.112]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.112]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.112]                   3L)]
  [13:08:52.112]             }
  [13:08:52.112]             function(cond) {
  [13:08:52.112]                 if (inherits(cond, "error")) {
  [13:08:52.112]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.112]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.112]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.112]                   signalCondition(cond)
  [13:08:52.112]                 }
  [13:08:52.112]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.112]                 ))) {
  [13:08:52.112]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.112]                     1L]] <<- list(condition = cond)
  [13:08:52.112]                   if (inherits(cond, "message")) {
  [13:08:52.112]                     invokeRestart("muffleMessage")
  [13:08:52.112]                   }
  [13:08:52.112]                   else if (inherits(cond, "warning")) {
  [13:08:52.112]                     invokeRestart("muffleWarning")
  [13:08:52.112]                   }
  [13:08:52.112]                 }
  [13:08:52.112]             }
  [13:08:52.112]         }))
  [13:08:52.112]     }, error = function(ex) {
  [13:08:52.112]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.112]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.112]             class = "FutureResult")
  [13:08:52.112]     }, finally = {
  [13:08:52.112]         {
  [13:08:52.112]             NULL
  [13:08:52.112]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.112]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.112]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:52.112]                 label = NULL, ...) 
  [13:08:52.112]             {
  [13:08:52.112]                 if (substitute) 
  [13:08:52.112]                   expr <- substitute(expr)
  [13:08:52.112]                 local <- as.logical(local)
  [13:08:52.112]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:52.112]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.112]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:52.112]                   label = label, ...)
  [13:08:52.112]                 if (!future$lazy) 
  [13:08:52.112]                   future <- run(future)
  [13:08:52.112]                 invisible(future)
  [13:08:52.112]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.112]         }
  [13:08:52.112]         options(...future.oldOptions)
  [13:08:52.112]     })
  [13:08:52.112]     if (is.na(TRUE)) {
  [13:08:52.112]     }
  [13:08:52.112]     else {
  [13:08:52.112]         sink(type = "output", split = FALSE)
  [13:08:52.112]         if (TRUE) {
  [13:08:52.112]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.112]         }
  [13:08:52.112]         else {
  [13:08:52.112]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.112]         }
  [13:08:52.112]         close(...future.stdout)
  [13:08:52.112]         ...future.stdout <- NULL
  [13:08:52.112]     }
  [13:08:52.112]     ...future.result$conditions <- ...future.conditions
  [13:08:52.112]     ...future.result
  [13:08:52.112] }
  [13:08:52.117] plan(): Setting new future strategy stack:
  [13:08:52.118] List of future strategies:
  [13:08:52.118] 1. sequential:
  [13:08:52.118]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.118]    - tweaked: FALSE
  [13:08:52.118]    - call: NULL
  [13:08:52.119] plan(): nbrOfWorkers() = 1
  [13:08:52.135] plan(): Setting new future strategy stack:
  [13:08:52.135] List of future strategies:
  [13:08:52.135] 1. sequential:
  [13:08:52.135]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.135]    - tweaked: FALSE
  [13:08:52.135]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.136] plan(): nbrOfWorkers() = 1
  [13:08:52.137] SequentialFuture started (and completed)
  [13:08:52.137] Chunk #1 of 1 ... DONE
  [13:08:52.138] Launching 1 futures (chunks) ... DONE
  [13:08:52.138] - resolving futures
  [13:08:52.138] resolve() on list ...
  [13:08:52.139]  recursive: 0
  [13:08:52.139]  length: 1
  [13:08:52.139] 
  [13:08:52.140]  length: 0 (resolved future 1)
  [13:08:52.140] resolve() on list ... DONE
  [13:08:52.141] - relaying conditions of futures
  [13:08:52.141] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:52.142] - collecting values of futures
  [13:08:52.142] - accumulating results
  [13:08:52.144] - processing errors (handler = 'stop')
  [13:08:52.144] - extracting results
  [13:08:52.144] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:08:52.166] - collecting values of futures
  [13:08:52.166] - accumulating results
  [13:08:52.167] - processing errors (handler = 'stop')
  [13:08:52.167] - extracting results
  [13:08:52.168] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [13:08:52.169] plan(): Setting new future strategy stack:
  [13:08:52.169] List of future strategies:
  [13:08:52.169] 1. sequential:
  [13:08:52.169]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.169]    - tweaked: FALSE
  [13:08:52.169]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.169] 2. multicore:
  [13:08:52.169]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:08:52.169]    - tweaked: FALSE
  [13:08:52.169]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.171] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:08:52.171] doFuture() ...
  [13:08:52.173] - dummy globals (as locals): [1] 'a'
  [13:08:52.173] - R expression:
  [13:08:52.174] {
  [13:08:52.174]     doFuture::registerDoFuture()
  [13:08:52.174]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.174]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.174]         a <- NULL
  [13:08:52.174]         ...future.env <- environment()
  [13:08:52.174]         local({
  [13:08:52.174]             for (name in names(...future.x_jj)) {
  [13:08:52.174]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.174]                   inherits = FALSE)
  [13:08:52.174]             }
  [13:08:52.174]         })
  [13:08:52.174]         tryCatch({
  [13:08:52.174]             plan_list <- future::plan()
  [13:08:52.174]             stopifnot(inherits(plan_list, strategy2))
  [13:08:52.174]             plan_a <- future::plan("list")
  [13:08:52.174]             str(plan_a)
  [13:08:52.174]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.174]             message("foreach() - level 2 ...")
  [13:08:52.174]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.174]                 {
  [13:08:52.174]                   plan_list <- future::plan()
  [13:08:52.174]                   message(capture.output(print(plan_list)))
  [13:08:52.174]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.174]                     getOption("future.default", "sequential")))
  [13:08:52.174]                   plan_b <- future::plan("list")
  [13:08:52.174]                   str(plan_b)
  [13:08:52.174]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.174]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.174]                       "sequential")))
  [13:08:52.174]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.174]                 }
  [13:08:52.174]             message("foreach() - level 2 ... DONE")
  [13:08:52.174]             y
  [13:08:52.174]         }, error = identity)
  [13:08:52.174]     })
  [13:08:52.174] }
  [13:08:52.175] - identifying globals and packages ...
  [13:08:52.175] getGlobalsAndPackages() ...
  [13:08:52.175] Searching for globals...
  [13:08:52.207] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:08:52.207] Searching for globals ... DONE
  [13:08:52.207] Resolving globals: FALSE
  [13:08:52.210] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:08:52.210] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.210] - packages: [2] 'utils', 'foreach'
  [13:08:52.211] getGlobalsAndPackages() ... DONE
  [13:08:52.211] List of 3
  [13:08:52.211]  $ ...future.x_ii: NULL
  [13:08:52.211]  $ strategy2     : chr "multicore"
  [13:08:52.211]  $ bs            : int [1:3] 3 2 1
  [13:08:52.211]  - attr(*, "where")=List of 3
  [13:08:52.211]   ..$ ...future.x_ii:<environment: 0x55c30ffd5db8> 
  [13:08:52.211]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:52.211]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:52.211]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.211]  - attr(*, "resolved")= logi FALSE
  [13:08:52.211]  - attr(*, "total_size")= num 184
  [13:08:52.219]   - R expression:
  [13:08:52.220] {
  [13:08:52.220]     doFuture::registerDoFuture()
  [13:08:52.220]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.220]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.220]         a <- NULL
  [13:08:52.220]         ...future.env <- environment()
  [13:08:52.220]         local({
  [13:08:52.220]             for (name in names(...future.x_jj)) {
  [13:08:52.220]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.220]                   inherits = FALSE)
  [13:08:52.220]             }
  [13:08:52.220]         })
  [13:08:52.220]         tryCatch({
  [13:08:52.220]             plan_list <- future::plan()
  [13:08:52.220]             stopifnot(inherits(plan_list, strategy2))
  [13:08:52.220]             plan_a <- future::plan("list")
  [13:08:52.220]             str(plan_a)
  [13:08:52.220]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.220]             message("foreach() - level 2 ...")
  [13:08:52.220]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.220]                 {
  [13:08:52.220]                   plan_list <- future::plan()
  [13:08:52.220]                   message(capture.output(print(plan_list)))
  [13:08:52.220]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.220]                     getOption("future.default", "sequential")))
  [13:08:52.220]                   plan_b <- future::plan("list")
  [13:08:52.220]                   str(plan_b)
  [13:08:52.220]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.220]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.220]                       "sequential")))
  [13:08:52.220]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.220]                 }
  [13:08:52.220]             message("foreach() - level 2 ... DONE")
  [13:08:52.220]             y
  [13:08:52.220]         }, error = identity)
  [13:08:52.220]     })
  [13:08:52.220] }
  [13:08:52.221]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.221] List of 3
  [13:08:52.221]  $ ...future.x_ii: NULL
  [13:08:52.221]  $ strategy2     : chr "multicore"
  [13:08:52.221]  $ bs            : int [1:3] 3 2 1
  [13:08:52.221]  - attr(*, "where")=List of 3
  [13:08:52.221]   ..$ ...future.x_ii:<environment: 0x55c30ffd5db8> 
  [13:08:52.221]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:52.221]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:52.221]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.221]  - attr(*, "resolved")= logi FALSE
  [13:08:52.221]  - attr(*, "total_size")= num 184
  [13:08:52.230]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:08:52.230] - identifying globals and packages ... DONE
  [13:08:52.230] Number of chunks: 1
  [13:08:52.230] Number of futures (= number of chunks): 1
  [13:08:52.231] Launching 1 futures (chunks) ...
  [13:08:52.231] Chunk #1 of 1 ...
  [13:08:52.231]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:52.231] getGlobalsAndPackages() ...
  [13:08:52.232] Searching for globals...
  [13:08:52.232] 
  [13:08:52.233] Searching for globals ... DONE
  [13:08:52.233] - globals: [0] <none>
  [13:08:52.233] getGlobalsAndPackages() ... DONE
  [13:08:52.234] 
  [13:08:52.234] 
  [13:08:52.234]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:52.235] getGlobalsAndPackages() ...
  [13:08:52.235] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.236] Resolving globals: FALSE
  [13:08:52.237] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:08:52.237] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.237] 
  [13:08:52.238] getGlobalsAndPackages() ... DONE
  [13:08:52.239] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:08:52.239] Packages needed by future strategies (n = 1): 'future'
  [13:08:52.244] {
  [13:08:52.244]     {
  [13:08:52.244]         ...future.startTime <- Sys.time()
  [13:08:52.244]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.244]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.244]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.244]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.244]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.244]         {
  [13:08:52.244]             {
  [13:08:52.244]                 {
  [13:08:52.244]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:52.244]                   version <- if (has_future) 
  [13:08:52.244]                     packageVersion("future")
  [13:08:52.244]                   else NULL
  [13:08:52.244]                   if (!has_future || version < "1.8.0") {
  [13:08:52.244]                     info <- c(r_version = gsub("R version ", 
  [13:08:52.244]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.244]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.244]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.244]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.244]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:52.244]                     info <- paste(info, collapse = "; ")
  [13:08:52.244]                     if (!has_future) {
  [13:08:52.244]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.244]                         info)
  [13:08:52.244]                     }
  [13:08:52.244]                     else {
  [13:08:52.244]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.244]                         info, version)
  [13:08:52.244]                     }
  [13:08:52.244]                     stop(msg)
  [13:08:52.244]                   }
  [13:08:52.244]                 }
  [13:08:52.244]                 local({
  [13:08:52.244]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:08:52.244]                   "future")) {
  [13:08:52.244]                     loadNamespace(pkg)
  [13:08:52.244]                     library(pkg, character.only = TRUE)
  [13:08:52.244]                   }
  [13:08:52.244]                 })
  [13:08:52.244]             }
  [13:08:52.244]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.244]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.244]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.244]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.244]             {
  [13:08:52.244]                 if (substitute) 
  [13:08:52.244]                   expr <- substitute(expr)
  [13:08:52.244]                 if (is.function(workers)) 
  [13:08:52.244]                   workers <- workers()
  [13:08:52.244]                 workers <- as.integer(workers)
  [13:08:52.244]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.244]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.244]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.244]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.244]                     local = TRUE, label = label, ...))
  [13:08:52.244]                 }
  [13:08:52.244]                 oopts <- options(mc.cores = workers)
  [13:08:52.244]                 on.exit(options(oopts))
  [13:08:52.244]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.244]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.244]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.244]                   label = label, ...)
  [13:08:52.244]                 if (!future$lazy) 
  [13:08:52.244]                   future <- run(future)
  [13:08:52.244]                 invisible(future)
  [13:08:52.244]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.244]         }
  [13:08:52.244]     }
  [13:08:52.244]     if (is.na(TRUE)) {
  [13:08:52.244]     }
  [13:08:52.244]     else {
  [13:08:52.244]         if (TRUE) {
  [13:08:52.244]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.244]         }
  [13:08:52.244]         else {
  [13:08:52.244]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.244]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.244]         }
  [13:08:52.244]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.244]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.244]             sink(type = "output", split = FALSE)
  [13:08:52.244]             close(...future.stdout)
  [13:08:52.244]         }, add = TRUE)
  [13:08:52.244]     }
  [13:08:52.244]     ...future.frame <- sys.nframe()
  [13:08:52.244]     ...future.conditions <- list()
  [13:08:52.244]     ...future.result <- tryCatch({
  [13:08:52.244]         withCallingHandlers({
  [13:08:52.244]             ...future.value <- local({
  [13:08:52.244]                 doFuture::registerDoFuture()
  [13:08:52.244]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.244]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.244]                   a <- NULL
  [13:08:52.244]                   ...future.env <- environment()
  [13:08:52.244]                   local({
  [13:08:52.244]                     for (name in names(...future.x_jj)) {
  [13:08:52.244]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.244]                         inherits = FALSE)
  [13:08:52.244]                     }
  [13:08:52.244]                   })
  [13:08:52.244]                   tryCatch({
  [13:08:52.244]                     plan_list <- future::plan()
  [13:08:52.244]                     stopifnot(inherits(plan_list, strategy2))
  [13:08:52.244]                     plan_a <- future::plan("list")
  [13:08:52.244]                     str(plan_a)
  [13:08:52.244]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.244]                     message("foreach() - level 2 ...")
  [13:08:52.244]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.244]                       {
  [13:08:52.244]                         plan_list <- future::plan()
  [13:08:52.244]                         message(capture.output(print(plan_list)))
  [13:08:52.244]                         stopifnot(inherits(plan_list, "future"), 
  [13:08:52.244]                           inherits(plan_list, getOption("future.default", 
  [13:08:52.244]                             "sequential")))
  [13:08:52.244]                         plan_b <- future::plan("list")
  [13:08:52.244]                         str(plan_b)
  [13:08:52.244]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.244]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.244]                             "sequential")))
  [13:08:52.244]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.244]                       }
  [13:08:52.244]                     message("foreach() - level 2 ... DONE")
  [13:08:52.244]                     y
  [13:08:52.244]                   }, error = identity)
  [13:08:52.244]                 })
  [13:08:52.244]             })
  [13:08:52.244]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.244]                 version = "1.8")
  [13:08:52.244]         }, condition = local({
  [13:08:52.244]             inherits <- base::inherits
  [13:08:52.244]             invokeRestart <- base::invokeRestart
  [13:08:52.244]             length <- base::length
  [13:08:52.244]             seq.int <- base::seq.int
  [13:08:52.244]             sys.calls <- base::sys.calls
  [13:08:52.244]             `[[` <- base::`[[`
  [13:08:52.244]             `+` <- base::`+`
  [13:08:52.244]             `<<-` <- base::`<<-`
  [13:08:52.244]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.244]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.244]                   3L)]
  [13:08:52.244]             }
  [13:08:52.244]             function(cond) {
  [13:08:52.244]                 if (inherits(cond, "error")) {
  [13:08:52.244]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.244]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.244]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.244]                   signalCondition(cond)
  [13:08:52.244]                 }
  [13:08:52.244]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.244]                 ))) {
  [13:08:52.244]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.244]                     1L]] <<- list(condition = cond)
  [13:08:52.244]                   if (inherits(cond, "message")) {
  [13:08:52.244]                     invokeRestart("muffleMessage")
  [13:08:52.244]                   }
  [13:08:52.244]                   else if (inherits(cond, "warning")) {
  [13:08:52.244]                     invokeRestart("muffleWarning")
  [13:08:52.244]                   }
  [13:08:52.244]                 }
  [13:08:52.244]             }
  [13:08:52.244]         }))
  [13:08:52.244]     }, error = function(ex) {
  [13:08:52.244]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.244]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.244]             class = "FutureResult")
  [13:08:52.244]     }, finally = {
  [13:08:52.244]         {
  [13:08:52.244]             NULL
  [13:08:52.244]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:08:52.244]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.244]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:52.244]                 label = NULL, ...) 
  [13:08:52.244]             {
  [13:08:52.244]                 if (substitute) 
  [13:08:52.244]                   expr <- substitute(expr)
  [13:08:52.244]                 local <- as.logical(local)
  [13:08:52.244]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:52.244]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.244]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:52.244]                   label = label, ...)
  [13:08:52.244]                 if (!future$lazy) 
  [13:08:52.244]                   future <- run(future)
  [13:08:52.244]                 invisible(future)
  [13:08:52.244]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:08:52.244]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.244]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.244]             {
  [13:08:52.244]                 if (substitute) 
  [13:08:52.244]                   expr <- substitute(expr)
  [13:08:52.244]                 if (is.function(workers)) 
  [13:08:52.244]                   workers <- workers()
  [13:08:52.244]                 workers <- as.integer(workers)
  [13:08:52.244]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.244]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.244]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.244]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.244]                     local = TRUE, label = label, ...))
  [13:08:52.244]                 }
  [13:08:52.244]                 oopts <- options(mc.cores = workers)
  [13:08:52.244]                 on.exit(options(oopts))
  [13:08:52.244]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.244]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.244]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.244]                   label = label, ...)
  [13:08:52.244]                 if (!future$lazy) 
  [13:08:52.244]                   future <- run(future)
  [13:08:52.244]                 invisible(future)
  [13:08:52.244]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.244]         }
  [13:08:52.244]         options(...future.oldOptions)
  [13:08:52.244]     })
  [13:08:52.244]     if (is.na(TRUE)) {
  [13:08:52.244]     }
  [13:08:52.244]     else {
  [13:08:52.244]         sink(type = "output", split = FALSE)
  [13:08:52.244]         if (TRUE) {
  [13:08:52.244]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.244]         }
  [13:08:52.244]         else {
  [13:08:52.244]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.244]         }
  [13:08:52.244]         close(...future.stdout)
  [13:08:52.244]         ...future.stdout <- NULL
  [13:08:52.244]     }
  [13:08:52.244]     ...future.result$conditions <- ...future.conditions
  [13:08:52.244]     ...future.result
  [13:08:52.244] }
  [13:08:52.254] plan(): Setting new future strategy stack:
  [13:08:52.254] List of future strategies:
  [13:08:52.254] 1. multicore:
  [13:08:52.254]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:08:52.254]    - tweaked: FALSE
  [13:08:52.254]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.293] plan(): nbrOfWorkers() = 2
  [13:08:52.689] plan(): Setting new future strategy stack:
  [13:08:52.690] List of future strategies:
  [13:08:52.690] 1. sequential:
  [13:08:52.690]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.690]    - tweaked: FALSE
  [13:08:52.690]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.690] 2. multicore:
  [13:08:52.690]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:08:52.690]    - tweaked: FALSE
  [13:08:52.690]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.691] plan(): nbrOfWorkers() = 1
  [13:08:52.692] SequentialFuture started (and completed)
  [13:08:52.693] Chunk #1 of 1 ... DONE
  [13:08:52.693] Launching 1 futures (chunks) ... DONE
  [13:08:52.693] - resolving futures
  [13:08:52.694] resolve() on list ...
  [13:08:52.694]  recursive: 0
  [13:08:52.695]  length: 1
  [13:08:52.695] 
  [13:08:52.695]  length: 0 (resolved future 1)
  [13:08:52.696] resolve() on list ... DONE
  [13:08:52.696] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.697] Future state: 'finished'
  foreach() - level 2 ...
  [13:08:52.298] doFuture() ...
  [13:08:52.300] - dummy globals (as locals): [1] 'b'
  [13:08:52.301] - R expression:
  [13:08:52.301] {
  [13:08:52.301]     doFuture::registerDoFuture()
  [13:08:52.301]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.301]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.301]         b <- NULL
  [13:08:52.301]         ...future.env <- environment()
  [13:08:52.301]         local({
  [13:08:52.301]             for (name in names(...future.x_jj)) {
  [13:08:52.301]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.301]                   inherits = FALSE)
  [13:08:52.301]             }
  [13:08:52.301]         })
  [13:08:52.301]         tryCatch({
  [13:08:52.301]             plan_list <- future::plan()
  [13:08:52.301]             message(capture.output(print(plan_list)))
  [13:08:52.301]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.301]                 getOption("future.default", "sequential")))
  [13:08:52.301]             plan_b <- future::plan("list")
  [13:08:52.301]             str(plan_b)
  [13:08:52.301]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.301]                 getOption("future.default", "sequential")))
  [13:08:52.301]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.301]         }, error = identity)
  [13:08:52.301]     })
  [13:08:52.301] }
  [13:08:52.303] - identifying globals and packages ...
  [13:08:52.303] getGlobalsAndPackages() ...
  [13:08:52.304] Searching for globals...
  [13:08:52.328] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:08:52.329] Searching for globals ... DONE
  [13:08:52.329] Resolving globals: FALSE
  [13:08:52.332] The total size of the 3 globals is 74.09 KiB (75872 bytes)
  [13:08:52.333] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.333] - packages: [1] 'utils'
  [13:08:52.334] getGlobalsAndPackages() ... DONE
  [13:08:52.334] List of 3
  [13:08:52.334]  $ ...future.x_ii: NULL
  [13:08:52.334]  $ a             : int 1
  [13:08:52.334]  $ plan_a        :List of 1
  [13:08:52.334]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.334]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.334]     earlySignal = FALSE, label = NULL, ...)  
  [13:08:52.334]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:08:52.334]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.334]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.334]  - attr(*, "where")=List of 3
  [13:08:52.334]   ..$ ...future.x_ii:<environment: 0x55c30e4c0a68> 
  [13:08:52.334]   ..$ a             :<environment: 0x55c30ebd94d8> 
  [13:08:52.334]   ..$ plan_a        :<environment: 0x55c30ebd94d8> 
  [13:08:52.334]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.334]  - attr(*, "resolved")= logi FALSE
  [13:08:52.334]  - attr(*, "total_size")= num 75872
  [13:08:52.347]   - R expression:
  [13:08:52.348] {
  [13:08:52.348]     doFuture::registerDoFuture()
  [13:08:52.348]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.348]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.348]         b <- NULL
  [13:08:52.348]         ...future.env <- environment()
  [13:08:52.348]         local({
  [13:08:52.348]             for (name in names(...future.x_jj)) {
  [13:08:52.348]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.348]                   inherits = FALSE)
  [13:08:52.348]             }
  [13:08:52.348]         })
  [13:08:52.348]         tryCatch({
  [13:08:52.348]             plan_list <- future::plan()
  [13:08:52.348]             message(capture.output(print(plan_list)))
  [13:08:52.348]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.348]                 getOption("future.default", "sequential")))
  [13:08:52.348]             plan_b <- future::plan("list")
  [13:08:52.348]             str(plan_b)
  [13:08:52.348]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.348]                 getOption("future.default", "sequential")))
  [13:08:52.348]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.348]         }, error = identity)
  [13:08:52.348]     })
  [13:08:52.348] }
  [13:08:52.352]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.352] List of 3
  [13:08:52.352]  $ ...future.x_ii: NULL
  [13:08:52.352]  $ a             : int 1
  [13:08:52.352]  $ plan_a        :List of 1
  [13:08:52.352]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.352]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.352]     earlySignal = FALSE, label = NULL, ...)  
  [13:08:52.352]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:08:52.352]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.352]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.352]  - attr(*, "where")=List of 3
  [13:08:52.352]   ..$ ...future.x_ii:<environment: 0x55c30e4c0a68> 
  [13:08:52.352]   ..$ a             :<environment: 0x55c30ebd94d8> 
  [13:08:52.352]   ..$ plan_a        :<environment: 0x55c30ebd94d8> 
  [13:08:52.352]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.352]  - attr(*, "resolved")= logi FALSE
  [13:08:52.352]  - attr(*, "total_size")= num 75872
  [13:08:52.365]   - packages: [2] 'doFuture', 'utils'
  [13:08:52.365] - identifying globals and packages ... DONE
  [13:08:52.369] Number of chunks: 2
  [13:08:52.369] Number of futures (= number of chunks): 2
  [13:08:52.370] Launching 2 futures (chunks) ...
  [13:08:52.370] Chunk #1 of 2 ...
  [13:08:52.370]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:52.371] getGlobalsAndPackages() ...
  [13:08:52.371] Searching for globals...
  [13:08:52.372] 
  [13:08:52.372] Searching for globals ... DONE
  [13:08:52.373] - globals: [0] <none>
  [13:08:52.373] getGlobalsAndPackages() ... DONE
  [13:08:52.373] 
  [13:08:52.374] 
  [13:08:52.374]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:52.379] getGlobalsAndPackages() ...
  [13:08:52.380] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.380] Resolving globals: FALSE
  [13:08:52.382] The total size of the 3 globals is 74.15 KiB (75928 bytes)
  [13:08:52.382] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.382] 
  [13:08:52.383] getGlobalsAndPackages() ... DONE
  [13:08:52.385] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:52.386] Packages needed by future strategies (n = 0): <none>
  [13:08:52.390] {
  [13:08:52.390]     {
  [13:08:52.390]         ...future.startTime <- Sys.time()
  [13:08:52.390]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.390]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.390]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.390]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.390]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.390]         {
  [13:08:52.390]             {
  [13:08:52.390]                 {
  [13:08:52.390]                   {
  [13:08:52.390]                     has_future <- requireNamespace("future", 
  [13:08:52.390]                       quietly = TRUE)
  [13:08:52.390]                     version <- if (has_future) 
  [13:08:52.390]                       packageVersion("future")
  [13:08:52.390]                     else NULL
  [13:08:52.390]                     if (!has_future || version < "1.8.0") {
  [13:08:52.390]                       info <- c(r_version = gsub("R version ", 
  [13:08:52.390]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.390]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.390]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.390]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.390]                       info <- sprintf("%s: %s", names(info), 
  [13:08:52.390]                         info)
  [13:08:52.390]                       info <- paste(info, collapse = "; ")
  [13:08:52.390]                       if (!has_future) {
  [13:08:52.390]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.390]                           info)
  [13:08:52.390]                       }
  [13:08:52.390]                       else {
  [13:08:52.390]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.390]                           info, version)
  [13:08:52.390]                       }
  [13:08:52.390]                       stop(msg)
  [13:08:52.390]                     }
  [13:08:52.390]                   }
  [13:08:52.390]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:08:52.390]                   options(mc.cores = 1L)
  [13:08:52.390]                 }
  [13:08:52.390]                 local({
  [13:08:52.390]                   for (pkg in c("doFuture", "utils")) {
  [13:08:52.390]                     loadNamespace(pkg)
  [13:08:52.390]                     library(pkg, character.only = TRUE)
  [13:08:52.390]                   }
  [13:08:52.390]                 })
  [13:08:52.390]             }
  [13:08:52.390]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:52.390]         }
  [13:08:52.390]     }
  [13:08:52.390]     if (is.na(TRUE)) {
  [13:08:52.390]     }
  [13:08:52.390]     else {
  [13:08:52.390]         if (TRUE) {
  [13:08:52.390]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.390]         }
  [13:08:52.390]         else {
  [13:08:52.390]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.390]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.390]         }
  [13:08:52.390]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.390]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.390]             sink(type = "output", split = FALSE)
  [13:08:52.390]             close(...future.stdout)
  [13:08:52.390]         }, add = TRUE)
  [13:08:52.390]     }
  [13:08:52.390]     ...future.frame <- sys.nframe()
  [13:08:52.390]     ...future.conditions <- list()
  [13:08:52.390]     ...future.result <- tryCatch({
  [13:08:52.390]         withCallingHandlers({
  [13:08:52.390]             ...future.value <- local({
  [13:08:52.390]                 doFuture::registerDoFuture()
  [13:08:52.390]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.390]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.390]                   b <- NULL
  [13:08:52.390]                   ...future.env <- environment()
  [13:08:52.390]                   local({
  [13:08:52.390]                     for (name in names(...future.x_jj)) {
  [13:08:52.390]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.390]                         inherits = FALSE)
  [13:08:52.390]                     }
  [13:08:52.390]                   })
  [13:08:52.390]                   tryCatch({
  [13:08:52.390]                     plan_list <- future::plan()
  [13:08:52.390]                     message(capture.output(print(plan_list)))
  [13:08:52.390]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:52.390]                       inherits(plan_list, getOption("future.default", 
  [13:08:52.390]                         "sequential")))
  [13:08:52.390]                     plan_b <- future::plan("list")
  [13:08:52.390]                     str(plan_b)
  [13:08:52.390]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.390]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.390]                         "sequential")))
  [13:08:52.390]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.390]                   }, error = identity)
  [13:08:52.390]                 })
  [13:08:52.390]             })
  [13:08:52.390]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.390]                 version = "1.8")
  [13:08:52.390]         }, condition = local({
  [13:08:52.390]             inherits <- base::inherits
  [13:08:52.390]             invokeRestart <- base::invokeRestart
  [13:08:52.390]             length <- base::length
  [13:08:52.390]             seq.int <- base::seq.int
  [13:08:52.390]             sys.calls <- base::sys.calls
  [13:08:52.390]             `[[` <- base::`[[`
  [13:08:52.390]             `+` <- base::`+`
  [13:08:52.390]             `<<-` <- base::`<<-`
  [13:08:52.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.390]                   3L)]
  [13:08:52.390]             }
  [13:08:52.390]             function(cond) {
  [13:08:52.390]                 if (inherits(cond, "error")) {
  [13:08:52.390]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.390]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.390]                   signalCondition(cond)
  [13:08:52.390]                 }
  [13:08:52.390]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.390]                 ))) {
  [13:08:52.390]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.390]                     1L]] <<- list(condition = cond)
  [13:08:52.390]                   if (inherits(cond, "message")) {
  [13:08:52.390]                     invokeRestart("muffleMessage")
  [13:08:52.390]                   }
  [13:08:52.390]                   else if (inherits(cond, "warning")) {
  [13:08:52.390]                     invokeRestart("muffleWarning")
  [13:08:52.390]                   }
  [13:08:52.390]                 }
  [13:08:52.390]             }
  [13:08:52.390]         }))
  [13:08:52.390]     }, error = function(ex) {
  [13:08:52.390]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.390]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.390]             class = "FutureResult")
  [13:08:52.390]     }, finally = {
  [13:08:52.390]         {
  [13:08:52.390]             {
  [13:08:52.390]                 options(mc.cores = ...future.mc.cores.old)
  [13:08:52.390]             }
  [13:08:52.390]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.390]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.390]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.390]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.390]             {
  [13:08:52.390]                 if (substitute) 
  [13:08:52.390]                   expr <- substitute(expr)
  [13:08:52.390]                 if (is.function(workers)) 
  [13:08:52.390]                   workers <- workers()
  [13:08:52.390]                 workers <- as.integer(workers)
  [13:08:52.390]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.390]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.390]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.390]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.390]                     local = TRUE, label = label, ...))
  [13:08:52.390]                 }
  [13:08:52.390]                 oopts <- options(mc.cores = workers)
  [13:08:52.390]                 on.exit(options(oopts))
  [13:08:52.390]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.390]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.390]                   label = label, ...)
  [13:08:52.390]                 if (!future$lazy) 
  [13:08:52.390]                   future <- run(future)
  [13:08:52.390]                 invisible(future)
  [13:08:52.390]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.390]         }
  [13:08:52.390]         options(...future.oldOptions)
  [13:08:52.390]     })
  [13:08:52.390]     if (is.na(TRUE)) {
  [13:08:52.390]     }
  [13:08:52.390]     else {
  [13:08:52.390]         sink(type = "output", split = FALSE)
  [13:08:52.390]         if (TRUE) {
  [13:08:52.390]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.390]         }
  [13:08:52.390]         else {
  [13:08:52.390]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.390]         }
  [13:08:52.390]         close(...future.stdout)
  [13:08:52.390]         ...future.stdout <- NULL
  [13:08:52.390]     }
  [13:08:52.390]     ...future.result$conditions <- ...future.conditions
  [13:08:52.390]     ...future.result
  [13:08:52.390] }
  [13:08:52.394] requestCore(): workers = 2
  [13:08:52.399] MulticoreFuture started
  [13:08:52.399] Chunk #1 of 2 ... DONE
  [13:08:52.400] Chunk #2 of 2 ...
  [13:08:52.400]  - Finding globals in 'args_list' chunk #2 ...
  [13:08:52.401] getGlobalsAndPackages() ...
  [13:08:52.401] Searching for globals...
  [13:08:52.403] 
  [13:08:52.403] Searching for globals ... DONE
  [13:08:52.403] - globals: [0] <none>
  [13:08:52.404] getGlobalsAndPackages() ... DONE
  [13:08:52.404] 
  [13:08:52.405] 
  [13:08:52.405]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:08:52.407] getGlobalsAndPackages() ...
  [13:08:52.407] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.408] Resolving globals: FALSE
  [13:08:52.410] The total size of the 3 globals is 74.20 KiB (75984 bytes)
  [13:08:52.410] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.411] 
  [13:08:52.411] getGlobalsAndPackages() ... DONE
  [13:08:52.413] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:52.414] Packages needed by future strategies (n = 0): <none>
  [13:08:52.419] {
  [13:08:52.419]     {
  [13:08:52.419]         ...future.startTime <- Sys.time()
  [13:08:52.419]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.419]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.419]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.419]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.419]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.419]         {
  [13:08:52.419]             {
  [13:08:52.419]                 {
  [13:08:52.419]                   {
  [13:08:52.419]                     has_future <- requireNamespace("future", 
  [13:08:52.419]                       quietly = TRUE)
  [13:08:52.419]                     version <- if (has_future) 
  [13:08:52.419]                       packageVersion("future")
  [13:08:52.419]                     else NULL
  [13:08:52.419]                     if (!has_future || version < "1.8.0") {
  [13:08:52.419]                       info <- c(r_version = gsub("R version ", 
  [13:08:52.419]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.419]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.419]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.419]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.419]                       info <- sprintf("%s: %s", names(info), 
  [13:08:52.419]                         info)
  [13:08:52.419]                       info <- paste(info, collapse = "; ")
  [13:08:52.419]                       if (!has_future) {
  [13:08:52.419]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.419]                           info)
  [13:08:52.419]                       }
  [13:08:52.419]                       else {
  [13:08:52.419]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.419]                           info, version)
  [13:08:52.419]                       }
  [13:08:52.419]                       stop(msg)
  [13:08:52.419]                     }
  [13:08:52.419]                   }
  [13:08:52.419]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:08:52.419]                   options(mc.cores = 1L)
  [13:08:52.419]                 }
  [13:08:52.419]                 local({
  [13:08:52.419]                   for (pkg in c("doFuture", "utils")) {
  [13:08:52.419]                     loadNamespace(pkg)
  [13:08:52.419]                     library(pkg, character.only = TRUE)
  [13:08:52.419]                   }
  [13:08:52.419]                 })
  [13:08:52.419]             }
  [13:08:52.419]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:52.419]         }
  [13:08:52.419]     }
  [13:08:52.419]     if (is.na(TRUE)) {
  [13:08:52.419]     }
  [13:08:52.419]     else {
  [13:08:52.419]         if (TRUE) {
  [13:08:52.419]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.419]         }
  [13:08:52.419]         else {
  [13:08:52.419]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.419]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.419]         }
  [13:08:52.419]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.419]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.419]             sink(type = "output", split = FALSE)
  [13:08:52.419]             close(...future.stdout)
  [13:08:52.419]         }, add = TRUE)
  [13:08:52.419]     }
  [13:08:52.419]     ...future.frame <- sys.nframe()
  [13:08:52.419]     ...future.conditions <- list()
  [13:08:52.419]     ...future.result <- tryCatch({
  [13:08:52.419]         withCallingHandlers({
  [13:08:52.419]             ...future.value <- local({
  [13:08:52.419]                 doFuture::registerDoFuture()
  [13:08:52.419]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.419]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.419]                   b <- NULL
  [13:08:52.419]                   ...future.env <- environment()
  [13:08:52.419]                   local({
  [13:08:52.419]                     for (name in names(...future.x_jj)) {
  [13:08:52.419]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.419]                         inherits = FALSE)
  [13:08:52.419]                     }
  [13:08:52.419]                   })
  [13:08:52.419]                   tryCatch({
  [13:08:52.419]                     plan_list <- future::plan()
  [13:08:52.419]                     message(capture.output(print(plan_list)))
  [13:08:52.419]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:52.419]                       inherits(plan_list, getOption("future.default", 
  [13:08:52.419]                         "sequential")))
  [13:08:52.419]                     plan_b <- future::plan("list")
  [13:08:52.419]                     str(plan_b)
  [13:08:52.419]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.419]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.419]                         "sequential")))
  [13:08:52.419]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.419]                   }, error = identity)
  [13:08:52.419]                 })
  [13:08:52.419]             })
  [13:08:52.419]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.419]                 version = "1.8")
  [13:08:52.419]         }, condition = local({
  [13:08:52.419]             inherits <- base::inherits
  [13:08:52.419]             invokeRestart <- base::invokeRestart
  [13:08:52.419]             length <- base::length
  [13:08:52.419]             seq.int <- base::seq.int
  [13:08:52.419]             sys.calls <- base::sys.calls
  [13:08:52.419]             `[[` <- base::`[[`
  [13:08:52.419]             `+` <- base::`+`
  [13:08:52.419]             `<<-` <- base::`<<-`
  [13:08:52.419]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.419]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.419]                   3L)]
  [13:08:52.419]             }
  [13:08:52.419]             function(cond) {
  [13:08:52.419]                 if (inherits(cond, "error")) {
  [13:08:52.419]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.419]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.419]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.419]                   signalCondition(cond)
  [13:08:52.419]                 }
  [13:08:52.419]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.419]                 ))) {
  [13:08:52.419]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.419]                     1L]] <<- list(condition = cond)
  [13:08:52.419]                   if (inherits(cond, "message")) {
  [13:08:52.419]                     invokeRestart("muffleMessage")
  [13:08:52.419]                   }
  [13:08:52.419]                   else if (inherits(cond, "warning")) {
  [13:08:52.419]                     invokeRestart("muffleWarning")
  [13:08:52.419]                   }
  [13:08:52.419]                 }
  [13:08:52.419]             }
  [13:08:52.419]         }))
  [13:08:52.419]     }, error = function(ex) {
  [13:08:52.419]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.419]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.419]             class = "FutureResult")
  [13:08:52.419]     }, finally = {
  [13:08:52.419]         {
  [13:08:52.419]             {
  [13:08:52.419]                 options(mc.cores = ...future.mc.cores.old)
  [13:08:52.419]             }
  [13:08:52.419]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.419]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.419]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.419]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.419]             {
  [13:08:52.419]                 if (substitute) 
  [13:08:52.419]                   expr <- substitute(expr)
  [13:08:52.419]                 if (is.function(workers)) 
  [13:08:52.419]                   workers <- workers()
  [13:08:52.419]                 workers <- as.integer(workers)
  [13:08:52.419]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.419]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.419]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.419]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.419]                     local = TRUE, label = label, ...))
  [13:08:52.419]                 }
  [13:08:52.419]                 oopts <- options(mc.cores = workers)
  [13:08:52.419]                 on.exit(options(oopts))
  [13:08:52.419]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.419]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.419]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.419]                   label = label, ...)
  [13:08:52.419]                 if (!future$lazy) 
  [13:08:52.419]                   future <- run(future)
  [13:08:52.419]                 invisible(future)
  [13:08:52.419]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.419]         }
  [13:08:52.419]         options(...future.oldOptions)
  [13:08:52.419]     })
  [13:08:52.419]     if (is.na(TRUE)) {
  [13:08:52.419]     }
  [13:08:52.419]     else {
  [13:08:52.419]         sink(type = "output", split = FALSE)
  [13:08:52.419]         if (TRUE) {
  [13:08:52.419]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.419]         }
  [13:08:52.419]         else {
  [13:08:52.419]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.419]         }
  [13:08:52.419]         close(...future.stdout)
  [13:08:52.419]         ...future.stdout <- NULL
  [13:08:52.419]     }
  [13:08:52.419]     ...future.result$conditions <- ...future.conditions
  [13:08:52.419]     ...future.result
  [13:08:52.419] }
  [13:08:52.424] requestCore(): workers = 2
  [13:08:52.434] MulticoreFuture started
  [13:08:52.445] Chunk #2 of 2 ... DONE
  [13:08:52.445] Launching 2 futures (chunks) ... DONE
  [13:08:52.446] - resolving futures
  [13:08:52.463] resolve() on list ...
  [13:08:52.463]  recursive: 0
  [13:08:52.464]  length: 2
  [13:08:52.464] 
  [13:08:52.468]  length: 1 (resolved future 1)
  [13:08:52.485]  length: 0 (resolved future 2)
  [13:08:52.485] resolve() on list ... DONE
  [13:08:52.486] - relaying conditions of futures
  [13:08:52.491] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:52.493] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:52.494] - collecting values of futures
  [13:08:52.495] - accumulating results
  [13:08:52.496] - processing errors (handler = 'stop')
  [13:08:52.497] - extracting results
  [13:08:52.497] doFuture() ... DONE
  foreach() - level 2 ... DONE
  foreach() - level 2 ...
  [13:08:52.504] doFuture() ...
  [13:08:52.506] - dummy globals (as locals): [1] 'b'
  [13:08:52.510] - R expression:
  [13:08:52.511] {
  [13:08:52.511]     doFuture::registerDoFuture()
  [13:08:52.511]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.511]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.511]         b <- NULL
  [13:08:52.511]         ...future.env <- environment()
  [13:08:52.511]         local({
  [13:08:52.511]             for (name in names(...future.x_jj)) {
  [13:08:52.511]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.511]                   inherits = FALSE)
  [13:08:52.511]             }
  [13:08:52.511]         })
  [13:08:52.511]         tryCatch({
  [13:08:52.511]             plan_list <- future::plan()
  [13:08:52.511]             message(capture.output(print(plan_list)))
  [13:08:52.511]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.511]                 getOption("future.default", "sequential")))
  [13:08:52.511]             plan_b <- future::plan("list")
  [13:08:52.511]             str(plan_b)
  [13:08:52.511]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.511]                 getOption("future.default", "sequential")))
  [13:08:52.511]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.511]         }, error = identity)
  [13:08:52.511]     })
  [13:08:52.511] }
  [13:08:52.512] - identifying globals and packages ...
  [13:08:52.513] getGlobalsAndPackages() ...
  [13:08:52.513] Searching for globals...
  [13:08:52.535] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:08:52.536] Searching for globals ... DONE
  [13:08:52.536] Resolving globals: FALSE
  [13:08:52.539] The total size of the 3 globals is 74.09 KiB (75872 bytes)
  [13:08:52.539] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.540] - packages: [1] 'utils'
  [13:08:52.540] getGlobalsAndPackages() ... DONE
  [13:08:52.541] List of 3
  [13:08:52.541]  $ ...future.x_ii: NULL
  [13:08:52.541]  $ a             : int 2
  [13:08:52.541]  $ plan_a        :List of 1
  [13:08:52.541]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.541]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.541]     earlySignal = FALSE, label = NULL, ...)  
  [13:08:52.541]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:08:52.541]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.541]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.541]  - attr(*, "where")=List of 3
  [13:08:52.541]   ..$ ...future.x_ii:<environment: 0x55c30f1faac0> 
  [13:08:52.541]   ..$ a             :<environment: 0x55c30e0faad0> 
  [13:08:52.541]   ..$ plan_a        :<environment: 0x55c30e0faad0> 
  [13:08:52.541]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.541]  - attr(*, "resolved")= logi FALSE
  [13:08:52.541]  - attr(*, "total_size")= num 75872
  [13:08:52.559]   - R expression:
  [13:08:52.559] {
  [13:08:52.559]     doFuture::registerDoFuture()
  [13:08:52.559]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.559]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.559]         b <- NULL
  [13:08:52.559]         ...future.env <- environment()
  [13:08:52.559]         local({
  [13:08:52.559]             for (name in names(...future.x_jj)) {
  [13:08:52.559]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.559]                   inherits = FALSE)
  [13:08:52.559]             }
  [13:08:52.559]         })
  [13:08:52.559]         tryCatch({
  [13:08:52.559]             plan_list <- future::plan()
  [13:08:52.559]             message(capture.output(print(plan_list)))
  [13:08:52.559]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.559]                 getOption("future.default", "sequential")))
  [13:08:52.559]             plan_b <- future::plan("list")
  [13:08:52.559]             str(plan_b)
  [13:08:52.559]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.559]                 getOption("future.default", "sequential")))
  [13:08:52.559]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.559]         }, error = identity)
  [13:08:52.559]     })
  [13:08:52.559] }
  [13:08:52.560]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.561] List of 3
  [13:08:52.561]  $ ...future.x_ii: NULL
  [13:08:52.561]  $ a             : int 2
  [13:08:52.561]  $ plan_a        :List of 1
  [13:08:52.561]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.561]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.561]     earlySignal = FALSE, label = NULL, ...)  
  [13:08:52.561]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:08:52.561]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.561]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.561]  - attr(*, "where")=List of 3
  [13:08:52.561]   ..$ ...future.x_ii:<environment: 0x55c30f1faac0> 
  [13:08:52.561]   ..$ a             :<environment: 0x55c30e0faad0> 
  [13:08:52.561]   ..$ plan_a        :<environment: 0x55c30e0faad0> 
  [13:08:52.561]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.561]  - attr(*, "resolved")= logi FALSE
  [13:08:52.561]  - attr(*, "total_size")= num 75872
  [13:08:52.573]   - packages: [2] 'doFuture', 'utils'
  [13:08:52.574] - identifying globals and packages ... DONE
  [13:08:52.575] Number of chunks: 2
  [13:08:52.576] Number of futures (= number of chunks): 2
  [13:08:52.576] Launching 2 futures (chunks) ...
  [13:08:52.576] Chunk #1 of 2 ...
  [13:08:52.577]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:52.577] getGlobalsAndPackages() ...
  [13:08:52.578] Searching for globals...
  [13:08:52.579] 
  [13:08:52.579] Searching for globals ... DONE
  [13:08:52.579] - globals: [0] <none>
  [13:08:52.580] getGlobalsAndPackages() ... DONE
  [13:08:52.580] 
  [13:08:52.580] 
  [13:08:52.581]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:52.582] getGlobalsAndPackages() ...
  [13:08:52.582] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.583] Resolving globals: FALSE
  [13:08:52.584] The total size of the 3 globals is 74.15 KiB (75928 bytes)
  [13:08:52.585] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.585] 
  [13:08:52.586] getGlobalsAndPackages() ... DONE
  [13:08:52.588] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:52.588] Packages needed by future strategies (n = 0): <none>
  [13:08:52.593] {
  [13:08:52.593]     {
  [13:08:52.593]         ...future.startTime <- Sys.time()
  [13:08:52.593]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.593]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.593]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.593]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.593]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.593]         {
  [13:08:52.593]             {
  [13:08:52.593]                 {
  [13:08:52.593]                   {
  [13:08:52.593]                     has_future <- requireNamespace("future", 
  [13:08:52.593]                       quietly = TRUE)
  [13:08:52.593]                     version <- if (has_future) 
  [13:08:52.593]                       packageVersion("future")
  [13:08:52.593]                     else NULL
  [13:08:52.593]                     if (!has_future || version < "1.8.0") {
  [13:08:52.593]                       info <- c(r_version = gsub("R version ", 
  [13:08:52.593]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.593]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.593]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.593]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.593]                       info <- sprintf("%s: %s", names(info), 
  [13:08:52.593]                         info)
  [13:08:52.593]                       info <- paste(info, collapse = "; ")
  [13:08:52.593]                       if (!has_future) {
  [13:08:52.593]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.593]                           info)
  [13:08:52.593]                       }
  [13:08:52.593]                       else {
  [13:08:52.593]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.593]                           info, version)
  [13:08:52.593]                       }
  [13:08:52.593]                       stop(msg)
  [13:08:52.593]                     }
  [13:08:52.593]                   }
  [13:08:52.593]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:08:52.593]                   options(mc.cores = 1L)
  [13:08:52.593]                 }
  [13:08:52.593]                 local({
  [13:08:52.593]                   for (pkg in c("doFuture", "utils")) {
  [13:08:52.593]                     loadNamespace(pkg)
  [13:08:52.593]                     library(pkg, character.only = TRUE)
  [13:08:52.593]                   }
  [13:08:52.593]                 })
  [13:08:52.593]             }
  [13:08:52.593]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:52.593]         }
  [13:08:52.593]     }
  [13:08:52.593]     if (is.na(TRUE)) {
  [13:08:52.593]     }
  [13:08:52.593]     else {
  [13:08:52.593]         if (TRUE) {
  [13:08:52.593]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.593]         }
  [13:08:52.593]         else {
  [13:08:52.593]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.593]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.593]         }
  [13:08:52.593]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.593]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.593]             sink(type = "output", split = FALSE)
  [13:08:52.593]             close(...future.stdout)
  [13:08:52.593]         }, add = TRUE)
  [13:08:52.593]     }
  [13:08:52.593]     ...future.frame <- sys.nframe()
  [13:08:52.593]     ...future.conditions <- list()
  [13:08:52.593]     ...future.result <- tryCatch({
  [13:08:52.593]         withCallingHandlers({
  [13:08:52.593]             ...future.value <- local({
  [13:08:52.593]                 doFuture::registerDoFuture()
  [13:08:52.593]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.593]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.593]                   b <- NULL
  [13:08:52.593]                   ...future.env <- environment()
  [13:08:52.593]                   local({
  [13:08:52.593]                     for (name in names(...future.x_jj)) {
  [13:08:52.593]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.593]                         inherits = FALSE)
  [13:08:52.593]                     }
  [13:08:52.593]                   })
  [13:08:52.593]                   tryCatch({
  [13:08:52.593]                     plan_list <- future::plan()
  [13:08:52.593]                     message(capture.output(print(plan_list)))
  [13:08:52.593]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:52.593]                       inherits(plan_list, getOption("future.default", 
  [13:08:52.593]                         "sequential")))
  [13:08:52.593]                     plan_b <- future::plan("list")
  [13:08:52.593]                     str(plan_b)
  [13:08:52.593]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.593]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.593]                         "sequential")))
  [13:08:52.593]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.593]                   }, error = identity)
  [13:08:52.593]                 })
  [13:08:52.593]             })
  [13:08:52.593]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.593]                 version = "1.8")
  [13:08:52.593]         }, condition = local({
  [13:08:52.593]             inherits <- base::inherits
  [13:08:52.593]             invokeRestart <- base::invokeRestart
  [13:08:52.593]             length <- base::length
  [13:08:52.593]             seq.int <- base::seq.int
  [13:08:52.593]             sys.calls <- base::sys.calls
  [13:08:52.593]             `[[` <- base::`[[`
  [13:08:52.593]             `+` <- base::`+`
  [13:08:52.593]             `<<-` <- base::`<<-`
  [13:08:52.593]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.593]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.593]                   3L)]
  [13:08:52.593]             }
  [13:08:52.593]             function(cond) {
  [13:08:52.593]                 if (inherits(cond, "error")) {
  [13:08:52.593]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.593]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.593]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.593]                   signalCondition(cond)
  [13:08:52.593]                 }
  [13:08:52.593]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.593]                 ))) {
  [13:08:52.593]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.593]                     1L]] <<- list(condition = cond)
  [13:08:52.593]                   if (inherits(cond, "message")) {
  [13:08:52.593]                     invokeRestart("muffleMessage")
  [13:08:52.593]                   }
  [13:08:52.593]                   else if (inherits(cond, "warning")) {
  [13:08:52.593]                     invokeRestart("muffleWarning")
  [13:08:52.593]                   }
  [13:08:52.593]                 }
  [13:08:52.593]             }
  [13:08:52.593]         }))
  [13:08:52.593]     }, error = function(ex) {
  [13:08:52.593]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.593]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.593]             class = "FutureResult")
  [13:08:52.593]     }, finally = {
  [13:08:52.593]         {
  [13:08:52.593]             {
  [13:08:52.593]                 options(mc.cores = ...future.mc.cores.old)
  [13:08:52.593]             }
  [13:08:52.593]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.593]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.593]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.593]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.593]             {
  [13:08:52.593]                 if (substitute) 
  [13:08:52.593]                   expr <- substitute(expr)
  [13:08:52.593]                 if (is.function(workers)) 
  [13:08:52.593]                   workers <- workers()
  [13:08:52.593]                 workers <- as.integer(workers)
  [13:08:52.593]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.593]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.593]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.593]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.593]                     local = TRUE, label = label, ...))
  [13:08:52.593]                 }
  [13:08:52.593]                 oopts <- options(mc.cores = workers)
  [13:08:52.593]                 on.exit(options(oopts))
  [13:08:52.593]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.593]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.593]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.593]                   label = label, ...)
  [13:08:52.593]                 if (!future$lazy) 
  [13:08:52.593]                   future <- run(future)
  [13:08:52.593]                 invisible(future)
  [13:08:52.593]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.593]         }
  [13:08:52.593]         options(...future.oldOptions)
  [13:08:52.593]     })
  [13:08:52.593]     if (is.na(TRUE)) {
  [13:08:52.593]     }
  [13:08:52.593]     else {
  [13:08:52.593]         sink(type = "output", split = FALSE)
  [13:08:52.593]         if (TRUE) {
  [13:08:52.593]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.593]         }
  [13:08:52.593]         else {
  [13:08:52.593]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.593]         }
  [13:08:52.593]         close(...future.stdout)
  [13:08:52.593]         ...future.stdout <- NULL
  [13:08:52.593]     }
  [13:08:52.593]     ...future.result$conditions <- ...future.conditions
  [13:08:52.593]     ...future.result
  [13:08:52.593] }
  [13:08:52.599] requestCore(): workers = 2
  [13:08:52.602] MulticoreFuture started
  [13:08:52.603] Chunk #1 of 2 ... DONE
  [13:08:52.604] Chunk #2 of 2 ...
  [13:08:52.604]  - Finding globals in 'args_list' chunk #2 ...
  [13:08:52.605] getGlobalsAndPackages() ...
  [13:08:52.605] Searching for globals...
  [13:08:52.607] 
  [13:08:52.607] Searching for globals ... DONE
  [13:08:52.608] - globals: [0] <none>
  [13:08:52.608] getGlobalsAndPackages() ... DONE
  [13:08:52.609] 
  [13:08:52.609] 
  [13:08:52.610]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:08:52.613] getGlobalsAndPackages() ...
  [13:08:52.613] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.614] Resolving globals: FALSE
  [13:08:52.616] The total size of the 3 globals is 74.20 KiB (75984 bytes)
  [13:08:52.617] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.617] 
  [13:08:52.618] getGlobalsAndPackages() ... DONE
  [13:08:52.627] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:08:52.628] Packages needed by future strategies (n = 0): <none>
  [13:08:52.635] {
  [13:08:52.635]     {
  [13:08:52.635]         ...future.startTime <- Sys.time()
  [13:08:52.635]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.635]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.635]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.635]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.635]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.635]         {
  [13:08:52.635]             {
  [13:08:52.635]                 {
  [13:08:52.635]                   {
  [13:08:52.635]                     has_future <- requireNamespace("future", 
  [13:08:52.635]                       quietly = TRUE)
  [13:08:52.635]                     version <- if (has_future) 
  [13:08:52.635]                       packageVersion("future")
  [13:08:52.635]                     else NULL
  [13:08:52.635]                     if (!has_future || version < "1.8.0") {
  [13:08:52.635]                       info <- c(r_version = gsub("R version ", 
  [13:08:52.635]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.635]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.635]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.635]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.635]                       info <- sprintf("%s: %s", names(info), 
  [13:08:52.635]                         info)
  [13:08:52.635]                       info <- paste(info, collapse = "; ")
  [13:08:52.635]                       if (!has_future) {
  [13:08:52.635]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.635]                           info)
  [13:08:52.635]                       }
  [13:08:52.635]                       else {
  [13:08:52.635]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.635]                           info, version)
  [13:08:52.635]                       }
  [13:08:52.635]                       stop(msg)
  [13:08:52.635]                     }
  [13:08:52.635]                   }
  [13:08:52.635]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:08:52.635]                   options(mc.cores = 1L)
  [13:08:52.635]                 }
  [13:08:52.635]                 local({
  [13:08:52.635]                   for (pkg in c("doFuture", "utils")) {
  [13:08:52.635]                     loadNamespace(pkg)
  [13:08:52.635]                     library(pkg, character.only = TRUE)
  [13:08:52.635]                   }
  [13:08:52.635]                 })
  [13:08:52.635]             }
  [13:08:52.635]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:08:52.635]         }
  [13:08:52.635]     }
  [13:08:52.635]     if (is.na(TRUE)) {
  [13:08:52.635]     }
  [13:08:52.635]     else {
  [13:08:52.635]         if (TRUE) {
  [13:08:52.635]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.635]         }
  [13:08:52.635]         else {
  [13:08:52.635]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.635]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.635]         }
  [13:08:52.635]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.635]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.635]             sink(type = "output", split = FALSE)
  [13:08:52.635]             close(...future.stdout)
  [13:08:52.635]         }, add = TRUE)
  [13:08:52.635]     }
  [13:08:52.635]     ...future.frame <- sys.nframe()
  [13:08:52.635]     ...future.conditions <- list()
  [13:08:52.635]     ...future.result <- tryCatch({
  [13:08:52.635]         withCallingHandlers({
  [13:08:52.635]             ...future.value <- local({
  [13:08:52.635]                 doFuture::registerDoFuture()
  [13:08:52.635]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.635]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.635]                   b <- NULL
  [13:08:52.635]                   ...future.env <- environment()
  [13:08:52.635]                   local({
  [13:08:52.635]                     for (name in names(...future.x_jj)) {
  [13:08:52.635]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.635]                         inherits = FALSE)
  [13:08:52.635]                     }
  [13:08:52.635]                   })
  [13:08:52.635]                   tryCatch({
  [13:08:52.635]                     plan_list <- future::plan()
  [13:08:52.635]                     message(capture.output(print(plan_list)))
  [13:08:52.635]                     stopifnot(inherits(plan_list, "future"), 
  [13:08:52.635]                       inherits(plan_list, getOption("future.default", 
  [13:08:52.635]                         "sequential")))
  [13:08:52.635]                     plan_b <- future::plan("list")
  [13:08:52.635]                     str(plan_b)
  [13:08:52.635]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.635]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.635]                         "sequential")))
  [13:08:52.635]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.635]                   }, error = identity)
  [13:08:52.635]                 })
  [13:08:52.635]             })
  [13:08:52.635]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.635]                 version = "1.8")
  [13:08:52.635]         }, condition = local({
  [13:08:52.635]             inherits <- base::inherits
  [13:08:52.635]             invokeRestart <- base::invokeRestart
  [13:08:52.635]             length <- base::length
  [13:08:52.635]             seq.int <- base::seq.int
  [13:08:52.635]             sys.calls <- base::sys.calls
  [13:08:52.635]             `[[` <- base::`[[`
  [13:08:52.635]             `+` <- base::`+`
  [13:08:52.635]             `<<-` <- base::`<<-`
  [13:08:52.635]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.635]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.635]                   3L)]
  [13:08:52.635]             }
  [13:08:52.635]             function(cond) {
  [13:08:52.635]                 if (inherits(cond, "error")) {
  [13:08:52.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.635]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.635]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.635]                   signalCondition(cond)
  [13:08:52.635]                 }
  [13:08:52.635]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.635]                 ))) {
  [13:08:52.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.635]                     1L]] <<- list(condition = cond)
  [13:08:52.635]                   if (inherits(cond, "message")) {
  [13:08:52.635]                     invokeRestart("muffleMessage")
  [13:08:52.635]                   }
  [13:08:52.635]                   else if (inherits(cond, "warning")) {
  [13:08:52.635]                     invokeRestart("muffleWarning")
  [13:08:52.635]                   }
  [13:08:52.635]                 }
  [13:08:52.635]             }
  [13:08:52.635]         }))
  [13:08:52.635]     }, error = function(ex) {
  [13:08:52.635]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.635]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.635]             class = "FutureResult")
  [13:08:52.635]     }, finally = {
  [13:08:52.635]         {
  [13:08:52.635]             {
  [13:08:52.635]                 options(mc.cores = ...future.mc.cores.old)
  [13:08:52.635]             }
  [13:08:52.635]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.635]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.635]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:08:52.635]                 earlySignal = FALSE, label = NULL, ...) 
  [13:08:52.635]             {
  [13:08:52.635]                 if (substitute) 
  [13:08:52.635]                   expr <- substitute(expr)
  [13:08:52.635]                 if (is.function(workers)) 
  [13:08:52.635]                   workers <- workers()
  [13:08:52.635]                 workers <- as.integer(workers)
  [13:08:52.635]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:08:52.635]                 if (workers == 1L || !supportsMulticore()) {
  [13:08:52.635]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.635]                     lazy = lazy, seed = seed, globals = globals, 
  [13:08:52.635]                     local = TRUE, label = label, ...))
  [13:08:52.635]                 }
  [13:08:52.635]                 oopts <- options(mc.cores = workers)
  [13:08:52.635]                 on.exit(options(oopts))
  [13:08:52.635]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:08:52.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.635]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:08:52.635]                   label = label, ...)
  [13:08:52.635]                 if (!future$lazy) 
  [13:08:52.635]                   future <- run(future)
  [13:08:52.635]                 invisible(future)
  [13:08:52.635]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.635]         }
  [13:08:52.635]         options(...future.oldOptions)
  [13:08:52.635]     })
  [13:08:52.635]     if (is.na(TRUE)) {
  [13:08:52.635]     }
  [13:08:52.635]     else {
  [13:08:52.635]         sink(type = "output", split = FALSE)
  [13:08:52.635]         if (TRUE) {
  [13:08:52.635]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.635]         }
  [13:08:52.635]         else {
  [13:08:52.635]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.635]         }
  [13:08:52.635]         close(...future.stdout)
  [13:08:52.635]         ...future.stdout <- NULL
  [13:08:52.635]     }
  [13:08:52.635]     ...future.result$conditions <- ...future.conditions
  [13:08:52.635]     ...future.result
  [13:08:52.635] }
  [13:08:52.640] requestCore(): workers = 2
  [13:08:52.644] MulticoreFuture started
  [13:08:52.645] Chunk #2 of 2 ... DONE
  [13:08:52.646] Launching 2 futures (chunks) ... DONE
  [13:08:52.646] - resolving futures
  [13:08:52.647] resolve() on list ...
  [13:08:52.647]  recursive: 0
  [13:08:52.648]  length: 2
  [13:08:52.648] 
  [13:08:52.649]  length: 1 (resolved future 1)
  [13:08:52.677]  length: 0 (resolved future 2)
  [13:08:52.678] resolve() on list ... DONE
  [13:08:52.679] - relaying conditions of futures
  [13:08:52.681] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:52.684] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:08:52.685] - collecting values of futures
  [13:08:52.686] - accumulating results
  [13:08:52.687] - processing errors (handler = 'stop')
  [13:08:52.688] - extracting results
  [13:08:52.688] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:08:52.725] - collecting values of futures
  [13:08:52.725] - accumulating results
  [13:08:52.726] - processing errors (handler = 'stop')
  [13:08:52.727] - extracting results
  [13:08:52.727] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [13:08:52.729] plan(): Setting new future strategy stack:
  [13:08:52.729] List of future strategies:
  [13:08:52.729] 1. sequential:
  [13:08:52.729]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.729]    - tweaked: FALSE
  [13:08:52.729]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.729] 2. multisession:
  [13:08:52.729]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.729]    - tweaked: FALSE
  [13:08:52.729]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.731] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:08:52.732] doFuture() ...
  [13:08:52.733] - dummy globals (as locals): [1] 'a'
  [13:08:52.734] - R expression:
  [13:08:52.735] {
  [13:08:52.735]     doFuture::registerDoFuture()
  [13:08:52.735]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.735]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.735]         a <- NULL
  [13:08:52.735]         ...future.env <- environment()
  [13:08:52.735]         local({
  [13:08:52.735]             for (name in names(...future.x_jj)) {
  [13:08:52.735]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.735]                   inherits = FALSE)
  [13:08:52.735]             }
  [13:08:52.735]         })
  [13:08:52.735]         tryCatch({
  [13:08:52.735]             plan_list <- future::plan()
  [13:08:52.735]             stopifnot(inherits(plan_list, strategy2))
  [13:08:52.735]             plan_a <- future::plan("list")
  [13:08:52.735]             str(plan_a)
  [13:08:52.735]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.735]             message("foreach() - level 2 ...")
  [13:08:52.735]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.735]                 {
  [13:08:52.735]                   plan_list <- future::plan()
  [13:08:52.735]                   message(capture.output(print(plan_list)))
  [13:08:52.735]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.735]                     getOption("future.default", "sequential")))
  [13:08:52.735]                   plan_b <- future::plan("list")
  [13:08:52.735]                   str(plan_b)
  [13:08:52.735]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.735]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.735]                       "sequential")))
  [13:08:52.735]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.735]                 }
  [13:08:52.735]             message("foreach() - level 2 ... DONE")
  [13:08:52.735]             y
  [13:08:52.735]         }, error = identity)
  [13:08:52.735]     })
  [13:08:52.735] }
  [13:08:52.736] - identifying globals and packages ...
  [13:08:52.736] getGlobalsAndPackages() ...
  [13:08:52.737] Searching for globals...
  [13:08:52.774] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:08:52.774] Searching for globals ... DONE
  [13:08:52.775] Resolving globals: FALSE
  [13:08:52.777] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:08:52.778] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.778] - packages: [2] 'utils', 'foreach'
  [13:08:52.779] getGlobalsAndPackages() ... DONE
  [13:08:52.779] List of 3
  [13:08:52.779]  $ ...future.x_ii: NULL
  [13:08:52.779]  $ strategy2     : chr "multisession"
  [13:08:52.779]  $ bs            : int [1:3] 3 2 1
  [13:08:52.779]  - attr(*, "where")=List of 3
  [13:08:52.779]   ..$ ...future.x_ii:<environment: 0x55c3103f6640> 
  [13:08:52.779]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:52.779]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:52.779]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.779]  - attr(*, "resolved")= logi FALSE
  [13:08:52.779]  - attr(*, "total_size")= num 184
  [13:08:52.789]   - R expression:
  [13:08:52.789] {
  [13:08:52.789]     doFuture::registerDoFuture()
  [13:08:52.789]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.789]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.789]         a <- NULL
  [13:08:52.789]         ...future.env <- environment()
  [13:08:52.789]         local({
  [13:08:52.789]             for (name in names(...future.x_jj)) {
  [13:08:52.789]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.789]                   inherits = FALSE)
  [13:08:52.789]             }
  [13:08:52.789]         })
  [13:08:52.789]         tryCatch({
  [13:08:52.789]             plan_list <- future::plan()
  [13:08:52.789]             stopifnot(inherits(plan_list, strategy2))
  [13:08:52.789]             plan_a <- future::plan("list")
  [13:08:52.789]             str(plan_a)
  [13:08:52.789]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.789]             message("foreach() - level 2 ...")
  [13:08:52.789]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.789]                 {
  [13:08:52.789]                   plan_list <- future::plan()
  [13:08:52.789]                   message(capture.output(print(plan_list)))
  [13:08:52.789]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.789]                     getOption("future.default", "sequential")))
  [13:08:52.789]                   plan_b <- future::plan("list")
  [13:08:52.789]                   str(plan_b)
  [13:08:52.789]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.789]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.789]                       "sequential")))
  [13:08:52.789]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.789]                 }
  [13:08:52.789]             message("foreach() - level 2 ... DONE")
  [13:08:52.789]             y
  [13:08:52.789]         }, error = identity)
  [13:08:52.789]     })
  [13:08:52.789] }
  [13:08:52.790]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.791] List of 3
  [13:08:52.791]  $ ...future.x_ii: NULL
  [13:08:52.791]  $ strategy2     : chr "multisession"
  [13:08:52.791]  $ bs            : int [1:3] 3 2 1
  [13:08:52.791]  - attr(*, "where")=List of 3
  [13:08:52.791]   ..$ ...future.x_ii:<environment: 0x55c3103f6640> 
  [13:08:52.791]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:08:52.791]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:08:52.791]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.791]  - attr(*, "resolved")= logi FALSE
  [13:08:52.791]  - attr(*, "total_size")= num 184
  [13:08:52.914]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:08:52.915] - identifying globals and packages ... DONE
  [13:08:52.915] Number of chunks: 1
  [13:08:52.915] Number of futures (= number of chunks): 1
  [13:08:52.916] Launching 1 futures (chunks) ...
  [13:08:52.916] Chunk #1 of 1 ...
  [13:08:52.916]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:52.916] getGlobalsAndPackages() ...
  [13:08:52.917] Searching for globals...
  [13:08:52.918] 
  [13:08:52.918] Searching for globals ... DONE
  [13:08:52.918] - globals: [0] <none>
  [13:08:52.919] getGlobalsAndPackages() ... DONE
  [13:08:52.919] 
  [13:08:52.919] 
  [13:08:52.920]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:08:52.920] getGlobalsAndPackages() ...
  [13:08:52.921] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.921] Resolving globals: FALSE
  [13:08:52.922] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:08:52.923] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:08:52.923] 
  [13:08:52.923] getGlobalsAndPackages() ... DONE
  [13:08:52.925] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:08:52.925] Packages needed by future strategies (n = 1): 'future'
  [13:08:52.930] {
  [13:08:52.930]     {
  [13:08:52.930]         ...future.startTime <- Sys.time()
  [13:08:52.930]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:08:52.930]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:08:52.930]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:08:52.930]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:08:52.930]             future.resolve.recursive = NULL, width = 80L)
  [13:08:52.930]         {
  [13:08:52.930]             {
  [13:08:52.930]                 {
  [13:08:52.930]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:08:52.930]                   version <- if (has_future) 
  [13:08:52.930]                     packageVersion("future")
  [13:08:52.930]                   else NULL
  [13:08:52.930]                   if (!has_future || version < "1.8.0") {
  [13:08:52.930]                     info <- c(r_version = gsub("R version ", 
  [13:08:52.930]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:08:52.930]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:08:52.930]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:08:52.930]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:08:52.930]                     info <- sprintf("%s: %s", names(info), info)
  [13:08:52.930]                     info <- paste(info, collapse = "; ")
  [13:08:52.930]                     if (!has_future) {
  [13:08:52.930]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:08:52.930]                         info)
  [13:08:52.930]                     }
  [13:08:52.930]                     else {
  [13:08:52.930]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:08:52.930]                         info, version)
  [13:08:52.930]                     }
  [13:08:52.930]                     stop(msg)
  [13:08:52.930]                   }
  [13:08:52.930]                 }
  [13:08:52.930]                 local({
  [13:08:52.930]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:08:52.930]                   "future")) {
  [13:08:52.930]                     loadNamespace(pkg)
  [13:08:52.930]                     library(pkg, character.only = TRUE)
  [13:08:52.930]                   }
  [13:08:52.930]                 })
  [13:08:52.930]             }
  [13:08:52.930]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:08:52.930]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.930]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:08:52.930]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:08:52.930]                 ...) 
  [13:08:52.930]             {
  [13:08:52.930]                 if (substitute) 
  [13:08:52.930]                   expr <- substitute(expr)
  [13:08:52.930]                 if (is.function(workers)) 
  [13:08:52.930]                   workers <- workers()
  [13:08:52.930]                 workers <- as.integer(workers)
  [13:08:52.930]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:08:52.930]                   workers >= 1)
  [13:08:52.930]                 if (workers == 1L) {
  [13:08:52.930]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.930]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:08:52.930]                     local = TRUE, label = label, ...))
  [13:08:52.930]                 }
  [13:08:52.930]                 workers <- ClusterRegistry("start", workers = workers)
  [13:08:52.930]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:08:52.930]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.930]                   globals = globals, persistent = persistent, 
  [13:08:52.930]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:08:52.930]                   label = label, ...)
  [13:08:52.930]                 if (!future$lazy) 
  [13:08:52.930]                   future <- run(future)
  [13:08:52.930]                 invisible(future)
  [13:08:52.930]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.930]         }
  [13:08:52.930]     }
  [13:08:52.930]     if (is.na(TRUE)) {
  [13:08:52.930]     }
  [13:08:52.930]     else {
  [13:08:52.930]         if (TRUE) {
  [13:08:52.930]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:08:52.930]         }
  [13:08:52.930]         else {
  [13:08:52.930]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:08:52.930]                 windows = "NUL", "/dev/null"), open = "w")
  [13:08:52.930]         }
  [13:08:52.930]         sink(...future.stdout, type = "output", split = FALSE)
  [13:08:52.930]         on.exit(if (!is.null(...future.stdout)) {
  [13:08:52.930]             sink(type = "output", split = FALSE)
  [13:08:52.930]             close(...future.stdout)
  [13:08:52.930]         }, add = TRUE)
  [13:08:52.930]     }
  [13:08:52.930]     ...future.frame <- sys.nframe()
  [13:08:52.930]     ...future.conditions <- list()
  [13:08:52.930]     ...future.result <- tryCatch({
  [13:08:52.930]         withCallingHandlers({
  [13:08:52.930]             ...future.value <- local({
  [13:08:52.930]                 doFuture::registerDoFuture()
  [13:08:52.930]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.930]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.930]                   a <- NULL
  [13:08:52.930]                   ...future.env <- environment()
  [13:08:52.930]                   local({
  [13:08:52.930]                     for (name in names(...future.x_jj)) {
  [13:08:52.930]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.930]                         inherits = FALSE)
  [13:08:52.930]                     }
  [13:08:52.930]                   })
  [13:08:52.930]                   tryCatch({
  [13:08:52.930]                     plan_list <- future::plan()
  [13:08:52.930]                     stopifnot(inherits(plan_list, strategy2))
  [13:08:52.930]                     plan_a <- future::plan("list")
  [13:08:52.930]                     str(plan_a)
  [13:08:52.930]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:08:52.930]                     message("foreach() - level 2 ...")
  [13:08:52.930]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:08:52.930]                       {
  [13:08:52.930]                         plan_list <- future::plan()
  [13:08:52.930]                         message(capture.output(print(plan_list)))
  [13:08:52.930]                         stopifnot(inherits(plan_list, "future"), 
  [13:08:52.930]                           inherits(plan_list, getOption("future.default", 
  [13:08:52.930]                             "sequential")))
  [13:08:52.930]                         plan_b <- future::plan("list")
  [13:08:52.930]                         str(plan_b)
  [13:08:52.930]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:08:52.930]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:08:52.930]                             "sequential")))
  [13:08:52.930]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.930]                       }
  [13:08:52.930]                     message("foreach() - level 2 ... DONE")
  [13:08:52.930]                     y
  [13:08:52.930]                   }, error = identity)
  [13:08:52.930]                 })
  [13:08:52.930]             })
  [13:08:52.930]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:08:52.930]                 version = "1.8")
  [13:08:52.930]         }, condition = local({
  [13:08:52.930]             inherits <- base::inherits
  [13:08:52.930]             invokeRestart <- base::invokeRestart
  [13:08:52.930]             length <- base::length
  [13:08:52.930]             seq.int <- base::seq.int
  [13:08:52.930]             sys.calls <- base::sys.calls
  [13:08:52.930]             `[[` <- base::`[[`
  [13:08:52.930]             `+` <- base::`+`
  [13:08:52.930]             `<<-` <- base::`<<-`
  [13:08:52.930]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:08:52.930]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:08:52.930]                   3L)]
  [13:08:52.930]             }
  [13:08:52.930]             function(cond) {
  [13:08:52.930]                 if (inherits(cond, "error")) {
  [13:08:52.930]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.930]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:08:52.930]                     cond$call), timestamp = base::Sys.time())
  [13:08:52.930]                   signalCondition(cond)
  [13:08:52.930]                 }
  [13:08:52.930]                 else if (inherits(cond, c("message", "warning"
  [13:08:52.930]                 ))) {
  [13:08:52.930]                   ...future.conditions[[length(...future.conditions) + 
  [13:08:52.930]                     1L]] <<- list(condition = cond)
  [13:08:52.930]                   if (inherits(cond, "message")) {
  [13:08:52.930]                     invokeRestart("muffleMessage")
  [13:08:52.930]                   }
  [13:08:52.930]                   else if (inherits(cond, "warning")) {
  [13:08:52.930]                     invokeRestart("muffleWarning")
  [13:08:52.930]                   }
  [13:08:52.930]                 }
  [13:08:52.930]             }
  [13:08:52.930]         }))
  [13:08:52.930]     }, error = function(ex) {
  [13:08:52.930]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:08:52.930]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:08:52.930]             class = "FutureResult")
  [13:08:52.930]     }, finally = {
  [13:08:52.930]         {
  [13:08:52.930]             NULL
  [13:08:52.930]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:08:52.930]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:08:52.930]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:08:52.930]                 label = NULL, ...) 
  [13:08:52.930]             {
  [13:08:52.930]                 if (substitute) 
  [13:08:52.930]                   expr <- substitute(expr)
  [13:08:52.930]                 local <- as.logical(local)
  [13:08:52.930]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:08:52.930]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.930]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:08:52.930]                   label = label, ...)
  [13:08:52.930]                 if (!future$lazy) 
  [13:08:52.930]                   future <- run(future)
  [13:08:52.930]                 invisible(future)
  [13:08:52.930]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:08:52.930]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:08:52.930]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:08:52.930]                 label = NULL, ...) 
  [13:08:52.930]             {
  [13:08:52.930]                 if (substitute) 
  [13:08:52.930]                   expr <- substitute(expr)
  [13:08:52.930]                 if (is.function(workers)) 
  [13:08:52.930]                   workers <- workers()
  [13:08:52.930]                 workers <- as.integer(workers)
  [13:08:52.930]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:08:52.930]                   workers >= 1)
  [13:08:52.930]                 if (workers == 1L) {
  [13:08:52.930]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:08:52.930]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:08:52.930]                     local = TRUE, label = label, ...))
  [13:08:52.930]                 }
  [13:08:52.930]                 workers <- ClusterRegistry("start", workers = workers)
  [13:08:52.930]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:08:52.930]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:08:52.930]                   globals = globals, persistent = persistent, 
  [13:08:52.930]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:08:52.930]                   label = label, ...)
  [13:08:52.930]                 if (!future$lazy) 
  [13:08:52.930]                   future <- run(future)
  [13:08:52.930]                 invisible(future)
  [13:08:52.930]             }), .cleanup = FALSE, .init = FALSE)
  [13:08:52.930]         }
  [13:08:52.930]         options(...future.oldOptions)
  [13:08:52.930]     })
  [13:08:52.930]     if (is.na(TRUE)) {
  [13:08:52.930]     }
  [13:08:52.930]     else {
  [13:08:52.930]         sink(type = "output", split = FALSE)
  [13:08:52.930]         if (TRUE) {
  [13:08:52.930]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:08:52.930]         }
  [13:08:52.930]         else {
  [13:08:52.930]             ...future.result["stdout"] <- list(NULL)
  [13:08:52.930]         }
  [13:08:52.930]         close(...future.stdout)
  [13:08:52.930]         ...future.stdout <- NULL
  [13:08:52.930]     }
  [13:08:52.930]     ...future.result$conditions <- ...future.conditions
  [13:08:52.930]     ...future.result
  [13:08:52.930] }
  [13:08:52.937] plan(): Setting new future strategy stack:
  [13:08:52.937] List of future strategies:
  [13:08:52.937] 1. multisession:
  [13:08:52.937]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:08:52.937]    - tweaked: FALSE
  [13:08:52.937]    - call: plan(list(a = strategy1, b = strategy2))
  [13:08:52.939] plan(): nbrOfWorkers() = 2
  [13:09:09.564] plan(): Setting new future strategy stack:
  [13:09:09.564] List of future strategies:
  [13:09:09.564] 1. sequential:
  [13:09:09.564]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:09.564]    - tweaked: FALSE
  [13:09:09.564]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:09.564] 2. multisession:
  [13:09:09.564]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:09.564]    - tweaked: FALSE
  [13:09:09.564]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:09.565] plan(): nbrOfWorkers() = 1
  [13:09:09.566] SequentialFuture started (and completed)
  [13:09:09.567] Chunk #1 of 1 ... DONE
  [13:09:09.567] Launching 1 futures (chunks) ... DONE
  [13:09:09.567] - resolving futures
  [13:09:09.568] resolve() on list ...
  [13:09:09.568]  recursive: 0
  [13:09:09.568]  length: 1
  [13:09:09.568] 
  [13:09:09.569]  length: 0 (resolved future 1)
  [13:09:09.569] resolve() on list ... DONE
  [13:09:09.569] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:09.570] Future state: 'finished'
  foreach() - level 2 ...
  [13:08:52.945] doFuture() ...
  [13:08:52.947] - dummy globals (as locals): [1] 'b'
  [13:08:52.948] - R expression:
  [13:08:52.949] {
  [13:08:52.949]     doFuture::registerDoFuture()
  [13:08:52.949]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.949]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.949]         b <- NULL
  [13:08:52.949]         ...future.env <- environment()
  [13:08:52.949]         local({
  [13:08:52.949]             for (name in names(...future.x_jj)) {
  [13:08:52.949]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.949]                   inherits = FALSE)
  [13:08:52.949]             }
  [13:08:52.949]         })
  [13:08:52.949]         tryCatch({
  [13:08:52.949]             plan_list <- future::plan()
  [13:08:52.949]             message(capture.output(print(plan_list)))
  [13:08:52.949]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.949]                 getOption("future.default", "sequential")))
  [13:08:52.949]             plan_b <- future::plan("list")
  [13:08:52.949]             str(plan_b)
  [13:08:52.949]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.949]                 getOption("future.default", "sequential")))
  [13:08:52.949]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.949]         }, error = identity)
  [13:08:52.949]     })
  [13:08:52.949] }
  [13:08:52.950] - identifying globals and packages ...
  [13:08:52.950] getGlobalsAndPackages() ...
  [13:08:52.951] Searching for globals...
  [13:08:52.978] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:08:52.978] Searching for globals ... DONE
  [13:08:52.979] Resolving globals: FALSE
  [13:08:52.982] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:08:52.982] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:52.983] - packages: [1] 'utils'
  [13:08:52.983] getGlobalsAndPackages() ... DONE
  [13:08:52.984] List of 3
  [13:08:52.984]  $ ...future.x_ii: NULL
  [13:08:52.984]  $ a             : int 1
  [13:08:52.984]  $ plan_a        :List of 1
  [13:08:52.984]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:52.984]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:08:52.984]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:08:52.984]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:08:52.984]   .. ..- attr(*, "init")= logi TRUE
  [13:08:52.984]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:52.984]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:52.984]  - attr(*, "where")=List of 3
  [13:08:52.984]   ..$ ...future.x_ii:<environment: 0x55c30fcceac0> 
  [13:08:52.984]   ..$ a             :<environment: 0x55c30f279a80> 
  [13:08:52.984]   ..$ plan_a        :<environment: 0x55c30f279a80> 
  [13:08:52.984]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:52.984]  - attr(*, "resolved")= logi FALSE
  [13:08:52.984]  - attr(*, "total_size")= num 83544
  [13:08:52.998]   - R expression:
  [13:08:52.998] {
  [13:08:52.998]     doFuture::registerDoFuture()
  [13:08:52.998]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:08:52.998]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:08:52.998]         b <- NULL
  [13:08:52.998]         ...future.env <- environment()
  [13:08:52.998]         local({
  [13:08:52.998]             for (name in names(...future.x_jj)) {
  [13:08:52.998]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:08:52.998]                   inherits = FALSE)
  [13:08:52.998]             }
  [13:08:52.998]         })
  [13:08:52.998]         tryCatch({
  [13:08:52.998]             plan_list <- future::plan()
  [13:08:52.998]             message(capture.output(print(plan_list)))
  [13:08:52.998]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:08:52.998]                 getOption("future.default", "sequential")))
  [13:08:52.998]             plan_b <- future::plan("list")
  [13:08:52.998]             str(plan_b)
  [13:08:52.998]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:08:52.998]                 getOption("future.default", "sequential")))
  [13:08:52.998]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:08:52.998]         }, error = identity)
  [13:08:52.998]     })
  [13:08:52.998] }
  [13:08:52.999]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:08:53.000] List of 3
  [13:08:53.000]  $ ...future.x_ii: NULL
  [13:08:53.000]  $ a             : int 1
  [13:08:53.000]  $ plan_a        :List of 1
  [13:08:53.000]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:08:53.000]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:08:53.000]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:08:53.000]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:08:53.000]   .. ..- attr(*, "init")= logi TRUE
  [13:08:53.000]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:08:53.000]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:08:53.000]  - attr(*, "where")=List of 3
  [13:08:53.000]   ..$ ...future.x_ii:<environment: 0x55c30fcceac0> 
  [13:08:53.000]   ..$ a             :<environment: 0x55c30f279a80> 
  [13:08:53.000]   ..$ plan_a        :<environment: 0x55c30f279a80> 
  [13:08:53.000]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:08:53.000]  - attr(*, "resolved")= logi FALSE
  [13:08:53.000]  - attr(*, "total_size")= num 83544
  [13:08:53.013]   - packages: [2] 'doFuture', 'utils'
  [13:08:53.014] - identifying globals and packages ... DONE
  [13:08:53.015] Number of chunks: 2
  [13:08:53.016] Number of futures (= number of chunks): 2
  [13:08:53.016] Launching 2 futures (chunks) ...
  [13:08:53.016] Chunk #1 of 2 ...
  [13:08:53.017]  - Finding globals in 'args_list' chunk #1 ...
  [13:08:53.017] getGlobalsAndPackages() ...
  [13:08:53.017] Searching for globals...
  [13:08:53.018] 
  [13:08:53.019] Searching for globals ... DONE
  [13:08:53.019] - globals: [0] <none>
  [13:08:53.019] getGlobalsAndPackages() ... DONE
  [13:08:53.020] 
  [13:08:53.020] 
  [13:08:53.020]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d5acb2ec3.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d5acb2ec3.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d5acb2ec3.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d27b13c66.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d27b13c66.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d27b13c66.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:09:08.390] getGlobalsAndPackages() ...
  [13:09:08.410] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:08.411] Resolving globals: FALSE
  [13:09:08.417] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [13:09:08.418] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:08.419] 
  [13:09:08.419] getGlobalsAndPackages() ... DONE
  [13:09:08.460] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:08.462] Packages needed by future strategies (n = 0): <none>
  [13:09:08.474] {
  [13:09:08.474]     {
  [13:09:08.474]         ...future.startTime <- Sys.time()
  [13:09:08.474]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:08.474]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:08.474]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:08.474]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:08.474]             future.resolve.recursive = NULL, width = 80L)
  [13:09:08.474]         {
  [13:09:08.474]             {
  [13:09:08.474]                 {
  [13:09:08.474]                   {
  [13:09:08.474]                     has_future <- requireNamespace("future", 
  [13:09:08.474]                       quietly = TRUE)
  [13:09:08.474]                     version <- if (has_future) 
  [13:09:08.474]                       packageVersion("future")
  [13:09:08.474]                     else NULL
  [13:09:08.474]                     if (!has_future || version < "1.8.0") {
  [13:09:08.474]                       info <- c(r_version = gsub("R version ", 
  [13:09:08.474]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:08.474]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:08.474]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:08.474]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:08.474]                       info <- sprintf("%s: %s", names(info), 
  [13:09:08.474]                         info)
  [13:09:08.474]                       info <- paste(info, collapse = "; ")
  [13:09:08.474]                       if (!has_future) {
  [13:09:08.474]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:08.474]                           info)
  [13:09:08.474]                       }
  [13:09:08.474]                       else {
  [13:09:08.474]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:08.474]                           info, version)
  [13:09:08.474]                       }
  [13:09:08.474]                       stop(msg)
  [13:09:08.474]                     }
  [13:09:08.474]                   }
  [13:09:08.474]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:08.474]                   options(mc.cores = 1L)
  [13:09:08.474]                 }
  [13:09:08.474]                 local({
  [13:09:08.474]                   for (pkg in c("doFuture", "utils")) {
  [13:09:08.474]                     loadNamespace(pkg)
  [13:09:08.474]                     library(pkg, character.only = TRUE)
  [13:09:08.474]                   }
  [13:09:08.474]                 })
  [13:09:08.474]             }
  [13:09:08.474]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:08.474]         }
  [13:09:08.474]     }
  [13:09:08.474]     if (is.na(TRUE)) {
  [13:09:08.474]     }
  [13:09:08.474]     else {
  [13:09:08.474]         if (TRUE) {
  [13:09:08.474]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:08.474]         }
  [13:09:08.474]         else {
  [13:09:08.474]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:08.474]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:08.474]         }
  [13:09:08.474]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:08.474]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:08.474]             sink(type = "output", split = FALSE)
  [13:09:08.474]             close(...future.stdout)
  [13:09:08.474]         }, add = TRUE)
  [13:09:08.474]     }
  [13:09:08.474]     ...future.frame <- sys.nframe()
  [13:09:08.474]     ...future.conditions <- list()
  [13:09:08.474]     ...future.result <- tryCatch({
  [13:09:08.474]         withCallingHandlers({
  [13:09:08.474]             ...future.value <- local({
  [13:09:08.474]                 doFuture::registerDoFuture()
  [13:09:08.474]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:08.474]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:08.474]                   b <- NULL
  [13:09:08.474]                   ...future.env <- environment()
  [13:09:08.474]                   local({
  [13:09:08.474]                     for (name in names(...future.x_jj)) {
  [13:09:08.474]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:08.474]                         inherits = FALSE)
  [13:09:08.474]                     }
  [13:09:08.474]                   })
  [13:09:08.474]                   tryCatch({
  [13:09:08.474]                     plan_list <- future::plan()
  [13:09:08.474]                     message(capture.output(print(plan_list)))
  [13:09:08.474]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:08.474]                       inherits(plan_list, getOption("future.default", 
  [13:09:08.474]                         "sequential")))
  [13:09:08.474]                     plan_b <- future::plan("list")
  [13:09:08.474]                     str(plan_b)
  [13:09:08.474]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:08.474]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:08.474]                         "sequential")))
  [13:09:08.474]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:08.474]                   }, error = identity)
  [13:09:08.474]                 })
  [13:09:08.474]             })
  [13:09:08.474]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:08.474]                 version = "1.8")
  [13:09:08.474]         }, condition = local({
  [13:09:08.474]             inherits <- base::inherits
  [13:09:08.474]             invokeRestart <- base::invokeRestart
  [13:09:08.474]             length <- base::length
  [13:09:08.474]             seq.int <- base::seq.int
  [13:09:08.474]             sys.calls <- base::sys.calls
  [13:09:08.474]             `[[` <- base::`[[`
  [13:09:08.474]             `+` <- base::`+`
  [13:09:08.474]             `<<-` <- base::`<<-`
  [13:09:08.474]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:08.474]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:08.474]                   3L)]
  [13:09:08.474]             }
  [13:09:08.474]             function(cond) {
  [13:09:08.474]                 if (inherits(cond, "error")) {
  [13:09:08.474]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:08.474]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:08.474]                     cond$call), timestamp = base::Sys.time())
  [13:09:08.474]                   signalCondition(cond)
  [13:09:08.474]                 }
  [13:09:08.474]                 else if (inherits(cond, c("message", "warning"
  [13:09:08.474]                 ))) {
  [13:09:08.474]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:08.474]                     1L]] <<- list(condition = cond)
  [13:09:08.474]                   if (inherits(cond, "message")) {
  [13:09:08.474]                     invokeRestart("muffleMessage")
  [13:09:08.474]                   }
  [13:09:08.474]                   else if (inherits(cond, "warning")) {
  [13:09:08.474]                     invokeRestart("muffleWarning")
  [13:09:08.474]                   }
  [13:09:08.474]                 }
  [13:09:08.474]             }
  [13:09:08.474]         }))
  [13:09:08.474]     }, error = function(ex) {
  [13:09:08.474]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:08.474]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:08.474]             class = "FutureResult")
  [13:09:08.474]     }, finally = {
  [13:09:08.474]         {
  [13:09:08.474]             {
  [13:09:08.474]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:08.474]             }
  [13:09:08.474]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:08.474]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:08.474]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:08.474]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:08.474]                 ...) 
  [13:09:08.474]             {
  [13:09:08.474]                 if (substitute) 
  [13:09:08.474]                   expr <- substitute(expr)
  [13:09:08.474]                 if (is.function(workers)) 
  [13:09:08.474]                   workers <- workers()
  [13:09:08.474]                 workers <- as.integer(workers)
  [13:09:08.474]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:08.474]                   workers >= 1)
  [13:09:08.474]                 if (workers == 1L) {
  [13:09:08.474]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:08.474]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:08.474]                     local = TRUE, label = label, ...))
  [13:09:08.474]                 }
  [13:09:08.474]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:08.474]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:08.474]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:08.474]                   globals = globals, persistent = persistent, 
  [13:09:08.474]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:08.474]                   label = label, ...)
  [13:09:08.474]                 if (!future$lazy) 
  [13:09:08.474]                   future <- run(future)
  [13:09:08.474]                 invisible(future)
  [13:09:08.474]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:08.474]         }
  [13:09:08.474]         options(...future.oldOptions)
  [13:09:08.474]     })
  [13:09:08.474]     if (is.na(TRUE)) {
  [13:09:08.474]     }
  [13:09:08.474]     else {
  [13:09:08.474]         sink(type = "output", split = FALSE)
  [13:09:08.474]         if (TRUE) {
  [13:09:08.474]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:08.474]         }
  [13:09:08.474]         else {
  [13:09:08.474]             ...future.result["stdout"] <- list(NULL)
  [13:09:08.474]         }
  [13:09:08.474]         close(...future.stdout)
  [13:09:08.474]         ...future.stdout <- NULL
  [13:09:08.474]     }
  [13:09:08.474]     ...future.result$conditions <- ...future.conditions
  [13:09:08.474]     ...future.result
  [13:09:08.474] }
  [13:09:08.487] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [13:09:08.488] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:09:08.489] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:09:08.490] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:08.491] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:08.492] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [13:09:08.535] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [13:09:08.536] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [13:09:08.537] MultisessionFuture started
  [13:09:08.537] Chunk #1 of 2 ... DONE
  [13:09:08.538] Chunk #2 of 2 ...
  [13:09:08.538]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:08.539] getGlobalsAndPackages() ...
  [13:09:08.539] Searching for globals...
  [13:09:08.540] 
  [13:09:08.541] Searching for globals ... DONE
  [13:09:08.541] - globals: [0] <none>
  [13:09:08.541] getGlobalsAndPackages() ... DONE
  [13:09:08.542] 
  [13:09:08.542] 
  [13:09:08.543]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:08.551] getGlobalsAndPackages() ...
  [13:09:08.552] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:08.552] Resolving globals: FALSE
  [13:09:08.554] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [13:09:08.555] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:08.555] 
  [13:09:08.556] getGlobalsAndPackages() ... DONE
  [13:09:08.558] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:08.559] Packages needed by future strategies (n = 0): <none>
  [13:09:08.564] {
  [13:09:08.564]     {
  [13:09:08.564]         ...future.startTime <- Sys.time()
  [13:09:08.564]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:08.564]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:08.564]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:08.564]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:08.564]             future.resolve.recursive = NULL, width = 80L)
  [13:09:08.564]         {
  [13:09:08.564]             {
  [13:09:08.564]                 {
  [13:09:08.564]                   {
  [13:09:08.564]                     has_future <- requireNamespace("future", 
  [13:09:08.564]                       quietly = TRUE)
  [13:09:08.564]                     version <- if (has_future) 
  [13:09:08.564]                       packageVersion("future")
  [13:09:08.564]                     else NULL
  [13:09:08.564]                     if (!has_future || version < "1.8.0") {
  [13:09:08.564]                       info <- c(r_version = gsub("R version ", 
  [13:09:08.564]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:08.564]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:08.564]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:08.564]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:08.564]                       info <- sprintf("%s: %s", names(info), 
  [13:09:08.564]                         info)
  [13:09:08.564]                       info <- paste(info, collapse = "; ")
  [13:09:08.564]                       if (!has_future) {
  [13:09:08.564]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:08.564]                           info)
  [13:09:08.564]                       }
  [13:09:08.564]                       else {
  [13:09:08.564]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:08.564]                           info, version)
  [13:09:08.564]                       }
  [13:09:08.564]                       stop(msg)
  [13:09:08.564]                     }
  [13:09:08.564]                   }
  [13:09:08.564]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:08.564]                   options(mc.cores = 1L)
  [13:09:08.564]                 }
  [13:09:08.564]                 local({
  [13:09:08.564]                   for (pkg in c("doFuture", "utils")) {
  [13:09:08.564]                     loadNamespace(pkg)
  [13:09:08.564]                     library(pkg, character.only = TRUE)
  [13:09:08.564]                   }
  [13:09:08.564]                 })
  [13:09:08.564]             }
  [13:09:08.564]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:08.564]         }
  [13:09:08.564]     }
  [13:09:08.564]     if (is.na(TRUE)) {
  [13:09:08.564]     }
  [13:09:08.564]     else {
  [13:09:08.564]         if (TRUE) {
  [13:09:08.564]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:08.564]         }
  [13:09:08.564]         else {
  [13:09:08.564]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:08.564]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:08.564]         }
  [13:09:08.564]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:08.564]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:08.564]             sink(type = "output", split = FALSE)
  [13:09:08.564]             close(...future.stdout)
  [13:09:08.564]         }, add = TRUE)
  [13:09:08.564]     }
  [13:09:08.564]     ...future.frame <- sys.nframe()
  [13:09:08.564]     ...future.conditions <- list()
  [13:09:08.564]     ...future.result <- tryCatch({
  [13:09:08.564]         withCallingHandlers({
  [13:09:08.564]             ...future.value <- local({
  [13:09:08.564]                 doFuture::registerDoFuture()
  [13:09:08.564]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:08.564]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:08.564]                   b <- NULL
  [13:09:08.564]                   ...future.env <- environment()
  [13:09:08.564]                   local({
  [13:09:08.564]                     for (name in names(...future.x_jj)) {
  [13:09:08.564]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:08.564]                         inherits = FALSE)
  [13:09:08.564]                     }
  [13:09:08.564]                   })
  [13:09:08.564]                   tryCatch({
  [13:09:08.564]                     plan_list <- future::plan()
  [13:09:08.564]                     message(capture.output(print(plan_list)))
  [13:09:08.564]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:08.564]                       inherits(plan_list, getOption("future.default", 
  [13:09:08.564]                         "sequential")))
  [13:09:08.564]                     plan_b <- future::plan("list")
  [13:09:08.564]                     str(plan_b)
  [13:09:08.564]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:08.564]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:08.564]                         "sequential")))
  [13:09:08.564]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:08.564]                   }, error = identity)
  [13:09:08.564]                 })
  [13:09:08.564]             })
  [13:09:08.564]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:08.564]                 version = "1.8")
  [13:09:08.564]         }, condition = local({
  [13:09:08.564]             inherits <- base::inherits
  [13:09:08.564]             invokeRestart <- base::invokeRestart
  [13:09:08.564]             length <- base::length
  [13:09:08.564]             seq.int <- base::seq.int
  [13:09:08.564]             sys.calls <- base::sys.calls
  [13:09:08.564]             `[[` <- base::`[[`
  [13:09:08.564]             `+` <- base::`+`
  [13:09:08.564]             `<<-` <- base::`<<-`
  [13:09:08.564]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:08.564]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:08.564]                   3L)]
  [13:09:08.564]             }
  [13:09:08.564]             function(cond) {
  [13:09:08.564]                 if (inherits(cond, "error")) {
  [13:09:08.564]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:08.564]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:08.564]                     cond$call), timestamp = base::Sys.time())
  [13:09:08.564]                   signalCondition(cond)
  [13:09:08.564]                 }
  [13:09:08.564]                 else if (inherits(cond, c("message", "warning"
  [13:09:08.564]                 ))) {
  [13:09:08.564]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:08.564]                     1L]] <<- list(condition = cond)
  [13:09:08.564]                   if (inherits(cond, "message")) {
  [13:09:08.564]                     invokeRestart("muffleMessage")
  [13:09:08.564]                   }
  [13:09:08.564]                   else if (inherits(cond, "warning")) {
  [13:09:08.564]                     invokeRestart("muffleWarning")
  [13:09:08.564]                   }
  [13:09:08.564]                 }
  [13:09:08.564]             }
  [13:09:08.564]         }))
  [13:09:08.564]     }, error = function(ex) {
  [13:09:08.564]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:08.564]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:08.564]             class = "FutureResult")
  [13:09:08.564]     }, finally = {
  [13:09:08.564]         {
  [13:09:08.564]             {
  [13:09:08.564]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:08.564]             }
  [13:09:08.564]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:08.564]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:08.564]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:08.564]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:08.564]                 ...) 
  [13:09:08.564]             {
  [13:09:08.564]                 if (substitute) 
  [13:09:08.564]                   expr <- substitute(expr)
  [13:09:08.564]                 if (is.function(workers)) 
  [13:09:08.564]                   workers <- workers()
  [13:09:08.564]                 workers <- as.integer(workers)
  [13:09:08.564]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:08.564]                   workers >= 1)
  [13:09:08.564]                 if (workers == 1L) {
  [13:09:08.564]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:08.564]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:08.564]                     local = TRUE, label = label, ...))
  [13:09:08.564]                 }
  [13:09:08.564]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:08.564]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:08.564]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:08.564]                   globals = globals, persistent = persistent, 
  [13:09:08.564]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:08.564]                   label = label, ...)
  [13:09:08.564]                 if (!future$lazy) 
  [13:09:08.564]                   future <- run(future)
  [13:09:08.564]                 invisible(future)
  [13:09:08.564]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:08.564]         }
  [13:09:08.564]         options(...future.oldOptions)
  [13:09:08.564]     })
  [13:09:08.564]     if (is.na(TRUE)) {
  [13:09:08.564]     }
  [13:09:08.564]     else {
  [13:09:08.564]         sink(type = "output", split = FALSE)
  [13:09:08.564]         if (TRUE) {
  [13:09:08.564]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:08.564]         }
  [13:09:08.564]         else {
  [13:09:08.564]             ...future.result["stdout"] <- list(NULL)
  [13:09:08.564]         }
  [13:09:08.564]         close(...future.stdout)
  [13:09:08.564]         ...future.stdout <- NULL
  [13:09:08.564]     }
  [13:09:08.564]     ...future.result$conditions <- ...future.conditions
  [13:09:08.564]     ...future.result
  [13:09:08.564] }
  [13:09:08.570] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [13:09:08.570] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:09:08.571] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:09:08.572] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:09:08.573] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:09:08.574] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [13:09:08.619] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [13:09:08.620] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [13:09:08.621] MultisessionFuture started
  [13:09:08.621] Chunk #2 of 2 ... DONE
  [13:09:08.622] Launching 2 futures (chunks) ... DONE
  [13:09:08.622] - resolving futures
  [13:09:08.623] resolve() on list ...
  [13:09:08.623]  recursive: 0
  [13:09:08.624]  length: 2
  [13:09:08.624] 
  [13:09:08.937]  length: 1 (resolved future 2)
  [13:09:09.040]  length: 0 (resolved future 1)
  [13:09:09.040] resolve() on list ... DONE
  [13:09:09.041] - relaying conditions of futures
  [13:09:09.042] result() for ClusterFuture ...
  [13:09:09.043] - Validating connection of MultisessionFuture
  [13:09:09.044] - class(result): FutureResult
  [13:09:09.044] Future state: 'finished'
  [13:09:09.045] result() for ClusterFuture ...
  [13:09:09.045] - result already collected: FutureResult
  [13:09:09.046] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:09.046] result() for ClusterFuture ...
  [13:09:09.047] - Validating connection of MultisessionFuture
  [13:09:09.048] - class(result): FutureResult
  [13:09:09.049] Future state: 'finished'
  [13:09:09.049] result() for ClusterFuture ...
  [13:09:09.050] - result already collected: FutureResult
  [13:09:09.050] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:09.067] - collecting values of futures
  [13:09:09.068] result() for ClusterFuture ...
  [13:09:09.068] - result already collected: FutureResult
  [13:09:09.069] result() for ClusterFuture ... done
  [13:09:09.069] result() for ClusterFuture ...
  [13:09:09.070] - result already collected: FutureResult
  [13:09:09.070] result() for ClusterFuture ... done
  [13:09:09.071] - accumulating results
  [13:09:09.072] - processing errors (handler = 'stop')
  [13:09:09.073] - extracting results
  [13:09:09.073] doFuture() ... DONE
  foreach() - level 2 ... DONE
  foreach() - level 2 ...
  [13:09:09.102] doFuture() ...
  [13:09:09.104] - dummy globals (as locals): [1] 'b'
  [13:09:09.105] - R expression:
  [13:09:09.105] {
  [13:09:09.105]     doFuture::registerDoFuture()
  [13:09:09.105]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.105]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.105]         b <- NULL
  [13:09:09.105]         ...future.env <- environment()
  [13:09:09.105]         local({
  [13:09:09.105]             for (name in names(...future.x_jj)) {
  [13:09:09.105]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.105]                   inherits = FALSE)
  [13:09:09.105]             }
  [13:09:09.105]         })
  [13:09:09.105]         tryCatch({
  [13:09:09.105]             plan_list <- future::plan()
  [13:09:09.105]             message(capture.output(print(plan_list)))
  [13:09:09.105]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.105]                 getOption("future.default", "sequential")))
  [13:09:09.105]             plan_b <- future::plan("list")
  [13:09:09.105]             str(plan_b)
  [13:09:09.105]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:09.105]                 getOption("future.default", "sequential")))
  [13:09:09.105]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.105]         }, error = identity)
  [13:09:09.105]     })
  [13:09:09.105] }
  [13:09:09.107] - identifying globals and packages ...
  [13:09:09.107] getGlobalsAndPackages() ...
  [13:09:09.108] Searching for globals...
  [13:09:09.165] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:09.165] Searching for globals ... DONE
  [13:09:09.166] Resolving globals: FALSE
  [13:09:09.169] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:09:09.169] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.170] - packages: [1] 'utils'
  [13:09:09.170] getGlobalsAndPackages() ... DONE
  [13:09:09.171] List of 3
  [13:09:09.171]  $ ...future.x_ii: NULL
  [13:09:09.171]  $ a             : int 2
  [13:09:09.171]  $ plan_a        :List of 1
  [13:09:09.171]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:09.171]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:09.171]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:09.171]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:09.171]   .. ..- attr(*, "init")= logi TRUE
  [13:09:09.171]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:09.171]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:09.171]  - attr(*, "where")=List of 3
  [13:09:09.171]   ..$ ...future.x_ii:<environment: 0x55c30f16e770> 
  [13:09:09.171]   ..$ a             :<environment: 0x55c310164370> 
  [13:09:09.171]   ..$ plan_a        :<environment: 0x55c310164370> 
  [13:09:09.171]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.171]  - attr(*, "resolved")= logi FALSE
  [13:09:09.171]  - attr(*, "total_size")= num 83544
  [13:09:09.206]   - R expression:
  [13:09:09.206] {
  [13:09:09.206]     doFuture::registerDoFuture()
  [13:09:09.206]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.206]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.206]         b <- NULL
  [13:09:09.206]         ...future.env <- environment()
  [13:09:09.206]         local({
  [13:09:09.206]             for (name in names(...future.x_jj)) {
  [13:09:09.206]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.206]                   inherits = FALSE)
  [13:09:09.206]             }
  [13:09:09.206]         })
  [13:09:09.206]         tryCatch({
  [13:09:09.206]             plan_list <- future::plan()
  [13:09:09.206]             message(capture.output(print(plan_list)))
  [13:09:09.206]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.206]                 getOption("future.default", "sequential")))
  [13:09:09.206]             plan_b <- future::plan("list")
  [13:09:09.206]             str(plan_b)
  [13:09:09.206]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:09.206]                 getOption("future.default", "sequential")))
  [13:09:09.206]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.206]         }, error = identity)
  [13:09:09.206]     })
  [13:09:09.206] }
  [13:09:09.207]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.208] List of 3
  [13:09:09.208]  $ ...future.x_ii: NULL
  [13:09:09.208]  $ a             : int 2
  [13:09:09.208]  $ plan_a        :List of 1
  [13:09:09.208]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:09.208]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:09.208]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:09.208]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:09.208]   .. ..- attr(*, "init")= logi TRUE
  [13:09:09.208]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:09.208]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:09.208]  - attr(*, "where")=List of 3
  [13:09:09.208]   ..$ ...future.x_ii:<environment: 0x55c30f16e770> 
  [13:09:09.208]   ..$ a             :<environment: 0x55c310164370> 
  [13:09:09.208]   ..$ plan_a        :<environment: 0x55c310164370> 
  [13:09:09.208]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.208]  - attr(*, "resolved")= logi FALSE
  [13:09:09.208]  - attr(*, "total_size")= num 83544
  [13:09:09.239]   - packages: [2] 'doFuture', 'utils'
  [13:09:09.240] - identifying globals and packages ... DONE
  [13:09:09.242] Number of chunks: 2
  [13:09:09.242] Number of futures (= number of chunks): 2
  [13:09:09.244] Launching 2 futures (chunks) ...
  [13:09:09.245] Chunk #1 of 2 ...
  [13:09:09.245]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:09.245] getGlobalsAndPackages() ...
  [13:09:09.246] Searching for globals...
  [13:09:09.247] 
  [13:09:09.247] Searching for globals ... DONE
  [13:09:09.248] - globals: [0] <none>
  [13:09:09.248] getGlobalsAndPackages() ... DONE
  [13:09:09.248] 
  [13:09:09.249] 
  [13:09:09.249]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:09.260] getGlobalsAndPackages() ...
  [13:09:09.261] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.262] Resolving globals: FALSE
  [13:09:09.263] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [13:09:09.264] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.264] 
  [13:09:09.265] getGlobalsAndPackages() ... DONE
  [13:09:09.267] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:09.267] Packages needed by future strategies (n = 0): <none>
  [13:09:09.272] {
  [13:09:09.272]     {
  [13:09:09.272]         ...future.startTime <- Sys.time()
  [13:09:09.272]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:09.272]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:09.272]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:09.272]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:09.272]             future.resolve.recursive = NULL, width = 80L)
  [13:09:09.272]         {
  [13:09:09.272]             {
  [13:09:09.272]                 {
  [13:09:09.272]                   {
  [13:09:09.272]                     has_future <- requireNamespace("future", 
  [13:09:09.272]                       quietly = TRUE)
  [13:09:09.272]                     version <- if (has_future) 
  [13:09:09.272]                       packageVersion("future")
  [13:09:09.272]                     else NULL
  [13:09:09.272]                     if (!has_future || version < "1.8.0") {
  [13:09:09.272]                       info <- c(r_version = gsub("R version ", 
  [13:09:09.272]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:09.272]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:09.272]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:09.272]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:09.272]                       info <- sprintf("%s: %s", names(info), 
  [13:09:09.272]                         info)
  [13:09:09.272]                       info <- paste(info, collapse = "; ")
  [13:09:09.272]                       if (!has_future) {
  [13:09:09.272]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:09.272]                           info)
  [13:09:09.272]                       }
  [13:09:09.272]                       else {
  [13:09:09.272]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:09.272]                           info, version)
  [13:09:09.272]                       }
  [13:09:09.272]                       stop(msg)
  [13:09:09.272]                     }
  [13:09:09.272]                   }
  [13:09:09.272]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:09.272]                   options(mc.cores = 1L)
  [13:09:09.272]                 }
  [13:09:09.272]                 local({
  [13:09:09.272]                   for (pkg in c("doFuture", "utils")) {
  [13:09:09.272]                     loadNamespace(pkg)
  [13:09:09.272]                     library(pkg, character.only = TRUE)
  [13:09:09.272]                   }
  [13:09:09.272]                 })
  [13:09:09.272]             }
  [13:09:09.272]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:09.272]         }
  [13:09:09.272]     }
  [13:09:09.272]     if (is.na(TRUE)) {
  [13:09:09.272]     }
  [13:09:09.272]     else {
  [13:09:09.272]         if (TRUE) {
  [13:09:09.272]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:09.272]         }
  [13:09:09.272]         else {
  [13:09:09.272]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:09.272]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:09.272]         }
  [13:09:09.272]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:09.272]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:09.272]             sink(type = "output", split = FALSE)
  [13:09:09.272]             close(...future.stdout)
  [13:09:09.272]         }, add = TRUE)
  [13:09:09.272]     }
  [13:09:09.272]     ...future.frame <- sys.nframe()
  [13:09:09.272]     ...future.conditions <- list()
  [13:09:09.272]     ...future.result <- tryCatch({
  [13:09:09.272]         withCallingHandlers({
  [13:09:09.272]             ...future.value <- local({
  [13:09:09.272]                 doFuture::registerDoFuture()
  [13:09:09.272]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.272]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.272]                   b <- NULL
  [13:09:09.272]                   ...future.env <- environment()
  [13:09:09.272]                   local({
  [13:09:09.272]                     for (name in names(...future.x_jj)) {
  [13:09:09.272]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.272]                         inherits = FALSE)
  [13:09:09.272]                     }
  [13:09:09.272]                   })
  [13:09:09.272]                   tryCatch({
  [13:09:09.272]                     plan_list <- future::plan()
  [13:09:09.272]                     message(capture.output(print(plan_list)))
  [13:09:09.272]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:09.272]                       inherits(plan_list, getOption("future.default", 
  [13:09:09.272]                         "sequential")))
  [13:09:09.272]                     plan_b <- future::plan("list")
  [13:09:09.272]                     str(plan_b)
  [13:09:09.272]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:09.272]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:09.272]                         "sequential")))
  [13:09:09.272]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.272]                   }, error = identity)
  [13:09:09.272]                 })
  [13:09:09.272]             })
  [13:09:09.272]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:09.272]                 version = "1.8")
  [13:09:09.272]         }, condition = local({
  [13:09:09.272]             inherits <- base::inherits
  [13:09:09.272]             invokeRestart <- base::invokeRestart
  [13:09:09.272]             length <- base::length
  [13:09:09.272]             seq.int <- base::seq.int
  [13:09:09.272]             sys.calls <- base::sys.calls
  [13:09:09.272]             `[[` <- base::`[[`
  [13:09:09.272]             `+` <- base::`+`
  [13:09:09.272]             `<<-` <- base::`<<-`
  [13:09:09.272]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:09.272]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:09.272]                   3L)]
  [13:09:09.272]             }
  [13:09:09.272]             function(cond) {
  [13:09:09.272]                 if (inherits(cond, "error")) {
  [13:09:09.272]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.272]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:09.272]                     cond$call), timestamp = base::Sys.time())
  [13:09:09.272]                   signalCondition(cond)
  [13:09:09.272]                 }
  [13:09:09.272]                 else if (inherits(cond, c("message", "warning"
  [13:09:09.272]                 ))) {
  [13:09:09.272]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.272]                     1L]] <<- list(condition = cond)
  [13:09:09.272]                   if (inherits(cond, "message")) {
  [13:09:09.272]                     invokeRestart("muffleMessage")
  [13:09:09.272]                   }
  [13:09:09.272]                   else if (inherits(cond, "warning")) {
  [13:09:09.272]                     invokeRestart("muffleWarning")
  [13:09:09.272]                   }
  [13:09:09.272]                 }
  [13:09:09.272]             }
  [13:09:09.272]         }))
  [13:09:09.272]     }, error = function(ex) {
  [13:09:09.272]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:09.272]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:09.272]             class = "FutureResult")
  [13:09:09.272]     }, finally = {
  [13:09:09.272]         {
  [13:09:09.272]             {
  [13:09:09.272]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:09.272]             }
  [13:09:09.272]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:09.272]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:09.272]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:09.272]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:09.272]                 ...) 
  [13:09:09.272]             {
  [13:09:09.272]                 if (substitute) 
  [13:09:09.272]                   expr <- substitute(expr)
  [13:09:09.272]                 if (is.function(workers)) 
  [13:09:09.272]                   workers <- workers()
  [13:09:09.272]                 workers <- as.integer(workers)
  [13:09:09.272]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:09.272]                   workers >= 1)
  [13:09:09.272]                 if (workers == 1L) {
  [13:09:09.272]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:09.272]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:09.272]                     local = TRUE, label = label, ...))
  [13:09:09.272]                 }
  [13:09:09.272]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:09.272]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:09.272]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:09.272]                   globals = globals, persistent = persistent, 
  [13:09:09.272]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:09.272]                   label = label, ...)
  [13:09:09.272]                 if (!future$lazy) 
  [13:09:09.272]                   future <- run(future)
  [13:09:09.272]                 invisible(future)
  [13:09:09.272]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:09.272]         }
  [13:09:09.272]         options(...future.oldOptions)
  [13:09:09.272]     })
  [13:09:09.272]     if (is.na(TRUE)) {
  [13:09:09.272]     }
  [13:09:09.272]     else {
  [13:09:09.272]         sink(type = "output", split = FALSE)
  [13:09:09.272]         if (TRUE) {
  [13:09:09.272]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:09.272]         }
  [13:09:09.272]         else {
  [13:09:09.272]             ...future.result["stdout"] <- list(NULL)
  [13:09:09.272]         }
  [13:09:09.272]         close(...future.stdout)
  [13:09:09.272]         ...future.stdout <- NULL
  [13:09:09.272]     }
  [13:09:09.272]     ...future.result$conditions <- ...future.conditions
  [13:09:09.272]     ...future.result
  [13:09:09.272] }
  [13:09:09.278] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [13:09:09.279] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:09:09.283] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:09:09.284] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:09.285] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:09.286] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [13:09:09.331] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [13:09:09.332] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [13:09:09.333] MultisessionFuture started
  [13:09:09.333] Chunk #1 of 2 ... DONE
  [13:09:09.333] Chunk #2 of 2 ...
  [13:09:09.334]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:09.334] getGlobalsAndPackages() ...
  [13:09:09.335] Searching for globals...
  [13:09:09.335] 
  [13:09:09.336] Searching for globals ... DONE
  [13:09:09.336] - globals: [0] <none>
  [13:09:09.337] getGlobalsAndPackages() ... DONE
  [13:09:09.337] 
  [13:09:09.337] 
  [13:09:09.338]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:09.346] getGlobalsAndPackages() ...
  [13:09:09.346] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.347] Resolving globals: FALSE
  [13:09:09.348] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [13:09:09.349] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.349] 
  [13:09:09.350] getGlobalsAndPackages() ... DONE
  [13:09:09.352] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:09.352] Packages needed by future strategies (n = 0): <none>
  [13:09:09.387] {
  [13:09:09.387]     {
  [13:09:09.387]         ...future.startTime <- Sys.time()
  [13:09:09.387]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:09.387]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:09.387]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:09.387]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:09.387]             future.resolve.recursive = NULL, width = 80L)
  [13:09:09.387]         {
  [13:09:09.387]             {
  [13:09:09.387]                 {
  [13:09:09.387]                   {
  [13:09:09.387]                     has_future <- requireNamespace("future", 
  [13:09:09.387]                       quietly = TRUE)
  [13:09:09.387]                     version <- if (has_future) 
  [13:09:09.387]                       packageVersion("future")
  [13:09:09.387]                     else NULL
  [13:09:09.387]                     if (!has_future || version < "1.8.0") {
  [13:09:09.387]                       info <- c(r_version = gsub("R version ", 
  [13:09:09.387]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:09.387]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:09.387]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:09.387]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:09.387]                       info <- sprintf("%s: %s", names(info), 
  [13:09:09.387]                         info)
  [13:09:09.387]                       info <- paste(info, collapse = "; ")
  [13:09:09.387]                       if (!has_future) {
  [13:09:09.387]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:09.387]                           info)
  [13:09:09.387]                       }
  [13:09:09.387]                       else {
  [13:09:09.387]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:09.387]                           info, version)
  [13:09:09.387]                       }
  [13:09:09.387]                       stop(msg)
  [13:09:09.387]                     }
  [13:09:09.387]                   }
  [13:09:09.387]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:09.387]                   options(mc.cores = 1L)
  [13:09:09.387]                 }
  [13:09:09.387]                 local({
  [13:09:09.387]                   for (pkg in c("doFuture", "utils")) {
  [13:09:09.387]                     loadNamespace(pkg)
  [13:09:09.387]                     library(pkg, character.only = TRUE)
  [13:09:09.387]                   }
  [13:09:09.387]                 })
  [13:09:09.387]             }
  [13:09:09.387]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:09.387]         }
  [13:09:09.387]     }
  [13:09:09.387]     if (is.na(TRUE)) {
  [13:09:09.387]     }
  [13:09:09.387]     else {
  [13:09:09.387]         if (TRUE) {
  [13:09:09.387]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:09.387]         }
  [13:09:09.387]         else {
  [13:09:09.387]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:09.387]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:09.387]         }
  [13:09:09.387]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:09.387]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:09.387]             sink(type = "output", split = FALSE)
  [13:09:09.387]             close(...future.stdout)
  [13:09:09.387]         }, add = TRUE)
  [13:09:09.387]     }
  [13:09:09.387]     ...future.frame <- sys.nframe()
  [13:09:09.387]     ...future.conditions <- list()
  [13:09:09.387]     ...future.result <- tryCatch({
  [13:09:09.387]         withCallingHandlers({
  [13:09:09.387]             ...future.value <- local({
  [13:09:09.387]                 doFuture::registerDoFuture()
  [13:09:09.387]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.387]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.387]                   b <- NULL
  [13:09:09.387]                   ...future.env <- environment()
  [13:09:09.387]                   local({
  [13:09:09.387]                     for (name in names(...future.x_jj)) {
  [13:09:09.387]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.387]                         inherits = FALSE)
  [13:09:09.387]                     }
  [13:09:09.387]                   })
  [13:09:09.387]                   tryCatch({
  [13:09:09.387]                     plan_list <- future::plan()
  [13:09:09.387]                     message(capture.output(print(plan_list)))
  [13:09:09.387]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:09.387]                       inherits(plan_list, getOption("future.default", 
  [13:09:09.387]                         "sequential")))
  [13:09:09.387]                     plan_b <- future::plan("list")
  [13:09:09.387]                     str(plan_b)
  [13:09:09.387]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:09.387]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:09.387]                         "sequential")))
  [13:09:09.387]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.387]                   }, error = identity)
  [13:09:09.387]                 })
  [13:09:09.387]             })
  [13:09:09.387]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:09.387]                 version = "1.8")
  [13:09:09.387]         }, condition = local({
  [13:09:09.387]             inherits <- base::inherits
  [13:09:09.387]             invokeRestart <- base::invokeRestart
  [13:09:09.387]             length <- base::length
  [13:09:09.387]             seq.int <- base::seq.int
  [13:09:09.387]             sys.calls <- base::sys.calls
  [13:09:09.387]             `[[` <- base::`[[`
  [13:09:09.387]             `+` <- base::`+`
  [13:09:09.387]             `<<-` <- base::`<<-`
  [13:09:09.387]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:09.387]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:09.387]                   3L)]
  [13:09:09.387]             }
  [13:09:09.387]             function(cond) {
  [13:09:09.387]                 if (inherits(cond, "error")) {
  [13:09:09.387]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.387]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:09.387]                     cond$call), timestamp = base::Sys.time())
  [13:09:09.387]                   signalCondition(cond)
  [13:09:09.387]                 }
  [13:09:09.387]                 else if (inherits(cond, c("message", "warning"
  [13:09:09.387]                 ))) {
  [13:09:09.387]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.387]                     1L]] <<- list(condition = cond)
  [13:09:09.387]                   if (inherits(cond, "message")) {
  [13:09:09.387]                     invokeRestart("muffleMessage")
  [13:09:09.387]                   }
  [13:09:09.387]                   else if (inherits(cond, "warning")) {
  [13:09:09.387]                     invokeRestart("muffleWarning")
  [13:09:09.387]                   }
  [13:09:09.387]                 }
  [13:09:09.387]             }
  [13:09:09.387]         }))
  [13:09:09.387]     }, error = function(ex) {
  [13:09:09.387]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:09.387]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:09.387]             class = "FutureResult")
  [13:09:09.387]     }, finally = {
  [13:09:09.387]         {
  [13:09:09.387]             {
  [13:09:09.387]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:09.387]             }
  [13:09:09.387]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:09.387]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:09.387]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:09.387]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:09.387]                 ...) 
  [13:09:09.387]             {
  [13:09:09.387]                 if (substitute) 
  [13:09:09.387]                   expr <- substitute(expr)
  [13:09:09.387]                 if (is.function(workers)) 
  [13:09:09.387]                   workers <- workers()
  [13:09:09.387]                 workers <- as.integer(workers)
  [13:09:09.387]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:09.387]                   workers >= 1)
  [13:09:09.387]                 if (workers == 1L) {
  [13:09:09.387]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:09.387]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:09.387]                     local = TRUE, label = label, ...))
  [13:09:09.387]                 }
  [13:09:09.387]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:09.387]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:09.387]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:09.387]                   globals = globals, persistent = persistent, 
  [13:09:09.387]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:09.387]                   label = label, ...)
  [13:09:09.387]                 if (!future$lazy) 
  [13:09:09.387]                   future <- run(future)
  [13:09:09.387]                 invisible(future)
  [13:09:09.387]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:09.387]         }
  [13:09:09.387]         options(...future.oldOptions)
  [13:09:09.387]     })
  [13:09:09.387]     if (is.na(TRUE)) {
  [13:09:09.387]     }
  [13:09:09.387]     else {
  [13:09:09.387]         sink(type = "output", split = FALSE)
  [13:09:09.387]         if (TRUE) {
  [13:09:09.387]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:09.387]         }
  [13:09:09.387]         else {
  [13:09:09.387]             ...future.result["stdout"] <- list(NULL)
  [13:09:09.387]         }
  [13:09:09.387]         close(...future.stdout)
  [13:09:09.387]         ...future.stdout <- NULL
  [13:09:09.387]     }
  [13:09:09.387]     ...future.result$conditions <- ...future.conditions
  [13:09:09.387]     ...future.result
  [13:09:09.387] }
  [13:09:09.407] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [13:09:09.407] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:09:09.409] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:09:09.409] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:09:09.410] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:09:09.411] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [13:09:09.455] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [13:09:09.456] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [13:09:09.457] MultisessionFuture started
  [13:09:09.457] Chunk #2 of 2 ... DONE
  [13:09:09.458] Launching 2 futures (chunks) ... DONE
  [13:09:09.458] - resolving futures
  [13:09:09.458] resolve() on list ...
  [13:09:09.459]  recursive: 0
  [13:09:09.459]  length: 2
  [13:09:09.460] 
  [13:09:09.462]  length: 1 (resolved future 1)
  [13:09:09.513]  length: 0 (resolved future 2)
  [13:09:09.513] resolve() on list ... DONE
  [13:09:09.514] - relaying conditions of futures
  [13:09:09.514] result() for ClusterFuture ...
  [13:09:09.515] - Validating connection of MultisessionFuture
  [13:09:09.515] - class(result): FutureResult
  [13:09:09.516] Future state: 'finished'
  [13:09:09.516] result() for ClusterFuture ...
  [13:09:09.517] - result already collected: FutureResult
  [13:09:09.517] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:09.518] result() for ClusterFuture ...
  [13:09:09.518] - Validating connection of MultisessionFuture
  [13:09:09.555] - class(result): FutureResult
  [13:09:09.556] Future state: 'finished'
  [13:09:09.556] result() for ClusterFuture ...
  [13:09:09.556] - result already collected: FutureResult
  [13:09:09.557] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:09.558] - collecting values of futures
  [13:09:09.558] result() for ClusterFuture ...
  [13:09:09.558] - result already collected: FutureResult
  [13:09:09.559] result() for ClusterFuture ... done
  [13:09:09.559] result() for ClusterFuture ...
  [13:09:09.560] - result already collected: FutureResult
  [13:09:09.560] result() for ClusterFuture ... done
  [13:09:09.561] - accumulating results
  [13:09:09.562] - processing errors (handler = 'stop')
  [13:09:09.562] - extracting results
  [13:09:09.563] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:09.651] - collecting values of futures
  [13:09:09.652] - accumulating results
  [13:09:09.653] - processing errors (handler = 'stop')
  [13:09:09.653] - extracting results
  [13:09:09.654] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [13:09:09.656] plan(): Setting new future strategy stack:
  [13:09:09.656] List of future strategies:
  [13:09:09.656] 1. sequential:
  [13:09:09.656]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:09.656]    - tweaked: FALSE
  [13:09:09.656]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:09.656] 2. cluster:
  [13:09:09.656]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:09.656]    - tweaked: FALSE
  [13:09:09.656]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:09.658] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:09:09.659] doFuture() ...
  [13:09:09.660] - dummy globals (as locals): [1] 'a'
  [13:09:09.661] - R expression:
  [13:09:09.661] {
  [13:09:09.661]     doFuture::registerDoFuture()
  [13:09:09.661]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.661]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.661]         a <- NULL
  [13:09:09.661]         ...future.env <- environment()
  [13:09:09.661]         local({
  [13:09:09.661]             for (name in names(...future.x_jj)) {
  [13:09:09.661]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.661]                   inherits = FALSE)
  [13:09:09.661]             }
  [13:09:09.661]         })
  [13:09:09.661]         tryCatch({
  [13:09:09.661]             plan_list <- future::plan()
  [13:09:09.661]             stopifnot(inherits(plan_list, strategy2))
  [13:09:09.661]             plan_a <- future::plan("list")
  [13:09:09.661]             str(plan_a)
  [13:09:09.661]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:09.661]             message("foreach() - level 2 ...")
  [13:09:09.661]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:09.661]                 {
  [13:09:09.661]                   plan_list <- future::plan()
  [13:09:09.661]                   message(capture.output(print(plan_list)))
  [13:09:09.661]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.661]                     getOption("future.default", "sequential")))
  [13:09:09.661]                   plan_b <- future::plan("list")
  [13:09:09.661]                   str(plan_b)
  [13:09:09.661]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:09.661]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:09.661]                       "sequential")))
  [13:09:09.661]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.661]                 }
  [13:09:09.661]             message("foreach() - level 2 ... DONE")
  [13:09:09.661]             y
  [13:09:09.661]         }, error = identity)
  [13:09:09.661]     })
  [13:09:09.661] }
  [13:09:09.662] - identifying globals and packages ...
  [13:09:09.663] getGlobalsAndPackages() ...
  [13:09:09.663] Searching for globals...
  [13:09:09.748] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:09.749] Searching for globals ... DONE
  [13:09:09.749] Resolving globals: FALSE
  [13:09:09.752] The total size of the 3 globals is 176 bytes (176 bytes)
  [13:09:09.753] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:09.753] - packages: [2] 'utils', 'foreach'
  [13:09:09.753] getGlobalsAndPackages() ... DONE
  [13:09:09.754] List of 3
  [13:09:09.754]  $ ...future.x_ii: NULL
  [13:09:09.754]  $ strategy2     : chr "cluster"
  [13:09:09.754]  $ bs            : int [1:3] 3 2 1
  [13:09:09.754]  - attr(*, "where")=List of 3
  [13:09:09.754]   ..$ ...future.x_ii:<environment: 0x55c30e0956f8> 
  [13:09:09.754]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:09.754]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:09.754]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.754]  - attr(*, "resolved")= logi FALSE
  [13:09:09.754]  - attr(*, "total_size")= num 176
  [13:09:09.779]   - R expression:
  [13:09:09.779] {
  [13:09:09.779]     doFuture::registerDoFuture()
  [13:09:09.779]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.779]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.779]         a <- NULL
  [13:09:09.779]         ...future.env <- environment()
  [13:09:09.779]         local({
  [13:09:09.779]             for (name in names(...future.x_jj)) {
  [13:09:09.779]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.779]                   inherits = FALSE)
  [13:09:09.779]             }
  [13:09:09.779]         })
  [13:09:09.779]         tryCatch({
  [13:09:09.779]             plan_list <- future::plan()
  [13:09:09.779]             stopifnot(inherits(plan_list, strategy2))
  [13:09:09.779]             plan_a <- future::plan("list")
  [13:09:09.779]             str(plan_a)
  [13:09:09.779]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:09.779]             message("foreach() - level 2 ...")
  [13:09:09.779]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:09.779]                 {
  [13:09:09.779]                   plan_list <- future::plan()
  [13:09:09.779]                   message(capture.output(print(plan_list)))
  [13:09:09.779]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.779]                     getOption("future.default", "sequential")))
  [13:09:09.779]                   plan_b <- future::plan("list")
  [13:09:09.779]                   str(plan_b)
  [13:09:09.779]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:09.779]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:09.779]                       "sequential")))
  [13:09:09.779]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.779]                 }
  [13:09:09.779]             message("foreach() - level 2 ... DONE")
  [13:09:09.779]             y
  [13:09:09.779]         }, error = identity)
  [13:09:09.779]     })
  [13:09:09.779] }
  [13:09:09.780]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:09.781] List of 3
  [13:09:09.781]  $ ...future.x_ii: NULL
  [13:09:09.781]  $ strategy2     : chr "cluster"
  [13:09:09.781]  $ bs            : int [1:3] 3 2 1
  [13:09:09.781]  - attr(*, "where")=List of 3
  [13:09:09.781]   ..$ ...future.x_ii:<environment: 0x55c30e0956f8> 
  [13:09:09.781]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:09.781]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:09.781]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.781]  - attr(*, "resolved")= logi FALSE
  [13:09:09.781]  - attr(*, "total_size")= num 176
  [13:09:09.791]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:09.791] - identifying globals and packages ... DONE
  [13:09:09.796] Number of chunks: 1
  [13:09:09.796] Number of futures (= number of chunks): 1
  [13:09:09.796] Launching 1 futures (chunks) ...
  [13:09:09.797] Chunk #1 of 1 ...
  [13:09:09.797]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:09.797] getGlobalsAndPackages() ...
  [13:09:09.797] Searching for globals...
  [13:09:09.798] 
  [13:09:09.799] Searching for globals ... DONE
  [13:09:09.799] - globals: [0] <none>
  [13:09:09.799] getGlobalsAndPackages() ... DONE
  [13:09:09.800] 
  [13:09:09.800] 
  [13:09:09.800]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:09.801] getGlobalsAndPackages() ...
  [13:09:09.801] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:09.801] Resolving globals: FALSE
  [13:09:09.803] The total size of the 3 globals is 288 bytes (288 bytes)
  [13:09:09.803] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:09.803] 
  [13:09:09.804] getGlobalsAndPackages() ... DONE
  [13:09:09.805] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:09.806] Packages needed by future strategies (n = 1): 'future'
  [13:09:09.810] {
  [13:09:09.810]     {
  [13:09:09.810]         ...future.startTime <- Sys.time()
  [13:09:09.810]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:09.810]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:09.810]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:09.810]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:09.810]             future.resolve.recursive = NULL, width = 80L)
  [13:09:09.810]         {
  [13:09:09.810]             {
  [13:09:09.810]                 {
  [13:09:09.810]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:09.810]                   version <- if (has_future) 
  [13:09:09.810]                     packageVersion("future")
  [13:09:09.810]                   else NULL
  [13:09:09.810]                   if (!has_future || version < "1.8.0") {
  [13:09:09.810]                     info <- c(r_version = gsub("R version ", 
  [13:09:09.810]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:09.810]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:09.810]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:09.810]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:09.810]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:09.810]                     info <- paste(info, collapse = "; ")
  [13:09:09.810]                     if (!has_future) {
  [13:09:09.810]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:09.810]                         info)
  [13:09:09.810]                     }
  [13:09:09.810]                     else {
  [13:09:09.810]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:09.810]                         info, version)
  [13:09:09.810]                     }
  [13:09:09.810]                     stop(msg)
  [13:09:09.810]                   }
  [13:09:09.810]                 }
  [13:09:09.810]                 local({
  [13:09:09.810]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:09.810]                   "future")) {
  [13:09:09.810]                     loadNamespace(pkg)
  [13:09:09.810]                     library(pkg, character.only = TRUE)
  [13:09:09.810]                   }
  [13:09:09.810]                 })
  [13:09:09.810]             }
  [13:09:09.810]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:09.810]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:09.810]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:09.810]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:09.810]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:09.810]                 ...) 
  [13:09:09.810]             {
  [13:09:09.810]                 if (substitute) 
  [13:09:09.810]                   expr <- substitute(expr)
  [13:09:09.810]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:09.810]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:09.810]                   globals = globals, persistent = persistent, 
  [13:09:09.810]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:09.810]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:09.810]                   label = label, ...)
  [13:09:09.810]                 if (!future$lazy) 
  [13:09:09.810]                   future <- run(future)
  [13:09:09.810]                 invisible(future)
  [13:09:09.810]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:09.810]         }
  [13:09:09.810]     }
  [13:09:09.810]     if (is.na(TRUE)) {
  [13:09:09.810]     }
  [13:09:09.810]     else {
  [13:09:09.810]         if (TRUE) {
  [13:09:09.810]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:09.810]         }
  [13:09:09.810]         else {
  [13:09:09.810]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:09.810]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:09.810]         }
  [13:09:09.810]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:09.810]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:09.810]             sink(type = "output", split = FALSE)
  [13:09:09.810]             close(...future.stdout)
  [13:09:09.810]         }, add = TRUE)
  [13:09:09.810]     }
  [13:09:09.810]     ...future.frame <- sys.nframe()
  [13:09:09.810]     ...future.conditions <- list()
  [13:09:09.810]     ...future.result <- tryCatch({
  [13:09:09.810]         withCallingHandlers({
  [13:09:09.810]             ...future.value <- local({
  [13:09:09.810]                 doFuture::registerDoFuture()
  [13:09:09.810]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.810]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.810]                   a <- NULL
  [13:09:09.810]                   ...future.env <- environment()
  [13:09:09.810]                   local({
  [13:09:09.810]                     for (name in names(...future.x_jj)) {
  [13:09:09.810]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.810]                         inherits = FALSE)
  [13:09:09.810]                     }
  [13:09:09.810]                   })
  [13:09:09.810]                   tryCatch({
  [13:09:09.810]                     plan_list <- future::plan()
  [13:09:09.810]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:09.810]                     plan_a <- future::plan("list")
  [13:09:09.810]                     str(plan_a)
  [13:09:09.810]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:09.810]                     message("foreach() - level 2 ...")
  [13:09:09.810]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:09.810]                       {
  [13:09:09.810]                         plan_list <- future::plan()
  [13:09:09.810]                         message(capture.output(print(plan_list)))
  [13:09:09.810]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:09.810]                           inherits(plan_list, getOption("future.default", 
  [13:09:09.810]                             "sequential")))
  [13:09:09.810]                         plan_b <- future::plan("list")
  [13:09:09.810]                         str(plan_b)
  [13:09:09.810]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:09.810]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:09.810]                             "sequential")))
  [13:09:09.810]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.810]                       }
  [13:09:09.810]                     message("foreach() - level 2 ... DONE")
  [13:09:09.810]                     y
  [13:09:09.810]                   }, error = identity)
  [13:09:09.810]                 })
  [13:09:09.810]             })
  [13:09:09.810]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:09.810]                 version = "1.8")
  [13:09:09.810]         }, condition = local({
  [13:09:09.810]             inherits <- base::inherits
  [13:09:09.810]             invokeRestart <- base::invokeRestart
  [13:09:09.810]             length <- base::length
  [13:09:09.810]             seq.int <- base::seq.int
  [13:09:09.810]             sys.calls <- base::sys.calls
  [13:09:09.810]             `[[` <- base::`[[`
  [13:09:09.810]             `+` <- base::`+`
  [13:09:09.810]             `<<-` <- base::`<<-`
  [13:09:09.810]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:09.810]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:09.810]                   3L)]
  [13:09:09.810]             }
  [13:09:09.810]             function(cond) {
  [13:09:09.810]                 if (inherits(cond, "error")) {
  [13:09:09.810]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.810]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:09.810]                     cond$call), timestamp = base::Sys.time())
  [13:09:09.810]                   signalCondition(cond)
  [13:09:09.810]                 }
  [13:09:09.810]                 else if (inherits(cond, c("message", "warning"
  [13:09:09.810]                 ))) {
  [13:09:09.810]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:09.810]                     1L]] <<- list(condition = cond)
  [13:09:09.810]                   if (inherits(cond, "message")) {
  [13:09:09.810]                     invokeRestart("muffleMessage")
  [13:09:09.810]                   }
  [13:09:09.810]                   else if (inherits(cond, "warning")) {
  [13:09:09.810]                     invokeRestart("muffleWarning")
  [13:09:09.810]                   }
  [13:09:09.810]                 }
  [13:09:09.810]             }
  [13:09:09.810]         }))
  [13:09:09.810]     }, error = function(ex) {
  [13:09:09.810]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:09.810]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:09.810]             class = "FutureResult")
  [13:09:09.810]     }, finally = {
  [13:09:09.810]         {
  [13:09:09.810]             NULL
  [13:09:09.810]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:09.810]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:09.810]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:09.810]                 label = NULL, ...) 
  [13:09:09.810]             {
  [13:09:09.810]                 if (substitute) 
  [13:09:09.810]                   expr <- substitute(expr)
  [13:09:09.810]                 local <- as.logical(local)
  [13:09:09.810]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:09.810]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:09.810]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:09.810]                   label = label, ...)
  [13:09:09.810]                 if (!future$lazy) 
  [13:09:09.810]                   future <- run(future)
  [13:09:09.810]                 invisible(future)
  [13:09:09.810]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:09.810]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:09:09.810]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:09:09.810]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:09.810]                 label = NULL, ...) 
  [13:09:09.810]             {
  [13:09:09.810]                 if (substitute) 
  [13:09:09.810]                   expr <- substitute(expr)
  [13:09:09.810]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:09.810]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:09.810]                   globals = globals, persistent = persistent, 
  [13:09:09.810]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:09.810]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:09.810]                   label = label, ...)
  [13:09:09.810]                 if (!future$lazy) 
  [13:09:09.810]                   future <- run(future)
  [13:09:09.810]                 invisible(future)
  [13:09:09.810]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:09.810]         }
  [13:09:09.810]         options(...future.oldOptions)
  [13:09:09.810]     })
  [13:09:09.810]     if (is.na(TRUE)) {
  [13:09:09.810]     }
  [13:09:09.810]     else {
  [13:09:09.810]         sink(type = "output", split = FALSE)
  [13:09:09.810]         if (TRUE) {
  [13:09:09.810]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:09.810]         }
  [13:09:09.810]         else {
  [13:09:09.810]             ...future.result["stdout"] <- list(NULL)
  [13:09:09.810]         }
  [13:09:09.810]         close(...future.stdout)
  [13:09:09.810]         ...future.stdout <- NULL
  [13:09:09.810]     }
  [13:09:09.810]     ...future.result$conditions <- ...future.conditions
  [13:09:09.810]     ...future.result
  [13:09:09.810] }
  [13:09:09.817] plan(): Setting new future strategy stack:
  [13:09:09.817] List of future strategies:
  [13:09:09.817] 1. cluster:
  [13:09:09.817]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:09.817]    - tweaked: FALSE
  [13:09:09.817]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:09.821] plan(): nbrOfWorkers() = 2
  [13:09:26.256] plan(): Setting new future strategy stack:
  [13:09:26.256] List of future strategies:
  [13:09:26.256] 1. sequential:
  [13:09:26.256]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.256]    - tweaked: FALSE
  [13:09:26.256]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.256] 2. cluster:
  [13:09:26.256]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.256]    - tweaked: FALSE
  [13:09:26.256]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.258] plan(): nbrOfWorkers() = 1
  [13:09:26.259] SequentialFuture started (and completed)
  [13:09:26.259] Chunk #1 of 1 ... DONE
  [13:09:26.259] Launching 1 futures (chunks) ... DONE
  [13:09:26.260] - resolving futures
  [13:09:26.260] resolve() on list ...
  [13:09:26.260]  recursive: 0
  [13:09:26.261]  length: 1
  [13:09:26.261] 
  [13:09:26.261]  length: 0 (resolved future 1)
  [13:09:26.262] resolve() on list ... DONE
  [13:09:26.262] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.262] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:09.833] doFuture() ...
  [13:09:09.835] - dummy globals (as locals): [1] 'b'
  [13:09:09.836] - R expression:
  [13:09:09.836] {
  [13:09:09.836]     doFuture::registerDoFuture()
  [13:09:09.836]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.836]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.836]         b <- NULL
  [13:09:09.836]         ...future.env <- environment()
  [13:09:09.836]         local({
  [13:09:09.836]             for (name in names(...future.x_jj)) {
  [13:09:09.836]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.836]                   inherits = FALSE)
  [13:09:09.836]             }
  [13:09:09.836]         })
  [13:09:09.836]         tryCatch({
  [13:09:09.836]             plan_list <- future::plan()
  [13:09:09.836]             message(capture.output(print(plan_list)))
  [13:09:09.836]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.836]                 getOption("future.default", "sequential")))
  [13:09:09.836]             plan_b <- future::plan("list")
  [13:09:09.836]             str(plan_b)
  [13:09:09.836]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:09.836]                 getOption("future.default", "sequential")))
  [13:09:09.836]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.836]         }, error = identity)
  [13:09:09.836]     })
  [13:09:09.836] }
  [13:09:09.838] - identifying globals and packages ...
  [13:09:09.838] getGlobalsAndPackages() ...
  [13:09:09.839] Searching for globals...
  [13:09:09.862] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:09.863] Searching for globals ... DONE
  [13:09:09.863] Resolving globals: FALSE
  [13:09:09.866] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:09:09.867] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.867] - packages: [1] 'utils'
  [13:09:09.868] getGlobalsAndPackages() ... DONE
  [13:09:09.868] List of 3
  [13:09:09.868]  $ ...future.x_ii: NULL
  [13:09:09.868]  $ a             : int 1
  [13:09:09.868]  $ plan_a        :List of 1
  [13:09:09.868]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:09.868]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:09.868]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:09.868]     label = NULL, ...)  
  [13:09:09.868]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:09.868]   .. ..- attr(*, "init")= logi TRUE
  [13:09:09.868]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:09.868]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:09.868]  - attr(*, "where")=List of 3
  [13:09:09.868]   ..$ ...future.x_ii:<environment: 0x55c30ecb3ea0> 
  [13:09:09.868]   ..$ a             :<environment: 0x55c3104c1160> 
  [13:09:09.868]   ..$ plan_a        :<environment: 0x55c3104c1160> 
  [13:09:09.868]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.868]  - attr(*, "resolved")= logi FALSE
  [13:09:09.868]  - attr(*, "total_size")= num 66056
  [13:09:09.890]   - R expression:
  [13:09:09.890] {
  [13:09:09.890]     doFuture::registerDoFuture()
  [13:09:09.890]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:09.890]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:09.890]         b <- NULL
  [13:09:09.890]         ...future.env <- environment()
  [13:09:09.890]         local({
  [13:09:09.890]             for (name in names(...future.x_jj)) {
  [13:09:09.890]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:09.890]                   inherits = FALSE)
  [13:09:09.890]             }
  [13:09:09.890]         })
  [13:09:09.890]         tryCatch({
  [13:09:09.890]             plan_list <- future::plan()
  [13:09:09.890]             message(capture.output(print(plan_list)))
  [13:09:09.890]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:09.890]                 getOption("future.default", "sequential")))
  [13:09:09.890]             plan_b <- future::plan("list")
  [13:09:09.890]             str(plan_b)
  [13:09:09.890]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:09.890]                 getOption("future.default", "sequential")))
  [13:09:09.890]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:09.890]         }, error = identity)
  [13:09:09.890]     })
  [13:09:09.890] }
  [13:09:09.891]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:09.892] List of 3
  [13:09:09.892]  $ ...future.x_ii: NULL
  [13:09:09.892]  $ a             : int 1
  [13:09:09.892]  $ plan_a        :List of 1
  [13:09:09.892]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:09.892]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:09.892]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:09.892]     label = NULL, ...)  
  [13:09:09.892]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:09.892]   .. ..- attr(*, "init")= logi TRUE
  [13:09:09.892]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:09.892]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:09.892]  - attr(*, "where")=List of 3
  [13:09:09.892]   ..$ ...future.x_ii:<environment: 0x55c30ecb3ea0> 
  [13:09:09.892]   ..$ a             :<environment: 0x55c3104c1160> 
  [13:09:09.892]   ..$ plan_a        :<environment: 0x55c3104c1160> 
  [13:09:09.892]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:09.892]  - attr(*, "resolved")= logi FALSE
  [13:09:09.892]  - attr(*, "total_size")= num 66056
  [13:09:09.906]   - packages: [2] 'doFuture', 'utils'
  [13:09:09.906] - identifying globals and packages ... DONE
  [13:09:09.908] Number of chunks: 2
  [13:09:09.908] Number of futures (= number of chunks): 2
  [13:09:09.909] Launching 2 futures (chunks) ...
  [13:09:09.909] Chunk #1 of 2 ...
  [13:09:09.909]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:09.910] getGlobalsAndPackages() ...
  [13:09:09.910] Searching for globals...
  [13:09:09.911] 
  [13:09:09.912] Searching for globals ... DONE
  [13:09:09.912] - globals: [0] <none>
  [13:09:09.912] getGlobalsAndPackages() ... DONE
  [13:09:09.913] 
  [13:09:09.913] 
  [13:09:09.913]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d5ec7b8c7.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d5ec7b8c7.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d5ec7b8c7.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d661df2d6.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d661df2d6.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d661df2d6.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:09:24.868] getGlobalsAndPackages() ...
  [13:09:24.869] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:24.869] Resolving globals: FALSE
  [13:09:24.871] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [13:09:24.872] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:24.872] 
  [13:09:24.873] getGlobalsAndPackages() ... DONE
  [13:09:24.891] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:24.891] Packages needed by future strategies (n = 0): <none>
  [13:09:24.904] {
  [13:09:24.904]     {
  [13:09:24.904]         ...future.startTime <- Sys.time()
  [13:09:24.904]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:24.904]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:24.904]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:24.904]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:24.904]             future.resolve.recursive = NULL, width = 80L)
  [13:09:24.904]         {
  [13:09:24.904]             {
  [13:09:24.904]                 {
  [13:09:24.904]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:24.904]                   version <- if (has_future) 
  [13:09:24.904]                     packageVersion("future")
  [13:09:24.904]                   else NULL
  [13:09:24.904]                   if (!has_future || version < "1.8.0") {
  [13:09:24.904]                     info <- c(r_version = gsub("R version ", 
  [13:09:24.904]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:24.904]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:24.904]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:24.904]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:24.904]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:24.904]                     info <- paste(info, collapse = "; ")
  [13:09:24.904]                     if (!has_future) {
  [13:09:24.904]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:24.904]                         info)
  [13:09:24.904]                     }
  [13:09:24.904]                     else {
  [13:09:24.904]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:24.904]                         info, version)
  [13:09:24.904]                     }
  [13:09:24.904]                     stop(msg)
  [13:09:24.904]                   }
  [13:09:24.904]                 }
  [13:09:24.904]                 local({
  [13:09:24.904]                   for (pkg in c("doFuture", "utils")) {
  [13:09:24.904]                     loadNamespace(pkg)
  [13:09:24.904]                     library(pkg, character.only = TRUE)
  [13:09:24.904]                   }
  [13:09:24.904]                 })
  [13:09:24.904]             }
  [13:09:24.904]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:24.904]         }
  [13:09:24.904]     }
  [13:09:24.904]     if (is.na(TRUE)) {
  [13:09:24.904]     }
  [13:09:24.904]     else {
  [13:09:24.904]         if (TRUE) {
  [13:09:24.904]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:24.904]         }
  [13:09:24.904]         else {
  [13:09:24.904]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:24.904]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:24.904]         }
  [13:09:24.904]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:24.904]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:24.904]             sink(type = "output", split = FALSE)
  [13:09:24.904]             close(...future.stdout)
  [13:09:24.904]         }, add = TRUE)
  [13:09:24.904]     }
  [13:09:24.904]     ...future.frame <- sys.nframe()
  [13:09:24.904]     ...future.conditions <- list()
  [13:09:24.904]     ...future.result <- tryCatch({
  [13:09:24.904]         withCallingHandlers({
  [13:09:24.904]             ...future.value <- local({
  [13:09:24.904]                 doFuture::registerDoFuture()
  [13:09:24.904]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:24.904]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:24.904]                   b <- NULL
  [13:09:24.904]                   ...future.env <- environment()
  [13:09:24.904]                   local({
  [13:09:24.904]                     for (name in names(...future.x_jj)) {
  [13:09:24.904]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:24.904]                         inherits = FALSE)
  [13:09:24.904]                     }
  [13:09:24.904]                   })
  [13:09:24.904]                   tryCatch({
  [13:09:24.904]                     plan_list <- future::plan()
  [13:09:24.904]                     message(capture.output(print(plan_list)))
  [13:09:24.904]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:24.904]                       inherits(plan_list, getOption("future.default", 
  [13:09:24.904]                         "sequential")))
  [13:09:24.904]                     plan_b <- future::plan("list")
  [13:09:24.904]                     str(plan_b)
  [13:09:24.904]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:24.904]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:24.904]                         "sequential")))
  [13:09:24.904]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:24.904]                   }, error = identity)
  [13:09:24.904]                 })
  [13:09:24.904]             })
  [13:09:24.904]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:24.904]                 version = "1.8")
  [13:09:24.904]         }, condition = local({
  [13:09:24.904]             inherits <- base::inherits
  [13:09:24.904]             invokeRestart <- base::invokeRestart
  [13:09:24.904]             length <- base::length
  [13:09:24.904]             seq.int <- base::seq.int
  [13:09:24.904]             sys.calls <- base::sys.calls
  [13:09:24.904]             `[[` <- base::`[[`
  [13:09:24.904]             `+` <- base::`+`
  [13:09:24.904]             `<<-` <- base::`<<-`
  [13:09:24.904]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:24.904]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:24.904]                   3L)]
  [13:09:24.904]             }
  [13:09:24.904]             function(cond) {
  [13:09:24.904]                 if (inherits(cond, "error")) {
  [13:09:24.904]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:24.904]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:24.904]                     cond$call), timestamp = base::Sys.time())
  [13:09:24.904]                   signalCondition(cond)
  [13:09:24.904]                 }
  [13:09:24.904]                 else if (inherits(cond, c("message", "warning"
  [13:09:24.904]                 ))) {
  [13:09:24.904]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:24.904]                     1L]] <<- list(condition = cond)
  [13:09:24.904]                   if (inherits(cond, "message")) {
  [13:09:24.904]                     invokeRestart("muffleMessage")
  [13:09:24.904]                   }
  [13:09:24.904]                   else if (inherits(cond, "warning")) {
  [13:09:24.904]                     invokeRestart("muffleWarning")
  [13:09:24.904]                   }
  [13:09:24.904]                 }
  [13:09:24.904]             }
  [13:09:24.904]         }))
  [13:09:24.904]     }, error = function(ex) {
  [13:09:24.904]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:24.904]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:24.904]             class = "FutureResult")
  [13:09:24.904]     }, finally = {
  [13:09:24.904]         {
  [13:09:24.904]             NULL
  [13:09:24.904]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:24.904]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:24.904]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:24.904]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:24.904]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:24.904]                 ...) 
  [13:09:24.904]             {
  [13:09:24.904]                 if (substitute) 
  [13:09:24.904]                   expr <- substitute(expr)
  [13:09:24.904]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:24.904]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:24.904]                   globals = globals, persistent = persistent, 
  [13:09:24.904]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:24.904]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:24.904]                   label = label, ...)
  [13:09:24.904]                 if (!future$lazy) 
  [13:09:24.904]                   future <- run(future)
  [13:09:24.904]                 invisible(future)
  [13:09:24.904]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:24.904]         }
  [13:09:24.904]         options(...future.oldOptions)
  [13:09:24.904]     })
  [13:09:24.904]     if (is.na(TRUE)) {
  [13:09:24.904]     }
  [13:09:24.904]     else {
  [13:09:24.904]         sink(type = "output", split = FALSE)
  [13:09:24.904]         if (TRUE) {
  [13:09:24.904]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:24.904]         }
  [13:09:24.904]         else {
  [13:09:24.904]             ...future.result["stdout"] <- list(NULL)
  [13:09:24.904]         }
  [13:09:24.904]         close(...future.stdout)
  [13:09:24.904]         ...future.stdout <- NULL
  [13:09:24.904]     }
  [13:09:24.904]     ...future.result$conditions <- ...future.conditions
  [13:09:24.904]     ...future.result
  [13:09:24.904] }
  [13:09:24.935] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [13:09:24.935] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:09:24.937] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:09:24.938] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:24.939] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:24.940] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [13:09:24.983] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [13:09:24.984] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [13:09:24.985] ClusterFuture started
  [13:09:24.986] Chunk #1 of 2 ... DONE
  [13:09:24.986] Chunk #2 of 2 ...
  [13:09:24.986]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:24.987] getGlobalsAndPackages() ...
  [13:09:24.987] Searching for globals...
  [13:09:24.988] 
  [13:09:24.989] Searching for globals ... DONE
  [13:09:24.989] - globals: [0] <none>
  [13:09:24.990] getGlobalsAndPackages() ... DONE
  [13:09:24.990] 
  [13:09:24.991] 
  [13:09:24.991]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:25.009] getGlobalsAndPackages() ...
  [13:09:25.009] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.010] Resolving globals: FALSE
  [13:09:25.012] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [13:09:25.012] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.013] 
  [13:09:25.013] getGlobalsAndPackages() ... DONE
  [13:09:25.035] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:25.036] Packages needed by future strategies (n = 0): <none>
  [13:09:25.040] {
  [13:09:25.040]     {
  [13:09:25.040]         ...future.startTime <- Sys.time()
  [13:09:25.040]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:25.040]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:25.040]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:25.040]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:25.040]             future.resolve.recursive = NULL, width = 80L)
  [13:09:25.040]         {
  [13:09:25.040]             {
  [13:09:25.040]                 {
  [13:09:25.040]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:25.040]                   version <- if (has_future) 
  [13:09:25.040]                     packageVersion("future")
  [13:09:25.040]                   else NULL
  [13:09:25.040]                   if (!has_future || version < "1.8.0") {
  [13:09:25.040]                     info <- c(r_version = gsub("R version ", 
  [13:09:25.040]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:25.040]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:25.040]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:25.040]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:25.040]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:25.040]                     info <- paste(info, collapse = "; ")
  [13:09:25.040]                     if (!has_future) {
  [13:09:25.040]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:25.040]                         info)
  [13:09:25.040]                     }
  [13:09:25.040]                     else {
  [13:09:25.040]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:25.040]                         info, version)
  [13:09:25.040]                     }
  [13:09:25.040]                     stop(msg)
  [13:09:25.040]                   }
  [13:09:25.040]                 }
  [13:09:25.040]                 local({
  [13:09:25.040]                   for (pkg in c("doFuture", "utils")) {
  [13:09:25.040]                     loadNamespace(pkg)
  [13:09:25.040]                     library(pkg, character.only = TRUE)
  [13:09:25.040]                   }
  [13:09:25.040]                 })
  [13:09:25.040]             }
  [13:09:25.040]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:25.040]         }
  [13:09:25.040]     }
  [13:09:25.040]     if (is.na(TRUE)) {
  [13:09:25.040]     }
  [13:09:25.040]     else {
  [13:09:25.040]         if (TRUE) {
  [13:09:25.040]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:25.040]         }
  [13:09:25.040]         else {
  [13:09:25.040]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:25.040]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:25.040]         }
  [13:09:25.040]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:25.040]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:25.040]             sink(type = "output", split = FALSE)
  [13:09:25.040]             close(...future.stdout)
  [13:09:25.040]         }, add = TRUE)
  [13:09:25.040]     }
  [13:09:25.040]     ...future.frame <- sys.nframe()
  [13:09:25.040]     ...future.conditions <- list()
  [13:09:25.040]     ...future.result <- tryCatch({
  [13:09:25.040]         withCallingHandlers({
  [13:09:25.040]             ...future.value <- local({
  [13:09:25.040]                 doFuture::registerDoFuture()
  [13:09:25.040]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:25.040]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:25.040]                   b <- NULL
  [13:09:25.040]                   ...future.env <- environment()
  [13:09:25.040]                   local({
  [13:09:25.040]                     for (name in names(...future.x_jj)) {
  [13:09:25.040]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:25.040]                         inherits = FALSE)
  [13:09:25.040]                     }
  [13:09:25.040]                   })
  [13:09:25.040]                   tryCatch({
  [13:09:25.040]                     plan_list <- future::plan()
  [13:09:25.040]                     message(capture.output(print(plan_list)))
  [13:09:25.040]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:25.040]                       inherits(plan_list, getOption("future.default", 
  [13:09:25.040]                         "sequential")))
  [13:09:25.040]                     plan_b <- future::plan("list")
  [13:09:25.040]                     str(plan_b)
  [13:09:25.040]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:25.040]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:25.040]                         "sequential")))
  [13:09:25.040]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:25.040]                   }, error = identity)
  [13:09:25.040]                 })
  [13:09:25.040]             })
  [13:09:25.040]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:25.040]                 version = "1.8")
  [13:09:25.040]         }, condition = local({
  [13:09:25.040]             inherits <- base::inherits
  [13:09:25.040]             invokeRestart <- base::invokeRestart
  [13:09:25.040]             length <- base::length
  [13:09:25.040]             seq.int <- base::seq.int
  [13:09:25.040]             sys.calls <- base::sys.calls
  [13:09:25.040]             `[[` <- base::`[[`
  [13:09:25.040]             `+` <- base::`+`
  [13:09:25.040]             `<<-` <- base::`<<-`
  [13:09:25.040]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:25.040]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:25.040]                   3L)]
  [13:09:25.040]             }
  [13:09:25.040]             function(cond) {
  [13:09:25.040]                 if (inherits(cond, "error")) {
  [13:09:25.040]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:25.040]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:25.040]                     cond$call), timestamp = base::Sys.time())
  [13:09:25.040]                   signalCondition(cond)
  [13:09:25.040]                 }
  [13:09:25.040]                 else if (inherits(cond, c("message", "warning"
  [13:09:25.040]                 ))) {
  [13:09:25.040]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:25.040]                     1L]] <<- list(condition = cond)
  [13:09:25.040]                   if (inherits(cond, "message")) {
  [13:09:25.040]                     invokeRestart("muffleMessage")
  [13:09:25.040]                   }
  [13:09:25.040]                   else if (inherits(cond, "warning")) {
  [13:09:25.040]                     invokeRestart("muffleWarning")
  [13:09:25.040]                   }
  [13:09:25.040]                 }
  [13:09:25.040]             }
  [13:09:25.040]         }))
  [13:09:25.040]     }, error = function(ex) {
  [13:09:25.040]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:25.040]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:25.040]             class = "FutureResult")
  [13:09:25.040]     }, finally = {
  [13:09:25.040]         {
  [13:09:25.040]             NULL
  [13:09:25.040]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:25.040]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:25.040]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:25.040]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:25.040]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:25.040]                 ...) 
  [13:09:25.040]             {
  [13:09:25.040]                 if (substitute) 
  [13:09:25.040]                   expr <- substitute(expr)
  [13:09:25.040]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:25.040]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:25.040]                   globals = globals, persistent = persistent, 
  [13:09:25.040]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:25.040]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:25.040]                   label = label, ...)
  [13:09:25.040]                 if (!future$lazy) 
  [13:09:25.040]                   future <- run(future)
  [13:09:25.040]                 invisible(future)
  [13:09:25.040]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:25.040]         }
  [13:09:25.040]         options(...future.oldOptions)
  [13:09:25.040]     })
  [13:09:25.040]     if (is.na(TRUE)) {
  [13:09:25.040]     }
  [13:09:25.040]     else {
  [13:09:25.040]         sink(type = "output", split = FALSE)
  [13:09:25.040]         if (TRUE) {
  [13:09:25.040]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:25.040]         }
  [13:09:25.040]         else {
  [13:09:25.040]             ...future.result["stdout"] <- list(NULL)
  [13:09:25.040]         }
  [13:09:25.040]         close(...future.stdout)
  [13:09:25.040]         ...future.stdout <- NULL
  [13:09:25.040]     }
  [13:09:25.040]     ...future.result$conditions <- ...future.conditions
  [13:09:25.040]     ...future.result
  [13:09:25.040] }
  [13:09:25.059] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [13:09:25.059] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:09:25.060] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:09:25.061] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:09:25.062] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:09:25.063] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [13:09:25.107] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [13:09:25.107] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [13:09:25.108] ClusterFuture started
  [13:09:25.109] Chunk #2 of 2 ... DONE
  [13:09:25.109] Launching 2 futures (chunks) ... DONE
  [13:09:25.110] - resolving futures
  [13:09:25.110] resolve() on list ...
  [13:09:25.110]  recursive: 0
  [13:09:25.111]  length: 2
  [13:09:25.111] 
  [13:09:25.617]  length: 1 (resolved future 1)
  [13:09:25.619]  length: 0 (resolved future 2)
  [13:09:25.619] resolve() on list ... DONE
  [13:09:25.619] - relaying conditions of futures
  [13:09:25.620] result() for ClusterFuture ...
  [13:09:25.620] - Validating connection of ClusterFuture
  [13:09:25.621] - class(result): FutureResult
  [13:09:25.622] Future state: 'finished'
  [13:09:25.622] result() for ClusterFuture ...
  [13:09:25.623] - result already collected: FutureResult
  [13:09:25.623] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:25.624] result() for ClusterFuture ...
  [13:09:25.624] - Validating connection of ClusterFuture
  [13:09:25.625] - class(result): FutureResult
  [13:09:25.626] Future state: 'finished'
  [13:09:25.627] result() for ClusterFuture ...
  [13:09:25.627] - result already collected: FutureResult
  [13:09:25.627] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:25.628] - collecting values of futures
  [13:09:25.629] result() for ClusterFuture ...
  [13:09:25.629] - result already collected: FutureResult
  [13:09:25.629] result() for ClusterFuture ... done
  [13:09:25.630] result() for ClusterFuture ...
  [13:09:25.646] - result already collected: FutureResult
  [13:09:25.647] result() for ClusterFuture ... done
  [13:09:25.648] - accumulating results
  [13:09:25.649] - processing errors (handler = 'stop')
  [13:09:25.649] - extracting results
  [13:09:25.650] doFuture() ... DONE
  foreach() - level 2 ... DONE
  foreach() - level 2 ...
  [13:09:25.662] doFuture() ...
  [13:09:25.680] - dummy globals (as locals): [1] 'b'
  [13:09:25.681] - R expression:
  [13:09:25.681] {
  [13:09:25.681]     doFuture::registerDoFuture()
  [13:09:25.681]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:25.681]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:25.681]         b <- NULL
  [13:09:25.681]         ...future.env <- environment()
  [13:09:25.681]         local({
  [13:09:25.681]             for (name in names(...future.x_jj)) {
  [13:09:25.681]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:25.681]                   inherits = FALSE)
  [13:09:25.681]             }
  [13:09:25.681]         })
  [13:09:25.681]         tryCatch({
  [13:09:25.681]             plan_list <- future::plan()
  [13:09:25.681]             message(capture.output(print(plan_list)))
  [13:09:25.681]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:25.681]                 getOption("future.default", "sequential")))
  [13:09:25.681]             plan_b <- future::plan("list")
  [13:09:25.681]             str(plan_b)
  [13:09:25.681]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:25.681]                 getOption("future.default", "sequential")))
  [13:09:25.681]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:25.681]         }, error = identity)
  [13:09:25.681]     })
  [13:09:25.681] }
  [13:09:25.683] - identifying globals and packages ...
  [13:09:25.683] getGlobalsAndPackages() ...
  [13:09:25.684] Searching for globals...
  [13:09:25.726] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:25.726] Searching for globals ... DONE
  [13:09:25.743] Resolving globals: FALSE
  [13:09:25.746] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:09:25.746] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.747] - packages: [1] 'utils'
  [13:09:25.747] getGlobalsAndPackages() ... DONE
  [13:09:25.748] List of 3
  [13:09:25.748]  $ ...future.x_ii: NULL
  [13:09:25.748]  $ a             : int 2
  [13:09:25.748]  $ plan_a        :List of 1
  [13:09:25.748]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:25.748]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:25.748]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:25.748]     label = NULL, ...)  
  [13:09:25.748]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:25.748]   .. ..- attr(*, "init")= logi TRUE
  [13:09:25.748]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:25.748]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:25.748]  - attr(*, "where")=List of 3
  [13:09:25.748]   ..$ ...future.x_ii:<environment: 0x55c3104e69b8> 
  [13:09:25.748]   ..$ a             :<environment: 0x55c3100adba8> 
  [13:09:25.748]   ..$ plan_a        :<environment: 0x55c3100adba8> 
  [13:09:25.748]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:25.748]  - attr(*, "resolved")= logi FALSE
  [13:09:25.748]  - attr(*, "total_size")= num 66056
  [13:09:25.784]   - R expression:
  [13:09:25.784] {
  [13:09:25.784]     doFuture::registerDoFuture()
  [13:09:25.784]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:25.784]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:25.784]         b <- NULL
  [13:09:25.784]         ...future.env <- environment()
  [13:09:25.784]         local({
  [13:09:25.784]             for (name in names(...future.x_jj)) {
  [13:09:25.784]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:25.784]                   inherits = FALSE)
  [13:09:25.784]             }
  [13:09:25.784]         })
  [13:09:25.784]         tryCatch({
  [13:09:25.784]             plan_list <- future::plan()
  [13:09:25.784]             message(capture.output(print(plan_list)))
  [13:09:25.784]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:25.784]                 getOption("future.default", "sequential")))
  [13:09:25.784]             plan_b <- future::plan("list")
  [13:09:25.784]             str(plan_b)
  [13:09:25.784]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:25.784]                 getOption("future.default", "sequential")))
  [13:09:25.784]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:25.784]         }, error = identity)
  [13:09:25.784]     })
  [13:09:25.784] }
  [13:09:25.786]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.786] List of 3
  [13:09:25.786]  $ ...future.x_ii: NULL
  [13:09:25.786]  $ a             : int 2
  [13:09:25.786]  $ plan_a        :List of 1
  [13:09:25.786]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:25.786]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:25.786]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:25.786]     label = NULL, ...)  
  [13:09:25.786]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:25.786]   .. ..- attr(*, "init")= logi TRUE
  [13:09:25.786]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:25.786]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:25.786]  - attr(*, "where")=List of 3
  [13:09:25.786]   ..$ ...future.x_ii:<environment: 0x55c3104e69b8> 
  [13:09:25.786]   ..$ a             :<environment: 0x55c3100adba8> 
  [13:09:25.786]   ..$ plan_a        :<environment: 0x55c3100adba8> 
  [13:09:25.786]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:25.786]  - attr(*, "resolved")= logi FALSE
  [13:09:25.786]  - attr(*, "total_size")= num 66056
  [13:09:25.817]   - packages: [2] 'doFuture', 'utils'
  [13:09:25.817] - identifying globals and packages ... DONE
  [13:09:25.819] Number of chunks: 2
  [13:09:25.820] Number of futures (= number of chunks): 2
  [13:09:25.820] Launching 2 futures (chunks) ...
  [13:09:25.820] Chunk #1 of 2 ...
  [13:09:25.821]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:25.821] getGlobalsAndPackages() ...
  [13:09:25.822] Searching for globals...
  [13:09:25.839] 
  [13:09:25.839] Searching for globals ... DONE
  [13:09:25.840] - globals: [0] <none>
  [13:09:25.840] getGlobalsAndPackages() ... DONE
  [13:09:25.840] 
  [13:09:25.841] 
  [13:09:25.841]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:25.850] getGlobalsAndPackages() ...
  [13:09:25.851] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.852] Resolving globals: FALSE
  [13:09:25.853] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [13:09:25.854] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.854] 
  [13:09:25.871] getGlobalsAndPackages() ... DONE
  [13:09:25.873] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:25.874] Packages needed by future strategies (n = 0): <none>
  [13:09:25.878] {
  [13:09:25.878]     {
  [13:09:25.878]         ...future.startTime <- Sys.time()
  [13:09:25.878]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:25.878]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:25.878]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:25.878]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:25.878]             future.resolve.recursive = NULL, width = 80L)
  [13:09:25.878]         {
  [13:09:25.878]             {
  [13:09:25.878]                 {
  [13:09:25.878]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:25.878]                   version <- if (has_future) 
  [13:09:25.878]                     packageVersion("future")
  [13:09:25.878]                   else NULL
  [13:09:25.878]                   if (!has_future || version < "1.8.0") {
  [13:09:25.878]                     info <- c(r_version = gsub("R version ", 
  [13:09:25.878]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:25.878]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:25.878]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:25.878]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:25.878]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:25.878]                     info <- paste(info, collapse = "; ")
  [13:09:25.878]                     if (!has_future) {
  [13:09:25.878]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:25.878]                         info)
  [13:09:25.878]                     }
  [13:09:25.878]                     else {
  [13:09:25.878]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:25.878]                         info, version)
  [13:09:25.878]                     }
  [13:09:25.878]                     stop(msg)
  [13:09:25.878]                   }
  [13:09:25.878]                 }
  [13:09:25.878]                 local({
  [13:09:25.878]                   for (pkg in c("doFuture", "utils")) {
  [13:09:25.878]                     loadNamespace(pkg)
  [13:09:25.878]                     library(pkg, character.only = TRUE)
  [13:09:25.878]                   }
  [13:09:25.878]                 })
  [13:09:25.878]             }
  [13:09:25.878]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:25.878]         }
  [13:09:25.878]     }
  [13:09:25.878]     if (is.na(TRUE)) {
  [13:09:25.878]     }
  [13:09:25.878]     else {
  [13:09:25.878]         if (TRUE) {
  [13:09:25.878]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:25.878]         }
  [13:09:25.878]         else {
  [13:09:25.878]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:25.878]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:25.878]         }
  [13:09:25.878]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:25.878]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:25.878]             sink(type = "output", split = FALSE)
  [13:09:25.878]             close(...future.stdout)
  [13:09:25.878]         }, add = TRUE)
  [13:09:25.878]     }
  [13:09:25.878]     ...future.frame <- sys.nframe()
  [13:09:25.878]     ...future.conditions <- list()
  [13:09:25.878]     ...future.result <- tryCatch({
  [13:09:25.878]         withCallingHandlers({
  [13:09:25.878]             ...future.value <- local({
  [13:09:25.878]                 doFuture::registerDoFuture()
  [13:09:25.878]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:25.878]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:25.878]                   b <- NULL
  [13:09:25.878]                   ...future.env <- environment()
  [13:09:25.878]                   local({
  [13:09:25.878]                     for (name in names(...future.x_jj)) {
  [13:09:25.878]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:25.878]                         inherits = FALSE)
  [13:09:25.878]                     }
  [13:09:25.878]                   })
  [13:09:25.878]                   tryCatch({
  [13:09:25.878]                     plan_list <- future::plan()
  [13:09:25.878]                     message(capture.output(print(plan_list)))
  [13:09:25.878]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:25.878]                       inherits(plan_list, getOption("future.default", 
  [13:09:25.878]                         "sequential")))
  [13:09:25.878]                     plan_b <- future::plan("list")
  [13:09:25.878]                     str(plan_b)
  [13:09:25.878]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:25.878]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:25.878]                         "sequential")))
  [13:09:25.878]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:25.878]                   }, error = identity)
  [13:09:25.878]                 })
  [13:09:25.878]             })
  [13:09:25.878]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:25.878]                 version = "1.8")
  [13:09:25.878]         }, condition = local({
  [13:09:25.878]             inherits <- base::inherits
  [13:09:25.878]             invokeRestart <- base::invokeRestart
  [13:09:25.878]             length <- base::length
  [13:09:25.878]             seq.int <- base::seq.int
  [13:09:25.878]             sys.calls <- base::sys.calls
  [13:09:25.878]             `[[` <- base::`[[`
  [13:09:25.878]             `+` <- base::`+`
  [13:09:25.878]             `<<-` <- base::`<<-`
  [13:09:25.878]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:25.878]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:25.878]                   3L)]
  [13:09:25.878]             }
  [13:09:25.878]             function(cond) {
  [13:09:25.878]                 if (inherits(cond, "error")) {
  [13:09:25.878]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:25.878]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:25.878]                     cond$call), timestamp = base::Sys.time())
  [13:09:25.878]                   signalCondition(cond)
  [13:09:25.878]                 }
  [13:09:25.878]                 else if (inherits(cond, c("message", "warning"
  [13:09:25.878]                 ))) {
  [13:09:25.878]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:25.878]                     1L]] <<- list(condition = cond)
  [13:09:25.878]                   if (inherits(cond, "message")) {
  [13:09:25.878]                     invokeRestart("muffleMessage")
  [13:09:25.878]                   }
  [13:09:25.878]                   else if (inherits(cond, "warning")) {
  [13:09:25.878]                     invokeRestart("muffleWarning")
  [13:09:25.878]                   }
  [13:09:25.878]                 }
  [13:09:25.878]             }
  [13:09:25.878]         }))
  [13:09:25.878]     }, error = function(ex) {
  [13:09:25.878]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:25.878]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:25.878]             class = "FutureResult")
  [13:09:25.878]     }, finally = {
  [13:09:25.878]         {
  [13:09:25.878]             NULL
  [13:09:25.878]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:25.878]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:25.878]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:25.878]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:25.878]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:25.878]                 ...) 
  [13:09:25.878]             {
  [13:09:25.878]                 if (substitute) 
  [13:09:25.878]                   expr <- substitute(expr)
  [13:09:25.878]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:25.878]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:25.878]                   globals = globals, persistent = persistent, 
  [13:09:25.878]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:25.878]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:25.878]                   label = label, ...)
  [13:09:25.878]                 if (!future$lazy) 
  [13:09:25.878]                   future <- run(future)
  [13:09:25.878]                 invisible(future)
  [13:09:25.878]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:25.878]         }
  [13:09:25.878]         options(...future.oldOptions)
  [13:09:25.878]     })
  [13:09:25.878]     if (is.na(TRUE)) {
  [13:09:25.878]     }
  [13:09:25.878]     else {
  [13:09:25.878]         sink(type = "output", split = FALSE)
  [13:09:25.878]         if (TRUE) {
  [13:09:25.878]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:25.878]         }
  [13:09:25.878]         else {
  [13:09:25.878]             ...future.result["stdout"] <- list(NULL)
  [13:09:25.878]         }
  [13:09:25.878]         close(...future.stdout)
  [13:09:25.878]         ...future.stdout <- NULL
  [13:09:25.878]     }
  [13:09:25.878]     ...future.result$conditions <- ...future.conditions
  [13:09:25.878]     ...future.result
  [13:09:25.878] }
  [13:09:25.894] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [13:09:25.895] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:09:25.896] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:09:25.897] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:25.898] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:25.899] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [13:09:25.943] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [13:09:25.944] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [13:09:25.945] ClusterFuture started
  [13:09:25.945] Chunk #1 of 2 ... DONE
  [13:09:25.950] Chunk #2 of 2 ...
  [13:09:25.951]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:25.951] getGlobalsAndPackages() ...
  [13:09:25.952] Searching for globals...
  [13:09:25.953] 
  [13:09:25.953] Searching for globals ... DONE
  [13:09:25.954] - globals: [0] <none>
  [13:09:25.954] getGlobalsAndPackages() ... DONE
  [13:09:25.955] 
  [13:09:25.955] 
  [13:09:25.956]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:25.964] getGlobalsAndPackages() ...
  [13:09:25.964] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.965] Resolving globals: FALSE
  [13:09:25.966] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [13:09:25.967] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:25.967] 
  [13:09:25.968] getGlobalsAndPackages() ... DONE
  [13:09:25.969] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:25.970] Packages needed by future strategies (n = 0): <none>
  [13:09:26.009] {
  [13:09:26.009]     {
  [13:09:26.009]         ...future.startTime <- Sys.time()
  [13:09:26.009]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:26.009]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:26.009]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:26.009]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:26.009]             future.resolve.recursive = NULL, width = 80L)
  [13:09:26.009]         {
  [13:09:26.009]             {
  [13:09:26.009]                 {
  [13:09:26.009]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:26.009]                   version <- if (has_future) 
  [13:09:26.009]                     packageVersion("future")
  [13:09:26.009]                   else NULL
  [13:09:26.009]                   if (!has_future || version < "1.8.0") {
  [13:09:26.009]                     info <- c(r_version = gsub("R version ", 
  [13:09:26.009]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:26.009]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:26.009]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:26.009]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:26.009]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:26.009]                     info <- paste(info, collapse = "; ")
  [13:09:26.009]                     if (!has_future) {
  [13:09:26.009]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:26.009]                         info)
  [13:09:26.009]                     }
  [13:09:26.009]                     else {
  [13:09:26.009]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:26.009]                         info, version)
  [13:09:26.009]                     }
  [13:09:26.009]                     stop(msg)
  [13:09:26.009]                   }
  [13:09:26.009]                 }
  [13:09:26.009]                 local({
  [13:09:26.009]                   for (pkg in c("doFuture", "utils")) {
  [13:09:26.009]                     loadNamespace(pkg)
  [13:09:26.009]                     library(pkg, character.only = TRUE)
  [13:09:26.009]                   }
  [13:09:26.009]                 })
  [13:09:26.009]             }
  [13:09:26.009]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:26.009]         }
  [13:09:26.009]     }
  [13:09:26.009]     if (is.na(TRUE)) {
  [13:09:26.009]     }
  [13:09:26.009]     else {
  [13:09:26.009]         if (TRUE) {
  [13:09:26.009]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:26.009]         }
  [13:09:26.009]         else {
  [13:09:26.009]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:26.009]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:26.009]         }
  [13:09:26.009]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:26.009]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:26.009]             sink(type = "output", split = FALSE)
  [13:09:26.009]             close(...future.stdout)
  [13:09:26.009]         }, add = TRUE)
  [13:09:26.009]     }
  [13:09:26.009]     ...future.frame <- sys.nframe()
  [13:09:26.009]     ...future.conditions <- list()
  [13:09:26.009]     ...future.result <- tryCatch({
  [13:09:26.009]         withCallingHandlers({
  [13:09:26.009]             ...future.value <- local({
  [13:09:26.009]                 doFuture::registerDoFuture()
  [13:09:26.009]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.009]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.009]                   b <- NULL
  [13:09:26.009]                   ...future.env <- environment()
  [13:09:26.009]                   local({
  [13:09:26.009]                     for (name in names(...future.x_jj)) {
  [13:09:26.009]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.009]                         inherits = FALSE)
  [13:09:26.009]                     }
  [13:09:26.009]                   })
  [13:09:26.009]                   tryCatch({
  [13:09:26.009]                     plan_list <- future::plan()
  [13:09:26.009]                     message(capture.output(print(plan_list)))
  [13:09:26.009]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:26.009]                       inherits(plan_list, getOption("future.default", 
  [13:09:26.009]                         "sequential")))
  [13:09:26.009]                     plan_b <- future::plan("list")
  [13:09:26.009]                     str(plan_b)
  [13:09:26.009]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.009]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.009]                         "sequential")))
  [13:09:26.009]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.009]                   }, error = identity)
  [13:09:26.009]                 })
  [13:09:26.009]             })
  [13:09:26.009]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:26.009]                 version = "1.8")
  [13:09:26.009]         }, condition = local({
  [13:09:26.009]             inherits <- base::inherits
  [13:09:26.009]             invokeRestart <- base::invokeRestart
  [13:09:26.009]             length <- base::length
  [13:09:26.009]             seq.int <- base::seq.int
  [13:09:26.009]             sys.calls <- base::sys.calls
  [13:09:26.009]             `[[` <- base::`[[`
  [13:09:26.009]             `+` <- base::`+`
  [13:09:26.009]             `<<-` <- base::`<<-`
  [13:09:26.009]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:26.009]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:26.009]                   3L)]
  [13:09:26.009]             }
  [13:09:26.009]             function(cond) {
  [13:09:26.009]                 if (inherits(cond, "error")) {
  [13:09:26.009]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.009]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:26.009]                     cond$call), timestamp = base::Sys.time())
  [13:09:26.009]                   signalCondition(cond)
  [13:09:26.009]                 }
  [13:09:26.009]                 else if (inherits(cond, c("message", "warning"
  [13:09:26.009]                 ))) {
  [13:09:26.009]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.009]                     1L]] <<- list(condition = cond)
  [13:09:26.009]                   if (inherits(cond, "message")) {
  [13:09:26.009]                     invokeRestart("muffleMessage")
  [13:09:26.009]                   }
  [13:09:26.009]                   else if (inherits(cond, "warning")) {
  [13:09:26.009]                     invokeRestart("muffleWarning")
  [13:09:26.009]                   }
  [13:09:26.009]                 }
  [13:09:26.009]             }
  [13:09:26.009]         }))
  [13:09:26.009]     }, error = function(ex) {
  [13:09:26.009]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:26.009]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:26.009]             class = "FutureResult")
  [13:09:26.009]     }, finally = {
  [13:09:26.009]         {
  [13:09:26.009]             NULL
  [13:09:26.009]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:26.009]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.009]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:26.009]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:26.009]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:26.009]                 ...) 
  [13:09:26.009]             {
  [13:09:26.009]                 if (substitute) 
  [13:09:26.009]                   expr <- substitute(expr)
  [13:09:26.009]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:26.009]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.009]                   globals = globals, persistent = persistent, 
  [13:09:26.009]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:26.009]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:26.009]                   label = label, ...)
  [13:09:26.009]                 if (!future$lazy) 
  [13:09:26.009]                   future <- run(future)
  [13:09:26.009]                 invisible(future)
  [13:09:26.009]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.009]         }
  [13:09:26.009]         options(...future.oldOptions)
  [13:09:26.009]     })
  [13:09:26.009]     if (is.na(TRUE)) {
  [13:09:26.009]     }
  [13:09:26.009]     else {
  [13:09:26.009]         sink(type = "output", split = FALSE)
  [13:09:26.009]         if (TRUE) {
  [13:09:26.009]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:26.009]         }
  [13:09:26.009]         else {
  [13:09:26.009]             ...future.result["stdout"] <- list(NULL)
  [13:09:26.009]         }
  [13:09:26.009]         close(...future.stdout)
  [13:09:26.009]         ...future.stdout <- NULL
  [13:09:26.009]     }
  [13:09:26.009]     ...future.result$conditions <- ...future.conditions
  [13:09:26.009]     ...future.result
  [13:09:26.009] }
  [13:09:26.027] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [13:09:26.027] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:09:26.028] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:09:26.029] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:09:26.030] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:09:26.031] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [13:09:26.075] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [13:09:26.076] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [13:09:26.077] ClusterFuture started
  [13:09:26.077] Chunk #2 of 2 ... DONE
  [13:09:26.078] Launching 2 futures (chunks) ... DONE
  [13:09:26.078] - resolving futures
  [13:09:26.078] resolve() on list ...
  [13:09:26.079]  recursive: 0
  [13:09:26.079]  length: 2
  [13:09:26.080] 
  [13:09:26.081]  length: 1 (resolved future 1)
  [13:09:26.206]  length: 0 (resolved future 2)
  [13:09:26.206] resolve() on list ... DONE
  [13:09:26.207] - relaying conditions of futures
  [13:09:26.207] result() for ClusterFuture ...
  [13:09:26.208] - Validating connection of ClusterFuture
  [13:09:26.209] - class(result): FutureResult
  [13:09:26.209] Future state: 'finished'
  [13:09:26.210] result() for ClusterFuture ...
  [13:09:26.210] - result already collected: FutureResult
  [13:09:26.210] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:26.211] result() for ClusterFuture ...
  [13:09:26.212] - Validating connection of ClusterFuture
  [13:09:26.247] - class(result): FutureResult
  [13:09:26.248] Future state: 'finished'
  [13:09:26.248] result() for ClusterFuture ...
  [13:09:26.248] - result already collected: FutureResult
  [13:09:26.249] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:26.250] - collecting values of futures
  [13:09:26.250] result() for ClusterFuture ...
  [13:09:26.251] - result already collected: FutureResult
  [13:09:26.251] result() for ClusterFuture ... done
  [13:09:26.251] result() for ClusterFuture ...
  [13:09:26.252] - result already collected: FutureResult
  [13:09:26.252] result() for ClusterFuture ... done
  [13:09:26.253] - accumulating results
  [13:09:26.254] - processing errors (handler = 'stop')
  [13:09:26.255] - extracting results
  [13:09:26.255] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:26.350] - collecting values of futures
  [13:09:26.351] - accumulating results
  [13:09:26.352] - processing errors (handler = 'stop')
  [13:09:26.352] - extracting results
  [13:09:26.352] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [13:09:26.354] plan(): Setting new future strategy stack:
  [13:09:26.354] List of future strategies:
  [13:09:26.354] 1. multicore:
  [13:09:26.354]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:26.354]    - tweaked: FALSE
  [13:09:26.354]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.354] 2. sequential:
  [13:09:26.354]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.354]    - tweaked: FALSE
  [13:09:26.354]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.375] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:09:26.376] doFuture() ...
  [13:09:26.378] - dummy globals (as locals): [1] 'a'
  [13:09:26.379] - R expression:
  [13:09:26.379] {
  [13:09:26.379]     doFuture::registerDoFuture()
  [13:09:26.379]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.379]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.379]         a <- NULL
  [13:09:26.379]         ...future.env <- environment()
  [13:09:26.379]         local({
  [13:09:26.379]             for (name in names(...future.x_jj)) {
  [13:09:26.379]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.379]                   inherits = FALSE)
  [13:09:26.379]             }
  [13:09:26.379]         })
  [13:09:26.379]         tryCatch({
  [13:09:26.379]             plan_list <- future::plan()
  [13:09:26.379]             stopifnot(inherits(plan_list, strategy2))
  [13:09:26.379]             plan_a <- future::plan("list")
  [13:09:26.379]             str(plan_a)
  [13:09:26.379]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:26.379]             message("foreach() - level 2 ...")
  [13:09:26.379]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:26.379]                 {
  [13:09:26.379]                   plan_list <- future::plan()
  [13:09:26.379]                   message(capture.output(print(plan_list)))
  [13:09:26.379]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.379]                     getOption("future.default", "sequential")))
  [13:09:26.379]                   plan_b <- future::plan("list")
  [13:09:26.379]                   str(plan_b)
  [13:09:26.379]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.379]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.379]                       "sequential")))
  [13:09:26.379]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.379]                 }
  [13:09:26.379]             message("foreach() - level 2 ... DONE")
  [13:09:26.379]             y
  [13:09:26.379]         }, error = identity)
  [13:09:26.379]     })
  [13:09:26.379] }
  [13:09:26.380] - identifying globals and packages ...
  [13:09:26.381] getGlobalsAndPackages() ...
  [13:09:26.381] Searching for globals...
  [13:09:26.454] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:26.454] Searching for globals ... DONE
  [13:09:26.463] Resolving globals: FALSE
  [13:09:26.466] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:09:26.466] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.467] - packages: [2] 'utils', 'foreach'
  [13:09:26.467] getGlobalsAndPackages() ... DONE
  [13:09:26.468] List of 3
  [13:09:26.468]  $ ...future.x_ii: NULL
  [13:09:26.468]  $ strategy2     : chr "sequential"
  [13:09:26.468]  $ bs            : int [1:3] 3 2 1
  [13:09:26.468]  - attr(*, "where")=List of 3
  [13:09:26.468]   ..$ ...future.x_ii:<environment: 0x55c30fe107f8> 
  [13:09:26.468]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:26.468]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:26.468]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.468]  - attr(*, "resolved")= logi FALSE
  [13:09:26.468]  - attr(*, "total_size")= num 184
  [13:09:26.495]   - R expression:
  [13:09:26.495] {
  [13:09:26.495]     doFuture::registerDoFuture()
  [13:09:26.495]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.495]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.495]         a <- NULL
  [13:09:26.495]         ...future.env <- environment()
  [13:09:26.495]         local({
  [13:09:26.495]             for (name in names(...future.x_jj)) {
  [13:09:26.495]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.495]                   inherits = FALSE)
  [13:09:26.495]             }
  [13:09:26.495]         })
  [13:09:26.495]         tryCatch({
  [13:09:26.495]             plan_list <- future::plan()
  [13:09:26.495]             stopifnot(inherits(plan_list, strategy2))
  [13:09:26.495]             plan_a <- future::plan("list")
  [13:09:26.495]             str(plan_a)
  [13:09:26.495]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:26.495]             message("foreach() - level 2 ...")
  [13:09:26.495]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:26.495]                 {
  [13:09:26.495]                   plan_list <- future::plan()
  [13:09:26.495]                   message(capture.output(print(plan_list)))
  [13:09:26.495]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.495]                     getOption("future.default", "sequential")))
  [13:09:26.495]                   plan_b <- future::plan("list")
  [13:09:26.495]                   str(plan_b)
  [13:09:26.495]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.495]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.495]                       "sequential")))
  [13:09:26.495]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.495]                 }
  [13:09:26.495]             message("foreach() - level 2 ... DONE")
  [13:09:26.495]             y
  [13:09:26.495]         }, error = identity)
  [13:09:26.495]     })
  [13:09:26.495] }
  [13:09:26.496]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.497] List of 3
  [13:09:26.497]  $ ...future.x_ii: NULL
  [13:09:26.497]  $ strategy2     : chr "sequential"
  [13:09:26.497]  $ bs            : int [1:3] 3 2 1
  [13:09:26.497]  - attr(*, "where")=List of 3
  [13:09:26.497]   ..$ ...future.x_ii:<environment: 0x55c30fe107f8> 
  [13:09:26.497]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:26.497]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:26.497]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.497]  - attr(*, "resolved")= logi FALSE
  [13:09:26.497]  - attr(*, "total_size")= num 184
  [13:09:26.524]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:26.525] - identifying globals and packages ... DONE
  [13:09:26.526] Number of chunks: 2
  [13:09:26.527] Number of futures (= number of chunks): 2
  [13:09:26.527] Launching 2 futures (chunks) ...
  [13:09:26.527] Chunk #1 of 2 ...
  [13:09:26.527]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:26.528] getGlobalsAndPackages() ...
  [13:09:26.528] Searching for globals...
  [13:09:26.529] 
  [13:09:26.529] Searching for globals ... DONE
  [13:09:26.530] - globals: [0] <none>
  [13:09:26.530] getGlobalsAndPackages() ... DONE
  [13:09:26.530] 
  [13:09:26.531] 
  [13:09:26.531]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:26.532] getGlobalsAndPackages() ...
  [13:09:26.532] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.533] Resolving globals: FALSE
  [13:09:26.534] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:26.534] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.535] 
  [13:09:26.535] getGlobalsAndPackages() ... DONE
  [13:09:26.537] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:26.537] Packages needed by future strategies (n = 1): 'future'
  [13:09:26.542] {
  [13:09:26.542]     {
  [13:09:26.542]         ...future.startTime <- Sys.time()
  [13:09:26.542]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:26.542]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:26.542]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:26.542]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:26.542]             future.resolve.recursive = NULL, width = 80L)
  [13:09:26.542]         {
  [13:09:26.542]             {
  [13:09:26.542]                 {
  [13:09:26.542]                   {
  [13:09:26.542]                     has_future <- requireNamespace("future", 
  [13:09:26.542]                       quietly = TRUE)
  [13:09:26.542]                     version <- if (has_future) 
  [13:09:26.542]                       packageVersion("future")
  [13:09:26.542]                     else NULL
  [13:09:26.542]                     if (!has_future || version < "1.8.0") {
  [13:09:26.542]                       info <- c(r_version = gsub("R version ", 
  [13:09:26.542]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:26.542]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:26.542]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:26.542]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:26.542]                       info <- sprintf("%s: %s", names(info), 
  [13:09:26.542]                         info)
  [13:09:26.542]                       info <- paste(info, collapse = "; ")
  [13:09:26.542]                       if (!has_future) {
  [13:09:26.542]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:26.542]                           info)
  [13:09:26.542]                       }
  [13:09:26.542]                       else {
  [13:09:26.542]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:26.542]                           info, version)
  [13:09:26.542]                       }
  [13:09:26.542]                       stop(msg)
  [13:09:26.542]                     }
  [13:09:26.542]                   }
  [13:09:26.542]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:26.542]                   options(mc.cores = 1L)
  [13:09:26.542]                 }
  [13:09:26.542]                 local({
  [13:09:26.542]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:26.542]                   "future")) {
  [13:09:26.542]                     loadNamespace(pkg)
  [13:09:26.542]                     library(pkg, character.only = TRUE)
  [13:09:26.542]                   }
  [13:09:26.542]                 })
  [13:09:26.542]             }
  [13:09:26.542]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:26.542]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.542]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:26.542]                 label = NULL, ...) 
  [13:09:26.542]             {
  [13:09:26.542]                 if (substitute) 
  [13:09:26.542]                   expr <- substitute(expr)
  [13:09:26.542]                 local <- as.logical(local)
  [13:09:26.542]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.542]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.542]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.542]                   label = label, ...)
  [13:09:26.542]                 if (!future$lazy) 
  [13:09:26.542]                   future <- run(future)
  [13:09:26.542]                 invisible(future)
  [13:09:26.542]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.542]         }
  [13:09:26.542]     }
  [13:09:26.542]     if (is.na(TRUE)) {
  [13:09:26.542]     }
  [13:09:26.542]     else {
  [13:09:26.542]         if (TRUE) {
  [13:09:26.542]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:26.542]         }
  [13:09:26.542]         else {
  [13:09:26.542]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:26.542]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:26.542]         }
  [13:09:26.542]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:26.542]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:26.542]             sink(type = "output", split = FALSE)
  [13:09:26.542]             close(...future.stdout)
  [13:09:26.542]         }, add = TRUE)
  [13:09:26.542]     }
  [13:09:26.542]     ...future.frame <- sys.nframe()
  [13:09:26.542]     ...future.conditions <- list()
  [13:09:26.542]     ...future.result <- tryCatch({
  [13:09:26.542]         withCallingHandlers({
  [13:09:26.542]             ...future.value <- local({
  [13:09:26.542]                 doFuture::registerDoFuture()
  [13:09:26.542]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.542]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.542]                   a <- NULL
  [13:09:26.542]                   ...future.env <- environment()
  [13:09:26.542]                   local({
  [13:09:26.542]                     for (name in names(...future.x_jj)) {
  [13:09:26.542]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.542]                         inherits = FALSE)
  [13:09:26.542]                     }
  [13:09:26.542]                   })
  [13:09:26.542]                   tryCatch({
  [13:09:26.542]                     plan_list <- future::plan()
  [13:09:26.542]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:26.542]                     plan_a <- future::plan("list")
  [13:09:26.542]                     str(plan_a)
  [13:09:26.542]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:26.542]                     message("foreach() - level 2 ...")
  [13:09:26.542]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:26.542]                       {
  [13:09:26.542]                         plan_list <- future::plan()
  [13:09:26.542]                         message(capture.output(print(plan_list)))
  [13:09:26.542]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:26.542]                           inherits(plan_list, getOption("future.default", 
  [13:09:26.542]                             "sequential")))
  [13:09:26.542]                         plan_b <- future::plan("list")
  [13:09:26.542]                         str(plan_b)
  [13:09:26.542]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.542]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.542]                             "sequential")))
  [13:09:26.542]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.542]                       }
  [13:09:26.542]                     message("foreach() - level 2 ... DONE")
  [13:09:26.542]                     y
  [13:09:26.542]                   }, error = identity)
  [13:09:26.542]                 })
  [13:09:26.542]             })
  [13:09:26.542]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:26.542]                 version = "1.8")
  [13:09:26.542]         }, condition = local({
  [13:09:26.542]             inherits <- base::inherits
  [13:09:26.542]             invokeRestart <- base::invokeRestart
  [13:09:26.542]             length <- base::length
  [13:09:26.542]             seq.int <- base::seq.int
  [13:09:26.542]             sys.calls <- base::sys.calls
  [13:09:26.542]             `[[` <- base::`[[`
  [13:09:26.542]             `+` <- base::`+`
  [13:09:26.542]             `<<-` <- base::`<<-`
  [13:09:26.542]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:26.542]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:26.542]                   3L)]
  [13:09:26.542]             }
  [13:09:26.542]             function(cond) {
  [13:09:26.542]                 if (inherits(cond, "error")) {
  [13:09:26.542]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.542]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:26.542]                     cond$call), timestamp = base::Sys.time())
  [13:09:26.542]                   signalCondition(cond)
  [13:09:26.542]                 }
  [13:09:26.542]                 else if (inherits(cond, c("message", "warning"
  [13:09:26.542]                 ))) {
  [13:09:26.542]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.542]                     1L]] <<- list(condition = cond)
  [13:09:26.542]                   if (inherits(cond, "message")) {
  [13:09:26.542]                     invokeRestart("muffleMessage")
  [13:09:26.542]                   }
  [13:09:26.542]                   else if (inherits(cond, "warning")) {
  [13:09:26.542]                     invokeRestart("muffleWarning")
  [13:09:26.542]                   }
  [13:09:26.542]                 }
  [13:09:26.542]             }
  [13:09:26.542]         }))
  [13:09:26.542]     }, error = function(ex) {
  [13:09:26.542]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:26.542]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:26.542]             class = "FutureResult")
  [13:09:26.542]     }, finally = {
  [13:09:26.542]         {
  [13:09:26.542]             {
  [13:09:26.542]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:26.542]             }
  [13:09:26.542]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:26.542]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.542]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:26.542]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:26.542]             {
  [13:09:26.542]                 if (substitute) 
  [13:09:26.542]                   expr <- substitute(expr)
  [13:09:26.542]                 if (is.function(workers)) 
  [13:09:26.542]                   workers <- workers()
  [13:09:26.542]                 workers <- as.integer(workers)
  [13:09:26.542]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:26.542]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:26.542]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:26.542]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:26.542]                     local = TRUE, label = label, ...))
  [13:09:26.542]                 }
  [13:09:26.542]                 oopts <- options(mc.cores = workers)
  [13:09:26.542]                 on.exit(options(oopts))
  [13:09:26.542]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:26.542]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.542]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:26.542]                   label = label, ...)
  [13:09:26.542]                 if (!future$lazy) 
  [13:09:26.542]                   future <- run(future)
  [13:09:26.542]                 invisible(future)
  [13:09:26.542]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:26.542]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:09:26.542]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:26.542]             {
  [13:09:26.542]                 if (substitute) 
  [13:09:26.542]                   expr <- substitute(expr)
  [13:09:26.542]                 local <- as.logical(local)
  [13:09:26.542]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.542]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.542]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.542]                   label = label, ...)
  [13:09:26.542]                 if (!future$lazy) 
  [13:09:26.542]                   future <- run(future)
  [13:09:26.542]                 invisible(future)
  [13:09:26.542]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.542]         }
  [13:09:26.542]         options(...future.oldOptions)
  [13:09:26.542]     })
  [13:09:26.542]     if (is.na(TRUE)) {
  [13:09:26.542]     }
  [13:09:26.542]     else {
  [13:09:26.542]         sink(type = "output", split = FALSE)
  [13:09:26.542]         if (TRUE) {
  [13:09:26.542]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:26.542]         }
  [13:09:26.542]         else {
  [13:09:26.542]             ...future.result["stdout"] <- list(NULL)
  [13:09:26.542]         }
  [13:09:26.542]         close(...future.stdout)
  [13:09:26.542]         ...future.stdout <- NULL
  [13:09:26.542]     }
  [13:09:26.542]     ...future.result$conditions <- ...future.conditions
  [13:09:26.542]     ...future.result
  [13:09:26.542] }
  [13:09:26.547] requestCore(): workers = 2
  [13:09:26.551] MulticoreFuture started
  [13:09:26.551] Chunk #1 of 2 ... DONE
  [13:09:26.552] Chunk #2 of 2 ...
  [13:09:26.552]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:26.553] getGlobalsAndPackages() ...
  [13:09:26.553] Searching for globals...
  [13:09:26.554] 
  [13:09:26.555] Searching for globals ... DONE
  [13:09:26.555] - globals: [0] <none>
  [13:09:26.556] getGlobalsAndPackages() ... DONE
  [13:09:26.556] 
  [13:09:26.556] 
  [13:09:26.557]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:26.559] getGlobalsAndPackages() ...
  [13:09:26.559] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.560] Resolving globals: FALSE
  [13:09:26.562] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:26.567] plan(): Setting new future strategy stack:
  [13:09:26.568] List of future strategies:
  [13:09:26.568] 1. sequential:
  [13:09:26.568]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.568]    - tweaked: FALSE
  [13:09:26.568]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.570] plan(): nbrOfWorkers() = 1
  [13:09:26.562] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.579] 
  [13:09:26.579] getGlobalsAndPackages() ... DONE
  [13:09:26.581] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:26.582] Packages needed by future strategies (n = 1): 'future'
  [13:09:26.588] {
  [13:09:26.588]     {
  [13:09:26.588]         ...future.startTime <- Sys.time()
  [13:09:26.588]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:26.588]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:26.588]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:26.588]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:26.588]             future.resolve.recursive = NULL, width = 80L)
  [13:09:26.588]         {
  [13:09:26.588]             {
  [13:09:26.588]                 {
  [13:09:26.588]                   {
  [13:09:26.588]                     has_future <- requireNamespace("future", 
  [13:09:26.588]                       quietly = TRUE)
  [13:09:26.588]                     version <- if (has_future) 
  [13:09:26.588]                       packageVersion("future")
  [13:09:26.588]                     else NULL
  [13:09:26.588]                     if (!has_future || version < "1.8.0") {
  [13:09:26.588]                       info <- c(r_version = gsub("R version ", 
  [13:09:26.588]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:26.588]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:26.588]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:26.588]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:26.588]                       info <- sprintf("%s: %s", names(info), 
  [13:09:26.588]                         info)
  [13:09:26.588]                       info <- paste(info, collapse = "; ")
  [13:09:26.588]                       if (!has_future) {
  [13:09:26.588]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:26.588]                           info)
  [13:09:26.588]                       }
  [13:09:26.588]                       else {
  [13:09:26.588]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:26.588]                           info, version)
  [13:09:26.588]                       }
  [13:09:26.588]                       stop(msg)
  [13:09:26.588]                     }
  [13:09:26.588]                   }
  [13:09:26.588]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:26.588]                   options(mc.cores = 1L)
  [13:09:26.588]                 }
  [13:09:26.588]                 local({
  [13:09:26.588]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:26.588]                   "future")) {
  [13:09:26.588]                     loadNamespace(pkg)
  [13:09:26.588]                     library(pkg, character.only = TRUE)
  [13:09:26.588]                   }
  [13:09:26.588]                 })
  [13:09:26.588]             }
  [13:09:26.588]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:26.588]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.588]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:26.588]                 label = NULL, ...) 
  [13:09:26.588]             {
  [13:09:26.588]                 if (substitute) 
  [13:09:26.588]                   expr <- substitute(expr)
  [13:09:26.588]                 local <- as.logical(local)
  [13:09:26.588]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.588]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.588]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.588]                   label = label, ...)
  [13:09:26.588]                 if (!future$lazy) 
  [13:09:26.588]                   future <- run(future)
  [13:09:26.588]                 invisible(future)
  [13:09:26.588]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.588]         }
  [13:09:26.588]     }
  [13:09:26.588]     if (is.na(TRUE)) {
  [13:09:26.588]     }
  [13:09:26.588]     else {
  [13:09:26.588]         if (TRUE) {
  [13:09:26.588]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:26.588]         }
  [13:09:26.588]         else {
  [13:09:26.588]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:26.588]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:26.588]         }
  [13:09:26.588]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:26.588]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:26.588]             sink(type = "output", split = FALSE)
  [13:09:26.588]             close(...future.stdout)
  [13:09:26.588]         }, add = TRUE)
  [13:09:26.588]     }
  [13:09:26.588]     ...future.frame <- sys.nframe()
  [13:09:26.588]     ...future.conditions <- list()
  [13:09:26.588]     ...future.result <- tryCatch({
  [13:09:26.588]         withCallingHandlers({
  [13:09:26.588]             ...future.value <- local({
  [13:09:26.588]                 doFuture::registerDoFuture()
  [13:09:26.588]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.588]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.588]                   a <- NULL
  [13:09:26.588]                   ...future.env <- environment()
  [13:09:26.588]                   local({
  [13:09:26.588]                     for (name in names(...future.x_jj)) {
  [13:09:26.588]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.588]                         inherits = FALSE)
  [13:09:26.588]                     }
  [13:09:26.588]                   })
  [13:09:26.588]                   tryCatch({
  [13:09:26.588]                     plan_list <- future::plan()
  [13:09:26.588]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:26.588]                     plan_a <- future::plan("list")
  [13:09:26.588]                     str(plan_a)
  [13:09:26.588]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:26.588]                     message("foreach() - level 2 ...")
  [13:09:26.588]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:26.588]                       {
  [13:09:26.588]                         plan_list <- future::plan()
  [13:09:26.588]                         message(capture.output(print(plan_list)))
  [13:09:26.588]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:26.588]                           inherits(plan_list, getOption("future.default", 
  [13:09:26.588]                             "sequential")))
  [13:09:26.588]                         plan_b <- future::plan("list")
  [13:09:26.588]                         str(plan_b)
  [13:09:26.588]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.588]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.588]                             "sequential")))
  [13:09:26.588]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.588]                       }
  [13:09:26.588]                     message("foreach() - level 2 ... DONE")
  [13:09:26.588]                     y
  [13:09:26.588]                   }, error = identity)
  [13:09:26.588]                 })
  [13:09:26.588]             })
  [13:09:26.588]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:26.588]                 version = "1.8")
  [13:09:26.588]         }, condition = local({
  [13:09:26.588]             inherits <- base::inherits
  [13:09:26.588]             invokeRestart <- base::invokeRestart
  [13:09:26.588]             length <- base::length
  [13:09:26.588]             seq.int <- base::seq.int
  [13:09:26.588]             sys.calls <- base::sys.calls
  [13:09:26.588]             `[[` <- base::`[[`
  [13:09:26.588]             `+` <- base::`+`
  [13:09:26.588]             `<<-` <- base::`<<-`
  [13:09:26.588]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:26.588]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:26.588]                   3L)]
  [13:09:26.588]             }
  [13:09:26.588]             function(cond) {
  [13:09:26.588]                 if (inherits(cond, "error")) {
  [13:09:26.588]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.588]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:26.588]                     cond$call), timestamp = base::Sys.time())
  [13:09:26.588]                   signalCondition(cond)
  [13:09:26.588]                 }
  [13:09:26.588]                 else if (inherits(cond, c("message", "warning"
  [13:09:26.588]                 ))) {
  [13:09:26.588]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.588]                     1L]] <<- list(condition = cond)
  [13:09:26.588]                   if (inherits(cond, "message")) {
  [13:09:26.588]                     invokeRestart("muffleMessage")
  [13:09:26.588]                   }
  [13:09:26.588]                   else if (inherits(cond, "warning")) {
  [13:09:26.588]                     invokeRestart("muffleWarning")
  [13:09:26.588]                   }
  [13:09:26.588]                 }
  [13:09:26.588]             }
  [13:09:26.588]         }))
  [13:09:26.588]     }, error = function(ex) {
  [13:09:26.588]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:26.588]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:26.588]             class = "FutureResult")
  [13:09:26.588]     }, finally = {
  [13:09:26.588]         {
  [13:09:26.588]             {
  [13:09:26.588]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:26.588]             }
  [13:09:26.588]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:26.588]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.588]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:26.588]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:26.588]             {
  [13:09:26.588]                 if (substitute) 
  [13:09:26.588]                   expr <- substitute(expr)
  [13:09:26.588]                 if (is.function(workers)) 
  [13:09:26.588]                   workers <- workers()
  [13:09:26.588]                 workers <- as.integer(workers)
  [13:09:26.588]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:26.588]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:26.588]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:26.588]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:26.588]                     local = TRUE, label = label, ...))
  [13:09:26.588]                 }
  [13:09:26.588]                 oopts <- options(mc.cores = workers)
  [13:09:26.588]                 on.exit(options(oopts))
  [13:09:26.588]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:26.588]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.588]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:26.588]                   label = label, ...)
  [13:09:26.588]                 if (!future$lazy) 
  [13:09:26.588]                   future <- run(future)
  [13:09:26.588]                 invisible(future)
  [13:09:26.588]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:26.588]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:09:26.588]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:26.588]             {
  [13:09:26.588]                 if (substitute) 
  [13:09:26.588]                   expr <- substitute(expr)
  [13:09:26.588]                 local <- as.logical(local)
  [13:09:26.588]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.588]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.588]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.588]                   label = label, ...)
  [13:09:26.588]                 if (!future$lazy) 
  [13:09:26.588]                   future <- run(future)
  [13:09:26.588]                 invisible(future)
  [13:09:26.588]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.588]         }
  [13:09:26.588]         options(...future.oldOptions)
  [13:09:26.588]     })
  [13:09:26.588]     if (is.na(TRUE)) {
  [13:09:26.588]     }
  [13:09:26.588]     else {
  [13:09:26.588]         sink(type = "output", split = FALSE)
  [13:09:26.588]         if (TRUE) {
  [13:09:26.588]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:26.588]         }
  [13:09:26.588]         else {
  [13:09:26.588]             ...future.result["stdout"] <- list(NULL)
  [13:09:26.588]         }
  [13:09:26.588]         close(...future.stdout)
  [13:09:26.588]         ...future.stdout <- NULL
  [13:09:26.588]     }
  [13:09:26.588]     ...future.result$conditions <- ...future.conditions
  [13:09:26.588]     ...future.result
  [13:09:26.588] }
  [13:09:26.610] requestCore(): workers = 2
  [13:09:26.614] MulticoreFuture started
  [13:09:26.615] Chunk #2 of 2 ... DONE
  [13:09:26.616] Launching 2 futures (chunks) ... DONE
  [13:09:26.616] - resolving futures
  [13:09:26.616] resolve() on list ...
  [13:09:26.617]  recursive: 0
  [13:09:26.617]  length: 2
  [13:09:26.618] 
  [13:09:26.627] plan(): Setting new future strategy stack:
  [13:09:26.628] List of future strategies:
  [13:09:26.628] 1. sequential:
  [13:09:26.628]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.628]    - tweaked: FALSE
  [13:09:26.628]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.629] plan(): nbrOfWorkers() = 1
  [13:09:26.757] plan(): Setting new future strategy stack:
  [13:09:26.757] List of future strategies:
  [13:09:26.757] 1. multicore:
  [13:09:26.757]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:26.757]    - tweaked: FALSE
  [13:09:26.757]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.757] 2. sequential:
  [13:09:26.757]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.757]    - tweaked: FALSE
  [13:09:26.757]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.759] plan(): nbrOfWorkers() = 2
  [13:09:26.761]  length: 1 (resolved future 1)
  [13:09:26.864] plan(): Setting new future strategy stack:
  [13:09:26.865] List of future strategies:
  [13:09:26.865] 1. multicore:
  [13:09:26.865]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:26.865]    - tweaked: FALSE
  [13:09:26.865]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.865] 2. sequential:
  [13:09:26.865]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.865]    - tweaked: FALSE
  [13:09:26.865]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.874] plan(): nbrOfWorkers() = 2
  [13:09:26.876]  length: 0 (resolved future 2)
  [13:09:26.876] resolve() on list ... DONE
  [13:09:26.877] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.880] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:26.577] doFuture() ...
  [13:09:26.596] - dummy globals (as locals): [1] 'b'
  [13:09:26.597] - R expression:
  [13:09:26.597] {
  [13:09:26.597]     doFuture::registerDoFuture()
  [13:09:26.597]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.597]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.597]         b <- NULL
  [13:09:26.597]         ...future.env <- environment()
  [13:09:26.597]         local({
  [13:09:26.597]             for (name in names(...future.x_jj)) {
  [13:09:26.597]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.597]                   inherits = FALSE)
  [13:09:26.597]             }
  [13:09:26.597]         })
  [13:09:26.597]         tryCatch({
  [13:09:26.597]             plan_list <- future::plan()
  [13:09:26.597]             message(capture.output(print(plan_list)))
  [13:09:26.597]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.597]                 getOption("future.default", "sequential")))
  [13:09:26.597]             plan_b <- future::plan("list")
  [13:09:26.597]             str(plan_b)
  [13:09:26.597]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:26.597]                 getOption("future.default", "sequential")))
  [13:09:26.597]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.597]         }, error = identity)
  [13:09:26.597]     })
  [13:09:26.597] }
  [13:09:26.599] - identifying globals and packages ...
  [13:09:26.599] getGlobalsAndPackages() ...
  [13:09:26.600] Searching for globals...
  [13:09:26.654] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:26.655] Searching for globals ... DONE
  [13:09:26.655] Resolving globals: FALSE
  [13:09:26.659] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:09:26.659] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.660] - packages: [1] 'utils'
  [13:09:26.660] getGlobalsAndPackages() ... DONE
  [13:09:26.661] List of 3
  [13:09:26.661]  $ ...future.x_ii: NULL
  [13:09:26.661]  $ a             : int 1
  [13:09:26.661]  $ plan_a        :List of 1
  [13:09:26.661]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:26.661]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:09:26.661]     ...)  
  [13:09:26.661]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:09:26.661]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:26.661]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.661]  - attr(*, "where")=List of 3
  [13:09:26.661]   ..$ ...future.x_ii:<environment: 0x55c30fe32220> 
  [13:09:26.661]   ..$ a             :<environment: 0x55c30f0a6400> 
  [13:09:26.661]   ..$ plan_a        :<environment: 0x55c30f0a6400> 
  [13:09:26.661]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.661]  - attr(*, "resolved")= logi FALSE
  [13:09:26.661]  - attr(*, "total_size")= num 40624
  [13:09:26.676]   - R expression:
  [13:09:26.676] {
  [13:09:26.676]     doFuture::registerDoFuture()
  [13:09:26.676]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.676]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.676]         b <- NULL
  [13:09:26.676]         ...future.env <- environment()
  [13:09:26.676]         local({
  [13:09:26.676]             for (name in names(...future.x_jj)) {
  [13:09:26.676]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.676]                   inherits = FALSE)
  [13:09:26.676]             }
  [13:09:26.676]         })
  [13:09:26.676]         tryCatch({
  [13:09:26.676]             plan_list <- future::plan()
  [13:09:26.676]             message(capture.output(print(plan_list)))
  [13:09:26.676]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.676]                 getOption("future.default", "sequential")))
  [13:09:26.676]             plan_b <- future::plan("list")
  [13:09:26.676]             str(plan_b)
  [13:09:26.676]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:26.676]                 getOption("future.default", "sequential")))
  [13:09:26.676]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.676]         }, error = identity)
  [13:09:26.676]     })
  [13:09:26.676] }
  [13:09:26.677]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.678] List of 3
  [13:09:26.678]  $ ...future.x_ii: NULL
  [13:09:26.678]  $ a             : int 1
  [13:09:26.678]  $ plan_a        :List of 1
  [13:09:26.678]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:26.678]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:09:26.678]     ...)  
  [13:09:26.678]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:09:26.678]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:26.678]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.678]  - attr(*, "where")=List of 3
  [13:09:26.678]   ..$ ...future.x_ii:<environment: 0x55c30fe32220> 
  [13:09:26.678]   ..$ a             :<environment: 0x55c30f0a6400> 
  [13:09:26.678]   ..$ plan_a        :<environment: 0x55c30f0a6400> 
  [13:09:26.678]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.678]  - attr(*, "resolved")= logi FALSE
  [13:09:26.678]  - attr(*, "total_size")= num 40624
  [13:09:26.697]   - packages: [2] 'doFuture', 'utils'
  [13:09:26.697] - identifying globals and packages ... DONE
  [13:09:26.698] Number of chunks: 1
  [13:09:26.698] Number of futures (= number of chunks): 1
  [13:09:26.699] Launching 1 futures (chunks) ...
  [13:09:26.699] Chunk #1 of 1 ...
  [13:09:26.700]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:26.700] getGlobalsAndPackages() ...
  [13:09:26.701] Searching for globals...
  [13:09:26.702] 
  [13:09:26.702] Searching for globals ... DONE
  [13:09:26.703] - globals: [0] <none>
  [13:09:26.703] getGlobalsAndPackages() ... DONE
  [13:09:26.703] 
  [13:09:26.704] 
  [13:09:26.704]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:26.705] getGlobalsAndPackages() ...
  [13:09:26.705] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.706] Resolving globals: FALSE
  [13:09:26.708] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:09:26.708] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.709] 
  [13:09:26.709] getGlobalsAndPackages() ... DONE
  [13:09:26.712] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:26.712] Packages needed by future strategies (n = 0): <none>
  [13:09:26.717] {
  [13:09:26.717]     {
  [13:09:26.717]         ...future.startTime <- Sys.time()
  [13:09:26.717]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:26.717]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:26.717]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:26.717]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:26.717]             future.resolve.recursive = NULL, width = 80L)
  [13:09:26.717]         {
  [13:09:26.717]             {
  [13:09:26.717]                 {
  [13:09:26.717]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:26.717]                   version <- if (has_future) 
  [13:09:26.717]                     packageVersion("future")
  [13:09:26.717]                   else NULL
  [13:09:26.717]                   if (!has_future || version < "1.8.0") {
  [13:09:26.717]                     info <- c(r_version = gsub("R version ", 
  [13:09:26.717]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:26.717]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:26.717]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:26.717]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:26.717]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:26.717]                     info <- paste(info, collapse = "; ")
  [13:09:26.717]                     if (!has_future) {
  [13:09:26.717]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:26.717]                         info)
  [13:09:26.717]                     }
  [13:09:26.717]                     else {
  [13:09:26.717]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:26.717]                         info, version)
  [13:09:26.717]                     }
  [13:09:26.717]                     stop(msg)
  [13:09:26.717]                   }
  [13:09:26.717]                 }
  [13:09:26.717]                 local({
  [13:09:26.717]                   for (pkg in c("doFuture", "utils")) {
  [13:09:26.717]                     loadNamespace(pkg)
  [13:09:26.717]                     library(pkg, character.only = TRUE)
  [13:09:26.717]                   }
  [13:09:26.717]                 })
  [13:09:26.717]             }
  [13:09:26.717]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:26.717]         }
  [13:09:26.717]     }
  [13:09:26.717]     if (is.na(TRUE)) {
  [13:09:26.717]     }
  [13:09:26.717]     else {
  [13:09:26.717]         if (TRUE) {
  [13:09:26.717]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:26.717]         }
  [13:09:26.717]         else {
  [13:09:26.717]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:26.717]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:26.717]         }
  [13:09:26.717]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:26.717]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:26.717]             sink(type = "output", split = FALSE)
  [13:09:26.717]             close(...future.stdout)
  [13:09:26.717]         }, add = TRUE)
  [13:09:26.717]     }
  [13:09:26.717]     ...future.frame <- sys.nframe()
  [13:09:26.717]     ...future.conditions <- list()
  [13:09:26.717]     ...future.result <- tryCatch({
  [13:09:26.717]         withCallingHandlers({
  [13:09:26.717]             ...future.value <- local({
  [13:09:26.717]                 doFuture::registerDoFuture()
  [13:09:26.717]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.717]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.717]                   b <- NULL
  [13:09:26.717]                   ...future.env <- environment()
  [13:09:26.717]                   local({
  [13:09:26.717]                     for (name in names(...future.x_jj)) {
  [13:09:26.717]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.717]                         inherits = FALSE)
  [13:09:26.717]                     }
  [13:09:26.717]                   })
  [13:09:26.717]                   tryCatch({
  [13:09:26.717]                     plan_list <- future::plan()
  [13:09:26.717]                     message(capture.output(print(plan_list)))
  [13:09:26.717]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:26.717]                       inherits(plan_list, getOption("future.default", 
  [13:09:26.717]                         "sequential")))
  [13:09:26.717]                     plan_b <- future::plan("list")
  [13:09:26.717]                     str(plan_b)
  [13:09:26.717]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.717]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.717]                         "sequential")))
  [13:09:26.717]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.717]                   }, error = identity)
  [13:09:26.717]                 })
  [13:09:26.717]             })
  [13:09:26.717]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:26.717]                 version = "1.8")
  [13:09:26.717]         }, condition = local({
  [13:09:26.717]             inherits <- base::inherits
  [13:09:26.717]             invokeRestart <- base::invokeRestart
  [13:09:26.717]             length <- base::length
  [13:09:26.717]             seq.int <- base::seq.int
  [13:09:26.717]             sys.calls <- base::sys.calls
  [13:09:26.717]             `[[` <- base::`[[`
  [13:09:26.717]             `+` <- base::`+`
  [13:09:26.717]             `<<-` <- base::`<<-`
  [13:09:26.717]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:26.717]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:26.717]                   3L)]
  [13:09:26.717]             }
  [13:09:26.717]             function(cond) {
  [13:09:26.717]                 if (inherits(cond, "error")) {
  [13:09:26.717]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.717]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:26.717]                     cond$call), timestamp = base::Sys.time())
  [13:09:26.717]                   signalCondition(cond)
  [13:09:26.717]                 }
  [13:09:26.717]                 else if (inherits(cond, c("message", "warning"
  [13:09:26.717]                 ))) {
  [13:09:26.717]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.717]                     1L]] <<- list(condition = cond)
  [13:09:26.717]                   if (inherits(cond, "message")) {
  [13:09:26.717]                     invokeRestart("muffleMessage")
  [13:09:26.717]                   }
  [13:09:26.717]                   else if (inherits(cond, "warning")) {
  [13:09:26.717]                     invokeRestart("muffleWarning")
  [13:09:26.717]                   }
  [13:09:26.717]                 }
  [13:09:26.717]             }
  [13:09:26.717]         }))
  [13:09:26.717]     }, error = function(ex) {
  [13:09:26.717]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:26.717]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:26.717]             class = "FutureResult")
  [13:09:26.717]     }, finally = {
  [13:09:26.717]         {
  [13:09:26.717]             NULL
  [13:09:26.717]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:26.717]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.717]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:26.717]                 label = NULL, ...) 
  [13:09:26.717]             {
  [13:09:26.717]                 if (substitute) 
  [13:09:26.717]                   expr <- substitute(expr)
  [13:09:26.717]                 local <- as.logical(local)
  [13:09:26.717]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.717]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.717]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.717]                   label = label, ...)
  [13:09:26.717]                 if (!future$lazy) 
  [13:09:26.717]                   future <- run(future)
  [13:09:26.717]                 invisible(future)
  [13:09:26.717]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.717]         }
  [13:09:26.717]         options(...future.oldOptions)
  [13:09:26.717]     })
  [13:09:26.717]     if (is.na(TRUE)) {
  [13:09:26.717]     }
  [13:09:26.717]     else {
  [13:09:26.717]         sink(type = "output", split = FALSE)
  [13:09:26.717]         if (TRUE) {
  [13:09:26.717]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:26.717]         }
  [13:09:26.717]         else {
  [13:09:26.717]             ...future.result["stdout"] <- list(NULL)
  [13:09:26.717]         }
  [13:09:26.717]         close(...future.stdout)
  [13:09:26.717]         ...future.stdout <- NULL
  [13:09:26.717]     }
  [13:09:26.717]     ...future.result$conditions <- ...future.conditions
  [13:09:26.717]     ...future.result
  [13:09:26.717] }
  [13:09:26.723] plan(): Setting new future strategy stack:
  [13:09:26.724] List of future strategies:
  [13:09:26.724] 1. sequential:
  [13:09:26.724]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.724]    - tweaked: FALSE
  [13:09:26.724]    - call: NULL
  [13:09:26.725] plan(): nbrOfWorkers() = 1
  [13:09:26.739] plan(): Setting new future strategy stack:
  [13:09:26.740] List of future strategies:
  [13:09:26.740] 1. sequential:
  [13:09:26.740]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.740]    - tweaked: FALSE
  [13:09:26.740]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.741] plan(): nbrOfWorkers() = 1
  [13:09:26.742] SequentialFuture started (and completed)
  [13:09:26.742] Chunk #1 of 1 ... DONE
  [13:09:26.743] Launching 1 futures (chunks) ... DONE
  [13:09:26.748] - resolving futures
  [13:09:26.748] resolve() on list ...
  [13:09:26.749]  recursive: 0
  [13:09:26.749]  length: 1
  [13:09:26.750] 
  [13:09:26.750]  length: 0 (resolved future 1)
  [13:09:26.751] resolve() on list ... DONE
  [13:09:26.751] - relaying conditions of futures
  [13:09:26.752] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:26.753] - collecting values of futures
  [13:09:26.753] - accumulating results
  [13:09:26.755] - processing errors (handler = 'stop')
  [13:09:26.756] - extracting results
  [13:09:26.756] doFuture() ... DONE
  foreach() - level 2 ... DONE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.905] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:26.668] doFuture() ...
  [13:09:26.672] - dummy globals (as locals): [1] 'b'
  [13:09:26.674] - R expression:
  [13:09:26.684] {
  [13:09:26.684]     doFuture::registerDoFuture()
  [13:09:26.684]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.684]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.684]         b <- NULL
  [13:09:26.684]         ...future.env <- environment()
  [13:09:26.684]         local({
  [13:09:26.684]             for (name in names(...future.x_jj)) {
  [13:09:26.684]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.684]                   inherits = FALSE)
  [13:09:26.684]             }
  [13:09:26.684]         })
  [13:09:26.684]         tryCatch({
  [13:09:26.684]             plan_list <- future::plan()
  [13:09:26.684]             message(capture.output(print(plan_list)))
  [13:09:26.684]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.684]                 getOption("future.default", "sequential")))
  [13:09:26.684]             plan_b <- future::plan("list")
  [13:09:26.684]             str(plan_b)
  [13:09:26.684]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:26.684]                 getOption("future.default", "sequential")))
  [13:09:26.684]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.684]         }, error = identity)
  [13:09:26.684]     })
  [13:09:26.684] }
  [13:09:26.686] - identifying globals and packages ...
  [13:09:26.687] getGlobalsAndPackages() ...
  [13:09:26.688] Searching for globals...
  [13:09:26.718] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:26.718] Searching for globals ... DONE
  [13:09:26.719] Resolving globals: FALSE
  [13:09:26.721] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:09:26.722] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.723] - packages: [1] 'utils'
  [13:09:26.723] getGlobalsAndPackages() ... DONE
  [13:09:26.723] List of 3
  [13:09:26.723]  $ ...future.x_ii: NULL
  [13:09:26.723]  $ a             : int 2
  [13:09:26.723]  $ plan_a        :List of 1
  [13:09:26.723]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:26.723]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:09:26.723]     ...)  
  [13:09:26.723]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:09:26.723]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:26.723]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.723]  - attr(*, "where")=List of 3
  [13:09:26.723]   ..$ ...future.x_ii:<environment: 0x55c30e4c5330> 
  [13:09:26.723]   ..$ a             :<environment: 0x55c3100f5470> 
  [13:09:26.723]   ..$ plan_a        :<environment: 0x55c3100f5470> 
  [13:09:26.723]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.723]  - attr(*, "resolved")= logi FALSE
  [13:09:26.723]  - attr(*, "total_size")= num 40624
  [13:09:26.748]   - R expression:
  [13:09:26.749] {
  [13:09:26.749]     doFuture::registerDoFuture()
  [13:09:26.749]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.749]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.749]         b <- NULL
  [13:09:26.749]         ...future.env <- environment()
  [13:09:26.749]         local({
  [13:09:26.749]             for (name in names(...future.x_jj)) {
  [13:09:26.749]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.749]                   inherits = FALSE)
  [13:09:26.749]             }
  [13:09:26.749]         })
  [13:09:26.749]         tryCatch({
  [13:09:26.749]             plan_list <- future::plan()
  [13:09:26.749]             message(capture.output(print(plan_list)))
  [13:09:26.749]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.749]                 getOption("future.default", "sequential")))
  [13:09:26.749]             plan_b <- future::plan("list")
  [13:09:26.749]             str(plan_b)
  [13:09:26.749]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:26.749]                 getOption("future.default", "sequential")))
  [13:09:26.749]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.749]         }, error = identity)
  [13:09:26.749]     })
  [13:09:26.749] }
  [13:09:26.750]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.751] List of 3
  [13:09:26.751]  $ ...future.x_ii: NULL
  [13:09:26.751]  $ a             : int 2
  [13:09:26.751]  $ plan_a        :List of 1
  [13:09:26.751]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:26.751]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:09:26.751]     ...)  
  [13:09:26.751]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:09:26.751]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:26.751]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:26.751]  - attr(*, "where")=List of 3
  [13:09:26.751]   ..$ ...future.x_ii:<environment: 0x55c30e4c5330> 
  [13:09:26.751]   ..$ a             :<environment: 0x55c3100f5470> 
  [13:09:26.751]   ..$ plan_a        :<environment: 0x55c3100f5470> 
  [13:09:26.751]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.751]  - attr(*, "resolved")= logi FALSE
  [13:09:26.751]  - attr(*, "total_size")= num 40624
  [13:09:26.763]   - packages: [2] 'doFuture', 'utils'
  [13:09:26.764] - identifying globals and packages ... DONE
  [13:09:26.764] Number of chunks: 1
  [13:09:26.765] Number of futures (= number of chunks): 1
  [13:09:26.765] Launching 1 futures (chunks) ...
  [13:09:26.765] Chunk #1 of 1 ...
  [13:09:26.766]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:26.766] getGlobalsAndPackages() ...
  [13:09:26.767] Searching for globals...
  [13:09:26.768] 
  [13:09:26.768] Searching for globals ... DONE
  [13:09:26.769] - globals: [0] <none>
  [13:09:26.769] getGlobalsAndPackages() ... DONE
  [13:09:26.769] 
  [13:09:26.770] 
  [13:09:26.770]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:26.771] getGlobalsAndPackages() ...
  [13:09:26.771] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.772] Resolving globals: FALSE
  [13:09:26.773] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:09:26.774] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:26.774] 
  [13:09:26.775] getGlobalsAndPackages() ... DONE
  [13:09:26.777] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:26.778] Packages needed by future strategies (n = 0): <none>
  [13:09:26.782] {
  [13:09:26.782]     {
  [13:09:26.782]         ...future.startTime <- Sys.time()
  [13:09:26.782]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:26.782]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:26.782]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:26.782]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:26.782]             future.resolve.recursive = NULL, width = 80L)
  [13:09:26.782]         {
  [13:09:26.782]             {
  [13:09:26.782]                 {
  [13:09:26.782]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:26.782]                   version <- if (has_future) 
  [13:09:26.782]                     packageVersion("future")
  [13:09:26.782]                   else NULL
  [13:09:26.782]                   if (!has_future || version < "1.8.0") {
  [13:09:26.782]                     info <- c(r_version = gsub("R version ", 
  [13:09:26.782]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:26.782]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:26.782]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:26.782]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:26.782]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:26.782]                     info <- paste(info, collapse = "; ")
  [13:09:26.782]                     if (!has_future) {
  [13:09:26.782]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:26.782]                         info)
  [13:09:26.782]                     }
  [13:09:26.782]                     else {
  [13:09:26.782]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:26.782]                         info, version)
  [13:09:26.782]                     }
  [13:09:26.782]                     stop(msg)
  [13:09:26.782]                   }
  [13:09:26.782]                 }
  [13:09:26.782]                 local({
  [13:09:26.782]                   for (pkg in c("doFuture", "utils")) {
  [13:09:26.782]                     loadNamespace(pkg)
  [13:09:26.782]                     library(pkg, character.only = TRUE)
  [13:09:26.782]                   }
  [13:09:26.782]                 })
  [13:09:26.782]             }
  [13:09:26.782]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:26.782]         }
  [13:09:26.782]     }
  [13:09:26.782]     if (is.na(TRUE)) {
  [13:09:26.782]     }
  [13:09:26.782]     else {
  [13:09:26.782]         if (TRUE) {
  [13:09:26.782]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:26.782]         }
  [13:09:26.782]         else {
  [13:09:26.782]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:26.782]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:26.782]         }
  [13:09:26.782]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:26.782]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:26.782]             sink(type = "output", split = FALSE)
  [13:09:26.782]             close(...future.stdout)
  [13:09:26.782]         }, add = TRUE)
  [13:09:26.782]     }
  [13:09:26.782]     ...future.frame <- sys.nframe()
  [13:09:26.782]     ...future.conditions <- list()
  [13:09:26.782]     ...future.result <- tryCatch({
  [13:09:26.782]         withCallingHandlers({
  [13:09:26.782]             ...future.value <- local({
  [13:09:26.782]                 doFuture::registerDoFuture()
  [13:09:26.782]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.782]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.782]                   b <- NULL
  [13:09:26.782]                   ...future.env <- environment()
  [13:09:26.782]                   local({
  [13:09:26.782]                     for (name in names(...future.x_jj)) {
  [13:09:26.782]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.782]                         inherits = FALSE)
  [13:09:26.782]                     }
  [13:09:26.782]                   })
  [13:09:26.782]                   tryCatch({
  [13:09:26.782]                     plan_list <- future::plan()
  [13:09:26.782]                     message(capture.output(print(plan_list)))
  [13:09:26.782]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:26.782]                       inherits(plan_list, getOption("future.default", 
  [13:09:26.782]                         "sequential")))
  [13:09:26.782]                     plan_b <- future::plan("list")
  [13:09:26.782]                     str(plan_b)
  [13:09:26.782]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.782]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.782]                         "sequential")))
  [13:09:26.782]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.782]                   }, error = identity)
  [13:09:26.782]                 })
  [13:09:26.782]             })
  [13:09:26.782]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:26.782]                 version = "1.8")
  [13:09:26.782]         }, condition = local({
  [13:09:26.782]             inherits <- base::inherits
  [13:09:26.782]             invokeRestart <- base::invokeRestart
  [13:09:26.782]             length <- base::length
  [13:09:26.782]             seq.int <- base::seq.int
  [13:09:26.782]             sys.calls <- base::sys.calls
  [13:09:26.782]             `[[` <- base::`[[`
  [13:09:26.782]             `+` <- base::`+`
  [13:09:26.782]             `<<-` <- base::`<<-`
  [13:09:26.782]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:26.782]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:26.782]                   3L)]
  [13:09:26.782]             }
  [13:09:26.782]             function(cond) {
  [13:09:26.782]                 if (inherits(cond, "error")) {
  [13:09:26.782]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.782]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:26.782]                     cond$call), timestamp = base::Sys.time())
  [13:09:26.782]                   signalCondition(cond)
  [13:09:26.782]                 }
  [13:09:26.782]                 else if (inherits(cond, c("message", "warning"
  [13:09:26.782]                 ))) {
  [13:09:26.782]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:26.782]                     1L]] <<- list(condition = cond)
  [13:09:26.782]                   if (inherits(cond, "message")) {
  [13:09:26.782]                     invokeRestart("muffleMessage")
  [13:09:26.782]                   }
  [13:09:26.782]                   else if (inherits(cond, "warning")) {
  [13:09:26.782]                     invokeRestart("muffleWarning")
  [13:09:26.782]                   }
  [13:09:26.782]                 }
  [13:09:26.782]             }
  [13:09:26.782]         }))
  [13:09:26.782]     }, error = function(ex) {
  [13:09:26.782]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:26.782]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:26.782]             class = "FutureResult")
  [13:09:26.782]     }, finally = {
  [13:09:26.782]         {
  [13:09:26.782]             NULL
  [13:09:26.782]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:26.782]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:26.782]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:26.782]                 label = NULL, ...) 
  [13:09:26.782]             {
  [13:09:26.782]                 if (substitute) 
  [13:09:26.782]                   expr <- substitute(expr)
  [13:09:26.782]                 local <- as.logical(local)
  [13:09:26.782]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:26.782]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:26.782]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:26.782]                   label = label, ...)
  [13:09:26.782]                 if (!future$lazy) 
  [13:09:26.782]                   future <- run(future)
  [13:09:26.782]                 invisible(future)
  [13:09:26.782]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:26.782]         }
  [13:09:26.782]         options(...future.oldOptions)
  [13:09:26.782]     })
  [13:09:26.782]     if (is.na(TRUE)) {
  [13:09:26.782]     }
  [13:09:26.782]     else {
  [13:09:26.782]         sink(type = "output", split = FALSE)
  [13:09:26.782]         if (TRUE) {
  [13:09:26.782]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:26.782]         }
  [13:09:26.782]         else {
  [13:09:26.782]             ...future.result["stdout"] <- list(NULL)
  [13:09:26.782]         }
  [13:09:26.782]         close(...future.stdout)
  [13:09:26.782]         ...future.stdout <- NULL
  [13:09:26.782]     }
  [13:09:26.782]     ...future.result$conditions <- ...future.conditions
  [13:09:26.782]     ...future.result
  [13:09:26.782] }
  [13:09:26.788] plan(): Setting new future strategy stack:
  [13:09:26.819] List of future strategies:
  [13:09:26.819] 1. sequential:
  [13:09:26.819]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.819]    - tweaked: FALSE
  [13:09:26.819]    - call: NULL
  [13:09:26.821] plan(): nbrOfWorkers() = 1
  [13:09:26.852] plan(): Setting new future strategy stack:
  [13:09:26.852] List of future strategies:
  [13:09:26.852] 1. sequential:
  [13:09:26.852]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:26.852]    - tweaked: FALSE
  [13:09:26.852]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.853] plan(): nbrOfWorkers() = 1
  [13:09:26.854] SequentialFuture started (and completed)
  [13:09:26.855] Chunk #1 of 1 ... DONE
  [13:09:26.855] Launching 1 futures (chunks) ... DONE
  [13:09:26.855] - resolving futures
  [13:09:26.856] resolve() on list ...
  [13:09:26.856]  recursive: 0
  [13:09:26.857]  length: 1
  [13:09:26.857] 
  [13:09:26.858]  length: 0 (resolved future 1)
  [13:09:26.858] resolve() on list ... DONE
  [13:09:26.859] - relaying conditions of futures
  [13:09:26.859] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:26.860] - collecting values of futures
  [13:09:26.861] - accumulating results
  [13:09:26.862] - processing errors (handler = 'stop')
  [13:09:26.863] - extracting results
  [13:09:26.863] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:26.915] - collecting values of futures
  [13:09:26.916] - accumulating results
  [13:09:26.917] - processing errors (handler = 'stop')
  [13:09:26.917] - extracting results
  [13:09:26.918] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [13:09:26.921] plan(): Setting new future strategy stack:
  [13:09:26.922] List of future strategies:
  [13:09:26.922] 1. multicore:
  [13:09:26.922]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:26.922]    - tweaked: FALSE
  [13:09:26.922]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.922] 2. multicore:
  [13:09:26.922]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:26.922]    - tweaked: FALSE
  [13:09:26.922]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:26.924] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:09:26.925] doFuture() ...
  [13:09:26.926] - dummy globals (as locals): [1] 'a'
  [13:09:26.927] - R expression:
  [13:09:26.929] {
  [13:09:26.929]     doFuture::registerDoFuture()
  [13:09:26.929]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:26.929]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:26.929]         a <- NULL
  [13:09:26.929]         ...future.env <- environment()
  [13:09:26.929]         local({
  [13:09:26.929]             for (name in names(...future.x_jj)) {
  [13:09:26.929]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:26.929]                   inherits = FALSE)
  [13:09:26.929]             }
  [13:09:26.929]         })
  [13:09:26.929]         tryCatch({
  [13:09:26.929]             plan_list <- future::plan()
  [13:09:26.929]             stopifnot(inherits(plan_list, strategy2))
  [13:09:26.929]             plan_a <- future::plan("list")
  [13:09:26.929]             str(plan_a)
  [13:09:26.929]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:26.929]             message("foreach() - level 2 ...")
  [13:09:26.929]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:26.929]                 {
  [13:09:26.929]                   plan_list <- future::plan()
  [13:09:26.929]                   message(capture.output(print(plan_list)))
  [13:09:26.929]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:26.929]                     getOption("future.default", "sequential")))
  [13:09:26.929]                   plan_b <- future::plan("list")
  [13:09:26.929]                   str(plan_b)
  [13:09:26.929]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:26.929]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:26.929]                       "sequential")))
  [13:09:26.929]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:26.929]                 }
  [13:09:26.929]             message("foreach() - level 2 ... DONE")
  [13:09:26.929]             y
  [13:09:26.929]         }, error = identity)
  [13:09:26.929]     })
  [13:09:26.929] }
  [13:09:26.930] - identifying globals and packages ...
  [13:09:26.930] getGlobalsAndPackages() ...
  [13:09:26.931] Searching for globals...
  [13:09:26.970] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:26.971] Searching for globals ... DONE
  [13:09:26.971] Resolving globals: FALSE
  [13:09:26.974] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:09:26.974] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:26.975] - packages: [2] 'utils', 'foreach'
  [13:09:26.975] getGlobalsAndPackages() ... DONE
  [13:09:26.975] List of 3
  [13:09:26.975]  $ ...future.x_ii: NULL
  [13:09:26.975]  $ strategy2     : chr "multicore"
  [13:09:26.975]  $ bs            : int [1:3] 3 2 1
  [13:09:26.975]  - attr(*, "where")=List of 3
  [13:09:26.975]   ..$ ...future.x_ii:<environment: 0x55c30f24f038> 
  [13:09:26.975]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:26.975]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:26.975]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:26.975]  - attr(*, "resolved")= logi FALSE
  [13:09:26.975]  - attr(*, "total_size")= num 184
  [13:09:27.016]   - R expression:
  [13:09:27.016] {
  [13:09:27.016]     doFuture::registerDoFuture()
  [13:09:27.016]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.016]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.016]         a <- NULL
  [13:09:27.016]         ...future.env <- environment()
  [13:09:27.016]         local({
  [13:09:27.016]             for (name in names(...future.x_jj)) {
  [13:09:27.016]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.016]                   inherits = FALSE)
  [13:09:27.016]             }
  [13:09:27.016]         })
  [13:09:27.016]         tryCatch({
  [13:09:27.016]             plan_list <- future::plan()
  [13:09:27.016]             stopifnot(inherits(plan_list, strategy2))
  [13:09:27.016]             plan_a <- future::plan("list")
  [13:09:27.016]             str(plan_a)
  [13:09:27.016]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.016]             message("foreach() - level 2 ...")
  [13:09:27.016]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.016]                 {
  [13:09:27.016]                   plan_list <- future::plan()
  [13:09:27.016]                   message(capture.output(print(plan_list)))
  [13:09:27.016]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.016]                     getOption("future.default", "sequential")))
  [13:09:27.016]                   plan_b <- future::plan("list")
  [13:09:27.016]                   str(plan_b)
  [13:09:27.016]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.016]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.016]                       "sequential")))
  [13:09:27.016]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.016]                 }
  [13:09:27.016]             message("foreach() - level 2 ... DONE")
  [13:09:27.016]             y
  [13:09:27.016]         }, error = identity)
  [13:09:27.016]     })
  [13:09:27.016] }
  [13:09:27.017]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.018] List of 3
  [13:09:27.018]  $ ...future.x_ii: NULL
  [13:09:27.018]  $ strategy2     : chr "multicore"
  [13:09:27.018]  $ bs            : int [1:3] 3 2 1
  [13:09:27.018]  - attr(*, "where")=List of 3
  [13:09:27.018]   ..$ ...future.x_ii:<environment: 0x55c30f24f038> 
  [13:09:27.018]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:27.018]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:27.018]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.018]  - attr(*, "resolved")= logi FALSE
  [13:09:27.018]  - attr(*, "total_size")= num 184
  [13:09:27.049]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:27.050] - identifying globals and packages ... DONE
  [13:09:27.051] Number of chunks: 2
  [13:09:27.052] Number of futures (= number of chunks): 2
  [13:09:27.052] Launching 2 futures (chunks) ...
  [13:09:27.052] Chunk #1 of 2 ...
  [13:09:27.053]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:27.053] getGlobalsAndPackages() ...
  [13:09:27.053] Searching for globals...
  [13:09:27.054] 
  [13:09:27.055] Searching for globals ... DONE
  [13:09:27.055] - globals: [0] <none>
  [13:09:27.055] getGlobalsAndPackages() ... DONE
  [13:09:27.056] 
  [13:09:27.056] 
  [13:09:27.056]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:27.057] getGlobalsAndPackages() ...
  [13:09:27.058] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.058] Resolving globals: FALSE
  [13:09:27.059] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:27.060] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.060] 
  [13:09:27.060] getGlobalsAndPackages() ... DONE
  [13:09:27.062] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:27.079] Packages needed by future strategies (n = 1): 'future'
  [13:09:27.084] {
  [13:09:27.084]     {
  [13:09:27.084]         ...future.startTime <- Sys.time()
  [13:09:27.084]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.084]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.084]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.084]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.084]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.084]         {
  [13:09:27.084]             {
  [13:09:27.084]                 {
  [13:09:27.084]                   {
  [13:09:27.084]                     has_future <- requireNamespace("future", 
  [13:09:27.084]                       quietly = TRUE)
  [13:09:27.084]                     version <- if (has_future) 
  [13:09:27.084]                       packageVersion("future")
  [13:09:27.084]                     else NULL
  [13:09:27.084]                     if (!has_future || version < "1.8.0") {
  [13:09:27.084]                       info <- c(r_version = gsub("R version ", 
  [13:09:27.084]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.084]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.084]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.084]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.084]                       info <- sprintf("%s: %s", names(info), 
  [13:09:27.084]                         info)
  [13:09:27.084]                       info <- paste(info, collapse = "; ")
  [13:09:27.084]                       if (!has_future) {
  [13:09:27.084]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.084]                           info)
  [13:09:27.084]                       }
  [13:09:27.084]                       else {
  [13:09:27.084]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.084]                           info, version)
  [13:09:27.084]                       }
  [13:09:27.084]                       stop(msg)
  [13:09:27.084]                     }
  [13:09:27.084]                   }
  [13:09:27.084]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:27.084]                   options(mc.cores = 1L)
  [13:09:27.084]                 }
  [13:09:27.084]                 local({
  [13:09:27.084]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:27.084]                   "future")) {
  [13:09:27.084]                     loadNamespace(pkg)
  [13:09:27.084]                     library(pkg, character.only = TRUE)
  [13:09:27.084]                   }
  [13:09:27.084]                 })
  [13:09:27.084]             }
  [13:09:27.084]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.084]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.084]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.084]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.084]             {
  [13:09:27.084]                 if (substitute) 
  [13:09:27.084]                   expr <- substitute(expr)
  [13:09:27.084]                 if (is.function(workers)) 
  [13:09:27.084]                   workers <- workers()
  [13:09:27.084]                 workers <- as.integer(workers)
  [13:09:27.084]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.084]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.084]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.084]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.084]                     local = TRUE, label = label, ...))
  [13:09:27.084]                 }
  [13:09:27.084]                 oopts <- options(mc.cores = workers)
  [13:09:27.084]                 on.exit(options(oopts))
  [13:09:27.084]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.084]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.084]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.084]                   label = label, ...)
  [13:09:27.084]                 if (!future$lazy) 
  [13:09:27.084]                   future <- run(future)
  [13:09:27.084]                 invisible(future)
  [13:09:27.084]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.084]         }
  [13:09:27.084]     }
  [13:09:27.084]     if (is.na(TRUE)) {
  [13:09:27.084]     }
  [13:09:27.084]     else {
  [13:09:27.084]         if (TRUE) {
  [13:09:27.084]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.084]         }
  [13:09:27.084]         else {
  [13:09:27.084]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.084]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.084]         }
  [13:09:27.084]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.084]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.084]             sink(type = "output", split = FALSE)
  [13:09:27.084]             close(...future.stdout)
  [13:09:27.084]         }, add = TRUE)
  [13:09:27.084]     }
  [13:09:27.084]     ...future.frame <- sys.nframe()
  [13:09:27.084]     ...future.conditions <- list()
  [13:09:27.084]     ...future.result <- tryCatch({
  [13:09:27.084]         withCallingHandlers({
  [13:09:27.084]             ...future.value <- local({
  [13:09:27.084]                 doFuture::registerDoFuture()
  [13:09:27.084]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.084]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.084]                   a <- NULL
  [13:09:27.084]                   ...future.env <- environment()
  [13:09:27.084]                   local({
  [13:09:27.084]                     for (name in names(...future.x_jj)) {
  [13:09:27.084]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.084]                         inherits = FALSE)
  [13:09:27.084]                     }
  [13:09:27.084]                   })
  [13:09:27.084]                   tryCatch({
  [13:09:27.084]                     plan_list <- future::plan()
  [13:09:27.084]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:27.084]                     plan_a <- future::plan("list")
  [13:09:27.084]                     str(plan_a)
  [13:09:27.084]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.084]                     message("foreach() - level 2 ...")
  [13:09:27.084]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.084]                       {
  [13:09:27.084]                         plan_list <- future::plan()
  [13:09:27.084]                         message(capture.output(print(plan_list)))
  [13:09:27.084]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:27.084]                           inherits(plan_list, getOption("future.default", 
  [13:09:27.084]                             "sequential")))
  [13:09:27.084]                         plan_b <- future::plan("list")
  [13:09:27.084]                         str(plan_b)
  [13:09:27.084]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.084]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.084]                             "sequential")))
  [13:09:27.084]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.084]                       }
  [13:09:27.084]                     message("foreach() - level 2 ... DONE")
  [13:09:27.084]                     y
  [13:09:27.084]                   }, error = identity)
  [13:09:27.084]                 })
  [13:09:27.084]             })
  [13:09:27.084]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.084]                 version = "1.8")
  [13:09:27.084]         }, condition = local({
  [13:09:27.084]             inherits <- base::inherits
  [13:09:27.084]             invokeRestart <- base::invokeRestart
  [13:09:27.084]             length <- base::length
  [13:09:27.084]             seq.int <- base::seq.int
  [13:09:27.084]             sys.calls <- base::sys.calls
  [13:09:27.084]             `[[` <- base::`[[`
  [13:09:27.084]             `+` <- base::`+`
  [13:09:27.084]             `<<-` <- base::`<<-`
  [13:09:27.084]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.084]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.084]                   3L)]
  [13:09:27.084]             }
  [13:09:27.084]             function(cond) {
  [13:09:27.084]                 if (inherits(cond, "error")) {
  [13:09:27.084]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.084]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.084]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.084]                   signalCondition(cond)
  [13:09:27.084]                 }
  [13:09:27.084]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.084]                 ))) {
  [13:09:27.084]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.084]                     1L]] <<- list(condition = cond)
  [13:09:27.084]                   if (inherits(cond, "message")) {
  [13:09:27.084]                     invokeRestart("muffleMessage")
  [13:09:27.084]                   }
  [13:09:27.084]                   else if (inherits(cond, "warning")) {
  [13:09:27.084]                     invokeRestart("muffleWarning")
  [13:09:27.084]                   }
  [13:09:27.084]                 }
  [13:09:27.084]             }
  [13:09:27.084]         }))
  [13:09:27.084]     }, error = function(ex) {
  [13:09:27.084]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.084]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.084]             class = "FutureResult")
  [13:09:27.084]     }, finally = {
  [13:09:27.084]         {
  [13:09:27.084]             {
  [13:09:27.084]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:27.084]             }
  [13:09:27.084]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:27.084]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.084]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.084]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.084]             {
  [13:09:27.084]                 if (substitute) 
  [13:09:27.084]                   expr <- substitute(expr)
  [13:09:27.084]                 if (is.function(workers)) 
  [13:09:27.084]                   workers <- workers()
  [13:09:27.084]                 workers <- as.integer(workers)
  [13:09:27.084]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.084]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.084]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.084]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.084]                     local = TRUE, label = label, ...))
  [13:09:27.084]                 }
  [13:09:27.084]                 oopts <- options(mc.cores = workers)
  [13:09:27.084]                 on.exit(options(oopts))
  [13:09:27.084]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.084]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.084]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.084]                   label = label, ...)
  [13:09:27.084]                 if (!future$lazy) 
  [13:09:27.084]                   future <- run(future)
  [13:09:27.084]                 invisible(future)
  [13:09:27.084]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:27.084]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.084]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.084]             {
  [13:09:27.084]                 if (substitute) 
  [13:09:27.084]                   expr <- substitute(expr)
  [13:09:27.084]                 if (is.function(workers)) 
  [13:09:27.084]                   workers <- workers()
  [13:09:27.084]                 workers <- as.integer(workers)
  [13:09:27.084]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.084]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.084]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.084]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.084]                     local = TRUE, label = label, ...))
  [13:09:27.084]                 }
  [13:09:27.084]                 oopts <- options(mc.cores = workers)
  [13:09:27.084]                 on.exit(options(oopts))
  [13:09:27.084]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.084]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.084]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.084]                   label = label, ...)
  [13:09:27.084]                 if (!future$lazy) 
  [13:09:27.084]                   future <- run(future)
  [13:09:27.084]                 invisible(future)
  [13:09:27.084]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.084]         }
  [13:09:27.084]         options(...future.oldOptions)
  [13:09:27.084]     })
  [13:09:27.084]     if (is.na(TRUE)) {
  [13:09:27.084]     }
  [13:09:27.084]     else {
  [13:09:27.084]         sink(type = "output", split = FALSE)
  [13:09:27.084]         if (TRUE) {
  [13:09:27.084]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.084]         }
  [13:09:27.084]         else {
  [13:09:27.084]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.084]         }
  [13:09:27.084]         close(...future.stdout)
  [13:09:27.084]         ...future.stdout <- NULL
  [13:09:27.084]     }
  [13:09:27.084]     ...future.result$conditions <- ...future.conditions
  [13:09:27.084]     ...future.result
  [13:09:27.084] }
  [13:09:27.089] requestCore(): workers = 2
  [13:09:27.093] MulticoreFuture started
  [13:09:27.094] Chunk #1 of 2 ... DONE
  [13:09:27.111] Chunk #2 of 2 ...
  [13:09:27.111]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:27.111] getGlobalsAndPackages() ...
  [13:09:27.112] Searching for globals...
  [13:09:27.112] plan(): Setting new future strategy stack:
  [13:09:27.113] 
  [13:09:27.113] Searching for globals ... DONE
  [13:09:27.114] - globals: [0] <none>
  [13:09:27.113] List of future strategies:
  [13:09:27.113] 1. multicore:
  [13:09:27.113]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.113]    - tweaked: FALSE
  [13:09:27.113]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.114] getGlobalsAndPackages() ... DONE
  [13:09:27.115] 
  [13:09:27.115] 
  [13:09:27.115]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:27.115] plan(): nbrOfWorkers() = 1
  [13:09:27.116] getGlobalsAndPackages() ...
  [13:09:27.117] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.117] Resolving globals: FALSE
  [13:09:27.119] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:27.119] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.120] 
  [13:09:27.120] getGlobalsAndPackages() ... DONE
  [13:09:27.122] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:27.123] Packages needed by future strategies (n = 1): 'future'
  [13:09:27.137] {
  [13:09:27.137]     {
  [13:09:27.137]         ...future.startTime <- Sys.time()
  [13:09:27.137]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.137]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.137]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.137]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.137]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.137]         {
  [13:09:27.137]             {
  [13:09:27.137]                 {
  [13:09:27.137]                   {
  [13:09:27.137]                     has_future <- requireNamespace("future", 
  [13:09:27.137]                       quietly = TRUE)
  [13:09:27.137]                     version <- if (has_future) 
  [13:09:27.137]                       packageVersion("future")
  [13:09:27.137]                     else NULL
  [13:09:27.137]                     if (!has_future || version < "1.8.0") {
  [13:09:27.137]                       info <- c(r_version = gsub("R version ", 
  [13:09:27.137]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.137]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.137]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.137]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.137]                       info <- sprintf("%s: %s", names(info), 
  [13:09:27.137]                         info)
  [13:09:27.137]                       info <- paste(info, collapse = "; ")
  [13:09:27.137]                       if (!has_future) {
  [13:09:27.137]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.137]                           info)
  [13:09:27.137]                       }
  [13:09:27.137]                       else {
  [13:09:27.137]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.137]                           info, version)
  [13:09:27.137]                       }
  [13:09:27.137]                       stop(msg)
  [13:09:27.137]                     }
  [13:09:27.137]                   }
  [13:09:27.137]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:27.137]                   options(mc.cores = 1L)
  [13:09:27.137]                 }
  [13:09:27.137]                 local({
  [13:09:27.137]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:27.137]                   "future")) {
  [13:09:27.137]                     loadNamespace(pkg)
  [13:09:27.137]                     library(pkg, character.only = TRUE)
  [13:09:27.137]                   }
  [13:09:27.137]                 })
  [13:09:27.137]             }
  [13:09:27.137]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.137]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.137]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.137]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.137]             {
  [13:09:27.137]                 if (substitute) 
  [13:09:27.137]                   expr <- substitute(expr)
  [13:09:27.137]                 if (is.function(workers)) 
  [13:09:27.137]                   workers <- workers()
  [13:09:27.137]                 workers <- as.integer(workers)
  [13:09:27.137]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.137]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.137]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.137]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.137]                     local = TRUE, label = label, ...))
  [13:09:27.137]                 }
  [13:09:27.137]                 oopts <- options(mc.cores = workers)
  [13:09:27.137]                 on.exit(options(oopts))
  [13:09:27.137]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.137]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.137]                   label = label, ...)
  [13:09:27.137]                 if (!future$lazy) 
  [13:09:27.137]                   future <- run(future)
  [13:09:27.137]                 invisible(future)
  [13:09:27.137]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.137]         }
  [13:09:27.137]     }
  [13:09:27.137]     if (is.na(TRUE)) {
  [13:09:27.137]     }
  [13:09:27.137]     else {
  [13:09:27.137]         if (TRUE) {
  [13:09:27.137]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.137]         }
  [13:09:27.137]         else {
  [13:09:27.137]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.137]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.137]         }
  [13:09:27.137]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.137]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.137]             sink(type = "output", split = FALSE)
  [13:09:27.137]             close(...future.stdout)
  [13:09:27.137]         }, add = TRUE)
  [13:09:27.137]     }
  [13:09:27.137]     ...future.frame <- sys.nframe()
  [13:09:27.137]     ...future.conditions <- list()
  [13:09:27.137]     ...future.result <- tryCatch({
  [13:09:27.137]         withCallingHandlers({
  [13:09:27.137]             ...future.value <- local({
  [13:09:27.137]                 doFuture::registerDoFuture()
  [13:09:27.137]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.137]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.137]                   a <- NULL
  [13:09:27.137]                   ...future.env <- environment()
  [13:09:27.137]                   local({
  [13:09:27.137]                     for (name in names(...future.x_jj)) {
  [13:09:27.137]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.137]                         inherits = FALSE)
  [13:09:27.137]                     }
  [13:09:27.137]                   })
  [13:09:27.137]                   tryCatch({
  [13:09:27.137]                     plan_list <- future::plan()
  [13:09:27.137]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:27.137]                     plan_a <- future::plan("list")
  [13:09:27.137]                     str(plan_a)
  [13:09:27.137]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.137]                     message("foreach() - level 2 ...")
  [13:09:27.137]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.137]                       {
  [13:09:27.137]                         plan_list <- future::plan()
  [13:09:27.137]                         message(capture.output(print(plan_list)))
  [13:09:27.137]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:27.137]                           inherits(plan_list, getOption("future.default", 
  [13:09:27.137]                             "sequential")))
  [13:09:27.137]                         plan_b <- future::plan("list")
  [13:09:27.137]                         str(plan_b)
  [13:09:27.137]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.137]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.137]                             "sequential")))
  [13:09:27.137]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.137]                       }
  [13:09:27.137]                     message("foreach() - level 2 ... DONE")
  [13:09:27.137]                     y
  [13:09:27.137]                   }, error = identity)
  [13:09:27.137]                 })
  [13:09:27.137]             })
  [13:09:27.137]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.137]                 version = "1.8")
  [13:09:27.137]         }, condition = local({
  [13:09:27.137]             inherits <- base::inherits
  [13:09:27.137]             invokeRestart <- base::invokeRestart
  [13:09:27.137]             length <- base::length
  [13:09:27.137]             seq.int <- base::seq.int
  [13:09:27.137]             sys.calls <- base::sys.calls
  [13:09:27.137]             `[[` <- base::`[[`
  [13:09:27.137]             `+` <- base::`+`
  [13:09:27.137]             `<<-` <- base::`<<-`
  [13:09:27.137]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.137]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.137]                   3L)]
  [13:09:27.137]             }
  [13:09:27.137]             function(cond) {
  [13:09:27.137]                 if (inherits(cond, "error")) {
  [13:09:27.137]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.137]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.137]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.137]                   signalCondition(cond)
  [13:09:27.137]                 }
  [13:09:27.137]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.137]                 ))) {
  [13:09:27.137]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.137]                     1L]] <<- list(condition = cond)
  [13:09:27.137]                   if (inherits(cond, "message")) {
  [13:09:27.137]                     invokeRestart("muffleMessage")
  [13:09:27.137]                   }
  [13:09:27.137]                   else if (inherits(cond, "warning")) {
  [13:09:27.137]                     invokeRestart("muffleWarning")
  [13:09:27.137]                   }
  [13:09:27.137]                 }
  [13:09:27.137]             }
  [13:09:27.137]         }))
  [13:09:27.137]     }, error = function(ex) {
  [13:09:27.137]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.137]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.137]             class = "FutureResult")
  [13:09:27.137]     }, finally = {
  [13:09:27.137]         {
  [13:09:27.137]             {
  [13:09:27.137]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:27.137]             }
  [13:09:27.137]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:27.137]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.137]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.137]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.137]             {
  [13:09:27.137]                 if (substitute) 
  [13:09:27.137]                   expr <- substitute(expr)
  [13:09:27.137]                 if (is.function(workers)) 
  [13:09:27.137]                   workers <- workers()
  [13:09:27.137]                 workers <- as.integer(workers)
  [13:09:27.137]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.137]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.137]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.137]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.137]                     local = TRUE, label = label, ...))
  [13:09:27.137]                 }
  [13:09:27.137]                 oopts <- options(mc.cores = workers)
  [13:09:27.137]                 on.exit(options(oopts))
  [13:09:27.137]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.137]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.137]                   label = label, ...)
  [13:09:27.137]                 if (!future$lazy) 
  [13:09:27.137]                   future <- run(future)
  [13:09:27.137]                 invisible(future)
  [13:09:27.137]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:27.137]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.137]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.137]             {
  [13:09:27.137]                 if (substitute) 
  [13:09:27.137]                   expr <- substitute(expr)
  [13:09:27.137]                 if (is.function(workers)) 
  [13:09:27.137]                   workers <- workers()
  [13:09:27.137]                 workers <- as.integer(workers)
  [13:09:27.137]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.137]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.137]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.137]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.137]                     local = TRUE, label = label, ...))
  [13:09:27.137]                 }
  [13:09:27.137]                 oopts <- options(mc.cores = workers)
  [13:09:27.137]                 on.exit(options(oopts))
  [13:09:27.137]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.137]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.137]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.137]                   label = label, ...)
  [13:09:27.137]                 if (!future$lazy) 
  [13:09:27.137]                   future <- run(future)
  [13:09:27.137]                 invisible(future)
  [13:09:27.137]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.137]         }
  [13:09:27.137]         options(...future.oldOptions)
  [13:09:27.137]     })
  [13:09:27.137]     if (is.na(TRUE)) {
  [13:09:27.137]     }
  [13:09:27.137]     else {
  [13:09:27.137]         sink(type = "output", split = FALSE)
  [13:09:27.137]         if (TRUE) {
  [13:09:27.137]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.137]         }
  [13:09:27.137]         else {
  [13:09:27.137]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.137]         }
  [13:09:27.137]         close(...future.stdout)
  [13:09:27.137]         ...future.stdout <- NULL
  [13:09:27.137]     }
  [13:09:27.137]     ...future.result$conditions <- ...future.conditions
  [13:09:27.137]     ...future.result
  [13:09:27.137] }
  [13:09:27.143] requestCore(): workers = 2
  [13:09:27.147] MulticoreFuture started
  [13:09:27.148] Chunk #2 of 2 ... DONE
  [13:09:27.148] Launching 2 futures (chunks) ... DONE
  [13:09:27.149] - resolving futures
  [13:09:27.149] resolve() on list ...
  [13:09:27.149]  recursive: 0
  [13:09:27.150]  length: 2
  [13:09:27.157] plan(): Setting new future strategy stack:
  [13:09:27.158] List of future strategies:
  [13:09:27.158] 1. multicore:
  [13:09:27.158]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.158]    - tweaked: FALSE
  [13:09:27.158]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.161] plan(): nbrOfWorkers() = 1
  [13:09:27.150] 
  [13:09:27.383] plan(): Setting new future strategy stack:
  [13:09:27.384] List of future strategies:
  [13:09:27.384] 1. multicore:
  [13:09:27.384]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.384]    - tweaked: FALSE
  [13:09:27.384]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.384] 2. multicore:
  [13:09:27.384]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.384]    - tweaked: FALSE
  [13:09:27.384]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.386] plan(): nbrOfWorkers() = 2
  [13:09:27.387]  length: 1 (resolved future 2)
  [13:09:27.395] plan(): Setting new future strategy stack:
  [13:09:27.395] List of future strategies:
  [13:09:27.395] 1. multicore:
  [13:09:27.395]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.395]    - tweaked: FALSE
  [13:09:27.395]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.395] 2. multicore:
  [13:09:27.395]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.395]    - tweaked: FALSE
  [13:09:27.395]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.397] plan(): nbrOfWorkers() = 2
  [13:09:27.488]  length: 0 (resolved future 1)
  [13:09:27.489] resolve() on list ... DONE
  [13:09:27.489] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.498] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:27.139] doFuture() ...
  [13:09:27.141] - dummy globals (as locals): [1] 'b'
  [13:09:27.142] - R expression:
  [13:09:27.143] {
  [13:09:27.143]     doFuture::registerDoFuture()
  [13:09:27.143]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.143]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.143]         b <- NULL
  [13:09:27.143]         ...future.env <- environment()
  [13:09:27.143]         local({
  [13:09:27.143]             for (name in names(...future.x_jj)) {
  [13:09:27.143]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.143]                   inherits = FALSE)
  [13:09:27.143]             }
  [13:09:27.143]         })
  [13:09:27.143]         tryCatch({
  [13:09:27.143]             plan_list <- future::plan()
  [13:09:27.143]             message(capture.output(print(plan_list)))
  [13:09:27.143]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.143]                 getOption("future.default", "sequential")))
  [13:09:27.143]             plan_b <- future::plan("list")
  [13:09:27.143]             str(plan_b)
  [13:09:27.143]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.143]                 getOption("future.default", "sequential")))
  [13:09:27.143]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.143]         }, error = identity)
  [13:09:27.143]     })
  [13:09:27.143] }
  [13:09:27.144] - identifying globals and packages ...
  [13:09:27.145] getGlobalsAndPackages() ...
  [13:09:27.145] Searching for globals...
  [13:09:27.237] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:27.237] Searching for globals ... DONE
  [13:09:27.238] Resolving globals: FALSE
  [13:09:27.241] The total size of the 3 globals is 74.09 KiB (75872 bytes)
  [13:09:27.242] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.243] - packages: [1] 'utils'
  [13:09:27.243] getGlobalsAndPackages() ... DONE
  [13:09:27.244] List of 3
  [13:09:27.244]  $ ...future.x_ii: NULL
  [13:09:27.244]  $ a             : int 1
  [13:09:27.244]  $ plan_a        :List of 1
  [13:09:27.244]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.244]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.244]     earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.244]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:09:27.244]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.244]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.244]  - attr(*, "where")=List of 3
  [13:09:27.244]   ..$ ...future.x_ii:<environment: 0x55c30f15b650> 
  [13:09:27.244]   ..$ a             :<environment: 0x55c30e387590> 
  [13:09:27.244]   ..$ plan_a        :<environment: 0x55c30e387590> 
  [13:09:27.244]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.244]  - attr(*, "resolved")= logi FALSE
  [13:09:27.244]  - attr(*, "total_size")= num 75872
  [13:09:27.284]   - R expression:
  [13:09:27.284] {
  [13:09:27.284]     doFuture::registerDoFuture()
  [13:09:27.284]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.284]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.284]         b <- NULL
  [13:09:27.284]         ...future.env <- environment()
  [13:09:27.284]         local({
  [13:09:27.284]             for (name in names(...future.x_jj)) {
  [13:09:27.284]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.284]                   inherits = FALSE)
  [13:09:27.284]             }
  [13:09:27.284]         })
  [13:09:27.284]         tryCatch({
  [13:09:27.284]             plan_list <- future::plan()
  [13:09:27.284]             message(capture.output(print(plan_list)))
  [13:09:27.284]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.284]                 getOption("future.default", "sequential")))
  [13:09:27.284]             plan_b <- future::plan("list")
  [13:09:27.284]             str(plan_b)
  [13:09:27.284]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.284]                 getOption("future.default", "sequential")))
  [13:09:27.284]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.284]         }, error = identity)
  [13:09:27.284]     })
  [13:09:27.284] }
  [13:09:27.286]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.286] List of 3
  [13:09:27.286]  $ ...future.x_ii: NULL
  [13:09:27.286]  $ a             : int 1
  [13:09:27.286]  $ plan_a        :List of 1
  [13:09:27.286]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.286]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.286]     earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.286]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:09:27.286]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.286]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.286]  - attr(*, "where")=List of 3
  [13:09:27.286]   ..$ ...future.x_ii:<environment: 0x55c30f15b650> 
  [13:09:27.286]   ..$ a             :<environment: 0x55c30e387590> 
  [13:09:27.286]   ..$ plan_a        :<environment: 0x55c30e387590> 
  [13:09:27.286]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.286]  - attr(*, "resolved")= logi FALSE
  [13:09:27.286]  - attr(*, "total_size")= num 75872
  [13:09:27.330]   - packages: [2] 'doFuture', 'utils'
  [13:09:27.338] - identifying globals and packages ... DONE
  [13:09:27.340] Number of chunks: 1
  [13:09:27.340] Number of futures (= number of chunks): 1
  [13:09:27.341] Launching 1 futures (chunks) ...
  [13:09:27.341] Chunk #1 of 1 ...
  [13:09:27.342]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:27.342] getGlobalsAndPackages() ...
  [13:09:27.343] Searching for globals...
  [13:09:27.344] 
  [13:09:27.344] Searching for globals ... DONE
  [13:09:27.344] - globals: [0] <none>
  [13:09:27.345] getGlobalsAndPackages() ... DONE
  [13:09:27.345] 
  [13:09:27.346] 
  [13:09:27.346]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:27.347] getGlobalsAndPackages() ...
  [13:09:27.348] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.348] Resolving globals: FALSE
  [13:09:27.350] The total size of the 3 globals is 74.26 KiB (76040 bytes)
  [13:09:27.351] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.351] 
  [13:09:27.352] getGlobalsAndPackages() ... DONE
  [13:09:27.354] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:27.355] Packages needed by future strategies (n = 0): <none>
  [13:09:27.360] {
  [13:09:27.360]     {
  [13:09:27.360]         ...future.startTime <- Sys.time()
  [13:09:27.360]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.360]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.360]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.360]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.360]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.360]         {
  [13:09:27.360]             {
  [13:09:27.360]                 {
  [13:09:27.360]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:27.360]                   version <- if (has_future) 
  [13:09:27.360]                     packageVersion("future")
  [13:09:27.360]                   else NULL
  [13:09:27.360]                   if (!has_future || version < "1.8.0") {
  [13:09:27.360]                     info <- c(r_version = gsub("R version ", 
  [13:09:27.360]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.360]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.360]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.360]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.360]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:27.360]                     info <- paste(info, collapse = "; ")
  [13:09:27.360]                     if (!has_future) {
  [13:09:27.360]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.360]                         info)
  [13:09:27.360]                     }
  [13:09:27.360]                     else {
  [13:09:27.360]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.360]                         info, version)
  [13:09:27.360]                     }
  [13:09:27.360]                     stop(msg)
  [13:09:27.360]                   }
  [13:09:27.360]                 }
  [13:09:27.360]                 local({
  [13:09:27.360]                   for (pkg in c("doFuture", "utils")) {
  [13:09:27.360]                     loadNamespace(pkg)
  [13:09:27.360]                     library(pkg, character.only = TRUE)
  [13:09:27.360]                   }
  [13:09:27.360]                 })
  [13:09:27.360]             }
  [13:09:27.360]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:27.360]         }
  [13:09:27.360]     }
  [13:09:27.360]     if (is.na(TRUE)) {
  [13:09:27.360]     }
  [13:09:27.360]     else {
  [13:09:27.360]         if (TRUE) {
  [13:09:27.360]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.360]         }
  [13:09:27.360]         else {
  [13:09:27.360]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.360]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.360]         }
  [13:09:27.360]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.360]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.360]             sink(type = "output", split = FALSE)
  [13:09:27.360]             close(...future.stdout)
  [13:09:27.360]         }, add = TRUE)
  [13:09:27.360]     }
  [13:09:27.360]     ...future.frame <- sys.nframe()
  [13:09:27.360]     ...future.conditions <- list()
  [13:09:27.360]     ...future.result <- tryCatch({
  [13:09:27.360]         withCallingHandlers({
  [13:09:27.360]             ...future.value <- local({
  [13:09:27.360]                 doFuture::registerDoFuture()
  [13:09:27.360]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.360]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.360]                   b <- NULL
  [13:09:27.360]                   ...future.env <- environment()
  [13:09:27.360]                   local({
  [13:09:27.360]                     for (name in names(...future.x_jj)) {
  [13:09:27.360]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.360]                         inherits = FALSE)
  [13:09:27.360]                     }
  [13:09:27.360]                   })
  [13:09:27.360]                   tryCatch({
  [13:09:27.360]                     plan_list <- future::plan()
  [13:09:27.360]                     message(capture.output(print(plan_list)))
  [13:09:27.360]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:27.360]                       inherits(plan_list, getOption("future.default", 
  [13:09:27.360]                         "sequential")))
  [13:09:27.360]                     plan_b <- future::plan("list")
  [13:09:27.360]                     str(plan_b)
  [13:09:27.360]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.360]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.360]                         "sequential")))
  [13:09:27.360]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.360]                   }, error = identity)
  [13:09:27.360]                 })
  [13:09:27.360]             })
  [13:09:27.360]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.360]                 version = "1.8")
  [13:09:27.360]         }, condition = local({
  [13:09:27.360]             inherits <- base::inherits
  [13:09:27.360]             invokeRestart <- base::invokeRestart
  [13:09:27.360]             length <- base::length
  [13:09:27.360]             seq.int <- base::seq.int
  [13:09:27.360]             sys.calls <- base::sys.calls
  [13:09:27.360]             `[[` <- base::`[[`
  [13:09:27.360]             `+` <- base::`+`
  [13:09:27.360]             `<<-` <- base::`<<-`
  [13:09:27.360]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.360]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.360]                   3L)]
  [13:09:27.360]             }
  [13:09:27.360]             function(cond) {
  [13:09:27.360]                 if (inherits(cond, "error")) {
  [13:09:27.360]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.360]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.360]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.360]                   signalCondition(cond)
  [13:09:27.360]                 }
  [13:09:27.360]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.360]                 ))) {
  [13:09:27.360]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.360]                     1L]] <<- list(condition = cond)
  [13:09:27.360]                   if (inherits(cond, "message")) {
  [13:09:27.360]                     invokeRestart("muffleMessage")
  [13:09:27.360]                   }
  [13:09:27.360]                   else if (inherits(cond, "warning")) {
  [13:09:27.360]                     invokeRestart("muffleWarning")
  [13:09:27.360]                   }
  [13:09:27.360]                 }
  [13:09:27.360]             }
  [13:09:27.360]         }))
  [13:09:27.360]     }, error = function(ex) {
  [13:09:27.360]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.360]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.360]             class = "FutureResult")
  [13:09:27.360]     }, finally = {
  [13:09:27.360]         {
  [13:09:27.360]             NULL
  [13:09:27.360]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.360]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.360]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.360]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.360]             {
  [13:09:27.360]                 if (substitute) 
  [13:09:27.360]                   expr <- substitute(expr)
  [13:09:27.360]                 if (is.function(workers)) 
  [13:09:27.360]                   workers <- workers()
  [13:09:27.360]                 workers <- as.integer(workers)
  [13:09:27.360]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.360]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.360]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.360]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.360]                     local = TRUE, label = label, ...))
  [13:09:27.360]                 }
  [13:09:27.360]                 oopts <- options(mc.cores = workers)
  [13:09:27.360]                 on.exit(options(oopts))
  [13:09:27.360]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.360]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.360]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.360]                   label = label, ...)
  [13:09:27.360]                 if (!future$lazy) 
  [13:09:27.360]                   future <- run(future)
  [13:09:27.360]                 invisible(future)
  [13:09:27.360]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.360]         }
  [13:09:27.360]         options(...future.oldOptions)
  [13:09:27.360]     })
  [13:09:27.360]     if (is.na(TRUE)) {
  [13:09:27.360]     }
  [13:09:27.360]     else {
  [13:09:27.360]         sink(type = "output", split = FALSE)
  [13:09:27.360]         if (TRUE) {
  [13:09:27.360]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.360]         }
  [13:09:27.360]         else {
  [13:09:27.360]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.360]         }
  [13:09:27.360]         close(...future.stdout)
  [13:09:27.360]         ...future.stdout <- NULL
  [13:09:27.360]     }
  [13:09:27.360]     ...future.result$conditions <- ...future.conditions
  [13:09:27.360]     ...future.result
  [13:09:27.360] }
  [13:09:27.366] plan(): Setting new future strategy stack:
  [13:09:27.367] List of future strategies:
  [13:09:27.367] 1. sequential:
  [13:09:27.367]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.367]    - tweaked: FALSE
  [13:09:27.367]    - call: NULL
  [13:09:27.368] plan(): nbrOfWorkers() = 1
  [13:09:27.381] plan(): Setting new future strategy stack:
  [13:09:27.382] List of future strategies:
  [13:09:27.382] 1. multicore:
  [13:09:27.382]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.382]    - tweaked: FALSE
  [13:09:27.382]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.384] plan(): nbrOfWorkers() = 1
  [13:09:27.384] SequentialFuture started (and completed)
  [13:09:27.385] Chunk #1 of 1 ... DONE
  [13:09:27.385] Launching 1 futures (chunks) ... DONE
  [13:09:27.386] - resolving futures
  [13:09:27.386] resolve() on list ...
  [13:09:27.387]  recursive: 0
  [13:09:27.387]  length: 1
  [13:09:27.388] 
  [13:09:27.388]  length: 0 (resolved future 1)
  [13:09:27.389] resolve() on list ... DONE
  [13:09:27.389] - relaying conditions of futures
  [13:09:27.390] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:27.391] - collecting values of futures
  [13:09:27.391] - accumulating results
  [13:09:27.393] - processing errors (handler = 'stop')
  [13:09:27.393] - extracting results
  [13:09:27.394] doFuture() ... DONE
  foreach() - level 2 ... DONE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.544] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:27.186] doFuture() ...
  [13:09:27.218] - dummy globals (as locals): [1] 'b'
  [13:09:27.222] - R expression:
  [13:09:27.223] {
  [13:09:27.223]     doFuture::registerDoFuture()
  [13:09:27.223]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.223]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.223]         b <- NULL
  [13:09:27.223]         ...future.env <- environment()
  [13:09:27.223]         local({
  [13:09:27.223]             for (name in names(...future.x_jj)) {
  [13:09:27.223]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.223]                   inherits = FALSE)
  [13:09:27.223]             }
  [13:09:27.223]         })
  [13:09:27.223]         tryCatch({
  [13:09:27.223]             plan_list <- future::plan()
  [13:09:27.223]             message(capture.output(print(plan_list)))
  [13:09:27.223]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.223]                 getOption("future.default", "sequential")))
  [13:09:27.223]             plan_b <- future::plan("list")
  [13:09:27.223]             str(plan_b)
  [13:09:27.223]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.223]                 getOption("future.default", "sequential")))
  [13:09:27.223]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.223]         }, error = identity)
  [13:09:27.223]     })
  [13:09:27.223] }
  [13:09:27.226] - identifying globals and packages ...
  [13:09:27.233] getGlobalsAndPackages() ...
  [13:09:27.234] Searching for globals...
  [13:09:27.267] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:27.267] Searching for globals ... DONE
  [13:09:27.268] Resolving globals: FALSE
  [13:09:27.271] The total size of the 3 globals is 74.09 KiB (75872 bytes)
  [13:09:27.272] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.273] - packages: [1] 'utils'
  [13:09:27.273] getGlobalsAndPackages() ... DONE
  [13:09:27.274] List of 3
  [13:09:27.274]  $ ...future.x_ii: NULL
  [13:09:27.274]  $ a             : int 2
  [13:09:27.274]  $ plan_a        :List of 1
  [13:09:27.274]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.274]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.274]     earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.274]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:09:27.274]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.274]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.274]  - attr(*, "where")=List of 3
  [13:09:27.274]   ..$ ...future.x_ii:<environment: 0x55c310064700> 
  [13:09:27.274]   ..$ a             :<environment: 0x55c30ff177c0> 
  [13:09:27.274]   ..$ plan_a        :<environment: 0x55c30ff177c0> 
  [13:09:27.274]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.274]  - attr(*, "resolved")= logi FALSE
  [13:09:27.274]  - attr(*, "total_size")= num 75872
  [13:09:27.305]   - R expression:
  [13:09:27.306] {
  [13:09:27.306]     doFuture::registerDoFuture()
  [13:09:27.306]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.306]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.306]         b <- NULL
  [13:09:27.306]         ...future.env <- environment()
  [13:09:27.306]         local({
  [13:09:27.306]             for (name in names(...future.x_jj)) {
  [13:09:27.306]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.306]                   inherits = FALSE)
  [13:09:27.306]             }
  [13:09:27.306]         })
  [13:09:27.306]         tryCatch({
  [13:09:27.306]             plan_list <- future::plan()
  [13:09:27.306]             message(capture.output(print(plan_list)))
  [13:09:27.306]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.306]                 getOption("future.default", "sequential")))
  [13:09:27.306]             plan_b <- future::plan("list")
  [13:09:27.306]             str(plan_b)
  [13:09:27.306]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.306]                 getOption("future.default", "sequential")))
  [13:09:27.306]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.306]         }, error = identity)
  [13:09:27.306]     })
  [13:09:27.306] }
  [13:09:27.307]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.307] List of 3
  [13:09:27.307]  $ ...future.x_ii: NULL
  [13:09:27.307]  $ a             : int 2
  [13:09:27.307]  $ plan_a        :List of 1
  [13:09:27.307]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.307]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.307]     earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.307]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:09:27.307]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.307]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.307]  - attr(*, "where")=List of 3
  [13:09:27.307]   ..$ ...future.x_ii:<environment: 0x55c310064700> 
  [13:09:27.307]   ..$ a             :<environment: 0x55c30ff177c0> 
  [13:09:27.307]   ..$ plan_a        :<environment: 0x55c30ff177c0> 
  [13:09:27.307]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.307]  - attr(*, "resolved")= logi FALSE
  [13:09:27.307]  - attr(*, "total_size")= num 75872
  [13:09:27.321]   - packages: [2] 'doFuture', 'utils'
  [13:09:27.322] - identifying globals and packages ... DONE
  [13:09:27.323] Number of chunks: 1
  [13:09:27.323] Number of futures (= number of chunks): 1
  [13:09:27.323] Launching 1 futures (chunks) ...
  [13:09:27.324] Chunk #1 of 1 ...
  [13:09:27.324]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:27.325] getGlobalsAndPackages() ...
  [13:09:27.325] Searching for globals...
  [13:09:27.326] 
  [13:09:27.327] Searching for globals ... DONE
  [13:09:27.327] - globals: [0] <none>
  [13:09:27.327] getGlobalsAndPackages() ... DONE
  [13:09:27.328] 
  [13:09:27.328] 
  [13:09:27.329]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:27.330] getGlobalsAndPackages() ...
  [13:09:27.330] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.331] Resolving globals: FALSE
  [13:09:27.332] The total size of the 3 globals is 74.26 KiB (76040 bytes)
  [13:09:27.333] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.333] 
  [13:09:27.334] getGlobalsAndPackages() ... DONE
  [13:09:27.336] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:27.337] Packages needed by future strategies (n = 0): <none>
  [13:09:27.341] {
  [13:09:27.341]     {
  [13:09:27.341]         ...future.startTime <- Sys.time()
  [13:09:27.341]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.341]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.341]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.341]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.341]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.341]         {
  [13:09:27.341]             {
  [13:09:27.341]                 {
  [13:09:27.341]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:27.341]                   version <- if (has_future) 
  [13:09:27.341]                     packageVersion("future")
  [13:09:27.341]                   else NULL
  [13:09:27.341]                   if (!has_future || version < "1.8.0") {
  [13:09:27.341]                     info <- c(r_version = gsub("R version ", 
  [13:09:27.341]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.341]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.341]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.341]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.341]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:27.341]                     info <- paste(info, collapse = "; ")
  [13:09:27.341]                     if (!has_future) {
  [13:09:27.341]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.341]                         info)
  [13:09:27.341]                     }
  [13:09:27.341]                     else {
  [13:09:27.341]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.341]                         info, version)
  [13:09:27.341]                     }
  [13:09:27.341]                     stop(msg)
  [13:09:27.341]                   }
  [13:09:27.341]                 }
  [13:09:27.341]                 local({
  [13:09:27.341]                   for (pkg in c("doFuture", "utils")) {
  [13:09:27.341]                     loadNamespace(pkg)
  [13:09:27.341]                     library(pkg, character.only = TRUE)
  [13:09:27.341]                   }
  [13:09:27.341]                 })
  [13:09:27.341]             }
  [13:09:27.341]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:27.341]         }
  [13:09:27.341]     }
  [13:09:27.341]     if (is.na(TRUE)) {
  [13:09:27.341]     }
  [13:09:27.341]     else {
  [13:09:27.341]         if (TRUE) {
  [13:09:27.341]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.341]         }
  [13:09:27.341]         else {
  [13:09:27.341]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.341]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.341]         }
  [13:09:27.341]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.341]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.341]             sink(type = "output", split = FALSE)
  [13:09:27.341]             close(...future.stdout)
  [13:09:27.341]         }, add = TRUE)
  [13:09:27.341]     }
  [13:09:27.341]     ...future.frame <- sys.nframe()
  [13:09:27.341]     ...future.conditions <- list()
  [13:09:27.341]     ...future.result <- tryCatch({
  [13:09:27.341]         withCallingHandlers({
  [13:09:27.341]             ...future.value <- local({
  [13:09:27.341]                 doFuture::registerDoFuture()
  [13:09:27.341]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.341]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.341]                   b <- NULL
  [13:09:27.341]                   ...future.env <- environment()
  [13:09:27.341]                   local({
  [13:09:27.341]                     for (name in names(...future.x_jj)) {
  [13:09:27.341]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.341]                         inherits = FALSE)
  [13:09:27.341]                     }
  [13:09:27.341]                   })
  [13:09:27.341]                   tryCatch({
  [13:09:27.341]                     plan_list <- future::plan()
  [13:09:27.341]                     message(capture.output(print(plan_list)))
  [13:09:27.341]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:27.341]                       inherits(plan_list, getOption("future.default", 
  [13:09:27.341]                         "sequential")))
  [13:09:27.341]                     plan_b <- future::plan("list")
  [13:09:27.341]                     str(plan_b)
  [13:09:27.341]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.341]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.341]                         "sequential")))
  [13:09:27.341]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.341]                   }, error = identity)
  [13:09:27.341]                 })
  [13:09:27.341]             })
  [13:09:27.341]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.341]                 version = "1.8")
  [13:09:27.341]         }, condition = local({
  [13:09:27.341]             inherits <- base::inherits
  [13:09:27.341]             invokeRestart <- base::invokeRestart
  [13:09:27.341]             length <- base::length
  [13:09:27.341]             seq.int <- base::seq.int
  [13:09:27.341]             sys.calls <- base::sys.calls
  [13:09:27.341]             `[[` <- base::`[[`
  [13:09:27.341]             `+` <- base::`+`
  [13:09:27.341]             `<<-` <- base::`<<-`
  [13:09:27.341]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.341]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.341]                   3L)]
  [13:09:27.341]             }
  [13:09:27.341]             function(cond) {
  [13:09:27.341]                 if (inherits(cond, "error")) {
  [13:09:27.341]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.341]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.341]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.341]                   signalCondition(cond)
  [13:09:27.341]                 }
  [13:09:27.341]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.341]                 ))) {
  [13:09:27.341]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.341]                     1L]] <<- list(condition = cond)
  [13:09:27.341]                   if (inherits(cond, "message")) {
  [13:09:27.341]                     invokeRestart("muffleMessage")
  [13:09:27.341]                   }
  [13:09:27.341]                   else if (inherits(cond, "warning")) {
  [13:09:27.341]                     invokeRestart("muffleWarning")
  [13:09:27.341]                   }
  [13:09:27.341]                 }
  [13:09:27.341]             }
  [13:09:27.341]         }))
  [13:09:27.341]     }, error = function(ex) {
  [13:09:27.341]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.341]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.341]             class = "FutureResult")
  [13:09:27.341]     }, finally = {
  [13:09:27.341]         {
  [13:09:27.341]             NULL
  [13:09:27.341]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.341]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.341]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.341]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.341]             {
  [13:09:27.341]                 if (substitute) 
  [13:09:27.341]                   expr <- substitute(expr)
  [13:09:27.341]                 if (is.function(workers)) 
  [13:09:27.341]                   workers <- workers()
  [13:09:27.341]                 workers <- as.integer(workers)
  [13:09:27.341]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.341]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.341]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.341]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.341]                     local = TRUE, label = label, ...))
  [13:09:27.341]                 }
  [13:09:27.341]                 oopts <- options(mc.cores = workers)
  [13:09:27.341]                 on.exit(options(oopts))
  [13:09:27.341]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.341]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.341]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.341]                   label = label, ...)
  [13:09:27.341]                 if (!future$lazy) 
  [13:09:27.341]                   future <- run(future)
  [13:09:27.341]                 invisible(future)
  [13:09:27.341]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.341]         }
  [13:09:27.341]         options(...future.oldOptions)
  [13:09:27.341]     })
  [13:09:27.341]     if (is.na(TRUE)) {
  [13:09:27.341]     }
  [13:09:27.341]     else {
  [13:09:27.341]         sink(type = "output", split = FALSE)
  [13:09:27.341]         if (TRUE) {
  [13:09:27.341]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.341]         }
  [13:09:27.341]         else {
  [13:09:27.341]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.341]         }
  [13:09:27.341]         close(...future.stdout)
  [13:09:27.341]         ...future.stdout <- NULL
  [13:09:27.341]     }
  [13:09:27.341]     ...future.result$conditions <- ...future.conditions
  [13:09:27.341]     ...future.result
  [13:09:27.341] }
  [13:09:27.348] plan(): Setting new future strategy stack:
  [13:09:27.348] List of future strategies:
  [13:09:27.348] 1. sequential:
  [13:09:27.348]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.348]    - tweaked: FALSE
  [13:09:27.348]    - call: NULL
  [13:09:27.350] plan(): nbrOfWorkers() = 1
  [13:09:27.370] plan(): Setting new future strategy stack:
  [13:09:27.370] List of future strategies:
  [13:09:27.370] 1. multicore:
  [13:09:27.370]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.370]    - tweaked: FALSE
  [13:09:27.370]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.372] plan(): nbrOfWorkers() = 1
  [13:09:27.373] SequentialFuture started (and completed)
  [13:09:27.373] Chunk #1 of 1 ... DONE
  [13:09:27.374] Launching 1 futures (chunks) ... DONE
  [13:09:27.374] - resolving futures
  [13:09:27.375] resolve() on list ...
  [13:09:27.375]  recursive: 0
  [13:09:27.376]  length: 1
  [13:09:27.376] 
  [13:09:27.377]  length: 0 (resolved future 1)
  [13:09:27.377] resolve() on list ... DONE
  [13:09:27.378] - relaying conditions of futures
  [13:09:27.378] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:27.379] - collecting values of futures
  [13:09:27.380] - accumulating results
  [13:09:27.381] - processing errors (handler = 'stop')
  [13:09:27.382] - extracting results
  [13:09:27.382] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:27.554] - collecting values of futures
  [13:09:27.554] - accumulating results
  [13:09:27.556] - processing errors (handler = 'stop')
  [13:09:27.556] - extracting results
  [13:09:27.556] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [13:09:27.558] plan(): Setting new future strategy stack:
  [13:09:27.558] List of future strategies:
  [13:09:27.558] 1. multicore:
  [13:09:27.558]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.558]    - tweaked: FALSE
  [13:09:27.558]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.558] 2. multisession:
  [13:09:27.558]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.558]    - tweaked: FALSE
  [13:09:27.558]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.583] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:09:27.584] doFuture() ...
  [13:09:27.585] - dummy globals (as locals): [1] 'a'
  [13:09:27.587] - R expression:
  [13:09:27.587] {
  [13:09:27.587]     doFuture::registerDoFuture()
  [13:09:27.587]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.587]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.587]         a <- NULL
  [13:09:27.587]         ...future.env <- environment()
  [13:09:27.587]         local({
  [13:09:27.587]             for (name in names(...future.x_jj)) {
  [13:09:27.587]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.587]                   inherits = FALSE)
  [13:09:27.587]             }
  [13:09:27.587]         })
  [13:09:27.587]         tryCatch({
  [13:09:27.587]             plan_list <- future::plan()
  [13:09:27.587]             stopifnot(inherits(plan_list, strategy2))
  [13:09:27.587]             plan_a <- future::plan("list")
  [13:09:27.587]             str(plan_a)
  [13:09:27.587]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.587]             message("foreach() - level 2 ...")
  [13:09:27.587]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.587]                 {
  [13:09:27.587]                   plan_list <- future::plan()
  [13:09:27.587]                   message(capture.output(print(plan_list)))
  [13:09:27.587]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.587]                     getOption("future.default", "sequential")))
  [13:09:27.587]                   plan_b <- future::plan("list")
  [13:09:27.587]                   str(plan_b)
  [13:09:27.587]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.587]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.587]                       "sequential")))
  [13:09:27.587]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.587]                 }
  [13:09:27.587]             message("foreach() - level 2 ... DONE")
  [13:09:27.587]             y
  [13:09:27.587]         }, error = identity)
  [13:09:27.587]     })
  [13:09:27.587] }
  [13:09:27.588] - identifying globals and packages ...
  [13:09:27.589] getGlobalsAndPackages() ...
  [13:09:27.589] Searching for globals...
  [13:09:27.685] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:27.685] Searching for globals ... DONE
  [13:09:27.686] Resolving globals: FALSE
  [13:09:27.688] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:09:27.689] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.689] - packages: [2] 'utils', 'foreach'
  [13:09:27.690] getGlobalsAndPackages() ... DONE
  [13:09:27.690] List of 3
  [13:09:27.690]  $ ...future.x_ii: NULL
  [13:09:27.690]  $ strategy2     : chr "multisession"
  [13:09:27.690]  $ bs            : int [1:3] 3 2 1
  [13:09:27.690]  - attr(*, "where")=List of 3
  [13:09:27.690]   ..$ ...future.x_ii:<environment: 0x55c30f27d348> 
  [13:09:27.690]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:27.690]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:27.690]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.690]  - attr(*, "resolved")= logi FALSE
  [13:09:27.690]  - attr(*, "total_size")= num 184
  [13:09:27.716]   - R expression:
  [13:09:27.716] {
  [13:09:27.716]     doFuture::registerDoFuture()
  [13:09:27.716]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.716]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.716]         a <- NULL
  [13:09:27.716]         ...future.env <- environment()
  [13:09:27.716]         local({
  [13:09:27.716]             for (name in names(...future.x_jj)) {
  [13:09:27.716]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.716]                   inherits = FALSE)
  [13:09:27.716]             }
  [13:09:27.716]         })
  [13:09:27.716]         tryCatch({
  [13:09:27.716]             plan_list <- future::plan()
  [13:09:27.716]             stopifnot(inherits(plan_list, strategy2))
  [13:09:27.716]             plan_a <- future::plan("list")
  [13:09:27.716]             str(plan_a)
  [13:09:27.716]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.716]             message("foreach() - level 2 ...")
  [13:09:27.716]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.716]                 {
  [13:09:27.716]                   plan_list <- future::plan()
  [13:09:27.716]                   message(capture.output(print(plan_list)))
  [13:09:27.716]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.716]                     getOption("future.default", "sequential")))
  [13:09:27.716]                   plan_b <- future::plan("list")
  [13:09:27.716]                   str(plan_b)
  [13:09:27.716]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.716]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.716]                       "sequential")))
  [13:09:27.716]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.716]                 }
  [13:09:27.716]             message("foreach() - level 2 ... DONE")
  [13:09:27.716]             y
  [13:09:27.716]         }, error = identity)
  [13:09:27.716]     })
  [13:09:27.716] }
  [13:09:27.717]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.718] List of 3
  [13:09:27.718]  $ ...future.x_ii: NULL
  [13:09:27.718]  $ strategy2     : chr "multisession"
  [13:09:27.718]  $ bs            : int [1:3] 3 2 1
  [13:09:27.718]  - attr(*, "where")=List of 3
  [13:09:27.718]   ..$ ...future.x_ii:<environment: 0x55c30f27d348> 
  [13:09:27.718]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:27.718]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:27.718]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.718]  - attr(*, "resolved")= logi FALSE
  [13:09:27.718]  - attr(*, "total_size")= num 184
  [13:09:27.743]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:27.744] - identifying globals and packages ... DONE
  [13:09:27.745] Number of chunks: 2
  [13:09:27.745] Number of futures (= number of chunks): 2
  [13:09:27.746] Launching 2 futures (chunks) ...
  [13:09:27.746] Chunk #1 of 2 ...
  [13:09:27.746]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:27.747] getGlobalsAndPackages() ...
  [13:09:27.747] Searching for globals...
  [13:09:27.748] 
  [13:09:27.748] Searching for globals ... DONE
  [13:09:27.748] - globals: [0] <none>
  [13:09:27.749] getGlobalsAndPackages() ... DONE
  [13:09:27.749] 
  [13:09:27.749] 
  [13:09:27.750]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:27.751] getGlobalsAndPackages() ...
  [13:09:27.751] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.751] Resolving globals: FALSE
  [13:09:27.753] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:27.753] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.753] 
  [13:09:27.754] getGlobalsAndPackages() ... DONE
  [13:09:27.760] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:27.761] Packages needed by future strategies (n = 1): 'future'
  [13:09:27.782] {
  [13:09:27.782]     {
  [13:09:27.782]         ...future.startTime <- Sys.time()
  [13:09:27.782]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.782]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.782]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.782]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.782]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.782]         {
  [13:09:27.782]             {
  [13:09:27.782]                 {
  [13:09:27.782]                   {
  [13:09:27.782]                     has_future <- requireNamespace("future", 
  [13:09:27.782]                       quietly = TRUE)
  [13:09:27.782]                     version <- if (has_future) 
  [13:09:27.782]                       packageVersion("future")
  [13:09:27.782]                     else NULL
  [13:09:27.782]                     if (!has_future || version < "1.8.0") {
  [13:09:27.782]                       info <- c(r_version = gsub("R version ", 
  [13:09:27.782]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.782]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.782]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.782]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.782]                       info <- sprintf("%s: %s", names(info), 
  [13:09:27.782]                         info)
  [13:09:27.782]                       info <- paste(info, collapse = "; ")
  [13:09:27.782]                       if (!has_future) {
  [13:09:27.782]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.782]                           info)
  [13:09:27.782]                       }
  [13:09:27.782]                       else {
  [13:09:27.782]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.782]                           info, version)
  [13:09:27.782]                       }
  [13:09:27.782]                       stop(msg)
  [13:09:27.782]                     }
  [13:09:27.782]                   }
  [13:09:27.782]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:27.782]                   options(mc.cores = 1L)
  [13:09:27.782]                 }
  [13:09:27.782]                 local({
  [13:09:27.782]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:27.782]                   "future")) {
  [13:09:27.782]                     loadNamespace(pkg)
  [13:09:27.782]                     library(pkg, character.only = TRUE)
  [13:09:27.782]                   }
  [13:09:27.782]                 })
  [13:09:27.782]             }
  [13:09:27.782]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.782]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.782]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.782]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:27.782]                 ...) 
  [13:09:27.782]             {
  [13:09:27.782]                 if (substitute) 
  [13:09:27.782]                   expr <- substitute(expr)
  [13:09:27.782]                 if (is.function(workers)) 
  [13:09:27.782]                   workers <- workers()
  [13:09:27.782]                 workers <- as.integer(workers)
  [13:09:27.782]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:27.782]                   workers >= 1)
  [13:09:27.782]                 if (workers == 1L) {
  [13:09:27.782]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.782]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:27.782]                     local = TRUE, label = label, ...))
  [13:09:27.782]                 }
  [13:09:27.782]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:27.782]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:27.782]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.782]                   globals = globals, persistent = persistent, 
  [13:09:27.782]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:27.782]                   label = label, ...)
  [13:09:27.782]                 if (!future$lazy) 
  [13:09:27.782]                   future <- run(future)
  [13:09:27.782]                 invisible(future)
  [13:09:27.782]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.782]         }
  [13:09:27.782]     }
  [13:09:27.782]     if (is.na(TRUE)) {
  [13:09:27.782]     }
  [13:09:27.782]     else {
  [13:09:27.782]         if (TRUE) {
  [13:09:27.782]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.782]         }
  [13:09:27.782]         else {
  [13:09:27.782]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.782]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.782]         }
  [13:09:27.782]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.782]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.782]             sink(type = "output", split = FALSE)
  [13:09:27.782]             close(...future.stdout)
  [13:09:27.782]         }, add = TRUE)
  [13:09:27.782]     }
  [13:09:27.782]     ...future.frame <- sys.nframe()
  [13:09:27.782]     ...future.conditions <- list()
  [13:09:27.782]     ...future.result <- tryCatch({
  [13:09:27.782]         withCallingHandlers({
  [13:09:27.782]             ...future.value <- local({
  [13:09:27.782]                 doFuture::registerDoFuture()
  [13:09:27.782]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.782]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.782]                   a <- NULL
  [13:09:27.782]                   ...future.env <- environment()
  [13:09:27.782]                   local({
  [13:09:27.782]                     for (name in names(...future.x_jj)) {
  [13:09:27.782]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.782]                         inherits = FALSE)
  [13:09:27.782]                     }
  [13:09:27.782]                   })
  [13:09:27.782]                   tryCatch({
  [13:09:27.782]                     plan_list <- future::plan()
  [13:09:27.782]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:27.782]                     plan_a <- future::plan("list")
  [13:09:27.782]                     str(plan_a)
  [13:09:27.782]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.782]                     message("foreach() - level 2 ...")
  [13:09:27.782]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.782]                       {
  [13:09:27.782]                         plan_list <- future::plan()
  [13:09:27.782]                         message(capture.output(print(plan_list)))
  [13:09:27.782]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:27.782]                           inherits(plan_list, getOption("future.default", 
  [13:09:27.782]                             "sequential")))
  [13:09:27.782]                         plan_b <- future::plan("list")
  [13:09:27.782]                         str(plan_b)
  [13:09:27.782]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.782]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.782]                             "sequential")))
  [13:09:27.782]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.782]                       }
  [13:09:27.782]                     message("foreach() - level 2 ... DONE")
  [13:09:27.782]                     y
  [13:09:27.782]                   }, error = identity)
  [13:09:27.782]                 })
  [13:09:27.782]             })
  [13:09:27.782]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.782]                 version = "1.8")
  [13:09:27.782]         }, condition = local({
  [13:09:27.782]             inherits <- base::inherits
  [13:09:27.782]             invokeRestart <- base::invokeRestart
  [13:09:27.782]             length <- base::length
  [13:09:27.782]             seq.int <- base::seq.int
  [13:09:27.782]             sys.calls <- base::sys.calls
  [13:09:27.782]             `[[` <- base::`[[`
  [13:09:27.782]             `+` <- base::`+`
  [13:09:27.782]             `<<-` <- base::`<<-`
  [13:09:27.782]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.782]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.782]                   3L)]
  [13:09:27.782]             }
  [13:09:27.782]             function(cond) {
  [13:09:27.782]                 if (inherits(cond, "error")) {
  [13:09:27.782]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.782]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.782]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.782]                   signalCondition(cond)
  [13:09:27.782]                 }
  [13:09:27.782]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.782]                 ))) {
  [13:09:27.782]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.782]                     1L]] <<- list(condition = cond)
  [13:09:27.782]                   if (inherits(cond, "message")) {
  [13:09:27.782]                     invokeRestart("muffleMessage")
  [13:09:27.782]                   }
  [13:09:27.782]                   else if (inherits(cond, "warning")) {
  [13:09:27.782]                     invokeRestart("muffleWarning")
  [13:09:27.782]                   }
  [13:09:27.782]                 }
  [13:09:27.782]             }
  [13:09:27.782]         }))
  [13:09:27.782]     }, error = function(ex) {
  [13:09:27.782]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.782]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.782]             class = "FutureResult")
  [13:09:27.782]     }, finally = {
  [13:09:27.782]         {
  [13:09:27.782]             {
  [13:09:27.782]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:27.782]             }
  [13:09:27.782]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:27.782]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.782]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.782]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.782]             {
  [13:09:27.782]                 if (substitute) 
  [13:09:27.782]                   expr <- substitute(expr)
  [13:09:27.782]                 if (is.function(workers)) 
  [13:09:27.782]                   workers <- workers()
  [13:09:27.782]                 workers <- as.integer(workers)
  [13:09:27.782]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.782]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.782]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.782]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.782]                     local = TRUE, label = label, ...))
  [13:09:27.782]                 }
  [13:09:27.782]                 oopts <- options(mc.cores = workers)
  [13:09:27.782]                 on.exit(options(oopts))
  [13:09:27.782]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.782]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.782]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.782]                   label = label, ...)
  [13:09:27.782]                 if (!future$lazy) 
  [13:09:27.782]                   future <- run(future)
  [13:09:27.782]                 invisible(future)
  [13:09:27.782]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:27.782]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:09:27.782]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:09:27.782]                 label = NULL, ...) 
  [13:09:27.782]             {
  [13:09:27.782]                 if (substitute) 
  [13:09:27.782]                   expr <- substitute(expr)
  [13:09:27.782]                 if (is.function(workers)) 
  [13:09:27.782]                   workers <- workers()
  [13:09:27.782]                 workers <- as.integer(workers)
  [13:09:27.782]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:27.782]                   workers >= 1)
  [13:09:27.782]                 if (workers == 1L) {
  [13:09:27.782]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.782]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:27.782]                     local = TRUE, label = label, ...))
  [13:09:27.782]                 }
  [13:09:27.782]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:27.782]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:27.782]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.782]                   globals = globals, persistent = persistent, 
  [13:09:27.782]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:27.782]                   label = label, ...)
  [13:09:27.782]                 if (!future$lazy) 
  [13:09:27.782]                   future <- run(future)
  [13:09:27.782]                 invisible(future)
  [13:09:27.782]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.782]         }
  [13:09:27.782]         options(...future.oldOptions)
  [13:09:27.782]     })
  [13:09:27.782]     if (is.na(TRUE)) {
  [13:09:27.782]     }
  [13:09:27.782]     else {
  [13:09:27.782]         sink(type = "output", split = FALSE)
  [13:09:27.782]         if (TRUE) {
  [13:09:27.782]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.782]         }
  [13:09:27.782]         else {
  [13:09:27.782]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.782]         }
  [13:09:27.782]         close(...future.stdout)
  [13:09:27.782]         ...future.stdout <- NULL
  [13:09:27.782]     }
  [13:09:27.782]     ...future.result$conditions <- ...future.conditions
  [13:09:27.782]     ...future.result
  [13:09:27.782] }
  [13:09:27.787] requestCore(): workers = 2
  [13:09:27.791] MulticoreFuture started
  [13:09:27.793] Chunk #1 of 2 ... DONE
  [13:09:27.803] plan(): Setting new future strategy stack:
  [13:09:27.804] List of future strategies:
  [13:09:27.804] 1. multisession:
  [13:09:27.804]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.804]    - tweaked: FALSE
  [13:09:27.804]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.794] Chunk #2 of 2 ...
  [13:09:27.808]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:27.808] getGlobalsAndPackages() ...
  [13:09:27.809] Searching for globals...
  [13:09:27.809] plan(): nbrOfWorkers() = 1
  [13:09:27.810] 
  [13:09:27.811] Searching for globals ... DONE
  [13:09:27.811] - globals: [0] <none>
  [13:09:27.812] getGlobalsAndPackages() ... DONE
  [13:09:27.812] 
  [13:09:27.813] 
  [13:09:27.813]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:27.815] getGlobalsAndPackages() ...
  [13:09:27.815] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.816] Resolving globals: FALSE
  [13:09:27.818] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:27.818] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:27.819] 
  [13:09:27.819] getGlobalsAndPackages() ... DONE
  [13:09:27.822] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:27.823] Packages needed by future strategies (n = 1): 'future'
  [13:09:27.829] {
  [13:09:27.829]     {
  [13:09:27.829]         ...future.startTime <- Sys.time()
  [13:09:27.829]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.829]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.829]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.829]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.829]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.829]         {
  [13:09:27.829]             {
  [13:09:27.829]                 {
  [13:09:27.829]                   {
  [13:09:27.829]                     has_future <- requireNamespace("future", 
  [13:09:27.829]                       quietly = TRUE)
  [13:09:27.829]                     version <- if (has_future) 
  [13:09:27.829]                       packageVersion("future")
  [13:09:27.829]                     else NULL
  [13:09:27.829]                     if (!has_future || version < "1.8.0") {
  [13:09:27.829]                       info <- c(r_version = gsub("R version ", 
  [13:09:27.829]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.829]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.829]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.829]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.829]                       info <- sprintf("%s: %s", names(info), 
  [13:09:27.829]                         info)
  [13:09:27.829]                       info <- paste(info, collapse = "; ")
  [13:09:27.829]                       if (!has_future) {
  [13:09:27.829]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.829]                           info)
  [13:09:27.829]                       }
  [13:09:27.829]                       else {
  [13:09:27.829]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.829]                           info, version)
  [13:09:27.829]                       }
  [13:09:27.829]                       stop(msg)
  [13:09:27.829]                     }
  [13:09:27.829]                   }
  [13:09:27.829]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:27.829]                   options(mc.cores = 1L)
  [13:09:27.829]                 }
  [13:09:27.829]                 local({
  [13:09:27.829]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:27.829]                   "future")) {
  [13:09:27.829]                     loadNamespace(pkg)
  [13:09:27.829]                     library(pkg, character.only = TRUE)
  [13:09:27.829]                   }
  [13:09:27.829]                 })
  [13:09:27.829]             }
  [13:09:27.829]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.829]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.829]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.829]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:27.829]                 ...) 
  [13:09:27.829]             {
  [13:09:27.829]                 if (substitute) 
  [13:09:27.829]                   expr <- substitute(expr)
  [13:09:27.829]                 if (is.function(workers)) 
  [13:09:27.829]                   workers <- workers()
  [13:09:27.829]                 workers <- as.integer(workers)
  [13:09:27.829]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:27.829]                   workers >= 1)
  [13:09:27.829]                 if (workers == 1L) {
  [13:09:27.829]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.829]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:27.829]                     local = TRUE, label = label, ...))
  [13:09:27.829]                 }
  [13:09:27.829]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:27.829]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:27.829]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.829]                   globals = globals, persistent = persistent, 
  [13:09:27.829]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:27.829]                   label = label, ...)
  [13:09:27.829]                 if (!future$lazy) 
  [13:09:27.829]                   future <- run(future)
  [13:09:27.829]                 invisible(future)
  [13:09:27.829]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.829]         }
  [13:09:27.829]     }
  [13:09:27.829]     if (is.na(TRUE)) {
  [13:09:27.829]     }
  [13:09:27.829]     else {
  [13:09:27.829]         if (TRUE) {
  [13:09:27.829]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.829]         }
  [13:09:27.829]         else {
  [13:09:27.829]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.829]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.829]         }
  [13:09:27.829]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.829]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.829]             sink(type = "output", split = FALSE)
  [13:09:27.829]             close(...future.stdout)
  [13:09:27.829]         }, add = TRUE)
  [13:09:27.829]     }
  [13:09:27.829]     ...future.frame <- sys.nframe()
  [13:09:27.829]     ...future.conditions <- list()
  [13:09:27.829]     ...future.result <- tryCatch({
  [13:09:27.829]         withCallingHandlers({
  [13:09:27.829]             ...future.value <- local({
  [13:09:27.829]                 doFuture::registerDoFuture()
  [13:09:27.829]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.829]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.829]                   a <- NULL
  [13:09:27.829]                   ...future.env <- environment()
  [13:09:27.829]                   local({
  [13:09:27.829]                     for (name in names(...future.x_jj)) {
  [13:09:27.829]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.829]                         inherits = FALSE)
  [13:09:27.829]                     }
  [13:09:27.829]                   })
  [13:09:27.829]                   tryCatch({
  [13:09:27.829]                     plan_list <- future::plan()
  [13:09:27.829]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:27.829]                     plan_a <- future::plan("list")
  [13:09:27.829]                     str(plan_a)
  [13:09:27.829]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:27.829]                     message("foreach() - level 2 ...")
  [13:09:27.829]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:27.829]                       {
  [13:09:27.829]                         plan_list <- future::plan()
  [13:09:27.829]                         message(capture.output(print(plan_list)))
  [13:09:27.829]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:27.829]                           inherits(plan_list, getOption("future.default", 
  [13:09:27.829]                             "sequential")))
  [13:09:27.829]                         plan_b <- future::plan("list")
  [13:09:27.829]                         str(plan_b)
  [13:09:27.829]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.829]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.829]                             "sequential")))
  [13:09:27.829]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.829]                       }
  [13:09:27.829]                     message("foreach() - level 2 ... DONE")
  [13:09:27.829]                     y
  [13:09:27.829]                   }, error = identity)
  [13:09:27.829]                 })
  [13:09:27.829]             })
  [13:09:27.829]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.829]                 version = "1.8")
  [13:09:27.829]         }, condition = local({
  [13:09:27.829]             inherits <- base::inherits
  [13:09:27.829]             invokeRestart <- base::invokeRestart
  [13:09:27.829]             length <- base::length
  [13:09:27.829]             seq.int <- base::seq.int
  [13:09:27.829]             sys.calls <- base::sys.calls
  [13:09:27.829]             `[[` <- base::`[[`
  [13:09:27.829]             `+` <- base::`+`
  [13:09:27.829]             `<<-` <- base::`<<-`
  [13:09:27.829]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.829]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.829]                   3L)]
  [13:09:27.829]             }
  [13:09:27.829]             function(cond) {
  [13:09:27.829]                 if (inherits(cond, "error")) {
  [13:09:27.829]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.829]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.829]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.829]                   signalCondition(cond)
  [13:09:27.829]                 }
  [13:09:27.829]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.829]                 ))) {
  [13:09:27.829]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.829]                     1L]] <<- list(condition = cond)
  [13:09:27.829]                   if (inherits(cond, "message")) {
  [13:09:27.829]                     invokeRestart("muffleMessage")
  [13:09:27.829]                   }
  [13:09:27.829]                   else if (inherits(cond, "warning")) {
  [13:09:27.829]                     invokeRestart("muffleWarning")
  [13:09:27.829]                   }
  [13:09:27.829]                 }
  [13:09:27.829]             }
  [13:09:27.829]         }))
  [13:09:27.829]     }, error = function(ex) {
  [13:09:27.829]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.829]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.829]             class = "FutureResult")
  [13:09:27.829]     }, finally = {
  [13:09:27.829]         {
  [13:09:27.829]             {
  [13:09:27.829]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:27.829]             }
  [13:09:27.829]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:27.829]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.829]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:27.829]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:27.829]             {
  [13:09:27.829]                 if (substitute) 
  [13:09:27.829]                   expr <- substitute(expr)
  [13:09:27.829]                 if (is.function(workers)) 
  [13:09:27.829]                   workers <- workers()
  [13:09:27.829]                 workers <- as.integer(workers)
  [13:09:27.829]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:27.829]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:27.829]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.829]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:27.829]                     local = TRUE, label = label, ...))
  [13:09:27.829]                 }
  [13:09:27.829]                 oopts <- options(mc.cores = workers)
  [13:09:27.829]                 on.exit(options(oopts))
  [13:09:27.829]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:27.829]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.829]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:27.829]                   label = label, ...)
  [13:09:27.829]                 if (!future$lazy) 
  [13:09:27.829]                   future <- run(future)
  [13:09:27.829]                 invisible(future)
  [13:09:27.829]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:27.829]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:09:27.829]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:09:27.829]                 label = NULL, ...) 
  [13:09:27.829]             {
  [13:09:27.829]                 if (substitute) 
  [13:09:27.829]                   expr <- substitute(expr)
  [13:09:27.829]                 if (is.function(workers)) 
  [13:09:27.829]                   workers <- workers()
  [13:09:27.829]                 workers <- as.integer(workers)
  [13:09:27.829]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:27.829]                   workers >= 1)
  [13:09:27.829]                 if (workers == 1L) {
  [13:09:27.829]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.829]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:27.829]                     local = TRUE, label = label, ...))
  [13:09:27.829]                 }
  [13:09:27.829]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:27.829]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:27.829]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.829]                   globals = globals, persistent = persistent, 
  [13:09:27.829]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:27.829]                   label = label, ...)
  [13:09:27.829]                 if (!future$lazy) 
  [13:09:27.829]                   future <- run(future)
  [13:09:27.829]                 invisible(future)
  [13:09:27.829]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.829]         }
  [13:09:27.829]         options(...future.oldOptions)
  [13:09:27.829]     })
  [13:09:27.829]     if (is.na(TRUE)) {
  [13:09:27.829]     }
  [13:09:27.829]     else {
  [13:09:27.829]         sink(type = "output", split = FALSE)
  [13:09:27.829]         if (TRUE) {
  [13:09:27.829]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.829]         }
  [13:09:27.829]         else {
  [13:09:27.829]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.829]         }
  [13:09:27.829]         close(...future.stdout)
  [13:09:27.829]         ...future.stdout <- NULL
  [13:09:27.829]     }
  [13:09:27.829]     ...future.result$conditions <- ...future.conditions
  [13:09:27.829]     ...future.result
  [13:09:27.829] }
  [13:09:27.835] requestCore(): workers = 2
  [13:09:27.839] MulticoreFuture started
  [13:09:27.840] Chunk #2 of 2 ... DONE
  [13:09:27.841] Launching 2 futures (chunks) ... DONE
  [13:09:27.841] - resolving futures
  [13:09:27.842] resolve() on list ...
  [13:09:27.842]  recursive: 0
  [13:09:27.843]  length: 2
  [13:09:27.843] 
  [13:09:27.860] plan(): Setting new future strategy stack:
  [13:09:27.861] List of future strategies:
  [13:09:27.861] 1. multisession:
  [13:09:27.861]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.861]    - tweaked: FALSE
  [13:09:27.861]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.864] plan(): nbrOfWorkers() = 1
  [13:09:27.979] plan(): Setting new future strategy stack:
  [13:09:27.980] List of future strategies:
  [13:09:27.980] 1. multicore:
  [13:09:27.980]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:27.980]    - tweaked: FALSE
  [13:09:27.980]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.980] 2. multisession:
  [13:09:27.980]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.980]    - tweaked: FALSE
  [13:09:27.980]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.982] plan(): nbrOfWorkers() = 2
  [13:09:27.983]  length: 1 (resolved future 1)
  [13:09:28.073] plan(): Setting new future strategy stack:
  [13:09:28.073] List of future strategies:
  [13:09:28.073] 1. multicore:
  [13:09:28.073]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:28.073]    - tweaked: FALSE
  [13:09:28.073]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.073] 2. multisession:
  [13:09:28.073]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.073]    - tweaked: FALSE
  [13:09:28.073]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.075] plan(): nbrOfWorkers() = 2
  [13:09:28.077]  length: 0 (resolved future 2)
  [13:09:28.077] resolve() on list ... DONE
  [13:09:28.078] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.081] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:27.820] doFuture() ...
  [13:09:27.822] - dummy globals (as locals): [1] 'b'
  [13:09:27.829] - R expression:
  [13:09:27.830] {
  [13:09:27.830]     doFuture::registerDoFuture()
  [13:09:27.830]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.830]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.830]         b <- NULL
  [13:09:27.830]         ...future.env <- environment()
  [13:09:27.830]         local({
  [13:09:27.830]             for (name in names(...future.x_jj)) {
  [13:09:27.830]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.830]                   inherits = FALSE)
  [13:09:27.830]             }
  [13:09:27.830]         })
  [13:09:27.830]         tryCatch({
  [13:09:27.830]             plan_list <- future::plan()
  [13:09:27.830]             message(capture.output(print(plan_list)))
  [13:09:27.830]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.830]                 getOption("future.default", "sequential")))
  [13:09:27.830]             plan_b <- future::plan("list")
  [13:09:27.830]             str(plan_b)
  [13:09:27.830]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.830]                 getOption("future.default", "sequential")))
  [13:09:27.830]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.830]         }, error = identity)
  [13:09:27.830]     })
  [13:09:27.830] }
  [13:09:27.831] - identifying globals and packages ...
  [13:09:27.832] getGlobalsAndPackages() ...
  [13:09:27.832] Searching for globals...
  [13:09:27.867] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:27.868] Searching for globals ... DONE
  [13:09:27.869] Resolving globals: FALSE
  [13:09:27.878] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:09:27.878] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.879] - packages: [1] 'utils'
  [13:09:27.880] getGlobalsAndPackages() ... DONE
  [13:09:27.880] List of 3
  [13:09:27.880]  $ ...future.x_ii: NULL
  [13:09:27.880]  $ a             : int 1
  [13:09:27.880]  $ plan_a        :List of 1
  [13:09:27.880]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.880]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.880]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.880]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:27.880]   .. ..- attr(*, "init")= logi TRUE
  [13:09:27.880]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.880]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.880]  - attr(*, "where")=List of 3
  [13:09:27.880]   ..$ ...future.x_ii:<environment: 0x55c30e40b1e0> 
  [13:09:27.880]   ..$ a             :<environment: 0x55c30e0cff40> 
  [13:09:27.880]   ..$ plan_a        :<environment: 0x55c30e0cff40> 
  [13:09:27.880]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.880]  - attr(*, "resolved")= logi FALSE
  [13:09:27.880]  - attr(*, "total_size")= num 83544
  [13:09:27.897]   - R expression:
  [13:09:27.897] {
  [13:09:27.897]     doFuture::registerDoFuture()
  [13:09:27.897]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.897]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.897]         b <- NULL
  [13:09:27.897]         ...future.env <- environment()
  [13:09:27.897]         local({
  [13:09:27.897]             for (name in names(...future.x_jj)) {
  [13:09:27.897]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.897]                   inherits = FALSE)
  [13:09:27.897]             }
  [13:09:27.897]         })
  [13:09:27.897]         tryCatch({
  [13:09:27.897]             plan_list <- future::plan()
  [13:09:27.897]             message(capture.output(print(plan_list)))
  [13:09:27.897]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.897]                 getOption("future.default", "sequential")))
  [13:09:27.897]             plan_b <- future::plan("list")
  [13:09:27.897]             str(plan_b)
  [13:09:27.897]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.897]                 getOption("future.default", "sequential")))
  [13:09:27.897]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.897]         }, error = identity)
  [13:09:27.897]     })
  [13:09:27.897] }
  [13:09:27.898]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.899] List of 3
  [13:09:27.899]  $ ...future.x_ii: NULL
  [13:09:27.899]  $ a             : int 1
  [13:09:27.899]  $ plan_a        :List of 1
  [13:09:27.899]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.899]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.899]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.899]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:27.899]   .. ..- attr(*, "init")= logi TRUE
  [13:09:27.899]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.899]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.899]  - attr(*, "where")=List of 3
  [13:09:27.899]   ..$ ...future.x_ii:<environment: 0x55c30e40b1e0> 
  [13:09:27.899]   ..$ a             :<environment: 0x55c30e0cff40> 
  [13:09:27.899]   ..$ plan_a        :<environment: 0x55c30e0cff40> 
  [13:09:27.899]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.899]  - attr(*, "resolved")= logi FALSE
  [13:09:27.899]  - attr(*, "total_size")= num 83544
  [13:09:27.915]   - packages: [2] 'doFuture', 'utils'
  [13:09:27.915] - identifying globals and packages ... DONE
  [13:09:27.916] Number of chunks: 1
  [13:09:27.917] Number of futures (= number of chunks): 1
  [13:09:27.917] Launching 1 futures (chunks) ...
  [13:09:27.918] Chunk #1 of 1 ...
  [13:09:27.918]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:27.919] getGlobalsAndPackages() ...
  [13:09:27.919] Searching for globals...
  [13:09:27.920] 
  [13:09:27.921] Searching for globals ... DONE
  [13:09:27.921] - globals: [0] <none>
  [13:09:27.922] getGlobalsAndPackages() ... DONE
  [13:09:27.922] 
  [13:09:27.923] 
  [13:09:27.923]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:27.924] getGlobalsAndPackages() ...
  [13:09:27.925] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.925] Resolving globals: FALSE
  [13:09:27.927] The total size of the 3 globals is 81.75 KiB (83712 bytes)
  [13:09:27.928] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.928] 
  [13:09:27.929] getGlobalsAndPackages() ... DONE
  [13:09:27.930] Chunk #1 of 1 ... DONE
  [13:09:27.931] Launching 1 futures (chunks) ... DONE
  [13:09:27.931] - resolving futures
  [13:09:27.931] resolve() on list ...
  [13:09:27.932]  recursive: 0
  [13:09:27.932]  length: 1
  [13:09:27.933] 
  [13:09:27.935] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:27.935] Packages needed by future strategies (n = 0): <none>
  [13:09:27.945] {
  [13:09:27.945]     {
  [13:09:27.945]         ...future.startTime <- Sys.time()
  [13:09:27.945]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:27.945]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:27.945]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:27.945]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:27.945]             future.resolve.recursive = NULL, width = 80L)
  [13:09:27.945]         {
  [13:09:27.945]             {
  [13:09:27.945]                 {
  [13:09:27.945]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:27.945]                   version <- if (has_future) 
  [13:09:27.945]                     packageVersion("future")
  [13:09:27.945]                   else NULL
  [13:09:27.945]                   if (!has_future || version < "1.8.0") {
  [13:09:27.945]                     info <- c(r_version = gsub("R version ", 
  [13:09:27.945]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:27.945]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:27.945]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:27.945]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:27.945]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:27.945]                     info <- paste(info, collapse = "; ")
  [13:09:27.945]                     if (!has_future) {
  [13:09:27.945]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:27.945]                         info)
  [13:09:27.945]                     }
  [13:09:27.945]                     else {
  [13:09:27.945]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:27.945]                         info, version)
  [13:09:27.945]                     }
  [13:09:27.945]                     stop(msg)
  [13:09:27.945]                   }
  [13:09:27.945]                 }
  [13:09:27.945]                 local({
  [13:09:27.945]                   for (pkg in c("doFuture", "utils")) {
  [13:09:27.945]                     loadNamespace(pkg)
  [13:09:27.945]                     library(pkg, character.only = TRUE)
  [13:09:27.945]                   }
  [13:09:27.945]                 })
  [13:09:27.945]             }
  [13:09:27.945]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:27.945]         }
  [13:09:27.945]     }
  [13:09:27.945]     if (is.na(TRUE)) {
  [13:09:27.945]     }
  [13:09:27.945]     else {
  [13:09:27.945]         if (TRUE) {
  [13:09:27.945]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:27.945]         }
  [13:09:27.945]         else {
  [13:09:27.945]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:27.945]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:27.945]         }
  [13:09:27.945]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:27.945]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:27.945]             sink(type = "output", split = FALSE)
  [13:09:27.945]             close(...future.stdout)
  [13:09:27.945]         }, add = TRUE)
  [13:09:27.945]     }
  [13:09:27.945]     ...future.frame <- sys.nframe()
  [13:09:27.945]     ...future.conditions <- list()
  [13:09:27.945]     ...future.result <- tryCatch({
  [13:09:27.945]         withCallingHandlers({
  [13:09:27.945]             ...future.value <- local({
  [13:09:27.945]                 doFuture::registerDoFuture()
  [13:09:27.945]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.945]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.945]                   b <- NULL
  [13:09:27.945]                   ...future.env <- environment()
  [13:09:27.945]                   local({
  [13:09:27.945]                     for (name in names(...future.x_jj)) {
  [13:09:27.945]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.945]                         inherits = FALSE)
  [13:09:27.945]                     }
  [13:09:27.945]                   })
  [13:09:27.945]                   tryCatch({
  [13:09:27.945]                     plan_list <- future::plan()
  [13:09:27.945]                     message(capture.output(print(plan_list)))
  [13:09:27.945]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:27.945]                       inherits(plan_list, getOption("future.default", 
  [13:09:27.945]                         "sequential")))
  [13:09:27.945]                     plan_b <- future::plan("list")
  [13:09:27.945]                     str(plan_b)
  [13:09:27.945]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:27.945]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:27.945]                         "sequential")))
  [13:09:27.945]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.945]                   }, error = identity)
  [13:09:27.945]                 })
  [13:09:27.945]             })
  [13:09:27.945]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:27.945]                 version = "1.8")
  [13:09:27.945]         }, condition = local({
  [13:09:27.945]             inherits <- base::inherits
  [13:09:27.945]             invokeRestart <- base::invokeRestart
  [13:09:27.945]             length <- base::length
  [13:09:27.945]             seq.int <- base::seq.int
  [13:09:27.945]             sys.calls <- base::sys.calls
  [13:09:27.945]             `[[` <- base::`[[`
  [13:09:27.945]             `+` <- base::`+`
  [13:09:27.945]             `<<-` <- base::`<<-`
  [13:09:27.945]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:27.945]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:27.945]                   3L)]
  [13:09:27.945]             }
  [13:09:27.945]             function(cond) {
  [13:09:27.945]                 if (inherits(cond, "error")) {
  [13:09:27.945]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.945]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:27.945]                     cond$call), timestamp = base::Sys.time())
  [13:09:27.945]                   signalCondition(cond)
  [13:09:27.945]                 }
  [13:09:27.945]                 else if (inherits(cond, c("message", "warning"
  [13:09:27.945]                 ))) {
  [13:09:27.945]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:27.945]                     1L]] <<- list(condition = cond)
  [13:09:27.945]                   if (inherits(cond, "message")) {
  [13:09:27.945]                     invokeRestart("muffleMessage")
  [13:09:27.945]                   }
  [13:09:27.945]                   else if (inherits(cond, "warning")) {
  [13:09:27.945]                     invokeRestart("muffleWarning")
  [13:09:27.945]                   }
  [13:09:27.945]                 }
  [13:09:27.945]             }
  [13:09:27.945]         }))
  [13:09:27.945]     }, error = function(ex) {
  [13:09:27.945]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:27.945]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:27.945]             class = "FutureResult")
  [13:09:27.945]     }, finally = {
  [13:09:27.945]         {
  [13:09:27.945]             NULL
  [13:09:27.945]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:27.945]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:27.945]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.945]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:27.945]                 ...) 
  [13:09:27.945]             {
  [13:09:27.945]                 if (substitute) 
  [13:09:27.945]                   expr <- substitute(expr)
  [13:09:27.945]                 if (is.function(workers)) 
  [13:09:27.945]                   workers <- workers()
  [13:09:27.945]                 workers <- as.integer(workers)
  [13:09:27.945]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:27.945]                   workers >= 1)
  [13:09:27.945]                 if (workers == 1L) {
  [13:09:27.945]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:27.945]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:27.945]                     local = TRUE, label = label, ...))
  [13:09:27.945]                 }
  [13:09:27.945]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:27.945]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:27.945]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:27.945]                   globals = globals, persistent = persistent, 
  [13:09:27.945]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:27.945]                   label = label, ...)
  [13:09:27.945]                 if (!future$lazy) 
  [13:09:27.945]                   future <- run(future)
  [13:09:27.945]                 invisible(future)
  [13:09:27.945]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:27.945]         }
  [13:09:27.945]         options(...future.oldOptions)
  [13:09:27.945]     })
  [13:09:27.945]     if (is.na(TRUE)) {
  [13:09:27.945]     }
  [13:09:27.945]     else {
  [13:09:27.945]         sink(type = "output", split = FALSE)
  [13:09:27.945]         if (TRUE) {
  [13:09:27.945]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:27.945]         }
  [13:09:27.945]         else {
  [13:09:27.945]             ...future.result["stdout"] <- list(NULL)
  [13:09:27.945]         }
  [13:09:27.945]         close(...future.stdout)
  [13:09:27.945]         ...future.stdout <- NULL
  [13:09:27.945]     }
  [13:09:27.945]     ...future.result$conditions <- ...future.conditions
  [13:09:27.945]     ...future.result
  [13:09:27.945] }
  [13:09:27.951] plan(): Setting new future strategy stack:
  [13:09:27.952] List of future strategies:
  [13:09:27.952] 1. sequential:
  [13:09:27.952]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.952]    - tweaked: FALSE
  [13:09:27.952]    - call: NULL
  [13:09:27.953] plan(): nbrOfWorkers() = 1
  [13:09:27.968] plan(): Setting new future strategy stack:
  [13:09:27.969] List of future strategies:
  [13:09:27.969] 1. multisession:
  [13:09:27.969]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:27.969]    - tweaked: FALSE
  [13:09:27.969]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:27.971] plan(): nbrOfWorkers() = 1
  [13:09:27.972] SequentialFuture started (and completed)
  [13:09:27.972]  length: 0 (resolved future 1)
  [13:09:27.973] resolve() on list ... DONE
  [13:09:27.973] - relaying conditions of futures
  [13:09:27.974] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:27.975] - collecting values of futures
  [13:09:27.976] - accumulating results
  [13:09:27.977] - processing errors (handler = 'stop')
  [13:09:27.978] - extracting results
  [13:09:27.978] doFuture() ... DONE
  foreach() - level 2 ... DONE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.112] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:27.887] doFuture() ...
  [13:09:27.890] - dummy globals (as locals): [1] 'b'
  [13:09:27.891] - R expression:
  [13:09:27.892] {
  [13:09:27.892]     doFuture::registerDoFuture()
  [13:09:27.892]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.892]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.892]         b <- NULL
  [13:09:27.892]         ...future.env <- environment()
  [13:09:27.892]         local({
  [13:09:27.892]             for (name in names(...future.x_jj)) {
  [13:09:27.892]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.892]                   inherits = FALSE)
  [13:09:27.892]             }
  [13:09:27.892]         })
  [13:09:27.892]         tryCatch({
  [13:09:27.892]             plan_list <- future::plan()
  [13:09:27.892]             message(capture.output(print(plan_list)))
  [13:09:27.892]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.892]                 getOption("future.default", "sequential")))
  [13:09:27.892]             plan_b <- future::plan("list")
  [13:09:27.892]             str(plan_b)
  [13:09:27.892]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.892]                 getOption("future.default", "sequential")))
  [13:09:27.892]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.892]         }, error = identity)
  [13:09:27.892]     })
  [13:09:27.892] }
  [13:09:27.894] - identifying globals and packages ...
  [13:09:27.894] getGlobalsAndPackages() ...
  [13:09:27.895] Searching for globals...
  [13:09:27.969] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:27.970] Searching for globals ... DONE
  [13:09:27.970] Resolving globals: FALSE
  [13:09:27.974] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:09:27.974] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.975] - packages: [1] 'utils'
  [13:09:27.975] getGlobalsAndPackages() ... DONE
  [13:09:27.976] List of 3
  [13:09:27.976]  $ ...future.x_ii: NULL
  [13:09:27.976]  $ a             : int 2
  [13:09:27.976]  $ plan_a        :List of 1
  [13:09:27.976]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.976]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.976]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.976]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:27.976]   .. ..- attr(*, "init")= logi TRUE
  [13:09:27.976]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.976]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.976]  - attr(*, "where")=List of 3
  [13:09:27.976]   ..$ ...future.x_ii:<environment: 0x55c30fd3a1d8> 
  [13:09:27.976]   ..$ a             :<environment: 0x55c30e387328> 
  [13:09:27.976]   ..$ plan_a        :<environment: 0x55c30e387328> 
  [13:09:27.976]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.976]  - attr(*, "resolved")= logi FALSE
  [13:09:27.976]  - attr(*, "total_size")= num 83544
  [13:09:27.992]   - R expression:
  [13:09:27.993] {
  [13:09:27.993]     doFuture::registerDoFuture()
  [13:09:27.993]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:27.993]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:27.993]         b <- NULL
  [13:09:27.993]         ...future.env <- environment()
  [13:09:27.993]         local({
  [13:09:27.993]             for (name in names(...future.x_jj)) {
  [13:09:27.993]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:27.993]                   inherits = FALSE)
  [13:09:27.993]             }
  [13:09:27.993]         })
  [13:09:27.993]         tryCatch({
  [13:09:27.993]             plan_list <- future::plan()
  [13:09:27.993]             message(capture.output(print(plan_list)))
  [13:09:27.993]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:27.993]                 getOption("future.default", "sequential")))
  [13:09:27.993]             plan_b <- future::plan("list")
  [13:09:27.993]             str(plan_b)
  [13:09:27.993]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:27.993]                 getOption("future.default", "sequential")))
  [13:09:27.993]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:27.993]         }, error = identity)
  [13:09:27.993]     })
  [13:09:27.993] }
  [13:09:27.994]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:27.995] List of 3
  [13:09:27.995]  $ ...future.x_ii: NULL
  [13:09:27.995]  $ a             : int 2
  [13:09:27.995]  $ plan_a        :List of 1
  [13:09:27.995]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:27.995]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:27.995]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:09:27.995]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:09:27.995]   .. ..- attr(*, "init")= logi TRUE
  [13:09:27.995]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:27.995]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:27.995]  - attr(*, "where")=List of 3
  [13:09:27.995]   ..$ ...future.x_ii:<environment: 0x55c30fd3a1d8> 
  [13:09:27.995]   ..$ a             :<environment: 0x55c30e387328> 
  [13:09:27.995]   ..$ plan_a        :<environment: 0x55c30e387328> 
  [13:09:27.995]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:27.995]  - attr(*, "resolved")= logi FALSE
  [13:09:27.995]  - attr(*, "total_size")= num 83544
  [13:09:28.009]   - packages: [2] 'doFuture', 'utils'
  [13:09:28.010] - identifying globals and packages ... DONE
  [13:09:28.011] Number of chunks: 1
  [13:09:28.012] Number of futures (= number of chunks): 1
  [13:09:28.012] Launching 1 futures (chunks) ...
  [13:09:28.018] Chunk #1 of 1 ...
  [13:09:28.018]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:28.019] getGlobalsAndPackages() ...
  [13:09:28.019] Searching for globals...
  [13:09:28.020] 
  [13:09:28.021] Searching for globals ... DONE
  [13:09:28.022] - globals: [0] <none>
  [13:09:28.022] getGlobalsAndPackages() ... DONE
  [13:09:28.022] 
  [13:09:28.023] 
  [13:09:28.023]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:28.024] getGlobalsAndPackages() ...
  [13:09:28.025] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.026] Resolving globals: FALSE
  [13:09:28.027] The total size of the 3 globals is 81.75 KiB (83712 bytes)
  [13:09:28.028] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.028] 
  [13:09:28.029] getGlobalsAndPackages() ... DONE
  [13:09:28.030] Chunk #1 of 1 ... DONE
  [13:09:28.031] Launching 1 futures (chunks) ... DONE
  [13:09:28.031] - resolving futures
  [13:09:28.032] resolve() on list ...
  [13:09:28.032]  recursive: 0
  [13:09:28.033]  length: 1
  [13:09:28.033] 
  [13:09:28.035] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:28.036] Packages needed by future strategies (n = 0): <none>
  [13:09:28.041] {
  [13:09:28.041]     {
  [13:09:28.041]         ...future.startTime <- Sys.time()
  [13:09:28.041]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:28.041]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:28.041]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:28.041]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:28.041]             future.resolve.recursive = NULL, width = 80L)
  [13:09:28.041]         {
  [13:09:28.041]             {
  [13:09:28.041]                 {
  [13:09:28.041]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:28.041]                   version <- if (has_future) 
  [13:09:28.041]                     packageVersion("future")
  [13:09:28.041]                   else NULL
  [13:09:28.041]                   if (!has_future || version < "1.8.0") {
  [13:09:28.041]                     info <- c(r_version = gsub("R version ", 
  [13:09:28.041]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:28.041]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:28.041]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:28.041]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:28.041]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:28.041]                     info <- paste(info, collapse = "; ")
  [13:09:28.041]                     if (!has_future) {
  [13:09:28.041]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:28.041]                         info)
  [13:09:28.041]                     }
  [13:09:28.041]                     else {
  [13:09:28.041]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:28.041]                         info, version)
  [13:09:28.041]                     }
  [13:09:28.041]                     stop(msg)
  [13:09:28.041]                   }
  [13:09:28.041]                 }
  [13:09:28.041]                 local({
  [13:09:28.041]                   for (pkg in c("doFuture", "utils")) {
  [13:09:28.041]                     loadNamespace(pkg)
  [13:09:28.041]                     library(pkg, character.only = TRUE)
  [13:09:28.041]                   }
  [13:09:28.041]                 })
  [13:09:28.041]             }
  [13:09:28.041]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:28.041]         }
  [13:09:28.041]     }
  [13:09:28.041]     if (is.na(TRUE)) {
  [13:09:28.041]     }
  [13:09:28.041]     else {
  [13:09:28.041]         if (TRUE) {
  [13:09:28.041]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:28.041]         }
  [13:09:28.041]         else {
  [13:09:28.041]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:28.041]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:28.041]         }
  [13:09:28.041]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:28.041]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:28.041]             sink(type = "output", split = FALSE)
  [13:09:28.041]             close(...future.stdout)
  [13:09:28.041]         }, add = TRUE)
  [13:09:28.041]     }
  [13:09:28.041]     ...future.frame <- sys.nframe()
  [13:09:28.041]     ...future.conditions <- list()
  [13:09:28.041]     ...future.result <- tryCatch({
  [13:09:28.041]         withCallingHandlers({
  [13:09:28.041]             ...future.value <- local({
  [13:09:28.041]                 doFuture::registerDoFuture()
  [13:09:28.041]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.041]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.041]                   b <- NULL
  [13:09:28.041]                   ...future.env <- environment()
  [13:09:28.041]                   local({
  [13:09:28.041]                     for (name in names(...future.x_jj)) {
  [13:09:28.041]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.041]                         inherits = FALSE)
  [13:09:28.041]                     }
  [13:09:28.041]                   })
  [13:09:28.041]                   tryCatch({
  [13:09:28.041]                     plan_list <- future::plan()
  [13:09:28.041]                     message(capture.output(print(plan_list)))
  [13:09:28.041]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:28.041]                       inherits(plan_list, getOption("future.default", 
  [13:09:28.041]                         "sequential")))
  [13:09:28.041]                     plan_b <- future::plan("list")
  [13:09:28.041]                     str(plan_b)
  [13:09:28.041]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:28.041]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:28.041]                         "sequential")))
  [13:09:28.041]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.041]                   }, error = identity)
  [13:09:28.041]                 })
  [13:09:28.041]             })
  [13:09:28.041]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:28.041]                 version = "1.8")
  [13:09:28.041]         }, condition = local({
  [13:09:28.041]             inherits <- base::inherits
  [13:09:28.041]             invokeRestart <- base::invokeRestart
  [13:09:28.041]             length <- base::length
  [13:09:28.041]             seq.int <- base::seq.int
  [13:09:28.041]             sys.calls <- base::sys.calls
  [13:09:28.041]             `[[` <- base::`[[`
  [13:09:28.041]             `+` <- base::`+`
  [13:09:28.041]             `<<-` <- base::`<<-`
  [13:09:28.041]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:28.041]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:28.041]                   3L)]
  [13:09:28.041]             }
  [13:09:28.041]             function(cond) {
  [13:09:28.041]                 if (inherits(cond, "error")) {
  [13:09:28.041]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.041]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:28.041]                     cond$call), timestamp = base::Sys.time())
  [13:09:28.041]                   signalCondition(cond)
  [13:09:28.041]                 }
  [13:09:28.041]                 else if (inherits(cond, c("message", "warning"
  [13:09:28.041]                 ))) {
  [13:09:28.041]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.041]                     1L]] <<- list(condition = cond)
  [13:09:28.041]                   if (inherits(cond, "message")) {
  [13:09:28.041]                     invokeRestart("muffleMessage")
  [13:09:28.041]                   }
  [13:09:28.041]                   else if (inherits(cond, "warning")) {
  [13:09:28.041]                     invokeRestart("muffleWarning")
  [13:09:28.041]                   }
  [13:09:28.041]                 }
  [13:09:28.041]             }
  [13:09:28.041]         }))
  [13:09:28.041]     }, error = function(ex) {
  [13:09:28.041]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:28.041]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:28.041]             class = "FutureResult")
  [13:09:28.041]     }, finally = {
  [13:09:28.041]         {
  [13:09:28.041]             NULL
  [13:09:28.041]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:28.041]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:28.041]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:28.041]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:28.041]                 ...) 
  [13:09:28.041]             {
  [13:09:28.041]                 if (substitute) 
  [13:09:28.041]                   expr <- substitute(expr)
  [13:09:28.041]                 if (is.function(workers)) 
  [13:09:28.041]                   workers <- workers()
  [13:09:28.041]                 workers <- as.integer(workers)
  [13:09:28.041]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:28.041]                   workers >= 1)
  [13:09:28.041]                 if (workers == 1L) {
  [13:09:28.041]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:28.041]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:28.041]                     local = TRUE, label = label, ...))
  [13:09:28.041]                 }
  [13:09:28.041]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:28.041]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:28.041]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.041]                   globals = globals, persistent = persistent, 
  [13:09:28.041]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:28.041]                   label = label, ...)
  [13:09:28.041]                 if (!future$lazy) 
  [13:09:28.041]                   future <- run(future)
  [13:09:28.041]                 invisible(future)
  [13:09:28.041]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:28.041]         }
  [13:09:28.041]         options(...future.oldOptions)
  [13:09:28.041]     })
  [13:09:28.041]     if (is.na(TRUE)) {
  [13:09:28.041]     }
  [13:09:28.041]     else {
  [13:09:28.041]         sink(type = "output", split = FALSE)
  [13:09:28.041]         if (TRUE) {
  [13:09:28.041]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:28.041]         }
  [13:09:28.041]         else {
  [13:09:28.041]             ...future.result["stdout"] <- list(NULL)
  [13:09:28.041]         }
  [13:09:28.041]         close(...future.stdout)
  [13:09:28.041]         ...future.stdout <- NULL
  [13:09:28.041]     }
  [13:09:28.041]     ...future.result$conditions <- ...future.conditions
  [13:09:28.041]     ...future.result
  [13:09:28.041] }
  [13:09:28.047] plan(): Setting new future strategy stack:
  [13:09:28.047] List of future strategies:
  [13:09:28.047] 1. sequential:
  [13:09:28.047]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.047]    - tweaked: FALSE
  [13:09:28.047]    - call: NULL
  [13:09:28.049] plan(): nbrOfWorkers() = 1
  [13:09:28.063] plan(): Setting new future strategy stack:
  [13:09:28.063] List of future strategies:
  [13:09:28.063] 1. multisession:
  [13:09:28.063]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.063]    - tweaked: FALSE
  [13:09:28.063]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.065] plan(): nbrOfWorkers() = 1
  [13:09:28.065] SequentialFuture started (and completed)
  [13:09:28.066]  length: 0 (resolved future 1)
  [13:09:28.067] resolve() on list ... DONE
  [13:09:28.067] - relaying conditions of futures
  [13:09:28.068] Future state: 'finished'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:28.069] - collecting values of futures
  [13:09:28.069] - accumulating results
  [13:09:28.071] - processing errors (handler = 'stop')
  [13:09:28.071] - extracting results
  [13:09:28.072] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:28.122] - collecting values of futures
  [13:09:28.123] - accumulating results
  [13:09:28.124] - processing errors (handler = 'stop')
  [13:09:28.124] - extracting results
  [13:09:28.124] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [13:09:28.126] plan(): Setting new future strategy stack:
  [13:09:28.143] List of future strategies:
  [13:09:28.143] 1. multicore:
  [13:09:28.143]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:28.143]    - tweaked: FALSE
  [13:09:28.143]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.143] 2. cluster:
  [13:09:28.143]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.143]    - tweaked: FALSE
  [13:09:28.143]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.150] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:09:28.152] doFuture() ...
  [13:09:28.153] - dummy globals (as locals): [1] 'a'
  [13:09:28.155] - R expression:
  [13:09:28.155] {
  [13:09:28.155]     doFuture::registerDoFuture()
  [13:09:28.155]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.155]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.155]         a <- NULL
  [13:09:28.155]         ...future.env <- environment()
  [13:09:28.155]         local({
  [13:09:28.155]             for (name in names(...future.x_jj)) {
  [13:09:28.155]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.155]                   inherits = FALSE)
  [13:09:28.155]             }
  [13:09:28.155]         })
  [13:09:28.155]         tryCatch({
  [13:09:28.155]             plan_list <- future::plan()
  [13:09:28.155]             stopifnot(inherits(plan_list, strategy2))
  [13:09:28.155]             plan_a <- future::plan("list")
  [13:09:28.155]             str(plan_a)
  [13:09:28.155]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:28.155]             message("foreach() - level 2 ...")
  [13:09:28.155]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:28.155]                 {
  [13:09:28.155]                   plan_list <- future::plan()
  [13:09:28.155]                   message(capture.output(print(plan_list)))
  [13:09:28.155]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.155]                     getOption("future.default", "sequential")))
  [13:09:28.155]                   plan_b <- future::plan("list")
  [13:09:28.155]                   str(plan_b)
  [13:09:28.155]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:28.155]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:28.155]                       "sequential")))
  [13:09:28.155]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.155]                 }
  [13:09:28.155]             message("foreach() - level 2 ... DONE")
  [13:09:28.155]             y
  [13:09:28.155]         }, error = identity)
  [13:09:28.155]     })
  [13:09:28.155] }
  [13:09:28.156] - identifying globals and packages ...
  [13:09:28.157] getGlobalsAndPackages() ...
  [13:09:28.157] Searching for globals...
  [13:09:28.221] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:28.222] Searching for globals ... DONE
  [13:09:28.222] Resolving globals: FALSE
  [13:09:28.241] The total size of the 3 globals is 176 bytes (176 bytes)
  [13:09:28.241] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.242] - packages: [2] 'utils', 'foreach'
  [13:09:28.242] getGlobalsAndPackages() ... DONE
  [13:09:28.243] List of 3
  [13:09:28.243]  $ ...future.x_ii: NULL
  [13:09:28.243]  $ strategy2     : chr "cluster"
  [13:09:28.243]  $ bs            : int [1:3] 3 2 1
  [13:09:28.243]  - attr(*, "where")=List of 3
  [13:09:28.243]   ..$ ...future.x_ii:<environment: 0x55c30f2660a0> 
  [13:09:28.243]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:28.243]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:28.243]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.243]  - attr(*, "resolved")= logi FALSE
  [13:09:28.243]  - attr(*, "total_size")= num 176
  [13:09:28.273]   - R expression:
  [13:09:28.274] {
  [13:09:28.274]     doFuture::registerDoFuture()
  [13:09:28.274]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.274]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.274]         a <- NULL
  [13:09:28.274]         ...future.env <- environment()
  [13:09:28.274]         local({
  [13:09:28.274]             for (name in names(...future.x_jj)) {
  [13:09:28.274]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.274]                   inherits = FALSE)
  [13:09:28.274]             }
  [13:09:28.274]         })
  [13:09:28.274]         tryCatch({
  [13:09:28.274]             plan_list <- future::plan()
  [13:09:28.274]             stopifnot(inherits(plan_list, strategy2))
  [13:09:28.274]             plan_a <- future::plan("list")
  [13:09:28.274]             str(plan_a)
  [13:09:28.274]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:28.274]             message("foreach() - level 2 ...")
  [13:09:28.274]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:28.274]                 {
  [13:09:28.274]                   plan_list <- future::plan()
  [13:09:28.274]                   message(capture.output(print(plan_list)))
  [13:09:28.274]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.274]                     getOption("future.default", "sequential")))
  [13:09:28.274]                   plan_b <- future::plan("list")
  [13:09:28.274]                   str(plan_b)
  [13:09:28.274]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:28.274]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:28.274]                       "sequential")))
  [13:09:28.274]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.274]                 }
  [13:09:28.274]             message("foreach() - level 2 ... DONE")
  [13:09:28.274]             y
  [13:09:28.274]         }, error = identity)
  [13:09:28.274]     })
  [13:09:28.274] }
  [13:09:28.275]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.275] List of 3
  [13:09:28.275]  $ ...future.x_ii: NULL
  [13:09:28.275]  $ strategy2     : chr "cluster"
  [13:09:28.275]  $ bs            : int [1:3] 3 2 1
  [13:09:28.275]  - attr(*, "where")=List of 3
  [13:09:28.275]   ..$ ...future.x_ii:<environment: 0x55c30f2660a0> 
  [13:09:28.275]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:28.275]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:28.275]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.275]  - attr(*, "resolved")= logi FALSE
  [13:09:28.275]  - attr(*, "total_size")= num 176
  [13:09:28.285]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:28.285] - identifying globals and packages ... DONE
  [13:09:28.298] Number of chunks: 2
  [13:09:28.298] Number of futures (= number of chunks): 2
  [13:09:28.298] Launching 2 futures (chunks) ...
  [13:09:28.299] Chunk #1 of 2 ...
  [13:09:28.299]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:28.299] getGlobalsAndPackages() ...
  [13:09:28.300] Searching for globals...
  [13:09:28.301] 
  [13:09:28.301] Searching for globals ... DONE
  [13:09:28.301] - globals: [0] <none>
  [13:09:28.302] getGlobalsAndPackages() ... DONE
  [13:09:28.302] 
  [13:09:28.302] 
  [13:09:28.302]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:28.303] getGlobalsAndPackages() ...
  [13:09:28.304] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.304] Resolving globals: FALSE
  [13:09:28.305] The total size of the 3 globals is 232 bytes (232 bytes)
  [13:09:28.306] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.306] 
  [13:09:28.306] getGlobalsAndPackages() ... DONE
  [13:09:28.309] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:28.309] Packages needed by future strategies (n = 1): 'future'
  [13:09:28.319] {
  [13:09:28.319]     {
  [13:09:28.319]         ...future.startTime <- Sys.time()
  [13:09:28.319]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:28.319]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:28.319]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:28.319]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:28.319]             future.resolve.recursive = NULL, width = 80L)
  [13:09:28.319]         {
  [13:09:28.319]             {
  [13:09:28.319]                 {
  [13:09:28.319]                   {
  [13:09:28.319]                     has_future <- requireNamespace("future", 
  [13:09:28.319]                       quietly = TRUE)
  [13:09:28.319]                     version <- if (has_future) 
  [13:09:28.319]                       packageVersion("future")
  [13:09:28.319]                     else NULL
  [13:09:28.319]                     if (!has_future || version < "1.8.0") {
  [13:09:28.319]                       info <- c(r_version = gsub("R version ", 
  [13:09:28.319]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:28.319]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:28.319]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:28.319]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:28.319]                       info <- sprintf("%s: %s", names(info), 
  [13:09:28.319]                         info)
  [13:09:28.319]                       info <- paste(info, collapse = "; ")
  [13:09:28.319]                       if (!has_future) {
  [13:09:28.319]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:28.319]                           info)
  [13:09:28.319]                       }
  [13:09:28.319]                       else {
  [13:09:28.319]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:28.319]                           info, version)
  [13:09:28.319]                       }
  [13:09:28.319]                       stop(msg)
  [13:09:28.319]                     }
  [13:09:28.319]                   }
  [13:09:28.319]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:28.319]                   options(mc.cores = 1L)
  [13:09:28.319]                 }
  [13:09:28.319]                 local({
  [13:09:28.319]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:28.319]                   "future")) {
  [13:09:28.319]                     loadNamespace(pkg)
  [13:09:28.319]                     library(pkg, character.only = TRUE)
  [13:09:28.319]                   }
  [13:09:28.319]                 })
  [13:09:28.319]             }
  [13:09:28.319]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:28.319]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:28.319]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.319]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:28.319]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:28.319]                 ...) 
  [13:09:28.319]             {
  [13:09:28.319]                 if (substitute) 
  [13:09:28.319]                   expr <- substitute(expr)
  [13:09:28.319]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:28.319]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.319]                   globals = globals, persistent = persistent, 
  [13:09:28.319]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:28.319]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:28.319]                   label = label, ...)
  [13:09:28.319]                 if (!future$lazy) 
  [13:09:28.319]                   future <- run(future)
  [13:09:28.319]                 invisible(future)
  [13:09:28.319]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:28.319]         }
  [13:09:28.319]     }
  [13:09:28.319]     if (is.na(TRUE)) {
  [13:09:28.319]     }
  [13:09:28.319]     else {
  [13:09:28.319]         if (TRUE) {
  [13:09:28.319]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:28.319]         }
  [13:09:28.319]         else {
  [13:09:28.319]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:28.319]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:28.319]         }
  [13:09:28.319]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:28.319]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:28.319]             sink(type = "output", split = FALSE)
  [13:09:28.319]             close(...future.stdout)
  [13:09:28.319]         }, add = TRUE)
  [13:09:28.319]     }
  [13:09:28.319]     ...future.frame <- sys.nframe()
  [13:09:28.319]     ...future.conditions <- list()
  [13:09:28.319]     ...future.result <- tryCatch({
  [13:09:28.319]         withCallingHandlers({
  [13:09:28.319]             ...future.value <- local({
  [13:09:28.319]                 doFuture::registerDoFuture()
  [13:09:28.319]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.319]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.319]                   a <- NULL
  [13:09:28.319]                   ...future.env <- environment()
  [13:09:28.319]                   local({
  [13:09:28.319]                     for (name in names(...future.x_jj)) {
  [13:09:28.319]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.319]                         inherits = FALSE)
  [13:09:28.319]                     }
  [13:09:28.319]                   })
  [13:09:28.319]                   tryCatch({
  [13:09:28.319]                     plan_list <- future::plan()
  [13:09:28.319]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:28.319]                     plan_a <- future::plan("list")
  [13:09:28.319]                     str(plan_a)
  [13:09:28.319]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:28.319]                     message("foreach() - level 2 ...")
  [13:09:28.319]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:28.319]                       {
  [13:09:28.319]                         plan_list <- future::plan()
  [13:09:28.319]                         message(capture.output(print(plan_list)))
  [13:09:28.319]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:28.319]                           inherits(plan_list, getOption("future.default", 
  [13:09:28.319]                             "sequential")))
  [13:09:28.319]                         plan_b <- future::plan("list")
  [13:09:28.319]                         str(plan_b)
  [13:09:28.319]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:28.319]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:28.319]                             "sequential")))
  [13:09:28.319]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.319]                       }
  [13:09:28.319]                     message("foreach() - level 2 ... DONE")
  [13:09:28.319]                     y
  [13:09:28.319]                   }, error = identity)
  [13:09:28.319]                 })
  [13:09:28.319]             })
  [13:09:28.319]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:28.319]                 version = "1.8")
  [13:09:28.319]         }, condition = local({
  [13:09:28.319]             inherits <- base::inherits
  [13:09:28.319]             invokeRestart <- base::invokeRestart
  [13:09:28.319]             length <- base::length
  [13:09:28.319]             seq.int <- base::seq.int
  [13:09:28.319]             sys.calls <- base::sys.calls
  [13:09:28.319]             `[[` <- base::`[[`
  [13:09:28.319]             `+` <- base::`+`
  [13:09:28.319]             `<<-` <- base::`<<-`
  [13:09:28.319]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:28.319]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:28.319]                   3L)]
  [13:09:28.319]             }
  [13:09:28.319]             function(cond) {
  [13:09:28.319]                 if (inherits(cond, "error")) {
  [13:09:28.319]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.319]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:28.319]                     cond$call), timestamp = base::Sys.time())
  [13:09:28.319]                   signalCondition(cond)
  [13:09:28.319]                 }
  [13:09:28.319]                 else if (inherits(cond, c("message", "warning"
  [13:09:28.319]                 ))) {
  [13:09:28.319]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.319]                     1L]] <<- list(condition = cond)
  [13:09:28.319]                   if (inherits(cond, "message")) {
  [13:09:28.319]                     invokeRestart("muffleMessage")
  [13:09:28.319]                   }
  [13:09:28.319]                   else if (inherits(cond, "warning")) {
  [13:09:28.319]                     invokeRestart("muffleWarning")
  [13:09:28.319]                   }
  [13:09:28.319]                 }
  [13:09:28.319]             }
  [13:09:28.319]         }))
  [13:09:28.319]     }, error = function(ex) {
  [13:09:28.319]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:28.319]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:28.319]             class = "FutureResult")
  [13:09:28.319]     }, finally = {
  [13:09:28.319]         {
  [13:09:28.319]             {
  [13:09:28.319]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:28.319]             }
  [13:09:28.319]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:28.319]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:28.319]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:28.319]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:28.319]             {
  [13:09:28.319]                 if (substitute) 
  [13:09:28.319]                   expr <- substitute(expr)
  [13:09:28.319]                 if (is.function(workers)) 
  [13:09:28.319]                   workers <- workers()
  [13:09:28.319]                 workers <- as.integer(workers)
  [13:09:28.319]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:28.319]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:28.319]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:28.319]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:28.319]                     local = TRUE, label = label, ...))
  [13:09:28.319]                 }
  [13:09:28.319]                 oopts <- options(mc.cores = workers)
  [13:09:28.319]                 on.exit(options(oopts))
  [13:09:28.319]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:28.319]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.319]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:28.319]                   label = label, ...)
  [13:09:28.319]                 if (!future$lazy) 
  [13:09:28.319]                   future <- run(future)
  [13:09:28.319]                 invisible(future)
  [13:09:28.319]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:28.319]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:09:28.319]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:09:28.319]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.319]                 label = NULL, ...) 
  [13:09:28.319]             {
  [13:09:28.319]                 if (substitute) 
  [13:09:28.319]                   expr <- substitute(expr)
  [13:09:28.319]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:28.319]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.319]                   globals = globals, persistent = persistent, 
  [13:09:28.319]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:28.319]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:28.319]                   label = label, ...)
  [13:09:28.319]                 if (!future$lazy) 
  [13:09:28.319]                   future <- run(future)
  [13:09:28.319]                 invisible(future)
  [13:09:28.319]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:28.319]         }
  [13:09:28.319]         options(...future.oldOptions)
  [13:09:28.319]     })
  [13:09:28.319]     if (is.na(TRUE)) {
  [13:09:28.319]     }
  [13:09:28.319]     else {
  [13:09:28.319]         sink(type = "output", split = FALSE)
  [13:09:28.319]         if (TRUE) {
  [13:09:28.319]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:28.319]         }
  [13:09:28.319]         else {
  [13:09:28.319]             ...future.result["stdout"] <- list(NULL)
  [13:09:28.319]         }
  [13:09:28.319]         close(...future.stdout)
  [13:09:28.319]         ...future.stdout <- NULL
  [13:09:28.319]     }
  [13:09:28.319]     ...future.result$conditions <- ...future.conditions
  [13:09:28.319]     ...future.result
  [13:09:28.319] }
  [13:09:28.324] requestCore(): workers = 2
  [13:09:28.328] MulticoreFuture started
  [13:09:28.329] Chunk #1 of 2 ... DONE
  [13:09:28.329] Chunk #2 of 2 ...
  [13:09:28.330]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:28.330] getGlobalsAndPackages() ...
  [13:09:28.331] Searching for globals...
  [13:09:28.332] 
  [13:09:28.333] Searching for globals ... DONE
  [13:09:28.333] - globals: [0] <none>
  [13:09:28.334] getGlobalsAndPackages() ... DONE
  [13:09:28.334] 
  [13:09:28.335] 
  [13:09:28.335]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:28.337] getGlobalsAndPackages() ...
  [13:09:28.338] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.338] Resolving globals: FALSE
  [13:09:28.340] The total size of the 3 globals is 232 bytes (232 bytes)
  [13:09:28.341] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:28.341] 
  [13:09:28.342] getGlobalsAndPackages() ... DONE
  [13:09:28.344] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:28.345] Packages needed by future strategies (n = 1): 'future'
  [13:09:28.347] plan(): Setting new future strategy stack:
  [13:09:28.348] List of future strategies:
  [13:09:28.348] 1. cluster:
  [13:09:28.348]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.348]    - tweaked: FALSE
  [13:09:28.348]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.351] plan(): nbrOfWorkers() = 1
  [13:09:28.352] {
  [13:09:28.352]     {
  [13:09:28.352]         ...future.startTime <- Sys.time()
  [13:09:28.352]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:28.352]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:28.352]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:28.352]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:28.352]             future.resolve.recursive = NULL, width = 80L)
  [13:09:28.352]         {
  [13:09:28.352]             {
  [13:09:28.352]                 {
  [13:09:28.352]                   {
  [13:09:28.352]                     has_future <- requireNamespace("future", 
  [13:09:28.352]                       quietly = TRUE)
  [13:09:28.352]                     version <- if (has_future) 
  [13:09:28.352]                       packageVersion("future")
  [13:09:28.352]                     else NULL
  [13:09:28.352]                     if (!has_future || version < "1.8.0") {
  [13:09:28.352]                       info <- c(r_version = gsub("R version ", 
  [13:09:28.352]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:28.352]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:28.352]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:28.352]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:28.352]                       info <- sprintf("%s: %s", names(info), 
  [13:09:28.352]                         info)
  [13:09:28.352]                       info <- paste(info, collapse = "; ")
  [13:09:28.352]                       if (!has_future) {
  [13:09:28.352]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:28.352]                           info)
  [13:09:28.352]                       }
  [13:09:28.352]                       else {
  [13:09:28.352]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:28.352]                           info, version)
  [13:09:28.352]                       }
  [13:09:28.352]                       stop(msg)
  [13:09:28.352]                     }
  [13:09:28.352]                   }
  [13:09:28.352]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:28.352]                   options(mc.cores = 1L)
  [13:09:28.352]                 }
  [13:09:28.352]                 local({
  [13:09:28.352]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:28.352]                   "future")) {
  [13:09:28.352]                     loadNamespace(pkg)
  [13:09:28.352]                     library(pkg, character.only = TRUE)
  [13:09:28.352]                   }
  [13:09:28.352]                 })
  [13:09:28.352]             }
  [13:09:28.352]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:28.352]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:28.352]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.352]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:28.352]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:28.352]                 ...) 
  [13:09:28.352]             {
  [13:09:28.352]                 if (substitute) 
  [13:09:28.352]                   expr <- substitute(expr)
  [13:09:28.352]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:28.352]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.352]                   globals = globals, persistent = persistent, 
  [13:09:28.352]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:28.352]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:28.352]                   label = label, ...)
  [13:09:28.352]                 if (!future$lazy) 
  [13:09:28.352]                   future <- run(future)
  [13:09:28.352]                 invisible(future)
  [13:09:28.352]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:28.352]         }
  [13:09:28.352]     }
  [13:09:28.352]     if (is.na(TRUE)) {
  [13:09:28.352]     }
  [13:09:28.352]     else {
  [13:09:28.352]         if (TRUE) {
  [13:09:28.352]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:28.352]         }
  [13:09:28.352]         else {
  [13:09:28.352]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:28.352]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:28.352]         }
  [13:09:28.352]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:28.352]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:28.352]             sink(type = "output", split = FALSE)
  [13:09:28.352]             close(...future.stdout)
  [13:09:28.352]         }, add = TRUE)
  [13:09:28.352]     }
  [13:09:28.352]     ...future.frame <- sys.nframe()
  [13:09:28.352]     ...future.conditions <- list()
  [13:09:28.352]     ...future.result <- tryCatch({
  [13:09:28.352]         withCallingHandlers({
  [13:09:28.352]             ...future.value <- local({
  [13:09:28.352]                 doFuture::registerDoFuture()
  [13:09:28.352]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.352]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.352]                   a <- NULL
  [13:09:28.352]                   ...future.env <- environment()
  [13:09:28.352]                   local({
  [13:09:28.352]                     for (name in names(...future.x_jj)) {
  [13:09:28.352]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.352]                         inherits = FALSE)
  [13:09:28.352]                     }
  [13:09:28.352]                   })
  [13:09:28.352]                   tryCatch({
  [13:09:28.352]                     plan_list <- future::plan()
  [13:09:28.352]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:28.352]                     plan_a <- future::plan("list")
  [13:09:28.352]                     str(plan_a)
  [13:09:28.352]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:28.352]                     message("foreach() - level 2 ...")
  [13:09:28.352]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:28.352]                       {
  [13:09:28.352]                         plan_list <- future::plan()
  [13:09:28.352]                         message(capture.output(print(plan_list)))
  [13:09:28.352]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:28.352]                           inherits(plan_list, getOption("future.default", 
  [13:09:28.352]                             "sequential")))
  [13:09:28.352]                         plan_b <- future::plan("list")
  [13:09:28.352]                         str(plan_b)
  [13:09:28.352]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:28.352]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:28.352]                             "sequential")))
  [13:09:28.352]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.352]                       }
  [13:09:28.352]                     message("foreach() - level 2 ... DONE")
  [13:09:28.352]                     y
  [13:09:28.352]                   }, error = identity)
  [13:09:28.352]                 })
  [13:09:28.352]             })
  [13:09:28.352]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:28.352]                 version = "1.8")
  [13:09:28.352]         }, condition = local({
  [13:09:28.352]             inherits <- base::inherits
  [13:09:28.352]             invokeRestart <- base::invokeRestart
  [13:09:28.352]             length <- base::length
  [13:09:28.352]             seq.int <- base::seq.int
  [13:09:28.352]             sys.calls <- base::sys.calls
  [13:09:28.352]             `[[` <- base::`[[`
  [13:09:28.352]             `+` <- base::`+`
  [13:09:28.352]             `<<-` <- base::`<<-`
  [13:09:28.352]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:28.352]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:28.352]                   3L)]
  [13:09:28.352]             }
  [13:09:28.352]             function(cond) {
  [13:09:28.352]                 if (inherits(cond, "error")) {
  [13:09:28.352]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.352]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:28.352]                     cond$call), timestamp = base::Sys.time())
  [13:09:28.352]                   signalCondition(cond)
  [13:09:28.352]                 }
  [13:09:28.352]                 else if (inherits(cond, c("message", "warning"
  [13:09:28.352]                 ))) {
  [13:09:28.352]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:28.352]                     1L]] <<- list(condition = cond)
  [13:09:28.352]                   if (inherits(cond, "message")) {
  [13:09:28.352]                     invokeRestart("muffleMessage")
  [13:09:28.352]                   }
  [13:09:28.352]                   else if (inherits(cond, "warning")) {
  [13:09:28.352]                     invokeRestart("muffleWarning")
  [13:09:28.352]                   }
  [13:09:28.352]                 }
  [13:09:28.352]             }
  [13:09:28.352]         }))
  [13:09:28.352]     }, error = function(ex) {
  [13:09:28.352]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:28.352]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:28.352]             class = "FutureResult")
  [13:09:28.352]     }, finally = {
  [13:09:28.352]         {
  [13:09:28.352]             {
  [13:09:28.352]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:28.352]             }
  [13:09:28.352]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:28.352]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:28.352]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:09:28.352]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:28.352]             {
  [13:09:28.352]                 if (substitute) 
  [13:09:28.352]                   expr <- substitute(expr)
  [13:09:28.352]                 if (is.function(workers)) 
  [13:09:28.352]                   workers <- workers()
  [13:09:28.352]                 workers <- as.integer(workers)
  [13:09:28.352]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:09:28.352]                 if (workers == 1L || !supportsMulticore()) {
  [13:09:28.352]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:28.352]                     lazy = lazy, seed = seed, globals = globals, 
  [13:09:28.352]                     local = TRUE, label = label, ...))
  [13:09:28.352]                 }
  [13:09:28.352]                 oopts <- options(mc.cores = workers)
  [13:09:28.352]                 on.exit(options(oopts))
  [13:09:28.352]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:09:28.352]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.352]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:09:28.352]                   label = label, ...)
  [13:09:28.352]                 if (!future$lazy) 
  [13:09:28.352]                   future <- run(future)
  [13:09:28.352]                 invisible(future)
  [13:09:28.352]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:28.352]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:09:28.352]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:09:28.352]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.352]                 label = NULL, ...) 
  [13:09:28.352]             {
  [13:09:28.352]                 if (substitute) 
  [13:09:28.352]                   expr <- substitute(expr)
  [13:09:28.352]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:28.352]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:28.352]                   globals = globals, persistent = persistent, 
  [13:09:28.352]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:28.352]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:28.352]                   label = label, ...)
  [13:09:28.352]                 if (!future$lazy) 
  [13:09:28.352]                   future <- run(future)
  [13:09:28.352]                 invisible(future)
  [13:09:28.352]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:28.352]         }
  [13:09:28.352]         options(...future.oldOptions)
  [13:09:28.352]     })
  [13:09:28.352]     if (is.na(TRUE)) {
  [13:09:28.352]     }
  [13:09:28.352]     else {
  [13:09:28.352]         sink(type = "output", split = FALSE)
  [13:09:28.352]         if (TRUE) {
  [13:09:28.352]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:28.352]         }
  [13:09:28.352]         else {
  [13:09:28.352]             ...future.result["stdout"] <- list(NULL)
  [13:09:28.352]         }
  [13:09:28.352]         close(...future.stdout)
  [13:09:28.352]         ...future.stdout <- NULL
  [13:09:28.352]     }
  [13:09:28.352]     ...future.result$conditions <- ...future.conditions
  [13:09:28.352]     ...future.result
  [13:09:28.352] }
  [13:09:28.359] requestCore(): workers = 2
  [13:09:28.363] MulticoreFuture started
  [13:09:28.364] Chunk #2 of 2 ... DONE
  [13:09:28.365] Launching 2 futures (chunks) ... DONE
  [13:09:28.365] - resolving futures
  [13:09:28.374] resolve() on list ...
  [13:09:28.375]  recursive: 0
  [13:09:28.376]  length: 2
  [13:09:28.377] 
  [13:09:28.411] plan(): Setting new future strategy stack:
  [13:09:28.412] List of future strategies:
  [13:09:28.412] 1. cluster:
  [13:09:28.412]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:28.412]    - tweaked: FALSE
  [13:09:28.412]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:28.418] plan(): nbrOfWorkers() = 1
  [13:09:36.389] plan(): Setting new future strategy stack:
  [13:09:36.389] List of future strategies:
  [13:09:36.389] 1. multicore:
  [13:09:36.389]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:36.389]    - tweaked: FALSE
  [13:09:36.389]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.389] 2. cluster:
  [13:09:36.389]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:36.389]    - tweaked: FALSE
  [13:09:36.389]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.392] plan(): nbrOfWorkers() = 2
  [13:09:36.396]  length: 1 (resolved future 1)
  [13:09:36.497] plan(): Setting new future strategy stack:
  [13:09:36.497] List of future strategies:
  [13:09:36.497] 1. multicore:
  [13:09:36.497]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:36.497]    - tweaked: FALSE
  [13:09:36.497]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.497] 2. cluster:
  [13:09:36.497]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:36.497]    - tweaked: FALSE
  [13:09:36.497]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.499] plan(): nbrOfWorkers() = 2
  [13:09:36.501]  length: 0 (resolved future 2)
  [13:09:36.502] resolve() on list ... DONE
  [13:09:36.502] - relaying conditions of futures
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:36.506] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:28.376] doFuture() ...
  [13:09:28.378] - dummy globals (as locals): [1] 'b'
  [13:09:28.379] - R expression:
  [13:09:28.380] {
  [13:09:28.380]     doFuture::registerDoFuture()
  [13:09:28.380]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.380]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.380]         b <- NULL
  [13:09:28.380]         ...future.env <- environment()
  [13:09:28.380]         local({
  [13:09:28.380]             for (name in names(...future.x_jj)) {
  [13:09:28.380]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.380]                   inherits = FALSE)
  [13:09:28.380]             }
  [13:09:28.380]         })
  [13:09:28.380]         tryCatch({
  [13:09:28.380]             plan_list <- future::plan()
  [13:09:28.380]             message(capture.output(print(plan_list)))
  [13:09:28.380]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.380]                 getOption("future.default", "sequential")))
  [13:09:28.380]             plan_b <- future::plan("list")
  [13:09:28.380]             str(plan_b)
  [13:09:28.380]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:28.380]                 getOption("future.default", "sequential")))
  [13:09:28.380]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.380]         }, error = identity)
  [13:09:28.380]     })
  [13:09:28.380] }
  [13:09:28.381] - identifying globals and packages ...
  [13:09:28.382] getGlobalsAndPackages() ...
  [13:09:28.383] Searching for globals...
  [13:09:28.427] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:28.428] Searching for globals ... DONE
  [13:09:28.429] Resolving globals: FALSE
  [13:09:28.432] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:09:28.433] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.433] - packages: [1] 'utils'
  [13:09:28.434] getGlobalsAndPackages() ... DONE
  [13:09:28.434] List of 3
  [13:09:28.434]  $ ...future.x_ii: NULL
  [13:09:28.434]  $ a             : int 1
  [13:09:28.434]  $ plan_a        :List of 1
  [13:09:28.434]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:28.434]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.434]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.434]     label = NULL, ...)  
  [13:09:28.434]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:28.434]   .. ..- attr(*, "init")= logi TRUE
  [13:09:28.434]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:28.434]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.434]  - attr(*, "where")=List of 3
  [13:09:28.434]   ..$ ...future.x_ii:<environment: 0x55c310771f48> 
  [13:09:28.434]   ..$ a             :<environment: 0x55c30fe6f650> 
  [13:09:28.434]   ..$ plan_a        :<environment: 0x55c30fe6f650> 
  [13:09:28.434]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.434]  - attr(*, "resolved")= logi FALSE
  [13:09:28.434]  - attr(*, "total_size")= num 66056
  [13:09:28.450]   - R expression:
  [13:09:28.450] {
  [13:09:28.450]     doFuture::registerDoFuture()
  [13:09:28.450]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.450]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.450]         b <- NULL
  [13:09:28.450]         ...future.env <- environment()
  [13:09:28.450]         local({
  [13:09:28.450]             for (name in names(...future.x_jj)) {
  [13:09:28.450]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.450]                   inherits = FALSE)
  [13:09:28.450]             }
  [13:09:28.450]         })
  [13:09:28.450]         tryCatch({
  [13:09:28.450]             plan_list <- future::plan()
  [13:09:28.450]             message(capture.output(print(plan_list)))
  [13:09:28.450]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.450]                 getOption("future.default", "sequential")))
  [13:09:28.450]             plan_b <- future::plan("list")
  [13:09:28.450]             str(plan_b)
  [13:09:28.450]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:28.450]                 getOption("future.default", "sequential")))
  [13:09:28.450]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.450]         }, error = identity)
  [13:09:28.450]     })
  [13:09:28.450] }
  [13:09:28.451]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.452] List of 3
  [13:09:28.452]  $ ...future.x_ii: NULL
  [13:09:28.452]  $ a             : int 1
  [13:09:28.452]  $ plan_a        :List of 1
  [13:09:28.452]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:28.452]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.452]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.452]     label = NULL, ...)  
  [13:09:28.452]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:28.452]   .. ..- attr(*, "init")= logi TRUE
  [13:09:28.452]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:28.452]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.452]  - attr(*, "where")=List of 3
  [13:09:28.452]   ..$ ...future.x_ii:<environment: 0x55c310771f48> 
  [13:09:28.452]   ..$ a             :<environment: 0x55c30fe6f650> 
  [13:09:28.452]   ..$ plan_a        :<environment: 0x55c30fe6f650> 
  [13:09:28.452]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.452]  - attr(*, "resolved")= logi FALSE
  [13:09:28.452]  - attr(*, "total_size")= num 66056
  [13:09:28.472]   - packages: [2] 'doFuture', 'utils'
  [13:09:28.473] - identifying globals and packages ... DONE
  [13:09:28.474] Number of chunks: 1
  [13:09:28.474] Number of futures (= number of chunks): 1
  [13:09:28.475] Launching 1 futures (chunks) ...
  [13:09:28.475] Chunk #1 of 1 ...
  [13:09:28.476]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:28.476] getGlobalsAndPackages() ...
  [13:09:28.477] Searching for globals...
  [13:09:28.478] 
  [13:09:28.478] Searching for globals ... DONE
  [13:09:28.479] - globals: [0] <none>
  [13:09:28.479] getGlobalsAndPackages() ... DONE
  [13:09:28.479] 
  [13:09:28.480] 
  [13:09:28.480]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [local output] Workers: [n = 1] 'localhost'
  [local output] Base port: 11651
  [local output] Creating node 1 of 1 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=9204.23f44a202a7e.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=9204.23f44a202a7e.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9204:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=9204.23f44a202a7e.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11651 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 1 ... done
  [13:09:35.851] getGlobalsAndPackages() ...
  [13:09:35.852] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:35.853] Resolving globals: FALSE
  [13:09:35.855] The total size of the 3 globals is 64.67 KiB (66224 bytes)
  [13:09:35.856] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:35.856] 
  [13:09:35.857] getGlobalsAndPackages() ... DONE
  Warning in sample.int(.Machine$integer.max, size = 1L) :
    '.Random.seed' is not an integer vector but of type 'NULL', so ignored
  [13:09:35.876] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:35.877] Packages needed by future strategies (n = 0): <none>
  [13:09:35.883] {
  [13:09:35.883]     {
  [13:09:35.883]         ...future.startTime <- Sys.time()
  [13:09:35.883]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:35.883]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:35.883]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:35.883]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:35.883]             future.resolve.recursive = NULL, width = 80L)
  [13:09:35.883]         {
  [13:09:35.883]             {
  [13:09:35.883]                 {
  [13:09:35.883]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:35.883]                   version <- if (has_future) 
  [13:09:35.883]                     packageVersion("future")
  [13:09:35.883]                   else NULL
  [13:09:35.883]                   if (!has_future || version < "1.8.0") {
  [13:09:35.883]                     info <- c(r_version = gsub("R version ", 
  [13:09:35.883]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:35.883]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:35.883]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:35.883]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:35.883]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:35.883]                     info <- paste(info, collapse = "; ")
  [13:09:35.883]                     if (!has_future) {
  [13:09:35.883]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:35.883]                         info)
  [13:09:35.883]                     }
  [13:09:35.883]                     else {
  [13:09:35.883]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:35.883]                         info, version)
  [13:09:35.883]                     }
  [13:09:35.883]                     stop(msg)
  [13:09:35.883]                   }
  [13:09:35.883]                 }
  [13:09:35.883]                 local({
  [13:09:35.883]                   for (pkg in c("doFuture", "utils")) {
  [13:09:35.883]                     loadNamespace(pkg)
  [13:09:35.883]                     library(pkg, character.only = TRUE)
  [13:09:35.883]                   }
  [13:09:35.883]                 })
  [13:09:35.883]             }
  [13:09:35.883]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:35.883]         }
  [13:09:35.883]     }
  [13:09:35.883]     if (is.na(TRUE)) {
  [13:09:35.883]     }
  [13:09:35.883]     else {
  [13:09:35.883]         if (TRUE) {
  [13:09:35.883]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:35.883]         }
  [13:09:35.883]         else {
  [13:09:35.883]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:35.883]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:35.883]         }
  [13:09:35.883]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:35.883]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:35.883]             sink(type = "output", split = FALSE)
  [13:09:35.883]             close(...future.stdout)
  [13:09:35.883]         }, add = TRUE)
  [13:09:35.883]     }
  [13:09:35.883]     ...future.frame <- sys.nframe()
  [13:09:35.883]     ...future.conditions <- list()
  [13:09:35.883]     ...future.result <- tryCatch({
  [13:09:35.883]         withCallingHandlers({
  [13:09:35.883]             ...future.value <- local({
  [13:09:35.883]                 doFuture::registerDoFuture()
  [13:09:35.883]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:35.883]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:35.883]                   b <- NULL
  [13:09:35.883]                   ...future.env <- environment()
  [13:09:35.883]                   local({
  [13:09:35.883]                     for (name in names(...future.x_jj)) {
  [13:09:35.883]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:35.883]                         inherits = FALSE)
  [13:09:35.883]                     }
  [13:09:35.883]                   })
  [13:09:35.883]                   tryCatch({
  [13:09:35.883]                     plan_list <- future::plan()
  [13:09:35.883]                     message(capture.output(print(plan_list)))
  [13:09:35.883]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:35.883]                       inherits(plan_list, getOption("future.default", 
  [13:09:35.883]                         "sequential")))
  [13:09:35.883]                     plan_b <- future::plan("list")
  [13:09:35.883]                     str(plan_b)
  [13:09:35.883]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:35.883]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:35.883]                         "sequential")))
  [13:09:35.883]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:35.883]                   }, error = identity)
  [13:09:35.883]                 })
  [13:09:35.883]             })
  [13:09:35.883]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:35.883]                 version = "1.8")
  [13:09:35.883]         }, condition = local({
  [13:09:35.883]             inherits <- base::inherits
  [13:09:35.883]             invokeRestart <- base::invokeRestart
  [13:09:35.883]             length <- base::length
  [13:09:35.883]             seq.int <- base::seq.int
  [13:09:35.883]             sys.calls <- base::sys.calls
  [13:09:35.883]             `[[` <- base::`[[`
  [13:09:35.883]             `+` <- base::`+`
  [13:09:35.883]             `<<-` <- base::`<<-`
  [13:09:35.883]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:35.883]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:35.883]                   3L)]
  [13:09:35.883]             }
  [13:09:35.883]             function(cond) {
  [13:09:35.883]                 if (inherits(cond, "error")) {
  [13:09:35.883]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:35.883]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:35.883]                     cond$call), timestamp = base::Sys.time())
  [13:09:35.883]                   signalCondition(cond)
  [13:09:35.883]                 }
  [13:09:35.883]                 else if (inherits(cond, c("message", "warning"
  [13:09:35.883]                 ))) {
  [13:09:35.883]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:35.883]                     1L]] <<- list(condition = cond)
  [13:09:35.883]                   if (inherits(cond, "message")) {
  [13:09:35.883]                     invokeRestart("muffleMessage")
  [13:09:35.883]                   }
  [13:09:35.883]                   else if (inherits(cond, "warning")) {
  [13:09:35.883]                     invokeRestart("muffleWarning")
  [13:09:35.883]                   }
  [13:09:35.883]                 }
  [13:09:35.883]             }
  [13:09:35.883]         }))
  [13:09:35.883]     }, error = function(ex) {
  [13:09:35.883]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:35.883]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:35.883]             class = "FutureResult")
  [13:09:35.883]     }, finally = {
  [13:09:35.883]         {
  [13:09:35.883]             NULL
  [13:09:35.883]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:35.883]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:35.883]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:35.883]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:35.883]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:35.883]                 ...) 
  [13:09:35.883]             {
  [13:09:35.883]                 if (substitute) 
  [13:09:35.883]                   expr <- substitute(expr)
  [13:09:35.883]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:35.883]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:35.883]                   globals = globals, persistent = persistent, 
  [13:09:35.883]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:35.883]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:35.883]                   label = label, ...)
  [13:09:35.883]                 if (!future$lazy) 
  [13:09:35.883]                   future <- run(future)
  [13:09:35.883]                 invisible(future)
  [13:09:35.883]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:35.883]         }
  [13:09:35.883]         options(...future.oldOptions)
  [13:09:35.883]     })
  [13:09:35.883]     if (is.na(TRUE)) {
  [13:09:35.883]     }
  [13:09:35.883]     else {
  [13:09:35.883]         sink(type = "output", split = FALSE)
  [13:09:35.883]         if (TRUE) {
  [13:09:35.883]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:35.883]         }
  [13:09:35.883]         else {
  [13:09:35.883]             ...future.result["stdout"] <- list(NULL)
  [13:09:35.883]         }
  [13:09:35.883]         close(...future.stdout)
  [13:09:35.883]         ...future.stdout <- NULL
  [13:09:35.883]     }
  [13:09:35.883]     ...future.result$conditions <- ...future.conditions
  [13:09:35.883]     ...future.result
  [13:09:35.883] }
  [13:09:35.889] Exporting 3 global objects (64.67 KiB) to cluster node #1 ...
  [13:09:35.890] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ...
  [13:09:35.894] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ... DONE
  [13:09:35.895] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:35.896] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:35.897] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [13:09:35.939] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [13:09:35.940] Exporting 3 global objects (64.67 KiB) to cluster node #1 ... DONE
  [13:09:35.941] ClusterFuture started
  [13:09:35.942] Chunk #1 of 1 ... DONE
  [13:09:35.942] Launching 1 futures (chunks) ... DONE
  [13:09:35.943] - resolving futures
  [13:09:35.943] resolve() on list ...
  [13:09:35.944]  recursive: 0
  [13:09:35.944]  length: 1
  [13:09:35.944] 
  [13:09:36.326]  length: 0 (resolved future 1)
  [13:09:36.327] resolve() on list ... DONE
  [13:09:36.328] - relaying conditions of futures
  [13:09:36.328] result() for ClusterFuture ...
  [13:09:36.329] - Validating connection of ClusterFuture
  [13:09:36.367] - class(result): FutureResult
  [13:09:36.368] Future state: 'finished'
  [13:09:36.369] result() for ClusterFuture ...
  [13:09:36.369] - result already collected: FutureResult
  [13:09:36.377] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:36.379] - collecting values of futures
  [13:09:36.379] result() for ClusterFuture ...
  [13:09:36.380] - result already collected: FutureResult
  [13:09:36.381] result() for ClusterFuture ... done
  [13:09:36.381] - accumulating results
  [13:09:36.386] - processing errors (handler = 'stop')
  [13:09:36.387] - extracting results
  [13:09:36.387] doFuture() ... DONE
  foreach() - level 2 ... DONE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:36.528] Future state: 'finished'
  foreach() - level 2 ...
  [13:09:28.433] doFuture() ...
  [13:09:28.435] - dummy globals (as locals): [1] 'b'
  [13:09:28.437] - R expression:
  [13:09:28.438] {
  [13:09:28.438]     doFuture::registerDoFuture()
  [13:09:28.438]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.438]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.438]         b <- NULL
  [13:09:28.438]         ...future.env <- environment()
  [13:09:28.438]         local({
  [13:09:28.438]             for (name in names(...future.x_jj)) {
  [13:09:28.438]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.438]                   inherits = FALSE)
  [13:09:28.438]             }
  [13:09:28.438]         })
  [13:09:28.438]         tryCatch({
  [13:09:28.438]             plan_list <- future::plan()
  [13:09:28.438]             message(capture.output(print(plan_list)))
  [13:09:28.438]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.438]                 getOption("future.default", "sequential")))
  [13:09:28.438]             plan_b <- future::plan("list")
  [13:09:28.438]             str(plan_b)
  [13:09:28.438]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:28.438]                 getOption("future.default", "sequential")))
  [13:09:28.438]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.438]         }, error = identity)
  [13:09:28.438]     })
  [13:09:28.438] }
  [13:09:28.439] - identifying globals and packages ...
  [13:09:28.440] getGlobalsAndPackages() ...
  [13:09:28.440] Searching for globals...
  [13:09:28.475] - globals found: [24] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'str', 'list', 'a', 'plan_a', 'identity'
  [13:09:28.476] Searching for globals ... DONE
  [13:09:28.476] Resolving globals: FALSE
  [13:09:28.480] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:09:28.480] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.481] - packages: [1] 'utils'
  [13:09:28.482] getGlobalsAndPackages() ... DONE
  [13:09:28.482] List of 3
  [13:09:28.482]  $ ...future.x_ii: NULL
  [13:09:28.482]  $ a             : int 2
  [13:09:28.482]  $ plan_a        :List of 1
  [13:09:28.482]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:28.482]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.482]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.482]     label = NULL, ...)  
  [13:09:28.482]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:28.482]   .. ..- attr(*, "init")= logi TRUE
  [13:09:28.482]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:28.482]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.482]  - attr(*, "where")=List of 3
  [13:09:28.482]   ..$ ...future.x_ii:<environment: 0x55c30f05d310> 
  [13:09:28.482]   ..$ a             :<environment: 0x55c30fd86840> 
  [13:09:28.482]   ..$ plan_a        :<environment: 0x55c30fd86840> 
  [13:09:28.482]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.482]  - attr(*, "resolved")= logi FALSE
  [13:09:28.482]  - attr(*, "total_size")= num 66056
  [13:09:28.504]   - R expression:
  [13:09:28.505] {
  [13:09:28.505]     doFuture::registerDoFuture()
  [13:09:28.505]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:28.505]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:28.505]         b <- NULL
  [13:09:28.505]         ...future.env <- environment()
  [13:09:28.505]         local({
  [13:09:28.505]             for (name in names(...future.x_jj)) {
  [13:09:28.505]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:28.505]                   inherits = FALSE)
  [13:09:28.505]             }
  [13:09:28.505]         })
  [13:09:28.505]         tryCatch({
  [13:09:28.505]             plan_list <- future::plan()
  [13:09:28.505]             message(capture.output(print(plan_list)))
  [13:09:28.505]             stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:28.505]                 getOption("future.default", "sequential")))
  [13:09:28.505]             plan_b <- future::plan("list")
  [13:09:28.505]             str(plan_b)
  [13:09:28.505]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:09:28.505]                 getOption("future.default", "sequential")))
  [13:09:28.505]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:28.505]         }, error = identity)
  [13:09:28.505]     })
  [13:09:28.505] }
  [13:09:28.506]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:28.506] List of 3
  [13:09:28.506]  $ ...future.x_ii: NULL
  [13:09:28.506]  $ a             : int 2
  [13:09:28.506]  $ plan_a        :List of 1
  [13:09:28.506]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:09:28.506]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:28.506]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:09:28.506]     label = NULL, ...)  
  [13:09:28.506]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:09:28.506]   .. ..- attr(*, "init")= logi TRUE
  [13:09:28.506]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:09:28.506]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:28.506]  - attr(*, "where")=List of 3
  [13:09:28.506]   ..$ ...future.x_ii:<environment: 0x55c30f05d310> 
  [13:09:28.506]   ..$ a             :<environment: 0x55c30fd86840> 
  [13:09:28.506]   ..$ plan_a        :<environment: 0x55c30fd86840> 
  [13:09:28.506]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:28.506]  - attr(*, "resolved")= logi FALSE
  [13:09:28.506]  - attr(*, "total_size")= num 66056
  [13:09:28.521]   - packages: [2] 'doFuture', 'utils'
  [13:09:28.522] - identifying globals and packages ... DONE
  [13:09:28.523] Number of chunks: 1
  [13:09:28.524] Number of futures (= number of chunks): 1
  [13:09:28.524] Launching 1 futures (chunks) ...
  [13:09:28.524] Chunk #1 of 1 ...
  [13:09:28.525]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:28.525] getGlobalsAndPackages() ...
  [13:09:28.526] Searching for globals...
  [13:09:28.527] 
  [13:09:28.527] Searching for globals ... DONE
  [13:09:28.528] - globals: [0] <none>
  [13:09:28.528] getGlobalsAndPackages() ... DONE
  [13:09:28.529] 
  [13:09:28.529] 
  [13:09:28.530]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [local output] Workers: [n = 1] 'localhost'
  [local output] Base port: 11727
  [local output] Creating node 1 of 1 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=9215.23ff4a202a7e.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=9215.23ff4a202a7e.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9215:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=9215.23ff4a202a7e.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11727 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 1 ... done
  [13:09:35.999] getGlobalsAndPackages() ...
  [13:09:36.000] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:36.001] Resolving globals: FALSE
  [13:09:36.003] The total size of the 3 globals is 64.67 KiB (66224 bytes)
  [13:09:36.003] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:09:36.004] 
  [13:09:36.005] getGlobalsAndPackages() ... DONE
  Warning in sample.int(.Machine$integer.max, size = 1L) :
    '.Random.seed' is not an integer vector but of type 'NULL', so ignored
  [13:09:36.014] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:09:36.015] Packages needed by future strategies (n = 0): <none>
  [13:09:36.045] {
  [13:09:36.045]     {
  [13:09:36.045]         ...future.startTime <- Sys.time()
  [13:09:36.045]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:36.045]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:36.045]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:36.045]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:36.045]             future.resolve.recursive = NULL, width = 80L)
  [13:09:36.045]         {
  [13:09:36.045]             {
  [13:09:36.045]                 {
  [13:09:36.045]                   has_future <- requireNamespace("future", quietly = TRUE)
  [13:09:36.045]                   version <- if (has_future) 
  [13:09:36.045]                     packageVersion("future")
  [13:09:36.045]                   else NULL
  [13:09:36.045]                   if (!has_future || version < "1.8.0") {
  [13:09:36.045]                     info <- c(r_version = gsub("R version ", 
  [13:09:36.045]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:36.045]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:36.045]                       os = paste(Sys.info()[c("sysname", "release", 
  [13:09:36.045]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:36.045]                     info <- sprintf("%s: %s", names(info), info)
  [13:09:36.045]                     info <- paste(info, collapse = "; ")
  [13:09:36.045]                     if (!has_future) {
  [13:09:36.045]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:36.045]                         info)
  [13:09:36.045]                     }
  [13:09:36.045]                     else {
  [13:09:36.045]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:36.045]                         info, version)
  [13:09:36.045]                     }
  [13:09:36.045]                     stop(msg)
  [13:09:36.045]                   }
  [13:09:36.045]                 }
  [13:09:36.045]                 local({
  [13:09:36.045]                   for (pkg in c("doFuture", "utils")) {
  [13:09:36.045]                     loadNamespace(pkg)
  [13:09:36.045]                     library(pkg, character.only = TRUE)
  [13:09:36.045]                   }
  [13:09:36.045]                 })
  [13:09:36.045]             }
  [13:09:36.045]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:09:36.045]         }
  [13:09:36.045]     }
  [13:09:36.045]     if (is.na(TRUE)) {
  [13:09:36.045]     }
  [13:09:36.045]     else {
  [13:09:36.045]         if (TRUE) {
  [13:09:36.045]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:36.045]         }
  [13:09:36.045]         else {
  [13:09:36.045]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:36.045]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:36.045]         }
  [13:09:36.045]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:36.045]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:36.045]             sink(type = "output", split = FALSE)
  [13:09:36.045]             close(...future.stdout)
  [13:09:36.045]         }, add = TRUE)
  [13:09:36.045]     }
  [13:09:36.045]     ...future.frame <- sys.nframe()
  [13:09:36.045]     ...future.conditions <- list()
  [13:09:36.045]     ...future.result <- tryCatch({
  [13:09:36.045]         withCallingHandlers({
  [13:09:36.045]             ...future.value <- local({
  [13:09:36.045]                 doFuture::registerDoFuture()
  [13:09:36.045]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:36.045]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:36.045]                   b <- NULL
  [13:09:36.045]                   ...future.env <- environment()
  [13:09:36.045]                   local({
  [13:09:36.045]                     for (name in names(...future.x_jj)) {
  [13:09:36.045]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:36.045]                         inherits = FALSE)
  [13:09:36.045]                     }
  [13:09:36.045]                   })
  [13:09:36.045]                   tryCatch({
  [13:09:36.045]                     plan_list <- future::plan()
  [13:09:36.045]                     message(capture.output(print(plan_list)))
  [13:09:36.045]                     stopifnot(inherits(plan_list, "future"), 
  [13:09:36.045]                       inherits(plan_list, getOption("future.default", 
  [13:09:36.045]                         "sequential")))
  [13:09:36.045]                     plan_b <- future::plan("list")
  [13:09:36.045]                     str(plan_b)
  [13:09:36.045]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:36.045]                       inherits(plan_b[[1]], getOption("future.default", 
  [13:09:36.045]                         "sequential")))
  [13:09:36.045]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:36.045]                   }, error = identity)
  [13:09:36.045]                 })
  [13:09:36.045]             })
  [13:09:36.045]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:36.045]                 version = "1.8")
  [13:09:36.045]         }, condition = local({
  [13:09:36.045]             inherits <- base::inherits
  [13:09:36.045]             invokeRestart <- base::invokeRestart
  [13:09:36.045]             length <- base::length
  [13:09:36.045]             seq.int <- base::seq.int
  [13:09:36.045]             sys.calls <- base::sys.calls
  [13:09:36.045]             `[[` <- base::`[[`
  [13:09:36.045]             `+` <- base::`+`
  [13:09:36.045]             `<<-` <- base::`<<-`
  [13:09:36.045]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:36.045]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:36.045]                   3L)]
  [13:09:36.045]             }
  [13:09:36.045]             function(cond) {
  [13:09:36.045]                 if (inherits(cond, "error")) {
  [13:09:36.045]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:36.045]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:36.045]                     cond$call), timestamp = base::Sys.time())
  [13:09:36.045]                   signalCondition(cond)
  [13:09:36.045]                 }
  [13:09:36.045]                 else if (inherits(cond, c("message", "warning"
  [13:09:36.045]                 ))) {
  [13:09:36.045]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:36.045]                     1L]] <<- list(condition = cond)
  [13:09:36.045]                   if (inherits(cond, "message")) {
  [13:09:36.045]                     invokeRestart("muffleMessage")
  [13:09:36.045]                   }
  [13:09:36.045]                   else if (inherits(cond, "warning")) {
  [13:09:36.045]                     invokeRestart("muffleWarning")
  [13:09:36.045]                   }
  [13:09:36.045]                 }
  [13:09:36.045]             }
  [13:09:36.045]         }))
  [13:09:36.045]     }, error = function(ex) {
  [13:09:36.045]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:36.045]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:36.045]             class = "FutureResult")
  [13:09:36.045]     }, finally = {
  [13:09:36.045]         {
  [13:09:36.045]             NULL
  [13:09:36.045]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:36.045]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:36.045]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:09:36.045]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:09:36.045]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:36.045]                 ...) 
  [13:09:36.045]             {
  [13:09:36.045]                 if (substitute) 
  [13:09:36.045]                   expr <- substitute(expr)
  [13:09:36.045]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:09:36.045]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:36.045]                   globals = globals, persistent = persistent, 
  [13:09:36.045]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:09:36.045]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:09:36.045]                   label = label, ...)
  [13:09:36.045]                 if (!future$lazy) 
  [13:09:36.045]                   future <- run(future)
  [13:09:36.045]                 invisible(future)
  [13:09:36.045]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:36.045]         }
  [13:09:36.045]         options(...future.oldOptions)
  [13:09:36.045]     })
  [13:09:36.045]     if (is.na(TRUE)) {
  [13:09:36.045]     }
  [13:09:36.045]     else {
  [13:09:36.045]         sink(type = "output", split = FALSE)
  [13:09:36.045]         if (TRUE) {
  [13:09:36.045]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:36.045]         }
  [13:09:36.045]         else {
  [13:09:36.045]             ...future.result["stdout"] <- list(NULL)
  [13:09:36.045]         }
  [13:09:36.045]         close(...future.stdout)
  [13:09:36.045]         ...future.stdout <- NULL
  [13:09:36.045]     }
  [13:09:36.045]     ...future.result$conditions <- ...future.conditions
  [13:09:36.045]     ...future.result
  [13:09:36.045] }
  [13:09:36.059] Exporting 3 global objects (64.67 KiB) to cluster node #1 ...
  [13:09:36.060] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ...
  [13:09:36.074] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ... DONE
  [13:09:36.075] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:09:36.077] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:09:36.078] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [13:09:36.123] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [13:09:36.124] Exporting 3 global objects (64.67 KiB) to cluster node #1 ... DONE
  [13:09:36.125] ClusterFuture started
  [13:09:36.126] Chunk #1 of 1 ... DONE
  [13:09:36.126] Launching 1 futures (chunks) ... DONE
  [13:09:36.127] - resolving futures
  [13:09:36.127] resolve() on list ...
  [13:09:36.128]  recursive: 0
  [13:09:36.129]  length: 1
  [13:09:36.129] 
  [13:09:36.446]  length: 0 (resolved future 1)
  [13:09:36.447] resolve() on list ... DONE
  [13:09:36.447] - relaying conditions of futures
  [13:09:36.448] result() for ClusterFuture ...
  [13:09:36.449] - Validating connection of ClusterFuture
  [13:09:36.487] - class(result): FutureResult
  [13:09:36.488] Future state: 'finished'
  [13:09:36.489] result() for ClusterFuture ...
  [13:09:36.489] - result already collected: FutureResult
  [13:09:36.490] result() for ClusterFuture ... done
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [13:09:36.491] - collecting values of futures
  [13:09:36.491] result() for ClusterFuture ...
  [13:09:36.492] - result already collected: FutureResult
  [13:09:36.492] result() for ClusterFuture ... done
  [13:09:36.493] - accumulating results
  [13:09:36.494] - processing errors (handler = 'stop')
  [13:09:36.495] - extracting results
  [13:09:36.495] doFuture() ... DONE
  foreach() - level 2 ... DONE
  [13:09:36.540] - collecting values of futures
  [13:09:36.541] - accumulating results
  [13:09:36.542] - processing errors (handler = 'stop')
  [13:09:36.542] - extracting results
  [13:09:36.544] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [13:09:36.545] plan(): Setting new future strategy stack:
  [13:09:36.546] List of future strategies:
  [13:09:36.546] 1. multisession:
  [13:09:36.546]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:36.546]    - tweaked: FALSE
  [13:09:36.546]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.546] 2. sequential:
  [13:09:36.546]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:09:36.546]    - tweaked: FALSE
  [13:09:36.546]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:36.547] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:09:36.547] multisession:
  [13:09:36.547] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:36.547] - tweaked: FALSE
  [13:09:36.547] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d4a202a7e.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d4a202a7e.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d4a202a7e.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d48453009.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d48453009.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d48453009.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:09:51.282] getGlobalsAndPackages() ...
  [13:09:51.282] Not searching for globals
  [13:09:51.283] - globals: [0] <none>
  [13:09:51.284] getGlobalsAndPackages() ... DONE
  [13:09:51.286] Packages needed by the future expression (n = 0): <none>
  [13:09:51.286] Packages needed by future strategies (n = 1): 'future'
  [13:09:51.315] {
  [13:09:51.315]     {
  [13:09:51.315]         ...future.startTime <- Sys.time()
  [13:09:51.315]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:51.315]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:51.315]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:51.315]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:51.315]             future.resolve.recursive = NULL, width = 80L)
  [13:09:51.315]         {
  [13:09:51.315]             {
  [13:09:51.315]                 {
  [13:09:51.315]                   {
  [13:09:51.315]                     has_future <- requireNamespace("future", 
  [13:09:51.315]                       quietly = TRUE)
  [13:09:51.315]                     version <- if (has_future) 
  [13:09:51.315]                       packageVersion("future")
  [13:09:51.315]                     else NULL
  [13:09:51.315]                     if (!has_future || version < "1.8.0") {
  [13:09:51.315]                       info <- c(r_version = gsub("R version ", 
  [13:09:51.315]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:51.315]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:51.315]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:51.315]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:51.315]                       info <- sprintf("%s: %s", names(info), 
  [13:09:51.315]                         info)
  [13:09:51.315]                       info <- paste(info, collapse = "; ")
  [13:09:51.315]                       if (!has_future) {
  [13:09:51.315]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:51.315]                           info)
  [13:09:51.315]                       }
  [13:09:51.315]                       else {
  [13:09:51.315]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:51.315]                           info, version)
  [13:09:51.315]                       }
  [13:09:51.315]                       stop(msg)
  [13:09:51.315]                     }
  [13:09:51.315]                   }
  [13:09:51.315]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:51.315]                   options(mc.cores = 1L)
  [13:09:51.315]                 }
  [13:09:51.315]                 local({
  [13:09:51.315]                   for (pkg in "future") {
  [13:09:51.315]                     loadNamespace(pkg)
  [13:09:51.315]                     library(pkg, character.only = TRUE)
  [13:09:51.315]                   }
  [13:09:51.315]                 })
  [13:09:51.315]             }
  [13:09:51.315]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:51.315]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.315]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:51.315]                 label = NULL, ...) 
  [13:09:51.315]             {
  [13:09:51.315]                 if (substitute) 
  [13:09:51.315]                   expr <- substitute(expr)
  [13:09:51.315]                 local <- as.logical(local)
  [13:09:51.315]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.315]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.315]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.315]                   label = label, ...)
  [13:09:51.315]                 if (!future$lazy) 
  [13:09:51.315]                   future <- run(future)
  [13:09:51.315]                 invisible(future)
  [13:09:51.315]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.315]         }
  [13:09:51.315]     }
  [13:09:51.315]     if (is.na(TRUE)) {
  [13:09:51.315]     }
  [13:09:51.315]     else {
  [13:09:51.315]         if (TRUE) {
  [13:09:51.315]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:51.315]         }
  [13:09:51.315]         else {
  [13:09:51.315]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:51.315]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:51.315]         }
  [13:09:51.315]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:51.315]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:51.315]             sink(type = "output", split = FALSE)
  [13:09:51.315]             close(...future.stdout)
  [13:09:51.315]         }, add = TRUE)
  [13:09:51.315]     }
  [13:09:51.315]     ...future.frame <- sys.nframe()
  [13:09:51.315]     ...future.conditions <- list()
  [13:09:51.315]     ...future.result <- tryCatch({
  [13:09:51.315]         withCallingHandlers({
  [13:09:51.315]             ...future.value <- local(NA)
  [13:09:51.315]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:51.315]                 version = "1.8")
  [13:09:51.315]         }, condition = local({
  [13:09:51.315]             inherits <- base::inherits
  [13:09:51.315]             invokeRestart <- base::invokeRestart
  [13:09:51.315]             length <- base::length
  [13:09:51.315]             seq.int <- base::seq.int
  [13:09:51.315]             sys.calls <- base::sys.calls
  [13:09:51.315]             `[[` <- base::`[[`
  [13:09:51.315]             `+` <- base::`+`
  [13:09:51.315]             `<<-` <- base::`<<-`
  [13:09:51.315]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:51.315]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:51.315]                   3L)]
  [13:09:51.315]             }
  [13:09:51.315]             function(cond) {
  [13:09:51.315]                 if (inherits(cond, "error")) {
  [13:09:51.315]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.315]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:51.315]                     cond$call), timestamp = base::Sys.time())
  [13:09:51.315]                   signalCondition(cond)
  [13:09:51.315]                 }
  [13:09:51.315]                 else if (inherits(cond, c("message", "warning"
  [13:09:51.315]                 ))) {
  [13:09:51.315]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.315]                     1L]] <<- list(condition = cond)
  [13:09:51.315]                   if (inherits(cond, "message")) {
  [13:09:51.315]                     invokeRestart("muffleMessage")
  [13:09:51.315]                   }
  [13:09:51.315]                   else if (inherits(cond, "warning")) {
  [13:09:51.315]                     invokeRestart("muffleWarning")
  [13:09:51.315]                   }
  [13:09:51.315]                 }
  [13:09:51.315]             }
  [13:09:51.315]         }))
  [13:09:51.315]     }, error = function(ex) {
  [13:09:51.315]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:51.315]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:51.315]             class = "FutureResult")
  [13:09:51.315]     }, finally = {
  [13:09:51.315]         {
  [13:09:51.315]             {
  [13:09:51.315]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:51.315]             }
  [13:09:51.315]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:51.315]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.315]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:51.315]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:51.315]                 ...) 
  [13:09:51.315]             {
  [13:09:51.315]                 if (substitute) 
  [13:09:51.315]                   expr <- substitute(expr)
  [13:09:51.315]                 if (is.function(workers)) 
  [13:09:51.315]                   workers <- workers()
  [13:09:51.315]                 workers <- as.integer(workers)
  [13:09:51.315]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:51.315]                   workers >= 1)
  [13:09:51.315]                 if (workers == 1L) {
  [13:09:51.315]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:51.315]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:51.315]                     local = TRUE, label = label, ...))
  [13:09:51.315]                 }
  [13:09:51.315]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:51.315]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:51.315]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.315]                   globals = globals, persistent = persistent, 
  [13:09:51.315]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:51.315]                   label = label, ...)
  [13:09:51.315]                 if (!future$lazy) 
  [13:09:51.315]                   future <- run(future)
  [13:09:51.315]                 invisible(future)
  [13:09:51.315]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:51.315]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:09:51.315]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:51.315]             {
  [13:09:51.315]                 if (substitute) 
  [13:09:51.315]                   expr <- substitute(expr)
  [13:09:51.315]                 local <- as.logical(local)
  [13:09:51.315]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.315]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.315]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.315]                   label = label, ...)
  [13:09:51.315]                 if (!future$lazy) 
  [13:09:51.315]                   future <- run(future)
  [13:09:51.315]                 invisible(future)
  [13:09:51.315]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.315]         }
  [13:09:51.315]         options(...future.oldOptions)
  [13:09:51.315]     })
  [13:09:51.315]     if (is.na(TRUE)) {
  [13:09:51.315]     }
  [13:09:51.315]     else {
  [13:09:51.315]         sink(type = "output", split = FALSE)
  [13:09:51.315]         if (TRUE) {
  [13:09:51.315]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:51.315]         }
  [13:09:51.315]         else {
  [13:09:51.315]             ...future.result["stdout"] <- list(NULL)
  [13:09:51.315]         }
  [13:09:51.315]         close(...future.stdout)
  [13:09:51.315]         ...future.stdout <- NULL
  [13:09:51.315]     }
  [13:09:51.315]     ...future.result$conditions <- ...future.conditions
  [13:09:51.315]     ...future.result
  [13:09:51.315] }
  [13:09:51.322] MultisessionFuture started
  [13:09:51.323] result() for ClusterFuture ...
  [13:09:51.323] - Validating connection of MultisessionFuture
  [13:09:51.617] - class(result): FutureResult
  [13:09:51.618] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:09:51.619] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:09:51.620] doFuture() ...
  [13:09:51.621] - dummy globals (as locals): [1] 'a'
  [13:09:51.622] - R expression:
  [13:09:51.623] {
  [13:09:51.623]     doFuture::registerDoFuture()
  [13:09:51.623]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:51.623]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:51.623]         a <- NULL
  [13:09:51.623]         ...future.env <- environment()
  [13:09:51.623]         local({
  [13:09:51.623]             for (name in names(...future.x_jj)) {
  [13:09:51.623]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:51.623]                   inherits = FALSE)
  [13:09:51.623]             }
  [13:09:51.623]         })
  [13:09:51.623]         tryCatch({
  [13:09:51.623]             plan_list <- future::plan()
  [13:09:51.623]             stopifnot(inherits(plan_list, strategy2))
  [13:09:51.623]             plan_a <- future::plan("list")
  [13:09:51.623]             str(plan_a)
  [13:09:51.623]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:51.623]             message("foreach() - level 2 ...")
  [13:09:51.623]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:51.623]                 {
  [13:09:51.623]                   plan_list <- future::plan()
  [13:09:51.623]                   message(capture.output(print(plan_list)))
  [13:09:51.623]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:51.623]                     getOption("future.default", "sequential")))
  [13:09:51.623]                   plan_b <- future::plan("list")
  [13:09:51.623]                   str(plan_b)
  [13:09:51.623]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:51.623]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:51.623]                       "sequential")))
  [13:09:51.623]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:51.623]                 }
  [13:09:51.623]             message("foreach() - level 2 ... DONE")
  [13:09:51.623]             y
  [13:09:51.623]         }, error = identity)
  [13:09:51.623]     })
  [13:09:51.623] }
  [13:09:51.624] - identifying globals and packages ...
  [13:09:51.625] getGlobalsAndPackages() ...
  [13:09:51.625] Searching for globals...
  [13:09:51.667] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:09:51.667] Searching for globals ... DONE
  [13:09:51.668] Resolving globals: FALSE
  [13:09:51.687] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:09:51.687] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.688] - packages: [2] 'utils', 'foreach'
  [13:09:51.688] getGlobalsAndPackages() ... DONE
  [13:09:51.688] List of 3
  [13:09:51.688]  $ ...future.x_ii: NULL
  [13:09:51.688]  $ strategy2     : chr "sequential"
  [13:09:51.688]  $ bs            : int [1:3] 3 2 1
  [13:09:51.688]  - attr(*, "where")=List of 3
  [13:09:51.688]   ..$ ...future.x_ii:<environment: 0x55c30dfba5f8> 
  [13:09:51.688]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:51.688]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:51.688]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:51.688]  - attr(*, "resolved")= logi FALSE
  [13:09:51.688]  - attr(*, "total_size")= num 184
  [13:09:51.699]   - R expression:
  [13:09:51.699] {
  [13:09:51.699]     doFuture::registerDoFuture()
  [13:09:51.699]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:51.699]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:51.699]         a <- NULL
  [13:09:51.699]         ...future.env <- environment()
  [13:09:51.699]         local({
  [13:09:51.699]             for (name in names(...future.x_jj)) {
  [13:09:51.699]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:51.699]                   inherits = FALSE)
  [13:09:51.699]             }
  [13:09:51.699]         })
  [13:09:51.699]         tryCatch({
  [13:09:51.699]             plan_list <- future::plan()
  [13:09:51.699]             stopifnot(inherits(plan_list, strategy2))
  [13:09:51.699]             plan_a <- future::plan("list")
  [13:09:51.699]             str(plan_a)
  [13:09:51.699]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:51.699]             message("foreach() - level 2 ...")
  [13:09:51.699]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:51.699]                 {
  [13:09:51.699]                   plan_list <- future::plan()
  [13:09:51.699]                   message(capture.output(print(plan_list)))
  [13:09:51.699]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:09:51.699]                     getOption("future.default", "sequential")))
  [13:09:51.699]                   plan_b <- future::plan("list")
  [13:09:51.699]                   str(plan_b)
  [13:09:51.699]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:51.699]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:09:51.699]                       "sequential")))
  [13:09:51.699]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:51.699]                 }
  [13:09:51.699]             message("foreach() - level 2 ... DONE")
  [13:09:51.699]             y
  [13:09:51.699]         }, error = identity)
  [13:09:51.699]     })
  [13:09:51.699] }
  [13:09:51.700]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.701] List of 3
  [13:09:51.701]  $ ...future.x_ii: NULL
  [13:09:51.701]  $ strategy2     : chr "sequential"
  [13:09:51.701]  $ bs            : int [1:3] 3 2 1
  [13:09:51.701]  - attr(*, "where")=List of 3
  [13:09:51.701]   ..$ ...future.x_ii:<environment: 0x55c30dfba5f8> 
  [13:09:51.701]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:09:51.701]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:09:51.701]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:09:51.701]  - attr(*, "resolved")= logi FALSE
  [13:09:51.701]  - attr(*, "total_size")= num 184
  [13:09:51.719]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:09:51.719] - identifying globals and packages ... DONE
  [13:09:51.721] Number of chunks: 2
  [13:09:51.721] Number of futures (= number of chunks): 2
  [13:09:51.721] Launching 2 futures (chunks) ...
  [13:09:51.722] Chunk #1 of 2 ...
  [13:09:51.722]  - Finding globals in 'args_list' chunk #1 ...
  [13:09:51.722] getGlobalsAndPackages() ...
  [13:09:51.723] Searching for globals...
  [13:09:51.723] 
  [13:09:51.724] Searching for globals ... DONE
  [13:09:51.724] - globals: [0] <none>
  [13:09:51.724] getGlobalsAndPackages() ... DONE
  [13:09:51.725] 
  [13:09:51.725] 
  [13:09:51.725]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:09:51.733] getGlobalsAndPackages() ...
  [13:09:51.734] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.734] Resolving globals: FALSE
  [13:09:51.736] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:51.736] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.736] 
  [13:09:51.737] getGlobalsAndPackages() ... DONE
  [13:09:51.739] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:51.743] Packages needed by future strategies (n = 1): 'future'
  [13:09:51.748] {
  [13:09:51.748]     {
  [13:09:51.748]         ...future.startTime <- Sys.time()
  [13:09:51.748]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:51.748]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:51.748]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:51.748]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:51.748]             future.resolve.recursive = NULL, width = 80L)
  [13:09:51.748]         {
  [13:09:51.748]             {
  [13:09:51.748]                 {
  [13:09:51.748]                   {
  [13:09:51.748]                     has_future <- requireNamespace("future", 
  [13:09:51.748]                       quietly = TRUE)
  [13:09:51.748]                     version <- if (has_future) 
  [13:09:51.748]                       packageVersion("future")
  [13:09:51.748]                     else NULL
  [13:09:51.748]                     if (!has_future || version < "1.8.0") {
  [13:09:51.748]                       info <- c(r_version = gsub("R version ", 
  [13:09:51.748]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:51.748]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:51.748]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:51.748]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:51.748]                       info <- sprintf("%s: %s", names(info), 
  [13:09:51.748]                         info)
  [13:09:51.748]                       info <- paste(info, collapse = "; ")
  [13:09:51.748]                       if (!has_future) {
  [13:09:51.748]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:51.748]                           info)
  [13:09:51.748]                       }
  [13:09:51.748]                       else {
  [13:09:51.748]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:51.748]                           info, version)
  [13:09:51.748]                       }
  [13:09:51.748]                       stop(msg)
  [13:09:51.748]                     }
  [13:09:51.748]                   }
  [13:09:51.748]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:51.748]                   options(mc.cores = 1L)
  [13:09:51.748]                 }
  [13:09:51.748]                 local({
  [13:09:51.748]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:51.748]                   "future")) {
  [13:09:51.748]                     loadNamespace(pkg)
  [13:09:51.748]                     library(pkg, character.only = TRUE)
  [13:09:51.748]                   }
  [13:09:51.748]                 })
  [13:09:51.748]             }
  [13:09:51.748]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:51.748]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.748]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:51.748]                 label = NULL, ...) 
  [13:09:51.748]             {
  [13:09:51.748]                 if (substitute) 
  [13:09:51.748]                   expr <- substitute(expr)
  [13:09:51.748]                 local <- as.logical(local)
  [13:09:51.748]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.748]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.748]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.748]                   label = label, ...)
  [13:09:51.748]                 if (!future$lazy) 
  [13:09:51.748]                   future <- run(future)
  [13:09:51.748]                 invisible(future)
  [13:09:51.748]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.748]         }
  [13:09:51.748]     }
  [13:09:51.748]     if (is.na(TRUE)) {
  [13:09:51.748]     }
  [13:09:51.748]     else {
  [13:09:51.748]         if (TRUE) {
  [13:09:51.748]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:51.748]         }
  [13:09:51.748]         else {
  [13:09:51.748]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:51.748]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:51.748]         }
  [13:09:51.748]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:51.748]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:51.748]             sink(type = "output", split = FALSE)
  [13:09:51.748]             close(...future.stdout)
  [13:09:51.748]         }, add = TRUE)
  [13:09:51.748]     }
  [13:09:51.748]     ...future.frame <- sys.nframe()
  [13:09:51.748]     ...future.conditions <- list()
  [13:09:51.748]     ...future.result <- tryCatch({
  [13:09:51.748]         withCallingHandlers({
  [13:09:51.748]             ...future.value <- local({
  [13:09:51.748]                 doFuture::registerDoFuture()
  [13:09:51.748]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:51.748]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:51.748]                   a <- NULL
  [13:09:51.748]                   ...future.env <- environment()
  [13:09:51.748]                   local({
  [13:09:51.748]                     for (name in names(...future.x_jj)) {
  [13:09:51.748]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:51.748]                         inherits = FALSE)
  [13:09:51.748]                     }
  [13:09:51.748]                   })
  [13:09:51.748]                   tryCatch({
  [13:09:51.748]                     plan_list <- future::plan()
  [13:09:51.748]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:51.748]                     plan_a <- future::plan("list")
  [13:09:51.748]                     str(plan_a)
  [13:09:51.748]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:51.748]                     message("foreach() - level 2 ...")
  [13:09:51.748]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:51.748]                       {
  [13:09:51.748]                         plan_list <- future::plan()
  [13:09:51.748]                         message(capture.output(print(plan_list)))
  [13:09:51.748]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:51.748]                           inherits(plan_list, getOption("future.default", 
  [13:09:51.748]                             "sequential")))
  [13:09:51.748]                         plan_b <- future::plan("list")
  [13:09:51.748]                         str(plan_b)
  [13:09:51.748]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:51.748]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:51.748]                             "sequential")))
  [13:09:51.748]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:51.748]                       }
  [13:09:51.748]                     message("foreach() - level 2 ... DONE")
  [13:09:51.748]                     y
  [13:09:51.748]                   }, error = identity)
  [13:09:51.748]                 })
  [13:09:51.748]             })
  [13:09:51.748]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:51.748]                 version = "1.8")
  [13:09:51.748]         }, condition = local({
  [13:09:51.748]             inherits <- base::inherits
  [13:09:51.748]             invokeRestart <- base::invokeRestart
  [13:09:51.748]             length <- base::length
  [13:09:51.748]             seq.int <- base::seq.int
  [13:09:51.748]             sys.calls <- base::sys.calls
  [13:09:51.748]             `[[` <- base::`[[`
  [13:09:51.748]             `+` <- base::`+`
  [13:09:51.748]             `<<-` <- base::`<<-`
  [13:09:51.748]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:51.748]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:51.748]                   3L)]
  [13:09:51.748]             }
  [13:09:51.748]             function(cond) {
  [13:09:51.748]                 if (inherits(cond, "error")) {
  [13:09:51.748]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.748]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:51.748]                     cond$call), timestamp = base::Sys.time())
  [13:09:51.748]                   signalCondition(cond)
  [13:09:51.748]                 }
  [13:09:51.748]                 else if (inherits(cond, c("message", "warning"
  [13:09:51.748]                 ))) {
  [13:09:51.748]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.748]                     1L]] <<- list(condition = cond)
  [13:09:51.748]                   if (inherits(cond, "message")) {
  [13:09:51.748]                     invokeRestart("muffleMessage")
  [13:09:51.748]                   }
  [13:09:51.748]                   else if (inherits(cond, "warning")) {
  [13:09:51.748]                     invokeRestart("muffleWarning")
  [13:09:51.748]                   }
  [13:09:51.748]                 }
  [13:09:51.748]             }
  [13:09:51.748]         }))
  [13:09:51.748]     }, error = function(ex) {
  [13:09:51.748]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:51.748]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:51.748]             class = "FutureResult")
  [13:09:51.748]     }, finally = {
  [13:09:51.748]         {
  [13:09:51.748]             {
  [13:09:51.748]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:51.748]             }
  [13:09:51.748]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:51.748]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.748]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:51.748]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:51.748]                 ...) 
  [13:09:51.748]             {
  [13:09:51.748]                 if (substitute) 
  [13:09:51.748]                   expr <- substitute(expr)
  [13:09:51.748]                 if (is.function(workers)) 
  [13:09:51.748]                   workers <- workers()
  [13:09:51.748]                 workers <- as.integer(workers)
  [13:09:51.748]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:51.748]                   workers >= 1)
  [13:09:51.748]                 if (workers == 1L) {
  [13:09:51.748]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:51.748]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:51.748]                     local = TRUE, label = label, ...))
  [13:09:51.748]                 }
  [13:09:51.748]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:51.748]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:51.748]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.748]                   globals = globals, persistent = persistent, 
  [13:09:51.748]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:51.748]                   label = label, ...)
  [13:09:51.748]                 if (!future$lazy) 
  [13:09:51.748]                   future <- run(future)
  [13:09:51.748]                 invisible(future)
  [13:09:51.748]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:51.748]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:09:51.748]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:51.748]             {
  [13:09:51.748]                 if (substitute) 
  [13:09:51.748]                   expr <- substitute(expr)
  [13:09:51.748]                 local <- as.logical(local)
  [13:09:51.748]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.748]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.748]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.748]                   label = label, ...)
  [13:09:51.748]                 if (!future$lazy) 
  [13:09:51.748]                   future <- run(future)
  [13:09:51.748]                 invisible(future)
  [13:09:51.748]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.748]         }
  [13:09:51.748]         options(...future.oldOptions)
  [13:09:51.748]     })
  [13:09:51.748]     if (is.na(TRUE)) {
  [13:09:51.748]     }
  [13:09:51.748]     else {
  [13:09:51.748]         sink(type = "output", split = FALSE)
  [13:09:51.748]         if (TRUE) {
  [13:09:51.748]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:51.748]         }
  [13:09:51.748]         else {
  [13:09:51.748]             ...future.result["stdout"] <- list(NULL)
  [13:09:51.748]         }
  [13:09:51.748]         close(...future.stdout)
  [13:09:51.748]         ...future.stdout <- NULL
  [13:09:51.748]     }
  [13:09:51.748]     ...future.result$conditions <- ...future.conditions
  [13:09:51.748]     ...future.result
  [13:09:51.748] }
  [13:09:51.754] Exporting 3 global objects (240 bytes) to cluster node #1 ...
  [13:09:51.754] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:09:51.755] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:09:51.756] Exporting 'strategy2' (120 bytes) to cluster node #1 ...
  [13:09:51.757] Exporting 'strategy2' (120 bytes) to cluster node #1 ... DONE
  [13:09:51.757] Exporting 'bs' (64 bytes) to cluster node #1 ...
  [13:09:51.758] Exporting 'bs' (64 bytes) to cluster node #1 ... DONE
  [13:09:51.759] Exporting 3 global objects (240 bytes) to cluster node #1 ... DONE
  [13:09:51.765] MultisessionFuture started
  [13:09:51.766] Chunk #1 of 2 ... DONE
  [13:09:51.766] Chunk #2 of 2 ...
  [13:09:51.766]  - Finding globals in 'args_list' chunk #2 ...
  [13:09:51.767] getGlobalsAndPackages() ...
  [13:09:51.767] Searching for globals...
  [13:09:51.768] 
  [13:09:51.768] Searching for globals ... DONE
  [13:09:51.769] - globals: [0] <none>
  [13:09:51.769] getGlobalsAndPackages() ... DONE
  [13:09:51.769] 
  [13:09:51.769] 
  [13:09:51.770]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:09:51.780] getGlobalsAndPackages() ...
  [13:09:51.781] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.781] Resolving globals: FALSE
  [13:09:51.782] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:09:51.783] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:09:51.783] 
  [13:09:51.784] getGlobalsAndPackages() ... DONE
  [13:09:51.786] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:09:51.786] Packages needed by future strategies (n = 1): 'future'
  [13:09:51.791] {
  [13:09:51.791]     {
  [13:09:51.791]         ...future.startTime <- Sys.time()
  [13:09:51.791]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:09:51.791]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:09:51.791]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:09:51.791]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:09:51.791]             future.resolve.recursive = NULL, width = 80L)
  [13:09:51.791]         {
  [13:09:51.791]             {
  [13:09:51.791]                 {
  [13:09:51.791]                   {
  [13:09:51.791]                     has_future <- requireNamespace("future", 
  [13:09:51.791]                       quietly = TRUE)
  [13:09:51.791]                     version <- if (has_future) 
  [13:09:51.791]                       packageVersion("future")
  [13:09:51.791]                     else NULL
  [13:09:51.791]                     if (!has_future || version < "1.8.0") {
  [13:09:51.791]                       info <- c(r_version = gsub("R version ", 
  [13:09:51.791]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:09:51.791]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:09:51.791]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:09:51.791]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:09:51.791]                       info <- sprintf("%s: %s", names(info), 
  [13:09:51.791]                         info)
  [13:09:51.791]                       info <- paste(info, collapse = "; ")
  [13:09:51.791]                       if (!has_future) {
  [13:09:51.791]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:09:51.791]                           info)
  [13:09:51.791]                       }
  [13:09:51.791]                       else {
  [13:09:51.791]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:09:51.791]                           info, version)
  [13:09:51.791]                       }
  [13:09:51.791]                       stop(msg)
  [13:09:51.791]                     }
  [13:09:51.791]                   }
  [13:09:51.791]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:09:51.791]                   options(mc.cores = 1L)
  [13:09:51.791]                 }
  [13:09:51.791]                 local({
  [13:09:51.791]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:09:51.791]                   "future")) {
  [13:09:51.791]                     loadNamespace(pkg)
  [13:09:51.791]                     library(pkg, character.only = TRUE)
  [13:09:51.791]                   }
  [13:09:51.791]                 })
  [13:09:51.791]             }
  [13:09:51.791]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:09:51.791]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.791]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:09:51.791]                 label = NULL, ...) 
  [13:09:51.791]             {
  [13:09:51.791]                 if (substitute) 
  [13:09:51.791]                   expr <- substitute(expr)
  [13:09:51.791]                 local <- as.logical(local)
  [13:09:51.791]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.791]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.791]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.791]                   label = label, ...)
  [13:09:51.791]                 if (!future$lazy) 
  [13:09:51.791]                   future <- run(future)
  [13:09:51.791]                 invisible(future)
  [13:09:51.791]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.791]         }
  [13:09:51.791]     }
  [13:09:51.791]     if (is.na(TRUE)) {
  [13:09:51.791]     }
  [13:09:51.791]     else {
  [13:09:51.791]         if (TRUE) {
  [13:09:51.791]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:09:51.791]         }
  [13:09:51.791]         else {
  [13:09:51.791]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:09:51.791]                 windows = "NUL", "/dev/null"), open = "w")
  [13:09:51.791]         }
  [13:09:51.791]         sink(...future.stdout, type = "output", split = FALSE)
  [13:09:51.791]         on.exit(if (!is.null(...future.stdout)) {
  [13:09:51.791]             sink(type = "output", split = FALSE)
  [13:09:51.791]             close(...future.stdout)
  [13:09:51.791]         }, add = TRUE)
  [13:09:51.791]     }
  [13:09:51.791]     ...future.frame <- sys.nframe()
  [13:09:51.791]     ...future.conditions <- list()
  [13:09:51.791]     ...future.result <- tryCatch({
  [13:09:51.791]         withCallingHandlers({
  [13:09:51.791]             ...future.value <- local({
  [13:09:51.791]                 doFuture::registerDoFuture()
  [13:09:51.791]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:09:51.791]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:09:51.791]                   a <- NULL
  [13:09:51.791]                   ...future.env <- environment()
  [13:09:51.791]                   local({
  [13:09:51.791]                     for (name in names(...future.x_jj)) {
  [13:09:51.791]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:09:51.791]                         inherits = FALSE)
  [13:09:51.791]                     }
  [13:09:51.791]                   })
  [13:09:51.791]                   tryCatch({
  [13:09:51.791]                     plan_list <- future::plan()
  [13:09:51.791]                     stopifnot(inherits(plan_list, strategy2))
  [13:09:51.791]                     plan_a <- future::plan("list")
  [13:09:51.791]                     str(plan_a)
  [13:09:51.791]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:09:51.791]                     message("foreach() - level 2 ...")
  [13:09:51.791]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:09:51.791]                       {
  [13:09:51.791]                         plan_list <- future::plan()
  [13:09:51.791]                         message(capture.output(print(plan_list)))
  [13:09:51.791]                         stopifnot(inherits(plan_list, "future"), 
  [13:09:51.791]                           inherits(plan_list, getOption("future.default", 
  [13:09:51.791]                             "sequential")))
  [13:09:51.791]                         plan_b <- future::plan("list")
  [13:09:51.791]                         str(plan_b)
  [13:09:51.791]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:09:51.791]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:09:51.791]                             "sequential")))
  [13:09:51.791]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:09:51.791]                       }
  [13:09:51.791]                     message("foreach() - level 2 ... DONE")
  [13:09:51.791]                     y
  [13:09:51.791]                   }, error = identity)
  [13:09:51.791]                 })
  [13:09:51.791]             })
  [13:09:51.791]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:09:51.791]                 version = "1.8")
  [13:09:51.791]         }, condition = local({
  [13:09:51.791]             inherits <- base::inherits
  [13:09:51.791]             invokeRestart <- base::invokeRestart
  [13:09:51.791]             length <- base::length
  [13:09:51.791]             seq.int <- base::seq.int
  [13:09:51.791]             sys.calls <- base::sys.calls
  [13:09:51.791]             `[[` <- base::`[[`
  [13:09:51.791]             `+` <- base::`+`
  [13:09:51.791]             `<<-` <- base::`<<-`
  [13:09:51.791]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:09:51.791]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:09:51.791]                   3L)]
  [13:09:51.791]             }
  [13:09:51.791]             function(cond) {
  [13:09:51.791]                 if (inherits(cond, "error")) {
  [13:09:51.791]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.791]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:09:51.791]                     cond$call), timestamp = base::Sys.time())
  [13:09:51.791]                   signalCondition(cond)
  [13:09:51.791]                 }
  [13:09:51.791]                 else if (inherits(cond, c("message", "warning"
  [13:09:51.791]                 ))) {
  [13:09:51.791]                   ...future.conditions[[length(...future.conditions) + 
  [13:09:51.791]                     1L]] <<- list(condition = cond)
  [13:09:51.791]                   if (inherits(cond, "message")) {
  [13:09:51.791]                     invokeRestart("muffleMessage")
  [13:09:51.791]                   }
  [13:09:51.791]                   else if (inherits(cond, "warning")) {
  [13:09:51.791]                     invokeRestart("muffleWarning")
  [13:09:51.791]                   }
  [13:09:51.791]                 }
  [13:09:51.791]             }
  [13:09:51.791]         }))
  [13:09:51.791]     }, error = function(ex) {
  [13:09:51.791]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:09:51.791]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:09:51.791]             class = "FutureResult")
  [13:09:51.791]     }, finally = {
  [13:09:51.791]         {
  [13:09:51.791]             {
  [13:09:51.791]                 options(mc.cores = ...future.mc.cores.old)
  [13:09:51.791]             }
  [13:09:51.791]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:09:51.791]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:09:51.791]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:09:51.791]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:09:51.791]                 ...) 
  [13:09:51.791]             {
  [13:09:51.791]                 if (substitute) 
  [13:09:51.791]                   expr <- substitute(expr)
  [13:09:51.791]                 if (is.function(workers)) 
  [13:09:51.791]                   workers <- workers()
  [13:09:51.791]                 workers <- as.integer(workers)
  [13:09:51.791]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:09:51.791]                   workers >= 1)
  [13:09:51.791]                 if (workers == 1L) {
  [13:09:51.791]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:09:51.791]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:09:51.791]                     local = TRUE, label = label, ...))
  [13:09:51.791]                 }
  [13:09:51.791]                 workers <- ClusterRegistry("start", workers = workers)
  [13:09:51.791]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:09:51.791]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.791]                   globals = globals, persistent = persistent, 
  [13:09:51.791]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:09:51.791]                   label = label, ...)
  [13:09:51.791]                 if (!future$lazy) 
  [13:09:51.791]                   future <- run(future)
  [13:09:51.791]                 invisible(future)
  [13:09:51.791]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:09:51.791]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:09:51.791]                 earlySignal = FALSE, label = NULL, ...) 
  [13:09:51.791]             {
  [13:09:51.791]                 if (substitute) 
  [13:09:51.791]                   expr <- substitute(expr)
  [13:09:51.791]                 local <- as.logical(local)
  [13:09:51.791]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:09:51.791]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:09:51.791]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:09:51.791]                   label = label, ...)
  [13:09:51.791]                 if (!future$lazy) 
  [13:09:51.791]                   future <- run(future)
  [13:09:51.791]                 invisible(future)
  [13:09:51.791]             }), .cleanup = FALSE, .init = FALSE)
  [13:09:51.791]         }
  [13:09:51.791]         options(...future.oldOptions)
  [13:09:51.791]     })
  [13:09:51.791]     if (is.na(TRUE)) {
  [13:09:51.791]     }
  [13:09:51.791]     else {
  [13:09:51.791]         sink(type = "output", split = FALSE)
  [13:09:51.791]         if (TRUE) {
  [13:09:51.791]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:09:51.791]         }
  [13:09:51.791]         else {
  [13:09:51.791]             ...future.result["stdout"] <- list(NULL)
  [13:09:51.791]         }
  [13:09:51.791]         close(...future.stdout)
  [13:09:51.791]         ...future.stdout <- NULL
  [13:09:51.791]     }
  [13:09:51.791]     ...future.result$conditions <- ...future.conditions
  [13:09:51.791]     ...future.result
  [13:09:51.791] }
  [13:09:51.798] Exporting 3 global objects (240 bytes) to cluster node #2 ...
  [13:09:51.798] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ...
  [13:09:51.799] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ... DONE
  [13:09:51.800] Exporting 'strategy2' (120 bytes) to cluster node #2 ...
  [13:09:51.801] Exporting 'strategy2' (120 bytes) to cluster node #2 ... DONE
  [13:09:51.801] Exporting 'bs' (64 bytes) to cluster node #2 ...
  [13:09:51.802] Exporting 'bs' (64 bytes) to cluster node #2 ... DONE
  [13:09:51.802] Exporting 3 global objects (240 bytes) to cluster node #2 ... DONE
  [13:09:51.804] MultisessionFuture started
  [13:09:51.804] Chunk #2 of 2 ... DONE
  [13:09:51.804] Launching 2 futures (chunks) ... DONE
  [13:09:51.805] - resolving futures
  [13:09:51.805] resolve() on list ...
  [13:09:51.805]  recursive: 0
  [13:09:51.806]  length: 2
  [13:09:51.806] 
  [13:09:52.339]  length: 1 (resolved future 1)
  [13:09:52.411]  length: 0 (resolved future 2)
  [13:09:52.412] resolve() on list ... DONE
  [13:09:52.412] - relaying conditions of futures
  [13:09:52.413] result() for ClusterFuture ...
  [13:09:52.413] - Validating connection of MultisessionFuture
  [13:09:52.414] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:52.415] Future state: 'finished'
  [13:09:52.415] result() for ClusterFuture ...
  [13:09:52.415] - result already collected: FutureResult
  [13:09:52.416] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:09:52.417] result() for ClusterFuture ...
  [13:09:52.417] - Validating connection of MultisessionFuture
  [13:09:52.455] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:09:52.456] Future state: 'finished'
  [13:09:52.456] result() for ClusterFuture ...
  [13:09:52.456] - result already collected: FutureResult
  [13:09:52.457] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:09:52.458] - collecting values of futures
  [13:09:52.458] result() for ClusterFuture ...
  [13:09:52.458] - result already collected: FutureResult
  [13:09:52.459] result() for ClusterFuture ... done
  [13:09:52.459] result() for ClusterFuture ...
  [13:09:52.459] - result already collected: FutureResult
  [13:09:52.459] result() for ClusterFuture ... done
  [13:09:52.460] - accumulating results
  [13:09:52.461] - processing errors (handler = 'stop')
  [13:09:52.461] - extracting results
  [13:09:52.461] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [13:09:52.463] plan(): Setting new future strategy stack:
  [13:09:52.463] List of future strategies:
  [13:09:52.463] 1. multisession:
  [13:09:52.463]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:52.463]    - tweaked: FALSE
  [13:09:52.463]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:52.463] 2. multicore:
  [13:09:52.463]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:09:52.463]    - tweaked: FALSE
  [13:09:52.463]    - call: plan(list(a = strategy1, b = strategy2))
  [13:09:52.469] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:09:52.470] multisession:
  [13:09:52.470] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:09:52.470] - tweaked: FALSE
  [13:09:52.470] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d7331465.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d7331465.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d7331465.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d605648e9.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d605648e9.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d605648e9.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:10:07.256] getGlobalsAndPackages() ...
  [13:10:07.257] Not searching for globals
  [13:10:07.258] - globals: [0] <none>
  [13:10:07.260] getGlobalsAndPackages() ... DONE
  [13:10:07.263] Packages needed by the future expression (n = 0): <none>
  [13:10:07.264] Packages needed by future strategies (n = 1): 'future'
  [13:10:07.271] {
  [13:10:07.271]     {
  [13:10:07.271]         ...future.startTime <- Sys.time()
  [13:10:07.271]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:07.271]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:07.271]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:07.271]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:07.271]             future.resolve.recursive = NULL, width = 80L)
  [13:10:07.271]         {
  [13:10:07.271]             {
  [13:10:07.271]                 {
  [13:10:07.271]                   {
  [13:10:07.271]                     has_future <- requireNamespace("future", 
  [13:10:07.271]                       quietly = TRUE)
  [13:10:07.271]                     version <- if (has_future) 
  [13:10:07.271]                       packageVersion("future")
  [13:10:07.271]                     else NULL
  [13:10:07.271]                     if (!has_future || version < "1.8.0") {
  [13:10:07.271]                       info <- c(r_version = gsub("R version ", 
  [13:10:07.271]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:07.271]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:07.271]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:07.271]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:07.271]                       info <- sprintf("%s: %s", names(info), 
  [13:10:07.271]                         info)
  [13:10:07.271]                       info <- paste(info, collapse = "; ")
  [13:10:07.271]                       if (!has_future) {
  [13:10:07.271]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:07.271]                           info)
  [13:10:07.271]                       }
  [13:10:07.271]                       else {
  [13:10:07.271]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:07.271]                           info, version)
  [13:10:07.271]                       }
  [13:10:07.271]                       stop(msg)
  [13:10:07.271]                     }
  [13:10:07.271]                   }
  [13:10:07.271]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:07.271]                   options(mc.cores = 1L)
  [13:10:07.271]                 }
  [13:10:07.271]                 local({
  [13:10:07.271]                   for (pkg in "future") {
  [13:10:07.271]                     loadNamespace(pkg)
  [13:10:07.271]                     library(pkg, character.only = TRUE)
  [13:10:07.271]                   }
  [13:10:07.271]                 })
  [13:10:07.271]             }
  [13:10:07.271]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:07.271]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.271]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.271]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.271]             {
  [13:10:07.271]                 if (substitute) 
  [13:10:07.271]                   expr <- substitute(expr)
  [13:10:07.271]                 if (is.function(workers)) 
  [13:10:07.271]                   workers <- workers()
  [13:10:07.271]                 workers <- as.integer(workers)
  [13:10:07.271]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.271]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.271]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.271]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.271]                     local = TRUE, label = label, ...))
  [13:10:07.271]                 }
  [13:10:07.271]                 oopts <- options(mc.cores = workers)
  [13:10:07.271]                 on.exit(options(oopts))
  [13:10:07.271]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.271]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.271]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.271]                   label = label, ...)
  [13:10:07.271]                 if (!future$lazy) 
  [13:10:07.271]                   future <- run(future)
  [13:10:07.271]                 invisible(future)
  [13:10:07.271]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.271]         }
  [13:10:07.271]     }
  [13:10:07.271]     if (is.na(TRUE)) {
  [13:10:07.271]     }
  [13:10:07.271]     else {
  [13:10:07.271]         if (TRUE) {
  [13:10:07.271]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:07.271]         }
  [13:10:07.271]         else {
  [13:10:07.271]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:07.271]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:07.271]         }
  [13:10:07.271]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:07.271]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:07.271]             sink(type = "output", split = FALSE)
  [13:10:07.271]             close(...future.stdout)
  [13:10:07.271]         }, add = TRUE)
  [13:10:07.271]     }
  [13:10:07.271]     ...future.frame <- sys.nframe()
  [13:10:07.271]     ...future.conditions <- list()
  [13:10:07.271]     ...future.result <- tryCatch({
  [13:10:07.271]         withCallingHandlers({
  [13:10:07.271]             ...future.value <- local(NA)
  [13:10:07.271]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:07.271]                 version = "1.8")
  [13:10:07.271]         }, condition = local({
  [13:10:07.271]             inherits <- base::inherits
  [13:10:07.271]             invokeRestart <- base::invokeRestart
  [13:10:07.271]             length <- base::length
  [13:10:07.271]             seq.int <- base::seq.int
  [13:10:07.271]             sys.calls <- base::sys.calls
  [13:10:07.271]             `[[` <- base::`[[`
  [13:10:07.271]             `+` <- base::`+`
  [13:10:07.271]             `<<-` <- base::`<<-`
  [13:10:07.271]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:07.271]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:07.271]                   3L)]
  [13:10:07.271]             }
  [13:10:07.271]             function(cond) {
  [13:10:07.271]                 if (inherits(cond, "error")) {
  [13:10:07.271]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.271]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:07.271]                     cond$call), timestamp = base::Sys.time())
  [13:10:07.271]                   signalCondition(cond)
  [13:10:07.271]                 }
  [13:10:07.271]                 else if (inherits(cond, c("message", "warning"
  [13:10:07.271]                 ))) {
  [13:10:07.271]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.271]                     1L]] <<- list(condition = cond)
  [13:10:07.271]                   if (inherits(cond, "message")) {
  [13:10:07.271]                     invokeRestart("muffleMessage")
  [13:10:07.271]                   }
  [13:10:07.271]                   else if (inherits(cond, "warning")) {
  [13:10:07.271]                     invokeRestart("muffleWarning")
  [13:10:07.271]                   }
  [13:10:07.271]                 }
  [13:10:07.271]             }
  [13:10:07.271]         }))
  [13:10:07.271]     }, error = function(ex) {
  [13:10:07.271]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:07.271]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:07.271]             class = "FutureResult")
  [13:10:07.271]     }, finally = {
  [13:10:07.271]         {
  [13:10:07.271]             {
  [13:10:07.271]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:07.271]             }
  [13:10:07.271]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:07.271]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.271]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:07.271]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:07.271]                 ...) 
  [13:10:07.271]             {
  [13:10:07.271]                 if (substitute) 
  [13:10:07.271]                   expr <- substitute(expr)
  [13:10:07.271]                 if (is.function(workers)) 
  [13:10:07.271]                   workers <- workers()
  [13:10:07.271]                 workers <- as.integer(workers)
  [13:10:07.271]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:07.271]                   workers >= 1)
  [13:10:07.271]                 if (workers == 1L) {
  [13:10:07.271]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.271]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:07.271]                     local = TRUE, label = label, ...))
  [13:10:07.271]                 }
  [13:10:07.271]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:07.271]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:07.271]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.271]                   globals = globals, persistent = persistent, 
  [13:10:07.271]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:07.271]                   label = label, ...)
  [13:10:07.271]                 if (!future$lazy) 
  [13:10:07.271]                   future <- run(future)
  [13:10:07.271]                 invisible(future)
  [13:10:07.271]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:07.271]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.271]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.271]             {
  [13:10:07.271]                 if (substitute) 
  [13:10:07.271]                   expr <- substitute(expr)
  [13:10:07.271]                 if (is.function(workers)) 
  [13:10:07.271]                   workers <- workers()
  [13:10:07.271]                 workers <- as.integer(workers)
  [13:10:07.271]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.271]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.271]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.271]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.271]                     local = TRUE, label = label, ...))
  [13:10:07.271]                 }
  [13:10:07.271]                 oopts <- options(mc.cores = workers)
  [13:10:07.271]                 on.exit(options(oopts))
  [13:10:07.271]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.271]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.271]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.271]                   label = label, ...)
  [13:10:07.271]                 if (!future$lazy) 
  [13:10:07.271]                   future <- run(future)
  [13:10:07.271]                 invisible(future)
  [13:10:07.271]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.271]         }
  [13:10:07.271]         options(...future.oldOptions)
  [13:10:07.271]     })
  [13:10:07.271]     if (is.na(TRUE)) {
  [13:10:07.271]     }
  [13:10:07.271]     else {
  [13:10:07.271]         sink(type = "output", split = FALSE)
  [13:10:07.271]         if (TRUE) {
  [13:10:07.271]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:07.271]         }
  [13:10:07.271]         else {
  [13:10:07.271]             ...future.result["stdout"] <- list(NULL)
  [13:10:07.271]         }
  [13:10:07.271]         close(...future.stdout)
  [13:10:07.271]         ...future.stdout <- NULL
  [13:10:07.271]     }
  [13:10:07.271]     ...future.result$conditions <- ...future.conditions
  [13:10:07.271]     ...future.result
  [13:10:07.271] }
  [13:10:07.279] MultisessionFuture started
  [13:10:07.280] result() for ClusterFuture ...
  [13:10:07.280] - Validating connection of MultisessionFuture
  [13:10:07.539] - class(result): FutureResult
  [13:10:07.539] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:10:07.540] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:10:07.541] doFuture() ...
  [13:10:07.543] - dummy globals (as locals): [1] 'a'
  [13:10:07.544] - R expression:
  [13:10:07.544] {
  [13:10:07.544]     doFuture::registerDoFuture()
  [13:10:07.544]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:07.544]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:07.544]         a <- NULL
  [13:10:07.544]         ...future.env <- environment()
  [13:10:07.544]         local({
  [13:10:07.544]             for (name in names(...future.x_jj)) {
  [13:10:07.544]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:07.544]                   inherits = FALSE)
  [13:10:07.544]             }
  [13:10:07.544]         })
  [13:10:07.544]         tryCatch({
  [13:10:07.544]             plan_list <- future::plan()
  [13:10:07.544]             stopifnot(inherits(plan_list, strategy2))
  [13:10:07.544]             plan_a <- future::plan("list")
  [13:10:07.544]             str(plan_a)
  [13:10:07.544]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:07.544]             message("foreach() - level 2 ...")
  [13:10:07.544]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:07.544]                 {
  [13:10:07.544]                   plan_list <- future::plan()
  [13:10:07.544]                   message(capture.output(print(plan_list)))
  [13:10:07.544]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:07.544]                     getOption("future.default", "sequential")))
  [13:10:07.544]                   plan_b <- future::plan("list")
  [13:10:07.544]                   str(plan_b)
  [13:10:07.544]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:07.544]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:07.544]                       "sequential")))
  [13:10:07.544]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:07.544]                 }
  [13:10:07.544]             message("foreach() - level 2 ... DONE")
  [13:10:07.544]             y
  [13:10:07.544]         }, error = identity)
  [13:10:07.544]     })
  [13:10:07.544] }
  [13:10:07.546] - identifying globals and packages ...
  [13:10:07.546] getGlobalsAndPackages() ...
  [13:10:07.547] Searching for globals...
  [13:10:07.627] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:10:07.628] Searching for globals ... DONE
  [13:10:07.628] Resolving globals: FALSE
  [13:10:07.631] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:10:07.632] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.633] - packages: [2] 'utils', 'foreach'
  [13:10:07.633] getGlobalsAndPackages() ... DONE
  [13:10:07.633] List of 3
  [13:10:07.633]  $ ...future.x_ii: NULL
  [13:10:07.633]  $ strategy2     : chr "multicore"
  [13:10:07.633]  $ bs            : int [1:3] 3 2 1
  [13:10:07.633]  - attr(*, "where")=List of 3
  [13:10:07.633]   ..$ ...future.x_ii:<environment: 0x55c30e971450> 
  [13:10:07.633]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:07.633]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:07.633]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:07.633]  - attr(*, "resolved")= logi FALSE
  [13:10:07.633]  - attr(*, "total_size")= num 184
  [13:10:07.656]   - R expression:
  [13:10:07.656] {
  [13:10:07.656]     doFuture::registerDoFuture()
  [13:10:07.656]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:07.656]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:07.656]         a <- NULL
  [13:10:07.656]         ...future.env <- environment()
  [13:10:07.656]         local({
  [13:10:07.656]             for (name in names(...future.x_jj)) {
  [13:10:07.656]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:07.656]                   inherits = FALSE)
  [13:10:07.656]             }
  [13:10:07.656]         })
  [13:10:07.656]         tryCatch({
  [13:10:07.656]             plan_list <- future::plan()
  [13:10:07.656]             stopifnot(inherits(plan_list, strategy2))
  [13:10:07.656]             plan_a <- future::plan("list")
  [13:10:07.656]             str(plan_a)
  [13:10:07.656]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:07.656]             message("foreach() - level 2 ...")
  [13:10:07.656]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:07.656]                 {
  [13:10:07.656]                   plan_list <- future::plan()
  [13:10:07.656]                   message(capture.output(print(plan_list)))
  [13:10:07.656]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:07.656]                     getOption("future.default", "sequential")))
  [13:10:07.656]                   plan_b <- future::plan("list")
  [13:10:07.656]                   str(plan_b)
  [13:10:07.656]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:07.656]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:07.656]                       "sequential")))
  [13:10:07.656]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:07.656]                 }
  [13:10:07.656]             message("foreach() - level 2 ... DONE")
  [13:10:07.656]             y
  [13:10:07.656]         }, error = identity)
  [13:10:07.656]     })
  [13:10:07.656] }
  [13:10:07.657]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.658] List of 3
  [13:10:07.658]  $ ...future.x_ii: NULL
  [13:10:07.658]  $ strategy2     : chr "multicore"
  [13:10:07.658]  $ bs            : int [1:3] 3 2 1
  [13:10:07.658]  - attr(*, "where")=List of 3
  [13:10:07.658]   ..$ ...future.x_ii:<environment: 0x55c30e971450> 
  [13:10:07.658]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:07.658]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:07.658]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:07.658]  - attr(*, "resolved")= logi FALSE
  [13:10:07.658]  - attr(*, "total_size")= num 184
  [13:10:07.678]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:10:07.678] - identifying globals and packages ... DONE
  [13:10:07.680] Number of chunks: 2
  [13:10:07.680] Number of futures (= number of chunks): 2
  [13:10:07.680] Launching 2 futures (chunks) ...
  [13:10:07.681] Chunk #1 of 2 ...
  [13:10:07.682]  - Finding globals in 'args_list' chunk #1 ...
  [13:10:07.684] getGlobalsAndPackages() ...
  [13:10:07.684] Searching for globals...
  [13:10:07.685] 
  [13:10:07.686] Searching for globals ... DONE
  [13:10:07.687] - globals: [0] <none>
  [13:10:07.688] getGlobalsAndPackages() ... DONE
  [13:10:07.689] 
  [13:10:07.690] 
  [13:10:07.691]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:10:07.713] getGlobalsAndPackages() ...
  [13:10:07.714] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.714] Resolving globals: FALSE
  [13:10:07.715] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:10:07.716] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.716] 
  [13:10:07.716] getGlobalsAndPackages() ... DONE
  [13:10:07.719] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:07.719] Packages needed by future strategies (n = 1): 'future'
  [13:10:07.733] {
  [13:10:07.733]     {
  [13:10:07.733]         ...future.startTime <- Sys.time()
  [13:10:07.733]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:07.733]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:07.733]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:07.733]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:07.733]             future.resolve.recursive = NULL, width = 80L)
  [13:10:07.733]         {
  [13:10:07.733]             {
  [13:10:07.733]                 {
  [13:10:07.733]                   {
  [13:10:07.733]                     has_future <- requireNamespace("future", 
  [13:10:07.733]                       quietly = TRUE)
  [13:10:07.733]                     version <- if (has_future) 
  [13:10:07.733]                       packageVersion("future")
  [13:10:07.733]                     else NULL
  [13:10:07.733]                     if (!has_future || version < "1.8.0") {
  [13:10:07.733]                       info <- c(r_version = gsub("R version ", 
  [13:10:07.733]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:07.733]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:07.733]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:07.733]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:07.733]                       info <- sprintf("%s: %s", names(info), 
  [13:10:07.733]                         info)
  [13:10:07.733]                       info <- paste(info, collapse = "; ")
  [13:10:07.733]                       if (!has_future) {
  [13:10:07.733]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:07.733]                           info)
  [13:10:07.733]                       }
  [13:10:07.733]                       else {
  [13:10:07.733]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:07.733]                           info, version)
  [13:10:07.733]                       }
  [13:10:07.733]                       stop(msg)
  [13:10:07.733]                     }
  [13:10:07.733]                   }
  [13:10:07.733]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:07.733]                   options(mc.cores = 1L)
  [13:10:07.733]                 }
  [13:10:07.733]                 local({
  [13:10:07.733]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:07.733]                   "future")) {
  [13:10:07.733]                     loadNamespace(pkg)
  [13:10:07.733]                     library(pkg, character.only = TRUE)
  [13:10:07.733]                   }
  [13:10:07.733]                 })
  [13:10:07.733]             }
  [13:10:07.733]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:07.733]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.733]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.733]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.733]             {
  [13:10:07.733]                 if (substitute) 
  [13:10:07.733]                   expr <- substitute(expr)
  [13:10:07.733]                 if (is.function(workers)) 
  [13:10:07.733]                   workers <- workers()
  [13:10:07.733]                 workers <- as.integer(workers)
  [13:10:07.733]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.733]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.733]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.733]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.733]                     local = TRUE, label = label, ...))
  [13:10:07.733]                 }
  [13:10:07.733]                 oopts <- options(mc.cores = workers)
  [13:10:07.733]                 on.exit(options(oopts))
  [13:10:07.733]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.733]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.733]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.733]                   label = label, ...)
  [13:10:07.733]                 if (!future$lazy) 
  [13:10:07.733]                   future <- run(future)
  [13:10:07.733]                 invisible(future)
  [13:10:07.733]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.733]         }
  [13:10:07.733]     }
  [13:10:07.733]     if (is.na(TRUE)) {
  [13:10:07.733]     }
  [13:10:07.733]     else {
  [13:10:07.733]         if (TRUE) {
  [13:10:07.733]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:07.733]         }
  [13:10:07.733]         else {
  [13:10:07.733]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:07.733]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:07.733]         }
  [13:10:07.733]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:07.733]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:07.733]             sink(type = "output", split = FALSE)
  [13:10:07.733]             close(...future.stdout)
  [13:10:07.733]         }, add = TRUE)
  [13:10:07.733]     }
  [13:10:07.733]     ...future.frame <- sys.nframe()
  [13:10:07.733]     ...future.conditions <- list()
  [13:10:07.733]     ...future.result <- tryCatch({
  [13:10:07.733]         withCallingHandlers({
  [13:10:07.733]             ...future.value <- local({
  [13:10:07.733]                 doFuture::registerDoFuture()
  [13:10:07.733]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:07.733]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:07.733]                   a <- NULL
  [13:10:07.733]                   ...future.env <- environment()
  [13:10:07.733]                   local({
  [13:10:07.733]                     for (name in names(...future.x_jj)) {
  [13:10:07.733]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:07.733]                         inherits = FALSE)
  [13:10:07.733]                     }
  [13:10:07.733]                   })
  [13:10:07.733]                   tryCatch({
  [13:10:07.733]                     plan_list <- future::plan()
  [13:10:07.733]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:07.733]                     plan_a <- future::plan("list")
  [13:10:07.733]                     str(plan_a)
  [13:10:07.733]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:07.733]                     message("foreach() - level 2 ...")
  [13:10:07.733]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:07.733]                       {
  [13:10:07.733]                         plan_list <- future::plan()
  [13:10:07.733]                         message(capture.output(print(plan_list)))
  [13:10:07.733]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:07.733]                           inherits(plan_list, getOption("future.default", 
  [13:10:07.733]                             "sequential")))
  [13:10:07.733]                         plan_b <- future::plan("list")
  [13:10:07.733]                         str(plan_b)
  [13:10:07.733]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:07.733]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:07.733]                             "sequential")))
  [13:10:07.733]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:07.733]                       }
  [13:10:07.733]                     message("foreach() - level 2 ... DONE")
  [13:10:07.733]                     y
  [13:10:07.733]                   }, error = identity)
  [13:10:07.733]                 })
  [13:10:07.733]             })
  [13:10:07.733]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:07.733]                 version = "1.8")
  [13:10:07.733]         }, condition = local({
  [13:10:07.733]             inherits <- base::inherits
  [13:10:07.733]             invokeRestart <- base::invokeRestart
  [13:10:07.733]             length <- base::length
  [13:10:07.733]             seq.int <- base::seq.int
  [13:10:07.733]             sys.calls <- base::sys.calls
  [13:10:07.733]             `[[` <- base::`[[`
  [13:10:07.733]             `+` <- base::`+`
  [13:10:07.733]             `<<-` <- base::`<<-`
  [13:10:07.733]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:07.733]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:07.733]                   3L)]
  [13:10:07.733]             }
  [13:10:07.733]             function(cond) {
  [13:10:07.733]                 if (inherits(cond, "error")) {
  [13:10:07.733]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.733]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:07.733]                     cond$call), timestamp = base::Sys.time())
  [13:10:07.733]                   signalCondition(cond)
  [13:10:07.733]                 }
  [13:10:07.733]                 else if (inherits(cond, c("message", "warning"
  [13:10:07.733]                 ))) {
  [13:10:07.733]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.733]                     1L]] <<- list(condition = cond)
  [13:10:07.733]                   if (inherits(cond, "message")) {
  [13:10:07.733]                     invokeRestart("muffleMessage")
  [13:10:07.733]                   }
  [13:10:07.733]                   else if (inherits(cond, "warning")) {
  [13:10:07.733]                     invokeRestart("muffleWarning")
  [13:10:07.733]                   }
  [13:10:07.733]                 }
  [13:10:07.733]             }
  [13:10:07.733]         }))
  [13:10:07.733]     }, error = function(ex) {
  [13:10:07.733]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:07.733]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:07.733]             class = "FutureResult")
  [13:10:07.733]     }, finally = {
  [13:10:07.733]         {
  [13:10:07.733]             {
  [13:10:07.733]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:07.733]             }
  [13:10:07.733]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:07.733]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.733]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:07.733]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:07.733]                 ...) 
  [13:10:07.733]             {
  [13:10:07.733]                 if (substitute) 
  [13:10:07.733]                   expr <- substitute(expr)
  [13:10:07.733]                 if (is.function(workers)) 
  [13:10:07.733]                   workers <- workers()
  [13:10:07.733]                 workers <- as.integer(workers)
  [13:10:07.733]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:07.733]                   workers >= 1)
  [13:10:07.733]                 if (workers == 1L) {
  [13:10:07.733]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.733]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:07.733]                     local = TRUE, label = label, ...))
  [13:10:07.733]                 }
  [13:10:07.733]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:07.733]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:07.733]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.733]                   globals = globals, persistent = persistent, 
  [13:10:07.733]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:07.733]                   label = label, ...)
  [13:10:07.733]                 if (!future$lazy) 
  [13:10:07.733]                   future <- run(future)
  [13:10:07.733]                 invisible(future)
  [13:10:07.733]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:07.733]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.733]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.733]             {
  [13:10:07.733]                 if (substitute) 
  [13:10:07.733]                   expr <- substitute(expr)
  [13:10:07.733]                 if (is.function(workers)) 
  [13:10:07.733]                   workers <- workers()
  [13:10:07.733]                 workers <- as.integer(workers)
  [13:10:07.733]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.733]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.733]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.733]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.733]                     local = TRUE, label = label, ...))
  [13:10:07.733]                 }
  [13:10:07.733]                 oopts <- options(mc.cores = workers)
  [13:10:07.733]                 on.exit(options(oopts))
  [13:10:07.733]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.733]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.733]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.733]                   label = label, ...)
  [13:10:07.733]                 if (!future$lazy) 
  [13:10:07.733]                   future <- run(future)
  [13:10:07.733]                 invisible(future)
  [13:10:07.733]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.733]         }
  [13:10:07.733]         options(...future.oldOptions)
  [13:10:07.733]     })
  [13:10:07.733]     if (is.na(TRUE)) {
  [13:10:07.733]     }
  [13:10:07.733]     else {
  [13:10:07.733]         sink(type = "output", split = FALSE)
  [13:10:07.733]         if (TRUE) {
  [13:10:07.733]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:07.733]         }
  [13:10:07.733]         else {
  [13:10:07.733]             ...future.result["stdout"] <- list(NULL)
  [13:10:07.733]         }
  [13:10:07.733]         close(...future.stdout)
  [13:10:07.733]         ...future.stdout <- NULL
  [13:10:07.733]     }
  [13:10:07.733]     ...future.result$conditions <- ...future.conditions
  [13:10:07.733]     ...future.result
  [13:10:07.733] }
  [13:10:07.740] Exporting 3 global objects (240 bytes) to cluster node #1 ...
  [13:10:07.741] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:10:07.742] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:10:07.743] Exporting 'strategy2' (120 bytes) to cluster node #1 ...
  [13:10:07.743] Exporting 'strategy2' (120 bytes) to cluster node #1 ... DONE
  [13:10:07.744] Exporting 'bs' (64 bytes) to cluster node #1 ...
  [13:10:07.745] Exporting 'bs' (64 bytes) to cluster node #1 ... DONE
  [13:10:07.746] Exporting 3 global objects (240 bytes) to cluster node #1 ... DONE
  [13:10:07.747] MultisessionFuture started
  [13:10:07.748] Chunk #1 of 2 ... DONE
  [13:10:07.748] Chunk #2 of 2 ...
  [13:10:07.748]  - Finding globals in 'args_list' chunk #2 ...
  [13:10:07.749] getGlobalsAndPackages() ...
  [13:10:07.749] Searching for globals...
  [13:10:07.750] 
  [13:10:07.751] Searching for globals ... DONE
  [13:10:07.751] - globals: [0] <none>
  [13:10:07.751] getGlobalsAndPackages() ... DONE
  [13:10:07.752] 
  [13:10:07.752] 
  [13:10:07.752]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:10:07.761] getGlobalsAndPackages() ...
  [13:10:07.762] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.762] Resolving globals: FALSE
  [13:10:07.764] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:10:07.764] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:07.764] 
  [13:10:07.765] getGlobalsAndPackages() ... DONE
  [13:10:07.767] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:07.768] Packages needed by future strategies (n = 1): 'future'
  [13:10:07.773] {
  [13:10:07.773]     {
  [13:10:07.773]         ...future.startTime <- Sys.time()
  [13:10:07.773]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:07.773]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:07.773]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:07.773]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:07.773]             future.resolve.recursive = NULL, width = 80L)
  [13:10:07.773]         {
  [13:10:07.773]             {
  [13:10:07.773]                 {
  [13:10:07.773]                   {
  [13:10:07.773]                     has_future <- requireNamespace("future", 
  [13:10:07.773]                       quietly = TRUE)
  [13:10:07.773]                     version <- if (has_future) 
  [13:10:07.773]                       packageVersion("future")
  [13:10:07.773]                     else NULL
  [13:10:07.773]                     if (!has_future || version < "1.8.0") {
  [13:10:07.773]                       info <- c(r_version = gsub("R version ", 
  [13:10:07.773]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:07.773]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:07.773]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:07.773]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:07.773]                       info <- sprintf("%s: %s", names(info), 
  [13:10:07.773]                         info)
  [13:10:07.773]                       info <- paste(info, collapse = "; ")
  [13:10:07.773]                       if (!has_future) {
  [13:10:07.773]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:07.773]                           info)
  [13:10:07.773]                       }
  [13:10:07.773]                       else {
  [13:10:07.773]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:07.773]                           info, version)
  [13:10:07.773]                       }
  [13:10:07.773]                       stop(msg)
  [13:10:07.773]                     }
  [13:10:07.773]                   }
  [13:10:07.773]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:07.773]                   options(mc.cores = 1L)
  [13:10:07.773]                 }
  [13:10:07.773]                 local({
  [13:10:07.773]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:07.773]                   "future")) {
  [13:10:07.773]                     loadNamespace(pkg)
  [13:10:07.773]                     library(pkg, character.only = TRUE)
  [13:10:07.773]                   }
  [13:10:07.773]                 })
  [13:10:07.773]             }
  [13:10:07.773]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:07.773]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.773]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.773]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.773]             {
  [13:10:07.773]                 if (substitute) 
  [13:10:07.773]                   expr <- substitute(expr)
  [13:10:07.773]                 if (is.function(workers)) 
  [13:10:07.773]                   workers <- workers()
  [13:10:07.773]                 workers <- as.integer(workers)
  [13:10:07.773]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.773]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.773]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.773]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.773]                     local = TRUE, label = label, ...))
  [13:10:07.773]                 }
  [13:10:07.773]                 oopts <- options(mc.cores = workers)
  [13:10:07.773]                 on.exit(options(oopts))
  [13:10:07.773]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.773]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.773]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.773]                   label = label, ...)
  [13:10:07.773]                 if (!future$lazy) 
  [13:10:07.773]                   future <- run(future)
  [13:10:07.773]                 invisible(future)
  [13:10:07.773]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.773]         }
  [13:10:07.773]     }
  [13:10:07.773]     if (is.na(TRUE)) {
  [13:10:07.773]     }
  [13:10:07.773]     else {
  [13:10:07.773]         if (TRUE) {
  [13:10:07.773]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:07.773]         }
  [13:10:07.773]         else {
  [13:10:07.773]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:07.773]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:07.773]         }
  [13:10:07.773]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:07.773]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:07.773]             sink(type = "output", split = FALSE)
  [13:10:07.773]             close(...future.stdout)
  [13:10:07.773]         }, add = TRUE)
  [13:10:07.773]     }
  [13:10:07.773]     ...future.frame <- sys.nframe()
  [13:10:07.773]     ...future.conditions <- list()
  [13:10:07.773]     ...future.result <- tryCatch({
  [13:10:07.773]         withCallingHandlers({
  [13:10:07.773]             ...future.value <- local({
  [13:10:07.773]                 doFuture::registerDoFuture()
  [13:10:07.773]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:07.773]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:07.773]                   a <- NULL
  [13:10:07.773]                   ...future.env <- environment()
  [13:10:07.773]                   local({
  [13:10:07.773]                     for (name in names(...future.x_jj)) {
  [13:10:07.773]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:07.773]                         inherits = FALSE)
  [13:10:07.773]                     }
  [13:10:07.773]                   })
  [13:10:07.773]                   tryCatch({
  [13:10:07.773]                     plan_list <- future::plan()
  [13:10:07.773]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:07.773]                     plan_a <- future::plan("list")
  [13:10:07.773]                     str(plan_a)
  [13:10:07.773]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:07.773]                     message("foreach() - level 2 ...")
  [13:10:07.773]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:07.773]                       {
  [13:10:07.773]                         plan_list <- future::plan()
  [13:10:07.773]                         message(capture.output(print(plan_list)))
  [13:10:07.773]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:07.773]                           inherits(plan_list, getOption("future.default", 
  [13:10:07.773]                             "sequential")))
  [13:10:07.773]                         plan_b <- future::plan("list")
  [13:10:07.773]                         str(plan_b)
  [13:10:07.773]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:07.773]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:07.773]                             "sequential")))
  [13:10:07.773]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:07.773]                       }
  [13:10:07.773]                     message("foreach() - level 2 ... DONE")
  [13:10:07.773]                     y
  [13:10:07.773]                   }, error = identity)
  [13:10:07.773]                 })
  [13:10:07.773]             })
  [13:10:07.773]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:07.773]                 version = "1.8")
  [13:10:07.773]         }, condition = local({
  [13:10:07.773]             inherits <- base::inherits
  [13:10:07.773]             invokeRestart <- base::invokeRestart
  [13:10:07.773]             length <- base::length
  [13:10:07.773]             seq.int <- base::seq.int
  [13:10:07.773]             sys.calls <- base::sys.calls
  [13:10:07.773]             `[[` <- base::`[[`
  [13:10:07.773]             `+` <- base::`+`
  [13:10:07.773]             `<<-` <- base::`<<-`
  [13:10:07.773]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:07.773]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:07.773]                   3L)]
  [13:10:07.773]             }
  [13:10:07.773]             function(cond) {
  [13:10:07.773]                 if (inherits(cond, "error")) {
  [13:10:07.773]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.773]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:07.773]                     cond$call), timestamp = base::Sys.time())
  [13:10:07.773]                   signalCondition(cond)
  [13:10:07.773]                 }
  [13:10:07.773]                 else if (inherits(cond, c("message", "warning"
  [13:10:07.773]                 ))) {
  [13:10:07.773]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:07.773]                     1L]] <<- list(condition = cond)
  [13:10:07.773]                   if (inherits(cond, "message")) {
  [13:10:07.773]                     invokeRestart("muffleMessage")
  [13:10:07.773]                   }
  [13:10:07.773]                   else if (inherits(cond, "warning")) {
  [13:10:07.773]                     invokeRestart("muffleWarning")
  [13:10:07.773]                   }
  [13:10:07.773]                 }
  [13:10:07.773]             }
  [13:10:07.773]         }))
  [13:10:07.773]     }, error = function(ex) {
  [13:10:07.773]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:07.773]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:07.773]             class = "FutureResult")
  [13:10:07.773]     }, finally = {
  [13:10:07.773]         {
  [13:10:07.773]             {
  [13:10:07.773]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:07.773]             }
  [13:10:07.773]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:07.773]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:07.773]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:07.773]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:07.773]                 ...) 
  [13:10:07.773]             {
  [13:10:07.773]                 if (substitute) 
  [13:10:07.773]                   expr <- substitute(expr)
  [13:10:07.773]                 if (is.function(workers)) 
  [13:10:07.773]                   workers <- workers()
  [13:10:07.773]                 workers <- as.integer(workers)
  [13:10:07.773]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:07.773]                   workers >= 1)
  [13:10:07.773]                 if (workers == 1L) {
  [13:10:07.773]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.773]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:07.773]                     local = TRUE, label = label, ...))
  [13:10:07.773]                 }
  [13:10:07.773]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:07.773]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:07.773]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.773]                   globals = globals, persistent = persistent, 
  [13:10:07.773]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:07.773]                   label = label, ...)
  [13:10:07.773]                 if (!future$lazy) 
  [13:10:07.773]                   future <- run(future)
  [13:10:07.773]                 invisible(future)
  [13:10:07.773]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:07.773]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:10:07.773]                 earlySignal = FALSE, label = NULL, ...) 
  [13:10:07.773]             {
  [13:10:07.773]                 if (substitute) 
  [13:10:07.773]                   expr <- substitute(expr)
  [13:10:07.773]                 if (is.function(workers)) 
  [13:10:07.773]                   workers <- workers()
  [13:10:07.773]                 workers <- as.integer(workers)
  [13:10:07.773]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:10:07.773]                 if (workers == 1L || !supportsMulticore()) {
  [13:10:07.773]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:07.773]                     lazy = lazy, seed = seed, globals = globals, 
  [13:10:07.773]                     local = TRUE, label = label, ...))
  [13:10:07.773]                 }
  [13:10:07.773]                 oopts <- options(mc.cores = workers)
  [13:10:07.773]                 on.exit(options(oopts))
  [13:10:07.773]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:10:07.773]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:07.773]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:10:07.773]                   label = label, ...)
  [13:10:07.773]                 if (!future$lazy) 
  [13:10:07.773]                   future <- run(future)
  [13:10:07.773]                 invisible(future)
  [13:10:07.773]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:07.773]         }
  [13:10:07.773]         options(...future.oldOptions)
  [13:10:07.773]     })
  [13:10:07.773]     if (is.na(TRUE)) {
  [13:10:07.773]     }
  [13:10:07.773]     else {
  [13:10:07.773]         sink(type = "output", split = FALSE)
  [13:10:07.773]         if (TRUE) {
  [13:10:07.773]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:07.773]         }
  [13:10:07.773]         else {
  [13:10:07.773]             ...future.result["stdout"] <- list(NULL)
  [13:10:07.773]         }
  [13:10:07.773]         close(...future.stdout)
  [13:10:07.773]         ...future.stdout <- NULL
  [13:10:07.773]     }
  [13:10:07.773]     ...future.result$conditions <- ...future.conditions
  [13:10:07.773]     ...future.result
  [13:10:07.773] }
  [13:10:07.780] Exporting 3 global objects (240 bytes) to cluster node #2 ...
  [13:10:07.780] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ...
  [13:10:07.781] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ... DONE
  [13:10:07.781] Exporting 'strategy2' (120 bytes) to cluster node #2 ...
  [13:10:07.782] Exporting 'strategy2' (120 bytes) to cluster node #2 ... DONE
  [13:10:07.783] Exporting 'bs' (64 bytes) to cluster node #2 ...
  [13:10:07.784] Exporting 'bs' (64 bytes) to cluster node #2 ... DONE
  [13:10:07.784] Exporting 3 global objects (240 bytes) to cluster node #2 ... DONE
  [13:10:07.785] MultisessionFuture started
  [13:10:07.786] Chunk #2 of 2 ... DONE
  [13:10:07.786] Launching 2 futures (chunks) ... DONE
  [13:10:07.787] - resolving futures
  [13:10:07.787] resolve() on list ...
  [13:10:07.787]  recursive: 0
  [13:10:07.787]  length: 2
  [13:10:07.788] 
  [13:10:08.293]  length: 1 (resolved future 1)
  [13:10:08.380]  length: 0 (resolved future 2)
  [13:10:08.381] resolve() on list ... DONE
  [13:10:08.381] - relaying conditions of futures
  [13:10:08.381] result() for ClusterFuture ...
  [13:10:08.382] - Validating connection of MultisessionFuture
  [13:10:08.383] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:08.384] Future state: 'finished'
  [13:10:08.384] result() for ClusterFuture ...
  [13:10:08.384] - result already collected: FutureResult
  [13:10:08.385] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:10:08.386] result() for ClusterFuture ...
  [13:10:08.386] - Validating connection of MultisessionFuture
  [13:10:08.423] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:08.424] Future state: 'finished'
  [13:10:08.424] result() for ClusterFuture ...
  [13:10:08.424] - result already collected: FutureResult
  [13:10:08.425] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:10:08.426] - collecting values of futures
  [13:10:08.426] result() for ClusterFuture ...
  [13:10:08.427] - result already collected: FutureResult
  [13:10:08.427] result() for ClusterFuture ... done
  [13:10:08.427] result() for ClusterFuture ...
  [13:10:08.428] - result already collected: FutureResult
  [13:10:08.428] result() for ClusterFuture ... done
  [13:10:08.428] - accumulating results
  [13:10:08.429] - processing errors (handler = 'stop')
  [13:10:08.430] - extracting results
  [13:10:08.430] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multisession', 'multicore')) ... DONE
  - plan(list('multisession', 'multisession')) ...
  [13:10:08.437] plan(): Setting new future strategy stack:
  [13:10:08.438] List of future strategies:
  [13:10:08.438] 1. multisession:
  [13:10:08.438]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:08.438]    - tweaked: FALSE
  [13:10:08.438]    - call: plan(list(a = strategy1, b = strategy2))
  [13:10:08.438] 2. multisession:
  [13:10:08.438]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:08.438]    - tweaked: FALSE
  [13:10:08.438]    - call: plan(list(a = strategy1, b = strategy2))
  [13:10:08.461] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:10:08.461] multisession:
  [13:10:08.461] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:08.461] - tweaked: FALSE
  [13:10:08.461] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d406c316b.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d406c316b.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d406c316b.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678dadb11e4.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678dadb11e4.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678dadb11e4.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:10:23.553] getGlobalsAndPackages() ...
  [13:10:23.554] Not searching for globals
  [13:10:23.554] - globals: [0] <none>
  [13:10:23.555] getGlobalsAndPackages() ... DONE
  [13:10:23.557] Packages needed by the future expression (n = 0): <none>
  [13:10:23.558] Packages needed by future strategies (n = 1): 'future'
  [13:10:23.578] {
  [13:10:23.578]     {
  [13:10:23.578]         ...future.startTime <- Sys.time()
  [13:10:23.578]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:23.578]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:23.578]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:23.578]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:23.578]             future.resolve.recursive = NULL, width = 80L)
  [13:10:23.578]         {
  [13:10:23.578]             {
  [13:10:23.578]                 {
  [13:10:23.578]                   {
  [13:10:23.578]                     has_future <- requireNamespace("future", 
  [13:10:23.578]                       quietly = TRUE)
  [13:10:23.578]                     version <- if (has_future) 
  [13:10:23.578]                       packageVersion("future")
  [13:10:23.578]                     else NULL
  [13:10:23.578]                     if (!has_future || version < "1.8.0") {
  [13:10:23.578]                       info <- c(r_version = gsub("R version ", 
  [13:10:23.578]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:23.578]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:23.578]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:23.578]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:23.578]                       info <- sprintf("%s: %s", names(info), 
  [13:10:23.578]                         info)
  [13:10:23.578]                       info <- paste(info, collapse = "; ")
  [13:10:23.578]                       if (!has_future) {
  [13:10:23.578]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:23.578]                           info)
  [13:10:23.578]                       }
  [13:10:23.578]                       else {
  [13:10:23.578]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:23.578]                           info, version)
  [13:10:23.578]                       }
  [13:10:23.578]                       stop(msg)
  [13:10:23.578]                     }
  [13:10:23.578]                   }
  [13:10:23.578]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:23.578]                   options(mc.cores = 1L)
  [13:10:23.578]                 }
  [13:10:23.578]                 local({
  [13:10:23.578]                   for (pkg in "future") {
  [13:10:23.578]                     loadNamespace(pkg)
  [13:10:23.578]                     library(pkg, character.only = TRUE)
  [13:10:23.578]                   }
  [13:10:23.578]                 })
  [13:10:23.578]             }
  [13:10:23.578]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:23.578]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:23.578]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:23.578]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:23.578]                 ...) 
  [13:10:23.578]             {
  [13:10:23.578]                 if (substitute) 
  [13:10:23.578]                   expr <- substitute(expr)
  [13:10:23.578]                 if (is.function(workers)) 
  [13:10:23.578]                   workers <- workers()
  [13:10:23.578]                 workers <- as.integer(workers)
  [13:10:23.578]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.578]                   workers >= 1)
  [13:10:23.578]                 if (workers == 1L) {
  [13:10:23.578]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.578]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.578]                     local = TRUE, label = label, ...))
  [13:10:23.578]                 }
  [13:10:23.578]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.578]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.578]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.578]                   globals = globals, persistent = persistent, 
  [13:10:23.578]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.578]                   label = label, ...)
  [13:10:23.578]                 if (!future$lazy) 
  [13:10:23.578]                   future <- run(future)
  [13:10:23.578]                 invisible(future)
  [13:10:23.578]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:23.578]         }
  [13:10:23.578]     }
  [13:10:23.578]     if (is.na(TRUE)) {
  [13:10:23.578]     }
  [13:10:23.578]     else {
  [13:10:23.578]         if (TRUE) {
  [13:10:23.578]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:23.578]         }
  [13:10:23.578]         else {
  [13:10:23.578]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:23.578]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:23.578]         }
  [13:10:23.578]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:23.578]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:23.578]             sink(type = "output", split = FALSE)
  [13:10:23.578]             close(...future.stdout)
  [13:10:23.578]         }, add = TRUE)
  [13:10:23.578]     }
  [13:10:23.578]     ...future.frame <- sys.nframe()
  [13:10:23.578]     ...future.conditions <- list()
  [13:10:23.578]     ...future.result <- tryCatch({
  [13:10:23.578]         withCallingHandlers({
  [13:10:23.578]             ...future.value <- local(NA)
  [13:10:23.578]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:23.578]                 version = "1.8")
  [13:10:23.578]         }, condition = local({
  [13:10:23.578]             inherits <- base::inherits
  [13:10:23.578]             invokeRestart <- base::invokeRestart
  [13:10:23.578]             length <- base::length
  [13:10:23.578]             seq.int <- base::seq.int
  [13:10:23.578]             sys.calls <- base::sys.calls
  [13:10:23.578]             `[[` <- base::`[[`
  [13:10:23.578]             `+` <- base::`+`
  [13:10:23.578]             `<<-` <- base::`<<-`
  [13:10:23.578]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:23.578]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:23.578]                   3L)]
  [13:10:23.578]             }
  [13:10:23.578]             function(cond) {
  [13:10:23.578]                 if (inherits(cond, "error")) {
  [13:10:23.578]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:23.578]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:23.578]                     cond$call), timestamp = base::Sys.time())
  [13:10:23.578]                   signalCondition(cond)
  [13:10:23.578]                 }
  [13:10:23.578]                 else if (inherits(cond, c("message", "warning"
  [13:10:23.578]                 ))) {
  [13:10:23.578]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:23.578]                     1L]] <<- list(condition = cond)
  [13:10:23.578]                   if (inherits(cond, "message")) {
  [13:10:23.578]                     invokeRestart("muffleMessage")
  [13:10:23.578]                   }
  [13:10:23.578]                   else if (inherits(cond, "warning")) {
  [13:10:23.578]                     invokeRestart("muffleWarning")
  [13:10:23.578]                   }
  [13:10:23.578]                 }
  [13:10:23.578]             }
  [13:10:23.578]         }))
  [13:10:23.578]     }, error = function(ex) {
  [13:10:23.578]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:23.578]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:23.578]             class = "FutureResult")
  [13:10:23.578]     }, finally = {
  [13:10:23.578]         {
  [13:10:23.578]             {
  [13:10:23.578]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:23.578]             }
  [13:10:23.578]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:23.578]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:23.578]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:23.578]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:23.578]                 ...) 
  [13:10:23.578]             {
  [13:10:23.578]                 if (substitute) 
  [13:10:23.578]                   expr <- substitute(expr)
  [13:10:23.578]                 if (is.function(workers)) 
  [13:10:23.578]                   workers <- workers()
  [13:10:23.578]                 workers <- as.integer(workers)
  [13:10:23.578]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.578]                   workers >= 1)
  [13:10:23.578]                 if (workers == 1L) {
  [13:10:23.578]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.578]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.578]                     local = TRUE, label = label, ...))
  [13:10:23.578]                 }
  [13:10:23.578]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.578]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.578]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.578]                   globals = globals, persistent = persistent, 
  [13:10:23.578]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.578]                   label = label, ...)
  [13:10:23.578]                 if (!future$lazy) 
  [13:10:23.578]                   future <- run(future)
  [13:10:23.578]                 invisible(future)
  [13:10:23.578]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:23.578]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:23.578]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:10:23.578]                 label = NULL, ...) 
  [13:10:23.578]             {
  [13:10:23.578]                 if (substitute) 
  [13:10:23.578]                   expr <- substitute(expr)
  [13:10:23.578]                 if (is.function(workers)) 
  [13:10:23.578]                   workers <- workers()
  [13:10:23.578]                 workers <- as.integer(workers)
  [13:10:23.578]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.578]                   workers >= 1)
  [13:10:23.578]                 if (workers == 1L) {
  [13:10:23.578]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.578]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.578]                     local = TRUE, label = label, ...))
  [13:10:23.578]                 }
  [13:10:23.578]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.578]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.578]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.578]                   globals = globals, persistent = persistent, 
  [13:10:23.578]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.578]                   label = label, ...)
  [13:10:23.578]                 if (!future$lazy) 
  [13:10:23.578]                   future <- run(future)
  [13:10:23.578]                 invisible(future)
  [13:10:23.578]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:23.578]         }
  [13:10:23.578]         options(...future.oldOptions)
  [13:10:23.578]     })
  [13:10:23.578]     if (is.na(TRUE)) {
  [13:10:23.578]     }
  [13:10:23.578]     else {
  [13:10:23.578]         sink(type = "output", split = FALSE)
  [13:10:23.578]         if (TRUE) {
  [13:10:23.578]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:23.578]         }
  [13:10:23.578]         else {
  [13:10:23.578]             ...future.result["stdout"] <- list(NULL)
  [13:10:23.578]         }
  [13:10:23.578]         close(...future.stdout)
  [13:10:23.578]         ...future.stdout <- NULL
  [13:10:23.578]     }
  [13:10:23.578]     ...future.result$conditions <- ...future.conditions
  [13:10:23.578]     ...future.result
  [13:10:23.578] }
  [13:10:23.596] MultisessionFuture started
  [13:10:23.596] result() for ClusterFuture ...
  [13:10:23.597] - Validating connection of MultisessionFuture
  [13:10:23.871] - class(result): FutureResult
  [13:10:23.872] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:10:23.873] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:10:23.874] doFuture() ...
  [13:10:23.875] - dummy globals (as locals): [1] 'a'
  [13:10:23.876] - R expression:
  [13:10:23.876] {
  [13:10:23.876]     doFuture::registerDoFuture()
  [13:10:23.876]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:23.876]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:23.876]         a <- NULL
  [13:10:23.876]         ...future.env <- environment()
  [13:10:23.876]         local({
  [13:10:23.876]             for (name in names(...future.x_jj)) {
  [13:10:23.876]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:23.876]                   inherits = FALSE)
  [13:10:23.876]             }
  [13:10:23.876]         })
  [13:10:23.876]         tryCatch({
  [13:10:23.876]             plan_list <- future::plan()
  [13:10:23.876]             stopifnot(inherits(plan_list, strategy2))
  [13:10:23.876]             plan_a <- future::plan("list")
  [13:10:23.876]             str(plan_a)
  [13:10:23.876]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:23.876]             message("foreach() - level 2 ...")
  [13:10:23.876]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:23.876]                 {
  [13:10:23.876]                   plan_list <- future::plan()
  [13:10:23.876]                   message(capture.output(print(plan_list)))
  [13:10:23.876]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:23.876]                     getOption("future.default", "sequential")))
  [13:10:23.876]                   plan_b <- future::plan("list")
  [13:10:23.876]                   str(plan_b)
  [13:10:23.876]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:23.876]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:23.876]                       "sequential")))
  [13:10:23.876]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:23.876]                 }
  [13:10:23.876]             message("foreach() - level 2 ... DONE")
  [13:10:23.876]             y
  [13:10:23.876]         }, error = identity)
  [13:10:23.876]     })
  [13:10:23.876] }
  [13:10:23.878] - identifying globals and packages ...
  [13:10:23.878] getGlobalsAndPackages() ...
  [13:10:23.879] Searching for globals...
  [13:10:23.933] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:10:23.934] Searching for globals ... DONE
  [13:10:23.934] Resolving globals: FALSE
  [13:10:23.937] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:10:23.937] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:23.938] - packages: [2] 'utils', 'foreach'
  [13:10:23.938] getGlobalsAndPackages() ... DONE
  [13:10:23.938] List of 3
  [13:10:23.938]  $ ...future.x_ii: NULL
  [13:10:23.938]  $ strategy2     : chr "multisession"
  [13:10:23.938]  $ bs            : int [1:3] 3 2 1
  [13:10:23.938]  - attr(*, "where")=List of 3
  [13:10:23.938]   ..$ ...future.x_ii:<environment: 0x55c30f1fc820> 
  [13:10:23.938]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:23.938]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:23.938]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:23.938]  - attr(*, "resolved")= logi FALSE
  [13:10:23.938]  - attr(*, "total_size")= num 184
  [13:10:23.948]   - R expression:
  [13:10:23.948] {
  [13:10:23.948]     doFuture::registerDoFuture()
  [13:10:23.948]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:23.948]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:23.948]         a <- NULL
  [13:10:23.948]         ...future.env <- environment()
  [13:10:23.948]         local({
  [13:10:23.948]             for (name in names(...future.x_jj)) {
  [13:10:23.948]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:23.948]                   inherits = FALSE)
  [13:10:23.948]             }
  [13:10:23.948]         })
  [13:10:23.948]         tryCatch({
  [13:10:23.948]             plan_list <- future::plan()
  [13:10:23.948]             stopifnot(inherits(plan_list, strategy2))
  [13:10:23.948]             plan_a <- future::plan("list")
  [13:10:23.948]             str(plan_a)
  [13:10:23.948]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:23.948]             message("foreach() - level 2 ...")
  [13:10:23.948]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:23.948]                 {
  [13:10:23.948]                   plan_list <- future::plan()
  [13:10:23.948]                   message(capture.output(print(plan_list)))
  [13:10:23.948]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:23.948]                     getOption("future.default", "sequential")))
  [13:10:23.948]                   plan_b <- future::plan("list")
  [13:10:23.948]                   str(plan_b)
  [13:10:23.948]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:23.948]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:23.948]                       "sequential")))
  [13:10:23.948]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:23.948]                 }
  [13:10:23.948]             message("foreach() - level 2 ... DONE")
  [13:10:23.948]             y
  [13:10:23.948]         }, error = identity)
  [13:10:23.948]     })
  [13:10:23.948] }
  [13:10:23.949]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:23.950] List of 3
  [13:10:23.950]  $ ...future.x_ii: NULL
  [13:10:23.950]  $ strategy2     : chr "multisession"
  [13:10:23.950]  $ bs            : int [1:3] 3 2 1
  [13:10:23.950]  - attr(*, "where")=List of 3
  [13:10:23.950]   ..$ ...future.x_ii:<environment: 0x55c30f1fc820> 
  [13:10:23.950]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:23.950]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:23.950]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:23.950]  - attr(*, "resolved")= logi FALSE
  [13:10:23.950]  - attr(*, "total_size")= num 184
  [13:10:23.965]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:10:23.965] - identifying globals and packages ... DONE
  [13:10:23.966] Number of chunks: 2
  [13:10:23.967] Number of futures (= number of chunks): 2
  [13:10:23.967] Launching 2 futures (chunks) ...
  [13:10:23.967] Chunk #1 of 2 ...
  [13:10:23.968]  - Finding globals in 'args_list' chunk #1 ...
  [13:10:23.968] getGlobalsAndPackages() ...
  [13:10:23.968] Searching for globals...
  [13:10:23.969] 
  [13:10:23.969] Searching for globals ... DONE
  [13:10:23.970] - globals: [0] <none>
  [13:10:23.970] getGlobalsAndPackages() ... DONE
  [13:10:23.970] 
  [13:10:23.971] 
  [13:10:23.971]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:10:23.979] getGlobalsAndPackages() ...
  [13:10:23.980] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:23.980] Resolving globals: FALSE
  [13:10:23.982] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:10:23.982] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:23.983] 
  [13:10:23.983] getGlobalsAndPackages() ... DONE
  [13:10:23.985] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:23.985] Packages needed by future strategies (n = 1): 'future'
  [13:10:23.990] {
  [13:10:23.990]     {
  [13:10:23.990]         ...future.startTime <- Sys.time()
  [13:10:23.990]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:23.990]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:23.990]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:23.990]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:23.990]             future.resolve.recursive = NULL, width = 80L)
  [13:10:23.990]         {
  [13:10:23.990]             {
  [13:10:23.990]                 {
  [13:10:23.990]                   {
  [13:10:23.990]                     has_future <- requireNamespace("future", 
  [13:10:23.990]                       quietly = TRUE)
  [13:10:23.990]                     version <- if (has_future) 
  [13:10:23.990]                       packageVersion("future")
  [13:10:23.990]                     else NULL
  [13:10:23.990]                     if (!has_future || version < "1.8.0") {
  [13:10:23.990]                       info <- c(r_version = gsub("R version ", 
  [13:10:23.990]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:23.990]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:23.990]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:23.990]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:23.990]                       info <- sprintf("%s: %s", names(info), 
  [13:10:23.990]                         info)
  [13:10:23.990]                       info <- paste(info, collapse = "; ")
  [13:10:23.990]                       if (!has_future) {
  [13:10:23.990]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:23.990]                           info)
  [13:10:23.990]                       }
  [13:10:23.990]                       else {
  [13:10:23.990]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:23.990]                           info, version)
  [13:10:23.990]                       }
  [13:10:23.990]                       stop(msg)
  [13:10:23.990]                     }
  [13:10:23.990]                   }
  [13:10:23.990]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:23.990]                   options(mc.cores = 1L)
  [13:10:23.990]                 }
  [13:10:23.990]                 local({
  [13:10:23.990]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:23.990]                   "future")) {
  [13:10:23.990]                     loadNamespace(pkg)
  [13:10:23.990]                     library(pkg, character.only = TRUE)
  [13:10:23.990]                   }
  [13:10:23.990]                 })
  [13:10:23.990]             }
  [13:10:23.990]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:23.990]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:23.990]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:23.990]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:23.990]                 ...) 
  [13:10:23.990]             {
  [13:10:23.990]                 if (substitute) 
  [13:10:23.990]                   expr <- substitute(expr)
  [13:10:23.990]                 if (is.function(workers)) 
  [13:10:23.990]                   workers <- workers()
  [13:10:23.990]                 workers <- as.integer(workers)
  [13:10:23.990]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.990]                   workers >= 1)
  [13:10:23.990]                 if (workers == 1L) {
  [13:10:23.990]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.990]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.990]                     local = TRUE, label = label, ...))
  [13:10:23.990]                 }
  [13:10:23.990]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.990]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.990]                   globals = globals, persistent = persistent, 
  [13:10:23.990]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.990]                   label = label, ...)
  [13:10:23.990]                 if (!future$lazy) 
  [13:10:23.990]                   future <- run(future)
  [13:10:23.990]                 invisible(future)
  [13:10:23.990]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:23.990]         }
  [13:10:23.990]     }
  [13:10:23.990]     if (is.na(TRUE)) {
  [13:10:23.990]     }
  [13:10:23.990]     else {
  [13:10:23.990]         if (TRUE) {
  [13:10:23.990]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:23.990]         }
  [13:10:23.990]         else {
  [13:10:23.990]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:23.990]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:23.990]         }
  [13:10:23.990]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:23.990]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:23.990]             sink(type = "output", split = FALSE)
  [13:10:23.990]             close(...future.stdout)
  [13:10:23.990]         }, add = TRUE)
  [13:10:23.990]     }
  [13:10:23.990]     ...future.frame <- sys.nframe()
  [13:10:23.990]     ...future.conditions <- list()
  [13:10:23.990]     ...future.result <- tryCatch({
  [13:10:23.990]         withCallingHandlers({
  [13:10:23.990]             ...future.value <- local({
  [13:10:23.990]                 doFuture::registerDoFuture()
  [13:10:23.990]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:23.990]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:23.990]                   a <- NULL
  [13:10:23.990]                   ...future.env <- environment()
  [13:10:23.990]                   local({
  [13:10:23.990]                     for (name in names(...future.x_jj)) {
  [13:10:23.990]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:23.990]                         inherits = FALSE)
  [13:10:23.990]                     }
  [13:10:23.990]                   })
  [13:10:23.990]                   tryCatch({
  [13:10:23.990]                     plan_list <- future::plan()
  [13:10:23.990]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:23.990]                     plan_a <- future::plan("list")
  [13:10:23.990]                     str(plan_a)
  [13:10:23.990]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:23.990]                     message("foreach() - level 2 ...")
  [13:10:23.990]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:23.990]                       {
  [13:10:23.990]                         plan_list <- future::plan()
  [13:10:23.990]                         message(capture.output(print(plan_list)))
  [13:10:23.990]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:23.990]                           inherits(plan_list, getOption("future.default", 
  [13:10:23.990]                             "sequential")))
  [13:10:23.990]                         plan_b <- future::plan("list")
  [13:10:23.990]                         str(plan_b)
  [13:10:23.990]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:23.990]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:23.990]                             "sequential")))
  [13:10:23.990]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:23.990]                       }
  [13:10:23.990]                     message("foreach() - level 2 ... DONE")
  [13:10:23.990]                     y
  [13:10:23.990]                   }, error = identity)
  [13:10:23.990]                 })
  [13:10:23.990]             })
  [13:10:23.990]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:23.990]                 version = "1.8")
  [13:10:23.990]         }, condition = local({
  [13:10:23.990]             inherits <- base::inherits
  [13:10:23.990]             invokeRestart <- base::invokeRestart
  [13:10:23.990]             length <- base::length
  [13:10:23.990]             seq.int <- base::seq.int
  [13:10:23.990]             sys.calls <- base::sys.calls
  [13:10:23.990]             `[[` <- base::`[[`
  [13:10:23.990]             `+` <- base::`+`
  [13:10:23.990]             `<<-` <- base::`<<-`
  [13:10:23.990]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:23.990]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:23.990]                   3L)]
  [13:10:23.990]             }
  [13:10:23.990]             function(cond) {
  [13:10:23.990]                 if (inherits(cond, "error")) {
  [13:10:23.990]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:23.990]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:23.990]                     cond$call), timestamp = base::Sys.time())
  [13:10:23.990]                   signalCondition(cond)
  [13:10:23.990]                 }
  [13:10:23.990]                 else if (inherits(cond, c("message", "warning"
  [13:10:23.990]                 ))) {
  [13:10:23.990]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:23.990]                     1L]] <<- list(condition = cond)
  [13:10:23.990]                   if (inherits(cond, "message")) {
  [13:10:23.990]                     invokeRestart("muffleMessage")
  [13:10:23.990]                   }
  [13:10:23.990]                   else if (inherits(cond, "warning")) {
  [13:10:23.990]                     invokeRestart("muffleWarning")
  [13:10:23.990]                   }
  [13:10:23.990]                 }
  [13:10:23.990]             }
  [13:10:23.990]         }))
  [13:10:23.990]     }, error = function(ex) {
  [13:10:23.990]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:23.990]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:23.990]             class = "FutureResult")
  [13:10:23.990]     }, finally = {
  [13:10:23.990]         {
  [13:10:23.990]             {
  [13:10:23.990]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:23.990]             }
  [13:10:23.990]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:23.990]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:23.990]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:23.990]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:23.990]                 ...) 
  [13:10:23.990]             {
  [13:10:23.990]                 if (substitute) 
  [13:10:23.990]                   expr <- substitute(expr)
  [13:10:23.990]                 if (is.function(workers)) 
  [13:10:23.990]                   workers <- workers()
  [13:10:23.990]                 workers <- as.integer(workers)
  [13:10:23.990]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.990]                   workers >= 1)
  [13:10:23.990]                 if (workers == 1L) {
  [13:10:23.990]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.990]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.990]                     local = TRUE, label = label, ...))
  [13:10:23.990]                 }
  [13:10:23.990]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.990]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.990]                   globals = globals, persistent = persistent, 
  [13:10:23.990]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.990]                   label = label, ...)
  [13:10:23.990]                 if (!future$lazy) 
  [13:10:23.990]                   future <- run(future)
  [13:10:23.990]                 invisible(future)
  [13:10:23.990]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:23.990]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:23.990]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:10:23.990]                 label = NULL, ...) 
  [13:10:23.990]             {
  [13:10:23.990]                 if (substitute) 
  [13:10:23.990]                   expr <- substitute(expr)
  [13:10:23.990]                 if (is.function(workers)) 
  [13:10:23.990]                   workers <- workers()
  [13:10:23.990]                 workers <- as.integer(workers)
  [13:10:23.990]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:23.990]                   workers >= 1)
  [13:10:23.990]                 if (workers == 1L) {
  [13:10:23.990]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:23.990]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:23.990]                     local = TRUE, label = label, ...))
  [13:10:23.990]                 }
  [13:10:23.990]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:23.990]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:23.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:23.990]                   globals = globals, persistent = persistent, 
  [13:10:23.990]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:23.990]                   label = label, ...)
  [13:10:23.990]                 if (!future$lazy) 
  [13:10:23.990]                   future <- run(future)
  [13:10:23.990]                 invisible(future)
  [13:10:23.990]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:23.990]         }
  [13:10:23.990]         options(...future.oldOptions)
  [13:10:23.990]     })
  [13:10:23.990]     if (is.na(TRUE)) {
  [13:10:23.990]     }
  [13:10:23.990]     else {
  [13:10:23.990]         sink(type = "output", split = FALSE)
  [13:10:23.990]         if (TRUE) {
  [13:10:23.990]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:23.990]         }
  [13:10:23.990]         else {
  [13:10:23.990]             ...future.result["stdout"] <- list(NULL)
  [13:10:23.990]         }
  [13:10:23.990]         close(...future.stdout)
  [13:10:23.990]         ...future.stdout <- NULL
  [13:10:23.990]     }
  [13:10:23.990]     ...future.result$conditions <- ...future.conditions
  [13:10:23.990]     ...future.result
  [13:10:23.990] }
  [13:10:23.997] Exporting 3 global objects (240 bytes) to cluster node #1 ...
  [13:10:23.997] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:10:23.998] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:10:23.999] Exporting 'strategy2' (120 bytes) to cluster node #1 ...
  [13:10:24.000] Exporting 'strategy2' (120 bytes) to cluster node #1 ... DONE
  [13:10:24.000] Exporting 'bs' (64 bytes) to cluster node #1 ...
  [13:10:24.001] Exporting 'bs' (64 bytes) to cluster node #1 ... DONE
  [13:10:24.002] Exporting 3 global objects (240 bytes) to cluster node #1 ... DONE
  [13:10:24.003] MultisessionFuture started
  [13:10:24.003] Chunk #1 of 2 ... DONE
  [13:10:24.004] Chunk #2 of 2 ...
  [13:10:24.004]  - Finding globals in 'args_list' chunk #2 ...
  [13:10:24.004] getGlobalsAndPackages() ...
  [13:10:24.005] Searching for globals...
  [13:10:24.005] 
  [13:10:24.006] Searching for globals ... DONE
  [13:10:24.006] - globals: [0] <none>
  [13:10:24.006] getGlobalsAndPackages() ... DONE
  [13:10:24.006] 
  [13:10:24.007] 
  [13:10:24.007]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:10:24.016] getGlobalsAndPackages() ...
  [13:10:24.016] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:24.017] Resolving globals: FALSE
  [13:10:24.018] The total size of the 3 globals is 240 bytes (240 bytes)
  [13:10:24.018] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:24.018] 
  [13:10:24.019] getGlobalsAndPackages() ... DONE
  [13:10:24.021] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:24.021] Packages needed by future strategies (n = 1): 'future'
  [13:10:24.025] {
  [13:10:24.025]     {
  [13:10:24.025]         ...future.startTime <- Sys.time()
  [13:10:24.025]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:24.025]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:24.025]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:24.025]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:24.025]             future.resolve.recursive = NULL, width = 80L)
  [13:10:24.025]         {
  [13:10:24.025]             {
  [13:10:24.025]                 {
  [13:10:24.025]                   {
  [13:10:24.025]                     has_future <- requireNamespace("future", 
  [13:10:24.025]                       quietly = TRUE)
  [13:10:24.025]                     version <- if (has_future) 
  [13:10:24.025]                       packageVersion("future")
  [13:10:24.025]                     else NULL
  [13:10:24.025]                     if (!has_future || version < "1.8.0") {
  [13:10:24.025]                       info <- c(r_version = gsub("R version ", 
  [13:10:24.025]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:24.025]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:24.025]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:24.025]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:24.025]                       info <- sprintf("%s: %s", names(info), 
  [13:10:24.025]                         info)
  [13:10:24.025]                       info <- paste(info, collapse = "; ")
  [13:10:24.025]                       if (!has_future) {
  [13:10:24.025]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:24.025]                           info)
  [13:10:24.025]                       }
  [13:10:24.025]                       else {
  [13:10:24.025]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:24.025]                           info, version)
  [13:10:24.025]                       }
  [13:10:24.025]                       stop(msg)
  [13:10:24.025]                     }
  [13:10:24.025]                   }
  [13:10:24.025]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:24.025]                   options(mc.cores = 1L)
  [13:10:24.025]                 }
  [13:10:24.025]                 local({
  [13:10:24.025]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:24.025]                   "future")) {
  [13:10:24.025]                     loadNamespace(pkg)
  [13:10:24.025]                     library(pkg, character.only = TRUE)
  [13:10:24.025]                   }
  [13:10:24.025]                 })
  [13:10:24.025]             }
  [13:10:24.025]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:24.025]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:24.025]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:24.025]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:24.025]                 ...) 
  [13:10:24.025]             {
  [13:10:24.025]                 if (substitute) 
  [13:10:24.025]                   expr <- substitute(expr)
  [13:10:24.025]                 if (is.function(workers)) 
  [13:10:24.025]                   workers <- workers()
  [13:10:24.025]                 workers <- as.integer(workers)
  [13:10:24.025]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:24.025]                   workers >= 1)
  [13:10:24.025]                 if (workers == 1L) {
  [13:10:24.025]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:24.025]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:24.025]                     local = TRUE, label = label, ...))
  [13:10:24.025]                 }
  [13:10:24.025]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:24.025]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:24.025]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:24.025]                   globals = globals, persistent = persistent, 
  [13:10:24.025]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:24.025]                   label = label, ...)
  [13:10:24.025]                 if (!future$lazy) 
  [13:10:24.025]                   future <- run(future)
  [13:10:24.025]                 invisible(future)
  [13:10:24.025]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:24.025]         }
  [13:10:24.025]     }
  [13:10:24.025]     if (is.na(TRUE)) {
  [13:10:24.025]     }
  [13:10:24.025]     else {
  [13:10:24.025]         if (TRUE) {
  [13:10:24.025]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:24.025]         }
  [13:10:24.025]         else {
  [13:10:24.025]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:24.025]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:24.025]         }
  [13:10:24.025]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:24.025]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:24.025]             sink(type = "output", split = FALSE)
  [13:10:24.025]             close(...future.stdout)
  [13:10:24.025]         }, add = TRUE)
  [13:10:24.025]     }
  [13:10:24.025]     ...future.frame <- sys.nframe()
  [13:10:24.025]     ...future.conditions <- list()
  [13:10:24.025]     ...future.result <- tryCatch({
  [13:10:24.025]         withCallingHandlers({
  [13:10:24.025]             ...future.value <- local({
  [13:10:24.025]                 doFuture::registerDoFuture()
  [13:10:24.025]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:24.025]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:24.025]                   a <- NULL
  [13:10:24.025]                   ...future.env <- environment()
  [13:10:24.025]                   local({
  [13:10:24.025]                     for (name in names(...future.x_jj)) {
  [13:10:24.025]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:24.025]                         inherits = FALSE)
  [13:10:24.025]                     }
  [13:10:24.025]                   })
  [13:10:24.025]                   tryCatch({
  [13:10:24.025]                     plan_list <- future::plan()
  [13:10:24.025]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:24.025]                     plan_a <- future::plan("list")
  [13:10:24.025]                     str(plan_a)
  [13:10:24.025]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:24.025]                     message("foreach() - level 2 ...")
  [13:10:24.025]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:24.025]                       {
  [13:10:24.025]                         plan_list <- future::plan()
  [13:10:24.025]                         message(capture.output(print(plan_list)))
  [13:10:24.025]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:24.025]                           inherits(plan_list, getOption("future.default", 
  [13:10:24.025]                             "sequential")))
  [13:10:24.025]                         plan_b <- future::plan("list")
  [13:10:24.025]                         str(plan_b)
  [13:10:24.025]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:24.025]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:24.025]                             "sequential")))
  [13:10:24.025]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:24.025]                       }
  [13:10:24.025]                     message("foreach() - level 2 ... DONE")
  [13:10:24.025]                     y
  [13:10:24.025]                   }, error = identity)
  [13:10:24.025]                 })
  [13:10:24.025]             })
  [13:10:24.025]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:24.025]                 version = "1.8")
  [13:10:24.025]         }, condition = local({
  [13:10:24.025]             inherits <- base::inherits
  [13:10:24.025]             invokeRestart <- base::invokeRestart
  [13:10:24.025]             length <- base::length
  [13:10:24.025]             seq.int <- base::seq.int
  [13:10:24.025]             sys.calls <- base::sys.calls
  [13:10:24.025]             `[[` <- base::`[[`
  [13:10:24.025]             `+` <- base::`+`
  [13:10:24.025]             `<<-` <- base::`<<-`
  [13:10:24.025]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:24.025]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:24.025]                   3L)]
  [13:10:24.025]             }
  [13:10:24.025]             function(cond) {
  [13:10:24.025]                 if (inherits(cond, "error")) {
  [13:10:24.025]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:24.025]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:24.025]                     cond$call), timestamp = base::Sys.time())
  [13:10:24.025]                   signalCondition(cond)
  [13:10:24.025]                 }
  [13:10:24.025]                 else if (inherits(cond, c("message", "warning"
  [13:10:24.025]                 ))) {
  [13:10:24.025]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:24.025]                     1L]] <<- list(condition = cond)
  [13:10:24.025]                   if (inherits(cond, "message")) {
  [13:10:24.025]                     invokeRestart("muffleMessage")
  [13:10:24.025]                   }
  [13:10:24.025]                   else if (inherits(cond, "warning")) {
  [13:10:24.025]                     invokeRestart("muffleWarning")
  [13:10:24.025]                   }
  [13:10:24.025]                 }
  [13:10:24.025]             }
  [13:10:24.025]         }))
  [13:10:24.025]     }, error = function(ex) {
  [13:10:24.025]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:24.025]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:24.025]             class = "FutureResult")
  [13:10:24.025]     }, finally = {
  [13:10:24.025]         {
  [13:10:24.025]             {
  [13:10:24.025]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:24.025]             }
  [13:10:24.025]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:24.025]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:24.025]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:24.025]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:24.025]                 ...) 
  [13:10:24.025]             {
  [13:10:24.025]                 if (substitute) 
  [13:10:24.025]                   expr <- substitute(expr)
  [13:10:24.025]                 if (is.function(workers)) 
  [13:10:24.025]                   workers <- workers()
  [13:10:24.025]                 workers <- as.integer(workers)
  [13:10:24.025]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:24.025]                   workers >= 1)
  [13:10:24.025]                 if (workers == 1L) {
  [13:10:24.025]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:24.025]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:24.025]                     local = TRUE, label = label, ...))
  [13:10:24.025]                 }
  [13:10:24.025]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:24.025]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:24.025]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:24.025]                   globals = globals, persistent = persistent, 
  [13:10:24.025]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:24.025]                   label = label, ...)
  [13:10:24.025]                 if (!future$lazy) 
  [13:10:24.025]                   future <- run(future)
  [13:10:24.025]                 invisible(future)
  [13:10:24.025]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:24.025]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:24.025]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:10:24.025]                 label = NULL, ...) 
  [13:10:24.025]             {
  [13:10:24.025]                 if (substitute) 
  [13:10:24.025]                   expr <- substitute(expr)
  [13:10:24.025]                 if (is.function(workers)) 
  [13:10:24.025]                   workers <- workers()
  [13:10:24.025]                 workers <- as.integer(workers)
  [13:10:24.025]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:24.025]                   workers >= 1)
  [13:10:24.025]                 if (workers == 1L) {
  [13:10:24.025]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:24.025]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:24.025]                     local = TRUE, label = label, ...))
  [13:10:24.025]                 }
  [13:10:24.025]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:24.025]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:24.025]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:24.025]                   globals = globals, persistent = persistent, 
  [13:10:24.025]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:24.025]                   label = label, ...)
  [13:10:24.025]                 if (!future$lazy) 
  [13:10:24.025]                   future <- run(future)
  [13:10:24.025]                 invisible(future)
  [13:10:24.025]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:24.025]         }
  [13:10:24.025]         options(...future.oldOptions)
  [13:10:24.025]     })
  [13:10:24.025]     if (is.na(TRUE)) {
  [13:10:24.025]     }
  [13:10:24.025]     else {
  [13:10:24.025]         sink(type = "output", split = FALSE)
  [13:10:24.025]         if (TRUE) {
  [13:10:24.025]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:24.025]         }
  [13:10:24.025]         else {
  [13:10:24.025]             ...future.result["stdout"] <- list(NULL)
  [13:10:24.025]         }
  [13:10:24.025]         close(...future.stdout)
  [13:10:24.025]         ...future.stdout <- NULL
  [13:10:24.025]     }
  [13:10:24.025]     ...future.result$conditions <- ...future.conditions
  [13:10:24.025]     ...future.result
  [13:10:24.025] }
  [13:10:24.032] Exporting 3 global objects (240 bytes) to cluster node #2 ...
  [13:10:24.032] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ...
  [13:10:24.033] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ... DONE
  [13:10:24.034] Exporting 'strategy2' (120 bytes) to cluster node #2 ...
  [13:10:24.034] Exporting 'strategy2' (120 bytes) to cluster node #2 ... DONE
  [13:10:24.035] Exporting 'bs' (64 bytes) to cluster node #2 ...
  [13:10:24.036] Exporting 'bs' (64 bytes) to cluster node #2 ... DONE
  [13:10:24.036] Exporting 3 global objects (240 bytes) to cluster node #2 ... DONE
  [13:10:24.037] MultisessionFuture started
  [13:10:24.038] Chunk #2 of 2 ... DONE
  [13:10:24.038] Launching 2 futures (chunks) ... DONE
  [13:10:24.038] - resolving futures
  [13:10:24.060] resolve() on list ...
  [13:10:24.060]  recursive: 0
  [13:10:24.061]  length: 2
  [13:10:24.061] 
  [13:10:24.755]  length: 1 (resolved future 1)
  [13:10:24.803]  length: 0 (resolved future 2)
  [13:10:24.804] resolve() on list ... DONE
  [13:10:24.804] - relaying conditions of futures
  [13:10:24.805] result() for ClusterFuture ...
  [13:10:24.805] - Validating connection of MultisessionFuture
  [13:10:24.806] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:24.807] Future state: 'finished'
  [13:10:24.807] result() for ClusterFuture ...
  [13:10:24.808] - result already collected: FutureResult
  [13:10:24.808] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:10:24.809] result() for ClusterFuture ...
  [13:10:24.810] - Validating connection of MultisessionFuture
  [13:10:24.847] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:24.848] Future state: 'finished'
  [13:10:24.848] result() for ClusterFuture ...
  [13:10:24.849] - result already collected: FutureResult
  [13:10:24.849] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:10:24.850] - collecting values of futures
  [13:10:24.850] result() for ClusterFuture ...
  [13:10:24.851] - result already collected: FutureResult
  [13:10:24.851] result() for ClusterFuture ... done
  [13:10:24.851] result() for ClusterFuture ...
  [13:10:24.851] - result already collected: FutureResult
  [13:10:24.852] result() for ClusterFuture ... done
  [13:10:24.852] - accumulating results
  [13:10:24.853] - processing errors (handler = 'stop')
  [13:10:24.854] - extracting results
  [13:10:24.854] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multisession', 'multisession')) ... DONE
  - plan(list('multisession', 'cluster')) ...
  [13:10:24.855] plan(): Setting new future strategy stack:
  [13:10:24.856] List of future strategies:
  [13:10:24.856] 1. multisession:
  [13:10:24.856]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:24.856]    - tweaked: FALSE
  [13:10:24.856]    - call: plan(list(a = strategy1, b = strategy2))
  [13:10:24.856] 2. cluster:
  [13:10:24.856]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:24.856]    - tweaked: FALSE
  [13:10:24.856]    - call: plan(list(a = strategy1, b = strategy2))
  [13:10:24.865] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:10:24.866] multisession:
  [13:10:24.866] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:10:24.866] - tweaked: FALSE
  [13:10:24.866] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 11382
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d265cd71a.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d265cd71a.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d265cd71a.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d10feef55.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpWWPWSH/future.parent=26509.678d10feef55.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26509:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpWWPWSH/future.parent=26509.678d10feef55.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11382 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [13:10:40.425] getGlobalsAndPackages() ...
  [13:10:40.425] Not searching for globals
  [13:10:40.426] - globals: [0] <none>
  [13:10:40.426] getGlobalsAndPackages() ... DONE
  [13:10:40.430] Packages needed by the future expression (n = 0): <none>
  [13:10:40.431] Packages needed by future strategies (n = 1): 'future'
  [13:10:40.435] {
  [13:10:40.435]     {
  [13:10:40.435]         ...future.startTime <- Sys.time()
  [13:10:40.435]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:40.435]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:40.435]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:40.435]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:40.435]             future.resolve.recursive = NULL, width = 80L)
  [13:10:40.435]         {
  [13:10:40.435]             {
  [13:10:40.435]                 {
  [13:10:40.435]                   {
  [13:10:40.435]                     has_future <- requireNamespace("future", 
  [13:10:40.435]                       quietly = TRUE)
  [13:10:40.435]                     version <- if (has_future) 
  [13:10:40.435]                       packageVersion("future")
  [13:10:40.435]                     else NULL
  [13:10:40.435]                     if (!has_future || version < "1.8.0") {
  [13:10:40.435]                       info <- c(r_version = gsub("R version ", 
  [13:10:40.435]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:40.435]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:40.435]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:40.435]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:40.435]                       info <- sprintf("%s: %s", names(info), 
  [13:10:40.435]                         info)
  [13:10:40.435]                       info <- paste(info, collapse = "; ")
  [13:10:40.435]                       if (!has_future) {
  [13:10:40.435]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:40.435]                           info)
  [13:10:40.435]                       }
  [13:10:40.435]                       else {
  [13:10:40.435]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:40.435]                           info, version)
  [13:10:40.435]                       }
  [13:10:40.435]                       stop(msg)
  [13:10:40.435]                     }
  [13:10:40.435]                   }
  [13:10:40.435]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:40.435]                   options(mc.cores = 1L)
  [13:10:40.435]                 }
  [13:10:40.435]                 local({
  [13:10:40.435]                   for (pkg in "future") {
  [13:10:40.435]                     loadNamespace(pkg)
  [13:10:40.435]                     library(pkg, character.only = TRUE)
  [13:10:40.435]                   }
  [13:10:40.435]                 })
  [13:10:40.435]             }
  [13:10:40.435]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:40.435]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.435]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:10:40.435]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:10:40.435]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.435]                 ...) 
  [13:10:40.435]             {
  [13:10:40.435]                 if (substitute) 
  [13:10:40.435]                   expr <- substitute(expr)
  [13:10:40.435]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.435]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.435]                   globals = globals, persistent = persistent, 
  [13:10:40.435]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.435]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.435]                   label = label, ...)
  [13:10:40.435]                 if (!future$lazy) 
  [13:10:40.435]                   future <- run(future)
  [13:10:40.435]                 invisible(future)
  [13:10:40.435]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.435]         }
  [13:10:40.435]     }
  [13:10:40.435]     if (is.na(TRUE)) {
  [13:10:40.435]     }
  [13:10:40.435]     else {
  [13:10:40.435]         if (TRUE) {
  [13:10:40.435]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:40.435]         }
  [13:10:40.435]         else {
  [13:10:40.435]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:40.435]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:40.435]         }
  [13:10:40.435]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:40.435]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:40.435]             sink(type = "output", split = FALSE)
  [13:10:40.435]             close(...future.stdout)
  [13:10:40.435]         }, add = TRUE)
  [13:10:40.435]     }
  [13:10:40.435]     ...future.frame <- sys.nframe()
  [13:10:40.435]     ...future.conditions <- list()
  [13:10:40.435]     ...future.result <- tryCatch({
  [13:10:40.435]         withCallingHandlers({
  [13:10:40.435]             ...future.value <- local(NA)
  [13:10:40.435]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:40.435]                 version = "1.8")
  [13:10:40.435]         }, condition = local({
  [13:10:40.435]             inherits <- base::inherits
  [13:10:40.435]             invokeRestart <- base::invokeRestart
  [13:10:40.435]             length <- base::length
  [13:10:40.435]             seq.int <- base::seq.int
  [13:10:40.435]             sys.calls <- base::sys.calls
  [13:10:40.435]             `[[` <- base::`[[`
  [13:10:40.435]             `+` <- base::`+`
  [13:10:40.435]             `<<-` <- base::`<<-`
  [13:10:40.435]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:40.435]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:40.435]                   3L)]
  [13:10:40.435]             }
  [13:10:40.435]             function(cond) {
  [13:10:40.435]                 if (inherits(cond, "error")) {
  [13:10:40.435]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.435]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:40.435]                     cond$call), timestamp = base::Sys.time())
  [13:10:40.435]                   signalCondition(cond)
  [13:10:40.435]                 }
  [13:10:40.435]                 else if (inherits(cond, c("message", "warning"
  [13:10:40.435]                 ))) {
  [13:10:40.435]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.435]                     1L]] <<- list(condition = cond)
  [13:10:40.435]                   if (inherits(cond, "message")) {
  [13:10:40.435]                     invokeRestart("muffleMessage")
  [13:10:40.435]                   }
  [13:10:40.435]                   else if (inherits(cond, "warning")) {
  [13:10:40.435]                     invokeRestart("muffleWarning")
  [13:10:40.435]                   }
  [13:10:40.435]                 }
  [13:10:40.435]             }
  [13:10:40.435]         }))
  [13:10:40.435]     }, error = function(ex) {
  [13:10:40.435]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:40.435]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:40.435]             class = "FutureResult")
  [13:10:40.435]     }, finally = {
  [13:10:40.435]         {
  [13:10:40.435]             {
  [13:10:40.435]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:40.435]             }
  [13:10:40.435]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:40.435]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.435]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:40.435]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.435]                 ...) 
  [13:10:40.435]             {
  [13:10:40.435]                 if (substitute) 
  [13:10:40.435]                   expr <- substitute(expr)
  [13:10:40.435]                 if (is.function(workers)) 
  [13:10:40.435]                   workers <- workers()
  [13:10:40.435]                 workers <- as.integer(workers)
  [13:10:40.435]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:40.435]                   workers >= 1)
  [13:10:40.435]                 if (workers == 1L) {
  [13:10:40.435]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:40.435]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:40.435]                     local = TRUE, label = label, ...))
  [13:10:40.435]                 }
  [13:10:40.435]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:40.435]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:40.435]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.435]                   globals = globals, persistent = persistent, 
  [13:10:40.435]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:40.435]                   label = label, ...)
  [13:10:40.435]                 if (!future$lazy) 
  [13:10:40.435]                   future <- run(future)
  [13:10:40.435]                 invisible(future)
  [13:10:40.435]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:40.435]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:40.435]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:10:40.435]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:10:40.435]                 label = NULL, ...) 
  [13:10:40.435]             {
  [13:10:40.435]                 if (substitute) 
  [13:10:40.435]                   expr <- substitute(expr)
  [13:10:40.435]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.435]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.435]                   globals = globals, persistent = persistent, 
  [13:10:40.435]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.435]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.435]                   label = label, ...)
  [13:10:40.435]                 if (!future$lazy) 
  [13:10:40.435]                   future <- run(future)
  [13:10:40.435]                 invisible(future)
  [13:10:40.435]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.435]         }
  [13:10:40.435]         options(...future.oldOptions)
  [13:10:40.435]     })
  [13:10:40.435]     if (is.na(TRUE)) {
  [13:10:40.435]     }
  [13:10:40.435]     else {
  [13:10:40.435]         sink(type = "output", split = FALSE)
  [13:10:40.435]         if (TRUE) {
  [13:10:40.435]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:40.435]         }
  [13:10:40.435]         else {
  [13:10:40.435]             ...future.result["stdout"] <- list(NULL)
  [13:10:40.435]         }
  [13:10:40.435]         close(...future.stdout)
  [13:10:40.435]         ...future.stdout <- NULL
  [13:10:40.435]     }
  [13:10:40.435]     ...future.result$conditions <- ...future.conditions
  [13:10:40.435]     ...future.result
  [13:10:40.435] }
  [13:10:40.456] MultisessionFuture started
  [13:10:40.457] result() for ClusterFuture ...
  [13:10:40.457] - Validating connection of MultisessionFuture
  [13:10:40.687] - class(result): FutureResult
  [13:10:40.688] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:10:40.689] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [13:10:40.690] doFuture() ...
  [13:10:40.691] - dummy globals (as locals): [1] 'a'
  [13:10:40.693] - R expression:
  [13:10:40.693] {
  [13:10:40.693]     doFuture::registerDoFuture()
  [13:10:40.693]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:40.693]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:40.693]         a <- NULL
  [13:10:40.693]         ...future.env <- environment()
  [13:10:40.693]         local({
  [13:10:40.693]             for (name in names(...future.x_jj)) {
  [13:10:40.693]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:40.693]                   inherits = FALSE)
  [13:10:40.693]             }
  [13:10:40.693]         })
  [13:10:40.693]         tryCatch({
  [13:10:40.693]             plan_list <- future::plan()
  [13:10:40.693]             stopifnot(inherits(plan_list, strategy2))
  [13:10:40.693]             plan_a <- future::plan("list")
  [13:10:40.693]             str(plan_a)
  [13:10:40.693]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:40.693]             message("foreach() - level 2 ...")
  [13:10:40.693]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:40.693]                 {
  [13:10:40.693]                   plan_list <- future::plan()
  [13:10:40.693]                   message(capture.output(print(plan_list)))
  [13:10:40.693]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:40.693]                     getOption("future.default", "sequential")))
  [13:10:40.693]                   plan_b <- future::plan("list")
  [13:10:40.693]                   str(plan_b)
  [13:10:40.693]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:40.693]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:40.693]                       "sequential")))
  [13:10:40.693]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:40.693]                 }
  [13:10:40.693]             message("foreach() - level 2 ... DONE")
  [13:10:40.693]             y
  [13:10:40.693]         }, error = identity)
  [13:10:40.693]     })
  [13:10:40.693] }
  [13:10:40.694] - identifying globals and packages ...
  [13:10:40.701] getGlobalsAndPackages() ...
  [13:10:40.701] Searching for globals...
  [13:10:40.769] - globals found: [28] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'list', 'b', 'identity'
  [13:10:40.769] Searching for globals ... DONE
  [13:10:40.769] Resolving globals: FALSE
  [13:10:40.772] The total size of the 3 globals is 176 bytes (176 bytes)
  [13:10:40.773] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.773] - packages: [2] 'utils', 'foreach'
  [13:10:40.774] getGlobalsAndPackages() ... DONE
  [13:10:40.774] List of 3
  [13:10:40.774]  $ ...future.x_ii: NULL
  [13:10:40.774]  $ strategy2     : chr "cluster"
  [13:10:40.774]  $ bs            : int [1:3] 3 2 1
  [13:10:40.774]  - attr(*, "where")=List of 3
  [13:10:40.774]   ..$ ...future.x_ii:<environment: 0x55c30e07bfb8> 
  [13:10:40.774]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:40.774]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:40.774]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:40.774]  - attr(*, "resolved")= logi FALSE
  [13:10:40.774]  - attr(*, "total_size")= num 176
  [13:10:40.792]   - R expression:
  [13:10:40.792] {
  [13:10:40.792]     doFuture::registerDoFuture()
  [13:10:40.792]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:40.792]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:40.792]         a <- NULL
  [13:10:40.792]         ...future.env <- environment()
  [13:10:40.792]         local({
  [13:10:40.792]             for (name in names(...future.x_jj)) {
  [13:10:40.792]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:40.792]                   inherits = FALSE)
  [13:10:40.792]             }
  [13:10:40.792]         })
  [13:10:40.792]         tryCatch({
  [13:10:40.792]             plan_list <- future::plan()
  [13:10:40.792]             stopifnot(inherits(plan_list, strategy2))
  [13:10:40.792]             plan_a <- future::plan("list")
  [13:10:40.792]             str(plan_a)
  [13:10:40.792]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:40.792]             message("foreach() - level 2 ...")
  [13:10:40.792]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:40.792]                 {
  [13:10:40.792]                   plan_list <- future::plan()
  [13:10:40.792]                   message(capture.output(print(plan_list)))
  [13:10:40.792]                   stopifnot(inherits(plan_list, "future"), inherits(plan_list, 
  [13:10:40.792]                     getOption("future.default", "sequential")))
  [13:10:40.792]                   plan_b <- future::plan("list")
  [13:10:40.792]                   str(plan_b)
  [13:10:40.792]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:40.792]                     inherits(plan_b[[1]], getOption("future.default", 
  [13:10:40.792]                       "sequential")))
  [13:10:40.792]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:40.792]                 }
  [13:10:40.792]             message("foreach() - level 2 ... DONE")
  [13:10:40.792]             y
  [13:10:40.792]         }, error = identity)
  [13:10:40.792]     })
  [13:10:40.792] }
  [13:10:40.793]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.794] List of 3
  [13:10:40.794]  $ ...future.x_ii: NULL
  [13:10:40.794]  $ strategy2     : chr "cluster"
  [13:10:40.794]  $ bs            : int [1:3] 3 2 1
  [13:10:40.794]  - attr(*, "where")=List of 3
  [13:10:40.794]   ..$ ...future.x_ii:<environment: 0x55c30e07bfb8> 
  [13:10:40.794]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:10:40.794]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:10:40.794]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:10:40.794]  - attr(*, "resolved")= logi FALSE
  [13:10:40.794]  - attr(*, "total_size")= num 176
  [13:10:40.803]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:10:40.804] - identifying globals and packages ... DONE
  [13:10:40.805] Number of chunks: 2
  [13:10:40.805] Number of futures (= number of chunks): 2
  [13:10:40.806] Launching 2 futures (chunks) ...
  [13:10:40.806] Chunk #1 of 2 ...
  [13:10:40.806]  - Finding globals in 'args_list' chunk #1 ...
  [13:10:40.807] getGlobalsAndPackages() ...
  [13:10:40.807] Searching for globals...
  [13:10:40.808] 
  [13:10:40.808] Searching for globals ... DONE
  [13:10:40.809] - globals: [0] <none>
  [13:10:40.809] getGlobalsAndPackages() ... DONE
  [13:10:40.809] 
  [13:10:40.809] 
  [13:10:40.810]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:10:40.829] getGlobalsAndPackages() ...
  [13:10:40.830] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.830] Resolving globals: FALSE
  [13:10:40.831] The total size of the 3 globals is 232 bytes (232 bytes)
  [13:10:40.832] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.832] 
  [13:10:40.832] getGlobalsAndPackages() ... DONE
  [13:10:40.834] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:40.835] Packages needed by future strategies (n = 1): 'future'
  [13:10:40.840] {
  [13:10:40.840]     {
  [13:10:40.840]         ...future.startTime <- Sys.time()
  [13:10:40.840]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:40.840]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:40.840]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:40.840]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:40.840]             future.resolve.recursive = NULL, width = 80L)
  [13:10:40.840]         {
  [13:10:40.840]             {
  [13:10:40.840]                 {
  [13:10:40.840]                   {
  [13:10:40.840]                     has_future <- requireNamespace("future", 
  [13:10:40.840]                       quietly = TRUE)
  [13:10:40.840]                     version <- if (has_future) 
  [13:10:40.840]                       packageVersion("future")
  [13:10:40.840]                     else NULL
  [13:10:40.840]                     if (!has_future || version < "1.8.0") {
  [13:10:40.840]                       info <- c(r_version = gsub("R version ", 
  [13:10:40.840]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:40.840]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:40.840]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:40.840]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:40.840]                       info <- sprintf("%s: %s", names(info), 
  [13:10:40.840]                         info)
  [13:10:40.840]                       info <- paste(info, collapse = "; ")
  [13:10:40.840]                       if (!has_future) {
  [13:10:40.840]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:40.840]                           info)
  [13:10:40.840]                       }
  [13:10:40.840]                       else {
  [13:10:40.840]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:40.840]                           info, version)
  [13:10:40.840]                       }
  [13:10:40.840]                       stop(msg)
  [13:10:40.840]                     }
  [13:10:40.840]                   }
  [13:10:40.840]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:40.840]                   options(mc.cores = 1L)
  [13:10:40.840]                 }
  [13:10:40.840]                 local({
  [13:10:40.840]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:40.840]                   "future")) {
  [13:10:40.840]                     loadNamespace(pkg)
  [13:10:40.840]                     library(pkg, character.only = TRUE)
  [13:10:40.840]                   }
  [13:10:40.840]                 })
  [13:10:40.840]             }
  [13:10:40.840]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:40.840]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.840]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:10:40.840]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:10:40.840]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.840]                 ...) 
  [13:10:40.840]             {
  [13:10:40.840]                 if (substitute) 
  [13:10:40.840]                   expr <- substitute(expr)
  [13:10:40.840]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.840]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.840]                   globals = globals, persistent = persistent, 
  [13:10:40.840]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.840]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.840]                   label = label, ...)
  [13:10:40.840]                 if (!future$lazy) 
  [13:10:40.840]                   future <- run(future)
  [13:10:40.840]                 invisible(future)
  [13:10:40.840]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.840]         }
  [13:10:40.840]     }
  [13:10:40.840]     if (is.na(TRUE)) {
  [13:10:40.840]     }
  [13:10:40.840]     else {
  [13:10:40.840]         if (TRUE) {
  [13:10:40.840]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:40.840]         }
  [13:10:40.840]         else {
  [13:10:40.840]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:40.840]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:40.840]         }
  [13:10:40.840]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:40.840]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:40.840]             sink(type = "output", split = FALSE)
  [13:10:40.840]             close(...future.stdout)
  [13:10:40.840]         }, add = TRUE)
  [13:10:40.840]     }
  [13:10:40.840]     ...future.frame <- sys.nframe()
  [13:10:40.840]     ...future.conditions <- list()
  [13:10:40.840]     ...future.result <- tryCatch({
  [13:10:40.840]         withCallingHandlers({
  [13:10:40.840]             ...future.value <- local({
  [13:10:40.840]                 doFuture::registerDoFuture()
  [13:10:40.840]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:40.840]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:40.840]                   a <- NULL
  [13:10:40.840]                   ...future.env <- environment()
  [13:10:40.840]                   local({
  [13:10:40.840]                     for (name in names(...future.x_jj)) {
  [13:10:40.840]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:40.840]                         inherits = FALSE)
  [13:10:40.840]                     }
  [13:10:40.840]                   })
  [13:10:40.840]                   tryCatch({
  [13:10:40.840]                     plan_list <- future::plan()
  [13:10:40.840]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:40.840]                     plan_a <- future::plan("list")
  [13:10:40.840]                     str(plan_a)
  [13:10:40.840]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:40.840]                     message("foreach() - level 2 ...")
  [13:10:40.840]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:40.840]                       {
  [13:10:40.840]                         plan_list <- future::plan()
  [13:10:40.840]                         message(capture.output(print(plan_list)))
  [13:10:40.840]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:40.840]                           inherits(plan_list, getOption("future.default", 
  [13:10:40.840]                             "sequential")))
  [13:10:40.840]                         plan_b <- future::plan("list")
  [13:10:40.840]                         str(plan_b)
  [13:10:40.840]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:40.840]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:40.840]                             "sequential")))
  [13:10:40.840]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:40.840]                       }
  [13:10:40.840]                     message("foreach() - level 2 ... DONE")
  [13:10:40.840]                     y
  [13:10:40.840]                   }, error = identity)
  [13:10:40.840]                 })
  [13:10:40.840]             })
  [13:10:40.840]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:40.840]                 version = "1.8")
  [13:10:40.840]         }, condition = local({
  [13:10:40.840]             inherits <- base::inherits
  [13:10:40.840]             invokeRestart <- base::invokeRestart
  [13:10:40.840]             length <- base::length
  [13:10:40.840]             seq.int <- base::seq.int
  [13:10:40.840]             sys.calls <- base::sys.calls
  [13:10:40.840]             `[[` <- base::`[[`
  [13:10:40.840]             `+` <- base::`+`
  [13:10:40.840]             `<<-` <- base::`<<-`
  [13:10:40.840]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:40.840]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:40.840]                   3L)]
  [13:10:40.840]             }
  [13:10:40.840]             function(cond) {
  [13:10:40.840]                 if (inherits(cond, "error")) {
  [13:10:40.840]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.840]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:40.840]                     cond$call), timestamp = base::Sys.time())
  [13:10:40.840]                   signalCondition(cond)
  [13:10:40.840]                 }
  [13:10:40.840]                 else if (inherits(cond, c("message", "warning"
  [13:10:40.840]                 ))) {
  [13:10:40.840]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.840]                     1L]] <<- list(condition = cond)
  [13:10:40.840]                   if (inherits(cond, "message")) {
  [13:10:40.840]                     invokeRestart("muffleMessage")
  [13:10:40.840]                   }
  [13:10:40.840]                   else if (inherits(cond, "warning")) {
  [13:10:40.840]                     invokeRestart("muffleWarning")
  [13:10:40.840]                   }
  [13:10:40.840]                 }
  [13:10:40.840]             }
  [13:10:40.840]         }))
  [13:10:40.840]     }, error = function(ex) {
  [13:10:40.840]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:40.840]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:40.840]             class = "FutureResult")
  [13:10:40.840]     }, finally = {
  [13:10:40.840]         {
  [13:10:40.840]             {
  [13:10:40.840]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:40.840]             }
  [13:10:40.840]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:40.840]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.840]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:40.840]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.840]                 ...) 
  [13:10:40.840]             {
  [13:10:40.840]                 if (substitute) 
  [13:10:40.840]                   expr <- substitute(expr)
  [13:10:40.840]                 if (is.function(workers)) 
  [13:10:40.840]                   workers <- workers()
  [13:10:40.840]                 workers <- as.integer(workers)
  [13:10:40.840]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:40.840]                   workers >= 1)
  [13:10:40.840]                 if (workers == 1L) {
  [13:10:40.840]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:40.840]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:40.840]                     local = TRUE, label = label, ...))
  [13:10:40.840]                 }
  [13:10:40.840]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:40.840]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:40.840]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.840]                   globals = globals, persistent = persistent, 
  [13:10:40.840]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:40.840]                   label = label, ...)
  [13:10:40.840]                 if (!future$lazy) 
  [13:10:40.840]                   future <- run(future)
  [13:10:40.840]                 invisible(future)
  [13:10:40.840]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:40.840]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:40.840]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:10:40.840]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:10:40.840]                 label = NULL, ...) 
  [13:10:40.840]             {
  [13:10:40.840]                 if (substitute) 
  [13:10:40.840]                   expr <- substitute(expr)
  [13:10:40.840]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.840]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.840]                   globals = globals, persistent = persistent, 
  [13:10:40.840]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.840]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.840]                   label = label, ...)
  [13:10:40.840]                 if (!future$lazy) 
  [13:10:40.840]                   future <- run(future)
  [13:10:40.840]                 invisible(future)
  [13:10:40.840]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.840]         }
  [13:10:40.840]         options(...future.oldOptions)
  [13:10:40.840]     })
  [13:10:40.840]     if (is.na(TRUE)) {
  [13:10:40.840]     }
  [13:10:40.840]     else {
  [13:10:40.840]         sink(type = "output", split = FALSE)
  [13:10:40.840]         if (TRUE) {
  [13:10:40.840]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:40.840]         }
  [13:10:40.840]         else {
  [13:10:40.840]             ...future.result["stdout"] <- list(NULL)
  [13:10:40.840]         }
  [13:10:40.840]         close(...future.stdout)
  [13:10:40.840]         ...future.stdout <- NULL
  [13:10:40.840]     }
  [13:10:40.840]     ...future.result$conditions <- ...future.conditions
  [13:10:40.840]     ...future.result
  [13:10:40.840] }
  [13:10:40.846] Exporting 3 global objects (232 bytes) to cluster node #1 ...
  [13:10:40.846] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:10:40.847] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:10:40.848] Exporting 'strategy2' (112 bytes) to cluster node #1 ...
  [13:10:40.849] Exporting 'strategy2' (112 bytes) to cluster node #1 ... DONE
  [13:10:40.849] Exporting 'bs' (64 bytes) to cluster node #1 ...
  [13:10:40.850] Exporting 'bs' (64 bytes) to cluster node #1 ... DONE
  [13:10:40.851] Exporting 3 global objects (232 bytes) to cluster node #1 ... DONE
  [13:10:40.852] MultisessionFuture started
  [13:10:40.852] Chunk #1 of 2 ... DONE
  [13:10:40.858] Chunk #2 of 2 ...
  [13:10:40.858]  - Finding globals in 'args_list' chunk #2 ...
  [13:10:40.858] getGlobalsAndPackages() ...
  [13:10:40.859] Searching for globals...
  [13:10:40.859] 
  [13:10:40.860] Searching for globals ... DONE
  [13:10:40.860] - globals: [0] <none>
  [13:10:40.861] getGlobalsAndPackages() ... DONE
  [13:10:40.861] 
  [13:10:40.861] 
  [13:10:40.862]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:10:40.887] getGlobalsAndPackages() ...
  [13:10:40.887] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.888] Resolving globals: FALSE
  [13:10:40.889] The total size of the 3 globals is 232 bytes (232 bytes)
  [13:10:40.889] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:10:40.890] 
  [13:10:40.890] getGlobalsAndPackages() ... DONE
  [13:10:40.892] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:10:40.893] Packages needed by future strategies (n = 1): 'future'
  [13:10:40.926] {
  [13:10:40.926]     {
  [13:10:40.926]         ...future.startTime <- Sys.time()
  [13:10:40.926]         ...future.oldOptions <- options(future.startup.loadScript = FALSE, 
  [13:10:40.926]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:10:40.926]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:10:40.926]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:10:40.926]             future.resolve.recursive = NULL, width = 80L)
  [13:10:40.926]         {
  [13:10:40.926]             {
  [13:10:40.926]                 {
  [13:10:40.926]                   {
  [13:10:40.926]                     has_future <- requireNamespace("future", 
  [13:10:40.926]                       quietly = TRUE)
  [13:10:40.926]                     version <- if (has_future) 
  [13:10:40.926]                       packageVersion("future")
  [13:10:40.926]                     else NULL
  [13:10:40.926]                     if (!has_future || version < "1.8.0") {
  [13:10:40.926]                       info <- c(r_version = gsub("R version ", 
  [13:10:40.926]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [13:10:40.926]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [13:10:40.926]                         os = paste(Sys.info()[c("sysname", "release", 
  [13:10:40.926]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [13:10:40.926]                       info <- sprintf("%s: %s", names(info), 
  [13:10:40.926]                         info)
  [13:10:40.926]                       info <- paste(info, collapse = "; ")
  [13:10:40.926]                       if (!has_future) {
  [13:10:40.926]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [13:10:40.926]                           info)
  [13:10:40.926]                       }
  [13:10:40.926]                       else {
  [13:10:40.926]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:10:40.926]                           info, version)
  [13:10:40.926]                       }
  [13:10:40.926]                       stop(msg)
  [13:10:40.926]                     }
  [13:10:40.926]                   }
  [13:10:40.926]                   ...future.mc.cores.old <- getOption("mc.cores")
  [13:10:40.926]                   options(mc.cores = 1L)
  [13:10:40.926]                 }
  [13:10:40.926]                 local({
  [13:10:40.926]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:10:40.926]                   "future")) {
  [13:10:40.926]                     loadNamespace(pkg)
  [13:10:40.926]                     library(pkg, character.only = TRUE)
  [13:10:40.926]                   }
  [13:10:40.926]                 })
  [13:10:40.926]             }
  [13:10:40.926]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:10:40.926]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.926]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:10:40.926]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:10:40.926]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.926]                 ...) 
  [13:10:40.926]             {
  [13:10:40.926]                 if (substitute) 
  [13:10:40.926]                   expr <- substitute(expr)
  [13:10:40.926]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.926]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.926]                   globals = globals, persistent = persistent, 
  [13:10:40.926]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.926]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.926]                   label = label, ...)
  [13:10:40.926]                 if (!future$lazy) 
  [13:10:40.926]                   future <- run(future)
  [13:10:40.926]                 invisible(future)
  [13:10:40.926]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.926]         }
  [13:10:40.926]     }
  [13:10:40.926]     if (is.na(TRUE)) {
  [13:10:40.926]     }
  [13:10:40.926]     else {
  [13:10:40.926]         if (TRUE) {
  [13:10:40.926]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [13:10:40.926]         }
  [13:10:40.926]         else {
  [13:10:40.926]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [13:10:40.926]                 windows = "NUL", "/dev/null"), open = "w")
  [13:10:40.926]         }
  [13:10:40.926]         sink(...future.stdout, type = "output", split = FALSE)
  [13:10:40.926]         on.exit(if (!is.null(...future.stdout)) {
  [13:10:40.926]             sink(type = "output", split = FALSE)
  [13:10:40.926]             close(...future.stdout)
  [13:10:40.926]         }, add = TRUE)
  [13:10:40.926]     }
  [13:10:40.926]     ...future.frame <- sys.nframe()
  [13:10:40.926]     ...future.conditions <- list()
  [13:10:40.926]     ...future.result <- tryCatch({
  [13:10:40.926]         withCallingHandlers({
  [13:10:40.926]             ...future.value <- local({
  [13:10:40.926]                 doFuture::registerDoFuture()
  [13:10:40.926]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:10:40.926]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:10:40.926]                   a <- NULL
  [13:10:40.926]                   ...future.env <- environment()
  [13:10:40.926]                   local({
  [13:10:40.926]                     for (name in names(...future.x_jj)) {
  [13:10:40.926]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:10:40.926]                         inherits = FALSE)
  [13:10:40.926]                     }
  [13:10:40.926]                   })
  [13:10:40.926]                   tryCatch({
  [13:10:40.926]                     plan_list <- future::plan()
  [13:10:40.926]                     stopifnot(inherits(plan_list, strategy2))
  [13:10:40.926]                     plan_a <- future::plan("list")
  [13:10:40.926]                     str(plan_a)
  [13:10:40.926]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:10:40.926]                     message("foreach() - level 2 ...")
  [13:10:40.926]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:10:40.926]                       {
  [13:10:40.926]                         plan_list <- future::plan()
  [13:10:40.926]                         message(capture.output(print(plan_list)))
  [13:10:40.926]                         stopifnot(inherits(plan_list, "future"), 
  [13:10:40.926]                           inherits(plan_list, getOption("future.default", 
  [13:10:40.926]                             "sequential")))
  [13:10:40.926]                         plan_b <- future::plan("list")
  [13:10:40.926]                         str(plan_b)
  [13:10:40.926]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:10:40.926]                           inherits(plan_b[[1]], getOption("future.default", 
  [13:10:40.926]                             "sequential")))
  [13:10:40.926]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:10:40.926]                       }
  [13:10:40.926]                     message("foreach() - level 2 ... DONE")
  [13:10:40.926]                     y
  [13:10:40.926]                   }, error = identity)
  [13:10:40.926]                 })
  [13:10:40.926]             })
  [13:10:40.926]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [13:10:40.926]                 version = "1.8")
  [13:10:40.926]         }, condition = local({
  [13:10:40.926]             inherits <- base::inherits
  [13:10:40.926]             invokeRestart <- base::invokeRestart
  [13:10:40.926]             length <- base::length
  [13:10:40.926]             seq.int <- base::seq.int
  [13:10:40.926]             sys.calls <- base::sys.calls
  [13:10:40.926]             `[[` <- base::`[[`
  [13:10:40.926]             `+` <- base::`+`
  [13:10:40.926]             `<<-` <- base::`<<-`
  [13:10:40.926]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:10:40.926]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:10:40.926]                   3L)]
  [13:10:40.926]             }
  [13:10:40.926]             function(cond) {
  [13:10:40.926]                 if (inherits(cond, "error")) {
  [13:10:40.926]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.926]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:10:40.926]                     cond$call), timestamp = base::Sys.time())
  [13:10:40.926]                   signalCondition(cond)
  [13:10:40.926]                 }
  [13:10:40.926]                 else if (inherits(cond, c("message", "warning"
  [13:10:40.926]                 ))) {
  [13:10:40.926]                   ...future.conditions[[length(...future.conditions) + 
  [13:10:40.926]                     1L]] <<- list(condition = cond)
  [13:10:40.926]                   if (inherits(cond, "message")) {
  [13:10:40.926]                     invokeRestart("muffleMessage")
  [13:10:40.926]                   }
  [13:10:40.926]                   else if (inherits(cond, "warning")) {
  [13:10:40.926]                     invokeRestart("muffleWarning")
  [13:10:40.926]                   }
  [13:10:40.926]                 }
  [13:10:40.926]             }
  [13:10:40.926]         }))
  [13:10:40.926]     }, error = function(ex) {
  [13:10:40.926]         structure(list(value = NULL, conditions = ...future.conditions, 
  [13:10:40.926]             condition = ex, calls = sys.calls(), version = "1.8"), 
  [13:10:40.926]             class = "FutureResult")
  [13:10:40.926]     }, finally = {
  [13:10:40.926]         {
  [13:10:40.926]             {
  [13:10:40.926]                 options(mc.cores = ...future.mc.cores.old)
  [13:10:40.926]             }
  [13:10:40.926]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:10:40.926]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:10:40.926]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:10:40.926]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:10:40.926]                 ...) 
  [13:10:40.926]             {
  [13:10:40.926]                 if (substitute) 
  [13:10:40.926]                   expr <- substitute(expr)
  [13:10:40.926]                 if (is.function(workers)) 
  [13:10:40.926]                   workers <- workers()
  [13:10:40.926]                 workers <- as.integer(workers)
  [13:10:40.926]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:10:40.926]                   workers >= 1)
  [13:10:40.926]                 if (workers == 1L) {
  [13:10:40.926]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:10:40.926]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:10:40.926]                     local = TRUE, label = label, ...))
  [13:10:40.926]                 }
  [13:10:40.926]                 workers <- ClusterRegistry("start", workers = workers)
  [13:10:40.926]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:10:40.926]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.926]                   globals = globals, persistent = persistent, 
  [13:10:40.926]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:10:40.926]                   label = label, ...)
  [13:10:40.926]                 if (!future$lazy) 
  [13:10:40.926]                   future <- run(future)
  [13:10:40.926]                 invisible(future)
  [13:10:40.926]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:10:40.926]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:10:40.926]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:10:40.926]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:10:40.926]                 label = NULL, ...) 
  [13:10:40.926]             {
  [13:10:40.926]                 if (substitute) 
  [13:10:40.926]                   expr <- substitute(expr)
  [13:10:40.926]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:10:40.926]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:10:40.926]                   globals = globals, persistent = persistent, 
  [13:10:40.926]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:10:40.926]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:10:40.926]                   label = label, ...)
  [13:10:40.926]                 if (!future$lazy) 
  [13:10:40.926]                   future <- run(future)
  [13:10:40.926]                 invisible(future)
  [13:10:40.926]             }), .cleanup = FALSE, .init = FALSE)
  [13:10:40.926]         }
  [13:10:40.926]         options(...future.oldOptions)
  [13:10:40.926]     })
  [13:10:40.926]     if (is.na(TRUE)) {
  [13:10:40.926]     }
  [13:10:40.926]     else {
  [13:10:40.926]         sink(type = "output", split = FALSE)
  [13:10:40.926]         if (TRUE) {
  [13:10:40.926]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [13:10:40.926]         }
  [13:10:40.926]         else {
  [13:10:40.926]             ...future.result["stdout"] <- list(NULL)
  [13:10:40.926]         }
  [13:10:40.926]         close(...future.stdout)
  [13:10:40.926]         ...future.stdout <- NULL
  [13:10:40.926]     }
  [13:10:40.926]     ...future.result$conditions <- ...future.conditions
  [13:10:40.926]     ...future.result
  [13:10:40.926] }
  [13:10:40.943] Exporting 3 global objects (232 bytes) to cluster node #2 ...
  [13:10:40.943] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ...
  [13:10:40.944] Exporting '...future.x_ii' (56 bytes) to cluster node #2 ... DONE
  [13:10:40.945] Exporting 'strategy2' (112 bytes) to cluster node #2 ...
  [13:10:40.946] Exporting 'strategy2' (112 bytes) to cluster node #2 ... DONE
  [13:10:40.946] Exporting 'bs' (64 bytes) to cluster node #2 ...
  [13:10:40.963] Exporting 'bs' (64 bytes) to cluster node #2 ... DONE
  [13:10:40.963] Exporting 3 global objects (232 bytes) to cluster node #2 ... DONE
  [13:10:40.964] MultisessionFuture started
  [13:10:40.965] Chunk #2 of 2 ... DONE
  [13:10:40.965] Launching 2 futures (chunks) ... DONE
  [13:10:40.965] - resolving futures
  [13:10:40.966] resolve() on list ...
  [13:10:40.966]  recursive: 0
  [13:10:40.966]  length: 2
  [13:10:40.967] 
  [13:10:43.649]  length: 1 (resolved future 1)
  [13:10:50.338]  length: 0 (resolved future 2)
  [13:10:50.338] resolve() on list ... DONE
  [13:10:50.338] - relaying conditions of futures
  [13:10:50.339] result() for ClusterFuture ...
  [13:10:50.339] - Validating connection of MultisessionFuture
  [13:10:50.340] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:50.340] Future state: 'finished'
  [13:10:50.341] result() for ClusterFuture ...
  [13:10:50.341] - result already collected: FutureResult
  [13:10:50.341] result() for ClusterFuture ... done
  foreach() - level 2 ...
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 11796 cannot be opened
  [13:10:50.342] result() for ClusterFuture ...
  [13:10:50.342] - Validating connection of MultisessionFuture
  [13:10:50.379] - class(result): FutureResult
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:10:50.379] Future state: 'finished'
  [13:10:50.380] result() for ClusterFuture ...
  [13:10:50.380] - result already collected: FutureResult
  [13:10:50.380] result() for ClusterFuture ... done
  foreach() - level 2 ...
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  foreach() - level 2 ... DONE
  [13:10:50.381] - collecting values of futures
  [13:10:50.382] result() for ClusterFuture ...
  [13:10:50.382] - result already collected: FutureResult
  [13:10:50.382] result() for ClusterFuture ... done
  [13:10:50.383] result() for ClusterFuture ...
  [13:10:50.383] - result already collected: FutureResult
  [13:10:50.383] result() for ClusterFuture ... done
  [13:10:50.384] - accumulating results
  [13:10:50.385] - processing errors (handler = 'stop')
  Error in { : 
    task 1 failed - "Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 11796 cannot be opened' (which suggests that this port is either already occupied by another process or blocked by the firewall on your local machine)
   * The localhost socket connection that failed to connect to the R worker used port 11796 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=UNKNOWN:5452:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/Rtmpd8G1Ds/future.parent=5452.154c1c6ed664.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11796 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   
  Calls: %dopar% -> <Anonymous>
  Execution halted