Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/3s]
  Running ‘doRNG,dopar.R’ [3s/34s]
  Running ‘doRNG,dorng.R’ [6s/39s]
  Running ‘foreach,errors.R’ [7s/101s]
  Running ‘foreach,globals.R’ [8s/101s]
  Running ‘foreach,nested.R’ [8s/140s]
  Running ‘foreach,nested_dopar.R’ [16s/194s]
  Running ‘foreach.R’ [11s/50s]
  Running ‘future.BatchJobs.R’ [27s/32s]
  Running ‘future.batchtools.R’ [36s/39s]
  Running ‘options.R’ [4s/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/1s]
  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
  [05:31:52.536] plan(): Setting new future strategy stack:
  [05:31:52.537] List of future strategies:
  [05:31:52.537] 1. sequential:
  [05:31:52.537]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.537]    - tweaked: FALSE
  [05:31:52.537]    - call: future::plan(future::sequential)
  [05:31:52.539] 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 }
  [05:31:52.544] doFuture() ...
  [05:31:52.547] - dummy globals (as locals): [1] 'j'
  [05:31:52.548] - R expression:
  [05:31:52.548] {
  [05:31:52.548]     doFuture::registerDoFuture()
  [05:31:52.548]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.548]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.548]         j <- NULL
  [05:31:52.548]         ...future.env <- environment()
  [05:31:52.548]         local({
  [05:31:52.548]             for (name in names(...future.x_jj)) {
  [05:31:52.548]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.548]                   inherits = FALSE)
  [05:31:52.548]             }
  [05:31:52.548]         })
  [05:31:52.548]         tryCatch({
  [05:31:52.548]             j
  [05:31:52.548]         }, error = identity)
  [05:31:52.548]     })
  [05:31:52.548] }
  [05:31:52.549] - identifying globals and packages ...
  [05:31:52.551] getGlobalsAndPackages() ...
  [05:31:52.552] Searching for globals...
  [05:31:52.587] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [05:31:52.587] Searching for globals ... DONE
  [05:31:52.588] Resolving globals: FALSE
  [05:31:52.590] The total size of the 1 globals is 0 bytes (0 bytes)
  [05:31:52.591] - globals: [1] '...future.x_ii'
  [05:31:52.591] 
  [05:31:52.591] getGlobalsAndPackages() ... DONE
  [05:31:52.592] List of 1
  [05:31:52.592]  $ ...future.x_ii: NULL
  [05:31:52.592]  - attr(*, "where")=List of 1
  [05:31:52.592]   ..$ ...future.x_ii:<environment: 0x556d9d069a10> 
  [05:31:52.592]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.592]  - attr(*, "resolved")= logi FALSE
  [05:31:52.592]  - attr(*, "total_size")= num 0
  [05:31:52.603]   - R expression:
  [05:31:52.603] {
  [05:31:52.603]     doFuture::registerDoFuture()
  [05:31:52.603]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.603]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.603]         j <- NULL
  [05:31:52.603]         ...future.env <- environment()
  [05:31:52.603]         local({
  [05:31:52.603]             for (name in names(...future.x_jj)) {
  [05:31:52.603]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.603]                   inherits = FALSE)
  [05:31:52.603]             }
  [05:31:52.603]         })
  [05:31:52.603]         tryCatch({
  [05:31:52.603]             j
  [05:31:52.603]         }, error = identity)
  [05:31:52.603]     })
  [05:31:52.603] }
  [05:31:52.604]   - globals: [1] '...future.x_ii'
  [05:31:52.604] List of 1
  [05:31:52.604]  $ ...future.x_ii: NULL
  [05:31:52.604]  - attr(*, "where")=List of 1
  [05:31:52.604]   ..$ ...future.x_ii:<environment: 0x556d9d069a10> 
  [05:31:52.604]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.604]  - attr(*, "resolved")= logi FALSE
  [05:31:52.604]  - attr(*, "total_size")= num 0
  [05:31:52.610]   - packages: [1] 'doFuture'
  [05:31:52.610] - identifying globals and packages ... DONE
  [05:31:52.611] Number of chunks: 1
  [05:31:52.612] Number of futures (= number of chunks): 1
  [05:31:52.612] Launching 1 futures (chunks) ...
  [05:31:52.612] Chunk #1 of 1 ...
  [05:31:52.613]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:52.613] getGlobalsAndPackages() ...
  [05:31:52.613] Searching for globals...
  [05:31:52.614] 
  [05:31:52.615] Searching for globals ... DONE
  [05:31:52.615] - globals: [0] <none>
  [05:31:52.615] getGlobalsAndPackages() ... DONE
  [05:31:52.616] 
  [05:31:52.616] 
  [05:31:52.616]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:52.617] getGlobalsAndPackages() ...
  [05:31:52.618] - globals passed as-is: [1] '...future.x_ii'
  [05:31:52.618] Resolving globals: FALSE
  [05:31:52.619] The total size of the 1 globals is 56 bytes (56 bytes)
  [05:31:52.619] - globals: [1] '...future.x_ii'
  [05:31:52.620] 
  [05:31:52.620] getGlobalsAndPackages() ... DONE
  [05:31:52.623] Packages needed by the future expression (n = 1): 'doFuture'
  [05:31:52.623] Packages needed by future strategies (n = 0): <none>
  [05:31:52.628] {
  [05:31:52.628]     {
  [05:31:52.628]         ...future.startTime <- Sys.time()
  [05:31:52.628]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:52.628]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:52.628]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [05:31:52.628]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:52.628]             future.resolve.recursive = NULL, width = 80L)
  [05:31:52.628]         {
  [05:31:52.628]             {
  [05:31:52.628]                 {
  [05:31:52.628]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:52.628]                   version <- if (has_future) 
  [05:31:52.628]                     packageVersion("future")
  [05:31:52.628]                   else NULL
  [05:31:52.628]                   if (!has_future || version < "1.8.0") {
  [05:31:52.628]                     info <- c(r_version = gsub("R version ", 
  [05:31:52.628]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:52.628]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:52.628]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:52.628]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:52.628]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:52.628]                     info <- paste(info, collapse = "; ")
  [05:31:52.628]                     if (!has_future) {
  [05:31:52.628]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:52.628]                         info)
  [05:31:52.628]                     }
  [05:31:52.628]                     else {
  [05:31:52.628]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:52.628]                         info, version)
  [05:31:52.628]                     }
  [05:31:52.628]                     stop(msg)
  [05:31:52.628]                   }
  [05:31:52.628]                 }
  [05:31:52.628]                 local({
  [05:31:52.628]                   for (pkg in "doFuture") {
  [05:31:52.628]                     loadNamespace(pkg)
  [05:31:52.628]                     library(pkg, character.only = TRUE)
  [05:31:52.628]                   }
  [05:31:52.628]                 })
  [05:31:52.628]             }
  [05:31:52.628]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:52.628]         }
  [05:31:52.628]     }
  [05:31:52.628]     if (is.na(TRUE)) {
  [05:31:52.628]     }
  [05:31:52.628]     else {
  [05:31:52.628]         if (TRUE) {
  [05:31:52.628]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:52.628]         }
  [05:31:52.628]         else {
  [05:31:52.628]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:52.628]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:52.628]         }
  [05:31:52.628]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:52.628]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:52.628]             sink(type = "output", split = FALSE)
  [05:31:52.628]             close(...future.stdout)
  [05:31:52.628]         }, add = TRUE)
  [05:31:52.628]     }
  [05:31:52.628]     ...future.frame <- sys.nframe()
  [05:31:52.628]     ...future.conditions <- list()
  [05:31:52.628]     ...future.result <- tryCatch({
  [05:31:52.628]         withCallingHandlers({
  [05:31:52.628]             ...future.value <- local({
  [05:31:52.628]                 doFuture::registerDoFuture()
  [05:31:52.628]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.628]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.628]                   j <- NULL
  [05:31:52.628]                   ...future.env <- environment()
  [05:31:52.628]                   local({
  [05:31:52.628]                     for (name in names(...future.x_jj)) {
  [05:31:52.628]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.628]                         inherits = FALSE)
  [05:31:52.628]                     }
  [05:31:52.628]                   })
  [05:31:52.628]                   tryCatch({
  [05:31:52.628]                     j
  [05:31:52.628]                   }, error = identity)
  [05:31:52.628]                 })
  [05:31:52.628]             })
  [05:31:52.628]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:52.628]                 version = "1.8")
  [05:31:52.628]         }, condition = local({
  [05:31:52.628]             inherits <- base::inherits
  [05:31:52.628]             invokeRestart <- base::invokeRestart
  [05:31:52.628]             length <- base::length
  [05:31:52.628]             seq.int <- base::seq.int
  [05:31:52.628]             sys.calls <- base::sys.calls
  [05:31:52.628]             `[[` <- base::`[[`
  [05:31:52.628]             `+` <- base::`+`
  [05:31:52.628]             `<<-` <- base::`<<-`
  [05:31:52.628]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:52.628]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:52.628]                   3L)]
  [05:31:52.628]             }
  [05:31:52.628]             function(cond) {
  [05:31:52.628]                 if (inherits(cond, "error")) {
  [05:31:52.628]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.628]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:52.628]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:52.628]                     signaled = 0L)
  [05:31:52.628]                   signalCondition(cond)
  [05:31:52.628]                 }
  [05:31:52.628]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:52.628]                 ))) {
  [05:31:52.628]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:52.628]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.628]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:52.628]                   if (inherits(cond, "message")) {
  [05:31:52.628]                     if (!signal) 
  [05:31:52.628]                       invokeRestart("muffleMessage")
  [05:31:52.628]                   }
  [05:31:52.628]                   else if (inherits(cond, "warning")) {
  [05:31:52.628]                     if (!signal) 
  [05:31:52.628]                       invokeRestart("muffleWarning")
  [05:31:52.628]                   }
  [05:31:52.628]                   else {
  [05:31:52.628]                     if (!signal) {
  [05:31:52.628]                       restarts <- computeRestarts(cond)
  [05:31:52.628]                       for (restart in restarts) {
  [05:31:52.628]                         name <- restart$name
  [05:31:52.628]                         if (is.null(name)) 
  [05:31:52.628]                           next
  [05:31:52.628]                         if (!grepl("^muffle", name)) 
  [05:31:52.628]                           next
  [05:31:52.628]                         invokeRestart(restart)
  [05:31:52.628]                         break
  [05:31:52.628]                       }
  [05:31:52.628]                     }
  [05:31:52.628]                   }
  [05:31:52.628]                 }
  [05:31:52.628]             }
  [05:31:52.628]         }))
  [05:31:52.628]     }, error = function(ex) {
  [05:31:52.628]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:52.628]             version = "1.8"), class = "FutureResult")
  [05:31:52.628]     }, finally = {
  [05:31:52.628]         {
  [05:31:52.628]             NULL
  [05:31:52.628]             future::plan(list(function (expr, envir = parent.frame(), 
  [05:31:52.628]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:52.628]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:52.628]                 label = NULL, ...) 
  [05:31:52.628]             {
  [05:31:52.628]                 if (substitute) 
  [05:31:52.628]                   expr <- substitute(expr)
  [05:31:52.628]                 local <- as.logical(local)
  [05:31:52.628]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:52.628]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:52.628]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:52.628]                   label = label, ...)
  [05:31:52.628]                 if (!future$lazy) 
  [05:31:52.628]                   future <- run(future)
  [05:31:52.628]                 invisible(future)
  [05:31:52.628]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:52.628]         }
  [05:31:52.628]         options(...future.oldOptions)
  [05:31:52.628]     })
  [05:31:52.628]     if (is.na(TRUE)) {
  [05:31:52.628]     }
  [05:31:52.628]     else {
  [05:31:52.628]         sink(type = "output", split = FALSE)
  [05:31:52.628]         if (TRUE) {
  [05:31:52.628]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:52.628]         }
  [05:31:52.628]         else {
  [05:31:52.628]             ...future.result["stdout"] <- list(NULL)
  [05:31:52.628]         }
  [05:31:52.628]         close(...future.stdout)
  [05:31:52.628]         ...future.stdout <- NULL
  [05:31:52.628]     }
  [05:31:52.628]     ...future.result$conditions <- ...future.conditions
  [05:31:52.628]     ...future.result
  [05:31:52.628] }
  [05:31:52.634] plan(): Setting new future strategy stack:
  [05:31:52.634] List of future strategies:
  [05:31:52.634] 1. sequential:
  [05:31:52.634]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.634]    - tweaked: FALSE
  [05:31:52.634]    - call: NULL
  [05:31:52.635] plan(): nbrOfWorkers() = 1
  [05:31:52.637] plan(): Setting new future strategy stack:
  [05:31:52.637] List of future strategies:
  [05:31:52.637] 1. sequential:
  [05:31:52.637]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.637]    - tweaked: FALSE
  [05:31:52.637]    - call: future::plan(future::sequential)
  [05:31:52.638] plan(): nbrOfWorkers() = 1
  [05:31:52.639] SequentialFuture started (and completed)
  [05:31:52.640] Chunk #1 of 1 ... DONE
  [05:31:52.641] Launching 1 futures (chunks) ... DONE
  [05:31:52.641] - resolving futures
  [05:31:52.641]   - gathering results & relaying conditions (except errors)
  [05:31:52.642] resolve() on list ...
  [05:31:52.642]  recursive: 0
  [05:31:52.643]  length: 1
  [05:31:52.644] 
  [05:31:52.644] Future #1
  [05:31:52.645] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:52.645] - nx: 1
  [05:31:52.645] - relay: TRUE
  [05:31:52.646] - stdout: TRUE
  [05:31:52.646] - signal: TRUE
  [05:31:52.646] - resignal: FALSE
  [05:31:52.647] - force: FALSE
  [05:31:52.647] - relayed: [n=1] FALSE
  [05:31:52.647] - queued futures: [n=1] FALSE
  [05:31:52.647]  - until=1
  [05:31:52.648]  - relaying element #1
  [05:31:52.648] - relayed: [n=1] TRUE
  [05:31:52.649] - queued futures: [n=1] TRUE
  [05:31:52.649] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:52.649]  length: 0 (resolved future 1)
  [05:31:52.650] Relaying remaining futures
  [05:31:52.650] signalConditionsASAP(NULL, pos=0) ...
  [05:31:52.650] - nx: 1
  [05:31:52.651] - relay: TRUE
  [05:31:52.651] - stdout: TRUE
  [05:31:52.651] - signal: TRUE
  [05:31:52.651] - resignal: FALSE
  [05:31:52.652] - force: FALSE
  [05:31:52.652] - relayed: [n=1] TRUE
  [05:31:52.652] - queued futures: [n=1] TRUE
   - flush all
  [05:31:52.653] - relayed: [n=1] TRUE
  [05:31:52.653] - queued futures: [n=1] TRUE
  [05:31:52.653] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:52.654] resolve() on list ... DONE
  [05:31:52.654] - collecting values of futures
  [05:31:52.654] - accumulating results
  [05:31:52.657] - processing errors (handler = 'stop')
  [05:31:52.657] - extracting results
  [05:31:52.658] 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 }
  + }
  [05:31:52.660] doFuture() ...
  [05:31:52.661] - dummy globals (as locals): [1] 'i'
  [05:31:52.662] - R expression:
  [05:31:52.662] {
  [05:31:52.662]     doFuture::registerDoFuture()
  [05:31:52.662]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.662]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.662]         i <- NULL
  [05:31:52.662]         ...future.env <- environment()
  [05:31:52.662]         local({
  [05:31:52.662]             for (name in names(...future.x_jj)) {
  [05:31:52.662]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.662]                   inherits = FALSE)
  [05:31:52.662]             }
  [05:31:52.662]         })
  [05:31:52.662]         tryCatch({
  [05:31:52.662]             foreach(j = 1) %dopar% {
  [05:31:52.662]                 j
  [05:31:52.662]             }
  [05:31:52.662]         }, error = identity)
  [05:31:52.662]     })
  [05:31:52.662] }
  [05:31:52.663] - identifying globals and packages ...
  [05:31:52.663] getGlobalsAndPackages() ...
  [05:31:52.664] Searching for globals...
  [05:31:52.682] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [05:31:52.683] Searching for globals ... DONE
  [05:31:52.683] Resolving globals: FALSE
  [05:31:52.685] The total size of the 1 globals is 0 bytes (0 bytes)
  [05:31:52.685] - globals: [1] '...future.x_ii'
  [05:31:52.686] - packages: [1] 'foreach'
  [05:31:52.686] getGlobalsAndPackages() ... DONE
  [05:31:52.686] List of 1
  [05:31:52.686]  $ ...future.x_ii: NULL
  [05:31:52.686]  - attr(*, "where")=List of 1
  [05:31:52.686]   ..$ ...future.x_ii:<environment: 0x556d9d577db8> 
  [05:31:52.686]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.686]  - attr(*, "resolved")= logi FALSE
  [05:31:52.686]  - attr(*, "total_size")= num 0
  [05:31:52.692]   - R expression:
  [05:31:52.693] {
  [05:31:52.693]     doFuture::registerDoFuture()
  [05:31:52.693]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.693]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.693]         i <- NULL
  [05:31:52.693]         ...future.env <- environment()
  [05:31:52.693]         local({
  [05:31:52.693]             for (name in names(...future.x_jj)) {
  [05:31:52.693]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.693]                   inherits = FALSE)
  [05:31:52.693]             }
  [05:31:52.693]         })
  [05:31:52.693]         tryCatch({
  [05:31:52.693]             foreach(j = 1) %dopar% {
  [05:31:52.693]                 j
  [05:31:52.693]             }
  [05:31:52.693]         }, error = identity)
  [05:31:52.693]     })
  [05:31:52.693] }
  [05:31:52.693]   - globals: [1] '...future.x_ii'
  [05:31:52.694] List of 1
  [05:31:52.694]  $ ...future.x_ii: NULL
  [05:31:52.694]  - attr(*, "where")=List of 1
  [05:31:52.694]   ..$ ...future.x_ii:<environment: 0x556d9d577db8> 
  [05:31:52.694]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.694]  - attr(*, "resolved")= logi FALSE
  [05:31:52.694]  - attr(*, "total_size")= num 0
  [05:31:52.704]   - packages: [2] 'doFuture', 'foreach'
  [05:31:52.704] - identifying globals and packages ... DONE
  [05:31:52.704] Number of chunks: 1
  [05:31:52.705] Number of futures (= number of chunks): 1
  [05:31:52.705] Launching 1 futures (chunks) ...
  [05:31:52.705] Chunk #1 of 1 ...
  [05:31:52.706]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:52.706] getGlobalsAndPackages() ...
  [05:31:52.706] Searching for globals...
  [05:31:52.707] 
  [05:31:52.707] Searching for globals ... DONE
  [05:31:52.708] - globals: [0] <none>
  [05:31:52.708] getGlobalsAndPackages() ... DONE
  [05:31:52.708] 
  [05:31:52.708] 
  [05:31:52.709]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:52.709] getGlobalsAndPackages() ...
  [05:31:52.709] - globals passed as-is: [1] '...future.x_ii'
  [05:31:52.710] Resolving globals: FALSE
  [05:31:52.711] The total size of the 1 globals is 56 bytes (56 bytes)
  [05:31:52.711] - globals: [1] '...future.x_ii'
  [05:31:52.711] 
  [05:31:52.712] getGlobalsAndPackages() ... DONE
  [05:31:52.713] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [05:31:52.714] Packages needed by future strategies (n = 0): <none>
  [05:31:52.719] {
  [05:31:52.719]     {
  [05:31:52.719]         ...future.startTime <- Sys.time()
  [05:31:52.719]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:52.719]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:52.719]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:52.719]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:52.719]             future.resolve.recursive = NULL, width = 80L)
  [05:31:52.719]         {
  [05:31:52.719]             {
  [05:31:52.719]                 {
  [05:31:52.719]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:52.719]                   version <- if (has_future) 
  [05:31:52.719]                     packageVersion("future")
  [05:31:52.719]                   else NULL
  [05:31:52.719]                   if (!has_future || version < "1.8.0") {
  [05:31:52.719]                     info <- c(r_version = gsub("R version ", 
  [05:31:52.719]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:52.719]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:52.719]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:52.719]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:52.719]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:52.719]                     info <- paste(info, collapse = "; ")
  [05:31:52.719]                     if (!has_future) {
  [05:31:52.719]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:52.719]                         info)
  [05:31:52.719]                     }
  [05:31:52.719]                     else {
  [05:31:52.719]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:52.719]                         info, version)
  [05:31:52.719]                     }
  [05:31:52.719]                     stop(msg)
  [05:31:52.719]                   }
  [05:31:52.719]                 }
  [05:31:52.719]                 local({
  [05:31:52.719]                   for (pkg in c("doFuture", "foreach")) {
  [05:31:52.719]                     loadNamespace(pkg)
  [05:31:52.719]                     library(pkg, character.only = TRUE)
  [05:31:52.719]                   }
  [05:31:52.719]                 })
  [05:31:52.719]             }
  [05:31:52.719]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:52.719]         }
  [05:31:52.719]     }
  [05:31:52.719]     if (is.na(TRUE)) {
  [05:31:52.719]     }
  [05:31:52.719]     else {
  [05:31:52.719]         if (TRUE) {
  [05:31:52.719]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:52.719]         }
  [05:31:52.719]         else {
  [05:31:52.719]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:52.719]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:52.719]         }
  [05:31:52.719]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:52.719]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:52.719]             sink(type = "output", split = FALSE)
  [05:31:52.719]             close(...future.stdout)
  [05:31:52.719]         }, add = TRUE)
  [05:31:52.719]     }
  [05:31:52.719]     ...future.frame <- sys.nframe()
  [05:31:52.719]     ...future.conditions <- list()
  [05:31:52.719]     ...future.result <- tryCatch({
  [05:31:52.719]         withCallingHandlers({
  [05:31:52.719]             ...future.value <- local({
  [05:31:52.719]                 doFuture::registerDoFuture()
  [05:31:52.719]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.719]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.719]                   i <- NULL
  [05:31:52.719]                   ...future.env <- environment()
  [05:31:52.719]                   local({
  [05:31:52.719]                     for (name in names(...future.x_jj)) {
  [05:31:52.719]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.719]                         inherits = FALSE)
  [05:31:52.719]                     }
  [05:31:52.719]                   })
  [05:31:52.719]                   tryCatch({
  [05:31:52.719]                     foreach(j = 1) %dopar% {
  [05:31:52.719]                       j
  [05:31:52.719]                     }
  [05:31:52.719]                   }, error = identity)
  [05:31:52.719]                 })
  [05:31:52.719]             })
  [05:31:52.719]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:52.719]                 version = "1.8")
  [05:31:52.719]         }, condition = local({
  [05:31:52.719]             inherits <- base::inherits
  [05:31:52.719]             invokeRestart <- base::invokeRestart
  [05:31:52.719]             length <- base::length
  [05:31:52.719]             seq.int <- base::seq.int
  [05:31:52.719]             sys.calls <- base::sys.calls
  [05:31:52.719]             `[[` <- base::`[[`
  [05:31:52.719]             `+` <- base::`+`
  [05:31:52.719]             `<<-` <- base::`<<-`
  [05:31:52.719]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:52.719]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:52.719]                   3L)]
  [05:31:52.719]             }
  [05:31:52.719]             function(cond) {
  [05:31:52.719]                 if (inherits(cond, "error")) {
  [05:31:52.719]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.719]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:52.719]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:52.719]                     signaled = 0L)
  [05:31:52.719]                   signalCondition(cond)
  [05:31:52.719]                 }
  [05:31:52.719]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:52.719]                 ))) {
  [05:31:52.719]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:52.719]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.719]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:52.719]                   if (inherits(cond, "message")) {
  [05:31:52.719]                     if (!signal) 
  [05:31:52.719]                       invokeRestart("muffleMessage")
  [05:31:52.719]                   }
  [05:31:52.719]                   else if (inherits(cond, "warning")) {
  [05:31:52.719]                     if (!signal) 
  [05:31:52.719]                       invokeRestart("muffleWarning")
  [05:31:52.719]                   }
  [05:31:52.719]                   else {
  [05:31:52.719]                     if (!signal) {
  [05:31:52.719]                       restarts <- computeRestarts(cond)
  [05:31:52.719]                       for (restart in restarts) {
  [05:31:52.719]                         name <- restart$name
  [05:31:52.719]                         if (is.null(name)) 
  [05:31:52.719]                           next
  [05:31:52.719]                         if (!grepl("^muffle", name)) 
  [05:31:52.719]                           next
  [05:31:52.719]                         invokeRestart(restart)
  [05:31:52.719]                         break
  [05:31:52.719]                       }
  [05:31:52.719]                     }
  [05:31:52.719]                   }
  [05:31:52.719]                 }
  [05:31:52.719]             }
  [05:31:52.719]         }))
  [05:31:52.719]     }, error = function(ex) {
  [05:31:52.719]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:52.719]             version = "1.8"), class = "FutureResult")
  [05:31:52.719]     }, finally = {
  [05:31:52.719]         {
  [05:31:52.719]             NULL
  [05:31:52.719]             future::plan(list(function (expr, envir = parent.frame(), 
  [05:31:52.719]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:52.719]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:52.719]                 label = NULL, ...) 
  [05:31:52.719]             {
  [05:31:52.719]                 if (substitute) 
  [05:31:52.719]                   expr <- substitute(expr)
  [05:31:52.719]                 local <- as.logical(local)
  [05:31:52.719]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:52.719]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:52.719]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:52.719]                   label = label, ...)
  [05:31:52.719]                 if (!future$lazy) 
  [05:31:52.719]                   future <- run(future)
  [05:31:52.719]                 invisible(future)
  [05:31:52.719]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:52.719]         }
  [05:31:52.719]         options(...future.oldOptions)
  [05:31:52.719]     })
  [05:31:52.719]     if (is.na(TRUE)) {
  [05:31:52.719]     }
  [05:31:52.719]     else {
  [05:31:52.719]         sink(type = "output", split = FALSE)
  [05:31:52.719]         if (TRUE) {
  [05:31:52.719]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:52.719]         }
  [05:31:52.719]         else {
  [05:31:52.719]             ...future.result["stdout"] <- list(NULL)
  [05:31:52.719]         }
  [05:31:52.719]         close(...future.stdout)
  [05:31:52.719]         ...future.stdout <- NULL
  [05:31:52.719]     }
  [05:31:52.719]     ...future.result$conditions <- ...future.conditions
  [05:31:52.719]     ...future.result
  [05:31:52.719] }
  [05:31:52.724] plan(): Setting new future strategy stack:
  [05:31:52.725] List of future strategies:
  [05:31:52.725] 1. sequential:
  [05:31:52.725]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.725]    - tweaked: FALSE
  [05:31:52.725]    - call: NULL
  [05:31:52.726] plan(): nbrOfWorkers() = 1
  [05:31:52.826] plan(): Setting new future strategy stack:
  [05:31:52.827] List of future strategies:
  [05:31:52.827] 1. sequential:
  [05:31:52.827]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.827]    - tweaked: FALSE
  [05:31:52.827]    - call: future::plan(future::sequential)
  [05:31:52.828] plan(): nbrOfWorkers() = 1
  [05:31:52.828] SequentialFuture started (and completed)
  [05:31:52.829] signalConditions() ...
  [05:31:52.829]  - include = 'immediateCondition'
  [05:31:52.829]  - exclude = 
  [05:31:52.830]  - resignal = FALSE
  [05:31:52.830]  - Number of conditions: 96
  [05:31:52.831] signalConditions() ... done
  [05:31:52.831] Chunk #1 of 1 ... DONE
  [05:31:52.832] Launching 1 futures (chunks) ... DONE
  [05:31:52.832] - resolving futures
  [05:31:52.832]   - gathering results & relaying conditions (except errors)
  [05:31:52.832] resolve() on list ...
  [05:31:52.833]  recursive: 0
  [05:31:52.833]  length: 1
  [05:31:52.833] 
  [05:31:52.834] Future #1
  [05:31:52.834] signalConditions() ...
  [05:31:52.838]  - include = 'immediateCondition'
  [05:31:52.838]  - exclude = 
  [05:31:52.839]  - resignal = FALSE
  [05:31:52.839]  - Number of conditions: 96
  [05:31:52.840] signalConditions() ... done
  [05:31:52.840] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:52.840] - nx: 1
  [05:31:52.841] - relay: TRUE
  [05:31:52.841] - stdout: TRUE
  [05:31:52.841] - signal: TRUE
  [05:31:52.841] - resignal: FALSE
  [05:31:52.842] - force: FALSE
  [05:31:52.842] - relayed: [n=1] FALSE
  [05:31:52.842] - queued futures: [n=1] FALSE
  [05:31:52.843]  - until=1
  [05:31:52.843]  - relaying element #1
  [05:31:52.843] signalConditions() ...
  [05:31:52.844]  - include = 'immediateCondition'
  [05:31:52.844]  - exclude = 
  [05:31:52.844]  - resignal = FALSE
  [05:31:52.845]  - Number of conditions: 96
  [05:31:52.845] signalConditions() ... done
  [05:31:52.846] signalConditions() ...
  [05:31:52.846]  - include = 'condition'
  [05:31:52.846]  - exclude = 
  [05:31:52.847]  - resignal = FALSE
  [05:31:52.847]  - Number of conditions: 96
  [05:31:52.847]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:52.727] doFuture() ...
  [05:31:52.848]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:52.728] - dummy globals (as locals): [1] 'j'
  [05:31:52.848]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:52.729] - R expression:
  [05:31:52.848]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:31:52.730] {
  [05:31:52.730]     doFuture::registerDoFuture()
  [05:31:52.730]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.730]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.730]         j <- NULL
  [05:31:52.730]         ...future.env <- environment()
  [05:31:52.730]         local({
  [05:31:52.730]             for (name in names(...future.x_jj)) {
  [05:31:52.730]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.730]                   inherits = FALSE)
  [05:31:52.730]             }
  [05:31:52.730]         })
  [05:31:52.730]         tryCatch({
  [05:31:52.730]             j
  [05:31:52.730]         }, error = identity)
  [05:31:52.730]     })
  [05:31:52.730] }
  [05:31:52.849]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:31:52.731] - identifying globals and packages ...
  [05:31:52.849]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:31:52.731] getGlobalsAndPackages() ...
  [05:31:52.850]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:31:52.732] Searching for globals...
  [05:31:52.850]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:31:52.748] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [05:31:52.851]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:31:52.749] Searching for globals ... DONE
  [05:31:52.851]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:31:52.749] Resolving globals: FALSE
  [05:31:52.852]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:31:52.751] The total size of the 1 globals is 0 bytes (0 bytes)
  [05:31:52.852]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:31:52.751] - globals: [1] '...future.x_ii'
  [05:31:52.852]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:31:52.752] 
  [05:31:52.853]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:31:52.759] getGlobalsAndPackages() ... DONE
  [05:31:52.853]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:31:52.759] List of 1
  [05:31:52.759]  $ ...future.x_ii: NULL
  [05:31:52.759]  - attr(*, "where")=List of 1
  [05:31:52.759]   ..$ ...future.x_ii:<environment: 0x556d9d01d708> 
  [05:31:52.759]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.759]  - attr(*, "resolved")= logi FALSE
  [05:31:52.759]  - attr(*, "total_size")= num 0
  [05:31:52.854]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:31:52.766]   - R expression:
  [05:31:52.854]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:31:52.766] {
  [05:31:52.766]     doFuture::registerDoFuture()
  [05:31:52.766]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.766]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.766]         j <- NULL
  [05:31:52.766]         ...future.env <- environment()
  [05:31:52.766]         local({
  [05:31:52.766]             for (name in names(...future.x_jj)) {
  [05:31:52.766]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.766]                   inherits = FALSE)
  [05:31:52.766]             }
  [05:31:52.766]         })
  [05:31:52.766]         tryCatch({
  [05:31:52.766]             j
  [05:31:52.766]         }, error = identity)
  [05:31:52.766]     })
  [05:31:52.766] }
  [05:31:52.855]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:31:52.767]   - globals: [1] '...future.x_ii'
  [05:31:52.855]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:31:52.767] List of 1
  [05:31:52.767]  $ ...future.x_ii: NULL
  [05:31:52.767]  - attr(*, "where")=List of 1
  [05:31:52.767]   ..$ ...future.x_ii:<environment: 0x556d9d01d708> 
  [05:31:52.767]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:52.767]  - attr(*, "resolved")= logi FALSE
  [05:31:52.767]  - attr(*, "total_size")= num 0
  [05:31:52.855]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:31:52.780]   - packages: [1] 'doFuture'
  [05:31:52.856]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:31:52.780] - identifying globals and packages ... DONE
  [05:31:52.856]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:31:52.781] Number of chunks: 1
  [05:31:52.857]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:31:52.781] Number of futures (= number of chunks): 1
  [05:31:52.857]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:31:52.781] Launching 1 futures (chunks) ...
  [05:31:52.858]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:31:52.782] Chunk #1 of 1 ...
  [05:31:52.858]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:31:52.782]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:52.859]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:31:52.782] getGlobalsAndPackages() ...
  [05:31:52.859]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:31:52.783] Searching for globals...
  [05:31:52.860]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:31:52.784] 
  [05:31:52.860]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:31:52.784] Searching for globals ... DONE
  [05:31:52.860]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:31:52.785] - globals: [0] <none>
  [05:31:52.861]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:31:52.785] getGlobalsAndPackages() ... DONE
  [05:31:52.861]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:31:52.785] 
  [05:31:52.862]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:31:52.786] 
  [05:31:52.862]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:31:52.786]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:52.863]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:31:52.787] getGlobalsAndPackages() ...
  [05:31:52.863]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:31:52.787] - globals passed as-is: [1] '...future.x_ii'
  [05:31:52.864]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:31:52.788] Resolving globals: FALSE
  [05:31:52.864]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:31:52.788] The total size of the 1 globals is 56 bytes (56 bytes)
  [05:31:52.864]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:31:52.789] - globals: [1] '...future.x_ii'
  [05:31:52.865]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:31:52.789] 
  [05:31:52.865]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:31:52.790] getGlobalsAndPackages() ... DONE
  [05:31:52.866]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:31:52.791] Packages needed by the future expression (n = 1): 'doFuture'
  [05:31:52.866]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:31:52.792] Packages needed by future strategies (n = 0): <none>
  [05:31:52.866]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:31:52.797] {
  [05:31:52.797]     {
  [05:31:52.797]         ...future.startTime <- Sys.time()
  [05:31:52.797]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:52.797]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:52.797]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:52.797]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:52.797]             future.resolve.recursive = NULL, width = 80L)
  [05:31:52.797]         {
  [05:31:52.797]             {
  [05:31:52.797]                 {
  [05:31:52.797]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:52.797]                   version <- if (has_future) 
  [05:31:52.797]                     packageVersion("future")
  [05:31:52.797]                   else NULL
  [05:31:52.797]                   if (!has_future || version < "1.8.0") {
  [05:31:52.797]                     info <- c(r_version = gsub("R version ", 
  [05:31:52.797]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:52.797]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:52.797]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:52.797]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:52.797]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:52.797]                     info <- paste(info, collapse = "; ")
  [05:31:52.797]                     if (!has_future) {
  [05:31:52.797]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:52.797]                         info)
  [05:31:52.797]                     }
  [05:31:52.797]                     else {
  [05:31:52.797]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:52.797]                         info, version)
  [05:31:52.797]                     }
  [05:31:52.797]                     stop(msg)
  [05:31:52.797]                   }
  [05:31:52.797]                 }
  [05:31:52.797]                 local({
  [05:31:52.797]                   for (pkg in "doFuture") {
  [05:31:52.797]                     loadNamespace(pkg)
  [05:31:52.797]                     library(pkg, character.only = TRUE)
  [05:31:52.797]                   }
  [05:31:52.797]                 })
  [05:31:52.797]             }
  [05:31:52.797]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:52.797]         }
  [05:31:52.797]     }
  [05:31:52.797]     if (is.na(TRUE)) {
  [05:31:52.797]     }
  [05:31:52.797]     else {
  [05:31:52.797]         if (TRUE) {
  [05:31:52.797]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:52.797]         }
  [05:31:52.797]         else {
  [05:31:52.797]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:52.797]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:52.797]         }
  [05:31:52.797]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:52.797]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:52.797]             sink(type = "output", split = FALSE)
  [05:31:52.797]             close(...future.stdout)
  [05:31:52.797]         }, add = TRUE)
  [05:31:52.797]     }
  [05:31:52.797]     ...future.frame <- sys.nframe()
  [05:31:52.797]     ...future.conditions <- list()
  [05:31:52.797]     ...future.result <- tryCatch({
  [05:31:52.797]         withCallingHandlers({
  [05:31:52.797]             ...future.value <- local({
  [05:31:52.797]                 doFuture::registerDoFuture()
  [05:31:52.797]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:52.797]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:52.797]                   j <- NULL
  [05:31:52.797]                   ...future.env <- environment()
  [05:31:52.797]                   local({
  [05:31:52.797]                     for (name in names(...future.x_jj)) {
  [05:31:52.797]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:52.797]                         inherits = FALSE)
  [05:31:52.797]                     }
  [05:31:52.797]                   })
  [05:31:52.797]                   tryCatch({
  [05:31:52.797]                     j
  [05:31:52.797]                   }, error = identity)
  [05:31:52.797]                 })
  [05:31:52.797]             })
  [05:31:52.797]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:52.797]                 version = "1.8")
  [05:31:52.797]         }, condition = local({
  [05:31:52.797]             inherits <- base::inherits
  [05:31:52.797]             invokeRestart <- base::invokeRestart
  [05:31:52.797]             length <- base::length
  [05:31:52.797]             seq.int <- base::seq.int
  [05:31:52.797]             sys.calls <- base::sys.calls
  [05:31:52.797]             `[[` <- base::`[[`
  [05:31:52.797]             `+` <- base::`+`
  [05:31:52.797]             `<<-` <- base::`<<-`
  [05:31:52.797]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:52.797]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:52.797]                   3L)]
  [05:31:52.797]             }
  [05:31:52.797]             function(cond) {
  [05:31:52.797]                 if (inherits(cond, "error")) {
  [05:31:52.797]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.797]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:52.797]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:52.797]                     signaled = 0L)
  [05:31:52.797]                   signalCondition(cond)
  [05:31:52.797]                 }
  [05:31:52.797]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:52.797]                 ))) {
  [05:31:52.797]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:52.797]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:52.797]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:52.797]                   if (inherits(cond, "message")) {
  [05:31:52.797]                     if (!signal) 
  [05:31:52.797]                       invokeRestart("muffleMessage")
  [05:31:52.797]                   }
  [05:31:52.797]                   else if (inherits(cond, "warning")) {
  [05:31:52.797]                     if (!signal) 
  [05:31:52.797]                       invokeRestart("muffleWarning")
  [05:31:52.797]                   }
  [05:31:52.797]                   else {
  [05:31:52.797]                     if (!signal) {
  [05:31:52.797]                       restarts <- computeRestarts(cond)
  [05:31:52.797]                       for (restart in restarts) {
  [05:31:52.797]                         name <- restart$name
  [05:31:52.797]                         if (is.null(name)) 
  [05:31:52.797]                           next
  [05:31:52.797]                         if (!grepl("^muffle", name)) 
  [05:31:52.797]                           next
  [05:31:52.797]                         invokeRestart(restart)
  [05:31:52.797]                         break
  [05:31:52.797]                       }
  [05:31:52.797]                     }
  [05:31:52.797]                   }
  [05:31:52.797]                 }
  [05:31:52.797]             }
  [05:31:52.797]         }))
  [05:31:52.797]     }, error = function(ex) {
  [05:31:52.797]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:52.797]             version = "1.8"), class = "FutureResult")
  [05:31:52.797]     }, finally = {
  [05:31:52.797]         {
  [05:31:52.797]             NULL
  [05:31:52.797]             future::plan(list(function (expr, envir = parent.frame(), 
  [05:31:52.797]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:52.797]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:52.797]                 label = NULL, ...) 
  [05:31:52.797]             {
  [05:31:52.797]                 if (substitute) 
  [05:31:52.797]                   expr <- substitute(expr)
  [05:31:52.797]                 local <- as.logical(local)
  [05:31:52.797]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:52.797]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:52.797]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:52.797]                   label = label, ...)
  [05:31:52.797]                 if (!future$lazy) 
  [05:31:52.797]                   future <- run(future)
  [05:31:52.797]                 invisible(future)
  [05:31:52.797]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:52.797]         }
  [05:31:52.797]         options(...future.oldOptions)
  [05:31:52.797]     })
  [05:31:52.797]     if (is.na(TRUE)) {
  [05:31:52.797]     }
  [05:31:52.797]     else {
  [05:31:52.797]         sink(type = "output", split = FALSE)
  [05:31:52.797]         if (TRUE) {
  [05:31:52.797]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:52.797]         }
  [05:31:52.797]         else {
  [05:31:52.797]             ...future.result["stdout"] <- list(NULL)
  [05:31:52.797]         }
  [05:31:52.797]         close(...future.stdout)
  [05:31:52.797]         ...future.stdout <- NULL
  [05:31:52.797]     }
  [05:31:52.797]     ...future.result$conditions <- ...future.conditions
  [05:31:52.797]     ...future.result
  [05:31:52.797] }
  [05:31:52.867]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:31:52.802] plan(): Setting new future strategy stack:
  [05:31:52.867]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:31:52.803] List of future strategies:
  [05:31:52.803] 1. sequential:
  [05:31:52.803]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.803]    - tweaked: FALSE
  [05:31:52.803]    - call: NULL
  [05:31:52.868]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:31:52.804] plan(): nbrOfWorkers() = 1
  [05:31:52.868]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:31:52.805] plan(): Setting new future strategy stack:
  [05:31:52.868]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:31:52.805] List of future strategies:
  [05:31:52.805] 1. sequential:
  [05:31:52.805]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:52.805]    - tweaked: FALSE
  [05:31:52.805]    - call: NULL
  [05:31:52.869]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:31:52.807] plan(): nbrOfWorkers() = 1
  [05:31:52.869]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:31:52.807] SequentialFuture started (and completed)
  [05:31:52.870]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:31:52.808] Chunk #1 of 1 ... DONE
  [05:31:52.870]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:31:52.808] Launching 1 futures (chunks) ... DONE
  [05:31:52.870]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:31:52.809] - resolving futures
  [05:31:52.871]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:31:52.809]   - gathering results & relaying conditions (except errors)
  [05:31:52.871]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:31:52.810] resolve() on list ...
  [05:31:52.872]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:31:52.810]  recursive: 0
  [05:31:52.872]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:31:52.810]  length: 1
  [05:31:52.872]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:31:52.811] 
  [05:31:52.873]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:31:52.811] Future #1
  [05:31:52.873]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:31:52.812] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:52.874]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:31:52.812] - nx: 1
  [05:31:52.874]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:31:52.813] - relay: TRUE
  [05:31:52.874]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:31:52.813] - stdout: TRUE
  [05:31:52.875]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:31:52.813] - signal: TRUE
  [05:31:52.875]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:31:52.814] - resignal: FALSE
  [05:31:52.875]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:31:52.814] - force: FALSE
  [05:31:52.876]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:31:52.814] - relayed: [n=1] FALSE
  [05:31:52.876]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:31:52.815] - queued futures: [n=1] FALSE
  [05:31:52.877]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:31:52.815]  - until=1
  [05:31:52.877]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:31:52.816]  - relaying element #1
  [05:31:52.877]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:31:52.816] - relayed: [n=1] TRUE
  [05:31:52.878]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:31:52.817] - queued futures: [n=1] TRUE
  [05:31:52.878]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:31:52.817] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:52.879]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:31:52.817]  length: 0 (resolved future 1)
  [05:31:52.879]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:31:52.818] Relaying remaining futures
  [05:31:52.880]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:31:52.818] signalConditionsASAP(NULL, pos=0) ...
  [05:31:52.880]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:31:52.819] - nx: 1
  [05:31:52.881]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:31:52.819] - relay: TRUE
  [05:31:52.881]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:31:52.819] - stdout: TRUE
  [05:31:52.882]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:31:52.820] - signal: TRUE
  [05:31:52.882]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:31:52.820] - resignal: FALSE
  [05:31:52.883]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:31:52.821] - force: FALSE
  [05:31:52.883]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:31:52.821] - relayed: [n=1] TRUE
  [05:31:52.883]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:31:52.821] - queued futures: [n=1] TRUE
  [05:31:52.884]  - Condition #87: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:31:52.884]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:31:52.822] - relayed: [n=1] TRUE
  [05:31:52.885]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:31:52.822] - queued futures: [n=1] TRUE
  [05:31:52.885]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:31:52.823] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:52.886]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:31:52.823] resolve() on list ... DONE
  [05:31:52.886]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:31:52.824] - collecting values of futures
  [05:31:52.887]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:31:52.824] - accumulating results
  [05:31:52.887]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:31:52.825] - processing errors (handler = 'stop')
  [05:31:52.887]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:31:52.825] - extracting results
  [05:31:52.888]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:31:52.826] doFuture() ... DONE
  [05:31:52.889] signalConditions() ... done
  [05:31:52.889] - relayed: [n=1] TRUE
  [05:31:52.889] - queued futures: [n=1] TRUE
  [05:31:52.890] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:52.890]  length: 0 (resolved future 1)
  [05:31:52.890] Relaying remaining futures
  [05:31:52.891] signalConditionsASAP(NULL, pos=0) ...
  [05:31:52.891] - nx: 1
  [05:31:52.891] - relay: TRUE
  [05:31:52.891] - stdout: TRUE
  [05:31:52.892] - signal: TRUE
  [05:31:52.892] - resignal: FALSE
  [05:31:52.892] - force: FALSE
  [05:31:52.893] - relayed: [n=1] TRUE
  [05:31:52.893] - queued futures: [n=1] TRUE
   - flush all
  [05:31:52.894] - relayed: [n=1] TRUE
  [05:31:52.894] - queued futures: [n=1] TRUE
  [05:31:52.894] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:52.894] resolve() on list ... DONE
  [05:31:52.895] - collecting values of futures
  [05:31:52.895] signalConditions() ...
  [05:31:52.896]  - include = 'immediateCondition'
  [05:31:52.896]  - exclude = 
  [05:31:52.896]  - resignal = FALSE
  [05:31:52.896]  - Number of conditions: 96
  [05:31:52.897] signalConditions() ... done
  [05:31:52.897] - accumulating results
  [05:31:52.898] - processing errors (handler = 'stop')
  [05:31:52.899] - extracting results
  [05:31:52.899] 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"))
  +         ## future.plan can be either a string or a future function
  +         default <- getOption("future.plan", "sequential")
  +         if (is.function(default)) default <- class(default)
  +         stopifnot(inherits(plan_list, default))
  + 
  +         plan_b <- future::plan("list")
  +         str(plan_b)
  +         stopifnot(
  + 	  inherits(plan_b[[1]], "future"),
  +           inherits(plan_b[[1]], default)
  + 	)
  + 
  +         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.plan", "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')) ...
  [05:31:53.020] plan(): Setting new future strategy stack:
  [05:31:53.020] List of future strategies:
  [05:31:53.020] 1. sequential:
  [05:31:53.020]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.020]    - tweaked: FALSE
  [05:31:53.020]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.020] 2. sequential:
  [05:31:53.020]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.020]    - tweaked: FALSE
  [05:31:53.020]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.053] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [05:31:53.054] doFuture() ...
  [05:31:53.055] - dummy globals (as locals): [1] 'a'
  [05:31:53.056] - R expression:
  [05:31:53.057] {
  [05:31:53.057]     doFuture::registerDoFuture()
  [05:31:53.057]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.057]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.057]         a <- NULL
  [05:31:53.057]         ...future.env <- environment()
  [05:31:53.057]         local({
  [05:31:53.057]             for (name in names(...future.x_jj)) {
  [05:31:53.057]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.057]                   inherits = FALSE)
  [05:31:53.057]             }
  [05:31:53.057]         })
  [05:31:53.057]         tryCatch({
  [05:31:53.057]             plan_list <- future::plan()
  [05:31:53.057]             stopifnot(inherits(plan_list, strategy2))
  [05:31:53.057]             plan_a <- future::plan("list")
  [05:31:53.057]             str(plan_a)
  [05:31:53.057]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.057]             message("foreach() - level 2 ...")
  [05:31:53.057]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.057]                 {
  [05:31:53.057]                   plan_list <- future::plan()
  [05:31:53.057]                   message(capture.output(print(plan_list)))
  [05:31:53.057]                   stopifnot(inherits(plan_list, "future"))
  [05:31:53.057]                   default <- getOption("future.plan", "sequential")
  [05:31:53.057]                   if (is.function(default)) 
  [05:31:53.057]                     default <- class(default)
  [05:31:53.057]                   stopifnot(inherits(plan_list, default))
  [05:31:53.057]                   plan_b <- future::plan("list")
  [05:31:53.057]                   str(plan_b)
  [05:31:53.057]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.057]                     inherits(plan_b[[1]], default))
  [05:31:53.057]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.057]                 }
  [05:31:53.057]             message("foreach() - level 2 ... DONE")
  [05:31:53.057]             y
  [05:31:53.057]         }, error = identity)
  [05:31:53.057]     })
  [05:31:53.057] }
  [05:31:53.058] - identifying globals and packages ...
  [05:31:53.058] getGlobalsAndPackages() ...
  [05:31:53.059] Searching for globals...
  [05:31:53.092] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:31:53.093] Searching for globals ... DONE
  [05:31:53.093] Resolving globals: FALSE
  [05:31:53.096] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:31:53.096] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.096] - packages: [2] 'utils', 'foreach'
  [05:31:53.097] getGlobalsAndPackages() ... DONE
  [05:31:53.097] List of 3
  [05:31:53.097]  $ ...future.x_ii: NULL
  [05:31:53.097]  $ strategy2     : chr "sequential"
  [05:31:53.097]  $ bs            : int [1:3] 3 2 1
  [05:31:53.097]  - attr(*, "where")=List of 3
  [05:31:53.097]   ..$ ...future.x_ii:<environment: 0x556d9b707c98> 
  [05:31:53.097]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:53.097]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:53.097]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.097]  - attr(*, "resolved")= logi FALSE
  [05:31:53.097]  - attr(*, "total_size")= num 184
  [05:31:53.108]   - R expression:
  [05:31:53.109] {
  [05:31:53.109]     doFuture::registerDoFuture()
  [05:31:53.109]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.109]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.109]         a <- NULL
  [05:31:53.109]         ...future.env <- environment()
  [05:31:53.109]         local({
  [05:31:53.109]             for (name in names(...future.x_jj)) {
  [05:31:53.109]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.109]                   inherits = FALSE)
  [05:31:53.109]             }
  [05:31:53.109]         })
  [05:31:53.109]         tryCatch({
  [05:31:53.109]             plan_list <- future::plan()
  [05:31:53.109]             stopifnot(inherits(plan_list, strategy2))
  [05:31:53.109]             plan_a <- future::plan("list")
  [05:31:53.109]             str(plan_a)
  [05:31:53.109]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.109]             message("foreach() - level 2 ...")
  [05:31:53.109]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.109]                 {
  [05:31:53.109]                   plan_list <- future::plan()
  [05:31:53.109]                   message(capture.output(print(plan_list)))
  [05:31:53.109]                   stopifnot(inherits(plan_list, "future"))
  [05:31:53.109]                   default <- getOption("future.plan", "sequential")
  [05:31:53.109]                   if (is.function(default)) 
  [05:31:53.109]                     default <- class(default)
  [05:31:53.109]                   stopifnot(inherits(plan_list, default))
  [05:31:53.109]                   plan_b <- future::plan("list")
  [05:31:53.109]                   str(plan_b)
  [05:31:53.109]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.109]                     inherits(plan_b[[1]], default))
  [05:31:53.109]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.109]                 }
  [05:31:53.109]             message("foreach() - level 2 ... DONE")
  [05:31:53.109]             y
  [05:31:53.109]         }, error = identity)
  [05:31:53.109]     })
  [05:31:53.109] }
  [05:31:53.110]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.110] List of 3
  [05:31:53.110]  $ ...future.x_ii: NULL
  [05:31:53.110]  $ strategy2     : chr "sequential"
  [05:31:53.110]  $ bs            : int [1:3] 3 2 1
  [05:31:53.110]  - attr(*, "where")=List of 3
  [05:31:53.110]   ..$ ...future.x_ii:<environment: 0x556d9b707c98> 
  [05:31:53.110]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:53.110]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:53.110]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.110]  - attr(*, "resolved")= logi FALSE
  [05:31:53.110]  - attr(*, "total_size")= num 184
  [05:31:53.120]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:31:53.121] - identifying globals and packages ... DONE
  [05:31:53.121] Number of chunks: 1
  [05:31:53.121] Number of futures (= number of chunks): 1
  [05:31:53.122] Launching 1 futures (chunks) ...
  [05:31:53.122] Chunk #1 of 1 ...
  [05:31:53.122]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:53.122] getGlobalsAndPackages() ...
  [05:31:53.123] Searching for globals...
  [05:31:53.124] 
  [05:31:53.124] Searching for globals ... DONE
  [05:31:53.124] - globals: [0] <none>
  [05:31:53.125] getGlobalsAndPackages() ... DONE
  [05:31:53.125] 
  [05:31:53.125] 
  [05:31:53.125]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:53.126] getGlobalsAndPackages() ...
  [05:31:53.126] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.127] Resolving globals: FALSE
  [05:31:53.128] The total size of the 3 globals is 296 bytes (296 bytes)
  [05:31:53.128] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.128] 
  [05:31:53.129] getGlobalsAndPackages() ... DONE
  [05:31:53.130] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:31:53.131] Packages needed by future strategies (n = 1): 'future'
  [05:31:53.136] {
  [05:31:53.136]     {
  [05:31:53.136]         ...future.startTime <- Sys.time()
  [05:31:53.136]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:53.136]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:53.136]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:53.136]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:53.136]             future.resolve.recursive = NULL, width = 80L)
  [05:31:53.136]         {
  [05:31:53.136]             {
  [05:31:53.136]                 {
  [05:31:53.136]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:53.136]                   version <- if (has_future) 
  [05:31:53.136]                     packageVersion("future")
  [05:31:53.136]                   else NULL
  [05:31:53.136]                   if (!has_future || version < "1.8.0") {
  [05:31:53.136]                     info <- c(r_version = gsub("R version ", 
  [05:31:53.136]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:53.136]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:53.136]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:53.136]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:53.136]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:53.136]                     info <- paste(info, collapse = "; ")
  [05:31:53.136]                     if (!has_future) {
  [05:31:53.136]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:53.136]                         info)
  [05:31:53.136]                     }
  [05:31:53.136]                     else {
  [05:31:53.136]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:53.136]                         info, version)
  [05:31:53.136]                     }
  [05:31:53.136]                     stop(msg)
  [05:31:53.136]                   }
  [05:31:53.136]                 }
  [05:31:53.136]                 local({
  [05:31:53.136]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:31:53.136]                   "future")) {
  [05:31:53.136]                     loadNamespace(pkg)
  [05:31:53.136]                     library(pkg, character.only = TRUE)
  [05:31:53.136]                   }
  [05:31:53.136]                 })
  [05:31:53.136]             }
  [05:31:53.136]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:53.136]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.136]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:53.136]                 label = NULL, ...) 
  [05:31:53.136]             {
  [05:31:53.136]                 if (substitute) 
  [05:31:53.136]                   expr <- substitute(expr)
  [05:31:53.136]                 local <- as.logical(local)
  [05:31:53.136]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.136]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.136]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.136]                   label = label, ...)
  [05:31:53.136]                 if (!future$lazy) 
  [05:31:53.136]                   future <- run(future)
  [05:31:53.136]                 invisible(future)
  [05:31:53.136]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.136]         }
  [05:31:53.136]     }
  [05:31:53.136]     if (is.na(TRUE)) {
  [05:31:53.136]     }
  [05:31:53.136]     else {
  [05:31:53.136]         if (TRUE) {
  [05:31:53.136]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:53.136]         }
  [05:31:53.136]         else {
  [05:31:53.136]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:53.136]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:53.136]         }
  [05:31:53.136]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:53.136]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:53.136]             sink(type = "output", split = FALSE)
  [05:31:53.136]             close(...future.stdout)
  [05:31:53.136]         }, add = TRUE)
  [05:31:53.136]     }
  [05:31:53.136]     ...future.frame <- sys.nframe()
  [05:31:53.136]     ...future.conditions <- list()
  [05:31:53.136]     ...future.result <- tryCatch({
  [05:31:53.136]         withCallingHandlers({
  [05:31:53.136]             ...future.value <- local({
  [05:31:53.136]                 doFuture::registerDoFuture()
  [05:31:53.136]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.136]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.136]                   a <- NULL
  [05:31:53.136]                   ...future.env <- environment()
  [05:31:53.136]                   local({
  [05:31:53.136]                     for (name in names(...future.x_jj)) {
  [05:31:53.136]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.136]                         inherits = FALSE)
  [05:31:53.136]                     }
  [05:31:53.136]                   })
  [05:31:53.136]                   tryCatch({
  [05:31:53.136]                     plan_list <- future::plan()
  [05:31:53.136]                     stopifnot(inherits(plan_list, strategy2))
  [05:31:53.136]                     plan_a <- future::plan("list")
  [05:31:53.136]                     str(plan_a)
  [05:31:53.136]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.136]                     message("foreach() - level 2 ...")
  [05:31:53.136]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.136]                       {
  [05:31:53.136]                         plan_list <- future::plan()
  [05:31:53.136]                         message(capture.output(print(plan_list)))
  [05:31:53.136]                         stopifnot(inherits(plan_list, "future"))
  [05:31:53.136]                         default <- getOption("future.plan", "sequential")
  [05:31:53.136]                         if (is.function(default)) 
  [05:31:53.136]                           default <- class(default)
  [05:31:53.136]                         stopifnot(inherits(plan_list, default))
  [05:31:53.136]                         plan_b <- future::plan("list")
  [05:31:53.136]                         str(plan_b)
  [05:31:53.136]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.136]                           inherits(plan_b[[1]], default))
  [05:31:53.136]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.136]                       }
  [05:31:53.136]                     message("foreach() - level 2 ... DONE")
  [05:31:53.136]                     y
  [05:31:53.136]                   }, error = identity)
  [05:31:53.136]                 })
  [05:31:53.136]             })
  [05:31:53.136]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:53.136]                 version = "1.8")
  [05:31:53.136]         }, condition = local({
  [05:31:53.136]             inherits <- base::inherits
  [05:31:53.136]             invokeRestart <- base::invokeRestart
  [05:31:53.136]             length <- base::length
  [05:31:53.136]             seq.int <- base::seq.int
  [05:31:53.136]             sys.calls <- base::sys.calls
  [05:31:53.136]             `[[` <- base::`[[`
  [05:31:53.136]             `+` <- base::`+`
  [05:31:53.136]             `<<-` <- base::`<<-`
  [05:31:53.136]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:53.136]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:53.136]                   3L)]
  [05:31:53.136]             }
  [05:31:53.136]             function(cond) {
  [05:31:53.136]                 if (inherits(cond, "error")) {
  [05:31:53.136]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.136]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:53.136]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:53.136]                     signaled = 0L)
  [05:31:53.136]                   signalCondition(cond)
  [05:31:53.136]                 }
  [05:31:53.136]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:53.136]                 ))) {
  [05:31:53.136]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:53.136]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.136]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:53.136]                   if (inherits(cond, "message")) {
  [05:31:53.136]                     if (!signal) 
  [05:31:53.136]                       invokeRestart("muffleMessage")
  [05:31:53.136]                   }
  [05:31:53.136]                   else if (inherits(cond, "warning")) {
  [05:31:53.136]                     if (!signal) 
  [05:31:53.136]                       invokeRestart("muffleWarning")
  [05:31:53.136]                   }
  [05:31:53.136]                   else {
  [05:31:53.136]                     if (!signal) {
  [05:31:53.136]                       restarts <- computeRestarts(cond)
  [05:31:53.136]                       for (restart in restarts) {
  [05:31:53.136]                         name <- restart$name
  [05:31:53.136]                         if (is.null(name)) 
  [05:31:53.136]                           next
  [05:31:53.136]                         if (!grepl("^muffle", name)) 
  [05:31:53.136]                           next
  [05:31:53.136]                         invokeRestart(restart)
  [05:31:53.136]                         break
  [05:31:53.136]                       }
  [05:31:53.136]                     }
  [05:31:53.136]                   }
  [05:31:53.136]                 }
  [05:31:53.136]             }
  [05:31:53.136]         }))
  [05:31:53.136]     }, error = function(ex) {
  [05:31:53.136]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:53.136]             version = "1.8"), class = "FutureResult")
  [05:31:53.136]     }, finally = {
  [05:31:53.136]         {
  [05:31:53.136]             NULL
  [05:31:53.136]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:31:53.136]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.136]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:53.136]                 label = NULL, ...) 
  [05:31:53.136]             {
  [05:31:53.136]                 if (substitute) 
  [05:31:53.136]                   expr <- substitute(expr)
  [05:31:53.136]                 local <- as.logical(local)
  [05:31:53.136]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.136]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.136]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.136]                   label = label, ...)
  [05:31:53.136]                 if (!future$lazy) 
  [05:31:53.136]                   future <- run(future)
  [05:31:53.136]                 invisible(future)
  [05:31:53.136]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:31:53.136]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [05:31:53.136]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:53.136]             {
  [05:31:53.136]                 if (substitute) 
  [05:31:53.136]                   expr <- substitute(expr)
  [05:31:53.136]                 local <- as.logical(local)
  [05:31:53.136]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.136]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.136]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.136]                   label = label, ...)
  [05:31:53.136]                 if (!future$lazy) 
  [05:31:53.136]                   future <- run(future)
  [05:31:53.136]                 invisible(future)
  [05:31:53.136]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.136]         }
  [05:31:53.136]         options(...future.oldOptions)
  [05:31:53.136]     })
  [05:31:53.136]     if (is.na(TRUE)) {
  [05:31:53.136]     }
  [05:31:53.136]     else {
  [05:31:53.136]         sink(type = "output", split = FALSE)
  [05:31:53.136]         if (TRUE) {
  [05:31:53.136]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:53.136]         }
  [05:31:53.136]         else {
  [05:31:53.136]             ...future.result["stdout"] <- list(NULL)
  [05:31:53.136]         }
  [05:31:53.136]         close(...future.stdout)
  [05:31:53.136]         ...future.stdout <- NULL
  [05:31:53.136]     }
  [05:31:53.136]     ...future.result$conditions <- ...future.conditions
  [05:31:53.136]     ...future.result
  [05:31:53.136] }
  [05:31:53.142] plan(): Setting new future strategy stack:
  [05:31:53.142] List of future strategies:
  [05:31:53.142] 1. sequential:
  [05:31:53.142]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.142]    - tweaked: FALSE
  [05:31:53.142]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.144] plan(): nbrOfWorkers() = 1
  [05:31:53.571] plan(): Setting new future strategy stack:
  [05:31:53.571] List of future strategies:
  [05:31:53.571] 1. sequential:
  [05:31:53.571]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.571]    - tweaked: FALSE
  [05:31:53.571]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.571] 2. sequential:
  [05:31:53.571]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.571]    - tweaked: FALSE
  [05:31:53.571]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.573] plan(): nbrOfWorkers() = 1
  [05:31:53.574] SequentialFuture started (and completed)
  [05:31:53.574] signalConditions() ...
  [05:31:53.575]  - include = 'immediateCondition'
  [05:31:53.575]  - exclude = 
  [05:31:53.575]  - resignal = FALSE
  [05:31:53.576]  - Number of conditions: 268
  [05:31:53.578] signalConditions() ... done
  [05:31:53.579] Chunk #1 of 1 ... DONE
  [05:31:53.579] Launching 1 futures (chunks) ... DONE
  [05:31:53.580] - resolving futures
  [05:31:53.580]   - gathering results & relaying conditions (except errors)
  [05:31:53.580] resolve() on list ...
  [05:31:53.581]  recursive: 0
  [05:31:53.581]  length: 1
  [05:31:53.581] 
  [05:31:53.582] Future #1
  [05:31:53.582] signalConditions() ...
  [05:31:53.583]  - include = 'immediateCondition'
  [05:31:53.583]  - exclude = 
  [05:31:53.583]  - resignal = FALSE
  [05:31:53.584]  - Number of conditions: 268
  [05:31:53.586] signalConditions() ... done
  [05:31:53.586] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:53.587] - nx: 1
  [05:31:53.587] - relay: TRUE
  [05:31:53.587] - stdout: TRUE
  [05:31:53.588] - signal: TRUE
  [05:31:53.588] - resignal: FALSE
  [05:31:53.588] - force: FALSE
  [05:31:53.589] - relayed: [n=1] FALSE
  [05:31:53.589] - queued futures: [n=1] FALSE
  [05:31:53.589]  - until=1
  [05:31:53.590]  - relaying element #1
  [05:31:53.590] signalConditions() ...
  [05:31:53.591]  - include = 'immediateCondition'
  [05:31:53.591]  - exclude = 
  [05:31:53.592]  - resignal = FALSE
  [05:31:53.592]  - Number of conditions: 268
  [05:31:53.594] signalConditions() ... 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"
  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"
  [05:31:53.594] signalConditions() ...
  [05:31:53.595]  - include = 'condition'
  [05:31:53.595]  - exclude = 
  [05:31:53.595]  - resignal = FALSE
  [05:31:53.596]  - Number of conditions: 268
  [05:31:53.596]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:31:53.597]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:53.149] doFuture() ...
  [05:31:53.597]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:53.151] - dummy globals (as locals): [1] 'b'
  [05:31:53.598]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:31:53.152] - R expression:
  [05:31:53.598]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:31:53.152] {
  [05:31:53.152]     doFuture::registerDoFuture()
  [05:31:53.152]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.152]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.152]         b <- NULL
  [05:31:53.152]         ...future.env <- environment()
  [05:31:53.152]         local({
  [05:31:53.152]             for (name in names(...future.x_jj)) {
  [05:31:53.152]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.152]                   inherits = FALSE)
  [05:31:53.152]             }
  [05:31:53.152]         })
  [05:31:53.152]         tryCatch({
  [05:31:53.152]             plan_list <- future::plan()
  [05:31:53.152]             message(capture.output(print(plan_list)))
  [05:31:53.152]             stopifnot(inherits(plan_list, "future"))
  [05:31:53.152]             default <- getOption("future.plan", "sequential")
  [05:31:53.152]             if (is.function(default)) 
  [05:31:53.152]                 default <- class(default)
  [05:31:53.152]             stopifnot(inherits(plan_list, default))
  [05:31:53.152]             plan_b <- future::plan("list")
  [05:31:53.152]             str(plan_b)
  [05:31:53.152]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:53.152]                 default))
  [05:31:53.152]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.152]         }, error = identity)
  [05:31:53.152]     })
  [05:31:53.152] }
  [05:31:53.599]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:31:53.153] - identifying globals and packages ...
  [05:31:53.599]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:31:53.154] getGlobalsAndPackages() ...
  [05:31:53.600]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:31:53.154] Searching for globals...
  [05:31:53.600]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:31:53.184] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:31:53.601]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:31:53.185] Searching for globals ... DONE
  [05:31:53.601]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:31:53.185] Resolving globals: FALSE
  [05:31:53.602]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:31:53.188] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [05:31:53.602]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:31:53.189] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.603]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:31:53.189] - packages: [1] 'utils'
  [05:31:53.603]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:31:53.190] getGlobalsAndPackages() ... DONE
  [05:31:53.604]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:31:53.190] List of 3
  [05:31:53.190]  $ ...future.x_ii: NULL
  [05:31:53.190]  $ a             : int 1
  [05:31:53.190]  $ plan_a        :List of 1
  [05:31:53.190]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:53.190]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:31:53.190]     ...)  
  [05:31:53.190]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:31:53.190]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:53.190]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:53.190]  - attr(*, "where")=List of 3
  [05:31:53.190]   ..$ ...future.x_ii:<environment: 0x556d9cbe73e8> 
  [05:31:53.190]   ..$ a             :<environment: 0x556d9b0e7898> 
  [05:31:53.190]   ..$ plan_a        :<environment: 0x556d9b0e7898> 
  [05:31:53.190]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.190]  - attr(*, "resolved")= logi FALSE
  [05:31:53.190]  - attr(*, "total_size")= num 40624
  [05:31:53.604]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:31:53.202]   - R expression:
  [05:31:53.605]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:31:53.203] {
  [05:31:53.203]     doFuture::registerDoFuture()
  [05:31:53.203]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.203]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.203]         b <- NULL
  [05:31:53.203]         ...future.env <- environment()
  [05:31:53.203]         local({
  [05:31:53.203]             for (name in names(...future.x_jj)) {
  [05:31:53.203]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.203]                   inherits = FALSE)
  [05:31:53.203]             }
  [05:31:53.203]         })
  [05:31:53.203]         tryCatch({
  [05:31:53.203]             plan_list <- future::plan()
  [05:31:53.203]             message(capture.output(print(plan_list)))
  [05:31:53.203]             stopifnot(inherits(plan_list, "future"))
  [05:31:53.203]             default <- getOption("future.plan", "sequential")
  [05:31:53.203]             if (is.function(default)) 
  [05:31:53.203]                 default <- class(default)
  [05:31:53.203]             stopifnot(inherits(plan_list, default))
  [05:31:53.203]             plan_b <- future::plan("list")
  [05:31:53.203]             str(plan_b)
  [05:31:53.203]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:53.203]                 default))
  [05:31:53.203]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.203]         }, error = identity)
  [05:31:53.203]     })
  [05:31:53.203] }
  [05:31:53.606]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:31:53.204]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.606]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:31:53.204] List of 3
  [05:31:53.204]  $ ...future.x_ii: NULL
  [05:31:53.204]  $ a             : int 1
  [05:31:53.204]  $ plan_a        :List of 1
  [05:31:53.204]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:53.204]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:31:53.204]     ...)  
  [05:31:53.204]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:31:53.204]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:53.204]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:53.204]  - attr(*, "where")=List of 3
  [05:31:53.204]   ..$ ...future.x_ii:<environment: 0x556d9cbe73e8> 
  [05:31:53.204]   ..$ a             :<environment: 0x556d9b0e7898> 
  [05:31:53.204]   ..$ plan_a        :<environment: 0x556d9b0e7898> 
  [05:31:53.204]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.204]  - attr(*, "resolved")= logi FALSE
  [05:31:53.204]  - attr(*, "total_size")= num 40624
  [05:31:53.607]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:31:53.216]   - packages: [2] 'doFuture', 'utils'
  [05:31:53.607]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:31:53.216] - identifying globals and packages ... DONE
  [05:31:53.608]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:31:53.216] Number of chunks: 1
  [05:31:53.608]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:31:53.217] Number of futures (= number of chunks): 1
  [05:31:53.609]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:31:53.217] Launching 1 futures (chunks) ...
  [05:31:53.609]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:31:53.217] Chunk #1 of 1 ...
  [05:31:53.609]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:31:53.218]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:53.610]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:31:53.218] getGlobalsAndPackages() ...
  [05:31:53.610]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:31:53.219] Searching for globals...
  [05:31:53.611]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:31:53.220] 
  [05:31:53.611]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:31:53.220] Searching for globals ... DONE
  [05:31:53.612]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:31:53.220] - globals: [0] <none>
  [05:31:53.612]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:31:53.221] getGlobalsAndPackages() ... DONE
  [05:31:53.613]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:31:53.221] 
  [05:31:53.613]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:31:53.221] 
  [05:31:53.614]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:31:53.222]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:53.615]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:31:53.222] getGlobalsAndPackages() ...
  [05:31:53.615]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:31:53.223] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.615]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:31:53.223] Resolving globals: FALSE
  [05:31:53.616]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:31:53.225] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [05:31:53.616]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:31:53.225] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.617]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:31:53.225] 
  [05:31:53.617]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:31:53.226] getGlobalsAndPackages() ... DONE
  [05:31:53.618]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:31:53.231] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:53.618]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:31:53.232] Packages needed by future strategies (n = 0): <none>
  [05:31:53.619]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:31:53.236] {
  [05:31:53.236]     {
  [05:31:53.236]         ...future.startTime <- Sys.time()
  [05:31:53.236]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:53.236]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:53.236]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:53.236]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:53.236]             future.resolve.recursive = NULL, width = 80L)
  [05:31:53.236]         {
  [05:31:53.236]             {
  [05:31:53.236]                 {
  [05:31:53.236]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:53.236]                   version <- if (has_future) 
  [05:31:53.236]                     packageVersion("future")
  [05:31:53.236]                   else NULL
  [05:31:53.236]                   if (!has_future || version < "1.8.0") {
  [05:31:53.236]                     info <- c(r_version = gsub("R version ", 
  [05:31:53.236]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:53.236]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:53.236]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:53.236]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:53.236]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:53.236]                     info <- paste(info, collapse = "; ")
  [05:31:53.236]                     if (!has_future) {
  [05:31:53.236]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:53.236]                         info)
  [05:31:53.236]                     }
  [05:31:53.236]                     else {
  [05:31:53.236]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:53.236]                         info, version)
  [05:31:53.236]                     }
  [05:31:53.236]                     stop(msg)
  [05:31:53.236]                   }
  [05:31:53.236]                 }
  [05:31:53.236]                 local({
  [05:31:53.236]                   for (pkg in c("doFuture", "utils")) {
  [05:31:53.236]                     loadNamespace(pkg)
  [05:31:53.236]                     library(pkg, character.only = TRUE)
  [05:31:53.236]                   }
  [05:31:53.236]                 })
  [05:31:53.236]             }
  [05:31:53.236]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:53.236]         }
  [05:31:53.236]     }
  [05:31:53.236]     if (is.na(TRUE)) {
  [05:31:53.236]     }
  [05:31:53.236]     else {
  [05:31:53.236]         if (TRUE) {
  [05:31:53.236]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:53.236]         }
  [05:31:53.236]         else {
  [05:31:53.236]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:53.236]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:53.236]         }
  [05:31:53.236]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:53.236]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:53.236]             sink(type = "output", split = FALSE)
  [05:31:53.236]             close(...future.stdout)
  [05:31:53.236]         }, add = TRUE)
  [05:31:53.236]     }
  [05:31:53.236]     ...future.frame <- sys.nframe()
  [05:31:53.236]     ...future.conditions <- list()
  [05:31:53.236]     ...future.result <- tryCatch({
  [05:31:53.236]         withCallingHandlers({
  [05:31:53.236]             ...future.value <- local({
  [05:31:53.236]                 doFuture::registerDoFuture()
  [05:31:53.236]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.236]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.236]                   b <- NULL
  [05:31:53.236]                   ...future.env <- environment()
  [05:31:53.236]                   local({
  [05:31:53.236]                     for (name in names(...future.x_jj)) {
  [05:31:53.236]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.236]                         inherits = FALSE)
  [05:31:53.236]                     }
  [05:31:53.236]                   })
  [05:31:53.236]                   tryCatch({
  [05:31:53.236]                     plan_list <- future::plan()
  [05:31:53.236]                     message(capture.output(print(plan_list)))
  [05:31:53.236]                     stopifnot(inherits(plan_list, "future"))
  [05:31:53.236]                     default <- getOption("future.plan", "sequential")
  [05:31:53.236]                     if (is.function(default)) 
  [05:31:53.236]                       default <- class(default)
  [05:31:53.236]                     stopifnot(inherits(plan_list, default))
  [05:31:53.236]                     plan_b <- future::plan("list")
  [05:31:53.236]                     str(plan_b)
  [05:31:53.236]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.236]                       inherits(plan_b[[1]], default))
  [05:31:53.236]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.236]                   }, error = identity)
  [05:31:53.236]                 })
  [05:31:53.236]             })
  [05:31:53.236]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:53.236]                 version = "1.8")
  [05:31:53.236]         }, condition = local({
  [05:31:53.236]             inherits <- base::inherits
  [05:31:53.236]             invokeRestart <- base::invokeRestart
  [05:31:53.236]             length <- base::length
  [05:31:53.236]             seq.int <- base::seq.int
  [05:31:53.236]             sys.calls <- base::sys.calls
  [05:31:53.236]             `[[` <- base::`[[`
  [05:31:53.236]             `+` <- base::`+`
  [05:31:53.236]             `<<-` <- base::`<<-`
  [05:31:53.236]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:53.236]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:53.236]                   3L)]
  [05:31:53.236]             }
  [05:31:53.236]             function(cond) {
  [05:31:53.236]                 if (inherits(cond, "error")) {
  [05:31:53.236]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.236]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:53.236]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:53.236]                     signaled = 0L)
  [05:31:53.236]                   signalCondition(cond)
  [05:31:53.236]                 }
  [05:31:53.236]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:53.236]                 ))) {
  [05:31:53.236]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:53.236]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.236]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:53.236]                   if (inherits(cond, "message")) {
  [05:31:53.236]                     if (!signal) 
  [05:31:53.236]                       invokeRestart("muffleMessage")
  [05:31:53.236]                   }
  [05:31:53.236]                   else if (inherits(cond, "warning")) {
  [05:31:53.236]                     if (!signal) 
  [05:31:53.236]                       invokeRestart("muffleWarning")
  [05:31:53.236]                   }
  [05:31:53.236]                   else {
  [05:31:53.236]                     if (!signal) {
  [05:31:53.236]                       restarts <- computeRestarts(cond)
  [05:31:53.236]                       for (restart in restarts) {
  [05:31:53.236]                         name <- restart$name
  [05:31:53.236]                         if (is.null(name)) 
  [05:31:53.236]                           next
  [05:31:53.236]                         if (!grepl("^muffle", name)) 
  [05:31:53.236]                           next
  [05:31:53.236]                         invokeRestart(restart)
  [05:31:53.236]                         break
  [05:31:53.236]                       }
  [05:31:53.236]                     }
  [05:31:53.236]                   }
  [05:31:53.236]                 }
  [05:31:53.236]             }
  [05:31:53.236]         }))
  [05:31:53.236]     }, error = function(ex) {
  [05:31:53.236]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:53.236]             version = "1.8"), class = "FutureResult")
  [05:31:53.236]     }, finally = {
  [05:31:53.236]         {
  [05:31:53.236]             NULL
  [05:31:53.236]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:53.236]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.236]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:53.236]                 label = NULL, ...) 
  [05:31:53.236]             {
  [05:31:53.236]                 if (substitute) 
  [05:31:53.236]                   expr <- substitute(expr)
  [05:31:53.236]                 local <- as.logical(local)
  [05:31:53.236]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.236]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.236]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.236]                   label = label, ...)
  [05:31:53.236]                 if (!future$lazy) 
  [05:31:53.236]                   future <- run(future)
  [05:31:53.236]                 invisible(future)
  [05:31:53.236]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.236]         }
  [05:31:53.236]         options(...future.oldOptions)
  [05:31:53.236]     })
  [05:31:53.236]     if (is.na(TRUE)) {
  [05:31:53.236]     }
  [05:31:53.236]     else {
  [05:31:53.236]         sink(type = "output", split = FALSE)
  [05:31:53.236]         if (TRUE) {
  [05:31:53.236]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:53.236]         }
  [05:31:53.236]         else {
  [05:31:53.236]             ...future.result["stdout"] <- list(NULL)
  [05:31:53.236]         }
  [05:31:53.236]         close(...future.stdout)
  [05:31:53.236]         ...future.stdout <- NULL
  [05:31:53.236]     }
  [05:31:53.236]     ...future.result$conditions <- ...future.conditions
  [05:31:53.236]     ...future.result
  [05:31:53.236] }
  [05:31:53.619]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:31:53.242] plan(): Setting new future strategy stack:
  [05:31:53.620]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:31:53.242] List of future strategies:
  [05:31:53.242] 1. sequential:
  [05:31:53.242]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.242]    - tweaked: FALSE
  [05:31:53.242]    - call: NULL
  [05:31:53.626]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:31:53.243] plan(): nbrOfWorkers() = 1
  [05:31:53.627]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:31:53.298] plan(): Setting new future strategy stack:
  [05:31:53.627]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:31:53.299] List of future strategies:
  [05:31:53.299] 1. sequential:
  [05:31:53.299]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.299]    - tweaked: FALSE
  [05:31:53.299]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.628]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:31:53.300] plan(): nbrOfWorkers() = 1
  [05:31:53.628]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:31:53.301] SequentialFuture started (and completed)
  [05:31:53.629]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:31:53.301] signalConditions() ...
  [05:31:53.629]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:31:53.302]  - include = 'immediateCondition'
  [05:31:53.630]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:31:53.302]  - exclude = 
  [05:31:53.630]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:31:53.302]  - resignal = FALSE
  [05:31:53.631]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:31:53.303]  - Number of conditions: 3
  [05:31:53.631]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:31:53.303] signalConditions() ... done
  [05:31:53.632]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:31:53.304] Chunk #1 of 1 ... DONE
  [05:31:53.632]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:31:53.304] Launching 1 futures (chunks) ... DONE
  [05:31:53.633]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:31:53.305] - resolving futures
  [05:31:53.633]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:31:53.305]   - gathering results & relaying conditions (except errors)
  [05:31:53.634]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:31:53.305] resolve() on list ...
  [05:31:53.634]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:31:53.306]  recursive: 0
  [05:31:53.635]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:31:53.306]  length: 1
  [05:31:53.635]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:31:53.306] 
  [05:31:53.636]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:31:53.307] Future #1
  [05:31:53.636]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:31:53.307] signalConditions() ...
  [05:31:53.637]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:31:53.308]  - include = 'immediateCondition'
  [05:31:53.637]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:31:53.308]  - exclude = 
  [05:31:53.638]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:31:53.309]  - resignal = FALSE
  [05:31:53.639]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:31:53.309]  - Number of conditions: 3
  [05:31:53.639]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:31:53.310] signalConditions() ... done
  [05:31:53.640]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:31:53.310] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:53.640]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:31:53.310] - nx: 1
  [05:31:53.641]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:31:53.311] - relay: TRUE
  [05:31:53.641]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:31:53.316] - stdout: TRUE
  [05:31:53.642]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:31:53.316] - signal: TRUE
  [05:31:53.642]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:31:53.316] - resignal: FALSE
  [05:31:53.643]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:31:53.317] - force: FALSE
  [05:31:53.643]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:31:53.317] - relayed: [n=1] FALSE
  [05:31:53.644]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:31:53.318] - queued futures: [n=1] FALSE
  [05:31:53.644]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:31:53.318]  - until=1
  [05:31:53.645]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:31:53.319]  - relaying element #1
  [05:31:53.646]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:31:53.319] signalConditions() ...
  [05:31:53.646]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:31:53.320]  - include = 'immediateCondition'
  [05:31:53.647]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:31:53.320]  - exclude = 
  [05:31:53.647]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:31:53.320]  - resignal = FALSE
  [05:31:53.648]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:31:53.321]  - Number of conditions: 3
  [05:31:53.648]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:31:53.321] signalConditions() ... done
  [05:31:53.649]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:31:53.322] signalConditions() ...
  [05:31:53.649]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:31:53.322]  - include = 'condition'
  [05:31:53.650]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:31:53.323]  - exclude = 
  [05:31:53.650]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:31:53.323]  - resignal = FALSE
  [05:31:53.651]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:31:53.323]  - Number of conditions: 3
  [05:31:53.651]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:31:53.324]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:53.652]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.652]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:31:53.325]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:53.653]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.653]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:31:53.325]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:53.654]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.654]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:31:53.326] signalConditions() ... done
  [05:31:53.655]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:31:53.326] - relayed: [n=1] TRUE
  [05:31:53.655]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:31:53.327] - queued futures: [n=1] TRUE
  [05:31:53.656]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:31:53.327] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:53.656]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:31:53.327]  length: 0 (resolved future 1)
  [05:31:53.657]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:31:53.328] Relaying remaining futures
  [05:31:53.657]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:31:53.328] signalConditionsASAP(NULL, pos=0) ...
  [05:31:53.658]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:31:53.329] - nx: 1
  [05:31:53.658]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:31:53.329] - relay: TRUE
  [05:31:53.659]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:31:53.330] - stdout: TRUE
  [05:31:53.659]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:31:53.330] - signal: TRUE
  [05:31:53.660]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:31:53.330] - resignal: FALSE
  [05:31:53.660]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:31:53.331] - force: FALSE
  [05:31:53.661]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:31:53.331] - relayed: [n=1] TRUE
  [05:31:53.661]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:31:53.332] - queued futures: [n=1] TRUE
  [05:31:53.662]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:31:53.662]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:31:53.332] - relayed: [n=1] TRUE
  [05:31:53.663]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:31:53.333] - queued futures: [n=1] TRUE
  [05:31:53.664]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:31:53.333] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:53.664]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:31:53.333] resolve() on list ... DONE
  [05:31:53.665]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:31:53.334] - collecting values of futures
  [05:31:53.665]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:31:53.334] signalConditions() ...
  [05:31:53.666]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:31:53.335]  - include = 'immediateCondition'
  [05:31:53.666]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:31:53.335]  - exclude = 
  [05:31:53.667]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:31:53.336]  - resignal = FALSE
  [05:31:53.667]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:31:53.336]  - Number of conditions: 3
  [05:31:53.668]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:31:53.336] signalConditions() ... done
  [05:31:53.668]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:31:53.337] - accumulating results
  [05:31:53.669]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:31:53.338] - processing errors (handler = 'stop')
  [05:31:53.669]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:31:53.339] - extracting results
  [05:31:53.670]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:31:53.339] doFuture() ... DONE
  [05:31:53.670]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:31:53.671]  - Condition #135: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:31:53.671]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [05:31:53.401] doFuture() ...
  [05:31:53.672]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [05:31:53.403] - dummy globals (as locals): [1] 'b'
  [05:31:53.672]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [05:31:53.404] - R expression:
  [05:31:53.673]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [05:31:53.404] {
  [05:31:53.404]     doFuture::registerDoFuture()
  [05:31:53.404]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.404]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.404]         b <- NULL
  [05:31:53.404]         ...future.env <- environment()
  [05:31:53.404]         local({
  [05:31:53.404]             for (name in names(...future.x_jj)) {
  [05:31:53.404]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.404]                   inherits = FALSE)
  [05:31:53.404]             }
  [05:31:53.404]         })
  [05:31:53.404]         tryCatch({
  [05:31:53.404]             plan_list <- future::plan()
  [05:31:53.404]             message(capture.output(print(plan_list)))
  [05:31:53.404]             stopifnot(inherits(plan_list, "future"))
  [05:31:53.404]             default <- getOption("future.plan", "sequential")
  [05:31:53.404]             if (is.function(default)) 
  [05:31:53.404]                 default <- class(default)
  [05:31:53.404]             stopifnot(inherits(plan_list, default))
  [05:31:53.404]             plan_b <- future::plan("list")
  [05:31:53.404]             str(plan_b)
  [05:31:53.404]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:53.404]                 default))
  [05:31:53.404]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.404]         }, error = identity)
  [05:31:53.404]     })
  [05:31:53.404] }
  [05:31:53.673]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [05:31:53.406] - identifying globals and packages ...
  [05:31:53.674]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [05:31:53.406] getGlobalsAndPackages() ...
  [05:31:53.674]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [05:31:53.407] Searching for globals...
  [05:31:53.675]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [05:31:53.436] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:31:53.675]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [05:31:53.437] Searching for globals ... DONE
  [05:31:53.676]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [05:31:53.437] Resolving globals: FALSE
  [05:31:53.676]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [05:31:53.440] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [05:31:53.677]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [05:31:53.441] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.677]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [05:31:53.441] - packages: [1] 'utils'
  [05:31:53.678]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [05:31:53.442] getGlobalsAndPackages() ... DONE
  [05:31:53.678]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [05:31:53.442] List of 3
  [05:31:53.442]  $ ...future.x_ii: NULL
  [05:31:53.442]  $ a             : int 2
  [05:31:53.442]  $ plan_a        :List of 1
  [05:31:53.442]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:53.442]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:31:53.442]     ...)  
  [05:31:53.442]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:31:53.442]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:53.442]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:53.442]  - attr(*, "where")=List of 3
  [05:31:53.442]   ..$ ...future.x_ii:<environment: 0x556d9bfe8810> 
  [05:31:53.442]   ..$ a             :<environment: 0x556d9b5b2330> 
  [05:31:53.442]   ..$ plan_a        :<environment: 0x556d9b5b2330> 
  [05:31:53.442]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.442]  - attr(*, "resolved")= logi FALSE
  [05:31:53.442]  - attr(*, "total_size")= num 40624
  [05:31:53.679]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [05:31:53.463]   - R expression:
  [05:31:53.679]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [05:31:53.464] {
  [05:31:53.464]     doFuture::registerDoFuture()
  [05:31:53.464]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.464]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.464]         b <- NULL
  [05:31:53.464]         ...future.env <- environment()
  [05:31:53.464]         local({
  [05:31:53.464]             for (name in names(...future.x_jj)) {
  [05:31:53.464]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.464]                   inherits = FALSE)
  [05:31:53.464]             }
  [05:31:53.464]         })
  [05:31:53.464]         tryCatch({
  [05:31:53.464]             plan_list <- future::plan()
  [05:31:53.464]             message(capture.output(print(plan_list)))
  [05:31:53.464]             stopifnot(inherits(plan_list, "future"))
  [05:31:53.464]             default <- getOption("future.plan", "sequential")
  [05:31:53.464]             if (is.function(default)) 
  [05:31:53.464]                 default <- class(default)
  [05:31:53.464]             stopifnot(inherits(plan_list, default))
  [05:31:53.464]             plan_b <- future::plan("list")
  [05:31:53.464]             str(plan_b)
  [05:31:53.464]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:53.464]                 default))
  [05:31:53.464]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.464]         }, error = identity)
  [05:31:53.464]     })
  [05:31:53.464] }
  [05:31:53.680]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [05:31:53.465]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.680]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [05:31:53.466] List of 3
  [05:31:53.466]  $ ...future.x_ii: NULL
  [05:31:53.466]  $ a             : int 2
  [05:31:53.466]  $ plan_a        :List of 1
  [05:31:53.466]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:53.466]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:31:53.466]     ...)  
  [05:31:53.466]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:31:53.466]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:53.466]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:53.466]  - attr(*, "where")=List of 3
  [05:31:53.466]   ..$ ...future.x_ii:<environment: 0x556d9bfe8810> 
  [05:31:53.466]   ..$ a             :<environment: 0x556d9b5b2330> 
  [05:31:53.466]   ..$ plan_a        :<environment: 0x556d9b5b2330> 
  [05:31:53.466]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.466]  - attr(*, "resolved")= logi FALSE
  [05:31:53.466]  - attr(*, "total_size")= num 40624
  [05:31:53.681]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [05:31:53.479]   - packages: [2] 'doFuture', 'utils'
  [05:31:53.681]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [05:31:53.479] - identifying globals and packages ... DONE
  [05:31:53.682]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [05:31:53.480] Number of chunks: 1
  [05:31:53.682]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [05:31:53.480] Number of futures (= number of chunks): 1
  [05:31:53.683]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [05:31:53.481] Launching 1 futures (chunks) ...
  [05:31:53.683]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [05:31:53.481] Chunk #1 of 1 ...
  [05:31:53.684]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [05:31:53.481]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:53.684]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [05:31:53.482] getGlobalsAndPackages() ...
  [05:31:53.685]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [05:31:53.482] Searching for globals...
  [05:31:53.686]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [05:31:53.485] 
  [05:31:53.686]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [05:31:53.485] Searching for globals ... DONE
  [05:31:53.687]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [05:31:53.486] - globals: [0] <none>
  [05:31:53.687]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [05:31:53.486] getGlobalsAndPackages() ... DONE
  [05:31:53.688]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [05:31:53.486] 
  [05:31:53.688]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [05:31:53.487] 
  [05:31:53.688]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [05:31:53.487]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:53.689]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [05:31:53.488] getGlobalsAndPackages() ...
  [05:31:53.689]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [05:31:53.488] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.690]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [05:31:53.489] Resolving globals: FALSE
  [05:31:53.690]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [05:31:53.490] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [05:31:53.691]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [05:31:53.491] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:53.691]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [05:31:53.492] 
  [05:31:53.692]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [05:31:53.492] getGlobalsAndPackages() ... DONE
  [05:31:53.692]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [05:31:53.494] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:53.693]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [05:31:53.494] Packages needed by future strategies (n = 0): <none>
  [05:31:53.693]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [05:31:53.500] {
  [05:31:53.500]     {
  [05:31:53.500]         ...future.startTime <- Sys.time()
  [05:31:53.500]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:53.500]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:53.500]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:53.500]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:53.500]             future.resolve.recursive = NULL, width = 80L)
  [05:31:53.500]         {
  [05:31:53.500]             {
  [05:31:53.500]                 {
  [05:31:53.500]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:53.500]                   version <- if (has_future) 
  [05:31:53.500]                     packageVersion("future")
  [05:31:53.500]                   else NULL
  [05:31:53.500]                   if (!has_future || version < "1.8.0") {
  [05:31:53.500]                     info <- c(r_version = gsub("R version ", 
  [05:31:53.500]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:53.500]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:53.500]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:53.500]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:53.500]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:53.500]                     info <- paste(info, collapse = "; ")
  [05:31:53.500]                     if (!has_future) {
  [05:31:53.500]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:53.500]                         info)
  [05:31:53.500]                     }
  [05:31:53.500]                     else {
  [05:31:53.500]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:53.500]                         info, version)
  [05:31:53.500]                     }
  [05:31:53.500]                     stop(msg)
  [05:31:53.500]                   }
  [05:31:53.500]                 }
  [05:31:53.500]                 local({
  [05:31:53.500]                   for (pkg in c("doFuture", "utils")) {
  [05:31:53.500]                     loadNamespace(pkg)
  [05:31:53.500]                     library(pkg, character.only = TRUE)
  [05:31:53.500]                   }
  [05:31:53.500]                 })
  [05:31:53.500]             }
  [05:31:53.500]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:53.500]         }
  [05:31:53.500]     }
  [05:31:53.500]     if (is.na(TRUE)) {
  [05:31:53.500]     }
  [05:31:53.500]     else {
  [05:31:53.500]         if (TRUE) {
  [05:31:53.500]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:53.500]         }
  [05:31:53.500]         else {
  [05:31:53.500]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:53.500]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:53.500]         }
  [05:31:53.500]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:53.500]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:53.500]             sink(type = "output", split = FALSE)
  [05:31:53.500]             close(...future.stdout)
  [05:31:53.500]         }, add = TRUE)
  [05:31:53.500]     }
  [05:31:53.500]     ...future.frame <- sys.nframe()
  [05:31:53.500]     ...future.conditions <- list()
  [05:31:53.500]     ...future.result <- tryCatch({
  [05:31:53.500]         withCallingHandlers({
  [05:31:53.500]             ...future.value <- local({
  [05:31:53.500]                 doFuture::registerDoFuture()
  [05:31:53.500]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.500]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.500]                   b <- NULL
  [05:31:53.500]                   ...future.env <- environment()
  [05:31:53.500]                   local({
  [05:31:53.500]                     for (name in names(...future.x_jj)) {
  [05:31:53.500]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.500]                         inherits = FALSE)
  [05:31:53.500]                     }
  [05:31:53.500]                   })
  [05:31:53.500]                   tryCatch({
  [05:31:53.500]                     plan_list <- future::plan()
  [05:31:53.500]                     message(capture.output(print(plan_list)))
  [05:31:53.500]                     stopifnot(inherits(plan_list, "future"))
  [05:31:53.500]                     default <- getOption("future.plan", "sequential")
  [05:31:53.500]                     if (is.function(default)) 
  [05:31:53.500]                       default <- class(default)
  [05:31:53.500]                     stopifnot(inherits(plan_list, default))
  [05:31:53.500]                     plan_b <- future::plan("list")
  [05:31:53.500]                     str(plan_b)
  [05:31:53.500]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.500]                       inherits(plan_b[[1]], default))
  [05:31:53.500]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.500]                   }, error = identity)
  [05:31:53.500]                 })
  [05:31:53.500]             })
  [05:31:53.500]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:53.500]                 version = "1.8")
  [05:31:53.500]         }, condition = local({
  [05:31:53.500]             inherits <- base::inherits
  [05:31:53.500]             invokeRestart <- base::invokeRestart
  [05:31:53.500]             length <- base::length
  [05:31:53.500]             seq.int <- base::seq.int
  [05:31:53.500]             sys.calls <- base::sys.calls
  [05:31:53.500]             `[[` <- base::`[[`
  [05:31:53.500]             `+` <- base::`+`
  [05:31:53.500]             `<<-` <- base::`<<-`
  [05:31:53.500]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:53.500]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:53.500]                   3L)]
  [05:31:53.500]             }
  [05:31:53.500]             function(cond) {
  [05:31:53.500]                 if (inherits(cond, "error")) {
  [05:31:53.500]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.500]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:53.500]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:53.500]                     signaled = 0L)
  [05:31:53.500]                   signalCondition(cond)
  [05:31:53.500]                 }
  [05:31:53.500]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:53.500]                 ))) {
  [05:31:53.500]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:53.500]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.500]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:53.500]                   if (inherits(cond, "message")) {
  [05:31:53.500]                     if (!signal) 
  [05:31:53.500]                       invokeRestart("muffleMessage")
  [05:31:53.500]                   }
  [05:31:53.500]                   else if (inherits(cond, "warning")) {
  [05:31:53.500]                     if (!signal) 
  [05:31:53.500]                       invokeRestart("muffleWarning")
  [05:31:53.500]                   }
  [05:31:53.500]                   else {
  [05:31:53.500]                     if (!signal) {
  [05:31:53.500]                       restarts <- computeRestarts(cond)
  [05:31:53.500]                       for (restart in restarts) {
  [05:31:53.500]                         name <- restart$name
  [05:31:53.500]                         if (is.null(name)) 
  [05:31:53.500]                           next
  [05:31:53.500]                         if (!grepl("^muffle", name)) 
  [05:31:53.500]                           next
  [05:31:53.500]                         invokeRestart(restart)
  [05:31:53.500]                         break
  [05:31:53.500]                       }
  [05:31:53.500]                     }
  [05:31:53.500]                   }
  [05:31:53.500]                 }
  [05:31:53.500]             }
  [05:31:53.500]         }))
  [05:31:53.500]     }, error = function(ex) {
  [05:31:53.500]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:53.500]             version = "1.8"), class = "FutureResult")
  [05:31:53.500]     }, finally = {
  [05:31:53.500]         {
  [05:31:53.500]             NULL
  [05:31:53.500]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:53.500]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.500]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:53.500]                 label = NULL, ...) 
  [05:31:53.500]             {
  [05:31:53.500]                 if (substitute) 
  [05:31:53.500]                   expr <- substitute(expr)
  [05:31:53.500]                 local <- as.logical(local)
  [05:31:53.500]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.500]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.500]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.500]                   label = label, ...)
  [05:31:53.500]                 if (!future$lazy) 
  [05:31:53.500]                   future <- run(future)
  [05:31:53.500]                 invisible(future)
  [05:31:53.500]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.500]         }
  [05:31:53.500]         options(...future.oldOptions)
  [05:31:53.500]     })
  [05:31:53.500]     if (is.na(TRUE)) {
  [05:31:53.500]     }
  [05:31:53.500]     else {
  [05:31:53.500]         sink(type = "output", split = FALSE)
  [05:31:53.500]         if (TRUE) {
  [05:31:53.500]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:53.500]         }
  [05:31:53.500]         else {
  [05:31:53.500]             ...future.result["stdout"] <- list(NULL)
  [05:31:53.500]         }
  [05:31:53.500]         close(...future.stdout)
  [05:31:53.500]         ...future.stdout <- NULL
  [05:31:53.500]     }
  [05:31:53.500]     ...future.result$conditions <- ...future.conditions
  [05:31:53.500]     ...future.result
  [05:31:53.500] }
  [05:31:53.694]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [05:31:53.506] plan(): Setting new future strategy stack:
  [05:31:53.695]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [05:31:53.507] List of future strategies:
  [05:31:53.507] 1. sequential:
  [05:31:53.507]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.507]    - tweaked: FALSE
  [05:31:53.507]    - call: NULL
  [05:31:53.695]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [05:31:53.509] plan(): nbrOfWorkers() = 1
  [05:31:53.696]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [05:31:53.526] plan(): Setting new future strategy stack:
  [05:31:53.696]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [05:31:53.526] List of future strategies:
  [05:31:53.526] 1. sequential:
  [05:31:53.526]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.526]    - tweaked: FALSE
  [05:31:53.526]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.697]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [05:31:53.528] plan(): nbrOfWorkers() = 1
  [05:31:53.697]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [05:31:53.528] SequentialFuture started (and completed)
  [05:31:53.698]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [05:31:53.534] signalConditions() ...
  [05:31:53.698]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [05:31:53.535]  - include = 'immediateCondition'
  [05:31:53.699]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [05:31:53.535]  - exclude = 
  [05:31:53.699]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [05:31:53.536]  - resignal = FALSE
  [05:31:53.700]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [05:31:53.536]  - Number of conditions: 3
  [05:31:53.700]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [05:31:53.537] signalConditions() ... done
  [05:31:53.701]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [05:31:53.537] Chunk #1 of 1 ... DONE
  [05:31:53.701]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [05:31:53.538] Launching 1 futures (chunks) ... DONE
  [05:31:53.702]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [05:31:53.538] - resolving futures
  [05:31:53.702]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [05:31:53.539]   - gathering results & relaying conditions (except errors)
  [05:31:53.703]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [05:31:53.539] resolve() on list ...
  [05:31:53.708]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [05:31:53.540]  recursive: 0
  [05:31:53.709]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [05:31:53.540]  length: 1
  [05:31:53.709]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [05:31:53.540] 
  [05:31:53.710]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [05:31:53.541] Future #1
  [05:31:53.710]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [05:31:53.541] signalConditions() ...
  [05:31:53.711]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [05:31:53.542]  - include = 'immediateCondition'
  [05:31:53.711]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [05:31:53.542]  - exclude = 
  [05:31:53.712]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [05:31:53.543]  - resignal = FALSE
  [05:31:53.712]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [05:31:53.543]  - Number of conditions: 3
  [05:31:53.713]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [05:31:53.544] signalConditions() ... done
  [05:31:53.713]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [05:31:53.544] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:53.714]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [05:31:53.544] - nx: 1
  [05:31:53.714]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [05:31:53.545] - relay: TRUE
  [05:31:53.715]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [05:31:53.545] - stdout: TRUE
  [05:31:53.715]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [05:31:53.546] - signal: TRUE
  [05:31:53.716]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [05:31:53.546] - resignal: FALSE
  [05:31:53.716]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [05:31:53.546] - force: FALSE
  [05:31:53.717]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [05:31:53.547] - relayed: [n=1] FALSE
  [05:31:53.717]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [05:31:53.547] - queued futures: [n=1] FALSE
  [05:31:53.718]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [05:31:53.548]  - until=1
  [05:31:53.718]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [05:31:53.548]  - relaying element #1
  [05:31:53.719]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [05:31:53.549] signalConditions() ...
  [05:31:53.720]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [05:31:53.549]  - include = 'immediateCondition'
  [05:31:53.720]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [05:31:53.549]  - exclude = 
  [05:31:53.721]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [05:31:53.550]  - resignal = FALSE
  [05:31:53.721]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [05:31:53.550]  - Number of conditions: 3
  [05:31:53.722]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [05:31:53.551] signalConditions() ... done
  [05:31:53.722]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [05:31:53.551] signalConditions() ...
  [05:31:53.723]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [05:31:53.552]  - include = 'condition'
  [05:31:53.723]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [05:31:53.552]  - exclude = 
  [05:31:53.724]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [05:31:53.553]  - resignal = FALSE
  [05:31:53.724]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [05:31:53.553]  - Number of conditions: 3
  [05:31:53.725]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [05:31:53.553]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:53.725]  - Condition #232: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.726]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [05:31:53.554]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:53.726]  - Condition #234: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.727]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [05:31:53.555]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:53.727]  - Condition #236: 'simpleMessage', 'message', 'condition'
  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
  [05:31:53.728]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [05:31:53.555] signalConditions() ... done
  [05:31:53.728]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [05:31:53.555] - relayed: [n=1] TRUE
  [05:31:53.729]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [05:31:53.556] - queued futures: [n=1] TRUE
  [05:31:53.729]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [05:31:53.556] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:53.730]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [05:31:53.557]  length: 0 (resolved future 1)
  [05:31:53.730]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [05:31:53.557] Relaying remaining futures
  [05:31:53.731]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [05:31:53.558] signalConditionsASAP(NULL, pos=0) ...
  [05:31:53.731]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [05:31:53.558] - nx: 1
  [05:31:53.732]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [05:31:53.558] - relay: TRUE
  [05:31:53.732]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [05:31:53.559] - stdout: TRUE
  [05:31:53.733]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [05:31:53.559] - signal: TRUE
  [05:31:53.733]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [05:31:53.560] - resignal: FALSE
  [05:31:53.734]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [05:31:53.560] - force: FALSE
  [05:31:53.734]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [05:31:53.561] - relayed: [n=1] TRUE
  [05:31:53.735]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [05:31:53.561] - queued futures: [n=1] TRUE
  [05:31:53.735]  - Condition #252: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:31:53.736]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [05:31:53.562] - relayed: [n=1] TRUE
  [05:31:53.737]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [05:31:53.562] - queued futures: [n=1] TRUE
  [05:31:53.737]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [05:31:53.563] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:53.738]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [05:31:53.563] resolve() on list ... DONE
  [05:31:53.738]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [05:31:53.564] - collecting values of futures
  [05:31:53.739]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [05:31:53.564] signalConditions() ...
  [05:31:53.739]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [05:31:53.565]  - include = 'immediateCondition'
  [05:31:53.740]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [05:31:53.565]  - exclude = 
  [05:31:53.740]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [05:31:53.565]  - resignal = FALSE
  [05:31:53.741]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [05:31:53.566]  - Number of conditions: 3
  [05:31:53.741]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [05:31:53.566] signalConditions() ... done
  [05:31:53.742]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [05:31:53.567] - accumulating results
  [05:31:53.742]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [05:31:53.568] - processing errors (handler = 'stop')
  [05:31:53.743]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [05:31:53.569] - extracting results
  [05:31:53.743]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [05:31:53.569] doFuture() ... DONE
  [05:31:53.744]  - Condition #268: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:31:53.745] signalConditions() ... done
  [05:31:53.745] - relayed: [n=1] TRUE
  [05:31:53.745] - queued futures: [n=1] TRUE
  [05:31:53.746] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:53.746]  length: 0 (resolved future 1)
  [05:31:53.746] Relaying remaining futures
  [05:31:53.747] signalConditionsASAP(NULL, pos=0) ...
  [05:31:53.747] - nx: 1
  [05:31:53.747] - relay: TRUE
  [05:31:53.748] - stdout: TRUE
  [05:31:53.748] - signal: TRUE
  [05:31:53.748] - resignal: FALSE
  [05:31:53.749] - force: FALSE
  [05:31:53.749] - relayed: [n=1] TRUE
  [05:31:53.749] - queued futures: [n=1] TRUE
   - flush all
  [05:31:53.750] - relayed: [n=1] TRUE
  [05:31:53.750] - queued futures: [n=1] TRUE
  [05:31:53.751] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:53.751] resolve() on list ... DONE
  [05:31:53.751] - collecting values of futures
  [05:31:53.752] signalConditions() ...
  [05:31:53.752]  - include = 'immediateCondition'
  [05:31:53.752]  - exclude = 
  [05:31:53.753]  - resignal = FALSE
  [05:31:53.753]  - Number of conditions: 268
  [05:31:53.754] signalConditions() ... done
  [05:31:53.755] - accumulating results
  [05:31:53.756] - processing errors (handler = 'stop')
  [05:31:53.756] - extracting results
  [05:31:53.757] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [05:31:53.759] plan(): Setting new future strategy stack:
  [05:31:53.759] List of future strategies:
  [05:31:53.759] 1. sequential:
  [05:31:53.759]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:53.759]    - tweaked: FALSE
  [05:31:53.759]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.759] 2. multicore:
  [05:31:53.759]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:31:53.759]    - tweaked: FALSE
  [05:31:53.759]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.761] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [05:31:53.762] doFuture() ...
  [05:31:53.763] - dummy globals (as locals): [1] 'a'
  [05:31:53.764] - R expression:
  [05:31:53.765] {
  [05:31:53.765]     doFuture::registerDoFuture()
  [05:31:53.765]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.765]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.765]         a <- NULL
  [05:31:53.765]         ...future.env <- environment()
  [05:31:53.765]         local({
  [05:31:53.765]             for (name in names(...future.x_jj)) {
  [05:31:53.765]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.765]                   inherits = FALSE)
  [05:31:53.765]             }
  [05:31:53.765]         })
  [05:31:53.765]         tryCatch({
  [05:31:53.765]             plan_list <- future::plan()
  [05:31:53.765]             stopifnot(inherits(plan_list, strategy2))
  [05:31:53.765]             plan_a <- future::plan("list")
  [05:31:53.765]             str(plan_a)
  [05:31:53.765]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.765]             message("foreach() - level 2 ...")
  [05:31:53.765]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.765]                 {
  [05:31:53.765]                   plan_list <- future::plan()
  [05:31:53.765]                   message(capture.output(print(plan_list)))
  [05:31:53.765]                   stopifnot(inherits(plan_list, "future"))
  [05:31:53.765]                   default <- getOption("future.plan", "sequential")
  [05:31:53.765]                   if (is.function(default)) 
  [05:31:53.765]                     default <- class(default)
  [05:31:53.765]                   stopifnot(inherits(plan_list, default))
  [05:31:53.765]                   plan_b <- future::plan("list")
  [05:31:53.765]                   str(plan_b)
  [05:31:53.765]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.765]                     inherits(plan_b[[1]], default))
  [05:31:53.765]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.765]                 }
  [05:31:53.765]             message("foreach() - level 2 ... DONE")
  [05:31:53.765]             y
  [05:31:53.765]         }, error = identity)
  [05:31:53.765]     })
  [05:31:53.765] }
  [05:31:53.766] - identifying globals and packages ...
  [05:31:53.767] getGlobalsAndPackages() ...
  [05:31:53.767] Searching for globals...
  [05:31:53.812] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:31:53.813] Searching for globals ... DONE
  [05:31:53.813] Resolving globals: FALSE
  [05:31:53.829] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:31:53.830] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.830] - packages: [2] 'utils', 'foreach'
  [05:31:53.831] getGlobalsAndPackages() ... DONE
  [05:31:53.831] List of 3
  [05:31:53.831]  $ ...future.x_ii: NULL
  [05:31:53.831]  $ strategy2     : chr "multicore"
  [05:31:53.831]  $ bs            : int [1:3] 3 2 1
  [05:31:53.831]  - attr(*, "where")=List of 3
  [05:31:53.831]   ..$ ...future.x_ii:<environment: 0x556d9cd42b60> 
  [05:31:53.831]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:53.831]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:53.831]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.831]  - attr(*, "resolved")= logi FALSE
  [05:31:53.831]  - attr(*, "total_size")= num 184
  [05:31:53.858]   - R expression:
  [05:31:53.859] {
  [05:31:53.859]     doFuture::registerDoFuture()
  [05:31:53.859]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.859]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.859]         a <- NULL
  [05:31:53.859]         ...future.env <- environment()
  [05:31:53.859]         local({
  [05:31:53.859]             for (name in names(...future.x_jj)) {
  [05:31:53.859]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.859]                   inherits = FALSE)
  [05:31:53.859]             }
  [05:31:53.859]         })
  [05:31:53.859]         tryCatch({
  [05:31:53.859]             plan_list <- future::plan()
  [05:31:53.859]             stopifnot(inherits(plan_list, strategy2))
  [05:31:53.859]             plan_a <- future::plan("list")
  [05:31:53.859]             str(plan_a)
  [05:31:53.859]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.859]             message("foreach() - level 2 ...")
  [05:31:53.859]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.859]                 {
  [05:31:53.859]                   plan_list <- future::plan()
  [05:31:53.859]                   message(capture.output(print(plan_list)))
  [05:31:53.859]                   stopifnot(inherits(plan_list, "future"))
  [05:31:53.859]                   default <- getOption("future.plan", "sequential")
  [05:31:53.859]                   if (is.function(default)) 
  [05:31:53.859]                     default <- class(default)
  [05:31:53.859]                   stopifnot(inherits(plan_list, default))
  [05:31:53.859]                   plan_b <- future::plan("list")
  [05:31:53.859]                   str(plan_b)
  [05:31:53.859]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.859]                     inherits(plan_b[[1]], default))
  [05:31:53.859]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.859]                 }
  [05:31:53.859]             message("foreach() - level 2 ... DONE")
  [05:31:53.859]             y
  [05:31:53.859]         }, error = identity)
  [05:31:53.859]     })
  [05:31:53.859] }
  [05:31:53.860]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.861] List of 3
  [05:31:53.861]  $ ...future.x_ii: NULL
  [05:31:53.861]  $ strategy2     : chr "multicore"
  [05:31:53.861]  $ bs            : int [1:3] 3 2 1
  [05:31:53.861]  - attr(*, "where")=List of 3
  [05:31:53.861]   ..$ ...future.x_ii:<environment: 0x556d9cd42b60> 
  [05:31:53.861]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:53.861]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:53.861]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:53.861]  - attr(*, "resolved")= logi FALSE
  [05:31:53.861]  - attr(*, "total_size")= num 184
  [05:31:53.872]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:31:53.872] - identifying globals and packages ... DONE
  [05:31:53.873] Number of chunks: 1
  [05:31:53.873] Number of futures (= number of chunks): 1
  [05:31:53.873] Launching 1 futures (chunks) ...
  [05:31:53.873] Chunk #1 of 1 ...
  [05:31:53.874]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:53.874] getGlobalsAndPackages() ...
  [05:31:53.891] Searching for globals...
  [05:31:53.892] 
  [05:31:53.892] Searching for globals ... DONE
  [05:31:53.893] - globals: [0] <none>
  [05:31:53.893] getGlobalsAndPackages() ... DONE
  [05:31:53.893] 
  [05:31:53.894] 
  [05:31:53.894]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:53.895] getGlobalsAndPackages() ...
  [05:31:53.895] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.896] Resolving globals: FALSE
  [05:31:53.897] The total size of the 3 globals is 296 bytes (296 bytes)
  [05:31:53.898] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:53.898] 
  [05:31:53.902] getGlobalsAndPackages() ... DONE
  [05:31:53.909] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:31:53.910] Packages needed by future strategies (n = 1): 'future'
  [05:31:53.916] {
  [05:31:53.916]     {
  [05:31:53.916]         ...future.startTime <- Sys.time()
  [05:31:53.916]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:53.916]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:53.916]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:53.916]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:53.916]             future.resolve.recursive = NULL, width = 80L)
  [05:31:53.916]         {
  [05:31:53.916]             {
  [05:31:53.916]                 {
  [05:31:53.916]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:53.916]                   version <- if (has_future) 
  [05:31:53.916]                     packageVersion("future")
  [05:31:53.916]                   else NULL
  [05:31:53.916]                   if (!has_future || version < "1.8.0") {
  [05:31:53.916]                     info <- c(r_version = gsub("R version ", 
  [05:31:53.916]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:53.916]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:53.916]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:53.916]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:53.916]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:53.916]                     info <- paste(info, collapse = "; ")
  [05:31:53.916]                     if (!has_future) {
  [05:31:53.916]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:53.916]                         info)
  [05:31:53.916]                     }
  [05:31:53.916]                     else {
  [05:31:53.916]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:53.916]                         info, version)
  [05:31:53.916]                     }
  [05:31:53.916]                     stop(msg)
  [05:31:53.916]                   }
  [05:31:53.916]                 }
  [05:31:53.916]                 local({
  [05:31:53.916]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:31:53.916]                   "future")) {
  [05:31:53.916]                     loadNamespace(pkg)
  [05:31:53.916]                     library(pkg, character.only = TRUE)
  [05:31:53.916]                   }
  [05:31:53.916]                 })
  [05:31:53.916]             }
  [05:31:53.916]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:53.916]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.916]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:53.916]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:53.916]             {
  [05:31:53.916]                 if (substitute) 
  [05:31:53.916]                   expr <- substitute(expr)
  [05:31:53.916]                 if (is.function(workers)) 
  [05:31:53.916]                   workers <- workers()
  [05:31:53.916]                 workers <- as.integer(workers)
  [05:31:53.916]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:53.916]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:53.916]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:53.916]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:53.916]                     local = TRUE, label = label, ...))
  [05:31:53.916]                 }
  [05:31:53.916]                 oopts <- options(mc.cores = workers)
  [05:31:53.916]                 on.exit(options(oopts))
  [05:31:53.916]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:53.916]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.916]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:53.916]                   label = label, ...)
  [05:31:53.916]                 if (!future$lazy) 
  [05:31:53.916]                   future <- run(future)
  [05:31:53.916]                 invisible(future)
  [05:31:53.916]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.916]         }
  [05:31:53.916]     }
  [05:31:53.916]     if (is.na(TRUE)) {
  [05:31:53.916]     }
  [05:31:53.916]     else {
  [05:31:53.916]         if (TRUE) {
  [05:31:53.916]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:53.916]         }
  [05:31:53.916]         else {
  [05:31:53.916]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:53.916]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:53.916]         }
  [05:31:53.916]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:53.916]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:53.916]             sink(type = "output", split = FALSE)
  [05:31:53.916]             close(...future.stdout)
  [05:31:53.916]         }, add = TRUE)
  [05:31:53.916]     }
  [05:31:53.916]     ...future.frame <- sys.nframe()
  [05:31:53.916]     ...future.conditions <- list()
  [05:31:53.916]     ...future.result <- tryCatch({
  [05:31:53.916]         withCallingHandlers({
  [05:31:53.916]             ...future.value <- local({
  [05:31:53.916]                 doFuture::registerDoFuture()
  [05:31:53.916]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.916]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.916]                   a <- NULL
  [05:31:53.916]                   ...future.env <- environment()
  [05:31:53.916]                   local({
  [05:31:53.916]                     for (name in names(...future.x_jj)) {
  [05:31:53.916]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.916]                         inherits = FALSE)
  [05:31:53.916]                     }
  [05:31:53.916]                   })
  [05:31:53.916]                   tryCatch({
  [05:31:53.916]                     plan_list <- future::plan()
  [05:31:53.916]                     stopifnot(inherits(plan_list, strategy2))
  [05:31:53.916]                     plan_a <- future::plan("list")
  [05:31:53.916]                     str(plan_a)
  [05:31:53.916]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:53.916]                     message("foreach() - level 2 ...")
  [05:31:53.916]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:53.916]                       {
  [05:31:53.916]                         plan_list <- future::plan()
  [05:31:53.916]                         message(capture.output(print(plan_list)))
  [05:31:53.916]                         stopifnot(inherits(plan_list, "future"))
  [05:31:53.916]                         default <- getOption("future.plan", "sequential")
  [05:31:53.916]                         if (is.function(default)) 
  [05:31:53.916]                           default <- class(default)
  [05:31:53.916]                         stopifnot(inherits(plan_list, default))
  [05:31:53.916]                         plan_b <- future::plan("list")
  [05:31:53.916]                         str(plan_b)
  [05:31:53.916]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:53.916]                           inherits(plan_b[[1]], default))
  [05:31:53.916]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.916]                       }
  [05:31:53.916]                     message("foreach() - level 2 ... DONE")
  [05:31:53.916]                     y
  [05:31:53.916]                   }, error = identity)
  [05:31:53.916]                 })
  [05:31:53.916]             })
  [05:31:53.916]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:53.916]                 version = "1.8")
  [05:31:53.916]         }, condition = local({
  [05:31:53.916]             inherits <- base::inherits
  [05:31:53.916]             invokeRestart <- base::invokeRestart
  [05:31:53.916]             length <- base::length
  [05:31:53.916]             seq.int <- base::seq.int
  [05:31:53.916]             sys.calls <- base::sys.calls
  [05:31:53.916]             `[[` <- base::`[[`
  [05:31:53.916]             `+` <- base::`+`
  [05:31:53.916]             `<<-` <- base::`<<-`
  [05:31:53.916]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:53.916]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:53.916]                   3L)]
  [05:31:53.916]             }
  [05:31:53.916]             function(cond) {
  [05:31:53.916]                 if (inherits(cond, "error")) {
  [05:31:53.916]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.916]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:53.916]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:53.916]                     signaled = 0L)
  [05:31:53.916]                   signalCondition(cond)
  [05:31:53.916]                 }
  [05:31:53.916]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:53.916]                 ))) {
  [05:31:53.916]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:53.916]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:53.916]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:53.916]                   if (inherits(cond, "message")) {
  [05:31:53.916]                     if (!signal) 
  [05:31:53.916]                       invokeRestart("muffleMessage")
  [05:31:53.916]                   }
  [05:31:53.916]                   else if (inherits(cond, "warning")) {
  [05:31:53.916]                     if (!signal) 
  [05:31:53.916]                       invokeRestart("muffleWarning")
  [05:31:53.916]                   }
  [05:31:53.916]                   else {
  [05:31:53.916]                     if (!signal) {
  [05:31:53.916]                       restarts <- computeRestarts(cond)
  [05:31:53.916]                       for (restart in restarts) {
  [05:31:53.916]                         name <- restart$name
  [05:31:53.916]                         if (is.null(name)) 
  [05:31:53.916]                           next
  [05:31:53.916]                         if (!grepl("^muffle", name)) 
  [05:31:53.916]                           next
  [05:31:53.916]                         invokeRestart(restart)
  [05:31:53.916]                         break
  [05:31:53.916]                       }
  [05:31:53.916]                     }
  [05:31:53.916]                   }
  [05:31:53.916]                 }
  [05:31:53.916]             }
  [05:31:53.916]         }))
  [05:31:53.916]     }, error = function(ex) {
  [05:31:53.916]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:53.916]             version = "1.8"), class = "FutureResult")
  [05:31:53.916]     }, finally = {
  [05:31:53.916]         {
  [05:31:53.916]             NULL
  [05:31:53.916]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:31:53.916]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:53.916]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:53.916]                 label = NULL, ...) 
  [05:31:53.916]             {
  [05:31:53.916]                 if (substitute) 
  [05:31:53.916]                   expr <- substitute(expr)
  [05:31:53.916]                 local <- as.logical(local)
  [05:31:53.916]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:53.916]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.916]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:53.916]                   label = label, ...)
  [05:31:53.916]                 if (!future$lazy) 
  [05:31:53.916]                   future <- run(future)
  [05:31:53.916]                 invisible(future)
  [05:31:53.916]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:31:53.916]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:53.916]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:53.916]             {
  [05:31:53.916]                 if (substitute) 
  [05:31:53.916]                   expr <- substitute(expr)
  [05:31:53.916]                 if (is.function(workers)) 
  [05:31:53.916]                   workers <- workers()
  [05:31:53.916]                 workers <- as.integer(workers)
  [05:31:53.916]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:53.916]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:53.916]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:53.916]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:53.916]                     local = TRUE, label = label, ...))
  [05:31:53.916]                 }
  [05:31:53.916]                 oopts <- options(mc.cores = workers)
  [05:31:53.916]                 on.exit(options(oopts))
  [05:31:53.916]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:53.916]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:53.916]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:53.916]                   label = label, ...)
  [05:31:53.916]                 if (!future$lazy) 
  [05:31:53.916]                   future <- run(future)
  [05:31:53.916]                 invisible(future)
  [05:31:53.916]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:53.916]         }
  [05:31:53.916]         options(...future.oldOptions)
  [05:31:53.916]     })
  [05:31:53.916]     if (is.na(TRUE)) {
  [05:31:53.916]     }
  [05:31:53.916]     else {
  [05:31:53.916]         sink(type = "output", split = FALSE)
  [05:31:53.916]         if (TRUE) {
  [05:31:53.916]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:53.916]         }
  [05:31:53.916]         else {
  [05:31:53.916]             ...future.result["stdout"] <- list(NULL)
  [05:31:53.916]         }
  [05:31:53.916]         close(...future.stdout)
  [05:31:53.916]         ...future.stdout <- NULL
  [05:31:53.916]     }
  [05:31:53.916]     ...future.result$conditions <- ...future.conditions
  [05:31:53.916]     ...future.result
  [05:31:53.916] }
  [05:31:53.924] plan(): Setting new future strategy stack:
  [05:31:53.924] List of future strategies:
  [05:31:53.924] 1. multicore:
  [05:31:53.924]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:31:53.924]    - tweaked: FALSE
  [05:31:53.924]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:53.966] plan(): nbrOfWorkers() = 2
  [05:31:54.612] plan(): Setting new future strategy stack:
  [05:31:54.613] List of future strategies:
  [05:31:54.613] 1. sequential:
  [05:31:54.613]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:54.613]    - tweaked: FALSE
  [05:31:54.613]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:54.613] 2. multicore:
  [05:31:54.613]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:31:54.613]    - tweaked: FALSE
  [05:31:54.613]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:54.614] plan(): nbrOfWorkers() = 1
  [05:31:54.615] SequentialFuture started (and completed)
  [05:31:54.616] signalConditions() ...
  [05:31:54.616]  - include = 'immediateCondition'
  [05:31:54.617]  - exclude = 
  [05:31:54.617]  - resignal = FALSE
  [05:31:54.617]  - Number of conditions: 398
  [05:31:54.619] signalConditions() ... done
  [05:31:54.620] Chunk #1 of 1 ... DONE
  [05:31:54.620] Launching 1 futures (chunks) ... DONE
  [05:31:54.621] - resolving futures
  [05:31:54.621]   - gathering results & relaying conditions (except errors)
  [05:31:54.621] resolve() on list ...
  [05:31:54.622]  recursive: 0
  [05:31:54.622]  length: 1
  [05:31:54.622] 
  [05:31:54.623] Future #1
  [05:31:54.623] signalConditions() ...
  [05:31:54.623]  - include = 'immediateCondition'
  [05:31:54.624]  - exclude = 
  [05:31:54.624]  - resignal = FALSE
  [05:31:54.624]  - Number of conditions: 398
  [05:31:54.627] signalConditions() ... done
  [05:31:54.627] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:31:54.627] - nx: 1
  [05:31:54.628] - relay: TRUE
  [05:31:54.628] - stdout: TRUE
  [05:31:54.628] - signal: TRUE
  [05:31:54.629] - resignal: FALSE
  [05:31:54.629] - force: FALSE
  [05:31:54.629] - relayed: [n=1] FALSE
  [05:31:54.630] - queued futures: [n=1] FALSE
  [05:31:54.630]  - until=1
  [05:31:54.643]  - relaying element #1
  [05:31:54.643] signalConditions() ...
  [05:31:54.644]  - include = 'immediateCondition'
  [05:31:54.644]  - exclude = 
  [05:31:54.644]  - resignal = FALSE
  [05:31:54.645]  - Number of conditions: 398
  [05:31:54.647] signalConditions() ... 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"
  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"
  [05:31:54.648] signalConditions() ...
  [05:31:54.648]  - include = 'condition'
  [05:31:54.648]  - exclude = 
  [05:31:54.649]  - resignal = FALSE
  [05:31:54.649]  - Number of conditions: 398
  [05:31:54.649]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:31:54.650]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:53.973] doFuture() ...
  [05:31:54.650]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:53.975] - dummy globals (as locals): [1] 'b'
  [05:31:54.651]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:31:53.977] - R expression:
  [05:31:54.651]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:31:53.977] {
  [05:31:53.977]     doFuture::registerDoFuture()
  [05:31:53.977]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:53.977]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:53.977]         b <- NULL
  [05:31:53.977]         ...future.env <- environment()
  [05:31:53.977]         local({
  [05:31:53.977]             for (name in names(...future.x_jj)) {
  [05:31:53.977]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:53.977]                   inherits = FALSE)
  [05:31:53.977]             }
  [05:31:53.977]         })
  [05:31:53.977]         tryCatch({
  [05:31:53.977]             plan_list <- future::plan()
  [05:31:53.977]             message(capture.output(print(plan_list)))
  [05:31:53.977]             stopifnot(inherits(plan_list, "future"))
  [05:31:53.977]             default <- getOption("future.plan", "sequential")
  [05:31:53.977]             if (is.function(default)) 
  [05:31:53.977]                 default <- class(default)
  [05:31:53.977]             stopifnot(inherits(plan_list, default))
  [05:31:53.977]             plan_b <- future::plan("list")
  [05:31:53.977]             str(plan_b)
  [05:31:53.977]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:53.977]                 default))
  [05:31:53.977]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:53.977]         }, error = identity)
  [05:31:53.977]     })
  [05:31:53.977] }
  [05:31:54.652]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:31:53.991] - identifying globals and packages ...
  [05:31:54.652]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:31:53.992] getGlobalsAndPackages() ...
  [05:31:54.653]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:31:53.992] Searching for globals...
  [05:31:54.653]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:31:54.040] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:31:54.654]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:31:54.041] Searching for globals ... DONE
  [05:31:54.654]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:31:54.042] Resolving globals: FALSE
  [05:31:54.655]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:31:54.045] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [05:31:54.655]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:31:54.046] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.656]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:31:54.051] - packages: [1] 'utils'
  [05:31:54.656]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:31:54.052] getGlobalsAndPackages() ... DONE
  [05:31:54.657]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:31:54.053] List of 3
  [05:31:54.053]  $ ...future.x_ii: NULL
  [05:31:54.053]  $ a             : int 1
  [05:31:54.053]  $ plan_a        :List of 1
  [05:31:54.053]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:54.053]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.053]     earlySignal = FALSE, label = NULL, ...)  
  [05:31:54.053]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:31:54.053]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:54.053]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:54.053]  - attr(*, "where")=List of 3
  [05:31:54.053]   ..$ ...future.x_ii:<environment: 0x556d9be94648> 
  [05:31:54.053]   ..$ a             :<environment: 0x556d9b158e48> 
  [05:31:54.053]   ..$ plan_a        :<environment: 0x556d9b158e48> 
  [05:31:54.053]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.053]  - attr(*, "resolved")= logi FALSE
  [05:31:54.053]  - attr(*, "total_size")= num 76816
  [05:31:54.657]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:31:54.069]   - R expression:
  [05:31:54.658]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:31:54.069] {
  [05:31:54.069]     doFuture::registerDoFuture()
  [05:31:54.069]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.069]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.069]         b <- NULL
  [05:31:54.069]         ...future.env <- environment()
  [05:31:54.069]         local({
  [05:31:54.069]             for (name in names(...future.x_jj)) {
  [05:31:54.069]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.069]                   inherits = FALSE)
  [05:31:54.069]             }
  [05:31:54.069]         })
  [05:31:54.069]         tryCatch({
  [05:31:54.069]             plan_list <- future::plan()
  [05:31:54.069]             message(capture.output(print(plan_list)))
  [05:31:54.069]             stopifnot(inherits(plan_list, "future"))
  [05:31:54.069]             default <- getOption("future.plan", "sequential")
  [05:31:54.069]             if (is.function(default)) 
  [05:31:54.069]                 default <- class(default)
  [05:31:54.069]             stopifnot(inherits(plan_list, default))
  [05:31:54.069]             plan_b <- future::plan("list")
  [05:31:54.069]             str(plan_b)
  [05:31:54.069]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:54.069]                 default))
  [05:31:54.069]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.069]         }, error = identity)
  [05:31:54.069]     })
  [05:31:54.069] }
  [05:31:54.658]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:31:54.070]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.675]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:31:54.071] List of 3
  [05:31:54.071]  $ ...future.x_ii: NULL
  [05:31:54.071]  $ a             : int 1
  [05:31:54.071]  $ plan_a        :List of 1
  [05:31:54.071]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:54.071]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.071]     earlySignal = FALSE, label = NULL, ...)  
  [05:31:54.071]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:31:54.071]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:54.071]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:54.071]  - attr(*, "where")=List of 3
  [05:31:54.071]   ..$ ...future.x_ii:<environment: 0x556d9be94648> 
  [05:31:54.071]   ..$ a             :<environment: 0x556d9b158e48> 
  [05:31:54.071]   ..$ plan_a        :<environment: 0x556d9b158e48> 
  [05:31:54.071]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.071]  - attr(*, "resolved")= logi FALSE
  [05:31:54.071]  - attr(*, "total_size")= num 76816
  [05:31:54.675]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:31:54.086]   - packages: [2] 'doFuture', 'utils'
  [05:31:54.676]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:31:54.087] - identifying globals and packages ... DONE
  [05:31:54.676]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:31:54.091] Number of chunks: 2
  [05:31:54.680]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:31:54.092] Number of futures (= number of chunks): 2
  [05:31:54.681]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:31:54.092] Launching 2 futures (chunks) ...
  [05:31:54.681]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:31:54.092] Chunk #1 of 2 ...
  [05:31:54.682]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:31:54.093]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:54.682]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:31:54.093] getGlobalsAndPackages() ...
  [05:31:54.683]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:31:54.094] Searching for globals...
  [05:31:54.683]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:31:54.095] 
  [05:31:54.684]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:31:54.095] Searching for globals ... DONE
  [05:31:54.684]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:31:54.096] - globals: [0] <none>
  [05:31:54.685]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:31:54.096] getGlobalsAndPackages() ... DONE
  [05:31:54.685]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:31:54.097] 
  [05:31:54.686]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:31:54.097] 
  [05:31:54.686]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:31:54.098]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:54.687]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:31:54.099] getGlobalsAndPackages() ...
  [05:31:54.688]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:31:54.100] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.688]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:31:54.100] Resolving globals: FALSE
  [05:31:54.688]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:31:54.102] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [05:31:54.689]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:31:54.103] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.689]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:31:54.103] 
  [05:31:54.690]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:31:54.104] getGlobalsAndPackages() ... DONE
  [05:31:54.707]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:31:54.107] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:54.707]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:31:54.107] Packages needed by future strategies (n = 0): <none>
  [05:31:54.708]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:31:54.114] {
  [05:31:54.114]     {
  [05:31:54.114]         ...future.startTime <- Sys.time()
  [05:31:54.114]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:54.114]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:54.114]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:54.114]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:54.114]             future.resolve.recursive = NULL, width = 80L)
  [05:31:54.114]         {
  [05:31:54.114]             {
  [05:31:54.114]                 {
  [05:31:54.114]                   {
  [05:31:54.114]                     has_future <- requireNamespace("future", 
  [05:31:54.114]                       quietly = TRUE)
  [05:31:54.114]                     version <- if (has_future) 
  [05:31:54.114]                       packageVersion("future")
  [05:31:54.114]                     else NULL
  [05:31:54.114]                     if (!has_future || version < "1.8.0") {
  [05:31:54.114]                       info <- c(r_version = gsub("R version ", 
  [05:31:54.114]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:54.114]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:54.114]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:31:54.114]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:54.114]                       info <- sprintf("%s: %s", names(info), 
  [05:31:54.114]                         info)
  [05:31:54.114]                       info <- paste(info, collapse = "; ")
  [05:31:54.114]                       if (!has_future) {
  [05:31:54.114]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:54.114]                           info)
  [05:31:54.114]                       }
  [05:31:54.114]                       else {
  [05:31:54.114]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:54.114]                           info, version)
  [05:31:54.114]                       }
  [05:31:54.114]                       stop(msg)
  [05:31:54.114]                     }
  [05:31:54.114]                   }
  [05:31:54.114]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:31:54.114]                   options(mc.cores = 1L)
  [05:31:54.114]                 }
  [05:31:54.114]                 local({
  [05:31:54.114]                   for (pkg in c("doFuture", "utils")) {
  [05:31:54.114]                     loadNamespace(pkg)
  [05:31:54.114]                     library(pkg, character.only = TRUE)
  [05:31:54.114]                   }
  [05:31:54.114]                 })
  [05:31:54.114]             }
  [05:31:54.114]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:54.114]         }
  [05:31:54.114]     }
  [05:31:54.114]     if (is.na(TRUE)) {
  [05:31:54.114]     }
  [05:31:54.114]     else {
  [05:31:54.114]         if (TRUE) {
  [05:31:54.114]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:54.114]         }
  [05:31:54.114]         else {
  [05:31:54.114]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:54.114]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:54.114]         }
  [05:31:54.114]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:54.114]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:54.114]             sink(type = "output", split = FALSE)
  [05:31:54.114]             close(...future.stdout)
  [05:31:54.114]         }, add = TRUE)
  [05:31:54.114]     }
  [05:31:54.114]     ...future.frame <- sys.nframe()
  [05:31:54.114]     ...future.conditions <- list()
  [05:31:54.114]     ...future.result <- tryCatch({
  [05:31:54.114]         withCallingHandlers({
  [05:31:54.114]             ...future.value <- local({
  [05:31:54.114]                 doFuture::registerDoFuture()
  [05:31:54.114]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.114]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.114]                   b <- NULL
  [05:31:54.114]                   ...future.env <- environment()
  [05:31:54.114]                   local({
  [05:31:54.114]                     for (name in names(...future.x_jj)) {
  [05:31:54.114]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.114]                         inherits = FALSE)
  [05:31:54.114]                     }
  [05:31:54.114]                   })
  [05:31:54.114]                   tryCatch({
  [05:31:54.114]                     plan_list <- future::plan()
  [05:31:54.114]                     message(capture.output(print(plan_list)))
  [05:31:54.114]                     stopifnot(inherits(plan_list, "future"))
  [05:31:54.114]                     default <- getOption("future.plan", "sequential")
  [05:31:54.114]                     if (is.function(default)) 
  [05:31:54.114]                       default <- class(default)
  [05:31:54.114]                     stopifnot(inherits(plan_list, default))
  [05:31:54.114]                     plan_b <- future::plan("list")
  [05:31:54.114]                     str(plan_b)
  [05:31:54.114]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.114]                       inherits(plan_b[[1]], default))
  [05:31:54.114]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.114]                   }, error = identity)
  [05:31:54.114]                 })
  [05:31:54.114]             })
  [05:31:54.114]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:54.114]                 version = "1.8")
  [05:31:54.114]         }, condition = local({
  [05:31:54.114]             inherits <- base::inherits
  [05:31:54.114]             invokeRestart <- base::invokeRestart
  [05:31:54.114]             length <- base::length
  [05:31:54.114]             seq.int <- base::seq.int
  [05:31:54.114]             sys.calls <- base::sys.calls
  [05:31:54.114]             `[[` <- base::`[[`
  [05:31:54.114]             `+` <- base::`+`
  [05:31:54.114]             `<<-` <- base::`<<-`
  [05:31:54.114]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:54.114]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:54.114]                   3L)]
  [05:31:54.114]             }
  [05:31:54.114]             function(cond) {
  [05:31:54.114]                 if (inherits(cond, "error")) {
  [05:31:54.114]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.114]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:54.114]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:54.114]                     signaled = 0L)
  [05:31:54.114]                   signalCondition(cond)
  [05:31:54.114]                 }
  [05:31:54.114]                 else if (inherits(cond, "condition")) {
  [05:31:54.114]                   signal <- FALSE && inherits(cond, character(0))
  [05:31:54.114]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.114]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:54.114]                   if (inherits(cond, "message")) {
  [05:31:54.114]                     if (!signal) 
  [05:31:54.114]                       invokeRestart("muffleMessage")
  [05:31:54.114]                   }
  [05:31:54.114]                   else if (inherits(cond, "warning")) {
  [05:31:54.114]                     if (!signal) 
  [05:31:54.114]                       invokeRestart("muffleWarning")
  [05:31:54.114]                   }
  [05:31:54.114]                   else {
  [05:31:54.114]                     if (!signal) {
  [05:31:54.114]                       restarts <- computeRestarts(cond)
  [05:31:54.114]                       for (restart in restarts) {
  [05:31:54.114]                         name <- restart$name
  [05:31:54.114]                         if (is.null(name)) 
  [05:31:54.114]                           next
  [05:31:54.114]                         if (!grepl("^muffle", name)) 
  [05:31:54.114]                           next
  [05:31:54.114]                         invokeRestart(restart)
  [05:31:54.114]                         break
  [05:31:54.114]                       }
  [05:31:54.114]                     }
  [05:31:54.114]                   }
  [05:31:54.114]                 }
  [05:31:54.114]             }
  [05:31:54.114]         }))
  [05:31:54.114]     }, error = function(ex) {
  [05:31:54.114]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:54.114]             version = "1.8"), class = "FutureResult")
  [05:31:54.114]     }, finally = {
  [05:31:54.114]         {
  [05:31:54.114]             {
  [05:31:54.114]                 options(mc.cores = ...future.mc.cores.old)
  [05:31:54.114]             }
  [05:31:54.114]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:54.114]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:54.114]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.114]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:54.114]             {
  [05:31:54.114]                 if (substitute) 
  [05:31:54.114]                   expr <- substitute(expr)
  [05:31:54.114]                 if (is.function(workers)) 
  [05:31:54.114]                   workers <- workers()
  [05:31:54.114]                 workers <- as.integer(workers)
  [05:31:54.114]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:54.114]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:54.114]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:54.114]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:54.114]                     local = TRUE, label = label, ...))
  [05:31:54.114]                 }
  [05:31:54.114]                 oopts <- options(mc.cores = workers)
  [05:31:54.114]                 on.exit(options(oopts))
  [05:31:54.114]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:54.114]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:54.114]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:54.114]                   label = label, ...)
  [05:31:54.114]                 if (!future$lazy) 
  [05:31:54.114]                   future <- run(future)
  [05:31:54.114]                 invisible(future)
  [05:31:54.114]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:54.114]         }
  [05:31:54.114]         options(...future.oldOptions)
  [05:31:54.114]     })
  [05:31:54.114]     if (is.na(TRUE)) {
  [05:31:54.114]     }
  [05:31:54.114]     else {
  [05:31:54.114]         sink(type = "output", split = FALSE)
  [05:31:54.114]         if (TRUE) {
  [05:31:54.114]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:54.114]         }
  [05:31:54.114]         else {
  [05:31:54.114]             ...future.result["stdout"] <- list(NULL)
  [05:31:54.114]         }
  [05:31:54.114]         close(...future.stdout)
  [05:31:54.114]         ...future.stdout <- NULL
  [05:31:54.114]     }
  [05:31:54.114]     ...future.result$conditions <- ...future.conditions
  [05:31:54.114]     ...future.result
  [05:31:54.114] }
  [05:31:54.708]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:31:54.119] requestCore(): workers = 2
  [05:31:54.709]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:31:54.125] MulticoreFuture started
  [05:31:54.709]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:31:54.126] Chunk #1 of 2 ... DONE
  [05:31:54.710]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:31:54.126] Chunk #2 of 2 ...
  [05:31:54.710]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:31:54.127]  - Finding globals in 'args_list' chunk #2 ...
  [05:31:54.711]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:31:54.127] getGlobalsAndPackages() ...
  [05:31:54.711]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:31:54.128] Searching for globals...
  [05:31:54.711]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:31:54.129] 
  [05:31:54.712]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:31:54.130] Searching for globals ... DONE
  [05:31:54.712]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:31:54.131] - globals: [0] <none>
  [05:31:54.713]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:31:54.131] getGlobalsAndPackages() ... DONE
  [05:31:54.713]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:31:54.131] 
  [05:31:54.714]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:31:54.132] 
  [05:31:54.714]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:31:54.132]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:31:54.715]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:31:54.134] getGlobalsAndPackages() ...
  [05:31:54.715]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:31:54.213] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.716]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:31:54.214] Resolving globals: FALSE
  [05:31:54.716]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:31:54.216] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [05:31:54.717]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:31:54.217] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.717]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:31:54.217] 
  [05:31:54.718]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:31:54.217] getGlobalsAndPackages() ... DONE
  [05:31:54.718]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:31:54.220] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:54.718]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:31:54.220] Packages needed by future strategies (n = 0): <none>
  [05:31:54.719]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:31:54.226] {
  [05:31:54.226]     {
  [05:31:54.226]         ...future.startTime <- Sys.time()
  [05:31:54.226]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:54.226]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:54.226]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:54.226]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:54.226]             future.resolve.recursive = NULL, width = 80L)
  [05:31:54.226]         {
  [05:31:54.226]             {
  [05:31:54.226]                 {
  [05:31:54.226]                   {
  [05:31:54.226]                     has_future <- requireNamespace("future", 
  [05:31:54.226]                       quietly = TRUE)
  [05:31:54.226]                     version <- if (has_future) 
  [05:31:54.226]                       packageVersion("future")
  [05:31:54.226]                     else NULL
  [05:31:54.226]                     if (!has_future || version < "1.8.0") {
  [05:31:54.226]                       info <- c(r_version = gsub("R version ", 
  [05:31:54.226]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:54.226]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:54.226]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:31:54.226]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:54.226]                       info <- sprintf("%s: %s", names(info), 
  [05:31:54.226]                         info)
  [05:31:54.226]                       info <- paste(info, collapse = "; ")
  [05:31:54.226]                       if (!has_future) {
  [05:31:54.226]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:54.226]                           info)
  [05:31:54.226]                       }
  [05:31:54.226]                       else {
  [05:31:54.226]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:54.226]                           info, version)
  [05:31:54.226]                       }
  [05:31:54.226]                       stop(msg)
  [05:31:54.226]                     }
  [05:31:54.226]                   }
  [05:31:54.226]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:31:54.226]                   options(mc.cores = 1L)
  [05:31:54.226]                 }
  [05:31:54.226]                 local({
  [05:31:54.226]                   for (pkg in c("doFuture", "utils")) {
  [05:31:54.226]                     loadNamespace(pkg)
  [05:31:54.226]                     library(pkg, character.only = TRUE)
  [05:31:54.226]                   }
  [05:31:54.226]                 })
  [05:31:54.226]             }
  [05:31:54.226]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:54.226]         }
  [05:31:54.226]     }
  [05:31:54.226]     if (is.na(TRUE)) {
  [05:31:54.226]     }
  [05:31:54.226]     else {
  [05:31:54.226]         if (TRUE) {
  [05:31:54.226]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:54.226]         }
  [05:31:54.226]         else {
  [05:31:54.226]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:54.226]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:54.226]         }
  [05:31:54.226]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:54.226]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:54.226]             sink(type = "output", split = FALSE)
  [05:31:54.226]             close(...future.stdout)
  [05:31:54.226]         }, add = TRUE)
  [05:31:54.226]     }
  [05:31:54.226]     ...future.frame <- sys.nframe()
  [05:31:54.226]     ...future.conditions <- list()
  [05:31:54.226]     ...future.result <- tryCatch({
  [05:31:54.226]         withCallingHandlers({
  [05:31:54.226]             ...future.value <- local({
  [05:31:54.226]                 doFuture::registerDoFuture()
  [05:31:54.226]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.226]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.226]                   b <- NULL
  [05:31:54.226]                   ...future.env <- environment()
  [05:31:54.226]                   local({
  [05:31:54.226]                     for (name in names(...future.x_jj)) {
  [05:31:54.226]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.226]                         inherits = FALSE)
  [05:31:54.226]                     }
  [05:31:54.226]                   })
  [05:31:54.226]                   tryCatch({
  [05:31:54.226]                     plan_list <- future::plan()
  [05:31:54.226]                     message(capture.output(print(plan_list)))
  [05:31:54.226]                     stopifnot(inherits(plan_list, "future"))
  [05:31:54.226]                     default <- getOption("future.plan", "sequential")
  [05:31:54.226]                     if (is.function(default)) 
  [05:31:54.226]                       default <- class(default)
  [05:31:54.226]                     stopifnot(inherits(plan_list, default))
  [05:31:54.226]                     plan_b <- future::plan("list")
  [05:31:54.226]                     str(plan_b)
  [05:31:54.226]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.226]                       inherits(plan_b[[1]], default))
  [05:31:54.226]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.226]                   }, error = identity)
  [05:31:54.226]                 })
  [05:31:54.226]             })
  [05:31:54.226]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:54.226]                 version = "1.8")
  [05:31:54.226]         }, condition = local({
  [05:31:54.226]             inherits <- base::inherits
  [05:31:54.226]             invokeRestart <- base::invokeRestart
  [05:31:54.226]             length <- base::length
  [05:31:54.226]             seq.int <- base::seq.int
  [05:31:54.226]             sys.calls <- base::sys.calls
  [05:31:54.226]             `[[` <- base::`[[`
  [05:31:54.226]             `+` <- base::`+`
  [05:31:54.226]             `<<-` <- base::`<<-`
  [05:31:54.226]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:54.226]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:54.226]                   3L)]
  [05:31:54.226]             }
  [05:31:54.226]             function(cond) {
  [05:31:54.226]                 if (inherits(cond, "error")) {
  [05:31:54.226]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.226]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:54.226]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:54.226]                     signaled = 0L)
  [05:31:54.226]                   signalCondition(cond)
  [05:31:54.226]                 }
  [05:31:54.226]                 else if (inherits(cond, "condition")) {
  [05:31:54.226]                   signal <- FALSE && inherits(cond, character(0))
  [05:31:54.226]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.226]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:54.226]                   if (inherits(cond, "message")) {
  [05:31:54.226]                     if (!signal) 
  [05:31:54.226]                       invokeRestart("muffleMessage")
  [05:31:54.226]                   }
  [05:31:54.226]                   else if (inherits(cond, "warning")) {
  [05:31:54.226]                     if (!signal) 
  [05:31:54.226]                       invokeRestart("muffleWarning")
  [05:31:54.226]                   }
  [05:31:54.226]                   else {
  [05:31:54.226]                     if (!signal) {
  [05:31:54.226]                       restarts <- computeRestarts(cond)
  [05:31:54.226]                       for (restart in restarts) {
  [05:31:54.226]                         name <- restart$name
  [05:31:54.226]                         if (is.null(name)) 
  [05:31:54.226]                           next
  [05:31:54.226]                         if (!grepl("^muffle", name)) 
  [05:31:54.226]                           next
  [05:31:54.226]                         invokeRestart(restart)
  [05:31:54.226]                         break
  [05:31:54.226]                       }
  [05:31:54.226]                     }
  [05:31:54.226]                   }
  [05:31:54.226]                 }
  [05:31:54.226]             }
  [05:31:54.226]         }))
  [05:31:54.226]     }, error = function(ex) {
  [05:31:54.226]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:54.226]             version = "1.8"), class = "FutureResult")
  [05:31:54.226]     }, finally = {
  [05:31:54.226]         {
  [05:31:54.226]             {
  [05:31:54.226]                 options(mc.cores = ...future.mc.cores.old)
  [05:31:54.226]             }
  [05:31:54.226]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:54.226]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:54.226]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.226]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:54.226]             {
  [05:31:54.226]                 if (substitute) 
  [05:31:54.226]                   expr <- substitute(expr)
  [05:31:54.226]                 if (is.function(workers)) 
  [05:31:54.226]                   workers <- workers()
  [05:31:54.226]                 workers <- as.integer(workers)
  [05:31:54.226]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:54.226]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:54.226]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:54.226]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:54.226]                     local = TRUE, label = label, ...))
  [05:31:54.226]                 }
  [05:31:54.226]                 oopts <- options(mc.cores = workers)
  [05:31:54.226]                 on.exit(options(oopts))
  [05:31:54.226]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:54.226]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:54.226]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:54.226]                   label = label, ...)
  [05:31:54.226]                 if (!future$lazy) 
  [05:31:54.226]                   future <- run(future)
  [05:31:54.226]                 invisible(future)
  [05:31:54.226]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:54.226]         }
  [05:31:54.226]         options(...future.oldOptions)
  [05:31:54.226]     })
  [05:31:54.226]     if (is.na(TRUE)) {
  [05:31:54.226]     }
  [05:31:54.226]     else {
  [05:31:54.226]         sink(type = "output", split = FALSE)
  [05:31:54.226]         if (TRUE) {
  [05:31:54.226]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:54.226]         }
  [05:31:54.226]         else {
  [05:31:54.226]             ...future.result["stdout"] <- list(NULL)
  [05:31:54.226]         }
  [05:31:54.226]         close(...future.stdout)
  [05:31:54.226]         ...future.stdout <- NULL
  [05:31:54.226]     }
  [05:31:54.226]     ...future.result$conditions <- ...future.conditions
  [05:31:54.226]     ...future.result
  [05:31:54.226] }
  [05:31:54.719]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:31:54.230] requestCore(): workers = 2
  [05:31:54.720]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:31:54.240] MulticoreFuture started
  [05:31:54.720]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:31:54.241] Chunk #2 of 2 ... DONE
  [05:31:54.721]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:31:54.242] Launching 2 futures (chunks) ... DONE
  [05:31:54.721]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:31:54.243] - resolving futures
  [05:31:54.722]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:31:54.243]   - gathering results & relaying conditions (except errors)
  [05:31:54.722]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:31:54.244] resolve() on list ...
  [05:31:54.735]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:31:54.244]  recursive: 0
  [05:31:54.736]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:31:54.245]  length: 2
  [05:31:54.736]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:31:54.245] 
  [05:31:54.737]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:31:54.279] Future #1
  [05:31:54.737]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:31:54.285] signalConditions() ...
  [05:31:54.738]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:31:54.286]  - include = 'immediateCondition'
  [05:31:54.738]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:31:54.286]  - exclude = 
  [05:31:54.739]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:31:54.287]  - resignal = FALSE
  [05:31:54.739]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:31:54.287]  - Number of conditions: 1
  [05:31:54.740]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:31:54.288] signalConditions() ... done
  [05:31:54.740]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:31:54.289] signalConditions() ...
  [05:31:54.740]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:31:54.289]  - include = 'immediateCondition'
  [05:31:54.741]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:31:54.290]  - exclude = 
  [05:31:54.741]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:31:54.290]  - resignal = FALSE
  [05:31:54.742]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:31:54.291]  - Number of conditions: 1
  [05:31:54.742]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:31:54.291] signalConditions() ... done
  [05:31:54.743]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:31:54.292] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:31:54.743]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:31:54.292] - nx: 2
  [05:31:54.744]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:31:54.293] - relay: TRUE
  [05:31:54.744]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:31:54.293] - stdout: TRUE
  [05:31:54.745]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [05:31:54.294] - signal: TRUE
  [05:31:54.745]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:31:54.294] - resignal: FALSE
  [05:31:54.746]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [05:31:54.295] - force: FALSE
  [05:31:54.746]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:31:54.295] - relayed: [n=2] FALSE, FALSE
  [05:31:54.746]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [05:31:54.296] - queued futures: [n=2] FALSE, FALSE
  [05:31:54.747]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:31:54.296]  - until=1
  [05:31:54.747]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:31:54.297]  - relaying element #1
  [05:31:54.748]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:31:54.298] signalConditions() ...
  [05:31:54.748]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:31:54.298]  - include = 'immediateCondition'
  [05:31:54.749]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:31:54.306]  - exclude = 
  [05:31:54.749]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:31:54.306]  - resignal = FALSE
  [05:31:54.750]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:31:54.307]  - Number of conditions: 1
  [05:31:54.750]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:31:54.307] signalConditions() ... done
  [05:31:54.751]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:31:54.308] signalConditions() ...
  [05:31:54.751]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:31:54.309]  - include = 'condition'
  [05:31:54.752]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:31:54.309]  - exclude = 
  [05:31:54.752]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:31:54.310]  - resignal = FALSE
  [05:31:54.752]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:31:54.310]  - Number of conditions: 1
  [05:31:54.753]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:31:54.311]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:54.753]  - Condition #117: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.754]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [05:31:54.311] signalConditions() ... done
  [05:31:54.754]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:31:54.312] - relayed: [n=2] TRUE, FALSE
  [05:31:54.755]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:31:54.312] - queued futures: [n=2] TRUE, FALSE
  [05:31:54.755]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:31:54.313] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [05:31:54.756]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:31:54.314]  length: 1 (resolved future 1)
  [05:31:54.756]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:31:54.314] Future #2
  [05:31:54.757]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:31:54.317] signalConditions() ...
  [05:31:54.757]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:31:54.317]  - include = 'immediateCondition'
  [05:31:54.757]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:31:54.318]  - exclude = 
  [05:31:54.758]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:31:54.319]  - resignal = FALSE
  [05:31:54.758]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:31:54.319]  - Number of conditions: 2
  [05:31:54.759]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:31:54.320] signalConditions() ... done
  [05:31:54.759]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:31:54.320] signalConditions() ...
  [05:31:54.760]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:31:54.321]  - include = 'immediateCondition'
  [05:31:54.760]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:31:54.321]  - exclude = 
  [05:31:54.761]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:31:54.322]  - resignal = FALSE
  [05:31:54.761]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [05:31:54.322]  - Number of conditions: 2
  [05:31:54.762]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [05:31:54.322] signalConditions() ... done
  [05:31:54.762]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [05:31:54.323] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [05:31:54.762]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [05:31:54.323] - nx: 2
  [05:31:54.763]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [05:31:54.324] - relay: TRUE
  [05:31:54.763]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [05:31:54.324] - stdout: TRUE
  [05:31:54.764]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [05:31:54.325] - signal: TRUE
  [05:31:54.764]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [05:31:54.325] - resignal: FALSE
  [05:31:54.765]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [05:31:54.326] - force: FALSE
  [05:31:54.765]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [05:31:54.326] - relayed: [n=2] TRUE, FALSE
  [05:31:54.766]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [05:31:54.326] - queued futures: [n=2] TRUE, FALSE
  [05:31:54.766]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [05:31:54.327]  - until=2
  [05:31:54.767]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [05:31:54.327]  - relaying element #2
  [05:31:54.767]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [05:31:54.328] signalConditions() ...
  [05:31:54.768]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [05:31:54.328]  - include = 'immediateCondition'
  [05:31:54.768]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [05:31:54.329]  - exclude = 
  [05:31:54.768]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [05:31:54.329]  - resignal = FALSE
  [05:31:54.769]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [05:31:54.330]  - Number of conditions: 2
  [05:31:54.769]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [05:31:54.330] signalConditions() ... done
  [05:31:54.770]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [05:31:54.331] signalConditions() ...
  [05:31:54.770]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [05:31:54.331]  - include = 'condition'
  [05:31:54.771]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [05:31:54.332]  - exclude = 
  [05:31:54.771]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [05:31:54.332]  - resignal = FALSE
  [05:31:54.772]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [05:31:54.333]  - Number of conditions: 2
  [05:31:54.772]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [05:31:54.333]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:54.773]  - Condition #159: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.773]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [05:31:54.334]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:54.774]  - Condition #161: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.774]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [05:31:54.334] signalConditions() ... done
  [05:31:54.775]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [05:31:54.335] - relayed: [n=2] TRUE, TRUE
  [05:31:54.775]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [05:31:54.335] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.776]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [05:31:54.336] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [05:31:54.776]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [05:31:54.336]  length: 0 (resolved future 2)
  [05:31:54.776]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [05:31:54.337] Relaying remaining futures
  [05:31:54.777]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [05:31:54.337] signalConditionsASAP(NULL, pos=0) ...
  [05:31:54.777]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [05:31:54.338] - nx: 2
  [05:31:54.778]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [05:31:54.338] - relay: TRUE
  [05:31:54.778]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [05:31:54.338] - stdout: TRUE
  [05:31:54.779]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [05:31:54.339] - signal: TRUE
  [05:31:54.779]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [05:31:54.339] - resignal: FALSE
  [05:31:54.783]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [05:31:54.340] - force: FALSE
  [05:31:54.784]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [05:31:54.340] - relayed: [n=2] TRUE, TRUE
  [05:31:54.784]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [05:31:54.341] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.785]  - Condition #177: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:31:54.785]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [05:31:54.341] - relayed: [n=2] TRUE, TRUE
  [05:31:54.786]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [05:31:54.342] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.786]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [05:31:54.342] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:54.787]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [05:31:54.343] resolve() on list ... DONE
  [05:31:54.787]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [05:31:54.343] - collecting values of futures
  [05:31:54.788]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [05:31:54.344] signalConditions() ...
  [05:31:54.788]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [05:31:54.344]  - include = 'immediateCondition'
  [05:31:54.789]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [05:31:54.345]  - exclude = 
  [05:31:54.789]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [05:31:54.345]  - resignal = FALSE
  [05:31:54.790]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [05:31:54.345]  - Number of conditions: 1
  [05:31:54.790]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [05:31:54.346] signalConditions() ... done
  [05:31:54.791]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [05:31:54.346] signalConditions() ...
  [05:31:54.791]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [05:31:54.347]  - include = 'immediateCondition'
  [05:31:54.792]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [05:31:54.347]  - exclude = 
  [05:31:54.792]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [05:31:54.348]  - resignal = FALSE
  [05:31:54.793]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [05:31:54.348]  - Number of conditions: 2
  [05:31:54.793]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [05:31:54.349] signalConditions() ... done
  [05:31:54.794]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [05:31:54.349] - accumulating results
  [05:31:54.794]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [05:31:54.355] - processing errors (handler = 'stop')
  [05:31:54.795]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [05:31:54.356] - extracting results
  [05:31:54.795]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [05:31:54.356] doFuture() ... DONE
  [05:31:54.795]  - Condition #199: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:31:54.796]  - Condition #200: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:31:54.796]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [05:31:54.364] doFuture() ...
  [05:31:54.797]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [05:31:54.366] - dummy globals (as locals): [1] 'b'
  [05:31:54.797]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [05:31:54.368] - R expression:
  [05:31:54.798]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [05:31:54.368] {
  [05:31:54.368]     doFuture::registerDoFuture()
  [05:31:54.368]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.368]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.368]         b <- NULL
  [05:31:54.368]         ...future.env <- environment()
  [05:31:54.368]         local({
  [05:31:54.368]             for (name in names(...future.x_jj)) {
  [05:31:54.368]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.368]                   inherits = FALSE)
  [05:31:54.368]             }
  [05:31:54.368]         })
  [05:31:54.368]         tryCatch({
  [05:31:54.368]             plan_list <- future::plan()
  [05:31:54.368]             message(capture.output(print(plan_list)))
  [05:31:54.368]             stopifnot(inherits(plan_list, "future"))
  [05:31:54.368]             default <- getOption("future.plan", "sequential")
  [05:31:54.368]             if (is.function(default)) 
  [05:31:54.368]                 default <- class(default)
  [05:31:54.368]             stopifnot(inherits(plan_list, default))
  [05:31:54.368]             plan_b <- future::plan("list")
  [05:31:54.368]             str(plan_b)
  [05:31:54.368]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:54.368]                 default))
  [05:31:54.368]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.368]         }, error = identity)
  [05:31:54.368]     })
  [05:31:54.368] }
  [05:31:54.798]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [05:31:54.370] - identifying globals and packages ...
  [05:31:54.799]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [05:31:54.370] getGlobalsAndPackages() ...
  [05:31:54.799]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [05:31:54.371] Searching for globals...
  [05:31:54.800]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [05:31:54.399] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:31:54.800]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [05:31:54.400] Searching for globals ... DONE
  [05:31:54.801]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [05:31:54.400] Resolving globals: FALSE
  [05:31:54.801]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [05:31:54.404] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [05:31:54.802]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [05:31:54.404] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.802]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [05:31:54.405] - packages: [1] 'utils'
  [05:31:54.802]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [05:31:54.405] getGlobalsAndPackages() ... DONE
  [05:31:54.803]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [05:31:54.406] List of 3
  [05:31:54.406]  $ ...future.x_ii: NULL
  [05:31:54.406]  $ a             : int 2
  [05:31:54.406]  $ plan_a        :List of 1
  [05:31:54.406]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:54.406]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.406]     earlySignal = FALSE, label = NULL, ...)  
  [05:31:54.406]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:31:54.406]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:54.406]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:54.406]  - attr(*, "where")=List of 3
  [05:31:54.406]   ..$ ...future.x_ii:<environment: 0x556d9b9667c8> 
  [05:31:54.406]   ..$ a             :<environment: 0x556d9ccf3948> 
  [05:31:54.406]   ..$ plan_a        :<environment: 0x556d9ccf3948> 
  [05:31:54.406]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.406]  - attr(*, "resolved")= logi FALSE
  [05:31:54.406]  - attr(*, "total_size")= num 76816
  [05:31:54.803]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [05:31:54.424]   - R expression:
  [05:31:54.804]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [05:31:54.425] {
  [05:31:54.425]     doFuture::registerDoFuture()
  [05:31:54.425]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.425]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.425]         b <- NULL
  [05:31:54.425]         ...future.env <- environment()
  [05:31:54.425]         local({
  [05:31:54.425]             for (name in names(...future.x_jj)) {
  [05:31:54.425]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.425]                   inherits = FALSE)
  [05:31:54.425]             }
  [05:31:54.425]         })
  [05:31:54.425]         tryCatch({
  [05:31:54.425]             plan_list <- future::plan()
  [05:31:54.425]             message(capture.output(print(plan_list)))
  [05:31:54.425]             stopifnot(inherits(plan_list, "future"))
  [05:31:54.425]             default <- getOption("future.plan", "sequential")
  [05:31:54.425]             if (is.function(default)) 
  [05:31:54.425]                 default <- class(default)
  [05:31:54.425]             stopifnot(inherits(plan_list, default))
  [05:31:54.425]             plan_b <- future::plan("list")
  [05:31:54.425]             str(plan_b)
  [05:31:54.425]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:54.425]                 default))
  [05:31:54.425]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.425]         }, error = identity)
  [05:31:54.425]     })
  [05:31:54.425] }
  [05:31:54.804]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [05:31:54.426]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.805]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [05:31:54.427] List of 3
  [05:31:54.427]  $ ...future.x_ii: NULL
  [05:31:54.427]  $ a             : int 2
  [05:31:54.427]  $ plan_a        :List of 1
  [05:31:54.427]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:54.427]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.427]     earlySignal = FALSE, label = NULL, ...)  
  [05:31:54.427]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:31:54.427]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:54.427]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:54.427]  - attr(*, "where")=List of 3
  [05:31:54.427]   ..$ ...future.x_ii:<environment: 0x556d9b9667c8> 
  [05:31:54.427]   ..$ a             :<environment: 0x556d9ccf3948> 
  [05:31:54.427]   ..$ plan_a        :<environment: 0x556d9ccf3948> 
  [05:31:54.427]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.427]  - attr(*, "resolved")= logi FALSE
  [05:31:54.427]  - attr(*, "total_size")= num 76816
  [05:31:54.805]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [05:31:54.441]   - packages: [2] 'doFuture', 'utils'
  [05:31:54.806]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [05:31:54.442] - identifying globals and packages ... DONE
  [05:31:54.806]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [05:31:54.443] Number of chunks: 2
  [05:31:54.807]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [05:31:54.444] Number of futures (= number of chunks): 2
  [05:31:54.807]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [05:31:54.444] Launching 2 futures (chunks) ...
  [05:31:54.808]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [05:31:54.445] Chunk #1 of 2 ...
  [05:31:54.808]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [05:31:54.445]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:54.809]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [05:31:54.446] getGlobalsAndPackages() ...
  [05:31:54.809]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [05:31:54.446] Searching for globals...
  [05:31:54.809]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [05:31:54.447] 
  [05:31:54.810]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [05:31:54.448] Searching for globals ... DONE
  [05:31:54.810]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [05:31:54.448] - globals: [0] <none>
  [05:31:54.811]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [05:31:54.448] getGlobalsAndPackages() ... DONE
  [05:31:54.811]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [05:31:54.449] 
  [05:31:54.812]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [05:31:54.449] 
  [05:31:54.812]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [05:31:54.450]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:54.813]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [05:31:54.451] getGlobalsAndPackages() ...
  [05:31:54.813]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [05:31:54.451] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.814]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [05:31:54.452] Resolving globals: FALSE
  [05:31:54.814]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [05:31:54.454] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [05:31:54.815]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [05:31:54.454] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.815]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [05:31:54.455] 
  [05:31:54.816]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [05:31:54.455] getGlobalsAndPackages() ... DONE
  [05:31:54.816]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [05:31:54.457] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:54.817]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [05:31:54.458] Packages needed by future strategies (n = 0): <none>
  [05:31:54.817]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [05:31:54.464] {
  [05:31:54.464]     {
  [05:31:54.464]         ...future.startTime <- Sys.time()
  [05:31:54.464]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:54.464]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:54.464]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:54.464]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:54.464]             future.resolve.recursive = NULL, width = 80L)
  [05:31:54.464]         {
  [05:31:54.464]             {
  [05:31:54.464]                 {
  [05:31:54.464]                   {
  [05:31:54.464]                     has_future <- requireNamespace("future", 
  [05:31:54.464]                       quietly = TRUE)
  [05:31:54.464]                     version <- if (has_future) 
  [05:31:54.464]                       packageVersion("future")
  [05:31:54.464]                     else NULL
  [05:31:54.464]                     if (!has_future || version < "1.8.0") {
  [05:31:54.464]                       info <- c(r_version = gsub("R version ", 
  [05:31:54.464]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:54.464]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:54.464]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:31:54.464]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:54.464]                       info <- sprintf("%s: %s", names(info), 
  [05:31:54.464]                         info)
  [05:31:54.464]                       info <- paste(info, collapse = "; ")
  [05:31:54.464]                       if (!has_future) {
  [05:31:54.464]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:54.464]                           info)
  [05:31:54.464]                       }
  [05:31:54.464]                       else {
  [05:31:54.464]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:54.464]                           info, version)
  [05:31:54.464]                       }
  [05:31:54.464]                       stop(msg)
  [05:31:54.464]                     }
  [05:31:54.464]                   }
  [05:31:54.464]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:31:54.464]                   options(mc.cores = 1L)
  [05:31:54.464]                 }
  [05:31:54.464]                 local({
  [05:31:54.464]                   for (pkg in c("doFuture", "utils")) {
  [05:31:54.464]                     loadNamespace(pkg)
  [05:31:54.464]                     library(pkg, character.only = TRUE)
  [05:31:54.464]                   }
  [05:31:54.464]                 })
  [05:31:54.464]             }
  [05:31:54.464]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:54.464]         }
  [05:31:54.464]     }
  [05:31:54.464]     if (is.na(TRUE)) {
  [05:31:54.464]     }
  [05:31:54.464]     else {
  [05:31:54.464]         if (TRUE) {
  [05:31:54.464]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:54.464]         }
  [05:31:54.464]         else {
  [05:31:54.464]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:54.464]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:54.464]         }
  [05:31:54.464]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:54.464]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:54.464]             sink(type = "output", split = FALSE)
  [05:31:54.464]             close(...future.stdout)
  [05:31:54.464]         }, add = TRUE)
  [05:31:54.464]     }
  [05:31:54.464]     ...future.frame <- sys.nframe()
  [05:31:54.464]     ...future.conditions <- list()
  [05:31:54.464]     ...future.result <- tryCatch({
  [05:31:54.464]         withCallingHandlers({
  [05:31:54.464]             ...future.value <- local({
  [05:31:54.464]                 doFuture::registerDoFuture()
  [05:31:54.464]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.464]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.464]                   b <- NULL
  [05:31:54.464]                   ...future.env <- environment()
  [05:31:54.464]                   local({
  [05:31:54.464]                     for (name in names(...future.x_jj)) {
  [05:31:54.464]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.464]                         inherits = FALSE)
  [05:31:54.464]                     }
  [05:31:54.464]                   })
  [05:31:54.464]                   tryCatch({
  [05:31:54.464]                     plan_list <- future::plan()
  [05:31:54.464]                     message(capture.output(print(plan_list)))
  [05:31:54.464]                     stopifnot(inherits(plan_list, "future"))
  [05:31:54.464]                     default <- getOption("future.plan", "sequential")
  [05:31:54.464]                     if (is.function(default)) 
  [05:31:54.464]                       default <- class(default)
  [05:31:54.464]                     stopifnot(inherits(plan_list, default))
  [05:31:54.464]                     plan_b <- future::plan("list")
  [05:31:54.464]                     str(plan_b)
  [05:31:54.464]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.464]                       inherits(plan_b[[1]], default))
  [05:31:54.464]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.464]                   }, error = identity)
  [05:31:54.464]                 })
  [05:31:54.464]             })
  [05:31:54.464]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:54.464]                 version = "1.8")
  [05:31:54.464]         }, condition = local({
  [05:31:54.464]             inherits <- base::inherits
  [05:31:54.464]             invokeRestart <- base::invokeRestart
  [05:31:54.464]             length <- base::length
  [05:31:54.464]             seq.int <- base::seq.int
  [05:31:54.464]             sys.calls <- base::sys.calls
  [05:31:54.464]             `[[` <- base::`[[`
  [05:31:54.464]             `+` <- base::`+`
  [05:31:54.464]             `<<-` <- base::`<<-`
  [05:31:54.464]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:54.464]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:54.464]                   3L)]
  [05:31:54.464]             }
  [05:31:54.464]             function(cond) {
  [05:31:54.464]                 if (inherits(cond, "error")) {
  [05:31:54.464]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.464]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:54.464]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:54.464]                     signaled = 0L)
  [05:31:54.464]                   signalCondition(cond)
  [05:31:54.464]                 }
  [05:31:54.464]                 else if (inherits(cond, "condition")) {
  [05:31:54.464]                   signal <- FALSE && inherits(cond, character(0))
  [05:31:54.464]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.464]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:54.464]                   if (inherits(cond, "message")) {
  [05:31:54.464]                     if (!signal) 
  [05:31:54.464]                       invokeRestart("muffleMessage")
  [05:31:54.464]                   }
  [05:31:54.464]                   else if (inherits(cond, "warning")) {
  [05:31:54.464]                     if (!signal) 
  [05:31:54.464]                       invokeRestart("muffleWarning")
  [05:31:54.464]                   }
  [05:31:54.464]                   else {
  [05:31:54.464]                     if (!signal) {
  [05:31:54.464]                       restarts <- computeRestarts(cond)
  [05:31:54.464]                       for (restart in restarts) {
  [05:31:54.464]                         name <- restart$name
  [05:31:54.464]                         if (is.null(name)) 
  [05:31:54.464]                           next
  [05:31:54.464]                         if (!grepl("^muffle", name)) 
  [05:31:54.464]                           next
  [05:31:54.464]                         invokeRestart(restart)
  [05:31:54.464]                         break
  [05:31:54.464]                       }
  [05:31:54.464]                     }
  [05:31:54.464]                   }
  [05:31:54.464]                 }
  [05:31:54.464]             }
  [05:31:54.464]         }))
  [05:31:54.464]     }, error = function(ex) {
  [05:31:54.464]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:54.464]             version = "1.8"), class = "FutureResult")
  [05:31:54.464]     }, finally = {
  [05:31:54.464]         {
  [05:31:54.464]             {
  [05:31:54.464]                 options(mc.cores = ...future.mc.cores.old)
  [05:31:54.464]             }
  [05:31:54.464]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:54.464]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:54.464]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.464]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:54.464]             {
  [05:31:54.464]                 if (substitute) 
  [05:31:54.464]                   expr <- substitute(expr)
  [05:31:54.464]                 if (is.function(workers)) 
  [05:31:54.464]                   workers <- workers()
  [05:31:54.464]                 workers <- as.integer(workers)
  [05:31:54.464]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:54.464]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:54.464]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:54.464]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:54.464]                     local = TRUE, label = label, ...))
  [05:31:54.464]                 }
  [05:31:54.464]                 oopts <- options(mc.cores = workers)
  [05:31:54.464]                 on.exit(options(oopts))
  [05:31:54.464]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:54.464]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:54.464]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:54.464]                   label = label, ...)
  [05:31:54.464]                 if (!future$lazy) 
  [05:31:54.464]                   future <- run(future)
  [05:31:54.464]                 invisible(future)
  [05:31:54.464]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:54.464]         }
  [05:31:54.464]         options(...future.oldOptions)
  [05:31:54.464]     })
  [05:31:54.464]     if (is.na(TRUE)) {
  [05:31:54.464]     }
  [05:31:54.464]     else {
  [05:31:54.464]         sink(type = "output", split = FALSE)
  [05:31:54.464]         if (TRUE) {
  [05:31:54.464]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:54.464]         }
  [05:31:54.464]         else {
  [05:31:54.464]             ...future.result["stdout"] <- list(NULL)
  [05:31:54.464]         }
  [05:31:54.464]         close(...future.stdout)
  [05:31:54.464]         ...future.stdout <- NULL
  [05:31:54.464]     }
  [05:31:54.464]     ...future.result$conditions <- ...future.conditions
  [05:31:54.464]     ...future.result
  [05:31:54.464] }
  [05:31:54.818]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [05:31:54.468] requestCore(): workers = 2
  [05:31:54.818]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [05:31:54.472] MulticoreFuture started
  [05:31:54.819]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [05:31:54.473] Chunk #1 of 2 ... DONE
  [05:31:54.819]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [05:31:54.474] Chunk #2 of 2 ...
  [05:31:54.819]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [05:31:54.474]  - Finding globals in 'args_list' chunk #2 ...
  [05:31:54.820]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [05:31:54.475] getGlobalsAndPackages() ...
  [05:31:54.820]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [05:31:54.475] Searching for globals...
  [05:31:54.821]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [05:31:54.477] 
  [05:31:54.821]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [05:31:54.478] Searching for globals ... DONE
  [05:31:54.822]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [05:31:54.479] - globals: [0] <none>
  [05:31:54.822]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [05:31:54.479] getGlobalsAndPackages() ... DONE
  [05:31:54.823]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [05:31:54.480] 
  [05:31:54.823]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [05:31:54.480] 
  [05:31:54.824]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [05:31:54.481]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:31:54.824]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [05:31:54.483] getGlobalsAndPackages() ...
  [05:31:54.825]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [05:31:54.484] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.825]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [05:31:54.485] Resolving globals: FALSE
  [05:31:54.826]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [05:31:54.487] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [05:31:54.826]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [05:31:54.488] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:31:54.827]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [05:31:54.488] 
  [05:31:54.827]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [05:31:54.489] getGlobalsAndPackages() ... DONE
  [05:31:54.828]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [05:31:54.492] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:31:54.828]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [05:31:54.493] Packages needed by future strategies (n = 0): <none>
  [05:31:54.829]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [05:31:54.500] {
  [05:31:54.500]     {
  [05:31:54.500]         ...future.startTime <- Sys.time()
  [05:31:54.500]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:54.500]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:54.500]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:54.500]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:54.500]             future.resolve.recursive = NULL, width = 80L)
  [05:31:54.500]         {
  [05:31:54.500]             {
  [05:31:54.500]                 {
  [05:31:54.500]                   {
  [05:31:54.500]                     has_future <- requireNamespace("future", 
  [05:31:54.500]                       quietly = TRUE)
  [05:31:54.500]                     version <- if (has_future) 
  [05:31:54.500]                       packageVersion("future")
  [05:31:54.500]                     else NULL
  [05:31:54.500]                     if (!has_future || version < "1.8.0") {
  [05:31:54.500]                       info <- c(r_version = gsub("R version ", 
  [05:31:54.500]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:54.500]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:54.500]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:31:54.500]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:54.500]                       info <- sprintf("%s: %s", names(info), 
  [05:31:54.500]                         info)
  [05:31:54.500]                       info <- paste(info, collapse = "; ")
  [05:31:54.500]                       if (!has_future) {
  [05:31:54.500]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:54.500]                           info)
  [05:31:54.500]                       }
  [05:31:54.500]                       else {
  [05:31:54.500]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:54.500]                           info, version)
  [05:31:54.500]                       }
  [05:31:54.500]                       stop(msg)
  [05:31:54.500]                     }
  [05:31:54.500]                   }
  [05:31:54.500]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:31:54.500]                   options(mc.cores = 1L)
  [05:31:54.500]                 }
  [05:31:54.500]                 local({
  [05:31:54.500]                   for (pkg in c("doFuture", "utils")) {
  [05:31:54.500]                     loadNamespace(pkg)
  [05:31:54.500]                     library(pkg, character.only = TRUE)
  [05:31:54.500]                   }
  [05:31:54.500]                 })
  [05:31:54.500]             }
  [05:31:54.500]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:31:54.500]         }
  [05:31:54.500]     }
  [05:31:54.500]     if (is.na(TRUE)) {
  [05:31:54.500]     }
  [05:31:54.500]     else {
  [05:31:54.500]         if (TRUE) {
  [05:31:54.500]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:54.500]         }
  [05:31:54.500]         else {
  [05:31:54.500]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:54.500]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:54.500]         }
  [05:31:54.500]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:54.500]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:54.500]             sink(type = "output", split = FALSE)
  [05:31:54.500]             close(...future.stdout)
  [05:31:54.500]         }, add = TRUE)
  [05:31:54.500]     }
  [05:31:54.500]     ...future.frame <- sys.nframe()
  [05:31:54.500]     ...future.conditions <- list()
  [05:31:54.500]     ...future.result <- tryCatch({
  [05:31:54.500]         withCallingHandlers({
  [05:31:54.500]             ...future.value <- local({
  [05:31:54.500]                 doFuture::registerDoFuture()
  [05:31:54.500]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.500]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.500]                   b <- NULL
  [05:31:54.500]                   ...future.env <- environment()
  [05:31:54.500]                   local({
  [05:31:54.500]                     for (name in names(...future.x_jj)) {
  [05:31:54.500]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.500]                         inherits = FALSE)
  [05:31:54.500]                     }
  [05:31:54.500]                   })
  [05:31:54.500]                   tryCatch({
  [05:31:54.500]                     plan_list <- future::plan()
  [05:31:54.500]                     message(capture.output(print(plan_list)))
  [05:31:54.500]                     stopifnot(inherits(plan_list, "future"))
  [05:31:54.500]                     default <- getOption("future.plan", "sequential")
  [05:31:54.500]                     if (is.function(default)) 
  [05:31:54.500]                       default <- class(default)
  [05:31:54.500]                     stopifnot(inherits(plan_list, default))
  [05:31:54.500]                     plan_b <- future::plan("list")
  [05:31:54.500]                     str(plan_b)
  [05:31:54.500]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.500]                       inherits(plan_b[[1]], default))
  [05:31:54.500]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.500]                   }, error = identity)
  [05:31:54.500]                 })
  [05:31:54.500]             })
  [05:31:54.500]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:54.500]                 version = "1.8")
  [05:31:54.500]         }, condition = local({
  [05:31:54.500]             inherits <- base::inherits
  [05:31:54.500]             invokeRestart <- base::invokeRestart
  [05:31:54.500]             length <- base::length
  [05:31:54.500]             seq.int <- base::seq.int
  [05:31:54.500]             sys.calls <- base::sys.calls
  [05:31:54.500]             `[[` <- base::`[[`
  [05:31:54.500]             `+` <- base::`+`
  [05:31:54.500]             `<<-` <- base::`<<-`
  [05:31:54.500]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:54.500]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:54.500]                   3L)]
  [05:31:54.500]             }
  [05:31:54.500]             function(cond) {
  [05:31:54.500]                 if (inherits(cond, "error")) {
  [05:31:54.500]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.500]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:54.500]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:54.500]                     signaled = 0L)
  [05:31:54.500]                   signalCondition(cond)
  [05:31:54.500]                 }
  [05:31:54.500]                 else if (inherits(cond, "condition")) {
  [05:31:54.500]                   signal <- FALSE && inherits(cond, character(0))
  [05:31:54.500]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:54.500]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:54.500]                   if (inherits(cond, "message")) {
  [05:31:54.500]                     if (!signal) 
  [05:31:54.500]                       invokeRestart("muffleMessage")
  [05:31:54.500]                   }
  [05:31:54.500]                   else if (inherits(cond, "warning")) {
  [05:31:54.500]                     if (!signal) 
  [05:31:54.500]                       invokeRestart("muffleWarning")
  [05:31:54.500]                   }
  [05:31:54.500]                   else {
  [05:31:54.500]                     if (!signal) {
  [05:31:54.500]                       restarts <- computeRestarts(cond)
  [05:31:54.500]                       for (restart in restarts) {
  [05:31:54.500]                         name <- restart$name
  [05:31:54.500]                         if (is.null(name)) 
  [05:31:54.500]                           next
  [05:31:54.500]                         if (!grepl("^muffle", name)) 
  [05:31:54.500]                           next
  [05:31:54.500]                         invokeRestart(restart)
  [05:31:54.500]                         break
  [05:31:54.500]                       }
  [05:31:54.500]                     }
  [05:31:54.500]                   }
  [05:31:54.500]                 }
  [05:31:54.500]             }
  [05:31:54.500]         }))
  [05:31:54.500]     }, error = function(ex) {
  [05:31:54.500]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:54.500]             version = "1.8"), class = "FutureResult")
  [05:31:54.500]     }, finally = {
  [05:31:54.500]         {
  [05:31:54.500]             {
  [05:31:54.500]                 options(mc.cores = ...future.mc.cores.old)
  [05:31:54.500]             }
  [05:31:54.500]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:54.500]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:54.500]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:31:54.500]                 earlySignal = FALSE, label = NULL, ...) 
  [05:31:54.500]             {
  [05:31:54.500]                 if (substitute) 
  [05:31:54.500]                   expr <- substitute(expr)
  [05:31:54.500]                 if (is.function(workers)) 
  [05:31:54.500]                   workers <- workers()
  [05:31:54.500]                 workers <- as.integer(workers)
  [05:31:54.500]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:31:54.500]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:31:54.500]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:54.500]                     lazy = lazy, seed = seed, globals = globals, 
  [05:31:54.500]                     local = TRUE, label = label, ...))
  [05:31:54.500]                 }
  [05:31:54.500]                 oopts <- options(mc.cores = workers)
  [05:31:54.500]                 on.exit(options(oopts))
  [05:31:54.500]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:31:54.500]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:54.500]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:31:54.500]                   label = label, ...)
  [05:31:54.500]                 if (!future$lazy) 
  [05:31:54.500]                   future <- run(future)
  [05:31:54.500]                 invisible(future)
  [05:31:54.500]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:54.500]         }
  [05:31:54.500]         options(...future.oldOptions)
  [05:31:54.500]     })
  [05:31:54.500]     if (is.na(TRUE)) {
  [05:31:54.500]     }
  [05:31:54.500]     else {
  [05:31:54.500]         sink(type = "output", split = FALSE)
  [05:31:54.500]         if (TRUE) {
  [05:31:54.500]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:54.500]         }
  [05:31:54.500]         else {
  [05:31:54.500]             ...future.result["stdout"] <- list(NULL)
  [05:31:54.500]         }
  [05:31:54.500]         close(...future.stdout)
  [05:31:54.500]         ...future.stdout <- NULL
  [05:31:54.500]     }
  [05:31:54.500]     ...future.result$conditions <- ...future.conditions
  [05:31:54.500]     ...future.result
  [05:31:54.500] }
  [05:31:54.829]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [05:31:54.511] requestCore(): workers = 2
  [05:31:54.830]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [05:31:54.515] MulticoreFuture started
  [05:31:54.830]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [05:31:54.517] Chunk #2 of 2 ... DONE
  [05:31:54.831]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [05:31:54.518] Launching 2 futures (chunks) ... DONE
  [05:31:54.831]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [05:31:54.518] - resolving futures
  [05:31:54.831]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [05:31:54.519]   - gathering results & relaying conditions (except errors)
  [05:31:54.832]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [05:31:54.519] resolve() on list ...
  [05:31:54.832]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [05:31:54.520]  recursive: 0
  [05:31:54.833]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [05:31:54.521]  length: 2
  [05:31:54.833]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [05:31:54.521] 
  [05:31:54.834]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [05:31:54.522] Future #1
  [05:31:54.834]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [05:31:54.529] signalConditions() ...
  [05:31:54.835]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [05:31:54.529]  - include = 'immediateCondition'
  [05:31:54.835]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [05:31:54.530]  - exclude = 
  [05:31:54.836]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [05:31:54.531]  - resignal = FALSE
  [05:31:54.836]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [05:31:54.531]  - Number of conditions: 1
  [05:31:54.837]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [05:31:54.532] signalConditions() ... done
  [05:31:54.837]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [05:31:54.533] signalConditions() ...
  [05:31:54.837]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [05:31:54.533]  - include = 'immediateCondition'
  [05:31:54.838]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [05:31:54.534]  - exclude = 
  [05:31:54.838]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [05:31:54.534]  - resignal = FALSE
  [05:31:54.839]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [05:31:54.535]  - Number of conditions: 1
  [05:31:54.839]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [05:31:54.535] signalConditions() ... done
  [05:31:54.840]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [05:31:54.544] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:31:54.840]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [05:31:54.545] - nx: 2
  [05:31:54.841]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [05:31:54.546] - relay: TRUE
  [05:31:54.841]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [05:31:54.547] - stdout: TRUE
  [05:31:54.842]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [05:31:54.548] - signal: TRUE
  [05:31:54.842]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [05:31:54.549] - resignal: FALSE
  [05:31:54.843]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [05:31:54.551] - force: FALSE
  [05:31:54.843]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [05:31:54.552] - relayed: [n=2] FALSE, FALSE
  [05:31:54.844]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [05:31:54.553] - queued futures: [n=2] FALSE, FALSE
  [05:31:54.844]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [05:31:54.554]  - until=1
  [05:31:54.844]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [05:31:54.554]  - relaying element #1
  [05:31:54.845]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [05:31:54.555] signalConditions() ...
  [05:31:54.845]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [05:31:54.556]  - include = 'immediateCondition'
  [05:31:54.846]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [05:31:54.557]  - exclude = 
  [05:31:54.846]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [05:31:54.558]  - resignal = FALSE
  [05:31:54.847]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [05:31:54.558]  - Number of conditions: 1
  [05:31:54.847]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [05:31:54.559] signalConditions() ... done
  [05:31:54.848]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [05:31:54.561] signalConditions() ...
  [05:31:54.848]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [05:31:54.561]  - include = 'condition'
  [05:31:54.849]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [05:31:54.562]  - exclude = 
  [05:31:54.849]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [05:31:54.563]  - resignal = FALSE
  [05:31:54.849]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [05:31:54.563]  - Number of conditions: 1
  [05:31:54.850]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [05:31:54.564]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:54.850]  - Condition #316: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.851]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [05:31:54.564] signalConditions() ... done
  [05:31:54.851]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [05:31:54.565] - relayed: [n=2] TRUE, FALSE
  [05:31:54.852]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [05:31:54.565] - queued futures: [n=2] TRUE, FALSE
  [05:31:54.852]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [05:31:54.566] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [05:31:54.853]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [05:31:54.566]  length: 1 (resolved future 1)
  [05:31:54.853]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [05:31:54.569] Future #2
  [05:31:54.854]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [05:31:54.571] signalConditions() ...
  [05:31:54.858]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [05:31:54.572]  - include = 'immediateCondition'
  [05:31:54.858]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [05:31:54.572]  - exclude = 
  [05:31:54.859]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [05:31:54.572]  - resignal = FALSE
  [05:31:54.859]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [05:31:54.573]  - Number of conditions: 2
  [05:31:54.860]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [05:31:54.573] signalConditions() ... done
  [05:31:54.860]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [05:31:54.574] signalConditions() ...
  [05:31:54.861]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [05:31:54.575]  - include = 'immediateCondition'
  [05:31:54.861]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [05:31:54.575]  - exclude = 
  [05:31:54.862]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [05:31:54.575]  - resignal = FALSE
  [05:31:54.862]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [05:31:54.576]  - Number of conditions: 2
  [05:31:54.863]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [05:31:54.576] signalConditions() ... done
  [05:31:54.863]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [05:31:54.577] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [05:31:54.864]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [05:31:54.577] - nx: 2
  [05:31:54.864]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [05:31:54.578] - relay: TRUE
  [05:31:54.865]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [05:31:54.578] - stdout: TRUE
  [05:31:54.865]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [05:31:54.583] - signal: TRUE
  [05:31:54.866]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [05:31:54.584] - resignal: FALSE
  [05:31:54.866]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [05:31:54.584] - force: FALSE
  [05:31:54.867]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [05:31:54.585] - relayed: [n=2] TRUE, FALSE
  [05:31:54.867]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [05:31:54.585] - queued futures: [n=2] TRUE, FALSE
  [05:31:54.868]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [05:31:54.585]  - until=2
  [05:31:54.868]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [05:31:54.586]  - relaying element #2
  [05:31:54.869]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [05:31:54.587] signalConditions() ...
  [05:31:54.869]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [05:31:54.587]  - include = 'immediateCondition'
  [05:31:54.870]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [05:31:54.587]  - exclude = 
  [05:31:54.870]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [05:31:54.588]  - resignal = FALSE
  [05:31:54.871]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [05:31:54.588]  - Number of conditions: 2
  [05:31:54.871]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [05:31:54.589] signalConditions() ... done
  [05:31:54.872]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [05:31:54.589] signalConditions() ...
  [05:31:54.872]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [05:31:54.590]  - include = 'condition'
  [05:31:54.872]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [05:31:54.590]  - exclude = 
  [05:31:54.873]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [05:31:54.591]  - resignal = FALSE
  [05:31:54.873]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [05:31:54.591]  - Number of conditions: 2
  [05:31:54.874]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [05:31:54.591]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:31:54.874]  - Condition #358: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.875]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [05:31:54.592]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:54.875]  - Condition #360: 'simpleMessage', 'message', 'condition'
  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
  [05:31:54.876]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [05:31:54.593] signalConditions() ... done
  [05:31:54.876]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [05:31:54.593] - relayed: [n=2] TRUE, TRUE
  [05:31:54.877]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [05:31:54.594] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.877]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [05:31:54.594] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [05:31:54.878]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [05:31:54.594]  length: 0 (resolved future 2)
  [05:31:54.878]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [05:31:54.595] Relaying remaining futures
  [05:31:54.879]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [05:31:54.595] signalConditionsASAP(NULL, pos=0) ...
  [05:31:54.879]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [05:31:54.596] - nx: 2
  [05:31:54.880]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [05:31:54.596] - relay: TRUE
  [05:31:54.880]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [05:31:54.597] - stdout: TRUE
  [05:31:54.880]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [05:31:54.597] - signal: TRUE
  [05:31:54.881]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [05:31:54.597] - resignal: FALSE
  [05:31:54.881]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [05:31:54.598] - force: FALSE
  [05:31:54.882]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [05:31:54.598] - relayed: [n=2] TRUE, TRUE
  [05:31:54.882]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [05:31:54.599] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.883]  - Condition #376: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:31:54.883]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [05:31:54.600] - relayed: [n=2] TRUE, TRUE
  [05:31:54.884]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [05:31:54.602] - queued futures: [n=2] TRUE, TRUE
  [05:31:54.884]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [05:31:54.602] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:54.885]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [05:31:54.603] resolve() on list ... DONE
  [05:31:54.885]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [05:31:54.603] - collecting values of futures
  [05:31:54.886]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [05:31:54.604] signalConditions() ...
  [05:31:54.886]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [05:31:54.604]  - include = 'immediateCondition'
  [05:31:54.886]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [05:31:54.604]  - exclude = 
  [05:31:54.887]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [05:31:54.605]  - resignal = FALSE
  [05:31:54.887]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [05:31:54.605]  - Number of conditions: 1
  [05:31:54.888]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [05:31:54.606] signalConditions() ... done
  [05:31:54.888]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [05:31:54.606] signalConditions() ...
  [05:31:54.889]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [05:31:54.607]  - include = 'immediateCondition'
  [05:31:54.889]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [05:31:54.607]  - exclude = 
  [05:31:54.890]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [05:31:54.608]  - resignal = FALSE
  [05:31:54.890]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [05:31:54.608]  - Number of conditions: 2
  [05:31:54.891]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [05:31:54.609] signalConditions() ... done
  [05:31:54.891]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [05:31:54.609] - accumulating results
  [05:31:54.892]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [05:31:54.610] - processing errors (handler = 'stop')
  [05:31:54.892]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [05:31:54.611] - extracting results
  [05:31:54.892]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [05:31:54.611] doFuture() ... DONE
  [05:31:54.893]  - Condition #398: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:31:54.894] signalConditions() ... done
  [05:31:54.894] - relayed: [n=1] TRUE
  [05:31:54.895] - queued futures: [n=1] TRUE
  [05:31:54.895] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:31:54.895]  length: 0 (resolved future 1)
  [05:31:54.896] Relaying remaining futures
  [05:31:54.896] signalConditionsASAP(NULL, pos=0) ...
  [05:31:54.896] - nx: 1
  [05:31:54.896] - relay: TRUE
  [05:31:54.897] - stdout: TRUE
  [05:31:54.897] - signal: TRUE
  [05:31:54.897] - resignal: FALSE
  [05:31:54.898] - force: FALSE
  [05:31:54.898] - relayed: [n=1] TRUE
  [05:31:54.898] - queued futures: [n=1] TRUE
   - flush all
  [05:31:54.899] - relayed: [n=1] TRUE
  [05:31:54.899] - queued futures: [n=1] TRUE
  [05:31:54.899] signalConditionsASAP(NULL, pos=0) ... done
  [05:31:54.900] resolve() on list ... DONE
  [05:31:54.900] - collecting values of futures
  [05:31:54.901] signalConditions() ...
  [05:31:54.901]  - include = 'immediateCondition'
  [05:31:54.901]  - exclude = 
  [05:31:54.901]  - resignal = FALSE
  [05:31:54.902]  - Number of conditions: 398
  [05:31:54.903] signalConditions() ... done
  [05:31:54.904] - accumulating results
  [05:31:54.905] - processing errors (handler = 'stop')
  [05:31:54.905] - extracting results
  [05:31:54.905] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [05:31:54.907] plan(): Setting new future strategy stack:
  [05:31:54.908] List of future strategies:
  [05:31:54.908] 1. sequential:
  [05:31:54.908]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:31:54.908]    - tweaked: FALSE
  [05:31:54.908]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:54.908] 2. multisession:
  [05:31:54.908]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:31:54.908]    - tweaked: FALSE
  [05:31:54.908]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:54.909] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [05:31:54.910] doFuture() ...
  [05:31:54.911] - dummy globals (as locals): [1] 'a'
  [05:31:54.912] - R expression:
  [05:31:54.912] {
  [05:31:54.912]     doFuture::registerDoFuture()
  [05:31:54.912]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.912]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.912]         a <- NULL
  [05:31:54.912]         ...future.env <- environment()
  [05:31:54.912]         local({
  [05:31:54.912]             for (name in names(...future.x_jj)) {
  [05:31:54.912]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.912]                   inherits = FALSE)
  [05:31:54.912]             }
  [05:31:54.912]         })
  [05:31:54.912]         tryCatch({
  [05:31:54.912]             plan_list <- future::plan()
  [05:31:54.912]             stopifnot(inherits(plan_list, strategy2))
  [05:31:54.912]             plan_a <- future::plan("list")
  [05:31:54.912]             str(plan_a)
  [05:31:54.912]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:54.912]             message("foreach() - level 2 ...")
  [05:31:54.912]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:54.912]                 {
  [05:31:54.912]                   plan_list <- future::plan()
  [05:31:54.912]                   message(capture.output(print(plan_list)))
  [05:31:54.912]                   stopifnot(inherits(plan_list, "future"))
  [05:31:54.912]                   default <- getOption("future.plan", "sequential")
  [05:31:54.912]                   if (is.function(default)) 
  [05:31:54.912]                     default <- class(default)
  [05:31:54.912]                   stopifnot(inherits(plan_list, default))
  [05:31:54.912]                   plan_b <- future::plan("list")
  [05:31:54.912]                   str(plan_b)
  [05:31:54.912]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.912]                     inherits(plan_b[[1]], default))
  [05:31:54.912]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.912]                 }
  [05:31:54.912]             message("foreach() - level 2 ... DONE")
  [05:31:54.912]             y
  [05:31:54.912]         }, error = identity)
  [05:31:54.912]     })
  [05:31:54.912] }
  [05:31:54.914] - identifying globals and packages ...
  [05:31:54.914] getGlobalsAndPackages() ...
  [05:31:54.915] Searching for globals...
  [05:31:54.954] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:31:54.954] Searching for globals ... DONE
  [05:31:54.955] Resolving globals: FALSE
  [05:31:54.958] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:31:54.958] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:54.959] - packages: [2] 'utils', 'foreach'
  [05:31:54.959] getGlobalsAndPackages() ... DONE
  [05:31:54.959] List of 3
  [05:31:54.959]  $ ...future.x_ii: NULL
  [05:31:54.959]  $ strategy2     : chr "multisession"
  [05:31:54.959]  $ bs            : int [1:3] 3 2 1
  [05:31:54.959]  - attr(*, "where")=List of 3
  [05:31:54.959]   ..$ ...future.x_ii:<environment: 0x556d9cd69820> 
  [05:31:54.959]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:54.959]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:54.959]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.959]  - attr(*, "resolved")= logi FALSE
  [05:31:54.959]  - attr(*, "total_size")= num 184
  [05:31:54.970]   - R expression:
  [05:31:54.971] {
  [05:31:54.971]     doFuture::registerDoFuture()
  [05:31:54.971]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:54.971]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:54.971]         a <- NULL
  [05:31:54.971]         ...future.env <- environment()
  [05:31:54.971]         local({
  [05:31:54.971]             for (name in names(...future.x_jj)) {
  [05:31:54.971]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:54.971]                   inherits = FALSE)
  [05:31:54.971]             }
  [05:31:54.971]         })
  [05:31:54.971]         tryCatch({
  [05:31:54.971]             plan_list <- future::plan()
  [05:31:54.971]             stopifnot(inherits(plan_list, strategy2))
  [05:31:54.971]             plan_a <- future::plan("list")
  [05:31:54.971]             str(plan_a)
  [05:31:54.971]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:54.971]             message("foreach() - level 2 ...")
  [05:31:54.971]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:54.971]                 {
  [05:31:54.971]                   plan_list <- future::plan()
  [05:31:54.971]                   message(capture.output(print(plan_list)))
  [05:31:54.971]                   stopifnot(inherits(plan_list, "future"))
  [05:31:54.971]                   default <- getOption("future.plan", "sequential")
  [05:31:54.971]                   if (is.function(default)) 
  [05:31:54.971]                     default <- class(default)
  [05:31:54.971]                   stopifnot(inherits(plan_list, default))
  [05:31:54.971]                   plan_b <- future::plan("list")
  [05:31:54.971]                   str(plan_b)
  [05:31:54.971]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:54.971]                     inherits(plan_b[[1]], default))
  [05:31:54.971]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:54.971]                 }
  [05:31:54.971]             message("foreach() - level 2 ... DONE")
  [05:31:54.971]             y
  [05:31:54.971]         }, error = identity)
  [05:31:54.971]     })
  [05:31:54.971] }
  [05:31:54.972]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:54.972] List of 3
  [05:31:54.972]  $ ...future.x_ii: NULL
  [05:31:54.972]  $ strategy2     : chr "multisession"
  [05:31:54.972]  $ bs            : int [1:3] 3 2 1
  [05:31:54.972]  - attr(*, "where")=List of 3
  [05:31:54.972]   ..$ ...future.x_ii:<environment: 0x556d9cd69820> 
  [05:31:54.972]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:31:54.972]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:31:54.972]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:54.972]  - attr(*, "resolved")= logi FALSE
  [05:31:54.972]  - attr(*, "total_size")= num 184
  [05:31:54.982]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:31:54.983] - identifying globals and packages ... DONE
  [05:31:54.983] Number of chunks: 1
  [05:31:54.983] Number of futures (= number of chunks): 1
  [05:31:54.984] Launching 1 futures (chunks) ...
  [05:31:54.984] Chunk #1 of 1 ...
  [05:31:54.984]  - Finding globals in 'args_list' chunk #1 ...
  [05:31:54.985] getGlobalsAndPackages() ...
  [05:31:54.985] Searching for globals...
  [05:31:54.986] 
  [05:31:54.986] Searching for globals ... DONE
  [05:31:54.987] - globals: [0] <none>
  [05:31:54.987] getGlobalsAndPackages() ... DONE
  [05:31:54.987] 
  [05:31:54.987] 
  [05:31:54.988]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:31:54.988] getGlobalsAndPackages() ...
  [05:31:54.989] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:54.989] Resolving globals: FALSE
  [05:31:54.994] The total size of the 3 globals is 296 bytes (296 bytes)
  [05:31:54.994] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:31:54.995] 
  [05:31:54.995] getGlobalsAndPackages() ... DONE
  [05:31:54.997] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:31:54.997] Packages needed by future strategies (n = 1): 'future'
  [05:31:55.003] {
  [05:31:55.003]     {
  [05:31:55.003]         ...future.startTime <- Sys.time()
  [05:31:55.003]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:31:55.003]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:31:55.003]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:31:55.003]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:31:55.003]             future.resolve.recursive = NULL, width = 80L)
  [05:31:55.003]         {
  [05:31:55.003]             {
  [05:31:55.003]                 {
  [05:31:55.003]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:31:55.003]                   version <- if (has_future) 
  [05:31:55.003]                     packageVersion("future")
  [05:31:55.003]                   else NULL
  [05:31:55.003]                   if (!has_future || version < "1.8.0") {
  [05:31:55.003]                     info <- c(r_version = gsub("R version ", 
  [05:31:55.003]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:31:55.003]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:31:55.003]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:31:55.003]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:31:55.003]                     info <- sprintf("%s: %s", names(info), info)
  [05:31:55.003]                     info <- paste(info, collapse = "; ")
  [05:31:55.003]                     if (!has_future) {
  [05:31:55.003]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:31:55.003]                         info)
  [05:31:55.003]                     }
  [05:31:55.003]                     else {
  [05:31:55.003]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:31:55.003]                         info, version)
  [05:31:55.003]                     }
  [05:31:55.003]                     stop(msg)
  [05:31:55.003]                   }
  [05:31:55.003]                 }
  [05:31:55.003]                 local({
  [05:31:55.003]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:31:55.003]                   "future")) {
  [05:31:55.003]                     loadNamespace(pkg)
  [05:31:55.003]                     library(pkg, character.only = TRUE)
  [05:31:55.003]                   }
  [05:31:55.003]                 })
  [05:31:55.003]             }
  [05:31:55.003]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:31:55.003]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:55.003]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:31:55.003]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:31:55.003]                 ...) 
  [05:31:55.003]             {
  [05:31:55.003]                 if (substitute) 
  [05:31:55.003]                   expr <- substitute(expr)
  [05:31:55.003]                 if (is.function(workers)) 
  [05:31:55.003]                   workers <- workers()
  [05:31:55.003]                 workers <- as.integer(workers)
  [05:31:55.003]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:31:55.003]                   workers >= 1)
  [05:31:55.003]                 if (workers == 1L) {
  [05:31:55.003]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:55.003]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:31:55.003]                     local = TRUE, label = label, ...))
  [05:31:55.003]                 }
  [05:31:55.003]                 workers <- ClusterRegistry("start", workers = workers)
  [05:31:55.003]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:31:55.003]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:55.003]                   globals = globals, persistent = persistent, 
  [05:31:55.003]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:31:55.003]                   label = label, ...)
  [05:31:55.003]                 if (!future$lazy) 
  [05:31:55.003]                   future <- run(future)
  [05:31:55.003]                 invisible(future)
  [05:31:55.003]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:55.003]         }
  [05:31:55.003]     }
  [05:31:55.003]     if (is.na(TRUE)) {
  [05:31:55.003]     }
  [05:31:55.003]     else {
  [05:31:55.003]         if (TRUE) {
  [05:31:55.003]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:31:55.003]         }
  [05:31:55.003]         else {
  [05:31:55.003]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:31:55.003]                 windows = "NUL", "/dev/null"), open = "w")
  [05:31:55.003]         }
  [05:31:55.003]         sink(...future.stdout, type = "output", split = FALSE)
  [05:31:55.003]         on.exit(if (!is.null(...future.stdout)) {
  [05:31:55.003]             sink(type = "output", split = FALSE)
  [05:31:55.003]             close(...future.stdout)
  [05:31:55.003]         }, add = TRUE)
  [05:31:55.003]     }
  [05:31:55.003]     ...future.frame <- sys.nframe()
  [05:31:55.003]     ...future.conditions <- list()
  [05:31:55.003]     ...future.result <- tryCatch({
  [05:31:55.003]         withCallingHandlers({
  [05:31:55.003]             ...future.value <- local({
  [05:31:55.003]                 doFuture::registerDoFuture()
  [05:31:55.003]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:55.003]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:55.003]                   a <- NULL
  [05:31:55.003]                   ...future.env <- environment()
  [05:31:55.003]                   local({
  [05:31:55.003]                     for (name in names(...future.x_jj)) {
  [05:31:55.003]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:55.003]                         inherits = FALSE)
  [05:31:55.003]                     }
  [05:31:55.003]                   })
  [05:31:55.003]                   tryCatch({
  [05:31:55.003]                     plan_list <- future::plan()
  [05:31:55.003]                     stopifnot(inherits(plan_list, strategy2))
  [05:31:55.003]                     plan_a <- future::plan("list")
  [05:31:55.003]                     str(plan_a)
  [05:31:55.003]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:31:55.003]                     message("foreach() - level 2 ...")
  [05:31:55.003]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:31:55.003]                       {
  [05:31:55.003]                         plan_list <- future::plan()
  [05:31:55.003]                         message(capture.output(print(plan_list)))
  [05:31:55.003]                         stopifnot(inherits(plan_list, "future"))
  [05:31:55.003]                         default <- getOption("future.plan", "sequential")
  [05:31:55.003]                         if (is.function(default)) 
  [05:31:55.003]                           default <- class(default)
  [05:31:55.003]                         stopifnot(inherits(plan_list, default))
  [05:31:55.003]                         plan_b <- future::plan("list")
  [05:31:55.003]                         str(plan_b)
  [05:31:55.003]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:31:55.003]                           inherits(plan_b[[1]], default))
  [05:31:55.003]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:55.003]                       }
  [05:31:55.003]                     message("foreach() - level 2 ... DONE")
  [05:31:55.003]                     y
  [05:31:55.003]                   }, error = identity)
  [05:31:55.003]                 })
  [05:31:55.003]             })
  [05:31:55.003]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:31:55.003]                 version = "1.8")
  [05:31:55.003]         }, condition = local({
  [05:31:55.003]             inherits <- base::inherits
  [05:31:55.003]             invokeRestart <- base::invokeRestart
  [05:31:55.003]             length <- base::length
  [05:31:55.003]             seq.int <- base::seq.int
  [05:31:55.003]             sys.calls <- base::sys.calls
  [05:31:55.003]             `[[` <- base::`[[`
  [05:31:55.003]             `+` <- base::`+`
  [05:31:55.003]             `<<-` <- base::`<<-`
  [05:31:55.003]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:31:55.003]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:31:55.003]                   3L)]
  [05:31:55.003]             }
  [05:31:55.003]             function(cond) {
  [05:31:55.003]                 if (inherits(cond, "error")) {
  [05:31:55.003]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:55.003]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:31:55.003]                     cond$call), timestamp = base::Sys.time(), 
  [05:31:55.003]                     signaled = 0L)
  [05:31:55.003]                   signalCondition(cond)
  [05:31:55.003]                 }
  [05:31:55.003]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:31:55.003]                 ))) {
  [05:31:55.003]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:31:55.003]                   ...future.conditions[[length(...future.conditions) + 
  [05:31:55.003]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:31:55.003]                   if (inherits(cond, "message")) {
  [05:31:55.003]                     if (!signal) 
  [05:31:55.003]                       invokeRestart("muffleMessage")
  [05:31:55.003]                   }
  [05:31:55.003]                   else if (inherits(cond, "warning")) {
  [05:31:55.003]                     if (!signal) 
  [05:31:55.003]                       invokeRestart("muffleWarning")
  [05:31:55.003]                   }
  [05:31:55.003]                   else {
  [05:31:55.003]                     if (!signal) {
  [05:31:55.003]                       restarts <- computeRestarts(cond)
  [05:31:55.003]                       for (restart in restarts) {
  [05:31:55.003]                         name <- restart$name
  [05:31:55.003]                         if (is.null(name)) 
  [05:31:55.003]                           next
  [05:31:55.003]                         if (!grepl("^muffle", name)) 
  [05:31:55.003]                           next
  [05:31:55.003]                         invokeRestart(restart)
  [05:31:55.003]                         break
  [05:31:55.003]                       }
  [05:31:55.003]                     }
  [05:31:55.003]                   }
  [05:31:55.003]                 }
  [05:31:55.003]             }
  [05:31:55.003]         }))
  [05:31:55.003]     }, error = function(ex) {
  [05:31:55.003]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:31:55.003]             version = "1.8"), class = "FutureResult")
  [05:31:55.003]     }, finally = {
  [05:31:55.003]         {
  [05:31:55.003]             NULL
  [05:31:55.003]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:31:55.003]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:31:55.003]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:31:55.003]                 label = NULL, ...) 
  [05:31:55.003]             {
  [05:31:55.003]                 if (substitute) 
  [05:31:55.003]                   expr <- substitute(expr)
  [05:31:55.003]                 local <- as.logical(local)
  [05:31:55.003]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:31:55.003]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:55.003]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:31:55.003]                   label = label, ...)
  [05:31:55.003]                 if (!future$lazy) 
  [05:31:55.003]                   future <- run(future)
  [05:31:55.003]                 invisible(future)
  [05:31:55.003]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:31:55.003]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:31:55.003]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [05:31:55.003]                 label = NULL, ...) 
  [05:31:55.003]             {
  [05:31:55.003]                 if (substitute) 
  [05:31:55.003]                   expr <- substitute(expr)
  [05:31:55.003]                 if (is.function(workers)) 
  [05:31:55.003]                   workers <- workers()
  [05:31:55.003]                 workers <- as.integer(workers)
  [05:31:55.003]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:31:55.003]                   workers >= 1)
  [05:31:55.003]                 if (workers == 1L) {
  [05:31:55.003]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:31:55.003]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:31:55.003]                     local = TRUE, label = label, ...))
  [05:31:55.003]                 }
  [05:31:55.003]                 workers <- ClusterRegistry("start", workers = workers)
  [05:31:55.003]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:31:55.003]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:31:55.003]                   globals = globals, persistent = persistent, 
  [05:31:55.003]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:31:55.003]                   label = label, ...)
  [05:31:55.003]                 if (!future$lazy) 
  [05:31:55.003]                   future <- run(future)
  [05:31:55.003]                 invisible(future)
  [05:31:55.003]             }), .cleanup = FALSE, .init = FALSE)
  [05:31:55.003]         }
  [05:31:55.003]         options(...future.oldOptions)
  [05:31:55.003]     })
  [05:31:55.003]     if (is.na(TRUE)) {
  [05:31:55.003]     }
  [05:31:55.003]     else {
  [05:31:55.003]         sink(type = "output", split = FALSE)
  [05:31:55.003]         if (TRUE) {
  [05:31:55.003]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:31:55.003]         }
  [05:31:55.003]         else {
  [05:31:55.003]             ...future.result["stdout"] <- list(NULL)
  [05:31:55.003]         }
  [05:31:55.003]         close(...future.stdout)
  [05:31:55.003]         ...future.stdout <- NULL
  [05:31:55.003]     }
  [05:31:55.003]     ...future.result$conditions <- ...future.conditions
  [05:31:55.003]     ...future.result
  [05:31:55.003] }
  [05:31:55.011] plan(): Setting new future strategy stack:
  [05:31:55.011] List of future strategies:
  [05:31:55.011] 1. multisession:
  [05:31:55.011]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:31:55.011]    - tweaked: FALSE
  [05:31:55.011]    - call: plan(list(a = strategy1, b = strategy2))
  [05:31:55.013] plan(): nbrOfWorkers() = 2
  [05:32:12.484] plan(): Setting new future strategy stack:
  [05:32:12.485] List of future strategies:
  [05:32:12.485] 1. sequential:
  [05:32:12.485]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:12.485]    - tweaked: FALSE
  [05:32:12.485]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:12.485] 2. multisession:
  [05:32:12.485]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:12.485]    - tweaked: FALSE
  [05:32:12.485]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:12.486] plan(): nbrOfWorkers() = 1
  [05:32:12.488] SequentialFuture started (and completed)
  [05:32:12.488] signalConditions() ...
  [05:32:12.488]  - include = 'immediateCondition'
  [05:32:12.489]  - exclude = 
  [05:32:12.489]  - resignal = FALSE
  [05:32:12.489]  - Number of conditions: 549
  [05:32:12.508] signalConditions() ... done
  [05:32:12.509] Chunk #1 of 1 ... DONE
  [05:32:12.509] Launching 1 futures (chunks) ... DONE
  [05:32:12.509] - resolving futures
  [05:32:12.509]   - gathering results & relaying conditions (except errors)
  [05:32:12.510] resolve() on list ...
  [05:32:12.510]  recursive: 0
  [05:32:12.510]  length: 1
  [05:32:12.511] 
  [05:32:12.511] Future #1
  [05:32:12.511] signalConditions() ...
  [05:32:12.512]  - include = 'immediateCondition'
  [05:32:12.512]  - exclude = 
  [05:32:12.512]  - resignal = FALSE
  [05:32:12.513]  - Number of conditions: 549
  [05:32:12.515] signalConditions() ... done
  [05:32:12.516] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:12.516] - nx: 1
  [05:32:12.516] - relay: TRUE
  [05:32:12.517] - stdout: TRUE
  [05:32:12.517] - signal: TRUE
  [05:32:12.517] - resignal: FALSE
  [05:32:12.517] - force: FALSE
  [05:32:12.518] - relayed: [n=1] FALSE
  [05:32:12.518] - queued futures: [n=1] FALSE
  [05:32:12.518]  - until=1
  [05:32:12.519]  - relaying element #1
  [05:32:12.519] signalConditions() ...
  [05:32:12.519]  - include = 'immediateCondition'
  [05:32:12.520]  - exclude = 
  [05:32:12.520]  - resignal = FALSE
  [05:32:12.520]  - Number of conditions: 549
  [05:32:12.539] signalConditions() ... 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"
  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"
  [05:32:12.540] signalConditions() ...
  [05:32:12.540]  - include = 'condition'
  [05:32:12.540]  - exclude = 
  [05:32:12.541]  - resignal = FALSE
  [05:32:12.541]  - Number of conditions: 549
  [05:32:12.541]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:12.542]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:31:55.019] doFuture() ...
  [05:32:12.542]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:31:55.021] - dummy globals (as locals): [1] 'b'
  [05:32:12.543]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:31:55.022] - R expression:
  [05:32:12.543]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:31:55.023] {
  [05:31:55.023]     doFuture::registerDoFuture()
  [05:31:55.023]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:55.023]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:55.023]         b <- NULL
  [05:31:55.023]         ...future.env <- environment()
  [05:31:55.023]         local({
  [05:31:55.023]             for (name in names(...future.x_jj)) {
  [05:31:55.023]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:55.023]                   inherits = FALSE)
  [05:31:55.023]             }
  [05:31:55.023]         })
  [05:31:55.023]         tryCatch({
  [05:31:55.023]             plan_list <- future::plan()
  [05:31:55.023]             message(capture.output(print(plan_list)))
  [05:31:55.023]             stopifnot(inherits(plan_list, "future"))
  [05:31:55.023]             default <- getOption("future.plan", "sequential")
  [05:31:55.023]             if (is.function(default)) 
  [05:31:55.023]                 default <- class(default)
  [05:31:55.023]             stopifnot(inherits(plan_list, default))
  [05:31:55.023]             plan_b <- future::plan("list")
  [05:31:55.023]             str(plan_b)
  [05:31:55.023]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:55.023]                 default))
  [05:31:55.023]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:55.023]         }, error = identity)
  [05:31:55.023]     })
  [05:31:55.023] }
  [05:32:12.544]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:31:55.024] - identifying globals and packages ...
  [05:32:12.544]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:31:55.025] getGlobalsAndPackages() ...
  [05:32:12.545]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:31:55.025] Searching for globals...
  [05:32:12.545]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:31:55.059] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:12.545]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:31:55.060] Searching for globals ... DONE
  [05:32:12.546]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:31:55.060] Resolving globals: FALSE
  [05:32:12.546]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:31:55.064] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [05:32:12.547]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:31:55.064] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.547]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:31:55.065] - packages: [1] 'utils'
  [05:32:12.548]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:31:55.065] getGlobalsAndPackages() ... DONE
  [05:32:12.548]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:31:55.066] List of 3
  [05:31:55.066]  $ ...future.x_ii: NULL
  [05:31:55.066]  $ a             : int 1
  [05:31:55.066]  $ plan_a        :List of 1
  [05:31:55.066]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:55.066]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:31:55.066]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:31:55.066]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:31:55.066]   .. ..- attr(*, "init")= logi TRUE
  [05:31:55.066]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:55.066]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:55.066]  - attr(*, "where")=List of 3
  [05:31:55.066]   ..$ ...future.x_ii:<environment: 0x556d9b408a58> 
  [05:31:55.066]   ..$ a             :<environment: 0x556d9b37e5d0> 
  [05:31:55.066]   ..$ plan_a        :<environment: 0x556d9b37e5d0> 
  [05:31:55.066]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:55.066]  - attr(*, "resolved")= logi FALSE
  [05:31:55.066]  - attr(*, "total_size")= num 83544
  [05:32:12.549]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:31:55.083]   - R expression:
  [05:32:12.549]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:31:55.083] {
  [05:31:55.083]     doFuture::registerDoFuture()
  [05:31:55.083]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:31:55.083]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:31:55.083]         b <- NULL
  [05:31:55.083]         ...future.env <- environment()
  [05:31:55.083]         local({
  [05:31:55.083]             for (name in names(...future.x_jj)) {
  [05:31:55.083]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:31:55.083]                   inherits = FALSE)
  [05:31:55.083]             }
  [05:31:55.083]         })
  [05:31:55.083]         tryCatch({
  [05:31:55.083]             plan_list <- future::plan()
  [05:31:55.083]             message(capture.output(print(plan_list)))
  [05:31:55.083]             stopifnot(inherits(plan_list, "future"))
  [05:31:55.083]             default <- getOption("future.plan", "sequential")
  [05:31:55.083]             if (is.function(default)) 
  [05:31:55.083]                 default <- class(default)
  [05:31:55.083]             stopifnot(inherits(plan_list, default))
  [05:31:55.083]             plan_b <- future::plan("list")
  [05:31:55.083]             str(plan_b)
  [05:31:55.083]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:31:55.083]                 default))
  [05:31:55.083]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:31:55.083]         }, error = identity)
  [05:31:55.083]     })
  [05:31:55.083] }
  [05:32:12.549]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:31:55.084]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.550]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:31:55.085] List of 3
  [05:31:55.085]  $ ...future.x_ii: NULL
  [05:31:55.085]  $ a             : int 1
  [05:31:55.085]  $ plan_a        :List of 1
  [05:31:55.085]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:31:55.085]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:31:55.085]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:31:55.085]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:31:55.085]   .. ..- attr(*, "init")= logi TRUE
  [05:31:55.085]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:31:55.085]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:31:55.085]  - attr(*, "where")=List of 3
  [05:31:55.085]   ..$ ...future.x_ii:<environment: 0x556d9b408a58> 
  [05:31:55.085]   ..$ a             :<environment: 0x556d9b37e5d0> 
  [05:31:55.085]   ..$ plan_a        :<environment: 0x556d9b37e5d0> 
  [05:31:55.085]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:31:55.085]  - attr(*, "resolved")= logi FALSE
  [05:31:55.085]  - attr(*, "total_size")= num 83544
  [05:32:12.550]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:31:55.100]   - packages: [2] 'doFuture', 'utils'
  [05:32:12.551]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:31:55.101] - identifying globals and packages ... DONE
  [05:32:12.551]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:31:55.102] Number of chunks: 2
  [05:32:12.552]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:31:55.103] Number of futures (= number of chunks): 2
  [05:32:12.552]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:31:55.103] Launching 2 futures (chunks) ...
  [05:32:12.553]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:31:55.103] Chunk #1 of 2 ...
  [05:32:12.553]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:31:55.104]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:12.554]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:31:55.104] getGlobalsAndPackages() ...
  [05:32:12.554]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:31:55.105] Searching for globals...
  [05:32:12.562]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:31:55.106] 
  [05:32:12.569]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:31:55.106] Searching for globals ... DONE
  [05:32:12.569]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:31:55.107] - globals: [0] <none>
  [05:32:12.570]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:31:55.107] getGlobalsAndPackages() ... DONE
  [05:32:12.570]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:31:55.107] 
  [05:32:12.571]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:31:55.108] 
  [05:32:12.571]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:31:55.108]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:12.571]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [05:32:12.572]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 11349
  [05:32:12.572]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [05:32:12.573]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [05:32:12.573]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26332309e300.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpOmFju1/future.parent=9779.26332309e300.pid')"'
  [05:32:12.574]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [05:32:12.574]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9779:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26332309e300.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11349 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [05:32:12.575]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [05:32:12.575]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [05:32:12.575]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [05:32:12.576]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [05:32:12.576]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [05:32:12.577]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [05:32:12.577]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [05:32:12.593]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26331dcef400.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpOmFju1/future.parent=9779.26331dcef400.pid')"'
  [05:32:12.593]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [05:32:12.594]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9779:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26331dcef400.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11349 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [05:32:12.594]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [05:32:12.595]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [05:32:12.595]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [05:32:12.595]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [05:32:12.601]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [05:32:12.601]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:10.870] getGlobalsAndPackages() ...
  [05:32:12.602]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:10.871] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.602]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:10.872] Resolving globals: FALSE
  [05:32:12.603]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:10.874] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [05:32:12.603]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:10.874] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.604]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:10.875] 
  [05:32:12.604]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:10.876] getGlobalsAndPackages() ... DONE
  [05:32:12.605]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:10.879] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:12.605]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:10.880] Packages needed by future strategies (n = 0): <none>
  [05:32:12.606]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:10.886] {
  [05:32:10.886]     {
  [05:32:10.886]         ...future.startTime <- Sys.time()
  [05:32:10.886]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:10.886]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:10.886]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:10.886]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:10.886]             future.resolve.recursive = NULL, width = 80L)
  [05:32:10.886]         {
  [05:32:10.886]             {
  [05:32:10.886]                 {
  [05:32:10.886]                   {
  [05:32:10.886]                     has_future <- requireNamespace("future", 
  [05:32:10.886]                       quietly = TRUE)
  [05:32:10.886]                     version <- if (has_future) 
  [05:32:10.886]                       packageVersion("future")
  [05:32:10.886]                     else NULL
  [05:32:10.886]                     if (!has_future || version < "1.8.0") {
  [05:32:10.886]                       info <- c(r_version = gsub("R version ", 
  [05:32:10.886]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:10.886]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:10.886]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:10.886]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:10.886]                       info <- sprintf("%s: %s", names(info), 
  [05:32:10.886]                         info)
  [05:32:10.886]                       info <- paste(info, collapse = "; ")
  [05:32:10.886]                       if (!has_future) {
  [05:32:10.886]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:10.886]                           info)
  [05:32:10.886]                       }
  [05:32:10.886]                       else {
  [05:32:10.886]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:10.886]                           info, version)
  [05:32:10.886]                       }
  [05:32:10.886]                       stop(msg)
  [05:32:10.886]                     }
  [05:32:10.886]                   }
  [05:32:10.886]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:10.886]                   options(mc.cores = 1L)
  [05:32:10.886]                 }
  [05:32:10.886]                 local({
  [05:32:10.886]                   for (pkg in c("doFuture", "utils")) {
  [05:32:10.886]                     loadNamespace(pkg)
  [05:32:10.886]                     library(pkg, character.only = TRUE)
  [05:32:10.886]                   }
  [05:32:10.886]                 })
  [05:32:10.886]             }
  [05:32:10.886]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:10.886]         }
  [05:32:10.886]     }
  [05:32:10.886]     if (is.na(TRUE)) {
  [05:32:10.886]     }
  [05:32:10.886]     else {
  [05:32:10.886]         if (TRUE) {
  [05:32:10.886]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:10.886]         }
  [05:32:10.886]         else {
  [05:32:10.886]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:10.886]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:10.886]         }
  [05:32:10.886]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:10.886]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:10.886]             sink(type = "output", split = FALSE)
  [05:32:10.886]             close(...future.stdout)
  [05:32:10.886]         }, add = TRUE)
  [05:32:10.886]     }
  [05:32:10.886]     ...future.frame <- sys.nframe()
  [05:32:10.886]     ...future.conditions <- list()
  [05:32:10.886]     ...future.result <- tryCatch({
  [05:32:10.886]         withCallingHandlers({
  [05:32:10.886]             ...future.value <- local({
  [05:32:10.886]                 doFuture::registerDoFuture()
  [05:32:10.886]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:10.886]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:10.886]                   b <- NULL
  [05:32:10.886]                   ...future.env <- environment()
  [05:32:10.886]                   local({
  [05:32:10.886]                     for (name in names(...future.x_jj)) {
  [05:32:10.886]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:10.886]                         inherits = FALSE)
  [05:32:10.886]                     }
  [05:32:10.886]                   })
  [05:32:10.886]                   tryCatch({
  [05:32:10.886]                     plan_list <- future::plan()
  [05:32:10.886]                     message(capture.output(print(plan_list)))
  [05:32:10.886]                     stopifnot(inherits(plan_list, "future"))
  [05:32:10.886]                     default <- getOption("future.plan", "sequential")
  [05:32:10.886]                     if (is.function(default)) 
  [05:32:10.886]                       default <- class(default)
  [05:32:10.886]                     stopifnot(inherits(plan_list, default))
  [05:32:10.886]                     plan_b <- future::plan("list")
  [05:32:10.886]                     str(plan_b)
  [05:32:10.886]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:10.886]                       inherits(plan_b[[1]], default))
  [05:32:10.886]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:10.886]                   }, error = identity)
  [05:32:10.886]                 })
  [05:32:10.886]             })
  [05:32:10.886]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:10.886]                 version = "1.8")
  [05:32:10.886]         }, condition = local({
  [05:32:10.886]             inherits <- base::inherits
  [05:32:10.886]             invokeRestart <- base::invokeRestart
  [05:32:10.886]             length <- base::length
  [05:32:10.886]             seq.int <- base::seq.int
  [05:32:10.886]             sys.calls <- base::sys.calls
  [05:32:10.886]             `[[` <- base::`[[`
  [05:32:10.886]             `+` <- base::`+`
  [05:32:10.886]             `<<-` <- base::`<<-`
  [05:32:10.886]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:10.886]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:10.886]                   3L)]
  [05:32:10.886]             }
  [05:32:10.886]             function(cond) {
  [05:32:10.886]                 if (inherits(cond, "error")) {
  [05:32:10.886]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:10.886]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:10.886]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:10.886]                     signaled = 0L)
  [05:32:10.886]                   signalCondition(cond)
  [05:32:10.886]                 }
  [05:32:10.886]                 else if (inherits(cond, "condition")) {
  [05:32:10.886]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:10.886]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:10.886]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:10.886]                   if (inherits(cond, "message")) {
  [05:32:10.886]                     if (!signal) 
  [05:32:10.886]                       invokeRestart("muffleMessage")
  [05:32:10.886]                   }
  [05:32:10.886]                   else if (inherits(cond, "warning")) {
  [05:32:10.886]                     if (!signal) 
  [05:32:10.886]                       invokeRestart("muffleWarning")
  [05:32:10.886]                   }
  [05:32:10.886]                   else {
  [05:32:10.886]                     if (!signal) {
  [05:32:10.886]                       restarts <- computeRestarts(cond)
  [05:32:10.886]                       for (restart in restarts) {
  [05:32:10.886]                         name <- restart$name
  [05:32:10.886]                         if (is.null(name)) 
  [05:32:10.886]                           next
  [05:32:10.886]                         if (!grepl("^muffle", name)) 
  [05:32:10.886]                           next
  [05:32:10.886]                         invokeRestart(restart)
  [05:32:10.886]                         break
  [05:32:10.886]                       }
  [05:32:10.886]                     }
  [05:32:10.886]                   }
  [05:32:10.886]                 }
  [05:32:10.886]             }
  [05:32:10.886]         }))
  [05:32:10.886]     }, error = function(ex) {
  [05:32:10.886]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:10.886]             version = "1.8"), class = "FutureResult")
  [05:32:10.886]     }, finally = {
  [05:32:10.886]         {
  [05:32:10.886]             {
  [05:32:10.886]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:10.886]             }
  [05:32:10.886]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:10.886]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:10.886]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:10.886]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:10.886]                 ...) 
  [05:32:10.886]             {
  [05:32:10.886]                 if (substitute) 
  [05:32:10.886]                   expr <- substitute(expr)
  [05:32:10.886]                 if (is.function(workers)) 
  [05:32:10.886]                   workers <- workers()
  [05:32:10.886]                 workers <- as.integer(workers)
  [05:32:10.886]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:10.886]                   workers >= 1)
  [05:32:10.886]                 if (workers == 1L) {
  [05:32:10.886]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:10.886]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:10.886]                     local = TRUE, label = label, ...))
  [05:32:10.886]                 }
  [05:32:10.886]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:10.886]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:10.886]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:10.886]                   globals = globals, persistent = persistent, 
  [05:32:10.886]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:10.886]                   label = label, ...)
  [05:32:10.886]                 if (!future$lazy) 
  [05:32:10.886]                   future <- run(future)
  [05:32:10.886]                 invisible(future)
  [05:32:10.886]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:10.886]         }
  [05:32:10.886]         options(...future.oldOptions)
  [05:32:10.886]     })
  [05:32:10.886]     if (is.na(TRUE)) {
  [05:32:10.886]     }
  [05:32:10.886]     else {
  [05:32:10.886]         sink(type = "output", split = FALSE)
  [05:32:10.886]         if (TRUE) {
  [05:32:10.886]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:10.886]         }
  [05:32:10.886]         else {
  [05:32:10.886]             ...future.result["stdout"] <- list(NULL)
  [05:32:10.886]         }
  [05:32:10.886]         close(...future.stdout)
  [05:32:10.886]         ...future.stdout <- NULL
  [05:32:10.886]     }
  [05:32:10.886]     ...future.result$conditions <- ...future.conditions
  [05:32:10.886]     ...future.result
  [05:32:10.886] }
  [05:32:12.606]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:10.893] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [05:32:12.611]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:10.894] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [05:32:12.611]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:10.895] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [05:32:12.612]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:10.896] Exporting 'a' (56 bytes) to cluster node #1 ...
  [05:32:12.612]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:10.897] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [05:32:12.613]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:10.898] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [05:32:12.613]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:10.944] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [05:32:12.613]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:10.945] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [05:32:12.614]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:10.946] MultisessionFuture started
  [05:32:12.614]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:10.947] Chunk #1 of 2 ... DONE
  [05:32:12.615]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:10.947] Chunk #2 of 2 ...
  [05:32:12.615]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:10.948]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:12.616]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:10.948] getGlobalsAndPackages() ...
  [05:32:12.616]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:10.949] Searching for globals...
  [05:32:12.617]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:10.950] 
  [05:32:12.617]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:10.950] Searching for globals ... DONE
  [05:32:12.618]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:10.951] - globals: [0] <none>
  [05:32:12.618]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:10.951] getGlobalsAndPackages() ... DONE
  [05:32:12.618]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:10.952] 
  [05:32:12.619]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:10.952] 
  [05:32:12.619]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:10.953]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:12.620]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:10.962] getGlobalsAndPackages() ...
  [05:32:12.620]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:10.963] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.621]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:10.963] Resolving globals: FALSE
  [05:32:12.621]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:10.965] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [05:32:12.622]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:10.966] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.622]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:10.967] 
  [05:32:12.622]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:10.967] getGlobalsAndPackages() ... DONE
  [05:32:12.623]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:10.970] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:12.623]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [05:32:10.970] Packages needed by future strategies (n = 0): <none>
  [05:32:12.624]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:11.009] {
  [05:32:11.009]     {
  [05:32:11.009]         ...future.startTime <- Sys.time()
  [05:32:11.009]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:11.009]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:11.009]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:11.009]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:11.009]             future.resolve.recursive = NULL, width = 80L)
  [05:32:11.009]         {
  [05:32:11.009]             {
  [05:32:11.009]                 {
  [05:32:11.009]                   {
  [05:32:11.009]                     has_future <- requireNamespace("future", 
  [05:32:11.009]                       quietly = TRUE)
  [05:32:11.009]                     version <- if (has_future) 
  [05:32:11.009]                       packageVersion("future")
  [05:32:11.009]                     else NULL
  [05:32:11.009]                     if (!has_future || version < "1.8.0") {
  [05:32:11.009]                       info <- c(r_version = gsub("R version ", 
  [05:32:11.009]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:11.009]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:11.009]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:11.009]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:11.009]                       info <- sprintf("%s: %s", names(info), 
  [05:32:11.009]                         info)
  [05:32:11.009]                       info <- paste(info, collapse = "; ")
  [05:32:11.009]                       if (!has_future) {
  [05:32:11.009]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:11.009]                           info)
  [05:32:11.009]                       }
  [05:32:11.009]                       else {
  [05:32:11.009]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:11.009]                           info, version)
  [05:32:11.009]                       }
  [05:32:11.009]                       stop(msg)
  [05:32:11.009]                     }
  [05:32:11.009]                   }
  [05:32:11.009]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:11.009]                   options(mc.cores = 1L)
  [05:32:11.009]                 }
  [05:32:11.009]                 local({
  [05:32:11.009]                   for (pkg in c("doFuture", "utils")) {
  [05:32:11.009]                     loadNamespace(pkg)
  [05:32:11.009]                     library(pkg, character.only = TRUE)
  [05:32:11.009]                   }
  [05:32:11.009]                 })
  [05:32:11.009]             }
  [05:32:11.009]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:11.009]         }
  [05:32:11.009]     }
  [05:32:11.009]     if (is.na(TRUE)) {
  [05:32:11.009]     }
  [05:32:11.009]     else {
  [05:32:11.009]         if (TRUE) {
  [05:32:11.009]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:11.009]         }
  [05:32:11.009]         else {
  [05:32:11.009]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:11.009]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:11.009]         }
  [05:32:11.009]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:11.009]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:11.009]             sink(type = "output", split = FALSE)
  [05:32:11.009]             close(...future.stdout)
  [05:32:11.009]         }, add = TRUE)
  [05:32:11.009]     }
  [05:32:11.009]     ...future.frame <- sys.nframe()
  [05:32:11.009]     ...future.conditions <- list()
  [05:32:11.009]     ...future.result <- tryCatch({
  [05:32:11.009]         withCallingHandlers({
  [05:32:11.009]             ...future.value <- local({
  [05:32:11.009]                 doFuture::registerDoFuture()
  [05:32:11.009]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:11.009]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:11.009]                   b <- NULL
  [05:32:11.009]                   ...future.env <- environment()
  [05:32:11.009]                   local({
  [05:32:11.009]                     for (name in names(...future.x_jj)) {
  [05:32:11.009]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:11.009]                         inherits = FALSE)
  [05:32:11.009]                     }
  [05:32:11.009]                   })
  [05:32:11.009]                   tryCatch({
  [05:32:11.009]                     plan_list <- future::plan()
  [05:32:11.009]                     message(capture.output(print(plan_list)))
  [05:32:11.009]                     stopifnot(inherits(plan_list, "future"))
  [05:32:11.009]                     default <- getOption("future.plan", "sequential")
  [05:32:11.009]                     if (is.function(default)) 
  [05:32:11.009]                       default <- class(default)
  [05:32:11.009]                     stopifnot(inherits(plan_list, default))
  [05:32:11.009]                     plan_b <- future::plan("list")
  [05:32:11.009]                     str(plan_b)
  [05:32:11.009]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:11.009]                       inherits(plan_b[[1]], default))
  [05:32:11.009]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:11.009]                   }, error = identity)
  [05:32:11.009]                 })
  [05:32:11.009]             })
  [05:32:11.009]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:11.009]                 version = "1.8")
  [05:32:11.009]         }, condition = local({
  [05:32:11.009]             inherits <- base::inherits
  [05:32:11.009]             invokeRestart <- base::invokeRestart
  [05:32:11.009]             length <- base::length
  [05:32:11.009]             seq.int <- base::seq.int
  [05:32:11.009]             sys.calls <- base::sys.calls
  [05:32:11.009]             `[[` <- base::`[[`
  [05:32:11.009]             `+` <- base::`+`
  [05:32:11.009]             `<<-` <- base::`<<-`
  [05:32:11.009]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:11.009]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:11.009]                   3L)]
  [05:32:11.009]             }
  [05:32:11.009]             function(cond) {
  [05:32:11.009]                 if (inherits(cond, "error")) {
  [05:32:11.009]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:11.009]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:11.009]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:11.009]                     signaled = 0L)
  [05:32:11.009]                   signalCondition(cond)
  [05:32:11.009]                 }
  [05:32:11.009]                 else if (inherits(cond, "condition")) {
  [05:32:11.009]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:11.009]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:11.009]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:11.009]                   if (inherits(cond, "message")) {
  [05:32:11.009]                     if (!signal) 
  [05:32:11.009]                       invokeRestart("muffleMessage")
  [05:32:11.009]                   }
  [05:32:11.009]                   else if (inherits(cond, "warning")) {
  [05:32:11.009]                     if (!signal) 
  [05:32:11.009]                       invokeRestart("muffleWarning")
  [05:32:11.009]                   }
  [05:32:11.009]                   else {
  [05:32:11.009]                     if (!signal) {
  [05:32:11.009]                       restarts <- computeRestarts(cond)
  [05:32:11.009]                       for (restart in restarts) {
  [05:32:11.009]                         name <- restart$name
  [05:32:11.009]                         if (is.null(name)) 
  [05:32:11.009]                           next
  [05:32:11.009]                         if (!grepl("^muffle", name)) 
  [05:32:11.009]                           next
  [05:32:11.009]                         invokeRestart(restart)
  [05:32:11.009]                         break
  [05:32:11.009]                       }
  [05:32:11.009]                     }
  [05:32:11.009]                   }
  [05:32:11.009]                 }
  [05:32:11.009]             }
  [05:32:11.009]         }))
  [05:32:11.009]     }, error = function(ex) {
  [05:32:11.009]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:11.009]             version = "1.8"), class = "FutureResult")
  [05:32:11.009]     }, finally = {
  [05:32:11.009]         {
  [05:32:11.009]             {
  [05:32:11.009]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:11.009]             }
  [05:32:11.009]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:11.009]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:11.009]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:11.009]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:11.009]                 ...) 
  [05:32:11.009]             {
  [05:32:11.009]                 if (substitute) 
  [05:32:11.009]                   expr <- substitute(expr)
  [05:32:11.009]                 if (is.function(workers)) 
  [05:32:11.009]                   workers <- workers()
  [05:32:11.009]                 workers <- as.integer(workers)
  [05:32:11.009]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:11.009]                   workers >= 1)
  [05:32:11.009]                 if (workers == 1L) {
  [05:32:11.009]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:11.009]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:11.009]                     local = TRUE, label = label, ...))
  [05:32:11.009]                 }
  [05:32:11.009]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:11.009]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:11.009]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:11.009]                   globals = globals, persistent = persistent, 
  [05:32:11.009]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:11.009]                   label = label, ...)
  [05:32:11.009]                 if (!future$lazy) 
  [05:32:11.009]                   future <- run(future)
  [05:32:11.009]                 invisible(future)
  [05:32:11.009]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:11.009]         }
  [05:32:11.009]         options(...future.oldOptions)
  [05:32:11.009]     })
  [05:32:11.009]     if (is.na(TRUE)) {
  [05:32:11.009]     }
  [05:32:11.009]     else {
  [05:32:11.009]         sink(type = "output", split = FALSE)
  [05:32:11.009]         if (TRUE) {
  [05:32:11.009]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:11.009]         }
  [05:32:11.009]         else {
  [05:32:11.009]             ...future.result["stdout"] <- list(NULL)
  [05:32:11.009]         }
  [05:32:11.009]         close(...future.stdout)
  [05:32:11.009]         ...future.stdout <- NULL
  [05:32:11.009]     }
  [05:32:11.009]     ...future.result$conditions <- ...future.conditions
  [05:32:11.009]     ...future.result
  [05:32:11.009] }
  [05:32:12.624]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [05:32:11.039] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [05:32:12.625]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:11.040] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [05:32:12.625]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [05:32:11.041] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [05:32:12.626]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:11.042] Exporting 'a' (56 bytes) to cluster node #2 ...
  [05:32:12.626]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:11.043] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [05:32:12.626]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:11.044] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [05:32:12.627]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:11.091] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [05:32:12.627]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:11.092] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [05:32:12.628]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:11.093] MultisessionFuture started
  [05:32:12.628]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:11.094] Chunk #2 of 2 ... DONE
  [05:32:12.629]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:11.094] Launching 2 futures (chunks) ... DONE
  [05:32:12.629]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:11.094] - resolving futures
  [05:32:12.630]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:11.095]   - gathering results & relaying conditions (except errors)
  [05:32:12.630]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:11.095] resolve() on list ...
  [05:32:12.630]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:11.096]  recursive: 0
  [05:32:12.631]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:11.096]  length: 2
  [05:32:12.631]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:11.096] 
  [05:32:12.632]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:11.450] Future #2
  [05:32:12.632]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [05:32:11.452] result() for ClusterFuture ...
  [05:32:12.633]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:11.453] - Validating connection of MultisessionFuture
  [05:32:12.633]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:11.496] - class(result): FutureResult
  [05:32:12.634]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:11.497] result() for ClusterFuture ...
  [05:32:12.634]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:11.497] - result already collected: FutureResult
  [05:32:12.634]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:11.498] result() for ClusterFuture ... done
  [05:32:12.635]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:11.505] signalConditions() ...
  [05:32:12.635]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:11.506]  - include = 'immediateCondition'
  [05:32:12.636]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:11.506]  - exclude = 
  [05:32:12.636]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:11.507]  - resignal = FALSE
  [05:32:12.637]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:11.507]  - Number of conditions: 2
  [05:32:12.637]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:11.508] signalConditions() ... done
  [05:32:12.638]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:11.508] result() for ClusterFuture ... done
  [05:32:12.638]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:11.509] result() for ClusterFuture ...
  [05:32:12.638]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:11.510] - result already collected: FutureResult
  [05:32:12.639]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:11.510] result() for ClusterFuture ... done
  [05:32:12.639]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [05:32:11.511] signalConditions() ...
  [05:32:12.640]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [05:32:11.511]  - include = 'immediateCondition'
  [05:32:12.640]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [05:32:11.512]  - exclude = 
  [05:32:12.641]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [05:32:11.512]  - resignal = FALSE
  [05:32:12.641]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [05:32:11.513]  - Number of conditions: 2
  [05:32:12.641]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [05:32:11.513] signalConditions() ... done
  [05:32:12.642]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [05:32:11.514] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [05:32:12.642]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [05:32:11.515] - nx: 2
  [05:32:12.643]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [05:32:11.515] - relay: TRUE
  [05:32:12.643]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [05:32:11.515] - stdout: TRUE
  [05:32:12.644]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [05:32:11.516] - signal: TRUE
  [05:32:12.644]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [05:32:11.516] - resignal: FALSE
  [05:32:12.645]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [05:32:11.517] - force: FALSE
  [05:32:12.645]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [05:32:11.517] - relayed: [n=2] FALSE, FALSE
  [05:32:12.645]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [05:32:11.518] - queued futures: [n=2] FALSE, FALSE
  [05:32:12.646]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [05:32:11.518]  - until=1
  [05:32:12.646]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [05:32:11.519]  - relaying element #1
  [05:32:12.647]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [05:32:11.519] - relayed: [n=2] FALSE, FALSE
  [05:32:12.647]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [05:32:11.519] - queued futures: [n=2] FALSE, TRUE
  [05:32:12.648]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [05:32:11.520] signalConditionsASAP(NULL, pos=2) ... done
  [05:32:12.648]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [05:32:11.520]  length: 1 (resolved future 2)
  [05:32:12.649]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [05:32:11.623] Future #1
  [05:32:12.649]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [05:32:11.624] result() for ClusterFuture ...
  [05:32:12.650]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [05:32:11.624] - Validating connection of MultisessionFuture
  [05:32:12.650]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [05:32:11.625] - class(result): FutureResult
  [05:32:12.650]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [05:32:11.626] result() for ClusterFuture ...
  [05:32:12.651]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [05:32:11.626] - result already collected: FutureResult
  [05:32:12.651]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [05:32:11.627] result() for ClusterFuture ... done
  [05:32:12.652]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [05:32:11.627] signalConditions() ...
  [05:32:12.652]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [05:32:11.628]  - include = 'immediateCondition'
  [05:32:12.653]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [05:32:11.628]  - exclude = 
  [05:32:12.653]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [05:32:11.628]  - resignal = FALSE
  [05:32:12.654]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [05:32:11.629]  - Number of conditions: 1
  [05:32:12.654]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [05:32:11.629] signalConditions() ... done
  [05:32:12.654]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [05:32:11.630] result() for ClusterFuture ... done
  [05:32:12.659]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [05:32:11.630] result() for ClusterFuture ...
  [05:32:12.660]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [05:32:11.631] - result already collected: FutureResult
  [05:32:12.660]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [05:32:11.631] result() for ClusterFuture ... done
  [05:32:12.661]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [05:32:11.632] signalConditions() ...
  [05:32:12.661]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [05:32:11.632]  - include = 'immediateCondition'
  [05:32:12.662]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [05:32:11.633]  - exclude = 
  [05:32:12.663]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [05:32:11.633]  - resignal = FALSE
  [05:32:12.663]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [05:32:11.634]  - Number of conditions: 1
  [05:32:12.664]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [05:32:11.634] signalConditions() ... done
  [05:32:12.664]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [05:32:11.651] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [05:32:12.665]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [05:32:11.651] - nx: 2
  [05:32:12.665]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [05:32:11.652] - relay: TRUE
  [05:32:12.666]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [05:32:11.652] - stdout: TRUE
  [05:32:12.666]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [05:32:11.652] - signal: TRUE
  [05:32:12.667]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [05:32:11.653] - resignal: FALSE
  [05:32:12.667]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [05:32:11.653] - force: FALSE
  [05:32:12.667]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [05:32:11.654] - relayed: [n=2] FALSE, FALSE
  [05:32:12.668]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [05:32:11.654] - queued futures: [n=2] FALSE, TRUE
  [05:32:12.668]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [05:32:11.655]  - until=1
  [05:32:12.669]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [05:32:11.655]  - relaying element #1
  [05:32:12.669]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [05:32:11.656] result() for ClusterFuture ...
  [05:32:12.670]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [05:32:11.656] - result already collected: FutureResult
  [05:32:12.670]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [05:32:11.656] result() for ClusterFuture ... done
  [05:32:12.671]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [05:32:11.657] result() for ClusterFuture ...
  [05:32:12.671]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [05:32:11.657] - result already collected: FutureResult
  [05:32:12.672]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [05:32:11.658] result() for ClusterFuture ... done
  [05:32:12.672]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [05:32:11.658] signalConditions() ...
  [05:32:12.672]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [05:32:11.659]  - include = 'immediateCondition'
  [05:32:12.673]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [05:32:11.659]  - exclude = 
  [05:32:12.673]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [05:32:11.660]  - resignal = FALSE
  [05:32:12.674]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [05:32:11.660]  - Number of conditions: 1
  [05:32:12.674]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [05:32:11.660] signalConditions() ... done
  [05:32:12.675]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [05:32:11.661] result() for ClusterFuture ...
  [05:32:12.675]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [05:32:11.661] - result already collected: FutureResult
  [05:32:12.676]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [05:32:11.662] result() for ClusterFuture ... done
  [05:32:12.676]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [05:32:11.662] signalConditions() ...
  [05:32:12.676]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [05:32:11.663]  - include = 'condition'
  [05:32:12.677]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [05:32:11.663]  - exclude = 
  [05:32:12.677]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [05:32:11.664]  - resignal = FALSE
  [05:32:12.678]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [05:32:11.664]  - Number of conditions: 1
  [05:32:12.678]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [05:32:11.665]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:12.679]  - Condition #210: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.679]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [05:32:11.665] signalConditions() ... done
  [05:32:12.680]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [05:32:11.666] - relayed: [n=2] TRUE, FALSE
  [05:32:12.680]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [05:32:11.666] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.680]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [05:32:11.683] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [05:32:12.681]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [05:32:11.683]  length: 0 (resolved future 1)
  [05:32:12.681]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [05:32:11.684] Relaying remaining futures
  [05:32:12.682]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [05:32:11.684] signalConditionsASAP(NULL, pos=0) ...
  [05:32:12.682]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [05:32:11.685] - nx: 2
  [05:32:12.684]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [05:32:11.685] - relay: TRUE
  [05:32:12.684]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [05:32:11.685] - stdout: TRUE
  [05:32:12.685]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [05:32:11.686] - signal: TRUE
  [05:32:12.685]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [05:32:11.686] - resignal: FALSE
  [05:32:12.686]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [05:32:11.687] - force: FALSE
  [05:32:12.686]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [05:32:11.687] - relayed: [n=2] TRUE, FALSE
  [05:32:12.687]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [05:32:11.688] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.687]  - Condition #226: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:12.688]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [05:32:11.688]  - relaying element #2
  [05:32:12.688]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [05:32:11.689] result() for ClusterFuture ...
  [05:32:12.688]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [05:32:11.689] - result already collected: FutureResult
  [05:32:12.689]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [05:32:11.690] result() for ClusterFuture ... done
  [05:32:12.689]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [05:32:11.690] result() for ClusterFuture ...
  [05:32:12.690]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [05:32:11.691] - result already collected: FutureResult
  [05:32:12.690]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [05:32:11.691] result() for ClusterFuture ... done
  [05:32:12.691]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [05:32:11.692] signalConditions() ...
  [05:32:12.691]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [05:32:11.692]  - include = 'immediateCondition'
  [05:32:12.692]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [05:32:11.693]  - exclude = 
  [05:32:12.692]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [05:32:11.693]  - resignal = FALSE
  [05:32:12.692]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [05:32:11.694]  - Number of conditions: 2
  [05:32:12.693]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [05:32:11.694] signalConditions() ... done
  [05:32:12.693]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [05:32:11.695] result() for ClusterFuture ...
  [05:32:12.694]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [05:32:11.695] - result already collected: FutureResult
  [05:32:12.694]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [05:32:11.696] result() for ClusterFuture ... done
  [05:32:12.695]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [05:32:11.696] signalConditions() ...
  [05:32:12.695]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [05:32:11.696]  - include = 'condition'
  [05:32:12.696]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [05:32:11.697]  - exclude = 
  [05:32:12.696]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [05:32:11.697]  - resignal = FALSE
  [05:32:12.696]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [05:32:11.698]  - Number of conditions: 2
  [05:32:12.697]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [05:32:11.698]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:12.697]  - Condition #249: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.698]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [05:32:11.715]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:12.698]  - Condition #251: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.699]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [05:32:11.716] signalConditions() ... done
  [05:32:12.699]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [05:32:11.716] - relayed: [n=2] TRUE, TRUE
  [05:32:12.700]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [05:32:11.717] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.700]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [05:32:11.717] signalConditionsASAP(MultisessionFuture, pos=0) ... done
  [05:32:12.701]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [05:32:11.718] resolve() on list ... DONE
  [05:32:12.701]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [05:32:11.718] - collecting values of futures
  [05:32:12.701]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [05:32:11.719] result() for ClusterFuture ...
  [05:32:12.702]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [05:32:11.719] - result already collected: FutureResult
  [05:32:12.702]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [05:32:11.719] result() for ClusterFuture ... done
  [05:32:12.703]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [05:32:11.720] result() for ClusterFuture ...
  [05:32:12.703]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [05:32:11.720] - result already collected: FutureResult
  [05:32:12.704]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [05:32:11.721] result() for ClusterFuture ... done
  [05:32:12.704]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [05:32:11.721] signalConditions() ...
  [05:32:12.705]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [05:32:11.722]  - include = 'immediateCondition'
  [05:32:12.705]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [05:32:11.722]  - exclude = 
  [05:32:12.705]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [05:32:11.723]  - resignal = FALSE
  [05:32:12.706]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [05:32:11.723]  - Number of conditions: 1
  [05:32:12.706]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [05:32:11.723] signalConditions() ... done
  [05:32:12.707]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [05:32:11.724] result() for ClusterFuture ...
  [05:32:12.707]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [05:32:11.724] - result already collected: FutureResult
  [05:32:12.708]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [05:32:11.725] result() for ClusterFuture ... done
  [05:32:12.708]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [05:32:11.725] result() for ClusterFuture ...
  [05:32:12.708]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [05:32:11.726] - result already collected: FutureResult
  [05:32:12.709]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [05:32:11.726] result() for ClusterFuture ... done
  [05:32:12.709]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [05:32:11.746] signalConditions() ...
  [05:32:12.710]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [05:32:11.747]  - include = 'immediateCondition'
  [05:32:12.710]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [05:32:11.747]  - exclude = 
  [05:32:12.716]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [05:32:11.748]  - resignal = FALSE
  [05:32:12.716]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [05:32:11.748]  - Number of conditions: 2
  [05:32:12.717]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [05:32:11.749] signalConditions() ... done
  [05:32:12.717]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [05:32:11.750] - accumulating results
  [05:32:12.718]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [05:32:11.751] - processing errors (handler = 'stop')
  [05:32:12.718]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [05:32:11.752] - extracting results
  [05:32:12.719]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [05:32:11.752] doFuture() ... DONE
  [05:32:12.719]  - Condition #286: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:12.720]  - Condition #287: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:12.720]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [05:32:11.761] doFuture() ...
  [05:32:12.721]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [05:32:11.763] - dummy globals (as locals): [1] 'b'
  [05:32:12.721]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [05:32:11.774] - R expression:
  [05:32:12.722]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [05:32:11.775] {
  [05:32:11.775]     doFuture::registerDoFuture()
  [05:32:11.775]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:11.775]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:11.775]         b <- NULL
  [05:32:11.775]         ...future.env <- environment()
  [05:32:11.775]         local({
  [05:32:11.775]             for (name in names(...future.x_jj)) {
  [05:32:11.775]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:11.775]                   inherits = FALSE)
  [05:32:11.775]             }
  [05:32:11.775]         })
  [05:32:11.775]         tryCatch({
  [05:32:11.775]             plan_list <- future::plan()
  [05:32:11.775]             message(capture.output(print(plan_list)))
  [05:32:11.775]             stopifnot(inherits(plan_list, "future"))
  [05:32:11.775]             default <- getOption("future.plan", "sequential")
  [05:32:11.775]             if (is.function(default)) 
  [05:32:11.775]                 default <- class(default)
  [05:32:11.775]             stopifnot(inherits(plan_list, default))
  [05:32:11.775]             plan_b <- future::plan("list")
  [05:32:11.775]             str(plan_b)
  [05:32:11.775]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:11.775]                 default))
  [05:32:11.775]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:11.775]         }, error = identity)
  [05:32:11.775]     })
  [05:32:11.775] }
  [05:32:12.722]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [05:32:11.776] - identifying globals and packages ...
  [05:32:12.723]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [05:32:11.777] getGlobalsAndPackages() ...
  [05:32:12.723]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [05:32:11.777] Searching for globals...
  [05:32:12.724]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [05:32:11.938] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:12.724]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [05:32:11.939] Searching for globals ... DONE
  [05:32:12.725]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [05:32:11.940] Resolving globals: FALSE
  [05:32:12.725]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [05:32:11.968] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [05:32:12.725]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [05:32:11.969] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.726]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [05:32:11.970] - packages: [1] 'utils'
  [05:32:12.726]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [05:32:11.971] getGlobalsAndPackages() ... DONE
  [05:32:12.727]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [05:32:11.971] List of 3
  [05:32:11.971]  $ ...future.x_ii: NULL
  [05:32:11.971]  $ a             : int 2
  [05:32:11.971]  $ plan_a        :List of 1
  [05:32:11.971]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:11.971]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:11.971]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:11.971]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:11.971]   .. ..- attr(*, "init")= logi TRUE
  [05:32:11.971]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:11.971]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:11.971]  - attr(*, "where")=List of 3
  [05:32:11.971]   ..$ ...future.x_ii:<environment: 0x556d9b385600> 
  [05:32:11.971]   ..$ a             :<environment: 0x556d9d569028> 
  [05:32:11.971]   ..$ plan_a        :<environment: 0x556d9d569028> 
  [05:32:11.971]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:11.971]  - attr(*, "resolved")= logi FALSE
  [05:32:11.971]  - attr(*, "total_size")= num 83544
  [05:32:12.727]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [05:32:12.017]   - R expression:
  [05:32:12.728]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [05:32:12.018] {
  [05:32:12.018]     doFuture::registerDoFuture()
  [05:32:12.018]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.018]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.018]         b <- NULL
  [05:32:12.018]         ...future.env <- environment()
  [05:32:12.018]         local({
  [05:32:12.018]             for (name in names(...future.x_jj)) {
  [05:32:12.018]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.018]                   inherits = FALSE)
  [05:32:12.018]             }
  [05:32:12.018]         })
  [05:32:12.018]         tryCatch({
  [05:32:12.018]             plan_list <- future::plan()
  [05:32:12.018]             message(capture.output(print(plan_list)))
  [05:32:12.018]             stopifnot(inherits(plan_list, "future"))
  [05:32:12.018]             default <- getOption("future.plan", "sequential")
  [05:32:12.018]             if (is.function(default)) 
  [05:32:12.018]                 default <- class(default)
  [05:32:12.018]             stopifnot(inherits(plan_list, default))
  [05:32:12.018]             plan_b <- future::plan("list")
  [05:32:12.018]             str(plan_b)
  [05:32:12.018]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:12.018]                 default))
  [05:32:12.018]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.018]         }, error = identity)
  [05:32:12.018]     })
  [05:32:12.018] }
  [05:32:12.728]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [05:32:12.019]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.729]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [05:32:12.019] List of 3
  [05:32:12.019]  $ ...future.x_ii: NULL
  [05:32:12.019]  $ a             : int 2
  [05:32:12.019]  $ plan_a        :List of 1
  [05:32:12.019]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:12.019]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:12.019]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:12.019]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:12.019]   .. ..- attr(*, "init")= logi TRUE
  [05:32:12.019]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:12.019]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:12.019]  - attr(*, "where")=List of 3
  [05:32:12.019]   ..$ ...future.x_ii:<environment: 0x556d9b385600> 
  [05:32:12.019]   ..$ a             :<environment: 0x556d9d569028> 
  [05:32:12.019]   ..$ plan_a        :<environment: 0x556d9d569028> 
  [05:32:12.019]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:12.019]  - attr(*, "resolved")= logi FALSE
  [05:32:12.019]  - attr(*, "total_size")= num 83544
  [05:32:12.729]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [05:32:12.034]   - packages: [2] 'doFuture', 'utils'
  [05:32:12.729]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [05:32:12.034] - identifying globals and packages ... DONE
  [05:32:12.730]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [05:32:12.036] Number of chunks: 2
  [05:32:12.730]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [05:32:12.037] Number of futures (= number of chunks): 2
  [05:32:12.731]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [05:32:12.037] Launching 2 futures (chunks) ...
  [05:32:12.731]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [05:32:12.038] Chunk #1 of 2 ...
  [05:32:12.732]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [05:32:12.038]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:12.732]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [05:32:12.038] getGlobalsAndPackages() ...
  [05:32:12.732]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [05:32:12.039] Searching for globals...
  [05:32:12.733]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [05:32:12.040] 
  [05:32:12.733]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [05:32:12.040] Searching for globals ... DONE
  [05:32:12.734]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [05:32:12.041] - globals: [0] <none>
  [05:32:12.734]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [05:32:12.041] getGlobalsAndPackages() ... DONE
  [05:32:12.735]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [05:32:12.041] 
  [05:32:12.735]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [05:32:12.042] 
  [05:32:12.736]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [05:32:12.042]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:12.736]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [05:32:12.051] getGlobalsAndPackages() ...
  [05:32:12.736]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [05:32:12.051] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.737]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [05:32:12.052] Resolving globals: FALSE
  [05:32:12.737]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [05:32:12.054] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [05:32:12.738]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [05:32:12.054] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.738]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [05:32:12.055] 
  [05:32:12.739]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [05:32:12.055] getGlobalsAndPackages() ... DONE
  [05:32:12.739]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [05:32:12.085] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:12.739]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [05:32:12.086] Packages needed by future strategies (n = 0): <none>
  [05:32:12.740]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [05:32:12.092] {
  [05:32:12.092]     {
  [05:32:12.092]         ...future.startTime <- Sys.time()
  [05:32:12.092]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:12.092]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:12.092]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:12.092]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:12.092]             future.resolve.recursive = NULL, width = 80L)
  [05:32:12.092]         {
  [05:32:12.092]             {
  [05:32:12.092]                 {
  [05:32:12.092]                   {
  [05:32:12.092]                     has_future <- requireNamespace("future", 
  [05:32:12.092]                       quietly = TRUE)
  [05:32:12.092]                     version <- if (has_future) 
  [05:32:12.092]                       packageVersion("future")
  [05:32:12.092]                     else NULL
  [05:32:12.092]                     if (!has_future || version < "1.8.0") {
  [05:32:12.092]                       info <- c(r_version = gsub("R version ", 
  [05:32:12.092]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:12.092]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:12.092]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:12.092]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:12.092]                       info <- sprintf("%s: %s", names(info), 
  [05:32:12.092]                         info)
  [05:32:12.092]                       info <- paste(info, collapse = "; ")
  [05:32:12.092]                       if (!has_future) {
  [05:32:12.092]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:12.092]                           info)
  [05:32:12.092]                       }
  [05:32:12.092]                       else {
  [05:32:12.092]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:12.092]                           info, version)
  [05:32:12.092]                       }
  [05:32:12.092]                       stop(msg)
  [05:32:12.092]                     }
  [05:32:12.092]                   }
  [05:32:12.092]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:12.092]                   options(mc.cores = 1L)
  [05:32:12.092]                 }
  [05:32:12.092]                 local({
  [05:32:12.092]                   for (pkg in c("doFuture", "utils")) {
  [05:32:12.092]                     loadNamespace(pkg)
  [05:32:12.092]                     library(pkg, character.only = TRUE)
  [05:32:12.092]                   }
  [05:32:12.092]                 })
  [05:32:12.092]             }
  [05:32:12.092]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:12.092]         }
  [05:32:12.092]     }
  [05:32:12.092]     if (is.na(TRUE)) {
  [05:32:12.092]     }
  [05:32:12.092]     else {
  [05:32:12.092]         if (TRUE) {
  [05:32:12.092]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:12.092]         }
  [05:32:12.092]         else {
  [05:32:12.092]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:12.092]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:12.092]         }
  [05:32:12.092]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:12.092]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:12.092]             sink(type = "output", split = FALSE)
  [05:32:12.092]             close(...future.stdout)
  [05:32:12.092]         }, add = TRUE)
  [05:32:12.092]     }
  [05:32:12.092]     ...future.frame <- sys.nframe()
  [05:32:12.092]     ...future.conditions <- list()
  [05:32:12.092]     ...future.result <- tryCatch({
  [05:32:12.092]         withCallingHandlers({
  [05:32:12.092]             ...future.value <- local({
  [05:32:12.092]                 doFuture::registerDoFuture()
  [05:32:12.092]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.092]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.092]                   b <- NULL
  [05:32:12.092]                   ...future.env <- environment()
  [05:32:12.092]                   local({
  [05:32:12.092]                     for (name in names(...future.x_jj)) {
  [05:32:12.092]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.092]                         inherits = FALSE)
  [05:32:12.092]                     }
  [05:32:12.092]                   })
  [05:32:12.092]                   tryCatch({
  [05:32:12.092]                     plan_list <- future::plan()
  [05:32:12.092]                     message(capture.output(print(plan_list)))
  [05:32:12.092]                     stopifnot(inherits(plan_list, "future"))
  [05:32:12.092]                     default <- getOption("future.plan", "sequential")
  [05:32:12.092]                     if (is.function(default)) 
  [05:32:12.092]                       default <- class(default)
  [05:32:12.092]                     stopifnot(inherits(plan_list, default))
  [05:32:12.092]                     plan_b <- future::plan("list")
  [05:32:12.092]                     str(plan_b)
  [05:32:12.092]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:12.092]                       inherits(plan_b[[1]], default))
  [05:32:12.092]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.092]                   }, error = identity)
  [05:32:12.092]                 })
  [05:32:12.092]             })
  [05:32:12.092]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:12.092]                 version = "1.8")
  [05:32:12.092]         }, condition = local({
  [05:32:12.092]             inherits <- base::inherits
  [05:32:12.092]             invokeRestart <- base::invokeRestart
  [05:32:12.092]             length <- base::length
  [05:32:12.092]             seq.int <- base::seq.int
  [05:32:12.092]             sys.calls <- base::sys.calls
  [05:32:12.092]             `[[` <- base::`[[`
  [05:32:12.092]             `+` <- base::`+`
  [05:32:12.092]             `<<-` <- base::`<<-`
  [05:32:12.092]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:12.092]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:12.092]                   3L)]
  [05:32:12.092]             }
  [05:32:12.092]             function(cond) {
  [05:32:12.092]                 if (inherits(cond, "error")) {
  [05:32:12.092]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.092]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:12.092]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:12.092]                     signaled = 0L)
  [05:32:12.092]                   signalCondition(cond)
  [05:32:12.092]                 }
  [05:32:12.092]                 else if (inherits(cond, "condition")) {
  [05:32:12.092]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:12.092]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.092]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:12.092]                   if (inherits(cond, "message")) {
  [05:32:12.092]                     if (!signal) 
  [05:32:12.092]                       invokeRestart("muffleMessage")
  [05:32:12.092]                   }
  [05:32:12.092]                   else if (inherits(cond, "warning")) {
  [05:32:12.092]                     if (!signal) 
  [05:32:12.092]                       invokeRestart("muffleWarning")
  [05:32:12.092]                   }
  [05:32:12.092]                   else {
  [05:32:12.092]                     if (!signal) {
  [05:32:12.092]                       restarts <- computeRestarts(cond)
  [05:32:12.092]                       for (restart in restarts) {
  [05:32:12.092]                         name <- restart$name
  [05:32:12.092]                         if (is.null(name)) 
  [05:32:12.092]                           next
  [05:32:12.092]                         if (!grepl("^muffle", name)) 
  [05:32:12.092]                           next
  [05:32:12.092]                         invokeRestart(restart)
  [05:32:12.092]                         break
  [05:32:12.092]                       }
  [05:32:12.092]                     }
  [05:32:12.092]                   }
  [05:32:12.092]                 }
  [05:32:12.092]             }
  [05:32:12.092]         }))
  [05:32:12.092]     }, error = function(ex) {
  [05:32:12.092]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:12.092]             version = "1.8"), class = "FutureResult")
  [05:32:12.092]     }, finally = {
  [05:32:12.092]         {
  [05:32:12.092]             {
  [05:32:12.092]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:12.092]             }
  [05:32:12.092]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:12.092]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:12.092]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:12.092]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:12.092]                 ...) 
  [05:32:12.092]             {
  [05:32:12.092]                 if (substitute) 
  [05:32:12.092]                   expr <- substitute(expr)
  [05:32:12.092]                 if (is.function(workers)) 
  [05:32:12.092]                   workers <- workers()
  [05:32:12.092]                 workers <- as.integer(workers)
  [05:32:12.092]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:12.092]                   workers >= 1)
  [05:32:12.092]                 if (workers == 1L) {
  [05:32:12.092]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:12.092]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:12.092]                     local = TRUE, label = label, ...))
  [05:32:12.092]                 }
  [05:32:12.092]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:12.092]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:12.092]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:12.092]                   globals = globals, persistent = persistent, 
  [05:32:12.092]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:12.092]                   label = label, ...)
  [05:32:12.092]                 if (!future$lazy) 
  [05:32:12.092]                   future <- run(future)
  [05:32:12.092]                 invisible(future)
  [05:32:12.092]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:12.092]         }
  [05:32:12.092]         options(...future.oldOptions)
  [05:32:12.092]     })
  [05:32:12.092]     if (is.na(TRUE)) {
  [05:32:12.092]     }
  [05:32:12.092]     else {
  [05:32:12.092]         sink(type = "output", split = FALSE)
  [05:32:12.092]         if (TRUE) {
  [05:32:12.092]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:12.092]         }
  [05:32:12.092]         else {
  [05:32:12.092]             ...future.result["stdout"] <- list(NULL)
  [05:32:12.092]         }
  [05:32:12.092]         close(...future.stdout)
  [05:32:12.092]         ...future.stdout <- NULL
  [05:32:12.092]     }
  [05:32:12.092]     ...future.result$conditions <- ...future.conditions
  [05:32:12.092]     ...future.result
  [05:32:12.092] }
  [05:32:12.740]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [05:32:12.114] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [05:32:12.741]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [05:32:12.115] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [05:32:12.741]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [05:32:12.116] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [05:32:12.742]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [05:32:12.116] Exporting 'a' (56 bytes) to cluster node #1 ...
  [05:32:12.742]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [05:32:12.118] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [05:32:12.743]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [05:32:12.119] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [05:32:12.743]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [05:32:12.163] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [05:32:12.743]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [05:32:12.164] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [05:32:12.744]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [05:32:12.165] MultisessionFuture started
  [05:32:12.744]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [05:32:12.165] Chunk #1 of 2 ... DONE
  [05:32:12.745]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [05:32:12.166] Chunk #2 of 2 ...
  [05:32:12.745]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [05:32:12.166]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:12.746]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [05:32:12.167] getGlobalsAndPackages() ...
  [05:32:12.746]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [05:32:12.167] Searching for globals...
  [05:32:12.747]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [05:32:12.168] 
  [05:32:12.747]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [05:32:12.169] Searching for globals ... DONE
  [05:32:12.748]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [05:32:12.169] - globals: [0] <none>
  [05:32:12.748]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [05:32:12.169] getGlobalsAndPackages() ... DONE
  [05:32:12.749]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [05:32:12.170] 
  [05:32:12.749]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [05:32:12.170] 
  [05:32:12.750]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [05:32:12.171]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:12.750]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [05:32:12.179] getGlobalsAndPackages() ...
  [05:32:12.751]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [05:32:12.179] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.751]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [05:32:12.180] Resolving globals: FALSE
  [05:32:12.751]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [05:32:12.182] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [05:32:12.752]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [05:32:12.182] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:12.752]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [05:32:12.183] 
  [05:32:12.753]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [05:32:12.183] getGlobalsAndPackages() ... DONE
  [05:32:12.753]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [05:32:12.185] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:12.754]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [05:32:12.186] Packages needed by future strategies (n = 0): <none>
  [05:32:12.754]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [05:32:12.223] {
  [05:32:12.223]     {
  [05:32:12.223]         ...future.startTime <- Sys.time()
  [05:32:12.223]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:12.223]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:12.223]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:12.223]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:12.223]             future.resolve.recursive = NULL, width = 80L)
  [05:32:12.223]         {
  [05:32:12.223]             {
  [05:32:12.223]                 {
  [05:32:12.223]                   {
  [05:32:12.223]                     has_future <- requireNamespace("future", 
  [05:32:12.223]                       quietly = TRUE)
  [05:32:12.223]                     version <- if (has_future) 
  [05:32:12.223]                       packageVersion("future")
  [05:32:12.223]                     else NULL
  [05:32:12.223]                     if (!has_future || version < "1.8.0") {
  [05:32:12.223]                       info <- c(r_version = gsub("R version ", 
  [05:32:12.223]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:12.223]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:12.223]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:12.223]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:12.223]                       info <- sprintf("%s: %s", names(info), 
  [05:32:12.223]                         info)
  [05:32:12.223]                       info <- paste(info, collapse = "; ")
  [05:32:12.223]                       if (!has_future) {
  [05:32:12.223]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:12.223]                           info)
  [05:32:12.223]                       }
  [05:32:12.223]                       else {
  [05:32:12.223]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:12.223]                           info, version)
  [05:32:12.223]                       }
  [05:32:12.223]                       stop(msg)
  [05:32:12.223]                     }
  [05:32:12.223]                   }
  [05:32:12.223]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:12.223]                   options(mc.cores = 1L)
  [05:32:12.223]                 }
  [05:32:12.223]                 local({
  [05:32:12.223]                   for (pkg in c("doFuture", "utils")) {
  [05:32:12.223]                     loadNamespace(pkg)
  [05:32:12.223]                     library(pkg, character.only = TRUE)
  [05:32:12.223]                   }
  [05:32:12.223]                 })
  [05:32:12.223]             }
  [05:32:12.223]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:12.223]         }
  [05:32:12.223]     }
  [05:32:12.223]     if (is.na(TRUE)) {
  [05:32:12.223]     }
  [05:32:12.223]     else {
  [05:32:12.223]         if (TRUE) {
  [05:32:12.223]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:12.223]         }
  [05:32:12.223]         else {
  [05:32:12.223]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:12.223]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:12.223]         }
  [05:32:12.223]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:12.223]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:12.223]             sink(type = "output", split = FALSE)
  [05:32:12.223]             close(...future.stdout)
  [05:32:12.223]         }, add = TRUE)
  [05:32:12.223]     }
  [05:32:12.223]     ...future.frame <- sys.nframe()
  [05:32:12.223]     ...future.conditions <- list()
  [05:32:12.223]     ...future.result <- tryCatch({
  [05:32:12.223]         withCallingHandlers({
  [05:32:12.223]             ...future.value <- local({
  [05:32:12.223]                 doFuture::registerDoFuture()
  [05:32:12.223]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.223]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.223]                   b <- NULL
  [05:32:12.223]                   ...future.env <- environment()
  [05:32:12.223]                   local({
  [05:32:12.223]                     for (name in names(...future.x_jj)) {
  [05:32:12.223]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.223]                         inherits = FALSE)
  [05:32:12.223]                     }
  [05:32:12.223]                   })
  [05:32:12.223]                   tryCatch({
  [05:32:12.223]                     plan_list <- future::plan()
  [05:32:12.223]                     message(capture.output(print(plan_list)))
  [05:32:12.223]                     stopifnot(inherits(plan_list, "future"))
  [05:32:12.223]                     default <- getOption("future.plan", "sequential")
  [05:32:12.223]                     if (is.function(default)) 
  [05:32:12.223]                       default <- class(default)
  [05:32:12.223]                     stopifnot(inherits(plan_list, default))
  [05:32:12.223]                     plan_b <- future::plan("list")
  [05:32:12.223]                     str(plan_b)
  [05:32:12.223]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:12.223]                       inherits(plan_b[[1]], default))
  [05:32:12.223]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.223]                   }, error = identity)
  [05:32:12.223]                 })
  [05:32:12.223]             })
  [05:32:12.223]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:12.223]                 version = "1.8")
  [05:32:12.223]         }, condition = local({
  [05:32:12.223]             inherits <- base::inherits
  [05:32:12.223]             invokeRestart <- base::invokeRestart
  [05:32:12.223]             length <- base::length
  [05:32:12.223]             seq.int <- base::seq.int
  [05:32:12.223]             sys.calls <- base::sys.calls
  [05:32:12.223]             `[[` <- base::`[[`
  [05:32:12.223]             `+` <- base::`+`
  [05:32:12.223]             `<<-` <- base::`<<-`
  [05:32:12.223]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:12.223]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:12.223]                   3L)]
  [05:32:12.223]             }
  [05:32:12.223]             function(cond) {
  [05:32:12.223]                 if (inherits(cond, "error")) {
  [05:32:12.223]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.223]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:12.223]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:12.223]                     signaled = 0L)
  [05:32:12.223]                   signalCondition(cond)
  [05:32:12.223]                 }
  [05:32:12.223]                 else if (inherits(cond, "condition")) {
  [05:32:12.223]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:12.223]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.223]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:12.223]                   if (inherits(cond, "message")) {
  [05:32:12.223]                     if (!signal) 
  [05:32:12.223]                       invokeRestart("muffleMessage")
  [05:32:12.223]                   }
  [05:32:12.223]                   else if (inherits(cond, "warning")) {
  [05:32:12.223]                     if (!signal) 
  [05:32:12.223]                       invokeRestart("muffleWarning")
  [05:32:12.223]                   }
  [05:32:12.223]                   else {
  [05:32:12.223]                     if (!signal) {
  [05:32:12.223]                       restarts <- computeRestarts(cond)
  [05:32:12.223]                       for (restart in restarts) {
  [05:32:12.223]                         name <- restart$name
  [05:32:12.223]                         if (is.null(name)) 
  [05:32:12.223]                           next
  [05:32:12.223]                         if (!grepl("^muffle", name)) 
  [05:32:12.223]                           next
  [05:32:12.223]                         invokeRestart(restart)
  [05:32:12.223]                         break
  [05:32:12.223]                       }
  [05:32:12.223]                     }
  [05:32:12.223]                   }
  [05:32:12.223]                 }
  [05:32:12.223]             }
  [05:32:12.223]         }))
  [05:32:12.223]     }, error = function(ex) {
  [05:32:12.223]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:12.223]             version = "1.8"), class = "FutureResult")
  [05:32:12.223]     }, finally = {
  [05:32:12.223]         {
  [05:32:12.223]             {
  [05:32:12.223]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:12.223]             }
  [05:32:12.223]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:12.223]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:12.223]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:12.223]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:12.223]                 ...) 
  [05:32:12.223]             {
  [05:32:12.223]                 if (substitute) 
  [05:32:12.223]                   expr <- substitute(expr)
  [05:32:12.223]                 if (is.function(workers)) 
  [05:32:12.223]                   workers <- workers()
  [05:32:12.223]                 workers <- as.integer(workers)
  [05:32:12.223]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:12.223]                   workers >= 1)
  [05:32:12.223]                 if (workers == 1L) {
  [05:32:12.223]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:12.223]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:12.223]                     local = TRUE, label = label, ...))
  [05:32:12.223]                 }
  [05:32:12.223]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:12.223]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:12.223]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:12.223]                   globals = globals, persistent = persistent, 
  [05:32:12.223]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:12.223]                   label = label, ...)
  [05:32:12.223]                 if (!future$lazy) 
  [05:32:12.223]                   future <- run(future)
  [05:32:12.223]                 invisible(future)
  [05:32:12.223]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:12.223]         }
  [05:32:12.223]         options(...future.oldOptions)
  [05:32:12.223]     })
  [05:32:12.223]     if (is.na(TRUE)) {
  [05:32:12.223]     }
  [05:32:12.223]     else {
  [05:32:12.223]         sink(type = "output", split = FALSE)
  [05:32:12.223]         if (TRUE) {
  [05:32:12.223]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:12.223]         }
  [05:32:12.223]         else {
  [05:32:12.223]             ...future.result["stdout"] <- list(NULL)
  [05:32:12.223]         }
  [05:32:12.223]         close(...future.stdout)
  [05:32:12.223]         ...future.stdout <- NULL
  [05:32:12.223]     }
  [05:32:12.223]     ...future.result$conditions <- ...future.conditions
  [05:32:12.223]     ...future.result
  [05:32:12.223] }
  [05:32:12.755]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [05:32:12.243] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [05:32:12.755]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [05:32:12.243] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [05:32:12.755]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [05:32:12.245] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [05:32:12.756]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [05:32:12.245] Exporting 'a' (56 bytes) to cluster node #2 ...
  [05:32:12.756]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [05:32:12.247] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [05:32:12.757]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [05:32:12.248] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [05:32:12.757]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [05:32:12.291] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [05:32:12.758]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [05:32:12.292] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [05:32:12.758]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [05:32:12.293] MultisessionFuture started
  [05:32:12.759]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [05:32:12.293] Chunk #2 of 2 ... DONE
  [05:32:12.759]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [05:32:12.293] Launching 2 futures (chunks) ... DONE
  [05:32:12.759]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [05:32:12.294] - resolving futures
  [05:32:12.760]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [05:32:12.294]   - gathering results & relaying conditions (except errors)
  [05:32:12.760]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [05:32:12.295] resolve() on list ...
  [05:32:12.761]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [05:32:12.295]  recursive: 0
  [05:32:12.761]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [05:32:12.295]  length: 2
  [05:32:12.762]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [05:32:12.296] 
  [05:32:12.762]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [05:32:12.297] Future #1
  [05:32:12.763]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [05:32:12.298] result() for ClusterFuture ...
  [05:32:12.763]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [05:32:12.298] - Validating connection of MultisessionFuture
  [05:32:12.763]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [05:32:12.327] - class(result): FutureResult
  [05:32:12.764]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [05:32:12.327] result() for ClusterFuture ...
  [05:32:12.764]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [05:32:12.328] - result already collected: FutureResult
  [05:32:12.765]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [05:32:12.328] result() for ClusterFuture ... done
  [05:32:12.765]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [05:32:12.329] signalConditions() ...
  [05:32:12.771]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [05:32:12.329]  - include = 'immediateCondition'
  [05:32:12.771]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [05:32:12.330]  - exclude = 
  [05:32:12.772]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [05:32:12.330]  - resignal = FALSE
  [05:32:12.772]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [05:32:12.331]  - Number of conditions: 1
  [05:32:12.773]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [05:32:12.331] signalConditions() ... done
  [05:32:12.773]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [05:32:12.331] result() for ClusterFuture ... done
  [05:32:12.774]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [05:32:12.332] result() for ClusterFuture ...
  [05:32:12.774]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [05:32:12.332] - result already collected: FutureResult
  [05:32:12.775]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [05:32:12.333] result() for ClusterFuture ... done
  [05:32:12.775]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [05:32:12.333] signalConditions() ...
  [05:32:12.776]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [05:32:12.340]  - include = 'immediateCondition'
  [05:32:12.776]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [05:32:12.340]  - exclude = 
  [05:32:12.777]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [05:32:12.341]  - resignal = FALSE
  [05:32:12.777]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [05:32:12.341]  - Number of conditions: 1
  [05:32:12.777]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [05:32:12.342] signalConditions() ... done
  [05:32:12.778]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [05:32:12.342] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [05:32:12.778]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [05:32:12.355] - nx: 2
  [05:32:12.779]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [05:32:12.355] - relay: TRUE
  [05:32:12.779]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [05:32:12.356] - stdout: TRUE
  [05:32:12.780]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [05:32:12.356] - signal: TRUE
  [05:32:12.780]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [05:32:12.357] - resignal: FALSE
  [05:32:12.781]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [05:32:12.357] - force: FALSE
  [05:32:12.781]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [05:32:12.357] - relayed: [n=2] FALSE, FALSE
  [05:32:12.781]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [05:32:12.358] - queued futures: [n=2] FALSE, FALSE
  [05:32:12.782]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [05:32:12.358]  - until=1
  [05:32:12.783]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [05:32:12.359]  - relaying element #1
  [05:32:12.784]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [05:32:12.359] result() for ClusterFuture ...
  [05:32:12.784]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [05:32:12.360] - result already collected: FutureResult
  [05:32:12.785]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [05:32:12.360] result() for ClusterFuture ... done
  [05:32:12.785]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [05:32:12.361] result() for ClusterFuture ...
  [05:32:12.785]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [05:32:12.361] - result already collected: FutureResult
  [05:32:12.786]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [05:32:12.361] result() for ClusterFuture ... done
  [05:32:12.786]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [05:32:12.362] signalConditions() ...
  [05:32:12.787]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [05:32:12.362]  - include = 'immediateCondition'
  [05:32:12.787]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [05:32:12.363]  - exclude = 
  [05:32:12.788]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [05:32:12.363]  - resignal = FALSE
  [05:32:12.788]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [05:32:12.364]  - Number of conditions: 1
  [05:32:12.789]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [05:32:12.364] signalConditions() ... done
  [05:32:12.789]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [05:32:12.365] result() for ClusterFuture ...
  [05:32:12.789]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [05:32:12.365] - result already collected: FutureResult
  [05:32:12.790]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [05:32:12.365] result() for ClusterFuture ... done
  [05:32:12.790]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [05:32:12.366] signalConditions() ...
  [05:32:12.791]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [05:32:12.366]  - include = 'condition'
  [05:32:12.791]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [05:32:12.367]  - exclude = 
  [05:32:12.792]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [05:32:12.367]  - resignal = FALSE
  [05:32:12.792]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [05:32:12.367]  - Number of conditions: 1
  [05:32:12.792]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [05:32:12.368]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:12.793]  - Condition #436: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.793]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [05:32:12.368] signalConditions() ... done
  [05:32:12.794]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [05:32:12.369] - relayed: [n=2] TRUE, FALSE
  [05:32:12.794]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [05:32:12.369] - queued futures: [n=2] TRUE, FALSE
  [05:32:12.795]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [05:32:12.370] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [05:32:12.795]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [05:32:12.370]  length: 1 (resolved future 1)
  [05:32:12.796]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [05:32:12.388] Future #2
  [05:32:12.796]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [05:32:12.389] result() for ClusterFuture ...
  [05:32:12.796]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [05:32:12.389] - Validating connection of MultisessionFuture
  [05:32:12.797]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [05:32:12.395] - class(result): FutureResult
  [05:32:12.797]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [05:32:12.396] result() for ClusterFuture ...
  [05:32:12.798]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [05:32:12.396] - result already collected: FutureResult
  [05:32:12.798]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [05:32:12.396] result() for ClusterFuture ... done
  [05:32:12.799]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [05:32:12.397] signalConditions() ...
  [05:32:12.799]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [05:32:12.397]  - include = 'immediateCondition'
  [05:32:12.800]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [05:32:12.398]  - exclude = 
  [05:32:12.800]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [05:32:12.398]  - resignal = FALSE
  [05:32:12.800]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [05:32:12.398]  - Number of conditions: 2
  [05:32:12.801]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [05:32:12.399] signalConditions() ... done
  [05:32:12.801]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [05:32:12.400] result() for ClusterFuture ... done
  [05:32:12.802]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [05:32:12.400] result() for ClusterFuture ...
  [05:32:12.802]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [05:32:12.401] - result already collected: FutureResult
  [05:32:12.803]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [05:32:12.401] result() for ClusterFuture ... done
  [05:32:12.803]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [05:32:12.402] signalConditions() ...
  [05:32:12.804]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [05:32:12.402]  - include = 'immediateCondition'
  [05:32:12.804]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [05:32:12.415]  - exclude = 
  [05:32:12.804]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [05:32:12.415]  - resignal = FALSE
  [05:32:12.805]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [05:32:12.416]  - Number of conditions: 2
  [05:32:12.805]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [05:32:12.416] signalConditions() ... done
  [05:32:12.806]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [05:32:12.416] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [05:32:12.806]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [05:32:12.417] - nx: 2
  [05:32:12.807]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [05:32:12.417] - relay: TRUE
  [05:32:12.807]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [05:32:12.418] - stdout: TRUE
  [05:32:12.808]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [05:32:12.418] - signal: TRUE
  [05:32:12.808]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [05:32:12.418] - resignal: FALSE
  [05:32:12.809]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [05:32:12.419] - force: FALSE
  [05:32:12.809]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [05:32:12.419] - relayed: [n=2] TRUE, FALSE
  [05:32:12.809]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [05:32:12.419] - queued futures: [n=2] TRUE, FALSE
  [05:32:12.810]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [05:32:12.420]  - until=2
  [05:32:12.810]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [05:32:12.420]  - relaying element #2
  [05:32:12.811]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [05:32:12.421] result() for ClusterFuture ...
  [05:32:12.811]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [05:32:12.421] - result already collected: FutureResult
  [05:32:12.812]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [05:32:12.421] result() for ClusterFuture ... done
  [05:32:12.812]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [05:32:12.422] result() for ClusterFuture ...
  [05:32:12.813]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [05:32:12.422] - result already collected: FutureResult
  [05:32:12.813]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [05:32:12.423] result() for ClusterFuture ... done
  [05:32:12.813]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [05:32:12.423] signalConditions() ...
  [05:32:12.814]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [05:32:12.423]  - include = 'immediateCondition'
  [05:32:12.814]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [05:32:12.424]  - exclude = 
  [05:32:12.815]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [05:32:12.424]  - resignal = FALSE
  [05:32:12.815]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [05:32:12.425]  - Number of conditions: 2
  [05:32:12.816]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [05:32:12.425] signalConditions() ... done
  [05:32:12.816]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [05:32:12.425] result() for ClusterFuture ...
  [05:32:12.817]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [05:32:12.426] - result already collected: FutureResult
  [05:32:12.817]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [05:32:12.426] result() for ClusterFuture ... done
  [05:32:12.817]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [05:32:12.427] signalConditions() ...
  [05:32:12.818]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [05:32:12.427]  - include = 'condition'
  [05:32:12.818]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [05:32:12.427]  - exclude = 
  [05:32:12.819]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [05:32:12.428]  - resignal = FALSE
  [05:32:12.819]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [05:32:12.428]  - Number of conditions: 2
  [05:32:12.820]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [05:32:12.428]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:12.820]  - Condition #497: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.839]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [05:32:12.429]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:12.839]  - Condition #499: 'simpleMessage', 'message', 'condition'
  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
  [05:32:12.840]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [05:32:12.430] signalConditions() ... done
  [05:32:12.840]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [05:32:12.430] - relayed: [n=2] TRUE, TRUE
  [05:32:12.841]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [05:32:12.442] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.841]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [05:32:12.443] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [05:32:12.842]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [05:32:12.443]  length: 0 (resolved future 2)
  [05:32:12.842]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [05:32:12.444] Relaying remaining futures
  [05:32:12.843]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [05:32:12.444] signalConditionsASAP(NULL, pos=0) ...
  [05:32:12.843]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [05:32:12.445] - nx: 2
  [05:32:12.844]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [05:32:12.445] - relay: TRUE
  [05:32:12.844]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [05:32:12.445] - stdout: TRUE
  [05:32:12.845]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [05:32:12.446] - signal: TRUE
  [05:32:12.845]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [05:32:12.446] - resignal: FALSE
  [05:32:12.846]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [05:32:12.446] - force: FALSE
  [05:32:12.846]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [05:32:12.447] - relayed: [n=2] TRUE, TRUE
  [05:32:12.847]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [05:32:12.447] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.847]  - Condition #515: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:12.848]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [05:32:12.448] - relayed: [n=2] TRUE, TRUE
  [05:32:12.848]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [05:32:12.448] - queued futures: [n=2] TRUE, TRUE
  [05:32:12.849]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [05:32:12.449] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:12.849]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [05:32:12.449] resolve() on list ... DONE
  [05:32:12.849]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [05:32:12.449] - collecting values of futures
  [05:32:12.850]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [05:32:12.450] result() for ClusterFuture ...
  [05:32:12.850]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [05:32:12.450] - result already collected: FutureResult
  [05:32:12.851]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [05:32:12.451] result() for ClusterFuture ... done
  [05:32:12.851]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [05:32:12.451] result() for ClusterFuture ...
  [05:32:12.852]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [05:32:12.451] - result already collected: FutureResult
  [05:32:12.852]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [05:32:12.452] result() for ClusterFuture ... done
  [05:32:12.853]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [05:32:12.452] signalConditions() ...
  [05:32:12.853]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [05:32:12.453]  - include = 'immediateCondition'
  [05:32:12.854]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [05:32:12.453]  - exclude = 
  [05:32:12.854]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [05:32:12.453]  - resignal = FALSE
  [05:32:12.854]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [05:32:12.454]  - Number of conditions: 1
  [05:32:12.855]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [05:32:12.454] signalConditions() ... done
  [05:32:12.855]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [05:32:12.455] result() for ClusterFuture ...
  [05:32:12.856]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [05:32:12.455] - result already collected: FutureResult
  [05:32:12.856]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [05:32:12.455] result() for ClusterFuture ... done
  [05:32:12.857]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [05:32:12.456] result() for ClusterFuture ...
  [05:32:12.857]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [05:32:12.456] - result already collected: FutureResult
  [05:32:12.858]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [05:32:12.457] result() for ClusterFuture ... done
  [05:32:12.858]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [05:32:12.457] signalConditions() ...
  [05:32:12.859]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [05:32:12.457]  - include = 'immediateCondition'
  [05:32:12.859]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [05:32:12.458]  - exclude = 
  [05:32:12.859]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [05:32:12.458]  - resignal = FALSE
  [05:32:12.860]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [05:32:12.475]  - Number of conditions: 2
  [05:32:12.860]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [05:32:12.480] signalConditions() ... done
  [05:32:12.861]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [05:32:12.481] - accumulating results
  [05:32:12.861]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [05:32:12.482] - processing errors (handler = 'stop')
  [05:32:12.862]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [05:32:12.483] - extracting results
  [05:32:12.862]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [05:32:12.483] doFuture() ... DONE
  [05:32:12.863]  - Condition #549: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:12.864] signalConditions() ... done
  [05:32:12.864] - relayed: [n=1] TRUE
  [05:32:12.864] - queued futures: [n=1] TRUE
  [05:32:12.865] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:12.865]  length: 0 (resolved future 1)
  [05:32:12.865] Relaying remaining futures
  [05:32:12.866] signalConditionsASAP(NULL, pos=0) ...
  [05:32:12.866] - nx: 1
  [05:32:12.866] - relay: TRUE
  [05:32:12.866] - stdout: TRUE
  [05:32:12.867] - signal: TRUE
  [05:32:12.867] - resignal: FALSE
  [05:32:12.867] - force: FALSE
  [05:32:12.868] - relayed: [n=1] TRUE
  [05:32:12.868] - queued futures: [n=1] TRUE
   - flush all
  [05:32:12.869] - relayed: [n=1] TRUE
  [05:32:12.869] - queued futures: [n=1] TRUE
  [05:32:12.869] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:12.869] resolve() on list ... DONE
  [05:32:12.870] - collecting values of futures
  [05:32:12.870] signalConditions() ...
  [05:32:12.870]  - include = 'immediateCondition'
  [05:32:12.871]  - exclude = 
  [05:32:12.871]  - resignal = FALSE
  [05:32:12.871]  - Number of conditions: 549
  [05:32:12.873] signalConditions() ... done
  [05:32:12.873] - accumulating results
  [05:32:12.874] - processing errors (handler = 'stop')
  [05:32:12.875] - extracting results
  [05:32:12.875] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [05:32:12.877] plan(): Setting new future strategy stack:
  [05:32:12.877] List of future strategies:
  [05:32:12.877] 1. sequential:
  [05:32:12.877]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:12.877]    - tweaked: FALSE
  [05:32:12.877]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:12.877] 2. cluster:
  [05:32:12.877]    - 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, ...)
  [05:32:12.877]    - tweaked: FALSE
  [05:32:12.877]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:12.880] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [05:32:12.881] doFuture() ...
  [05:32:12.882] - dummy globals (as locals): [1] 'a'
  [05:32:12.883] - R expression:
  [05:32:12.883] {
  [05:32:12.883]     doFuture::registerDoFuture()
  [05:32:12.883]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.883]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.883]         a <- NULL
  [05:32:12.883]         ...future.env <- environment()
  [05:32:12.883]         local({
  [05:32:12.883]             for (name in names(...future.x_jj)) {
  [05:32:12.883]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.883]                   inherits = FALSE)
  [05:32:12.883]             }
  [05:32:12.883]         })
  [05:32:12.883]         tryCatch({
  [05:32:12.883]             plan_list <- future::plan()
  [05:32:12.883]             stopifnot(inherits(plan_list, strategy2))
  [05:32:12.883]             plan_a <- future::plan("list")
  [05:32:12.883]             str(plan_a)
  [05:32:12.883]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:12.883]             message("foreach() - level 2 ...")
  [05:32:12.883]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:12.883]                 {
  [05:32:12.883]                   plan_list <- future::plan()
  [05:32:12.883]                   message(capture.output(print(plan_list)))
  [05:32:12.883]                   stopifnot(inherits(plan_list, "future"))
  [05:32:12.883]                   default <- getOption("future.plan", "sequential")
  [05:32:12.883]                   if (is.function(default)) 
  [05:32:12.883]                     default <- class(default)
  [05:32:12.883]                   stopifnot(inherits(plan_list, default))
  [05:32:12.883]                   plan_b <- future::plan("list")
  [05:32:12.883]                   str(plan_b)
  [05:32:12.883]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:12.883]                     inherits(plan_b[[1]], default))
  [05:32:12.883]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.883]                 }
  [05:32:12.883]             message("foreach() - level 2 ... DONE")
  [05:32:12.883]             y
  [05:32:12.883]         }, error = identity)
  [05:32:12.883]     })
  [05:32:12.883] }
  [05:32:12.885] - identifying globals and packages ...
  [05:32:12.885] getGlobalsAndPackages() ...
  [05:32:12.886] Searching for globals...
  [05:32:12.923] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:32:12.923] Searching for globals ... DONE
  [05:32:12.924] Resolving globals: FALSE
  [05:32:12.926] The total size of the 3 globals is 176 bytes (176 bytes)
  [05:32:12.927] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:12.927] - packages: [2] 'utils', 'foreach'
  [05:32:12.927] getGlobalsAndPackages() ... DONE
  [05:32:12.928] List of 3
  [05:32:12.928]  $ ...future.x_ii: NULL
  [05:32:12.928]  $ strategy2     : chr "cluster"
  [05:32:12.928]  $ bs            : int [1:3] 3 2 1
  [05:32:12.928]  - attr(*, "where")=List of 3
  [05:32:12.928]   ..$ ...future.x_ii:<environment: 0x556d9cadf678> 
  [05:32:12.928]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:12.928]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:12.928]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:12.928]  - attr(*, "resolved")= logi FALSE
  [05:32:12.928]  - attr(*, "total_size")= num 176
  [05:32:12.941]   - R expression:
  [05:32:12.942] {
  [05:32:12.942]     doFuture::registerDoFuture()
  [05:32:12.942]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.942]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.942]         a <- NULL
  [05:32:12.942]         ...future.env <- environment()
  [05:32:12.942]         local({
  [05:32:12.942]             for (name in names(...future.x_jj)) {
  [05:32:12.942]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.942]                   inherits = FALSE)
  [05:32:12.942]             }
  [05:32:12.942]         })
  [05:32:12.942]         tryCatch({
  [05:32:12.942]             plan_list <- future::plan()
  [05:32:12.942]             stopifnot(inherits(plan_list, strategy2))
  [05:32:12.942]             plan_a <- future::plan("list")
  [05:32:12.942]             str(plan_a)
  [05:32:12.942]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:12.942]             message("foreach() - level 2 ...")
  [05:32:12.942]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:12.942]                 {
  [05:32:12.942]                   plan_list <- future::plan()
  [05:32:12.942]                   message(capture.output(print(plan_list)))
  [05:32:12.942]                   stopifnot(inherits(plan_list, "future"))
  [05:32:12.942]                   default <- getOption("future.plan", "sequential")
  [05:32:12.942]                   if (is.function(default)) 
  [05:32:12.942]                     default <- class(default)
  [05:32:12.942]                   stopifnot(inherits(plan_list, default))
  [05:32:12.942]                   plan_b <- future::plan("list")
  [05:32:12.942]                   str(plan_b)
  [05:32:12.942]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:12.942]                     inherits(plan_b[[1]], default))
  [05:32:12.942]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.942]                 }
  [05:32:12.942]             message("foreach() - level 2 ... DONE")
  [05:32:12.942]             y
  [05:32:12.942]         }, error = identity)
  [05:32:12.942]     })
  [05:32:12.942] }
  [05:32:12.943]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:12.943] List of 3
  [05:32:12.943]  $ ...future.x_ii: NULL
  [05:32:12.943]  $ strategy2     : chr "cluster"
  [05:32:12.943]  $ bs            : int [1:3] 3 2 1
  [05:32:12.943]  - attr(*, "where")=List of 3
  [05:32:12.943]   ..$ ...future.x_ii:<environment: 0x556d9cadf678> 
  [05:32:12.943]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:12.943]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:12.943]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:12.943]  - attr(*, "resolved")= logi FALSE
  [05:32:12.943]  - attr(*, "total_size")= num 176
  [05:32:12.965]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:32:12.965] - identifying globals and packages ... DONE
  [05:32:12.966] Number of chunks: 1
  [05:32:12.966] Number of futures (= number of chunks): 1
  [05:32:12.966] Launching 1 futures (chunks) ...
  [05:32:12.966] Chunk #1 of 1 ...
  [05:32:12.967]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:12.967] getGlobalsAndPackages() ...
  [05:32:12.967] Searching for globals...
  [05:32:12.968] 
  [05:32:12.969] Searching for globals ... DONE
  [05:32:12.969] - globals: [0] <none>
  [05:32:12.969] getGlobalsAndPackages() ... DONE
  [05:32:12.969] 
  [05:32:12.970] 
  [05:32:12.970]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:12.971] getGlobalsAndPackages() ...
  [05:32:12.971] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:12.971] Resolving globals: FALSE
  [05:32:12.972] The total size of the 3 globals is 288 bytes (288 bytes)
  [05:32:12.973] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:12.973] 
  [05:32:12.973] getGlobalsAndPackages() ... DONE
  [05:32:12.975] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:12.976] Packages needed by future strategies (n = 1): 'future'
  [05:32:12.981] {
  [05:32:12.981]     {
  [05:32:12.981]         ...future.startTime <- Sys.time()
  [05:32:12.981]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:12.981]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:12.981]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:12.981]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:12.981]             future.resolve.recursive = NULL, width = 80L)
  [05:32:12.981]         {
  [05:32:12.981]             {
  [05:32:12.981]                 {
  [05:32:12.981]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:12.981]                   version <- if (has_future) 
  [05:32:12.981]                     packageVersion("future")
  [05:32:12.981]                   else NULL
  [05:32:12.981]                   if (!has_future || version < "1.8.0") {
  [05:32:12.981]                     info <- c(r_version = gsub("R version ", 
  [05:32:12.981]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:12.981]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:12.981]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:12.981]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:12.981]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:12.981]                     info <- paste(info, collapse = "; ")
  [05:32:12.981]                     if (!has_future) {
  [05:32:12.981]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:12.981]                         info)
  [05:32:12.981]                     }
  [05:32:12.981]                     else {
  [05:32:12.981]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:12.981]                         info, version)
  [05:32:12.981]                     }
  [05:32:12.981]                     stop(msg)
  [05:32:12.981]                   }
  [05:32:12.981]                 }
  [05:32:12.981]                 local({
  [05:32:12.981]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:12.981]                   "future")) {
  [05:32:12.981]                     loadNamespace(pkg)
  [05:32:12.981]                     library(pkg, character.only = TRUE)
  [05:32:12.981]                   }
  [05:32:12.981]                 })
  [05:32:12.981]             }
  [05:32:12.981]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:12.981]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:12.981]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:12.981]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:12.981]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:12.981]                 ...) 
  [05:32:12.981]             {
  [05:32:12.981]                 if (substitute) 
  [05:32:12.981]                   expr <- substitute(expr)
  [05:32:12.981]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:12.981]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:12.981]                   globals = globals, persistent = persistent, 
  [05:32:12.981]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:12.981]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:12.981]                   label = label, ...)
  [05:32:12.981]                 if (!future$lazy) 
  [05:32:12.981]                   future <- run(future)
  [05:32:12.981]                 invisible(future)
  [05:32:12.981]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:12.981]         }
  [05:32:12.981]     }
  [05:32:12.981]     if (is.na(TRUE)) {
  [05:32:12.981]     }
  [05:32:12.981]     else {
  [05:32:12.981]         if (TRUE) {
  [05:32:12.981]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:12.981]         }
  [05:32:12.981]         else {
  [05:32:12.981]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:12.981]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:12.981]         }
  [05:32:12.981]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:12.981]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:12.981]             sink(type = "output", split = FALSE)
  [05:32:12.981]             close(...future.stdout)
  [05:32:12.981]         }, add = TRUE)
  [05:32:12.981]     }
  [05:32:12.981]     ...future.frame <- sys.nframe()
  [05:32:12.981]     ...future.conditions <- list()
  [05:32:12.981]     ...future.result <- tryCatch({
  [05:32:12.981]         withCallingHandlers({
  [05:32:12.981]             ...future.value <- local({
  [05:32:12.981]                 doFuture::registerDoFuture()
  [05:32:12.981]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:12.981]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:12.981]                   a <- NULL
  [05:32:12.981]                   ...future.env <- environment()
  [05:32:12.981]                   local({
  [05:32:12.981]                     for (name in names(...future.x_jj)) {
  [05:32:12.981]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:12.981]                         inherits = FALSE)
  [05:32:12.981]                     }
  [05:32:12.981]                   })
  [05:32:12.981]                   tryCatch({
  [05:32:12.981]                     plan_list <- future::plan()
  [05:32:12.981]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:12.981]                     plan_a <- future::plan("list")
  [05:32:12.981]                     str(plan_a)
  [05:32:12.981]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:12.981]                     message("foreach() - level 2 ...")
  [05:32:12.981]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:12.981]                       {
  [05:32:12.981]                         plan_list <- future::plan()
  [05:32:12.981]                         message(capture.output(print(plan_list)))
  [05:32:12.981]                         stopifnot(inherits(plan_list, "future"))
  [05:32:12.981]                         default <- getOption("future.plan", "sequential")
  [05:32:12.981]                         if (is.function(default)) 
  [05:32:12.981]                           default <- class(default)
  [05:32:12.981]                         stopifnot(inherits(plan_list, default))
  [05:32:12.981]                         plan_b <- future::plan("list")
  [05:32:12.981]                         str(plan_b)
  [05:32:12.981]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:12.981]                           inherits(plan_b[[1]], default))
  [05:32:12.981]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:12.981]                       }
  [05:32:12.981]                     message("foreach() - level 2 ... DONE")
  [05:32:12.981]                     y
  [05:32:12.981]                   }, error = identity)
  [05:32:12.981]                 })
  [05:32:12.981]             })
  [05:32:12.981]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:12.981]                 version = "1.8")
  [05:32:12.981]         }, condition = local({
  [05:32:12.981]             inherits <- base::inherits
  [05:32:12.981]             invokeRestart <- base::invokeRestart
  [05:32:12.981]             length <- base::length
  [05:32:12.981]             seq.int <- base::seq.int
  [05:32:12.981]             sys.calls <- base::sys.calls
  [05:32:12.981]             `[[` <- base::`[[`
  [05:32:12.981]             `+` <- base::`+`
  [05:32:12.981]             `<<-` <- base::`<<-`
  [05:32:12.981]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:12.981]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:12.981]                   3L)]
  [05:32:12.981]             }
  [05:32:12.981]             function(cond) {
  [05:32:12.981]                 if (inherits(cond, "error")) {
  [05:32:12.981]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.981]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:12.981]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:12.981]                     signaled = 0L)
  [05:32:12.981]                   signalCondition(cond)
  [05:32:12.981]                 }
  [05:32:12.981]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:12.981]                 ))) {
  [05:32:12.981]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:12.981]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:12.981]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:12.981]                   if (inherits(cond, "message")) {
  [05:32:12.981]                     if (!signal) 
  [05:32:12.981]                       invokeRestart("muffleMessage")
  [05:32:12.981]                   }
  [05:32:12.981]                   else if (inherits(cond, "warning")) {
  [05:32:12.981]                     if (!signal) 
  [05:32:12.981]                       invokeRestart("muffleWarning")
  [05:32:12.981]                   }
  [05:32:12.981]                   else {
  [05:32:12.981]                     if (!signal) {
  [05:32:12.981]                       restarts <- computeRestarts(cond)
  [05:32:12.981]                       for (restart in restarts) {
  [05:32:12.981]                         name <- restart$name
  [05:32:12.981]                         if (is.null(name)) 
  [05:32:12.981]                           next
  [05:32:12.981]                         if (!grepl("^muffle", name)) 
  [05:32:12.981]                           next
  [05:32:12.981]                         invokeRestart(restart)
  [05:32:12.981]                         break
  [05:32:12.981]                       }
  [05:32:12.981]                     }
  [05:32:12.981]                   }
  [05:32:12.981]                 }
  [05:32:12.981]             }
  [05:32:12.981]         }))
  [05:32:12.981]     }, error = function(ex) {
  [05:32:12.981]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:12.981]             version = "1.8"), class = "FutureResult")
  [05:32:12.981]     }, finally = {
  [05:32:12.981]         {
  [05:32:12.981]             NULL
  [05:32:12.981]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:12.981]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:12.981]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:32:12.981]                 label = NULL, ...) 
  [05:32:12.981]             {
  [05:32:12.981]                 if (substitute) 
  [05:32:12.981]                   expr <- substitute(expr)
  [05:32:12.981]                 local <- as.logical(local)
  [05:32:12.981]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:12.981]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:12.981]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:12.981]                   label = label, ...)
  [05:32:12.981]                 if (!future$lazy) 
  [05:32:12.981]                   future <- run(future)
  [05:32:12.981]                 invisible(future)
  [05:32:12.981]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:12.981]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:32:12.981]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [05:32:12.981]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:12.981]                 label = NULL, ...) 
  [05:32:12.981]             {
  [05:32:12.981]                 if (substitute) 
  [05:32:12.981]                   expr <- substitute(expr)
  [05:32:12.981]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:12.981]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:12.981]                   globals = globals, persistent = persistent, 
  [05:32:12.981]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:12.981]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:12.981]                   label = label, ...)
  [05:32:12.981]                 if (!future$lazy) 
  [05:32:12.981]                   future <- run(future)
  [05:32:12.981]                 invisible(future)
  [05:32:12.981]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:12.981]         }
  [05:32:12.981]         options(...future.oldOptions)
  [05:32:12.981]     })
  [05:32:12.981]     if (is.na(TRUE)) {
  [05:32:12.981]     }
  [05:32:12.981]     else {
  [05:32:12.981]         sink(type = "output", split = FALSE)
  [05:32:12.981]         if (TRUE) {
  [05:32:12.981]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:12.981]         }
  [05:32:12.981]         else {
  [05:32:12.981]             ...future.result["stdout"] <- list(NULL)
  [05:32:12.981]         }
  [05:32:12.981]         close(...future.stdout)
  [05:32:12.981]         ...future.stdout <- NULL
  [05:32:12.981]     }
  [05:32:12.981]     ...future.result$conditions <- ...future.conditions
  [05:32:12.981]     ...future.result
  [05:32:12.981] }
  [05:32:12.988] plan(): Setting new future strategy stack:
  [05:32:12.988] List of future strategies:
  [05:32:12.988] 1. cluster:
  [05:32:12.988]    - 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, ...)
  [05:32:12.988]    - tweaked: FALSE
  [05:32:12.988]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:12.991] plan(): nbrOfWorkers() = 2
  [05:32:30.737] plan(): Setting new future strategy stack:
  [05:32:30.737] List of future strategies:
  [05:32:30.737] 1. sequential:
  [05:32:30.737]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:30.737]    - tweaked: FALSE
  [05:32:30.737]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:30.737] 2. cluster:
  [05:32:30.737]    - 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, ...)
  [05:32:30.737]    - tweaked: FALSE
  [05:32:30.737]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:30.759] plan(): nbrOfWorkers() = 1
  [05:32:30.760] SequentialFuture started (and completed)
  [05:32:30.761] signalConditions() ...
  [05:32:30.761]  - include = 'immediateCondition'
  [05:32:30.761]  - exclude = 
  [05:32:30.762]  - resignal = FALSE
  [05:32:30.762]  - Number of conditions: 548
  [05:32:30.764] signalConditions() ... done
  [05:32:30.765] Chunk #1 of 1 ... DONE
  [05:32:30.765] Launching 1 futures (chunks) ... DONE
  [05:32:30.766] - resolving futures
  [05:32:30.766]   - gathering results & relaying conditions (except errors)
  [05:32:30.766] resolve() on list ...
  [05:32:30.766]  recursive: 0
  [05:32:30.767]  length: 1
  [05:32:30.767] 
  [05:32:30.767] Future #1
  [05:32:30.768] signalConditions() ...
  [05:32:30.768]  - include = 'immediateCondition'
  [05:32:30.768]  - exclude = 
  [05:32:30.785]  - resignal = FALSE
  [05:32:30.786]  - Number of conditions: 548
  [05:32:30.789] signalConditions() ... done
  [05:32:30.789] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:30.789] - nx: 1
  [05:32:30.790] - relay: TRUE
  [05:32:30.790] - stdout: TRUE
  [05:32:30.790] - signal: TRUE
  [05:32:30.791] - resignal: FALSE
  [05:32:30.791] - force: FALSE
  [05:32:30.791] - relayed: [n=1] FALSE
  [05:32:30.792] - queued futures: [n=1] FALSE
  [05:32:30.792]  - until=1
  [05:32:30.792]  - relaying element #1
  [05:32:30.793] signalConditions() ...
  [05:32:30.793]  - include = 'immediateCondition'
  [05:32:30.793]  - exclude = 
  [05:32:30.794]  - resignal = FALSE
  [05:32:30.794]  - Number of conditions: 548
  [05:32:30.797] signalConditions() ... 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"
  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"
  [05:32:30.797] signalConditions() ...
  [05:32:30.798]  - include = 'condition'
  [05:32:30.798]  - exclude = 
  [05:32:30.798]  - resignal = FALSE
  [05:32:30.799]  - Number of conditions: 548
  [05:32:30.799]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:30.800]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:12.998] doFuture() ...
  [05:32:30.800]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:12.999] - dummy globals (as locals): [1] 'b'
  [05:32:30.800]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:13.000] - R expression:
  [05:32:30.801]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:13.001] {
  [05:32:13.001]     doFuture::registerDoFuture()
  [05:32:13.001]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:13.001]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:13.001]         b <- NULL
  [05:32:13.001]         ...future.env <- environment()
  [05:32:13.001]         local({
  [05:32:13.001]             for (name in names(...future.x_jj)) {
  [05:32:13.001]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:13.001]                   inherits = FALSE)
  [05:32:13.001]             }
  [05:32:13.001]         })
  [05:32:13.001]         tryCatch({
  [05:32:13.001]             plan_list <- future::plan()
  [05:32:13.001]             message(capture.output(print(plan_list)))
  [05:32:13.001]             stopifnot(inherits(plan_list, "future"))
  [05:32:13.001]             default <- getOption("future.plan", "sequential")
  [05:32:13.001]             if (is.function(default)) 
  [05:32:13.001]                 default <- class(default)
  [05:32:13.001]             stopifnot(inherits(plan_list, default))
  [05:32:13.001]             plan_b <- future::plan("list")
  [05:32:13.001]             str(plan_b)
  [05:32:13.001]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:13.001]                 default))
  [05:32:13.001]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:13.001]         }, error = identity)
  [05:32:13.001]     })
  [05:32:13.001] }
  [05:32:30.801]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:13.002] - identifying globals and packages ...
  [05:32:30.802]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:13.002] getGlobalsAndPackages() ...
  [05:32:30.802]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:13.003] Searching for globals...
  [05:32:30.803]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:13.036] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:30.803]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:13.037] Searching for globals ... DONE
  [05:32:30.803]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:13.037] Resolving globals: FALSE
  [05:32:30.804]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:13.040] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [05:32:30.804]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:13.041] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.805]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:13.041] - packages: [1] 'utils'
  [05:32:30.805]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:13.042] getGlobalsAndPackages() ... DONE
  [05:32:30.806]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:13.042] List of 3
  [05:32:13.042]  $ ...future.x_ii: NULL
  [05:32:13.042]  $ a             : int 1
  [05:32:13.042]  $ plan_a        :List of 1
  [05:32:13.042]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:13.042]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:13.042]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:13.042]     label = NULL, ...)  
  [05:32:13.042]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:13.042]   .. ..- attr(*, "init")= logi TRUE
  [05:32:13.042]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:13.042]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:13.042]  - attr(*, "where")=List of 3
  [05:32:13.042]   ..$ ...future.x_ii:<environment: 0x556d9cda11e0> 
  [05:32:13.042]   ..$ a             :<environment: 0x556d9b71ca28> 
  [05:32:13.042]   ..$ plan_a        :<environment: 0x556d9b71ca28> 
  [05:32:13.042]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:13.042]  - attr(*, "resolved")= logi FALSE
  [05:32:13.042]  - attr(*, "total_size")= num 66056
  [05:32:30.806]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:13.062]   - R expression:
  [05:32:30.807]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:13.062] {
  [05:32:13.062]     doFuture::registerDoFuture()
  [05:32:13.062]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:13.062]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:13.062]         b <- NULL
  [05:32:13.062]         ...future.env <- environment()
  [05:32:13.062]         local({
  [05:32:13.062]             for (name in names(...future.x_jj)) {
  [05:32:13.062]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:13.062]                   inherits = FALSE)
  [05:32:13.062]             }
  [05:32:13.062]         })
  [05:32:13.062]         tryCatch({
  [05:32:13.062]             plan_list <- future::plan()
  [05:32:13.062]             message(capture.output(print(plan_list)))
  [05:32:13.062]             stopifnot(inherits(plan_list, "future"))
  [05:32:13.062]             default <- getOption("future.plan", "sequential")
  [05:32:13.062]             if (is.function(default)) 
  [05:32:13.062]                 default <- class(default)
  [05:32:13.062]             stopifnot(inherits(plan_list, default))
  [05:32:13.062]             plan_b <- future::plan("list")
  [05:32:13.062]             str(plan_b)
  [05:32:13.062]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:13.062]                 default))
  [05:32:13.062]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:13.062]         }, error = identity)
  [05:32:13.062]     })
  [05:32:13.062] }
  [05:32:30.807]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:13.063]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.807]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:13.064] List of 3
  [05:32:13.064]  $ ...future.x_ii: NULL
  [05:32:13.064]  $ a             : int 1
  [05:32:13.064]  $ plan_a        :List of 1
  [05:32:13.064]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:13.064]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:13.064]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:13.064]     label = NULL, ...)  
  [05:32:13.064]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:13.064]   .. ..- attr(*, "init")= logi TRUE
  [05:32:13.064]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:13.064]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:13.064]  - attr(*, "where")=List of 3
  [05:32:13.064]   ..$ ...future.x_ii:<environment: 0x556d9cda11e0> 
  [05:32:13.064]   ..$ a             :<environment: 0x556d9b71ca28> 
  [05:32:13.064]   ..$ plan_a        :<environment: 0x556d9b71ca28> 
  [05:32:13.064]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:13.064]  - attr(*, "resolved")= logi FALSE
  [05:32:13.064]  - attr(*, "total_size")= num 66056
  [05:32:30.808]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:13.079]   - packages: [2] 'doFuture', 'utils'
  [05:32:30.808]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:13.079] - identifying globals and packages ... DONE
  [05:32:30.809]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:13.081] Number of chunks: 2
  [05:32:30.809]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:13.081] Number of futures (= number of chunks): 2
  [05:32:30.810]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:13.082] Launching 2 futures (chunks) ...
  [05:32:30.810]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:13.082] Chunk #1 of 2 ...
  [05:32:30.810]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:13.082]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:30.811]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:13.083] getGlobalsAndPackages() ...
  [05:32:30.811]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:13.083] Searching for globals...
  [05:32:30.812]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:13.084] 
  [05:32:30.812]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:13.085] Searching for globals ... DONE
  [05:32:30.813]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:13.085] - globals: [0] <none>
  [05:32:30.813]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:13.085] getGlobalsAndPackages() ... DONE
  [05:32:30.813]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:13.086] 
  [05:32:30.814]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:13.086] 
  [05:32:30.814]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:13.087]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:30.815]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [05:32:30.815]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 11349
  [05:32:30.816]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [05:32:30.816]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [05:32:30.816]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.263316d91b50.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpOmFju1/future.parent=9779.263316d91b50.pid')"'
  [05:32:30.817]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [05:32:30.817]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9779:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.263316d91b50.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11349 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [05:32:30.818]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [05:32:30.818]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [05:32:30.819]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [05:32:30.819]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [05:32:30.820]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [05:32:30.820]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [05:32:30.820]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [05:32:30.821]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26333208e3ad.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpOmFju1/future.parent=9779.26333208e3ad.pid')"'
  [05:32:30.821]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [05:32:30.822]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:9779:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=9779.26333208e3ad.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11349 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [05:32:30.822]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [05:32:30.823]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [05:32:30.823]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [05:32:30.823]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [05:32:30.824]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [05:32:30.824]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:29.281] getGlobalsAndPackages() ...
  [05:32:30.825]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:29.281] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.825]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:29.282] Resolving globals: FALSE
  [05:32:30.826]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:29.284] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [05:32:30.826]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:29.284] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.826]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:29.285] 
  [05:32:30.827]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:29.285] getGlobalsAndPackages() ... DONE
  [05:32:30.827]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:29.294] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:30.828]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:29.295] Packages needed by future strategies (n = 0): <none>
  [05:32:30.828]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:29.302] {
  [05:32:29.302]     {
  [05:32:29.302]         ...future.startTime <- Sys.time()
  [05:32:29.302]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:29.302]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:29.302]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:29.302]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:29.302]             future.resolve.recursive = NULL, width = 80L)
  [05:32:29.302]         {
  [05:32:29.302]             {
  [05:32:29.302]                 {
  [05:32:29.302]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:29.302]                   version <- if (has_future) 
  [05:32:29.302]                     packageVersion("future")
  [05:32:29.302]                   else NULL
  [05:32:29.302]                   if (!has_future || version < "1.8.0") {
  [05:32:29.302]                     info <- c(r_version = gsub("R version ", 
  [05:32:29.302]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:29.302]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:29.302]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:29.302]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:29.302]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:29.302]                     info <- paste(info, collapse = "; ")
  [05:32:29.302]                     if (!has_future) {
  [05:32:29.302]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:29.302]                         info)
  [05:32:29.302]                     }
  [05:32:29.302]                     else {
  [05:32:29.302]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:29.302]                         info, version)
  [05:32:29.302]                     }
  [05:32:29.302]                     stop(msg)
  [05:32:29.302]                   }
  [05:32:29.302]                 }
  [05:32:29.302]                 local({
  [05:32:29.302]                   for (pkg in c("doFuture", "utils")) {
  [05:32:29.302]                     loadNamespace(pkg)
  [05:32:29.302]                     library(pkg, character.only = TRUE)
  [05:32:29.302]                   }
  [05:32:29.302]                 })
  [05:32:29.302]             }
  [05:32:29.302]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:29.302]         }
  [05:32:29.302]     }
  [05:32:29.302]     if (is.na(TRUE)) {
  [05:32:29.302]     }
  [05:32:29.302]     else {
  [05:32:29.302]         if (TRUE) {
  [05:32:29.302]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:29.302]         }
  [05:32:29.302]         else {
  [05:32:29.302]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:29.302]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:29.302]         }
  [05:32:29.302]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:29.302]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:29.302]             sink(type = "output", split = FALSE)
  [05:32:29.302]             close(...future.stdout)
  [05:32:29.302]         }, add = TRUE)
  [05:32:29.302]     }
  [05:32:29.302]     ...future.frame <- sys.nframe()
  [05:32:29.302]     ...future.conditions <- list()
  [05:32:29.302]     ...future.result <- tryCatch({
  [05:32:29.302]         withCallingHandlers({
  [05:32:29.302]             ...future.value <- local({
  [05:32:29.302]                 doFuture::registerDoFuture()
  [05:32:29.302]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:29.302]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:29.302]                   b <- NULL
  [05:32:29.302]                   ...future.env <- environment()
  [05:32:29.302]                   local({
  [05:32:29.302]                     for (name in names(...future.x_jj)) {
  [05:32:29.302]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:29.302]                         inherits = FALSE)
  [05:32:29.302]                     }
  [05:32:29.302]                   })
  [05:32:29.302]                   tryCatch({
  [05:32:29.302]                     plan_list <- future::plan()
  [05:32:29.302]                     message(capture.output(print(plan_list)))
  [05:32:29.302]                     stopifnot(inherits(plan_list, "future"))
  [05:32:29.302]                     default <- getOption("future.plan", "sequential")
  [05:32:29.302]                     if (is.function(default)) 
  [05:32:29.302]                       default <- class(default)
  [05:32:29.302]                     stopifnot(inherits(plan_list, default))
  [05:32:29.302]                     plan_b <- future::plan("list")
  [05:32:29.302]                     str(plan_b)
  [05:32:29.302]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:29.302]                       inherits(plan_b[[1]], default))
  [05:32:29.302]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:29.302]                   }, error = identity)
  [05:32:29.302]                 })
  [05:32:29.302]             })
  [05:32:29.302]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:29.302]                 version = "1.8")
  [05:32:29.302]         }, condition = local({
  [05:32:29.302]             inherits <- base::inherits
  [05:32:29.302]             invokeRestart <- base::invokeRestart
  [05:32:29.302]             length <- base::length
  [05:32:29.302]             seq.int <- base::seq.int
  [05:32:29.302]             sys.calls <- base::sys.calls
  [05:32:29.302]             `[[` <- base::`[[`
  [05:32:29.302]             `+` <- base::`+`
  [05:32:29.302]             `<<-` <- base::`<<-`
  [05:32:29.302]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:29.302]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:29.302]                   3L)]
  [05:32:29.302]             }
  [05:32:29.302]             function(cond) {
  [05:32:29.302]                 if (inherits(cond, "error")) {
  [05:32:29.302]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:29.302]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:29.302]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:29.302]                     signaled = 0L)
  [05:32:29.302]                   signalCondition(cond)
  [05:32:29.302]                 }
  [05:32:29.302]                 else if (inherits(cond, "condition")) {
  [05:32:29.302]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:29.302]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:29.302]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:29.302]                   if (inherits(cond, "message")) {
  [05:32:29.302]                     if (!signal) 
  [05:32:29.302]                       invokeRestart("muffleMessage")
  [05:32:29.302]                   }
  [05:32:29.302]                   else if (inherits(cond, "warning")) {
  [05:32:29.302]                     if (!signal) 
  [05:32:29.302]                       invokeRestart("muffleWarning")
  [05:32:29.302]                   }
  [05:32:29.302]                   else {
  [05:32:29.302]                     if (!signal) {
  [05:32:29.302]                       restarts <- computeRestarts(cond)
  [05:32:29.302]                       for (restart in restarts) {
  [05:32:29.302]                         name <- restart$name
  [05:32:29.302]                         if (is.null(name)) 
  [05:32:29.302]                           next
  [05:32:29.302]                         if (!grepl("^muffle", name)) 
  [05:32:29.302]                           next
  [05:32:29.302]                         invokeRestart(restart)
  [05:32:29.302]                         break
  [05:32:29.302]                       }
  [05:32:29.302]                     }
  [05:32:29.302]                   }
  [05:32:29.302]                 }
  [05:32:29.302]             }
  [05:32:29.302]         }))
  [05:32:29.302]     }, error = function(ex) {
  [05:32:29.302]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:29.302]             version = "1.8"), class = "FutureResult")
  [05:32:29.302]     }, finally = {
  [05:32:29.302]         {
  [05:32:29.302]             NULL
  [05:32:29.302]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:29.302]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:29.302]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:29.302]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:29.302]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:29.302]                 ...) 
  [05:32:29.302]             {
  [05:32:29.302]                 if (substitute) 
  [05:32:29.302]                   expr <- substitute(expr)
  [05:32:29.302]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:29.302]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:29.302]                   globals = globals, persistent = persistent, 
  [05:32:29.302]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:29.302]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:29.302]                   label = label, ...)
  [05:32:29.302]                 if (!future$lazy) 
  [05:32:29.302]                   future <- run(future)
  [05:32:29.302]                 invisible(future)
  [05:32:29.302]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:29.302]         }
  [05:32:29.302]         options(...future.oldOptions)
  [05:32:29.302]     })
  [05:32:29.302]     if (is.na(TRUE)) {
  [05:32:29.302]     }
  [05:32:29.302]     else {
  [05:32:29.302]         sink(type = "output", split = FALSE)
  [05:32:29.302]         if (TRUE) {
  [05:32:29.302]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:29.302]         }
  [05:32:29.302]         else {
  [05:32:29.302]             ...future.result["stdout"] <- list(NULL)
  [05:32:29.302]         }
  [05:32:29.302]         close(...future.stdout)
  [05:32:29.302]         ...future.stdout <- NULL
  [05:32:29.302]     }
  [05:32:29.302]     ...future.result$conditions <- ...future.conditions
  [05:32:29.302]     ...future.result
  [05:32:29.302] }
  [05:32:30.829]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:29.307] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [05:32:30.829]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:29.308] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [05:32:30.829]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:29.309] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [05:32:30.830]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:29.310] Exporting 'a' (56 bytes) to cluster node #1 ...
  [05:32:30.830]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:29.312] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [05:32:30.831]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:29.313] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [05:32:30.831]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:29.355] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [05:32:30.832]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:29.356] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [05:32:30.832]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:29.357] ClusterFuture started
  [05:32:30.832]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:29.357] Chunk #1 of 2 ... DONE
  [05:32:30.838]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:29.358] Chunk #2 of 2 ...
  [05:32:30.839]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:29.358]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:30.839]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:29.359] getGlobalsAndPackages() ...
  [05:32:30.840]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:29.359] Searching for globals...
  [05:32:30.840]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:29.360] 
  [05:32:30.841]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:29.361] Searching for globals ... DONE
  [05:32:30.841]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:29.361] - globals: [0] <none>
  [05:32:30.842]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:29.361] getGlobalsAndPackages() ... DONE
  [05:32:30.842]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:29.362] 
  [05:32:30.842]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:29.362] 
  [05:32:30.843]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:29.362]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:30.843]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:29.371] getGlobalsAndPackages() ...
  [05:32:30.844]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:29.372] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.844]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:29.372] Resolving globals: FALSE
  [05:32:30.845]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:29.374] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [05:32:30.845]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:29.375] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.846]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:29.375] 
  [05:32:30.846]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:29.375] getGlobalsAndPackages() ... DONE
  [05:32:30.847]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:29.377] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:30.847]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [05:32:29.378] Packages needed by future strategies (n = 0): <none>
  [05:32:30.848]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:29.383] {
  [05:32:29.383]     {
  [05:32:29.383]         ...future.startTime <- Sys.time()
  [05:32:29.383]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:29.383]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:29.383]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:29.383]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:29.383]             future.resolve.recursive = NULL, width = 80L)
  [05:32:29.383]         {
  [05:32:29.383]             {
  [05:32:29.383]                 {
  [05:32:29.383]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:29.383]                   version <- if (has_future) 
  [05:32:29.383]                     packageVersion("future")
  [05:32:29.383]                   else NULL
  [05:32:29.383]                   if (!has_future || version < "1.8.0") {
  [05:32:29.383]                     info <- c(r_version = gsub("R version ", 
  [05:32:29.383]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:29.383]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:29.383]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:29.383]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:29.383]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:29.383]                     info <- paste(info, collapse = "; ")
  [05:32:29.383]                     if (!has_future) {
  [05:32:29.383]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:29.383]                         info)
  [05:32:29.383]                     }
  [05:32:29.383]                     else {
  [05:32:29.383]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:29.383]                         info, version)
  [05:32:29.383]                     }
  [05:32:29.383]                     stop(msg)
  [05:32:29.383]                   }
  [05:32:29.383]                 }
  [05:32:29.383]                 local({
  [05:32:29.383]                   for (pkg in c("doFuture", "utils")) {
  [05:32:29.383]                     loadNamespace(pkg)
  [05:32:29.383]                     library(pkg, character.only = TRUE)
  [05:32:29.383]                   }
  [05:32:29.383]                 })
  [05:32:29.383]             }
  [05:32:29.383]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:29.383]         }
  [05:32:29.383]     }
  [05:32:29.383]     if (is.na(TRUE)) {
  [05:32:29.383]     }
  [05:32:29.383]     else {
  [05:32:29.383]         if (TRUE) {
  [05:32:29.383]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:29.383]         }
  [05:32:29.383]         else {
  [05:32:29.383]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:29.383]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:29.383]         }
  [05:32:29.383]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:29.383]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:29.383]             sink(type = "output", split = FALSE)
  [05:32:29.383]             close(...future.stdout)
  [05:32:29.383]         }, add = TRUE)
  [05:32:29.383]     }
  [05:32:29.383]     ...future.frame <- sys.nframe()
  [05:32:29.383]     ...future.conditions <- list()
  [05:32:29.383]     ...future.result <- tryCatch({
  [05:32:29.383]         withCallingHandlers({
  [05:32:29.383]             ...future.value <- local({
  [05:32:29.383]                 doFuture::registerDoFuture()
  [05:32:29.383]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:29.383]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:29.383]                   b <- NULL
  [05:32:29.383]                   ...future.env <- environment()
  [05:32:29.383]                   local({
  [05:32:29.383]                     for (name in names(...future.x_jj)) {
  [05:32:29.383]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:29.383]                         inherits = FALSE)
  [05:32:29.383]                     }
  [05:32:29.383]                   })
  [05:32:29.383]                   tryCatch({
  [05:32:29.383]                     plan_list <- future::plan()
  [05:32:29.383]                     message(capture.output(print(plan_list)))
  [05:32:29.383]                     stopifnot(inherits(plan_list, "future"))
  [05:32:29.383]                     default <- getOption("future.plan", "sequential")
  [05:32:29.383]                     if (is.function(default)) 
  [05:32:29.383]                       default <- class(default)
  [05:32:29.383]                     stopifnot(inherits(plan_list, default))
  [05:32:29.383]                     plan_b <- future::plan("list")
  [05:32:29.383]                     str(plan_b)
  [05:32:29.383]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:29.383]                       inherits(plan_b[[1]], default))
  [05:32:29.383]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:29.383]                   }, error = identity)
  [05:32:29.383]                 })
  [05:32:29.383]             })
  [05:32:29.383]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:29.383]                 version = "1.8")
  [05:32:29.383]         }, condition = local({
  [05:32:29.383]             inherits <- base::inherits
  [05:32:29.383]             invokeRestart <- base::invokeRestart
  [05:32:29.383]             length <- base::length
  [05:32:29.383]             seq.int <- base::seq.int
  [05:32:29.383]             sys.calls <- base::sys.calls
  [05:32:29.383]             `[[` <- base::`[[`
  [05:32:29.383]             `+` <- base::`+`
  [05:32:29.383]             `<<-` <- base::`<<-`
  [05:32:29.383]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:29.383]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:29.383]                   3L)]
  [05:32:29.383]             }
  [05:32:29.383]             function(cond) {
  [05:32:29.383]                 if (inherits(cond, "error")) {
  [05:32:29.383]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:29.383]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:29.383]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:29.383]                     signaled = 0L)
  [05:32:29.383]                   signalCondition(cond)
  [05:32:29.383]                 }
  [05:32:29.383]                 else if (inherits(cond, "condition")) {
  [05:32:29.383]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:29.383]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:29.383]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:29.383]                   if (inherits(cond, "message")) {
  [05:32:29.383]                     if (!signal) 
  [05:32:29.383]                       invokeRestart("muffleMessage")
  [05:32:29.383]                   }
  [05:32:29.383]                   else if (inherits(cond, "warning")) {
  [05:32:29.383]                     if (!signal) 
  [05:32:29.383]                       invokeRestart("muffleWarning")
  [05:32:29.383]                   }
  [05:32:29.383]                   else {
  [05:32:29.383]                     if (!signal) {
  [05:32:29.383]                       restarts <- computeRestarts(cond)
  [05:32:29.383]                       for (restart in restarts) {
  [05:32:29.383]                         name <- restart$name
  [05:32:29.383]                         if (is.null(name)) 
  [05:32:29.383]                           next
  [05:32:29.383]                         if (!grepl("^muffle", name)) 
  [05:32:29.383]                           next
  [05:32:29.383]                         invokeRestart(restart)
  [05:32:29.383]                         break
  [05:32:29.383]                       }
  [05:32:29.383]                     }
  [05:32:29.383]                   }
  [05:32:29.383]                 }
  [05:32:29.383]             }
  [05:32:29.383]         }))
  [05:32:29.383]     }, error = function(ex) {
  [05:32:29.383]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:29.383]             version = "1.8"), class = "FutureResult")
  [05:32:29.383]     }, finally = {
  [05:32:29.383]         {
  [05:32:29.383]             NULL
  [05:32:29.383]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:29.383]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:29.383]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:29.383]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:29.383]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:29.383]                 ...) 
  [05:32:29.383]             {
  [05:32:29.383]                 if (substitute) 
  [05:32:29.383]                   expr <- substitute(expr)
  [05:32:29.383]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:29.383]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:29.383]                   globals = globals, persistent = persistent, 
  [05:32:29.383]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:29.383]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:29.383]                   label = label, ...)
  [05:32:29.383]                 if (!future$lazy) 
  [05:32:29.383]                   future <- run(future)
  [05:32:29.383]                 invisible(future)
  [05:32:29.383]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:29.383]         }
  [05:32:29.383]         options(...future.oldOptions)
  [05:32:29.383]     })
  [05:32:29.383]     if (is.na(TRUE)) {
  [05:32:29.383]     }
  [05:32:29.383]     else {
  [05:32:29.383]         sink(type = "output", split = FALSE)
  [05:32:29.383]         if (TRUE) {
  [05:32:29.383]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:29.383]         }
  [05:32:29.383]         else {
  [05:32:29.383]             ...future.result["stdout"] <- list(NULL)
  [05:32:29.383]         }
  [05:32:29.383]         close(...future.stdout)
  [05:32:29.383]         ...future.stdout <- NULL
  [05:32:29.383]     }
  [05:32:29.383]     ...future.result$conditions <- ...future.conditions
  [05:32:29.383]     ...future.result
  [05:32:29.383] }
  [05:32:30.848]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [05:32:29.388] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [05:32:30.849]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:29.389] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [05:32:30.849]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [05:32:29.390] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [05:32:30.850]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:29.391] Exporting 'a' (56 bytes) to cluster node #2 ...
  [05:32:30.850]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:29.392] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [05:32:30.850]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:29.393] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [05:32:30.851]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:29.435] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [05:32:30.851]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:29.436] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [05:32:30.852]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:29.437] ClusterFuture started
  [05:32:30.852]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:29.437] Chunk #2 of 2 ... DONE
  [05:32:30.853]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:29.437] Launching 2 futures (chunks) ... DONE
  [05:32:30.853]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:29.438] - resolving futures
  [05:32:30.854]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:29.438]   - gathering results & relaying conditions (except errors)
  [05:32:30.854]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:29.439] resolve() on list ...
  [05:32:30.858]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:29.439]  recursive: 0
  [05:32:30.859]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:29.439]  length: 2
  [05:32:30.859]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:29.440] 
  [05:32:30.860]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:29.945] Future #1
  [05:32:30.860]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [05:32:29.946] result() for ClusterFuture ...
  [05:32:30.861]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:29.946] - Validating connection of ClusterFuture
  [05:32:30.861]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:29.947] - class(result): FutureResult
  [05:32:30.861]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:29.948] result() for ClusterFuture ...
  [05:32:30.862]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:29.953] - result already collected: FutureResult
  [05:32:30.862]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:29.954] result() for ClusterFuture ... done
  [05:32:30.863]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:29.954] signalConditions() ...
  [05:32:30.863]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:29.955]  - include = 'immediateCondition'
  [05:32:30.864]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:29.955]  - exclude = 
  [05:32:30.864]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:29.955]  - resignal = FALSE
  [05:32:30.865]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:29.956]  - Number of conditions: 1
  [05:32:30.865]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:29.956] signalConditions() ... done
  [05:32:30.865]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:29.957] result() for ClusterFuture ... done
  [05:32:30.866]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:29.957] result() for ClusterFuture ...
  [05:32:30.866]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:29.958] - result already collected: FutureResult
  [05:32:30.867]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:29.958] result() for ClusterFuture ... done
  [05:32:30.867]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [05:32:29.975] signalConditions() ...
  [05:32:30.868]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [05:32:29.975]  - include = 'immediateCondition'
  [05:32:30.868]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [05:32:29.976]  - exclude = 
  [05:32:30.868]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [05:32:29.976]  - resignal = FALSE
  [05:32:30.869]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [05:32:29.977]  - Number of conditions: 1
  [05:32:30.869]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [05:32:29.977] signalConditions() ... done
  [05:32:30.870]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [05:32:29.978] signalConditionsASAP(ClusterFuture, pos=1) ...
  [05:32:30.870]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [05:32:29.978] - nx: 2
  [05:32:30.875]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [05:32:29.979] - relay: TRUE
  [05:32:30.876]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [05:32:29.979] - stdout: TRUE
  [05:32:30.876]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [05:32:29.979] - signal: TRUE
  [05:32:30.876]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [05:32:29.980] - resignal: FALSE
  [05:32:30.877]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [05:32:29.980] - force: FALSE
  [05:32:30.877]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [05:32:29.981] - relayed: [n=2] FALSE, FALSE
  [05:32:30.878]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [05:32:29.981] - queued futures: [n=2] FALSE, FALSE
  [05:32:30.878]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [05:32:29.981]  - until=1
  [05:32:30.879]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [05:32:29.982]  - relaying element #1
  [05:32:30.879]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [05:32:29.982] result() for ClusterFuture ...
  [05:32:30.880]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [05:32:29.983] - result already collected: FutureResult
  [05:32:30.880]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [05:32:29.983] result() for ClusterFuture ... done
  [05:32:30.880]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [05:32:29.984] result() for ClusterFuture ...
  [05:32:30.881]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [05:32:29.984] - result already collected: FutureResult
  [05:32:30.881]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [05:32:29.984] result() for ClusterFuture ... done
  [05:32:30.882]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [05:32:29.985] signalConditions() ...
  [05:32:30.882]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [05:32:29.985]  - include = 'immediateCondition'
  [05:32:30.883]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [05:32:29.986]  - exclude = 
  [05:32:30.883]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [05:32:29.986]  - resignal = FALSE
  [05:32:30.883]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [05:32:29.986]  - Number of conditions: 1
  [05:32:30.884]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [05:32:29.987] signalConditions() ... done
  [05:32:30.884]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [05:32:29.987] result() for ClusterFuture ...
  [05:32:30.885]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [05:32:29.988] - result already collected: FutureResult
  [05:32:30.885]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [05:32:29.988] result() for ClusterFuture ... done
  [05:32:30.885]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [05:32:29.989] signalConditions() ...
  [05:32:30.886]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [05:32:29.989]  - include = 'condition'
  [05:32:30.886]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [05:32:29.989]  - exclude = 
  [05:32:30.886]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [05:32:29.990]  - resignal = FALSE
  [05:32:30.887]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [05:32:29.990]  - Number of conditions: 1
  [05:32:30.887]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [05:32:29.999]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:30.888]  - Condition #172: 'simpleMessage', 'message', 'condition'
  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
  [05:32:30.888]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [05:32:29.999] signalConditions() ... done
  [05:32:30.889]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [05:32:30.000] - relayed: [n=2] TRUE, FALSE
  [05:32:30.889]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [05:32:30.000] - queued futures: [n=2] TRUE, FALSE
  [05:32:30.889]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [05:32:30.001] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [05:32:30.890]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [05:32:30.001]  length: 1 (resolved future 1)
  [05:32:30.890]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [05:32:30.087] Future #2
  [05:32:30.891]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [05:32:30.088] result() for ClusterFuture ...
  [05:32:30.891]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [05:32:30.088] - Validating connection of ClusterFuture
  [05:32:30.892]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [05:32:30.131] - class(result): FutureResult
  [05:32:30.892]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [05:32:30.132] result() for ClusterFuture ...
  [05:32:30.898]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [05:32:30.132] - result already collected: FutureResult
  [05:32:30.898]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [05:32:30.132] result() for ClusterFuture ... done
  [05:32:30.899]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [05:32:30.133] signalConditions() ...
  [05:32:30.899]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [05:32:30.133]  - include = 'immediateCondition'
  [05:32:30.900]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [05:32:30.134]  - exclude = 
  [05:32:30.900]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [05:32:30.134]  - resignal = FALSE
  [05:32:30.901]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [05:32:30.135]  - Number of conditions: 2
  [05:32:30.901]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [05:32:30.135] signalConditions() ... done
  [05:32:30.902]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [05:32:30.135] result() for ClusterFuture ... done
  [05:32:30.902]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [05:32:30.136] result() for ClusterFuture ...
  [05:32:30.903]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [05:32:30.136] - result already collected: FutureResult
  [05:32:30.903]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [05:32:30.137] result() for ClusterFuture ... done
  [05:32:30.903]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [05:32:30.137] signalConditions() ...
  [05:32:30.904]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [05:32:30.138]  - include = 'immediateCondition'
  [05:32:30.904]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [05:32:30.138]  - exclude = 
  [05:32:30.905]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [05:32:30.138]  - resignal = FALSE
  [05:32:30.905]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [05:32:30.139]  - Number of conditions: 2
  [05:32:30.906]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [05:32:30.139] signalConditions() ... done
  [05:32:30.906]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [05:32:30.140] signalConditionsASAP(ClusterFuture, pos=2) ...
  [05:32:30.907]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [05:32:30.140] - nx: 2
  [05:32:30.907]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [05:32:30.140] - relay: TRUE
  [05:32:30.908]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [05:32:30.141] - stdout: TRUE
  [05:32:30.908]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [05:32:30.141] - signal: TRUE
  [05:32:30.909]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [05:32:30.142] - resignal: FALSE
  [05:32:30.909]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [05:32:30.142] - force: FALSE
  [05:32:30.910]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [05:32:30.142] - relayed: [n=2] TRUE, FALSE
  [05:32:30.910]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [05:32:30.143] - queued futures: [n=2] TRUE, FALSE
  [05:32:30.911]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [05:32:30.143]  - until=2
  [05:32:30.911]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [05:32:30.144]  - relaying element #2
  [05:32:30.911]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [05:32:30.144] result() for ClusterFuture ...
  [05:32:30.912]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [05:32:30.145] - result already collected: FutureResult
  [05:32:30.912]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [05:32:30.145] result() for ClusterFuture ... done
  [05:32:30.913]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [05:32:30.145] result() for ClusterFuture ...
  [05:32:30.913]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [05:32:30.146] - result already collected: FutureResult
  [05:32:30.914]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [05:32:30.162] result() for ClusterFuture ... done
  [05:32:30.914]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [05:32:30.163] signalConditions() ...
  [05:32:30.915]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [05:32:30.163]  - include = 'immediateCondition'
  [05:32:30.915]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [05:32:30.164]  - exclude = 
  [05:32:30.915]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [05:32:30.164]  - resignal = FALSE
  [05:32:30.916]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [05:32:30.165]  - Number of conditions: 2
  [05:32:30.916]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [05:32:30.165] signalConditions() ... done
  [05:32:30.917]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [05:32:30.166] result() for ClusterFuture ...
  [05:32:30.917]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [05:32:30.166] - result already collected: FutureResult
  [05:32:30.918]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [05:32:30.167] result() for ClusterFuture ... done
  [05:32:30.918]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [05:32:30.167] signalConditions() ...
  [05:32:30.919]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [05:32:30.167]  - include = 'condition'
  [05:32:30.919]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [05:32:30.168]  - exclude = 
  [05:32:30.919]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [05:32:30.168]  - resignal = FALSE
  [05:32:30.920]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [05:32:30.169]  - Number of conditions: 2
  [05:32:30.920]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [05:32:30.169]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:30.921]  - Condition #233: 'simpleMessage', 'message', 'condition'
  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
  [05:32:30.921]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [05:32:30.170]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:30.922]  - Condition #235: 'simpleMessage', 'message', 'condition'
  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
  [05:32:30.922]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [05:32:30.170] signalConditions() ... done
  [05:32:30.923]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [05:32:30.171] - relayed: [n=2] TRUE, TRUE
  [05:32:30.923]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [05:32:30.171] - queued futures: [n=2] TRUE, TRUE
  [05:32:30.923]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [05:32:30.171] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [05:32:30.924]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [05:32:30.172]  length: 0 (resolved future 2)
  [05:32:30.924]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [05:32:30.172] Relaying remaining futures
  [05:32:30.925]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [05:32:30.173] signalConditionsASAP(NULL, pos=0) ...
  [05:32:30.925]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [05:32:30.173] - nx: 2
  [05:32:30.926]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [05:32:30.173] - relay: TRUE
  [05:32:30.926]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [05:32:30.174] - stdout: TRUE
  [05:32:30.927]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [05:32:30.174] - signal: TRUE
  [05:32:30.927]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [05:32:30.175] - resignal: FALSE
  [05:32:30.927]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [05:32:30.175] - force: FALSE
  [05:32:30.928]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [05:32:30.175] - relayed: [n=2] TRUE, TRUE
  [05:32:30.928]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [05:32:30.176] - queued futures: [n=2] TRUE, TRUE
  [05:32:30.929]  - Condition #251: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:30.929]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [05:32:30.176] - relayed: [n=2] TRUE, TRUE
  [05:32:30.930]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [05:32:30.177] - queued futures: [n=2] TRUE, TRUE
  [05:32:30.930]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [05:32:30.177] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:30.930]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [05:32:30.178] resolve() on list ... DONE
  [05:32:30.931]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [05:32:30.178] - collecting values of futures
  [05:32:30.931]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [05:32:30.197] result() for ClusterFuture ...
  [05:32:30.932]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [05:32:30.198] - result already collected: FutureResult
  [05:32:30.932]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [05:32:30.198] result() for ClusterFuture ... done
  [05:32:30.933]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [05:32:30.199] result() for ClusterFuture ...
  [05:32:30.933]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [05:32:30.199] - result already collected: FutureResult
  [05:32:30.934]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [05:32:30.199] result() for ClusterFuture ... done
  [05:32:30.934]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [05:32:30.200] signalConditions() ...
  [05:32:30.934]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [05:32:30.200]  - include = 'immediateCondition'
  [05:32:30.935]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [05:32:30.201]  - exclude = 
  [05:32:30.935]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [05:32:30.201]  - resignal = FALSE
  [05:32:30.936]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [05:32:30.201]  - Number of conditions: 1
  [05:32:30.936]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [05:32:30.202] signalConditions() ... done
  [05:32:30.937]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [05:32:30.202] result() for ClusterFuture ...
  [05:32:30.937]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [05:32:30.203] - result already collected: FutureResult
  [05:32:30.937]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [05:32:30.203] result() for ClusterFuture ... done
  [05:32:30.938]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [05:32:30.204] result() for ClusterFuture ...
  [05:32:30.938]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [05:32:30.204] - result already collected: FutureResult
  [05:32:30.939]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [05:32:30.205] result() for ClusterFuture ... done
  [05:32:30.939]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [05:32:30.205] signalConditions() ...
  [05:32:30.940]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [05:32:30.205]  - include = 'immediateCondition'
  [05:32:30.940]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [05:32:30.206]  - exclude = 
  [05:32:30.940]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [05:32:30.206]  - resignal = FALSE
  [05:32:30.941]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [05:32:30.223]  - Number of conditions: 2
  [05:32:30.941]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [05:32:30.223] signalConditions() ... done
  [05:32:30.942]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [05:32:30.224] - accumulating results
  [05:32:30.942]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [05:32:30.225] - processing errors (handler = 'stop')
  [05:32:30.943]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [05:32:30.226] - extracting results
  [05:32:30.943]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [05:32:30.226] doFuture() ... DONE
  [05:32:30.944]  - Condition #285: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:30.949]  - Condition #286: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:30.950]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [05:32:30.232] doFuture() ...
  [05:32:30.950]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [05:32:30.234] - dummy globals (as locals): [1] 'b'
  [05:32:30.951]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [05:32:30.235] - R expression:
  [05:32:30.951]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [05:32:30.235] {
  [05:32:30.235]     doFuture::registerDoFuture()
  [05:32:30.235]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:30.235]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:30.235]         b <- NULL
  [05:32:30.235]         ...future.env <- environment()
  [05:32:30.235]         local({
  [05:32:30.235]             for (name in names(...future.x_jj)) {
  [05:32:30.235]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:30.235]                   inherits = FALSE)
  [05:32:30.235]             }
  [05:32:30.235]         })
  [05:32:30.235]         tryCatch({
  [05:32:30.235]             plan_list <- future::plan()
  [05:32:30.235]             message(capture.output(print(plan_list)))
  [05:32:30.235]             stopifnot(inherits(plan_list, "future"))
  [05:32:30.235]             default <- getOption("future.plan", "sequential")
  [05:32:30.235]             if (is.function(default)) 
  [05:32:30.235]                 default <- class(default)
  [05:32:30.235]             stopifnot(inherits(plan_list, default))
  [05:32:30.235]             plan_b <- future::plan("list")
  [05:32:30.235]             str(plan_b)
  [05:32:30.235]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:30.235]                 default))
  [05:32:30.235]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:30.235]         }, error = identity)
  [05:32:30.235]     })
  [05:32:30.235] }
  [05:32:30.952]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [05:32:30.236] - identifying globals and packages ...
  [05:32:30.952]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [05:32:30.237] getGlobalsAndPackages() ...
  [05:32:30.953]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [05:32:30.237] Searching for globals...
  [05:32:30.953]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [05:32:30.301] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:30.954]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [05:32:30.302] Searching for globals ... DONE
  [05:32:30.954]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [05:32:30.319] Resolving globals: FALSE
  [05:32:30.955]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [05:32:30.322] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [05:32:30.955]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [05:32:30.322] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.956]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [05:32:30.323] - packages: [1] 'utils'
  [05:32:30.956]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [05:32:30.323] getGlobalsAndPackages() ... DONE
  [05:32:30.957]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [05:32:30.323] List of 3
  [05:32:30.323]  $ ...future.x_ii: NULL
  [05:32:30.323]  $ a             : int 2
  [05:32:30.323]  $ plan_a        :List of 1
  [05:32:30.323]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:30.323]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:30.323]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:30.323]     label = NULL, ...)  
  [05:32:30.323]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:30.323]   .. ..- attr(*, "init")= logi TRUE
  [05:32:30.323]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:30.323]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:30.323]  - attr(*, "where")=List of 3
  [05:32:30.323]   ..$ ...future.x_ii:<environment: 0x556d9ae0b100> 
  [05:32:30.323]   ..$ a             :<environment: 0x556d9ba38240> 
  [05:32:30.323]   ..$ plan_a        :<environment: 0x556d9ba38240> 
  [05:32:30.323]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:30.323]  - attr(*, "resolved")= logi FALSE
  [05:32:30.323]  - attr(*, "total_size")= num 66056
  [05:32:30.957]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [05:32:30.341]   - R expression:
  [05:32:30.957]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [05:32:30.341] {
  [05:32:30.341]     doFuture::registerDoFuture()
  [05:32:30.341]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:30.341]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:30.341]         b <- NULL
  [05:32:30.341]         ...future.env <- environment()
  [05:32:30.341]         local({
  [05:32:30.341]             for (name in names(...future.x_jj)) {
  [05:32:30.341]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:30.341]                   inherits = FALSE)
  [05:32:30.341]             }
  [05:32:30.341]         })
  [05:32:30.341]         tryCatch({
  [05:32:30.341]             plan_list <- future::plan()
  [05:32:30.341]             message(capture.output(print(plan_list)))
  [05:32:30.341]             stopifnot(inherits(plan_list, "future"))
  [05:32:30.341]             default <- getOption("future.plan", "sequential")
  [05:32:30.341]             if (is.function(default)) 
  [05:32:30.341]                 default <- class(default)
  [05:32:30.341]             stopifnot(inherits(plan_list, default))
  [05:32:30.341]             plan_b <- future::plan("list")
  [05:32:30.341]             str(plan_b)
  [05:32:30.341]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:30.341]                 default))
  [05:32:30.341]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:30.341]         }, error = identity)
  [05:32:30.341]     })
  [05:32:30.341] }
  [05:32:30.958]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [05:32:30.342]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.958]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [05:32:30.343] List of 3
  [05:32:30.343]  $ ...future.x_ii: NULL
  [05:32:30.343]  $ a             : int 2
  [05:32:30.343]  $ plan_a        :List of 1
  [05:32:30.343]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:30.343]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:30.343]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:30.343]     label = NULL, ...)  
  [05:32:30.343]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:30.343]   .. ..- attr(*, "init")= logi TRUE
  [05:32:30.343]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:30.343]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:30.343]  - attr(*, "where")=List of 3
  [05:32:30.343]   ..$ ...future.x_ii:<environment: 0x556d9ae0b100> 
  [05:32:30.343]   ..$ a             :<environment: 0x556d9ba38240> 
  [05:32:30.343]   ..$ plan_a        :<environment: 0x556d9ba38240> 
  [05:32:30.343]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:30.343]  - attr(*, "resolved")= logi FALSE
  [05:32:30.343]  - attr(*, "total_size")= num 66056
  [05:32:30.959]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [05:32:30.362]   - packages: [2] 'doFuture', 'utils'
  [05:32:30.959]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [05:32:30.362] - identifying globals and packages ... DONE
  [05:32:30.960]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [05:32:30.364] Number of chunks: 2
  [05:32:30.960]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [05:32:30.364] Number of futures (= number of chunks): 2
  [05:32:30.961]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [05:32:30.365] Launching 2 futures (chunks) ...
  [05:32:30.961]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [05:32:30.365] Chunk #1 of 2 ...
  [05:32:30.962]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [05:32:30.366]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:30.962]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [05:32:30.366] getGlobalsAndPackages() ...
  [05:32:30.963]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [05:32:30.366] Searching for globals...
  [05:32:30.963]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [05:32:30.367] 
  [05:32:30.964]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [05:32:30.368] Searching for globals ... DONE
  [05:32:30.964]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [05:32:30.368] - globals: [0] <none>
  [05:32:30.964]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [05:32:30.368] getGlobalsAndPackages() ... DONE
  [05:32:30.965]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [05:32:30.369] 
  [05:32:30.965]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [05:32:30.369] 
  [05:32:30.966]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [05:32:30.370]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:30.966]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [05:32:30.379] getGlobalsAndPackages() ...
  [05:32:30.967]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [05:32:30.379] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.967]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [05:32:30.380] Resolving globals: FALSE
  [05:32:30.968]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [05:32:30.381] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [05:32:30.968]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [05:32:30.382] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.968]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [05:32:30.382] 
  [05:32:30.969]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [05:32:30.383] getGlobalsAndPackages() ... DONE
  [05:32:30.969]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [05:32:30.384] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:30.970]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [05:32:30.385] Packages needed by future strategies (n = 0): <none>
  [05:32:30.970]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [05:32:30.390] {
  [05:32:30.390]     {
  [05:32:30.390]         ...future.startTime <- Sys.time()
  [05:32:30.390]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:30.390]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:30.390]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:30.390]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:30.390]             future.resolve.recursive = NULL, width = 80L)
  [05:32:30.390]         {
  [05:32:30.390]             {
  [05:32:30.390]                 {
  [05:32:30.390]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:30.390]                   version <- if (has_future) 
  [05:32:30.390]                     packageVersion("future")
  [05:32:30.390]                   else NULL
  [05:32:30.390]                   if (!has_future || version < "1.8.0") {
  [05:32:30.390]                     info <- c(r_version = gsub("R version ", 
  [05:32:30.390]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:30.390]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:30.390]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:30.390]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:30.390]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:30.390]                     info <- paste(info, collapse = "; ")
  [05:32:30.390]                     if (!has_future) {
  [05:32:30.390]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:30.390]                         info)
  [05:32:30.390]                     }
  [05:32:30.390]                     else {
  [05:32:30.390]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:30.390]                         info, version)
  [05:32:30.390]                     }
  [05:32:30.390]                     stop(msg)
  [05:32:30.390]                   }
  [05:32:30.390]                 }
  [05:32:30.390]                 local({
  [05:32:30.390]                   for (pkg in c("doFuture", "utils")) {
  [05:32:30.390]                     loadNamespace(pkg)
  [05:32:30.390]                     library(pkg, character.only = TRUE)
  [05:32:30.390]                   }
  [05:32:30.390]                 })
  [05:32:30.390]             }
  [05:32:30.390]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:30.390]         }
  [05:32:30.390]     }
  [05:32:30.390]     if (is.na(TRUE)) {
  [05:32:30.390]     }
  [05:32:30.390]     else {
  [05:32:30.390]         if (TRUE) {
  [05:32:30.390]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:30.390]         }
  [05:32:30.390]         else {
  [05:32:30.390]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:30.390]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:30.390]         }
  [05:32:30.390]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:30.390]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:30.390]             sink(type = "output", split = FALSE)
  [05:32:30.390]             close(...future.stdout)
  [05:32:30.390]         }, add = TRUE)
  [05:32:30.390]     }
  [05:32:30.390]     ...future.frame <- sys.nframe()
  [05:32:30.390]     ...future.conditions <- list()
  [05:32:30.390]     ...future.result <- tryCatch({
  [05:32:30.390]         withCallingHandlers({
  [05:32:30.390]             ...future.value <- local({
  [05:32:30.390]                 doFuture::registerDoFuture()
  [05:32:30.390]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:30.390]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:30.390]                   b <- NULL
  [05:32:30.390]                   ...future.env <- environment()
  [05:32:30.390]                   local({
  [05:32:30.390]                     for (name in names(...future.x_jj)) {
  [05:32:30.390]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:30.390]                         inherits = FALSE)
  [05:32:30.390]                     }
  [05:32:30.390]                   })
  [05:32:30.390]                   tryCatch({
  [05:32:30.390]                     plan_list <- future::plan()
  [05:32:30.390]                     message(capture.output(print(plan_list)))
  [05:32:30.390]                     stopifnot(inherits(plan_list, "future"))
  [05:32:30.390]                     default <- getOption("future.plan", "sequential")
  [05:32:30.390]                     if (is.function(default)) 
  [05:32:30.390]                       default <- class(default)
  [05:32:30.390]                     stopifnot(inherits(plan_list, default))
  [05:32:30.390]                     plan_b <- future::plan("list")
  [05:32:30.390]                     str(plan_b)
  [05:32:30.390]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:30.390]                       inherits(plan_b[[1]], default))
  [05:32:30.390]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:30.390]                   }, error = identity)
  [05:32:30.390]                 })
  [05:32:30.390]             })
  [05:32:30.390]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:30.390]                 version = "1.8")
  [05:32:30.390]         }, condition = local({
  [05:32:30.390]             inherits <- base::inherits
  [05:32:30.390]             invokeRestart <- base::invokeRestart
  [05:32:30.390]             length <- base::length
  [05:32:30.390]             seq.int <- base::seq.int
  [05:32:30.390]             sys.calls <- base::sys.calls
  [05:32:30.390]             `[[` <- base::`[[`
  [05:32:30.390]             `+` <- base::`+`
  [05:32:30.390]             `<<-` <- base::`<<-`
  [05:32:30.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:30.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:30.390]                   3L)]
  [05:32:30.390]             }
  [05:32:30.390]             function(cond) {
  [05:32:30.390]                 if (inherits(cond, "error")) {
  [05:32:30.390]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:30.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:30.390]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:30.390]                     signaled = 0L)
  [05:32:30.390]                   signalCondition(cond)
  [05:32:30.390]                 }
  [05:32:30.390]                 else if (inherits(cond, "condition")) {
  [05:32:30.390]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:30.390]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:30.390]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:30.390]                   if (inherits(cond, "message")) {
  [05:32:30.390]                     if (!signal) 
  [05:32:30.390]                       invokeRestart("muffleMessage")
  [05:32:30.390]                   }
  [05:32:30.390]                   else if (inherits(cond, "warning")) {
  [05:32:30.390]                     if (!signal) 
  [05:32:30.390]                       invokeRestart("muffleWarning")
  [05:32:30.390]                   }
  [05:32:30.390]                   else {
  [05:32:30.390]                     if (!signal) {
  [05:32:30.390]                       restarts <- computeRestarts(cond)
  [05:32:30.390]                       for (restart in restarts) {
  [05:32:30.390]                         name <- restart$name
  [05:32:30.390]                         if (is.null(name)) 
  [05:32:30.390]                           next
  [05:32:30.390]                         if (!grepl("^muffle", name)) 
  [05:32:30.390]                           next
  [05:32:30.390]                         invokeRestart(restart)
  [05:32:30.390]                         break
  [05:32:30.390]                       }
  [05:32:30.390]                     }
  [05:32:30.390]                   }
  [05:32:30.390]                 }
  [05:32:30.390]             }
  [05:32:30.390]         }))
  [05:32:30.390]     }, error = function(ex) {
  [05:32:30.390]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:30.390]             version = "1.8"), class = "FutureResult")
  [05:32:30.390]     }, finally = {
  [05:32:30.390]         {
  [05:32:30.390]             NULL
  [05:32:30.390]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:30.390]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:30.390]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:30.390]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:30.390]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:30.390]                 ...) 
  [05:32:30.390]             {
  [05:32:30.390]                 if (substitute) 
  [05:32:30.390]                   expr <- substitute(expr)
  [05:32:30.390]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:30.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:30.390]                   globals = globals, persistent = persistent, 
  [05:32:30.390]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:30.390]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:30.390]                   label = label, ...)
  [05:32:30.390]                 if (!future$lazy) 
  [05:32:30.390]                   future <- run(future)
  [05:32:30.390]                 invisible(future)
  [05:32:30.390]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:30.390]         }
  [05:32:30.390]         options(...future.oldOptions)
  [05:32:30.390]     })
  [05:32:30.390]     if (is.na(TRUE)) {
  [05:32:30.390]     }
  [05:32:30.390]     else {
  [05:32:30.390]         sink(type = "output", split = FALSE)
  [05:32:30.390]         if (TRUE) {
  [05:32:30.390]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:30.390]         }
  [05:32:30.390]         else {
  [05:32:30.390]             ...future.result["stdout"] <- list(NULL)
  [05:32:30.390]         }
  [05:32:30.390]         close(...future.stdout)
  [05:32:30.390]         ...future.stdout <- NULL
  [05:32:30.390]     }
  [05:32:30.390]     ...future.result$conditions <- ...future.conditions
  [05:32:30.390]     ...future.result
  [05:32:30.390] }
  [05:32:30.971]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [05:32:30.395] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [05:32:30.971]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [05:32:30.396] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [05:32:30.972]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [05:32:30.397] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [05:32:30.972]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [05:32:30.397] Exporting 'a' (56 bytes) to cluster node #1 ...
  [05:32:30.973]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [05:32:30.398] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [05:32:30.973]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [05:32:30.399] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [05:32:30.973]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [05:32:30.443] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [05:32:30.974]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [05:32:30.443] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [05:32:30.974]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [05:32:30.444] ClusterFuture started
  [05:32:30.975]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [05:32:30.445] Chunk #1 of 2 ... DONE
  [05:32:30.975]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [05:32:30.445] Chunk #2 of 2 ...
  [05:32:30.976]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [05:32:30.446]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:30.976]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [05:32:30.446] getGlobalsAndPackages() ...
  [05:32:30.976]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [05:32:30.447] Searching for globals...
  [05:32:30.977]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [05:32:30.447] 
  [05:32:30.977]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [05:32:30.448] Searching for globals ... DONE
  [05:32:30.978]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [05:32:30.448] - globals: [0] <none>
  [05:32:30.978]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [05:32:30.449] getGlobalsAndPackages() ... DONE
  [05:32:30.979]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [05:32:30.449] 
  [05:32:30.979]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [05:32:30.449] 
  [05:32:30.979]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [05:32:30.450]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:30.980]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [05:32:30.459] getGlobalsAndPackages() ...
  [05:32:30.980]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [05:32:30.460] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.981]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [05:32:30.460] Resolving globals: FALSE
  [05:32:30.981]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [05:32:30.462] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [05:32:30.982]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [05:32:30.462] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:30.982]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [05:32:30.463] 
  [05:32:30.983]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [05:32:30.463] getGlobalsAndPackages() ... DONE
  [05:32:30.983]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [05:32:30.470] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:30.983]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [05:32:30.471] Packages needed by future strategies (n = 0): <none>
  [05:32:30.984]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [05:32:30.476] {
  [05:32:30.476]     {
  [05:32:30.476]         ...future.startTime <- Sys.time()
  [05:32:30.476]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:30.476]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:30.476]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:30.476]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:30.476]             future.resolve.recursive = NULL, width = 80L)
  [05:32:30.476]         {
  [05:32:30.476]             {
  [05:32:30.476]                 {
  [05:32:30.476]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:30.476]                   version <- if (has_future) 
  [05:32:30.476]                     packageVersion("future")
  [05:32:30.476]                   else NULL
  [05:32:30.476]                   if (!has_future || version < "1.8.0") {
  [05:32:30.476]                     info <- c(r_version = gsub("R version ", 
  [05:32:30.476]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:30.476]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:30.476]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:30.476]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:30.476]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:30.476]                     info <- paste(info, collapse = "; ")
  [05:32:30.476]                     if (!has_future) {
  [05:32:30.476]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:30.476]                         info)
  [05:32:30.476]                     }
  [05:32:30.476]                     else {
  [05:32:30.476]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:30.476]                         info, version)
  [05:32:30.476]                     }
  [05:32:30.476]                     stop(msg)
  [05:32:30.476]                   }
  [05:32:30.476]                 }
  [05:32:30.476]                 local({
  [05:32:30.476]                   for (pkg in c("doFuture", "utils")) {
  [05:32:30.476]                     loadNamespace(pkg)
  [05:32:30.476]                     library(pkg, character.only = TRUE)
  [05:32:30.476]                   }
  [05:32:30.476]                 })
  [05:32:30.476]             }
  [05:32:30.476]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:30.476]         }
  [05:32:30.476]     }
  [05:32:30.476]     if (is.na(TRUE)) {
  [05:32:30.476]     }
  [05:32:30.476]     else {
  [05:32:30.476]         if (TRUE) {
  [05:32:30.476]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:30.476]         }
  [05:32:30.476]         else {
  [05:32:30.476]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:30.476]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:30.476]         }
  [05:32:30.476]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:30.476]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:30.476]             sink(type = "output", split = FALSE)
  [05:32:30.476]             close(...future.stdout)
  [05:32:30.476]         }, add = TRUE)
  [05:32:30.476]     }
  [05:32:30.476]     ...future.frame <- sys.nframe()
  [05:32:30.476]     ...future.conditions <- list()
  [05:32:30.476]     ...future.result <- tryCatch({
  [05:32:30.476]         withCallingHandlers({
  [05:32:30.476]             ...future.value <- local({
  [05:32:30.476]                 doFuture::registerDoFuture()
  [05:32:30.476]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:30.476]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:30.476]                   b <- NULL
  [05:32:30.476]                   ...future.env <- environment()
  [05:32:30.476]                   local({
  [05:32:30.476]                     for (name in names(...future.x_jj)) {
  [05:32:30.476]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:30.476]                         inherits = FALSE)
  [05:32:30.476]                     }
  [05:32:30.476]                   })
  [05:32:30.476]                   tryCatch({
  [05:32:30.476]                     plan_list <- future::plan()
  [05:32:30.476]                     message(capture.output(print(plan_list)))
  [05:32:30.476]                     stopifnot(inherits(plan_list, "future"))
  [05:32:30.476]                     default <- getOption("future.plan", "sequential")
  [05:32:30.476]                     if (is.function(default)) 
  [05:32:30.476]                       default <- class(default)
  [05:32:30.476]                     stopifnot(inherits(plan_list, default))
  [05:32:30.476]                     plan_b <- future::plan("list")
  [05:32:30.476]                     str(plan_b)
  [05:32:30.476]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:30.476]                       inherits(plan_b[[1]], default))
  [05:32:30.476]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:30.476]                   }, error = identity)
  [05:32:30.476]                 })
  [05:32:30.476]             })
  [05:32:30.476]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:30.476]                 version = "1.8")
  [05:32:30.476]         }, condition = local({
  [05:32:30.476]             inherits <- base::inherits
  [05:32:30.476]             invokeRestart <- base::invokeRestart
  [05:32:30.476]             length <- base::length
  [05:32:30.476]             seq.int <- base::seq.int
  [05:32:30.476]             sys.calls <- base::sys.calls
  [05:32:30.476]             `[[` <- base::`[[`
  [05:32:30.476]             `+` <- base::`+`
  [05:32:30.476]             `<<-` <- base::`<<-`
  [05:32:30.476]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:30.476]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:30.476]                   3L)]
  [05:32:30.476]             }
  [05:32:30.476]             function(cond) {
  [05:32:30.476]                 if (inherits(cond, "error")) {
  [05:32:30.476]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:30.476]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:30.476]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:30.476]                     signaled = 0L)
  [05:32:30.476]                   signalCondition(cond)
  [05:32:30.476]                 }
  [05:32:30.476]                 else if (inherits(cond, "condition")) {
  [05:32:30.476]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:30.476]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:30.476]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:30.476]                   if (inherits(cond, "message")) {
  [05:32:30.476]                     if (!signal) 
  [05:32:30.476]                       invokeRestart("muffleMessage")
  [05:32:30.476]                   }
  [05:32:30.476]                   else if (inherits(cond, "warning")) {
  [05:32:30.476]                     if (!signal) 
  [05:32:30.476]                       invokeRestart("muffleWarning")
  [05:32:30.476]                   }
  [05:32:30.476]                   else {
  [05:32:30.476]                     if (!signal) {
  [05:32:30.476]                       restarts <- computeRestarts(cond)
  [05:32:30.476]                       for (restart in restarts) {
  [05:32:30.476]                         name <- restart$name
  [05:32:30.476]                         if (is.null(name)) 
  [05:32:30.476]                           next
  [05:32:30.476]                         if (!grepl("^muffle", name)) 
  [05:32:30.476]                           next
  [05:32:30.476]                         invokeRestart(restart)
  [05:32:30.476]                         break
  [05:32:30.476]                       }
  [05:32:30.476]                     }
  [05:32:30.476]                   }
  [05:32:30.476]                 }
  [05:32:30.476]             }
  [05:32:30.476]         }))
  [05:32:30.476]     }, error = function(ex) {
  [05:32:30.476]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:30.476]             version = "1.8"), class = "FutureResult")
  [05:32:30.476]     }, finally = {
  [05:32:30.476]         {
  [05:32:30.476]             NULL
  [05:32:30.476]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:30.476]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:30.476]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:30.476]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:30.476]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:30.476]                 ...) 
  [05:32:30.476]             {
  [05:32:30.476]                 if (substitute) 
  [05:32:30.476]                   expr <- substitute(expr)
  [05:32:30.476]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:30.476]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:30.476]                   globals = globals, persistent = persistent, 
  [05:32:30.476]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:30.476]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:30.476]                   label = label, ...)
  [05:32:30.476]                 if (!future$lazy) 
  [05:32:30.476]                   future <- run(future)
  [05:32:30.476]                 invisible(future)
  [05:32:30.476]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:30.476]         }
  [05:32:30.476]         options(...future.oldOptions)
  [05:32:30.476]     })
  [05:32:30.476]     if (is.na(TRUE)) {
  [05:32:30.476]     }
  [05:32:30.476]     else {
  [05:32:30.476]         sink(type = "output", split = FALSE)
  [05:32:30.476]         if (TRUE) {
  [05:32:30.476]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:30.476]         }
  [05:32:30.476]         else {
  [05:32:30.476]             ...future.result["stdout"] <- list(NULL)
  [05:32:30.476]         }
  [05:32:30.476]         close(...future.stdout)
  [05:32:30.476]         ...future.stdout <- NULL
  [05:32:30.476]     }
  [05:32:30.476]     ...future.result$conditions <- ...future.conditions
  [05:32:30.476]     ...future.result
  [05:32:30.476] }
  [05:32:30.984]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [05:32:30.481] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [05:32:30.985]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [05:32:30.482] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [05:32:30.985]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [05:32:30.483] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [05:32:30.986]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [05:32:30.484] Exporting 'a' (56 bytes) to cluster node #2 ...
  [05:32:30.986]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [05:32:30.485] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [05:32:30.987]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [05:32:30.486] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [05:32:30.987]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [05:32:30.547] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [05:32:30.988]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [05:32:30.548] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [05:32:30.988]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [05:32:30.549] ClusterFuture started
  [05:32:30.988]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [05:32:30.549] Chunk #2 of 2 ... DONE
  [05:32:30.989]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [05:32:30.550] Launching 2 futures (chunks) ... DONE
  [05:32:30.989]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [05:32:30.550] - resolving futures
  [05:32:30.990]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [05:32:30.550]   - gathering results & relaying conditions (except errors)
  [05:32:30.990]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [05:32:30.551] resolve() on list ...
  [05:32:30.991]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [05:32:30.551]  recursive: 0
  [05:32:30.991]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [05:32:30.551]  length: 2
  [05:32:30.991]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [05:32:30.552] 
  [05:32:30.992]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [05:32:30.553] Future #1
  [05:32:30.992]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [05:32:30.554] result() for ClusterFuture ...
  [05:32:30.993]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [05:32:30.554] - Validating connection of ClusterFuture
  [05:32:30.993]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [05:32:30.555] - class(result): FutureResult
  [05:32:30.994]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [05:32:30.556] result() for ClusterFuture ...
  [05:32:30.994]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [05:32:30.556] - result already collected: FutureResult
  [05:32:30.994]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [05:32:30.557] result() for ClusterFuture ... done
  [05:32:30.995]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [05:32:30.557] signalConditions() ...
  [05:32:31.000]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [05:32:30.557]  - include = 'immediateCondition'
  [05:32:31.001]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [05:32:30.558]  - exclude = 
  [05:32:31.001]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [05:32:30.558]  - resignal = FALSE
  [05:32:31.002]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [05:32:30.559]  - Number of conditions: 1
  [05:32:31.002]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [05:32:30.559] signalConditions() ... done
  [05:32:31.003]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [05:32:30.560] result() for ClusterFuture ... done
  [05:32:31.003]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [05:32:30.560] result() for ClusterFuture ...
  [05:32:31.004]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [05:32:30.561] - result already collected: FutureResult
  [05:32:31.004]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [05:32:30.561] result() for ClusterFuture ... done
  [05:32:31.005]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [05:32:30.561] signalConditions() ...
  [05:32:31.005]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [05:32:30.562]  - include = 'immediateCondition'
  [05:32:31.006]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [05:32:30.562]  - exclude = 
  [05:32:31.006]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [05:32:30.563]  - resignal = FALSE
  [05:32:31.006]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [05:32:30.563]  - Number of conditions: 1
  [05:32:31.007]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [05:32:30.563] signalConditions() ... done
  [05:32:31.007]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [05:32:30.564] signalConditionsASAP(ClusterFuture, pos=1) ...
  [05:32:31.008]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [05:32:30.564] - nx: 2
  [05:32:31.008]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [05:32:30.565] - relay: TRUE
  [05:32:31.009]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [05:32:30.565] - stdout: TRUE
  [05:32:31.009]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [05:32:30.565] - signal: TRUE
  [05:32:31.010]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [05:32:30.566] - resignal: FALSE
  [05:32:31.010]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [05:32:30.566] - force: FALSE
  [05:32:31.011]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [05:32:30.567] - relayed: [n=2] FALSE, FALSE
  [05:32:31.011]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [05:32:30.567] - queued futures: [n=2] FALSE, FALSE
  [05:32:31.012]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [05:32:30.567]  - until=1
  [05:32:31.012]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [05:32:30.568]  - relaying element #1
  [05:32:31.013]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [05:32:30.568] result() for ClusterFuture ...
  [05:32:31.013]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [05:32:30.569] - result already collected: FutureResult
  [05:32:31.013]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [05:32:30.569] result() for ClusterFuture ... done
  [05:32:31.014]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [05:32:30.569] result() for ClusterFuture ...
  [05:32:31.014]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [05:32:30.570] - result already collected: FutureResult
  [05:32:31.015]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [05:32:30.570] result() for ClusterFuture ... done
  [05:32:31.015]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [05:32:30.571] signalConditions() ...
  [05:32:31.016]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [05:32:30.571]  - include = 'immediateCondition'
  [05:32:31.016]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [05:32:30.571]  - exclude = 
  [05:32:31.016]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [05:32:30.572]  - resignal = FALSE
  [05:32:31.017]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [05:32:30.572]  - Number of conditions: 1
  [05:32:31.017]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [05:32:30.573] signalConditions() ... done
  [05:32:31.018]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [05:32:30.573] result() for ClusterFuture ...
  [05:32:31.018]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [05:32:30.573] - result already collected: FutureResult
  [05:32:31.019]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [05:32:30.574] result() for ClusterFuture ... done
  [05:32:31.019]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [05:32:30.574] signalConditions() ...
  [05:32:31.019]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [05:32:30.607]  - include = 'condition'
  [05:32:31.020]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [05:32:30.607]  - exclude = 
  [05:32:31.020]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [05:32:30.608]  - resignal = FALSE
  [05:32:31.021]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [05:32:30.608]  - Number of conditions: 1
  [05:32:31.021]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [05:32:30.608]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:31.022]  - Condition #435: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.022]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [05:32:30.609] signalConditions() ... done
  [05:32:31.023]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [05:32:30.609] - relayed: [n=2] TRUE, FALSE
  [05:32:31.023]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [05:32:30.610] - queued futures: [n=2] TRUE, FALSE
  [05:32:31.023]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [05:32:30.610] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [05:32:31.024]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [05:32:30.611]  length: 1 (resolved future 1)
  [05:32:31.024]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [05:32:30.612] Future #2
  [05:32:31.025]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [05:32:30.613] result() for ClusterFuture ...
  [05:32:31.025]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [05:32:30.613] - Validating connection of ClusterFuture
  [05:32:31.026]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [05:32:30.647] - class(result): FutureResult
  [05:32:31.026]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [05:32:30.647] result() for ClusterFuture ...
  [05:32:31.026]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [05:32:30.648] - result already collected: FutureResult
  [05:32:31.027]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [05:32:30.648] result() for ClusterFuture ... done
  [05:32:31.027]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [05:32:30.649] signalConditions() ...
  [05:32:31.028]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [05:32:30.649]  - include = 'immediateCondition'
  [05:32:31.028]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [05:32:30.650]  - exclude = 
  [05:32:31.029]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [05:32:30.655]  - resignal = FALSE
  [05:32:31.029]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [05:32:30.655]  - Number of conditions: 2
  [05:32:31.030]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [05:32:30.656] signalConditions() ... done
  [05:32:31.030]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [05:32:30.656] result() for ClusterFuture ... done
  [05:32:31.030]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [05:32:30.657] result() for ClusterFuture ...
  [05:32:31.031]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [05:32:30.657] - result already collected: FutureResult
  [05:32:31.031]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [05:32:30.658] result() for ClusterFuture ... done
  [05:32:31.032]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [05:32:30.658] signalConditions() ...
  [05:32:31.032]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [05:32:30.659]  - include = 'immediateCondition'
  [05:32:31.033]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [05:32:30.659]  - exclude = 
  [05:32:31.033]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [05:32:30.659]  - resignal = FALSE
  [05:32:31.033]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [05:32:30.660]  - Number of conditions: 2
  [05:32:31.034]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [05:32:30.660] signalConditions() ... done
  [05:32:31.034]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [05:32:30.661] signalConditionsASAP(ClusterFuture, pos=2) ...
  [05:32:31.035]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [05:32:30.661] - nx: 2
  [05:32:31.035]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [05:32:30.662] - relay: TRUE
  [05:32:31.035]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [05:32:30.662] - stdout: TRUE
  [05:32:31.036]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [05:32:30.679] - signal: TRUE
  [05:32:31.036]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [05:32:30.679] - resignal: FALSE
  [05:32:31.037]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [05:32:30.680] - force: FALSE
  [05:32:31.037]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [05:32:30.680] - relayed: [n=2] TRUE, FALSE
  [05:32:31.038]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [05:32:30.681] - queued futures: [n=2] TRUE, FALSE
  [05:32:31.038]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [05:32:30.681]  - until=2
  [05:32:31.039]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [05:32:30.682]  - relaying element #2
  [05:32:31.039]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [05:32:30.682] result() for ClusterFuture ...
  [05:32:31.039]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [05:32:30.682] - result already collected: FutureResult
  [05:32:31.040]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [05:32:30.683] result() for ClusterFuture ... done
  [05:32:31.040]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [05:32:30.683] result() for ClusterFuture ...
  [05:32:31.041]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [05:32:30.684] - result already collected: FutureResult
  [05:32:31.041]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [05:32:30.684] result() for ClusterFuture ... done
  [05:32:31.042]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [05:32:30.684] signalConditions() ...
  [05:32:31.042]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [05:32:30.685]  - include = 'immediateCondition'
  [05:32:31.043]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [05:32:30.685]  - exclude = 
  [05:32:31.043]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [05:32:30.686]  - resignal = FALSE
  [05:32:31.043]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [05:32:30.686]  - Number of conditions: 2
  [05:32:31.044]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [05:32:30.686] signalConditions() ... done
  [05:32:31.044]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [05:32:30.687] result() for ClusterFuture ...
  [05:32:31.045]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [05:32:30.687] - result already collected: FutureResult
  [05:32:31.045]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [05:32:30.688] result() for ClusterFuture ... done
  [05:32:31.051]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [05:32:30.688] signalConditions() ...
  [05:32:31.051]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [05:32:30.689]  - include = 'condition'
  [05:32:31.052]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [05:32:30.689]  - exclude = 
  [05:32:31.052]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [05:32:30.689]  - resignal = FALSE
  [05:32:31.053]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [05:32:30.690]  - Number of conditions: 2
  [05:32:31.053]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [05:32:30.690]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:31.054]  - Condition #496: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.054]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [05:32:30.700]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:31.055]  - Condition #498: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.055]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [05:32:30.701] signalConditions() ... done
  [05:32:31.056]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [05:32:30.701] - relayed: [n=2] TRUE, TRUE
  [05:32:31.056]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [05:32:30.701] - queued futures: [n=2] TRUE, TRUE
  [05:32:31.057]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [05:32:30.702] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [05:32:31.057]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [05:32:30.702]  length: 0 (resolved future 2)
  [05:32:31.058]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [05:32:30.703] Relaying remaining futures
  [05:32:31.058]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [05:32:30.703] signalConditionsASAP(NULL, pos=0) ...
  [05:32:31.058]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [05:32:30.703] - nx: 2
  [05:32:31.059]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [05:32:30.704] - relay: TRUE
  [05:32:31.059]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [05:32:30.704] - stdout: TRUE
  [05:32:31.060]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [05:32:30.704] - signal: TRUE
  [05:32:31.060]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [05:32:30.705] - resignal: FALSE
  [05:32:31.061]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [05:32:30.705] - force: FALSE
  [05:32:31.061]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [05:32:30.706] - relayed: [n=2] TRUE, TRUE
  [05:32:31.062]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [05:32:30.706] - queued futures: [n=2] TRUE, TRUE
  [05:32:31.062]  - Condition #514: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:31.063]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [05:32:30.707] - relayed: [n=2] TRUE, TRUE
  [05:32:31.063]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [05:32:30.707] - queued futures: [n=2] TRUE, TRUE
  [05:32:31.064]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [05:32:30.708] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:31.064]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [05:32:30.708] resolve() on list ... DONE
  [05:32:31.065]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [05:32:30.708] - collecting values of futures
  [05:32:31.065]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [05:32:30.709] result() for ClusterFuture ...
  [05:32:31.065]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [05:32:30.709] - result already collected: FutureResult
  [05:32:31.066]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [05:32:30.709] result() for ClusterFuture ... done
  [05:32:31.066]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [05:32:30.710] result() for ClusterFuture ...
  [05:32:31.067]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [05:32:30.725] - result already collected: FutureResult
  [05:32:31.067]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [05:32:30.726] result() for ClusterFuture ... done
  [05:32:31.068]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [05:32:30.726] signalConditions() ...
  [05:32:31.068]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [05:32:30.727]  - include = 'immediateCondition'
  [05:32:31.069]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [05:32:30.727]  - exclude = 
  [05:32:31.069]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [05:32:30.728]  - resignal = FALSE
  [05:32:31.069]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [05:32:30.728]  - Number of conditions: 1
  [05:32:31.070]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [05:32:30.729] signalConditions() ... done
  [05:32:31.070]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [05:32:30.729] result() for ClusterFuture ...
  [05:32:31.071]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [05:32:30.729] - result already collected: FutureResult
  [05:32:31.071]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [05:32:30.730] result() for ClusterFuture ... done
  [05:32:31.071]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [05:32:30.730] result() for ClusterFuture ...
  [05:32:31.072]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [05:32:30.731] - result already collected: FutureResult
  [05:32:31.072]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [05:32:30.731] result() for ClusterFuture ... done
  [05:32:31.073]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [05:32:30.731] signalConditions() ...
  [05:32:31.073]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [05:32:30.732]  - include = 'immediateCondition'
  [05:32:31.074]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [05:32:30.732]  - exclude = 
  [05:32:31.074]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [05:32:30.733]  - resignal = FALSE
  [05:32:31.075]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [05:32:30.733]  - Number of conditions: 2
  [05:32:31.075]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [05:32:30.733] signalConditions() ... done
  [05:32:31.075]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [05:32:30.734] - accumulating results
  [05:32:31.076]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [05:32:30.735] - processing errors (handler = 'stop')
  [05:32:31.076]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [05:32:30.736] - extracting results
  [05:32:31.077]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [05:32:30.736] doFuture() ... DONE
  [05:32:31.077]  - Condition #548: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:31.078] signalConditions() ... done
  [05:32:31.078] - relayed: [n=1] TRUE
  [05:32:31.079] - queued futures: [n=1] TRUE
  [05:32:31.079] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:31.079]  length: 0 (resolved future 1)
  [05:32:31.080] Relaying remaining futures
  [05:32:31.080] signalConditionsASAP(NULL, pos=0) ...
  [05:32:31.080] - nx: 1
  [05:32:31.081] - relay: TRUE
  [05:32:31.081] - stdout: TRUE
  [05:32:31.081] - signal: TRUE
  [05:32:31.081] - resignal: FALSE
  [05:32:31.082] - force: FALSE
  [05:32:31.082] - relayed: [n=1] TRUE
  [05:32:31.082] - queued futures: [n=1] TRUE
   - flush all
  [05:32:31.083] - relayed: [n=1] TRUE
  [05:32:31.083] - queued futures: [n=1] TRUE
  [05:32:31.083] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:31.084] resolve() on list ... DONE
  [05:32:31.084] - collecting values of futures
  [05:32:31.084] signalConditions() ...
  [05:32:31.085]  - include = 'immediateCondition'
  [05:32:31.085]  - exclude = 
  [05:32:31.085]  - resignal = FALSE
  [05:32:31.085]  - Number of conditions: 548
  [05:32:31.088] signalConditions() ... done
  [05:32:31.088] - accumulating results
  [05:32:31.089] - processing errors (handler = 'stop')
  [05:32:31.089] - extracting results
  [05:32:31.090] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [05:32:31.091] plan(): Setting new future strategy stack:
  [05:32:31.091] List of future strategies:
  [05:32:31.091] 1. multicore:
  [05:32:31.091]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:31.091]    - tweaked: FALSE
  [05:32:31.091]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.091] 2. sequential:
  [05:32:31.091]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.091]    - tweaked: FALSE
  [05:32:31.091]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.095] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [05:32:31.095] doFuture() ...
  [05:32:31.097] - dummy globals (as locals): [1] 'a'
  [05:32:31.098] - R expression:
  [05:32:31.098] {
  [05:32:31.098]     doFuture::registerDoFuture()
  [05:32:31.098]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.098]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.098]         a <- NULL
  [05:32:31.098]         ...future.env <- environment()
  [05:32:31.098]         local({
  [05:32:31.098]             for (name in names(...future.x_jj)) {
  [05:32:31.098]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.098]                   inherits = FALSE)
  [05:32:31.098]             }
  [05:32:31.098]         })
  [05:32:31.098]         tryCatch({
  [05:32:31.098]             plan_list <- future::plan()
  [05:32:31.098]             stopifnot(inherits(plan_list, strategy2))
  [05:32:31.098]             plan_a <- future::plan("list")
  [05:32:31.098]             str(plan_a)
  [05:32:31.098]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:31.098]             message("foreach() - level 2 ...")
  [05:32:31.098]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:31.098]                 {
  [05:32:31.098]                   plan_list <- future::plan()
  [05:32:31.098]                   message(capture.output(print(plan_list)))
  [05:32:31.098]                   stopifnot(inherits(plan_list, "future"))
  [05:32:31.098]                   default <- getOption("future.plan", "sequential")
  [05:32:31.098]                   if (is.function(default)) 
  [05:32:31.098]                     default <- class(default)
  [05:32:31.098]                   stopifnot(inherits(plan_list, default))
  [05:32:31.098]                   plan_b <- future::plan("list")
  [05:32:31.098]                   str(plan_b)
  [05:32:31.098]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.098]                     inherits(plan_b[[1]], default))
  [05:32:31.098]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.098]                 }
  [05:32:31.098]             message("foreach() - level 2 ... DONE")
  [05:32:31.098]             y
  [05:32:31.098]         }, error = identity)
  [05:32:31.098]     })
  [05:32:31.098] }
  [05:32:31.099] - identifying globals and packages ...
  [05:32:31.100] getGlobalsAndPackages() ...
  [05:32:31.100] Searching for globals...
  [05:32:31.155] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:32:31.156] Searching for globals ... DONE
  [05:32:31.156] Resolving globals: FALSE
  [05:32:31.159] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:32:31.160] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.160] - packages: [2] 'utils', 'foreach'
  [05:32:31.160] getGlobalsAndPackages() ... DONE
  [05:32:31.161] List of 3
  [05:32:31.161]  $ ...future.x_ii: NULL
  [05:32:31.161]  $ strategy2     : chr "sequential"
  [05:32:31.161]  $ bs            : int [1:3] 3 2 1
  [05:32:31.161]  - attr(*, "where")=List of 3
  [05:32:31.161]   ..$ ...future.x_ii:<environment: 0x556d9cc8c248> 
  [05:32:31.161]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:31.161]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:31.161]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.161]  - attr(*, "resolved")= logi FALSE
  [05:32:31.161]  - attr(*, "total_size")= num 184
  [05:32:31.171]   - R expression:
  [05:32:31.171] {
  [05:32:31.171]     doFuture::registerDoFuture()
  [05:32:31.171]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.171]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.171]         a <- NULL
  [05:32:31.171]         ...future.env <- environment()
  [05:32:31.171]         local({
  [05:32:31.171]             for (name in names(...future.x_jj)) {
  [05:32:31.171]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.171]                   inherits = FALSE)
  [05:32:31.171]             }
  [05:32:31.171]         })
  [05:32:31.171]         tryCatch({
  [05:32:31.171]             plan_list <- future::plan()
  [05:32:31.171]             stopifnot(inherits(plan_list, strategy2))
  [05:32:31.171]             plan_a <- future::plan("list")
  [05:32:31.171]             str(plan_a)
  [05:32:31.171]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:31.171]             message("foreach() - level 2 ...")
  [05:32:31.171]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:31.171]                 {
  [05:32:31.171]                   plan_list <- future::plan()
  [05:32:31.171]                   message(capture.output(print(plan_list)))
  [05:32:31.171]                   stopifnot(inherits(plan_list, "future"))
  [05:32:31.171]                   default <- getOption("future.plan", "sequential")
  [05:32:31.171]                   if (is.function(default)) 
  [05:32:31.171]                     default <- class(default)
  [05:32:31.171]                   stopifnot(inherits(plan_list, default))
  [05:32:31.171]                   plan_b <- future::plan("list")
  [05:32:31.171]                   str(plan_b)
  [05:32:31.171]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.171]                     inherits(plan_b[[1]], default))
  [05:32:31.171]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.171]                 }
  [05:32:31.171]             message("foreach() - level 2 ... DONE")
  [05:32:31.171]             y
  [05:32:31.171]         }, error = identity)
  [05:32:31.171]     })
  [05:32:31.171] }
  [05:32:31.172]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.173] List of 3
  [05:32:31.173]  $ ...future.x_ii: NULL
  [05:32:31.173]  $ strategy2     : chr "sequential"
  [05:32:31.173]  $ bs            : int [1:3] 3 2 1
  [05:32:31.173]  - attr(*, "where")=List of 3
  [05:32:31.173]   ..$ ...future.x_ii:<environment: 0x556d9cc8c248> 
  [05:32:31.173]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:31.173]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:31.173]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.173]  - attr(*, "resolved")= logi FALSE
  [05:32:31.173]  - attr(*, "total_size")= num 184
  [05:32:31.182]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:32:31.182] - identifying globals and packages ... DONE
  [05:32:31.183] Number of chunks: 2
  [05:32:31.184] Number of futures (= number of chunks): 2
  [05:32:31.184] Launching 2 futures (chunks) ...
  [05:32:31.184] Chunk #1 of 2 ...
  [05:32:31.185]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:31.185] getGlobalsAndPackages() ...
  [05:32:31.185] Searching for globals...
  [05:32:31.186] 
  [05:32:31.186] Searching for globals ... DONE
  [05:32:31.187] - globals: [0] <none>
  [05:32:31.187] getGlobalsAndPackages() ... DONE
  [05:32:31.187] 
  [05:32:31.188] 
  [05:32:31.188]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:31.189] getGlobalsAndPackages() ...
  [05:32:31.189] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.190] Resolving globals: FALSE
  [05:32:31.191] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:31.191] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.191] 
  [05:32:31.192] getGlobalsAndPackages() ... DONE
  [05:32:31.194] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:31.194] Packages needed by future strategies (n = 1): 'future'
  [05:32:31.205] {
  [05:32:31.205]     {
  [05:32:31.205]         ...future.startTime <- Sys.time()
  [05:32:31.205]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:31.205]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:31.205]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:31.205]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:31.205]             future.resolve.recursive = NULL, width = 80L)
  [05:32:31.205]         {
  [05:32:31.205]             {
  [05:32:31.205]                 {
  [05:32:31.205]                   {
  [05:32:31.205]                     has_future <- requireNamespace("future", 
  [05:32:31.205]                       quietly = TRUE)
  [05:32:31.205]                     version <- if (has_future) 
  [05:32:31.205]                       packageVersion("future")
  [05:32:31.205]                     else NULL
  [05:32:31.205]                     if (!has_future || version < "1.8.0") {
  [05:32:31.205]                       info <- c(r_version = gsub("R version ", 
  [05:32:31.205]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:31.205]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:31.205]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:31.205]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:31.205]                       info <- sprintf("%s: %s", names(info), 
  [05:32:31.205]                         info)
  [05:32:31.205]                       info <- paste(info, collapse = "; ")
  [05:32:31.205]                       if (!has_future) {
  [05:32:31.205]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:31.205]                           info)
  [05:32:31.205]                       }
  [05:32:31.205]                       else {
  [05:32:31.205]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:31.205]                           info, version)
  [05:32:31.205]                       }
  [05:32:31.205]                       stop(msg)
  [05:32:31.205]                     }
  [05:32:31.205]                   }
  [05:32:31.205]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:31.205]                   options(mc.cores = 1L)
  [05:32:31.205]                 }
  [05:32:31.205]                 local({
  [05:32:31.205]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:31.205]                   "future")) {
  [05:32:31.205]                     loadNamespace(pkg)
  [05:32:31.205]                     library(pkg, character.only = TRUE)
  [05:32:31.205]                   }
  [05:32:31.205]                 })
  [05:32:31.205]             }
  [05:32:31.205]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:31.205]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.205]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:32:31.205]                 label = NULL, ...) 
  [05:32:31.205]             {
  [05:32:31.205]                 if (substitute) 
  [05:32:31.205]                   expr <- substitute(expr)
  [05:32:31.205]                 local <- as.logical(local)
  [05:32:31.205]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.205]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.205]                   label = label, ...)
  [05:32:31.205]                 if (!future$lazy) 
  [05:32:31.205]                   future <- run(future)
  [05:32:31.205]                 invisible(future)
  [05:32:31.205]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.205]         }
  [05:32:31.205]     }
  [05:32:31.205]     if (is.na(TRUE)) {
  [05:32:31.205]     }
  [05:32:31.205]     else {
  [05:32:31.205]         if (TRUE) {
  [05:32:31.205]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:31.205]         }
  [05:32:31.205]         else {
  [05:32:31.205]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:31.205]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:31.205]         }
  [05:32:31.205]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:31.205]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:31.205]             sink(type = "output", split = FALSE)
  [05:32:31.205]             close(...future.stdout)
  [05:32:31.205]         }, add = TRUE)
  [05:32:31.205]     }
  [05:32:31.205]     ...future.frame <- sys.nframe()
  [05:32:31.205]     ...future.conditions <- list()
  [05:32:31.205]     ...future.result <- tryCatch({
  [05:32:31.205]         withCallingHandlers({
  [05:32:31.205]             ...future.value <- local({
  [05:32:31.205]                 doFuture::registerDoFuture()
  [05:32:31.205]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.205]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.205]                   a <- NULL
  [05:32:31.205]                   ...future.env <- environment()
  [05:32:31.205]                   local({
  [05:32:31.205]                     for (name in names(...future.x_jj)) {
  [05:32:31.205]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.205]                         inherits = FALSE)
  [05:32:31.205]                     }
  [05:32:31.205]                   })
  [05:32:31.205]                   tryCatch({
  [05:32:31.205]                     plan_list <- future::plan()
  [05:32:31.205]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:31.205]                     plan_a <- future::plan("list")
  [05:32:31.205]                     str(plan_a)
  [05:32:31.205]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:31.205]                     message("foreach() - level 2 ...")
  [05:32:31.205]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:31.205]                       {
  [05:32:31.205]                         plan_list <- future::plan()
  [05:32:31.205]                         message(capture.output(print(plan_list)))
  [05:32:31.205]                         stopifnot(inherits(plan_list, "future"))
  [05:32:31.205]                         default <- getOption("future.plan", "sequential")
  [05:32:31.205]                         if (is.function(default)) 
  [05:32:31.205]                           default <- class(default)
  [05:32:31.205]                         stopifnot(inherits(plan_list, default))
  [05:32:31.205]                         plan_b <- future::plan("list")
  [05:32:31.205]                         str(plan_b)
  [05:32:31.205]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.205]                           inherits(plan_b[[1]], default))
  [05:32:31.205]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.205]                       }
  [05:32:31.205]                     message("foreach() - level 2 ... DONE")
  [05:32:31.205]                     y
  [05:32:31.205]                   }, error = identity)
  [05:32:31.205]                 })
  [05:32:31.205]             })
  [05:32:31.205]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:31.205]                 version = "1.8")
  [05:32:31.205]         }, condition = local({
  [05:32:31.205]             inherits <- base::inherits
  [05:32:31.205]             invokeRestart <- base::invokeRestart
  [05:32:31.205]             length <- base::length
  [05:32:31.205]             seq.int <- base::seq.int
  [05:32:31.205]             sys.calls <- base::sys.calls
  [05:32:31.205]             `[[` <- base::`[[`
  [05:32:31.205]             `+` <- base::`+`
  [05:32:31.205]             `<<-` <- base::`<<-`
  [05:32:31.205]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:31.205]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:31.205]                   3L)]
  [05:32:31.205]             }
  [05:32:31.205]             function(cond) {
  [05:32:31.205]                 if (inherits(cond, "error")) {
  [05:32:31.205]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.205]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:31.205]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:31.205]                     signaled = 0L)
  [05:32:31.205]                   signalCondition(cond)
  [05:32:31.205]                 }
  [05:32:31.205]                 else if (inherits(cond, "condition")) {
  [05:32:31.205]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:31.205]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.205]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:31.205]                   if (inherits(cond, "message")) {
  [05:32:31.205]                     if (!signal) 
  [05:32:31.205]                       invokeRestart("muffleMessage")
  [05:32:31.205]                   }
  [05:32:31.205]                   else if (inherits(cond, "warning")) {
  [05:32:31.205]                     if (!signal) 
  [05:32:31.205]                       invokeRestart("muffleWarning")
  [05:32:31.205]                   }
  [05:32:31.205]                   else {
  [05:32:31.205]                     if (!signal) {
  [05:32:31.205]                       restarts <- computeRestarts(cond)
  [05:32:31.205]                       for (restart in restarts) {
  [05:32:31.205]                         name <- restart$name
  [05:32:31.205]                         if (is.null(name)) 
  [05:32:31.205]                           next
  [05:32:31.205]                         if (!grepl("^muffle", name)) 
  [05:32:31.205]                           next
  [05:32:31.205]                         invokeRestart(restart)
  [05:32:31.205]                         break
  [05:32:31.205]                       }
  [05:32:31.205]                     }
  [05:32:31.205]                   }
  [05:32:31.205]                 }
  [05:32:31.205]             }
  [05:32:31.205]         }))
  [05:32:31.205]     }, error = function(ex) {
  [05:32:31.205]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:31.205]             version = "1.8"), class = "FutureResult")
  [05:32:31.205]     }, finally = {
  [05:32:31.205]         {
  [05:32:31.205]             {
  [05:32:31.205]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:31.205]             }
  [05:32:31.205]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:31.205]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.205]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:31.205]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:31.205]             {
  [05:32:31.205]                 if (substitute) 
  [05:32:31.205]                   expr <- substitute(expr)
  [05:32:31.205]                 if (is.function(workers)) 
  [05:32:31.205]                   workers <- workers()
  [05:32:31.205]                 workers <- as.integer(workers)
  [05:32:31.205]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:31.205]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:31.205]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:31.205]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:31.205]                     local = TRUE, label = label, ...))
  [05:32:31.205]                 }
  [05:32:31.205]                 oopts <- options(mc.cores = workers)
  [05:32:31.205]                 on.exit(options(oopts))
  [05:32:31.205]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:31.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.205]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:31.205]                   label = label, ...)
  [05:32:31.205]                 if (!future$lazy) 
  [05:32:31.205]                   future <- run(future)
  [05:32:31.205]                 invisible(future)
  [05:32:31.205]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:31.205]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [05:32:31.205]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:31.205]             {
  [05:32:31.205]                 if (substitute) 
  [05:32:31.205]                   expr <- substitute(expr)
  [05:32:31.205]                 local <- as.logical(local)
  [05:32:31.205]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.205]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.205]                   label = label, ...)
  [05:32:31.205]                 if (!future$lazy) 
  [05:32:31.205]                   future <- run(future)
  [05:32:31.205]                 invisible(future)
  [05:32:31.205]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.205]         }
  [05:32:31.205]         options(...future.oldOptions)
  [05:32:31.205]     })
  [05:32:31.205]     if (is.na(TRUE)) {
  [05:32:31.205]     }
  [05:32:31.205]     else {
  [05:32:31.205]         sink(type = "output", split = FALSE)
  [05:32:31.205]         if (TRUE) {
  [05:32:31.205]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:31.205]         }
  [05:32:31.205]         else {
  [05:32:31.205]             ...future.result["stdout"] <- list(NULL)
  [05:32:31.205]         }
  [05:32:31.205]         close(...future.stdout)
  [05:32:31.205]         ...future.stdout <- NULL
  [05:32:31.205]     }
  [05:32:31.205]     ...future.result$conditions <- ...future.conditions
  [05:32:31.205]     ...future.result
  [05:32:31.205] }
  [05:32:31.210] requestCore(): workers = 2
  [05:32:31.214] MulticoreFuture started
  [05:32:31.216] Chunk #1 of 2 ... DONE
  [05:32:31.217] Chunk #2 of 2 ...
  [05:32:31.218]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:31.219] getGlobalsAndPackages() ...
  [05:32:31.221] Searching for globals...
  [05:32:31.223] 
  [05:32:31.224] Searching for globals ... DONE
  [05:32:31.225] - globals: [0] <none>
  [05:32:31.234] plan(): Setting new future strategy stack:
  [05:32:31.235] List of future strategies:
  [05:32:31.235] 1. sequential:
  [05:32:31.235]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.235]    - tweaked: FALSE
  [05:32:31.235]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.237] plan(): nbrOfWorkers() = 1
  [05:32:31.226] getGlobalsAndPackages() ... DONE
  [05:32:31.243] 
  [05:32:31.243] 
  [05:32:31.244]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:31.245] getGlobalsAndPackages() ...
  [05:32:31.246] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.247] Resolving globals: FALSE
  [05:32:31.249] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:31.250] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:31.251] 
  [05:32:31.251] getGlobalsAndPackages() ... DONE
  [05:32:31.254] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:31.255] Packages needed by future strategies (n = 1): 'future'
  [05:32:31.277] {
  [05:32:31.277]     {
  [05:32:31.277]         ...future.startTime <- Sys.time()
  [05:32:31.277]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:31.277]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:31.277]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:31.277]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:31.277]             future.resolve.recursive = NULL, width = 80L)
  [05:32:31.277]         {
  [05:32:31.277]             {
  [05:32:31.277]                 {
  [05:32:31.277]                   {
  [05:32:31.277]                     has_future <- requireNamespace("future", 
  [05:32:31.277]                       quietly = TRUE)
  [05:32:31.277]                     version <- if (has_future) 
  [05:32:31.277]                       packageVersion("future")
  [05:32:31.277]                     else NULL
  [05:32:31.277]                     if (!has_future || version < "1.8.0") {
  [05:32:31.277]                       info <- c(r_version = gsub("R version ", 
  [05:32:31.277]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:31.277]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:31.277]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:31.277]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:31.277]                       info <- sprintf("%s: %s", names(info), 
  [05:32:31.277]                         info)
  [05:32:31.277]                       info <- paste(info, collapse = "; ")
  [05:32:31.277]                       if (!has_future) {
  [05:32:31.277]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:31.277]                           info)
  [05:32:31.277]                       }
  [05:32:31.277]                       else {
  [05:32:31.277]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:31.277]                           info, version)
  [05:32:31.277]                       }
  [05:32:31.277]                       stop(msg)
  [05:32:31.277]                     }
  [05:32:31.277]                   }
  [05:32:31.277]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:31.277]                   options(mc.cores = 1L)
  [05:32:31.277]                 }
  [05:32:31.277]                 local({
  [05:32:31.277]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:31.277]                   "future")) {
  [05:32:31.277]                     loadNamespace(pkg)
  [05:32:31.277]                     library(pkg, character.only = TRUE)
  [05:32:31.277]                   }
  [05:32:31.277]                 })
  [05:32:31.277]             }
  [05:32:31.277]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:31.277]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.277]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:32:31.277]                 label = NULL, ...) 
  [05:32:31.277]             {
  [05:32:31.277]                 if (substitute) 
  [05:32:31.277]                   expr <- substitute(expr)
  [05:32:31.277]                 local <- as.logical(local)
  [05:32:31.277]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.277]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.277]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.277]                   label = label, ...)
  [05:32:31.277]                 if (!future$lazy) 
  [05:32:31.277]                   future <- run(future)
  [05:32:31.277]                 invisible(future)
  [05:32:31.277]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.277]         }
  [05:32:31.277]     }
  [05:32:31.277]     if (is.na(TRUE)) {
  [05:32:31.277]     }
  [05:32:31.277]     else {
  [05:32:31.277]         if (TRUE) {
  [05:32:31.277]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:31.277]         }
  [05:32:31.277]         else {
  [05:32:31.277]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:31.277]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:31.277]         }
  [05:32:31.277]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:31.277]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:31.277]             sink(type = "output", split = FALSE)
  [05:32:31.277]             close(...future.stdout)
  [05:32:31.277]         }, add = TRUE)
  [05:32:31.277]     }
  [05:32:31.277]     ...future.frame <- sys.nframe()
  [05:32:31.277]     ...future.conditions <- list()
  [05:32:31.277]     ...future.result <- tryCatch({
  [05:32:31.277]         withCallingHandlers({
  [05:32:31.277]             ...future.value <- local({
  [05:32:31.277]                 doFuture::registerDoFuture()
  [05:32:31.277]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.277]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.277]                   a <- NULL
  [05:32:31.277]                   ...future.env <- environment()
  [05:32:31.277]                   local({
  [05:32:31.277]                     for (name in names(...future.x_jj)) {
  [05:32:31.277]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.277]                         inherits = FALSE)
  [05:32:31.277]                     }
  [05:32:31.277]                   })
  [05:32:31.277]                   tryCatch({
  [05:32:31.277]                     plan_list <- future::plan()
  [05:32:31.277]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:31.277]                     plan_a <- future::plan("list")
  [05:32:31.277]                     str(plan_a)
  [05:32:31.277]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:31.277]                     message("foreach() - level 2 ...")
  [05:32:31.277]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:31.277]                       {
  [05:32:31.277]                         plan_list <- future::plan()
  [05:32:31.277]                         message(capture.output(print(plan_list)))
  [05:32:31.277]                         stopifnot(inherits(plan_list, "future"))
  [05:32:31.277]                         default <- getOption("future.plan", "sequential")
  [05:32:31.277]                         if (is.function(default)) 
  [05:32:31.277]                           default <- class(default)
  [05:32:31.277]                         stopifnot(inherits(plan_list, default))
  [05:32:31.277]                         plan_b <- future::plan("list")
  [05:32:31.277]                         str(plan_b)
  [05:32:31.277]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.277]                           inherits(plan_b[[1]], default))
  [05:32:31.277]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.277]                       }
  [05:32:31.277]                     message("foreach() - level 2 ... DONE")
  [05:32:31.277]                     y
  [05:32:31.277]                   }, error = identity)
  [05:32:31.277]                 })
  [05:32:31.277]             })
  [05:32:31.277]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:31.277]                 version = "1.8")
  [05:32:31.277]         }, condition = local({
  [05:32:31.277]             inherits <- base::inherits
  [05:32:31.277]             invokeRestart <- base::invokeRestart
  [05:32:31.277]             length <- base::length
  [05:32:31.277]             seq.int <- base::seq.int
  [05:32:31.277]             sys.calls <- base::sys.calls
  [05:32:31.277]             `[[` <- base::`[[`
  [05:32:31.277]             `+` <- base::`+`
  [05:32:31.277]             `<<-` <- base::`<<-`
  [05:32:31.277]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:31.277]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:31.277]                   3L)]
  [05:32:31.277]             }
  [05:32:31.277]             function(cond) {
  [05:32:31.277]                 if (inherits(cond, "error")) {
  [05:32:31.277]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.277]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:31.277]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:31.277]                     signaled = 0L)
  [05:32:31.277]                   signalCondition(cond)
  [05:32:31.277]                 }
  [05:32:31.277]                 else if (inherits(cond, "condition")) {
  [05:32:31.277]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:31.277]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.277]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:31.277]                   if (inherits(cond, "message")) {
  [05:32:31.277]                     if (!signal) 
  [05:32:31.277]                       invokeRestart("muffleMessage")
  [05:32:31.277]                   }
  [05:32:31.277]                   else if (inherits(cond, "warning")) {
  [05:32:31.277]                     if (!signal) 
  [05:32:31.277]                       invokeRestart("muffleWarning")
  [05:32:31.277]                   }
  [05:32:31.277]                   else {
  [05:32:31.277]                     if (!signal) {
  [05:32:31.277]                       restarts <- computeRestarts(cond)
  [05:32:31.277]                       for (restart in restarts) {
  [05:32:31.277]                         name <- restart$name
  [05:32:31.277]                         if (is.null(name)) 
  [05:32:31.277]                           next
  [05:32:31.277]                         if (!grepl("^muffle", name)) 
  [05:32:31.277]                           next
  [05:32:31.277]                         invokeRestart(restart)
  [05:32:31.277]                         break
  [05:32:31.277]                       }
  [05:32:31.277]                     }
  [05:32:31.277]                   }
  [05:32:31.277]                 }
  [05:32:31.277]             }
  [05:32:31.277]         }))
  [05:32:31.277]     }, error = function(ex) {
  [05:32:31.277]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:31.277]             version = "1.8"), class = "FutureResult")
  [05:32:31.277]     }, finally = {
  [05:32:31.277]         {
  [05:32:31.277]             {
  [05:32:31.277]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:31.277]             }
  [05:32:31.277]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:31.277]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.277]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:31.277]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:31.277]             {
  [05:32:31.277]                 if (substitute) 
  [05:32:31.277]                   expr <- substitute(expr)
  [05:32:31.277]                 if (is.function(workers)) 
  [05:32:31.277]                   workers <- workers()
  [05:32:31.277]                 workers <- as.integer(workers)
  [05:32:31.277]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:31.277]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:31.277]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:31.277]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:31.277]                     local = TRUE, label = label, ...))
  [05:32:31.277]                 }
  [05:32:31.277]                 oopts <- options(mc.cores = workers)
  [05:32:31.277]                 on.exit(options(oopts))
  [05:32:31.277]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:31.277]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.277]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:31.277]                   label = label, ...)
  [05:32:31.277]                 if (!future$lazy) 
  [05:32:31.277]                   future <- run(future)
  [05:32:31.277]                 invisible(future)
  [05:32:31.277]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:31.277]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [05:32:31.277]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:31.277]             {
  [05:32:31.277]                 if (substitute) 
  [05:32:31.277]                   expr <- substitute(expr)
  [05:32:31.277]                 local <- as.logical(local)
  [05:32:31.277]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.277]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.277]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.277]                   label = label, ...)
  [05:32:31.277]                 if (!future$lazy) 
  [05:32:31.277]                   future <- run(future)
  [05:32:31.277]                 invisible(future)
  [05:32:31.277]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.277]         }
  [05:32:31.277]         options(...future.oldOptions)
  [05:32:31.277]     })
  [05:32:31.277]     if (is.na(TRUE)) {
  [05:32:31.277]     }
  [05:32:31.277]     else {
  [05:32:31.277]         sink(type = "output", split = FALSE)
  [05:32:31.277]         if (TRUE) {
  [05:32:31.277]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:31.277]         }
  [05:32:31.277]         else {
  [05:32:31.277]             ...future.result["stdout"] <- list(NULL)
  [05:32:31.277]         }
  [05:32:31.277]         close(...future.stdout)
  [05:32:31.277]         ...future.stdout <- NULL
  [05:32:31.277]     }
  [05:32:31.277]     ...future.result$conditions <- ...future.conditions
  [05:32:31.277]     ...future.result
  [05:32:31.277] }
  [05:32:31.283] requestCore(): workers = 2
  [05:32:31.286] MulticoreFuture started
  [05:32:31.287] Chunk #2 of 2 ... DONE
  [05:32:31.288] Launching 2 futures (chunks) ... DONE
  [05:32:31.288] - resolving futures
  [05:32:31.289]   - gathering results & relaying conditions (except errors)
  [05:32:31.289] resolve() on list ...
  [05:32:31.289]  recursive: 0
  [05:32:31.290]  length: 2
  [05:32:31.290] 
  [05:32:31.301] plan(): Setting new future strategy stack:
  [05:32:31.302] List of future strategies:
  [05:32:31.302] 1. sequential:
  [05:32:31.302]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.302]    - tweaked: FALSE
  [05:32:31.302]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.304] plan(): nbrOfWorkers() = 1
  [05:32:31.525] plan(): Setting new future strategy stack:
  [05:32:31.525] List of future strategies:
  [05:32:31.525] 1. multicore:
  [05:32:31.525]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:31.525]    - tweaked: FALSE
  [05:32:31.525]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.525] 2. sequential:
  [05:32:31.525]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.525]    - tweaked: FALSE
  [05:32:31.525]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.527] plan(): nbrOfWorkers() = 2
  [05:32:31.577] plan(): Setting new future strategy stack:
  [05:32:31.577] List of future strategies:
  [05:32:31.577] 1. multicore:
  [05:32:31.577]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:31.577]    - tweaked: FALSE
  [05:32:31.577]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.577] 2. sequential:
  [05:32:31.577]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.577]    - tweaked: FALSE
  [05:32:31.577]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.579] plan(): nbrOfWorkers() = 2
  [05:32:31.581] Future #2
  [05:32:31.587] signalConditions() ...
  [05:32:31.588]  - include = 'immediateCondition'
  [05:32:31.588]  - exclude = 
  [05:32:31.588]  - resignal = FALSE
  [05:32:31.589]  - Number of conditions: 134
  [05:32:31.590] signalConditions() ... done
  [05:32:31.591] signalConditions() ...
  [05:32:31.591]  - include = 'immediateCondition'
  [05:32:31.591]  - exclude = 
  [05:32:31.592]  - resignal = FALSE
  [05:32:31.592]  - Number of conditions: 134
  [05:32:31.593] signalConditions() ... done
  [05:32:31.594] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [05:32:31.594] - nx: 2
  [05:32:31.594] - relay: TRUE
  [05:32:31.595] - stdout: TRUE
  [05:32:31.595] - signal: TRUE
  [05:32:31.595] - resignal: FALSE
  [05:32:31.596] - force: FALSE
  [05:32:31.596] - relayed: [n=2] FALSE, FALSE
  [05:32:31.597] - queued futures: [n=2] FALSE, FALSE
  [05:32:31.597]  - until=1
  [05:32:31.597]  - relaying element #1
  [05:32:31.598] - relayed: [n=2] FALSE, FALSE
  [05:32:31.598] - queued futures: [n=2] FALSE, TRUE
  [05:32:31.599] signalConditionsASAP(NULL, pos=2) ... done
  [05:32:31.599]  length: 1 (resolved future 2)
  [05:32:31.700] Future #1
  [05:32:31.703] signalConditions() ...
  [05:32:31.704]  - include = 'immediateCondition'
  [05:32:31.704]  - exclude = 
  [05:32:31.704]  - resignal = FALSE
  [05:32:31.705]  - Number of conditions: 134
  [05:32:31.705] signalConditions() ... done
  [05:32:31.706] signalConditions() ...
  [05:32:31.706]  - include = 'immediateCondition'
  [05:32:31.715]  - exclude = 
  [05:32:31.715]  - resignal = FALSE
  [05:32:31.716]  - Number of conditions: 134
  [05:32:31.717] signalConditions() ... done
  [05:32:31.717] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:32:31.717] - nx: 2
  [05:32:31.718] - relay: TRUE
  [05:32:31.727] - stdout: TRUE
  [05:32:31.728] - signal: TRUE
  [05:32:31.728] - resignal: FALSE
  [05:32:31.729] - force: FALSE
  [05:32:31.729] - relayed: [n=2] FALSE, FALSE
  [05:32:31.730] - queued futures: [n=2] FALSE, TRUE
  [05:32:31.730]  - until=1
  [05:32:31.747]  - relaying element #1
  [05:32:31.748] signalConditions() ...
  [05:32:31.748]  - include = 'immediateCondition'
  [05:32:31.748]  - exclude = 
  [05:32:31.749]  - resignal = FALSE
  [05:32:31.749]  - Number of conditions: 134
  [05:32:31.751] signalConditions() ... 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"
  [05:32:31.752] signalConditions() ...
  [05:32:31.752]  - include = 'condition'
  [05:32:31.753]  - exclude = 
  [05:32:31.753]  - resignal = FALSE
  [05:32:31.753]  - Number of conditions: 134
  [05:32:31.754]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:31.755]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:31.264] doFuture() ...
  [05:32:31.755]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:31.266] - dummy globals (as locals): [1] 'b'
  [05:32:31.756]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:31.267] - R expression:
  [05:32:31.757]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:31.268] {
  [05:32:31.268]     doFuture::registerDoFuture()
  [05:32:31.268]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.268]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.268]         b <- NULL
  [05:32:31.268]         ...future.env <- environment()
  [05:32:31.268]         local({
  [05:32:31.268]             for (name in names(...future.x_jj)) {
  [05:32:31.268]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.268]                   inherits = FALSE)
  [05:32:31.268]             }
  [05:32:31.268]         })
  [05:32:31.268]         tryCatch({
  [05:32:31.268]             plan_list <- future::plan()
  [05:32:31.268]             message(capture.output(print(plan_list)))
  [05:32:31.268]             stopifnot(inherits(plan_list, "future"))
  [05:32:31.268]             default <- getOption("future.plan", "sequential")
  [05:32:31.268]             if (is.function(default)) 
  [05:32:31.268]                 default <- class(default)
  [05:32:31.268]             stopifnot(inherits(plan_list, default))
  [05:32:31.268]             plan_b <- future::plan("list")
  [05:32:31.268]             str(plan_b)
  [05:32:31.268]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:31.268]                 default))
  [05:32:31.268]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.268]         }, error = identity)
  [05:32:31.268]     })
  [05:32:31.268] }
  [05:32:31.757]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:31.269] - identifying globals and packages ...
  [05:32:31.758]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:31.270] getGlobalsAndPackages() ...
  [05:32:31.759]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:31.271] Searching for globals...
  [05:32:31.759]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:31.327] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:31.760]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:31.328] Searching for globals ... DONE
  [05:32:31.760]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:31.328] Resolving globals: FALSE
  [05:32:31.761]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:31.331] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [05:32:31.762]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:31.332] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.762]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:31.332] - packages: [1] 'utils'
  [05:32:31.779]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:31.333] getGlobalsAndPackages() ... DONE
  [05:32:31.779]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:31.333] List of 3
  [05:32:31.333]  $ ...future.x_ii: NULL
  [05:32:31.333]  $ a             : int 1
  [05:32:31.333]  $ plan_a        :List of 1
  [05:32:31.333]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:31.333]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:32:31.333]     ...)  
  [05:32:31.333]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:32:31.333]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:31.333]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:31.333]  - attr(*, "where")=List of 3
  [05:32:31.333]   ..$ ...future.x_ii:<environment: 0x556d9b6aecc0> 
  [05:32:31.333]   ..$ a             :<environment: 0x556d9adf5d28> 
  [05:32:31.333]   ..$ plan_a        :<environment: 0x556d9adf5d28> 
  [05:32:31.333]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.333]  - attr(*, "resolved")= logi FALSE
  [05:32:31.333]  - attr(*, "total_size")= num 40624
  [05:32:31.780]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:31.347]   - R expression:
  [05:32:31.781]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:31.347] {
  [05:32:31.347]     doFuture::registerDoFuture()
  [05:32:31.347]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.347]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.347]         b <- NULL
  [05:32:31.347]         ...future.env <- environment()
  [05:32:31.347]         local({
  [05:32:31.347]             for (name in names(...future.x_jj)) {
  [05:32:31.347]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.347]                   inherits = FALSE)
  [05:32:31.347]             }
  [05:32:31.347]         })
  [05:32:31.347]         tryCatch({
  [05:32:31.347]             plan_list <- future::plan()
  [05:32:31.347]             message(capture.output(print(plan_list)))
  [05:32:31.347]             stopifnot(inherits(plan_list, "future"))
  [05:32:31.347]             default <- getOption("future.plan", "sequential")
  [05:32:31.347]             if (is.function(default)) 
  [05:32:31.347]                 default <- class(default)
  [05:32:31.347]             stopifnot(inherits(plan_list, default))
  [05:32:31.347]             plan_b <- future::plan("list")
  [05:32:31.347]             str(plan_b)
  [05:32:31.347]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:31.347]                 default))
  [05:32:31.347]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.347]         }, error = identity)
  [05:32:31.347]     })
  [05:32:31.347] }
  [05:32:31.781]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:31.348]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.782]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:31.349] List of 3
  [05:32:31.349]  $ ...future.x_ii: NULL
  [05:32:31.349]  $ a             : int 1
  [05:32:31.349]  $ plan_a        :List of 1
  [05:32:31.349]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:31.349]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:32:31.349]     ...)  
  [05:32:31.349]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:32:31.349]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:31.349]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:31.349]  - attr(*, "where")=List of 3
  [05:32:31.349]   ..$ ...future.x_ii:<environment: 0x556d9b6aecc0> 
  [05:32:31.349]   ..$ a             :<environment: 0x556d9adf5d28> 
  [05:32:31.349]   ..$ plan_a        :<environment: 0x556d9adf5d28> 
  [05:32:31.349]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.349]  - attr(*, "resolved")= logi FALSE
  [05:32:31.349]  - attr(*, "total_size")= num 40624
  [05:32:31.782]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:31.446]   - packages: [2] 'doFuture', 'utils'
  [05:32:31.783]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:31.447] - identifying globals and packages ... DONE
  [05:32:31.783]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:31.447] Number of chunks: 1
  [05:32:31.784]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:31.448] Number of futures (= number of chunks): 1
  [05:32:31.784]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:31.448] Launching 1 futures (chunks) ...
  [05:32:31.785]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:31.448] Chunk #1 of 1 ...
  [05:32:31.785]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:31.449]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:31.786]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:31.449] getGlobalsAndPackages() ...
  [05:32:31.786]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:31.450] Searching for globals...
  [05:32:31.787]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:31.451] 
  [05:32:31.787]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:31.451] Searching for globals ... DONE
  [05:32:31.788]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:31.452] - globals: [0] <none>
  [05:32:31.788]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:31.452] getGlobalsAndPackages() ... DONE
  [05:32:31.789]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:31.452] 
  [05:32:31.789]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:31.453] 
  [05:32:31.789]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:31.453]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:31.790]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:31.454] getGlobalsAndPackages() ...
  [05:32:31.790]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:31.454] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.791]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:31.455] Resolving globals: FALSE
  [05:32:31.792]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:31.456] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [05:32:31.792]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:31.457] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.792]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:31.457] 
  [05:32:31.793]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:31.458] getGlobalsAndPackages() ... DONE
  [05:32:31.793]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:31.460] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:31.794]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:31.461] Packages needed by future strategies (n = 0): <none>
  [05:32:31.811]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:31.466] {
  [05:32:31.466]     {
  [05:32:31.466]         ...future.startTime <- Sys.time()
  [05:32:31.466]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:31.466]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:31.466]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:31.466]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:31.466]             future.resolve.recursive = NULL, width = 80L)
  [05:32:31.466]         {
  [05:32:31.466]             {
  [05:32:31.466]                 {
  [05:32:31.466]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:31.466]                   version <- if (has_future) 
  [05:32:31.466]                     packageVersion("future")
  [05:32:31.466]                   else NULL
  [05:32:31.466]                   if (!has_future || version < "1.8.0") {
  [05:32:31.466]                     info <- c(r_version = gsub("R version ", 
  [05:32:31.466]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:31.466]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:31.466]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:31.466]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:31.466]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:31.466]                     info <- paste(info, collapse = "; ")
  [05:32:31.466]                     if (!has_future) {
  [05:32:31.466]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:31.466]                         info)
  [05:32:31.466]                     }
  [05:32:31.466]                     else {
  [05:32:31.466]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:31.466]                         info, version)
  [05:32:31.466]                     }
  [05:32:31.466]                     stop(msg)
  [05:32:31.466]                   }
  [05:32:31.466]                 }
  [05:32:31.466]                 local({
  [05:32:31.466]                   for (pkg in c("doFuture", "utils")) {
  [05:32:31.466]                     loadNamespace(pkg)
  [05:32:31.466]                     library(pkg, character.only = TRUE)
  [05:32:31.466]                   }
  [05:32:31.466]                 })
  [05:32:31.466]             }
  [05:32:31.466]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:31.466]         }
  [05:32:31.466]     }
  [05:32:31.466]     if (is.na(TRUE)) {
  [05:32:31.466]     }
  [05:32:31.466]     else {
  [05:32:31.466]         if (TRUE) {
  [05:32:31.466]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:31.466]         }
  [05:32:31.466]         else {
  [05:32:31.466]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:31.466]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:31.466]         }
  [05:32:31.466]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:31.466]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:31.466]             sink(type = "output", split = FALSE)
  [05:32:31.466]             close(...future.stdout)
  [05:32:31.466]         }, add = TRUE)
  [05:32:31.466]     }
  [05:32:31.466]     ...future.frame <- sys.nframe()
  [05:32:31.466]     ...future.conditions <- list()
  [05:32:31.466]     ...future.result <- tryCatch({
  [05:32:31.466]         withCallingHandlers({
  [05:32:31.466]             ...future.value <- local({
  [05:32:31.466]                 doFuture::registerDoFuture()
  [05:32:31.466]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.466]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.466]                   b <- NULL
  [05:32:31.466]                   ...future.env <- environment()
  [05:32:31.466]                   local({
  [05:32:31.466]                     for (name in names(...future.x_jj)) {
  [05:32:31.466]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.466]                         inherits = FALSE)
  [05:32:31.466]                     }
  [05:32:31.466]                   })
  [05:32:31.466]                   tryCatch({
  [05:32:31.466]                     plan_list <- future::plan()
  [05:32:31.466]                     message(capture.output(print(plan_list)))
  [05:32:31.466]                     stopifnot(inherits(plan_list, "future"))
  [05:32:31.466]                     default <- getOption("future.plan", "sequential")
  [05:32:31.466]                     if (is.function(default)) 
  [05:32:31.466]                       default <- class(default)
  [05:32:31.466]                     stopifnot(inherits(plan_list, default))
  [05:32:31.466]                     plan_b <- future::plan("list")
  [05:32:31.466]                     str(plan_b)
  [05:32:31.466]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.466]                       inherits(plan_b[[1]], default))
  [05:32:31.466]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.466]                   }, error = identity)
  [05:32:31.466]                 })
  [05:32:31.466]             })
  [05:32:31.466]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:31.466]                 version = "1.8")
  [05:32:31.466]         }, condition = local({
  [05:32:31.466]             inherits <- base::inherits
  [05:32:31.466]             invokeRestart <- base::invokeRestart
  [05:32:31.466]             length <- base::length
  [05:32:31.466]             seq.int <- base::seq.int
  [05:32:31.466]             sys.calls <- base::sys.calls
  [05:32:31.466]             `[[` <- base::`[[`
  [05:32:31.466]             `+` <- base::`+`
  [05:32:31.466]             `<<-` <- base::`<<-`
  [05:32:31.466]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:31.466]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:31.466]                   3L)]
  [05:32:31.466]             }
  [05:32:31.466]             function(cond) {
  [05:32:31.466]                 if (inherits(cond, "error")) {
  [05:32:31.466]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.466]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:31.466]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:31.466]                     signaled = 0L)
  [05:32:31.466]                   signalCondition(cond)
  [05:32:31.466]                 }
  [05:32:31.466]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:31.466]                 ))) {
  [05:32:31.466]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:31.466]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.466]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:31.466]                   if (inherits(cond, "message")) {
  [05:32:31.466]                     if (!signal) 
  [05:32:31.466]                       invokeRestart("muffleMessage")
  [05:32:31.466]                   }
  [05:32:31.466]                   else if (inherits(cond, "warning")) {
  [05:32:31.466]                     if (!signal) 
  [05:32:31.466]                       invokeRestart("muffleWarning")
  [05:32:31.466]                   }
  [05:32:31.466]                   else {
  [05:32:31.466]                     if (!signal) {
  [05:32:31.466]                       restarts <- computeRestarts(cond)
  [05:32:31.466]                       for (restart in restarts) {
  [05:32:31.466]                         name <- restart$name
  [05:32:31.466]                         if (is.null(name)) 
  [05:32:31.466]                           next
  [05:32:31.466]                         if (!grepl("^muffle", name)) 
  [05:32:31.466]                           next
  [05:32:31.466]                         invokeRestart(restart)
  [05:32:31.466]                         break
  [05:32:31.466]                       }
  [05:32:31.466]                     }
  [05:32:31.466]                   }
  [05:32:31.466]                 }
  [05:32:31.466]             }
  [05:32:31.466]         }))
  [05:32:31.466]     }, error = function(ex) {
  [05:32:31.466]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:31.466]             version = "1.8"), class = "FutureResult")
  [05:32:31.466]     }, finally = {
  [05:32:31.466]         {
  [05:32:31.466]             NULL
  [05:32:31.466]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:31.466]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.466]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:32:31.466]                 label = NULL, ...) 
  [05:32:31.466]             {
  [05:32:31.466]                 if (substitute) 
  [05:32:31.466]                   expr <- substitute(expr)
  [05:32:31.466]                 local <- as.logical(local)
  [05:32:31.466]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.466]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.466]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.466]                   label = label, ...)
  [05:32:31.466]                 if (!future$lazy) 
  [05:32:31.466]                   future <- run(future)
  [05:32:31.466]                 invisible(future)
  [05:32:31.466]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.466]         }
  [05:32:31.466]         options(...future.oldOptions)
  [05:32:31.466]     })
  [05:32:31.466]     if (is.na(TRUE)) {
  [05:32:31.466]     }
  [05:32:31.466]     else {
  [05:32:31.466]         sink(type = "output", split = FALSE)
  [05:32:31.466]         if (TRUE) {
  [05:32:31.466]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:31.466]         }
  [05:32:31.466]         else {
  [05:32:31.466]             ...future.result["stdout"] <- list(NULL)
  [05:32:31.466]         }
  [05:32:31.466]         close(...future.stdout)
  [05:32:31.466]         ...future.stdout <- NULL
  [05:32:31.466]     }
  [05:32:31.466]     ...future.result$conditions <- ...future.conditions
  [05:32:31.466]     ...future.result
  [05:32:31.466] }
  [05:32:31.811]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:31.472] plan(): Setting new future strategy stack:
  [05:32:31.812]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:31.472] List of future strategies:
  [05:32:31.472] 1. sequential:
  [05:32:31.472]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.472]    - tweaked: FALSE
  [05:32:31.472]    - call: NULL
  [05:32:31.812]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:31.473] plan(): nbrOfWorkers() = 1
  [05:32:31.813]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:31.487] plan(): Setting new future strategy stack:
  [05:32:31.813]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:31.487] List of future strategies:
  [05:32:31.487] 1. sequential:
  [05:32:31.487]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.487]    - tweaked: FALSE
  [05:32:31.487]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.814]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:31.488] plan(): nbrOfWorkers() = 1
  [05:32:31.814]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:31.489] SequentialFuture started (and completed)
  [05:32:31.815]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:31.489] signalConditions() ...
  [05:32:31.815]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:31.490]  - include = 'immediateCondition'
  [05:32:31.816]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:31.490]  - exclude = 
  [05:32:31.816]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:31.491]  - resignal = FALSE
  [05:32:31.817]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:31.491]  - Number of conditions: 3
  [05:32:31.817]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:31.491] signalConditions() ... done
  [05:32:31.818]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:31.492] Chunk #1 of 1 ... DONE
  [05:32:31.818]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:31.492] Launching 1 futures (chunks) ... DONE
  [05:32:31.819]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:31.493] - resolving futures
  [05:32:31.819]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:31.493]   - gathering results & relaying conditions (except errors)
  [05:32:31.820]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:31.494] resolve() on list ...
  [05:32:31.820]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:31.494]  recursive: 0
  [05:32:31.821]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:31.494]  length: 1
  [05:32:31.821]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:31.495] 
  [05:32:31.822]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:31.495] Future #1
  [05:32:31.822]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:31.496] signalConditions() ...
  [05:32:31.823]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:31.496]  - include = 'immediateCondition'
  [05:32:31.823]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:31.497]  - exclude = 
  [05:32:31.823]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:31.497]  - resignal = FALSE
  [05:32:31.824]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:31.498]  - Number of conditions: 3
  [05:32:31.824]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:31.498] signalConditions() ... done
  [05:32:31.825]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:31.498] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:31.825]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:31.499] - nx: 1
  [05:32:31.826]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:31.499] - relay: TRUE
  [05:32:31.826]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:31.500] - stdout: TRUE
  [05:32:31.839]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:31.500] - signal: TRUE
  [05:32:31.839]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:31.501] - resignal: FALSE
  [05:32:31.840]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:31.501] - force: FALSE
  [05:32:31.840]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:31.501] - relayed: [n=1] FALSE
  [05:32:31.935]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:31.502] - queued futures: [n=1] FALSE
  [05:32:31.935]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:31.502]  - until=1
  [05:32:31.936]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:31.503]  - relaying element #1
  [05:32:31.936]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:31.503] signalConditions() ...
  [05:32:31.937]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:31.504]  - include = 'immediateCondition'
  [05:32:31.937]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:31.504]  - exclude = 
  [05:32:31.938]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:31.504]  - resignal = FALSE
  [05:32:31.938]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:31.505]  - Number of conditions: 3
  [05:32:31.939]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:31.505] signalConditions() ... done
  [05:32:31.939]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:31.506] signalConditions() ...
  [05:32:31.940]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:31.506]  - include = 'condition'
  [05:32:31.940]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:31.507]  - exclude = 
  [05:32:31.940]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:31.507]  - resignal = FALSE
  [05:32:31.941]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:31.507]  - Number of conditions: 3
  [05:32:31.941]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:31.508]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:31.942]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.942]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:31.509]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:31.943]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.943]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:31.509]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:31.944]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:31.944]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:31.510] signalConditions() ... done
  [05:32:31.945]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:31.510] - relayed: [n=1] TRUE
  [05:32:31.945]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:31.511] - queued futures: [n=1] TRUE
  [05:32:31.946]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:31.511] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:31.946]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:31.511]  length: 0 (resolved future 1)
  [05:32:31.947]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:31.512] Relaying remaining futures
  [05:32:31.947]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:31.512] signalConditionsASAP(NULL, pos=0) ...
  [05:32:31.948]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:31.513] - nx: 1
  [05:32:31.948]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:31.513] - relay: TRUE
  [05:32:31.949]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:31.514] - stdout: TRUE
  [05:32:31.949]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:31.514] - signal: TRUE
  [05:32:31.949]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:31.514] - resignal: FALSE
  [05:32:31.950]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:31.515] - force: FALSE
  [05:32:31.950]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:31.515] - relayed: [n=1] TRUE
  [05:32:31.951]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:31.516] - queued futures: [n=1] TRUE
  [05:32:31.951]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:31.952]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:31.516] - relayed: [n=1] TRUE
  [05:32:31.952]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:31.517] - queued futures: [n=1] TRUE
  [05:32:31.953]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:31.517] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:31.953]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:31.518] resolve() on list ... DONE
  [05:32:31.954]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:31.518] - collecting values of futures
  [05:32:31.954]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:31.519] signalConditions() ...
  [05:32:31.955]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:31.519]  - include = 'immediateCondition'
  [05:32:31.955]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:31.520]  - exclude = 
  [05:32:31.956]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:31.520]  - resignal = FALSE
  [05:32:31.956]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:31.520]  - Number of conditions: 3
  [05:32:31.957]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:31.521] signalConditions() ... done
  [05:32:31.957]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:31.521] - accumulating results
  [05:32:31.958]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:31.523] - processing errors (handler = 'stop')
  [05:32:31.958]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:31.523] - extracting results
  [05:32:31.959]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:31.524] doFuture() ... DONE
  [05:32:31.959]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:31.960] signalConditions() ... done
  [05:32:31.960] - relayed: [n=2] TRUE, FALSE
  [05:32:31.961] - queued futures: [n=2] TRUE, TRUE
  [05:32:31.961] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [05:32:31.961]  length: 0 (resolved future 1)
  [05:32:31.962] Relaying remaining futures
  [05:32:31.962] signalConditionsASAP(NULL, pos=0) ...
  [05:32:31.962] - nx: 2
  [05:32:31.962] - relay: TRUE
  [05:32:31.963] - stdout: TRUE
  [05:32:31.963] - signal: TRUE
  [05:32:31.963] - resignal: FALSE
  [05:32:31.964] - force: FALSE
  [05:32:31.964] - relayed: [n=2] TRUE, FALSE
  [05:32:31.964] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [05:32:31.965]  - relaying element #2
  [05:32:31.965] signalConditions() ...
  [05:32:31.966]  - include = 'immediateCondition'
  [05:32:31.966]  - exclude = 
  [05:32:31.966]  - resignal = FALSE
  [05:32:31.967]  - Number of conditions: 134
  [05:32:31.967] signalConditions() ... 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"
  [05:32:31.968] signalConditions() ...
  [05:32:31.968]  - include = 'condition'
  [05:32:31.969]  - exclude = 
  [05:32:31.969]  - resignal = FALSE
  [05:32:31.969]  - Number of conditions: 134
  [05:32:31.969]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:31.970]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:31.315] doFuture() ...
  [05:32:31.970]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:31.317] - dummy globals (as locals): [1] 'b'
  [05:32:31.971]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:31.319] - R expression:
  [05:32:31.971]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:31.320] {
  [05:32:31.320]     doFuture::registerDoFuture()
  [05:32:31.320]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.320]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.320]         b <- NULL
  [05:32:31.320]         ...future.env <- environment()
  [05:32:31.320]         local({
  [05:32:31.320]             for (name in names(...future.x_jj)) {
  [05:32:31.320]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.320]                   inherits = FALSE)
  [05:32:31.320]             }
  [05:32:31.320]         })
  [05:32:31.320]         tryCatch({
  [05:32:31.320]             plan_list <- future::plan()
  [05:32:31.320]             message(capture.output(print(plan_list)))
  [05:32:31.320]             stopifnot(inherits(plan_list, "future"))
  [05:32:31.320]             default <- getOption("future.plan", "sequential")
  [05:32:31.320]             if (is.function(default)) 
  [05:32:31.320]                 default <- class(default)
  [05:32:31.320]             stopifnot(inherits(plan_list, default))
  [05:32:31.320]             plan_b <- future::plan("list")
  [05:32:31.320]             str(plan_b)
  [05:32:31.320]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:31.320]                 default))
  [05:32:31.320]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.320]         }, error = identity)
  [05:32:31.320]     })
  [05:32:31.320] }
  [05:32:31.972]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:31.321] - identifying globals and packages ...
  [05:32:31.972]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:31.322] getGlobalsAndPackages() ...
  [05:32:31.973]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:31.324] Searching for globals...
  [05:32:31.973]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:31.382] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:31.974]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:31.383] Searching for globals ... DONE
  [05:32:31.974]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:31.384] Resolving globals: FALSE
  [05:32:31.975]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:31.387] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [05:32:31.975]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:31.388] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.976]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:31.388] - packages: [1] 'utils'
  [05:32:31.976]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:31.389] getGlobalsAndPackages() ... DONE
  [05:32:31.977]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:31.389] List of 3
  [05:32:31.389]  $ ...future.x_ii: NULL
  [05:32:31.389]  $ a             : int 2
  [05:32:31.389]  $ plan_a        :List of 1
  [05:32:31.389]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:31.389]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:32:31.389]     ...)  
  [05:32:31.389]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:32:31.389]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:31.389]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:31.389]  - attr(*, "where")=List of 3
  [05:32:31.389]   ..$ ...future.x_ii:<environment: 0x556d9aee8200> 
  [05:32:31.389]   ..$ a             :<environment: 0x556d9beecfa8> 
  [05:32:31.389]   ..$ plan_a        :<environment: 0x556d9beecfa8> 
  [05:32:31.389]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.389]  - attr(*, "resolved")= logi FALSE
  [05:32:31.389]  - attr(*, "total_size")= num 40624
  [05:32:31.977]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:31.481]   - R expression:
  [05:32:31.978]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:31.481] {
  [05:32:31.481]     doFuture::registerDoFuture()
  [05:32:31.481]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.481]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.481]         b <- NULL
  [05:32:31.481]         ...future.env <- environment()
  [05:32:31.481]         local({
  [05:32:31.481]             for (name in names(...future.x_jj)) {
  [05:32:31.481]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.481]                   inherits = FALSE)
  [05:32:31.481]             }
  [05:32:31.481]         })
  [05:32:31.481]         tryCatch({
  [05:32:31.481]             plan_list <- future::plan()
  [05:32:31.481]             message(capture.output(print(plan_list)))
  [05:32:31.481]             stopifnot(inherits(plan_list, "future"))
  [05:32:31.481]             default <- getOption("future.plan", "sequential")
  [05:32:31.481]             if (is.function(default)) 
  [05:32:31.481]                 default <- class(default)
  [05:32:31.481]             stopifnot(inherits(plan_list, default))
  [05:32:31.481]             plan_b <- future::plan("list")
  [05:32:31.481]             str(plan_b)
  [05:32:31.481]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:31.481]                 default))
  [05:32:31.481]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.481]         }, error = identity)
  [05:32:31.481]     })
  [05:32:31.481] }
  [05:32:31.978]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:31.483]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.979]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:31.483] List of 3
  [05:32:31.483]  $ ...future.x_ii: NULL
  [05:32:31.483]  $ a             : int 2
  [05:32:31.483]  $ plan_a        :List of 1
  [05:32:31.483]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:31.483]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [05:32:31.483]     ...)  
  [05:32:31.483]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [05:32:31.483]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:31.483]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:31.483]  - attr(*, "where")=List of 3
  [05:32:31.483]   ..$ ...future.x_ii:<environment: 0x556d9aee8200> 
  [05:32:31.483]   ..$ a             :<environment: 0x556d9beecfa8> 
  [05:32:31.483]   ..$ plan_a        :<environment: 0x556d9beecfa8> 
  [05:32:31.483]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:31.483]  - attr(*, "resolved")= logi FALSE
  [05:32:31.483]  - attr(*, "total_size")= num 40624
  [05:32:31.979]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:31.496]   - packages: [2] 'doFuture', 'utils'
  [05:32:31.980]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:31.497] - identifying globals and packages ... DONE
  [05:32:31.980]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:31.497] Number of chunks: 1
  [05:32:31.980]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:31.498] Number of futures (= number of chunks): 1
  [05:32:31.981]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:31.498] Launching 1 futures (chunks) ...
  [05:32:31.981]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:31.498] Chunk #1 of 1 ...
  [05:32:31.982]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:31.499]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:31.982]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:31.499] getGlobalsAndPackages() ...
  [05:32:31.983]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:31.500] Searching for globals...
  [05:32:31.983]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:31.501] 
  [05:32:31.984]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:31.501] Searching for globals ... DONE
  [05:32:31.984]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:31.502] - globals: [0] <none>
  [05:32:31.985]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:31.502] getGlobalsAndPackages() ... DONE
  [05:32:31.985]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:31.503] 
  [05:32:31.986]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:31.503] 
  [05:32:31.986]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:31.504]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:31.987]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:31.504] getGlobalsAndPackages() ...
  [05:32:31.987]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:31.505] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.987]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:31.505] Resolving globals: FALSE
  [05:32:31.988]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:31.507] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [05:32:31.988]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:31.508] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:31.989]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:31.508] 
  [05:32:31.989]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:31.509] getGlobalsAndPackages() ... DONE
  [05:32:31.990]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:31.511] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:31.990]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:31.512] Packages needed by future strategies (n = 0): <none>
  [05:32:31.991]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:31.517] {
  [05:32:31.517]     {
  [05:32:31.517]         ...future.startTime <- Sys.time()
  [05:32:31.517]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:31.517]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:31.517]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:31.517]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:31.517]             future.resolve.recursive = NULL, width = 80L)
  [05:32:31.517]         {
  [05:32:31.517]             {
  [05:32:31.517]                 {
  [05:32:31.517]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:31.517]                   version <- if (has_future) 
  [05:32:31.517]                     packageVersion("future")
  [05:32:31.517]                   else NULL
  [05:32:31.517]                   if (!has_future || version < "1.8.0") {
  [05:32:31.517]                     info <- c(r_version = gsub("R version ", 
  [05:32:31.517]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:31.517]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:31.517]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:31.517]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:31.517]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:31.517]                     info <- paste(info, collapse = "; ")
  [05:32:31.517]                     if (!has_future) {
  [05:32:31.517]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:31.517]                         info)
  [05:32:31.517]                     }
  [05:32:31.517]                     else {
  [05:32:31.517]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:31.517]                         info, version)
  [05:32:31.517]                     }
  [05:32:31.517]                     stop(msg)
  [05:32:31.517]                   }
  [05:32:31.517]                 }
  [05:32:31.517]                 local({
  [05:32:31.517]                   for (pkg in c("doFuture", "utils")) {
  [05:32:31.517]                     loadNamespace(pkg)
  [05:32:31.517]                     library(pkg, character.only = TRUE)
  [05:32:31.517]                   }
  [05:32:31.517]                 })
  [05:32:31.517]             }
  [05:32:31.517]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:31.517]         }
  [05:32:31.517]     }
  [05:32:31.517]     if (is.na(TRUE)) {
  [05:32:31.517]     }
  [05:32:31.517]     else {
  [05:32:31.517]         if (TRUE) {
  [05:32:31.517]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:31.517]         }
  [05:32:31.517]         else {
  [05:32:31.517]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:31.517]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:31.517]         }
  [05:32:31.517]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:31.517]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:31.517]             sink(type = "output", split = FALSE)
  [05:32:31.517]             close(...future.stdout)
  [05:32:31.517]         }, add = TRUE)
  [05:32:31.517]     }
  [05:32:31.517]     ...future.frame <- sys.nframe()
  [05:32:31.517]     ...future.conditions <- list()
  [05:32:31.517]     ...future.result <- tryCatch({
  [05:32:31.517]         withCallingHandlers({
  [05:32:31.517]             ...future.value <- local({
  [05:32:31.517]                 doFuture::registerDoFuture()
  [05:32:31.517]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:31.517]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:31.517]                   b <- NULL
  [05:32:31.517]                   ...future.env <- environment()
  [05:32:31.517]                   local({
  [05:32:31.517]                     for (name in names(...future.x_jj)) {
  [05:32:31.517]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:31.517]                         inherits = FALSE)
  [05:32:31.517]                     }
  [05:32:31.517]                   })
  [05:32:31.517]                   tryCatch({
  [05:32:31.517]                     plan_list <- future::plan()
  [05:32:31.517]                     message(capture.output(print(plan_list)))
  [05:32:31.517]                     stopifnot(inherits(plan_list, "future"))
  [05:32:31.517]                     default <- getOption("future.plan", "sequential")
  [05:32:31.517]                     if (is.function(default)) 
  [05:32:31.517]                       default <- class(default)
  [05:32:31.517]                     stopifnot(inherits(plan_list, default))
  [05:32:31.517]                     plan_b <- future::plan("list")
  [05:32:31.517]                     str(plan_b)
  [05:32:31.517]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:31.517]                       inherits(plan_b[[1]], default))
  [05:32:31.517]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:31.517]                   }, error = identity)
  [05:32:31.517]                 })
  [05:32:31.517]             })
  [05:32:31.517]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:31.517]                 version = "1.8")
  [05:32:31.517]         }, condition = local({
  [05:32:31.517]             inherits <- base::inherits
  [05:32:31.517]             invokeRestart <- base::invokeRestart
  [05:32:31.517]             length <- base::length
  [05:32:31.517]             seq.int <- base::seq.int
  [05:32:31.517]             sys.calls <- base::sys.calls
  [05:32:31.517]             `[[` <- base::`[[`
  [05:32:31.517]             `+` <- base::`+`
  [05:32:31.517]             `<<-` <- base::`<<-`
  [05:32:31.517]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:31.517]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:31.517]                   3L)]
  [05:32:31.517]             }
  [05:32:31.517]             function(cond) {
  [05:32:31.517]                 if (inherits(cond, "error")) {
  [05:32:31.517]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.517]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:31.517]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:31.517]                     signaled = 0L)
  [05:32:31.517]                   signalCondition(cond)
  [05:32:31.517]                 }
  [05:32:31.517]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:31.517]                 ))) {
  [05:32:31.517]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:31.517]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:31.517]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:31.517]                   if (inherits(cond, "message")) {
  [05:32:31.517]                     if (!signal) 
  [05:32:31.517]                       invokeRestart("muffleMessage")
  [05:32:31.517]                   }
  [05:32:31.517]                   else if (inherits(cond, "warning")) {
  [05:32:31.517]                     if (!signal) 
  [05:32:31.517]                       invokeRestart("muffleWarning")
  [05:32:31.517]                   }
  [05:32:31.517]                   else {
  [05:32:31.517]                     if (!signal) {
  [05:32:31.517]                       restarts <- computeRestarts(cond)
  [05:32:31.517]                       for (restart in restarts) {
  [05:32:31.517]                         name <- restart$name
  [05:32:31.517]                         if (is.null(name)) 
  [05:32:31.517]                           next
  [05:32:31.517]                         if (!grepl("^muffle", name)) 
  [05:32:31.517]                           next
  [05:32:31.517]                         invokeRestart(restart)
  [05:32:31.517]                         break
  [05:32:31.517]                       }
  [05:32:31.517]                     }
  [05:32:31.517]                   }
  [05:32:31.517]                 }
  [05:32:31.517]             }
  [05:32:31.517]         }))
  [05:32:31.517]     }, error = function(ex) {
  [05:32:31.517]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:31.517]             version = "1.8"), class = "FutureResult")
  [05:32:31.517]     }, finally = {
  [05:32:31.517]         {
  [05:32:31.517]             NULL
  [05:32:31.517]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:31.517]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:31.517]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [05:32:31.517]                 label = NULL, ...) 
  [05:32:31.517]             {
  [05:32:31.517]                 if (substitute) 
  [05:32:31.517]                   expr <- substitute(expr)
  [05:32:31.517]                 local <- as.logical(local)
  [05:32:31.517]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [05:32:31.517]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:31.517]                   globals = globals, local = local, earlySignal = earlySignal, 
  [05:32:31.517]                   label = label, ...)
  [05:32:31.517]                 if (!future$lazy) 
  [05:32:31.517]                   future <- run(future)
  [05:32:31.517]                 invisible(future)
  [05:32:31.517]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:31.517]         }
  [05:32:31.517]         options(...future.oldOptions)
  [05:32:31.517]     })
  [05:32:31.517]     if (is.na(TRUE)) {
  [05:32:31.517]     }
  [05:32:31.517]     else {
  [05:32:31.517]         sink(type = "output", split = FALSE)
  [05:32:31.517]         if (TRUE) {
  [05:32:31.517]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:31.517]         }
  [05:32:31.517]         else {
  [05:32:31.517]             ...future.result["stdout"] <- list(NULL)
  [05:32:31.517]         }
  [05:32:31.517]         close(...future.stdout)
  [05:32:31.517]         ...future.stdout <- NULL
  [05:32:31.517]     }
  [05:32:31.517]     ...future.result$conditions <- ...future.conditions
  [05:32:31.517]     ...future.result
  [05:32:31.517] }
  [05:32:31.991]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:31.524] plan(): Setting new future strategy stack:
  [05:32:31.992]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:31.524] List of future strategies:
  [05:32:31.524] 1. sequential:
  [05:32:31.524]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.524]    - tweaked: FALSE
  [05:32:31.524]    - call: NULL
  [05:32:31.992]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:31.525] plan(): nbrOfWorkers() = 1
  [05:32:31.993]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:31.538] plan(): Setting new future strategy stack:
  [05:32:31.993]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:31.539] List of future strategies:
  [05:32:31.539] 1. sequential:
  [05:32:31.539]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:31.539]    - tweaked: FALSE
  [05:32:31.539]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:31.994]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:31.540] plan(): nbrOfWorkers() = 1
  [05:32:31.994]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:31.540] SequentialFuture started (and completed)
  [05:32:31.995]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:31.541] signalConditions() ...
  [05:32:31.995]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:31.541]  - include = 'immediateCondition'
  [05:32:31.996]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:31.542]  - exclude = 
  [05:32:31.996]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:31.542]  - resignal = FALSE
  [05:32:31.996]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:31.543]  - Number of conditions: 3
  [05:32:31.997]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:31.543] signalConditions() ... done
  [05:32:31.997]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:31.544] Chunk #1 of 1 ... DONE
  [05:32:31.998]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:31.544] Launching 1 futures (chunks) ... DONE
  [05:32:31.998]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:31.545] - resolving futures
  [05:32:31.999]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:31.545]   - gathering results & relaying conditions (except errors)
  [05:32:31.999]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:31.545] resolve() on list ...
  [05:32:32.000]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:31.546]  recursive: 0
  [05:32:32.000]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:31.546]  length: 1
  [05:32:32.001]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:31.547] 
  [05:32:32.001]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:31.547] Future #1
  [05:32:32.002]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:31.548] signalConditions() ...
  [05:32:32.002]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:31.548]  - include = 'immediateCondition'
  [05:32:32.002]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:31.548]  - exclude = 
  [05:32:32.003]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:31.549]  - resignal = FALSE
  [05:32:32.003]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:31.549]  - Number of conditions: 3
  [05:32:32.004]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:31.550] signalConditions() ... done
  [05:32:32.004]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:31.550] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:32.005]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:31.551] - nx: 1
  [05:32:32.005]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:31.551] - relay: TRUE
  [05:32:32.006]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:31.551] - stdout: TRUE
  [05:32:32.006]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:31.552] - signal: TRUE
  [05:32:32.006]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:31.552] - resignal: FALSE
  [05:32:32.007]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:31.553] - force: FALSE
  [05:32:32.007]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:31.553] - relayed: [n=1] FALSE
  [05:32:32.008]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:31.554] - queued futures: [n=1] FALSE
  [05:32:32.008]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:31.554]  - until=1
  [05:32:32.009]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:31.555]  - relaying element #1
  [05:32:32.009]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:31.555] signalConditions() ...
  [05:32:32.009]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:31.556]  - include = 'immediateCondition'
  [05:32:32.010]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:31.556]  - exclude = 
  [05:32:32.010]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:31.556]  - resignal = FALSE
  [05:32:32.011]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:31.557]  - Number of conditions: 3
  [05:32:32.011]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:31.557] signalConditions() ... done
  [05:32:32.012]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:31.558] signalConditions() ...
  [05:32:32.012]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:31.558]  - include = 'condition'
  [05:32:32.012]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:31.559]  - exclude = 
  [05:32:32.014]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:31.559]  - resignal = FALSE
  [05:32:32.015]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:31.559]  - Number of conditions: 3
  [05:32:32.015]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:31.560]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:32.016]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.016]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:31.560]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.017]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.017]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:31.561]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.017]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.018]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:31.561] signalConditions() ... done
  [05:32:32.018]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:31.562] - relayed: [n=1] TRUE
  [05:32:32.019]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:31.562] - queued futures: [n=1] TRUE
  [05:32:32.019]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:31.563] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:32.020]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:31.563]  length: 0 (resolved future 1)
  [05:32:32.020]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:31.564] Relaying remaining futures
  [05:32:32.020]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:31.564] signalConditionsASAP(NULL, pos=0) ...
  [05:32:32.021]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:31.564] - nx: 1
  [05:32:32.021]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:31.565] - relay: TRUE
  [05:32:32.022]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:31.565] - stdout: TRUE
  [05:32:32.022]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:31.566] - signal: TRUE
  [05:32:32.023]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:31.566] - resignal: FALSE
  [05:32:32.023]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:31.566] - force: FALSE
  [05:32:32.023]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:31.567] - relayed: [n=1] TRUE
  [05:32:32.024]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:31.567] - queued futures: [n=1] TRUE
  [05:32:32.024]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:32.025]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:31.568] - relayed: [n=1] TRUE
  [05:32:32.025]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:31.568] - queued futures: [n=1] TRUE
  [05:32:32.025]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:31.569] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:32.026]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:31.569] resolve() on list ... DONE
  [05:32:32.026]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:31.570] - collecting values of futures
  [05:32:32.027]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:31.570] signalConditions() ...
  [05:32:32.027]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:31.571]  - include = 'immediateCondition'
  [05:32:32.028]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:31.572]  - exclude = 
  [05:32:32.028]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:31.572]  - resignal = FALSE
  [05:32:32.029]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:31.572]  - Number of conditions: 3
  [05:32:32.029]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:31.573] signalConditions() ... done
  [05:32:32.029]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:31.573] - accumulating results
  [05:32:32.030]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:31.575] - processing errors (handler = 'stop')
  [05:32:32.030]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:31.575] - extracting results
  [05:32:32.031]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:31.576] doFuture() ... DONE
  [05:32:32.031]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:32.032] signalConditions() ... done
  [05:32:32.032] - relayed: [n=2] TRUE, TRUE
  [05:32:32.032] - queued futures: [n=2] TRUE, TRUE
  [05:32:32.033] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [05:32:32.033] resolve() on list ... DONE
  [05:32:32.033] - collecting values of futures
  [05:32:32.034] signalConditions() ...
  [05:32:32.034]  - include = 'immediateCondition'
  [05:32:32.034]  - exclude = 
  [05:32:32.034]  - resignal = FALSE
  [05:32:32.035]  - Number of conditions: 134
  [05:32:32.035] signalConditions() ... done
  [05:32:32.036] signalConditions() ...
  [05:32:32.036]  - include = 'immediateCondition'
  [05:32:32.036]  - exclude = 
  [05:32:32.037]  - resignal = FALSE
  [05:32:32.037]  - Number of conditions: 134
  [05:32:32.037] signalConditions() ... done
  [05:32:32.038] - accumulating results
  [05:32:32.039] - processing errors (handler = 'stop')
  [05:32:32.039] - extracting results
  [05:32:32.040] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [05:32:32.041] plan(): Setting new future strategy stack:
  [05:32:32.041] List of future strategies:
  [05:32:32.041] 1. multicore:
  [05:32:32.041]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.041]    - tweaked: FALSE
  [05:32:32.041]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.041] 2. multicore:
  [05:32:32.041]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.041]    - tweaked: FALSE
  [05:32:32.041]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.043] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [05:32:32.044] doFuture() ...
  [05:32:32.045] - dummy globals (as locals): [1] 'a'
  [05:32:32.046] - R expression:
  [05:32:32.046] {
  [05:32:32.046]     doFuture::registerDoFuture()
  [05:32:32.046]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.046]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.046]         a <- NULL
  [05:32:32.046]         ...future.env <- environment()
  [05:32:32.046]         local({
  [05:32:32.046]             for (name in names(...future.x_jj)) {
  [05:32:32.046]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.046]                   inherits = FALSE)
  [05:32:32.046]             }
  [05:32:32.046]         })
  [05:32:32.046]         tryCatch({
  [05:32:32.046]             plan_list <- future::plan()
  [05:32:32.046]             stopifnot(inherits(plan_list, strategy2))
  [05:32:32.046]             plan_a <- future::plan("list")
  [05:32:32.046]             str(plan_a)
  [05:32:32.046]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.046]             message("foreach() - level 2 ...")
  [05:32:32.046]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.046]                 {
  [05:32:32.046]                   plan_list <- future::plan()
  [05:32:32.046]                   message(capture.output(print(plan_list)))
  [05:32:32.046]                   stopifnot(inherits(plan_list, "future"))
  [05:32:32.046]                   default <- getOption("future.plan", "sequential")
  [05:32:32.046]                   if (is.function(default)) 
  [05:32:32.046]                     default <- class(default)
  [05:32:32.046]                   stopifnot(inherits(plan_list, default))
  [05:32:32.046]                   plan_b <- future::plan("list")
  [05:32:32.046]                   str(plan_b)
  [05:32:32.046]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.046]                     inherits(plan_b[[1]], default))
  [05:32:32.046]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.046]                 }
  [05:32:32.046]             message("foreach() - level 2 ... DONE")
  [05:32:32.046]             y
  [05:32:32.046]         }, error = identity)
  [05:32:32.046]     })
  [05:32:32.046] }
  [05:32:32.048] - identifying globals and packages ...
  [05:32:32.048] getGlobalsAndPackages() ...
  [05:32:32.048] Searching for globals...
  [05:32:32.082] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:32:32.082] Searching for globals ... DONE
  [05:32:32.083] Resolving globals: FALSE
  [05:32:32.085] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:32:32.086] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.086] - packages: [2] 'utils', 'foreach'
  [05:32:32.087] getGlobalsAndPackages() ... DONE
  [05:32:32.087] List of 3
  [05:32:32.087]  $ ...future.x_ii: NULL
  [05:32:32.087]  $ strategy2     : chr "multicore"
  [05:32:32.087]  $ bs            : int [1:3] 3 2 1
  [05:32:32.087]  - attr(*, "where")=List of 3
  [05:32:32.087]   ..$ ...future.x_ii:<environment: 0x556d9e1c6a70> 
  [05:32:32.087]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:32.087]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:32.087]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.087]  - attr(*, "resolved")= logi FALSE
  [05:32:32.087]  - attr(*, "total_size")= num 184
  [05:32:32.097]   - R expression:
  [05:32:32.097] {
  [05:32:32.097]     doFuture::registerDoFuture()
  [05:32:32.097]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.097]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.097]         a <- NULL
  [05:32:32.097]         ...future.env <- environment()
  [05:32:32.097]         local({
  [05:32:32.097]             for (name in names(...future.x_jj)) {
  [05:32:32.097]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.097]                   inherits = FALSE)
  [05:32:32.097]             }
  [05:32:32.097]         })
  [05:32:32.097]         tryCatch({
  [05:32:32.097]             plan_list <- future::plan()
  [05:32:32.097]             stopifnot(inherits(plan_list, strategy2))
  [05:32:32.097]             plan_a <- future::plan("list")
  [05:32:32.097]             str(plan_a)
  [05:32:32.097]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.097]             message("foreach() - level 2 ...")
  [05:32:32.097]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.097]                 {
  [05:32:32.097]                   plan_list <- future::plan()
  [05:32:32.097]                   message(capture.output(print(plan_list)))
  [05:32:32.097]                   stopifnot(inherits(plan_list, "future"))
  [05:32:32.097]                   default <- getOption("future.plan", "sequential")
  [05:32:32.097]                   if (is.function(default)) 
  [05:32:32.097]                     default <- class(default)
  [05:32:32.097]                   stopifnot(inherits(plan_list, default))
  [05:32:32.097]                   plan_b <- future::plan("list")
  [05:32:32.097]                   str(plan_b)
  [05:32:32.097]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.097]                     inherits(plan_b[[1]], default))
  [05:32:32.097]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.097]                 }
  [05:32:32.097]             message("foreach() - level 2 ... DONE")
  [05:32:32.097]             y
  [05:32:32.097]         }, error = identity)
  [05:32:32.097]     })
  [05:32:32.097] }
  [05:32:32.098]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.098] List of 3
  [05:32:32.098]  $ ...future.x_ii: NULL
  [05:32:32.098]  $ strategy2     : chr "multicore"
  [05:32:32.098]  $ bs            : int [1:3] 3 2 1
  [05:32:32.098]  - attr(*, "where")=List of 3
  [05:32:32.098]   ..$ ...future.x_ii:<environment: 0x556d9e1c6a70> 
  [05:32:32.098]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:32.098]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:32.098]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.098]  - attr(*, "resolved")= logi FALSE
  [05:32:32.098]  - attr(*, "total_size")= num 184
  [05:32:32.108]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:32:32.108] - identifying globals and packages ... DONE
  [05:32:32.109] Number of chunks: 2
  [05:32:32.110] Number of futures (= number of chunks): 2
  [05:32:32.110] Launching 2 futures (chunks) ...
  [05:32:32.110] Chunk #1 of 2 ...
  [05:32:32.111]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:32.111] getGlobalsAndPackages() ...
  [05:32:32.111] Searching for globals...
  [05:32:32.112] 
  [05:32:32.112] Searching for globals ... DONE
  [05:32:32.113] - globals: [0] <none>
  [05:32:32.116] getGlobalsAndPackages() ... DONE
  [05:32:32.116] 
  [05:32:32.117] 
  [05:32:32.117]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:32.118] getGlobalsAndPackages() ...
  [05:32:32.118] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.119] Resolving globals: FALSE
  [05:32:32.120] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:32.120] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.120] 
  [05:32:32.121] getGlobalsAndPackages() ... DONE
  [05:32:32.122] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:32.123] Packages needed by future strategies (n = 1): 'future'
  [05:32:32.128] {
  [05:32:32.128]     {
  [05:32:32.128]         ...future.startTime <- Sys.time()
  [05:32:32.128]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.128]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.128]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.128]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.128]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.128]         {
  [05:32:32.128]             {
  [05:32:32.128]                 {
  [05:32:32.128]                   {
  [05:32:32.128]                     has_future <- requireNamespace("future", 
  [05:32:32.128]                       quietly = TRUE)
  [05:32:32.128]                     version <- if (has_future) 
  [05:32:32.128]                       packageVersion("future")
  [05:32:32.128]                     else NULL
  [05:32:32.128]                     if (!has_future || version < "1.8.0") {
  [05:32:32.128]                       info <- c(r_version = gsub("R version ", 
  [05:32:32.128]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.128]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.128]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.128]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.128]                       info <- sprintf("%s: %s", names(info), 
  [05:32:32.128]                         info)
  [05:32:32.128]                       info <- paste(info, collapse = "; ")
  [05:32:32.128]                       if (!has_future) {
  [05:32:32.128]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.128]                           info)
  [05:32:32.128]                       }
  [05:32:32.128]                       else {
  [05:32:32.128]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.128]                           info, version)
  [05:32:32.128]                       }
  [05:32:32.128]                       stop(msg)
  [05:32:32.128]                     }
  [05:32:32.128]                   }
  [05:32:32.128]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:32.128]                   options(mc.cores = 1L)
  [05:32:32.128]                 }
  [05:32:32.128]                 local({
  [05:32:32.128]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:32.128]                   "future")) {
  [05:32:32.128]                     loadNamespace(pkg)
  [05:32:32.128]                     library(pkg, character.only = TRUE)
  [05:32:32.128]                   }
  [05:32:32.128]                 })
  [05:32:32.128]             }
  [05:32:32.128]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.128]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.128]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.128]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.128]             {
  [05:32:32.128]                 if (substitute) 
  [05:32:32.128]                   expr <- substitute(expr)
  [05:32:32.128]                 if (is.function(workers)) 
  [05:32:32.128]                   workers <- workers()
  [05:32:32.128]                 workers <- as.integer(workers)
  [05:32:32.128]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.128]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.128]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.128]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.128]                     local = TRUE, label = label, ...))
  [05:32:32.128]                 }
  [05:32:32.128]                 oopts <- options(mc.cores = workers)
  [05:32:32.128]                 on.exit(options(oopts))
  [05:32:32.128]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.128]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.128]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.128]                   label = label, ...)
  [05:32:32.128]                 if (!future$lazy) 
  [05:32:32.128]                   future <- run(future)
  [05:32:32.128]                 invisible(future)
  [05:32:32.128]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.128]         }
  [05:32:32.128]     }
  [05:32:32.128]     if (is.na(TRUE)) {
  [05:32:32.128]     }
  [05:32:32.128]     else {
  [05:32:32.128]         if (TRUE) {
  [05:32:32.128]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.128]         }
  [05:32:32.128]         else {
  [05:32:32.128]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.128]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.128]         }
  [05:32:32.128]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.128]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.128]             sink(type = "output", split = FALSE)
  [05:32:32.128]             close(...future.stdout)
  [05:32:32.128]         }, add = TRUE)
  [05:32:32.128]     }
  [05:32:32.128]     ...future.frame <- sys.nframe()
  [05:32:32.128]     ...future.conditions <- list()
  [05:32:32.128]     ...future.result <- tryCatch({
  [05:32:32.128]         withCallingHandlers({
  [05:32:32.128]             ...future.value <- local({
  [05:32:32.128]                 doFuture::registerDoFuture()
  [05:32:32.128]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.128]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.128]                   a <- NULL
  [05:32:32.128]                   ...future.env <- environment()
  [05:32:32.128]                   local({
  [05:32:32.128]                     for (name in names(...future.x_jj)) {
  [05:32:32.128]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.128]                         inherits = FALSE)
  [05:32:32.128]                     }
  [05:32:32.128]                   })
  [05:32:32.128]                   tryCatch({
  [05:32:32.128]                     plan_list <- future::plan()
  [05:32:32.128]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:32.128]                     plan_a <- future::plan("list")
  [05:32:32.128]                     str(plan_a)
  [05:32:32.128]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.128]                     message("foreach() - level 2 ...")
  [05:32:32.128]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.128]                       {
  [05:32:32.128]                         plan_list <- future::plan()
  [05:32:32.128]                         message(capture.output(print(plan_list)))
  [05:32:32.128]                         stopifnot(inherits(plan_list, "future"))
  [05:32:32.128]                         default <- getOption("future.plan", "sequential")
  [05:32:32.128]                         if (is.function(default)) 
  [05:32:32.128]                           default <- class(default)
  [05:32:32.128]                         stopifnot(inherits(plan_list, default))
  [05:32:32.128]                         plan_b <- future::plan("list")
  [05:32:32.128]                         str(plan_b)
  [05:32:32.128]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.128]                           inherits(plan_b[[1]], default))
  [05:32:32.128]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.128]                       }
  [05:32:32.128]                     message("foreach() - level 2 ... DONE")
  [05:32:32.128]                     y
  [05:32:32.128]                   }, error = identity)
  [05:32:32.128]                 })
  [05:32:32.128]             })
  [05:32:32.128]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.128]                 version = "1.8")
  [05:32:32.128]         }, condition = local({
  [05:32:32.128]             inherits <- base::inherits
  [05:32:32.128]             invokeRestart <- base::invokeRestart
  [05:32:32.128]             length <- base::length
  [05:32:32.128]             seq.int <- base::seq.int
  [05:32:32.128]             sys.calls <- base::sys.calls
  [05:32:32.128]             `[[` <- base::`[[`
  [05:32:32.128]             `+` <- base::`+`
  [05:32:32.128]             `<<-` <- base::`<<-`
  [05:32:32.128]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.128]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.128]                   3L)]
  [05:32:32.128]             }
  [05:32:32.128]             function(cond) {
  [05:32:32.128]                 if (inherits(cond, "error")) {
  [05:32:32.128]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.128]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.128]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.128]                     signaled = 0L)
  [05:32:32.128]                   signalCondition(cond)
  [05:32:32.128]                 }
  [05:32:32.128]                 else if (inherits(cond, "condition")) {
  [05:32:32.128]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:32.128]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.128]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.128]                   if (inherits(cond, "message")) {
  [05:32:32.128]                     if (!signal) 
  [05:32:32.128]                       invokeRestart("muffleMessage")
  [05:32:32.128]                   }
  [05:32:32.128]                   else if (inherits(cond, "warning")) {
  [05:32:32.128]                     if (!signal) 
  [05:32:32.128]                       invokeRestart("muffleWarning")
  [05:32:32.128]                   }
  [05:32:32.128]                   else {
  [05:32:32.128]                     if (!signal) {
  [05:32:32.128]                       restarts <- computeRestarts(cond)
  [05:32:32.128]                       for (restart in restarts) {
  [05:32:32.128]                         name <- restart$name
  [05:32:32.128]                         if (is.null(name)) 
  [05:32:32.128]                           next
  [05:32:32.128]                         if (!grepl("^muffle", name)) 
  [05:32:32.128]                           next
  [05:32:32.128]                         invokeRestart(restart)
  [05:32:32.128]                         break
  [05:32:32.128]                       }
  [05:32:32.128]                     }
  [05:32:32.128]                   }
  [05:32:32.128]                 }
  [05:32:32.128]             }
  [05:32:32.128]         }))
  [05:32:32.128]     }, error = function(ex) {
  [05:32:32.128]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.128]             version = "1.8"), class = "FutureResult")
  [05:32:32.128]     }, finally = {
  [05:32:32.128]         {
  [05:32:32.128]             {
  [05:32:32.128]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:32.128]             }
  [05:32:32.128]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:32.128]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.128]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.128]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.128]             {
  [05:32:32.128]                 if (substitute) 
  [05:32:32.128]                   expr <- substitute(expr)
  [05:32:32.128]                 if (is.function(workers)) 
  [05:32:32.128]                   workers <- workers()
  [05:32:32.128]                 workers <- as.integer(workers)
  [05:32:32.128]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.128]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.128]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.128]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.128]                     local = TRUE, label = label, ...))
  [05:32:32.128]                 }
  [05:32:32.128]                 oopts <- options(mc.cores = workers)
  [05:32:32.128]                 on.exit(options(oopts))
  [05:32:32.128]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.128]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.128]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.128]                   label = label, ...)
  [05:32:32.128]                 if (!future$lazy) 
  [05:32:32.128]                   future <- run(future)
  [05:32:32.128]                 invisible(future)
  [05:32:32.128]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:32.128]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.128]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.128]             {
  [05:32:32.128]                 if (substitute) 
  [05:32:32.128]                   expr <- substitute(expr)
  [05:32:32.128]                 if (is.function(workers)) 
  [05:32:32.128]                   workers <- workers()
  [05:32:32.128]                 workers <- as.integer(workers)
  [05:32:32.128]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.128]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.128]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.128]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.128]                     local = TRUE, label = label, ...))
  [05:32:32.128]                 }
  [05:32:32.128]                 oopts <- options(mc.cores = workers)
  [05:32:32.128]                 on.exit(options(oopts))
  [05:32:32.128]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.128]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.128]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.128]                   label = label, ...)
  [05:32:32.128]                 if (!future$lazy) 
  [05:32:32.128]                   future <- run(future)
  [05:32:32.128]                 invisible(future)
  [05:32:32.128]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.128]         }
  [05:32:32.128]         options(...future.oldOptions)
  [05:32:32.128]     })
  [05:32:32.128]     if (is.na(TRUE)) {
  [05:32:32.128]     }
  [05:32:32.128]     else {
  [05:32:32.128]         sink(type = "output", split = FALSE)
  [05:32:32.128]         if (TRUE) {
  [05:32:32.128]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.128]         }
  [05:32:32.128]         else {
  [05:32:32.128]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.128]         }
  [05:32:32.128]         close(...future.stdout)
  [05:32:32.128]         ...future.stdout <- NULL
  [05:32:32.128]     }
  [05:32:32.128]     ...future.result$conditions <- ...future.conditions
  [05:32:32.128]     ...future.result
  [05:32:32.128] }
  [05:32:32.133] requestCore(): workers = 2
  [05:32:32.137] MulticoreFuture started
  [05:32:32.138] Chunk #1 of 2 ... DONE
  [05:32:32.138] Chunk #2 of 2 ...
  [05:32:32.138]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:32.139] getGlobalsAndPackages() ...
  [05:32:32.139] Searching for globals...
  [05:32:32.140] 
  [05:32:32.141] Searching for globals ... DONE
  [05:32:32.141] - globals: [0] <none>
  [05:32:32.142] getGlobalsAndPackages() ... DONE
  [05:32:32.142] 
  [05:32:32.142] 
  [05:32:32.143]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:32.145] getGlobalsAndPackages() ...
  [05:32:32.145] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.145] Resolving globals: FALSE
  [05:32:32.147] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:32.148] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.148] 
  [05:32:32.149] getGlobalsAndPackages() ... DONE
  [05:32:32.151] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:32.152] Packages needed by future strategies (n = 1): 'future'
  [05:32:32.155] plan(): Setting new future strategy stack:
  [05:32:32.156] List of future strategies:
  [05:32:32.156] 1. multicore:
  [05:32:32.156]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.156]    - tweaked: FALSE
  [05:32:32.156]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.158] plan(): nbrOfWorkers() = 1
  [05:32:32.158] {
  [05:32:32.158]     {
  [05:32:32.158]         ...future.startTime <- Sys.time()
  [05:32:32.158]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.158]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.158]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.158]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.158]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.158]         {
  [05:32:32.158]             {
  [05:32:32.158]                 {
  [05:32:32.158]                   {
  [05:32:32.158]                     has_future <- requireNamespace("future", 
  [05:32:32.158]                       quietly = TRUE)
  [05:32:32.158]                     version <- if (has_future) 
  [05:32:32.158]                       packageVersion("future")
  [05:32:32.158]                     else NULL
  [05:32:32.158]                     if (!has_future || version < "1.8.0") {
  [05:32:32.158]                       info <- c(r_version = gsub("R version ", 
  [05:32:32.158]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.158]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.158]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.158]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.158]                       info <- sprintf("%s: %s", names(info), 
  [05:32:32.158]                         info)
  [05:32:32.158]                       info <- paste(info, collapse = "; ")
  [05:32:32.158]                       if (!has_future) {
  [05:32:32.158]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.158]                           info)
  [05:32:32.158]                       }
  [05:32:32.158]                       else {
  [05:32:32.158]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.158]                           info, version)
  [05:32:32.158]                       }
  [05:32:32.158]                       stop(msg)
  [05:32:32.158]                     }
  [05:32:32.158]                   }
  [05:32:32.158]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:32.158]                   options(mc.cores = 1L)
  [05:32:32.158]                 }
  [05:32:32.158]                 local({
  [05:32:32.158]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:32.158]                   "future")) {
  [05:32:32.158]                     loadNamespace(pkg)
  [05:32:32.158]                     library(pkg, character.only = TRUE)
  [05:32:32.158]                   }
  [05:32:32.158]                 })
  [05:32:32.158]             }
  [05:32:32.158]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.158]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.158]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.158]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.158]             {
  [05:32:32.158]                 if (substitute) 
  [05:32:32.158]                   expr <- substitute(expr)
  [05:32:32.158]                 if (is.function(workers)) 
  [05:32:32.158]                   workers <- workers()
  [05:32:32.158]                 workers <- as.integer(workers)
  [05:32:32.158]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.158]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.158]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.158]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.158]                     local = TRUE, label = label, ...))
  [05:32:32.158]                 }
  [05:32:32.158]                 oopts <- options(mc.cores = workers)
  [05:32:32.158]                 on.exit(options(oopts))
  [05:32:32.158]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.158]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.158]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.158]                   label = label, ...)
  [05:32:32.158]                 if (!future$lazy) 
  [05:32:32.158]                   future <- run(future)
  [05:32:32.158]                 invisible(future)
  [05:32:32.158]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.158]         }
  [05:32:32.158]     }
  [05:32:32.158]     if (is.na(TRUE)) {
  [05:32:32.158]     }
  [05:32:32.158]     else {
  [05:32:32.158]         if (TRUE) {
  [05:32:32.158]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.158]         }
  [05:32:32.158]         else {
  [05:32:32.158]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.158]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.158]         }
  [05:32:32.158]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.158]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.158]             sink(type = "output", split = FALSE)
  [05:32:32.158]             close(...future.stdout)
  [05:32:32.158]         }, add = TRUE)
  [05:32:32.158]     }
  [05:32:32.158]     ...future.frame <- sys.nframe()
  [05:32:32.158]     ...future.conditions <- list()
  [05:32:32.158]     ...future.result <- tryCatch({
  [05:32:32.158]         withCallingHandlers({
  [05:32:32.158]             ...future.value <- local({
  [05:32:32.158]                 doFuture::registerDoFuture()
  [05:32:32.158]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.158]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.158]                   a <- NULL
  [05:32:32.158]                   ...future.env <- environment()
  [05:32:32.158]                   local({
  [05:32:32.158]                     for (name in names(...future.x_jj)) {
  [05:32:32.158]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.158]                         inherits = FALSE)
  [05:32:32.158]                     }
  [05:32:32.158]                   })
  [05:32:32.158]                   tryCatch({
  [05:32:32.158]                     plan_list <- future::plan()
  [05:32:32.158]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:32.158]                     plan_a <- future::plan("list")
  [05:32:32.158]                     str(plan_a)
  [05:32:32.158]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.158]                     message("foreach() - level 2 ...")
  [05:32:32.158]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.158]                       {
  [05:32:32.158]                         plan_list <- future::plan()
  [05:32:32.158]                         message(capture.output(print(plan_list)))
  [05:32:32.158]                         stopifnot(inherits(plan_list, "future"))
  [05:32:32.158]                         default <- getOption("future.plan", "sequential")
  [05:32:32.158]                         if (is.function(default)) 
  [05:32:32.158]                           default <- class(default)
  [05:32:32.158]                         stopifnot(inherits(plan_list, default))
  [05:32:32.158]                         plan_b <- future::plan("list")
  [05:32:32.158]                         str(plan_b)
  [05:32:32.158]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.158]                           inherits(plan_b[[1]], default))
  [05:32:32.158]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.158]                       }
  [05:32:32.158]                     message("foreach() - level 2 ... DONE")
  [05:32:32.158]                     y
  [05:32:32.158]                   }, error = identity)
  [05:32:32.158]                 })
  [05:32:32.158]             })
  [05:32:32.158]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.158]                 version = "1.8")
  [05:32:32.158]         }, condition = local({
  [05:32:32.158]             inherits <- base::inherits
  [05:32:32.158]             invokeRestart <- base::invokeRestart
  [05:32:32.158]             length <- base::length
  [05:32:32.158]             seq.int <- base::seq.int
  [05:32:32.158]             sys.calls <- base::sys.calls
  [05:32:32.158]             `[[` <- base::`[[`
  [05:32:32.158]             `+` <- base::`+`
  [05:32:32.158]             `<<-` <- base::`<<-`
  [05:32:32.158]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.158]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.158]                   3L)]
  [05:32:32.158]             }
  [05:32:32.158]             function(cond) {
  [05:32:32.158]                 if (inherits(cond, "error")) {
  [05:32:32.158]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.158]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.158]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.158]                     signaled = 0L)
  [05:32:32.158]                   signalCondition(cond)
  [05:32:32.158]                 }
  [05:32:32.158]                 else if (inherits(cond, "condition")) {
  [05:32:32.158]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:32.158]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.158]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.158]                   if (inherits(cond, "message")) {
  [05:32:32.158]                     if (!signal) 
  [05:32:32.158]                       invokeRestart("muffleMessage")
  [05:32:32.158]                   }
  [05:32:32.158]                   else if (inherits(cond, "warning")) {
  [05:32:32.158]                     if (!signal) 
  [05:32:32.158]                       invokeRestart("muffleWarning")
  [05:32:32.158]                   }
  [05:32:32.158]                   else {
  [05:32:32.158]                     if (!signal) {
  [05:32:32.158]                       restarts <- computeRestarts(cond)
  [05:32:32.158]                       for (restart in restarts) {
  [05:32:32.158]                         name <- restart$name
  [05:32:32.158]                         if (is.null(name)) 
  [05:32:32.158]                           next
  [05:32:32.158]                         if (!grepl("^muffle", name)) 
  [05:32:32.158]                           next
  [05:32:32.158]                         invokeRestart(restart)
  [05:32:32.158]                         break
  [05:32:32.158]                       }
  [05:32:32.158]                     }
  [05:32:32.158]                   }
  [05:32:32.158]                 }
  [05:32:32.158]             }
  [05:32:32.158]         }))
  [05:32:32.158]     }, error = function(ex) {
  [05:32:32.158]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.158]             version = "1.8"), class = "FutureResult")
  [05:32:32.158]     }, finally = {
  [05:32:32.158]         {
  [05:32:32.158]             {
  [05:32:32.158]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:32.158]             }
  [05:32:32.158]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:32.158]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.158]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.158]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.158]             {
  [05:32:32.158]                 if (substitute) 
  [05:32:32.158]                   expr <- substitute(expr)
  [05:32:32.158]                 if (is.function(workers)) 
  [05:32:32.158]                   workers <- workers()
  [05:32:32.158]                 workers <- as.integer(workers)
  [05:32:32.158]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.158]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.158]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.158]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.158]                     local = TRUE, label = label, ...))
  [05:32:32.158]                 }
  [05:32:32.158]                 oopts <- options(mc.cores = workers)
  [05:32:32.158]                 on.exit(options(oopts))
  [05:32:32.158]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.158]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.158]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.158]                   label = label, ...)
  [05:32:32.158]                 if (!future$lazy) 
  [05:32:32.158]                   future <- run(future)
  [05:32:32.158]                 invisible(future)
  [05:32:32.158]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:32.158]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.158]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.158]             {
  [05:32:32.158]                 if (substitute) 
  [05:32:32.158]                   expr <- substitute(expr)
  [05:32:32.158]                 if (is.function(workers)) 
  [05:32:32.158]                   workers <- workers()
  [05:32:32.158]                 workers <- as.integer(workers)
  [05:32:32.158]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.158]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.158]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.158]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.158]                     local = TRUE, label = label, ...))
  [05:32:32.158]                 }
  [05:32:32.158]                 oopts <- options(mc.cores = workers)
  [05:32:32.158]                 on.exit(options(oopts))
  [05:32:32.158]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.158]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.158]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.158]                   label = label, ...)
  [05:32:32.158]                 if (!future$lazy) 
  [05:32:32.158]                   future <- run(future)
  [05:32:32.158]                 invisible(future)
  [05:32:32.158]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.158]         }
  [05:32:32.158]         options(...future.oldOptions)
  [05:32:32.158]     })
  [05:32:32.158]     if (is.na(TRUE)) {
  [05:32:32.158]     }
  [05:32:32.158]     else {
  [05:32:32.158]         sink(type = "output", split = FALSE)
  [05:32:32.158]         if (TRUE) {
  [05:32:32.158]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.158]         }
  [05:32:32.158]         else {
  [05:32:32.158]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.158]         }
  [05:32:32.158]         close(...future.stdout)
  [05:32:32.158]         ...future.stdout <- NULL
  [05:32:32.158]     }
  [05:32:32.158]     ...future.result$conditions <- ...future.conditions
  [05:32:32.158]     ...future.result
  [05:32:32.158] }
  [05:32:32.165] requestCore(): workers = 2
  [05:32:32.169] MulticoreFuture started
  [05:32:32.170] Chunk #2 of 2 ... DONE
  [05:32:32.171] Launching 2 futures (chunks) ... DONE
  [05:32:32.171] - resolving futures
  [05:32:32.172]   - gathering results & relaying conditions (except errors)
  [05:32:32.172] resolve() on list ...
  [05:32:32.172]  recursive: 0
  [05:32:32.173]  length: 2
  [05:32:32.173] 
  [05:32:32.179] plan(): Setting new future strategy stack:
  [05:32:32.180] List of future strategies:
  [05:32:32.180] 1. multicore:
  [05:32:32.180]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.180]    - tweaked: FALSE
  [05:32:32.180]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.182] plan(): nbrOfWorkers() = 1
  [05:32:32.367] plan(): Setting new future strategy stack:
  [05:32:32.367] List of future strategies:
  [05:32:32.367] 1. multicore:
  [05:32:32.367]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.367]    - tweaked: FALSE
  [05:32:32.367]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.367] 2. multicore:
  [05:32:32.367]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.367]    - tweaked: FALSE
  [05:32:32.367]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.369] plan(): nbrOfWorkers() = 2
  [05:32:32.374] Future #2
  [05:32:32.378] signalConditions() ...
  [05:32:32.378]  - include = 'immediateCondition'
  [05:32:32.378]  - exclude = 
  [05:32:32.379]  - resignal = FALSE
  [05:32:32.379]  - Number of conditions: 134
  [05:32:32.381] plan(): Setting new future strategy stack:
  [05:32:32.381] List of future strategies:
  [05:32:32.381] 1. multicore:
  [05:32:32.381]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.381]    - tweaked: FALSE
  [05:32:32.381]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.381] 2. multicore:
  [05:32:32.381]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.381]    - tweaked: FALSE
  [05:32:32.381]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.383] plan(): nbrOfWorkers() = 2
  [05:32:32.386] signalConditions() ... done
  [05:32:32.387] signalConditions() ...
  [05:32:32.387]  - include = 'immediateCondition'
  [05:32:32.388]  - exclude = 
  [05:32:32.388]  - resignal = FALSE
  [05:32:32.388]  - Number of conditions: 134
  [05:32:32.389] signalConditions() ... done
  [05:32:32.389] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [05:32:32.390] - nx: 2
  [05:32:32.390] - relay: TRUE
  [05:32:32.390] - stdout: TRUE
  [05:32:32.391] - signal: TRUE
  [05:32:32.391] - resignal: FALSE
  [05:32:32.391] - force: FALSE
  [05:32:32.392] - relayed: [n=2] FALSE, FALSE
  [05:32:32.392] - queued futures: [n=2] FALSE, FALSE
  [05:32:32.392]  - until=1
  [05:32:32.393]  - relaying element #1
  [05:32:32.393] - relayed: [n=2] FALSE, FALSE
  [05:32:32.393] - queued futures: [n=2] FALSE, TRUE
  [05:32:32.394] signalConditionsASAP(NULL, pos=2) ... done
  [05:32:32.394]  length: 1 (resolved future 2)
  [05:32:32.495] Future #1
  [05:32:32.498] signalConditions() ...
  [05:32:32.498]  - include = 'immediateCondition'
  [05:32:32.499]  - exclude = 
  [05:32:32.499]  - resignal = FALSE
  [05:32:32.499]  - Number of conditions: 134
  [05:32:32.500] signalConditions() ... done
  [05:32:32.501] signalConditions() ...
  [05:32:32.501]  - include = 'immediateCondition'
  [05:32:32.501]  - exclude = 
  [05:32:32.502]  - resignal = FALSE
  [05:32:32.502]  - Number of conditions: 134
  [05:32:32.503] signalConditions() ... done
  [05:32:32.503] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:32:32.504] - nx: 2
  [05:32:32.504] - relay: TRUE
  [05:32:32.504] - stdout: TRUE
  [05:32:32.505] - signal: TRUE
  [05:32:32.505] - resignal: FALSE
  [05:32:32.505] - force: FALSE
  [05:32:32.506] - relayed: [n=2] FALSE, FALSE
  [05:32:32.506] - queued futures: [n=2] FALSE, TRUE
  [05:32:32.506]  - until=1
  [05:32:32.507]  - relaying element #1
  [05:32:32.507] signalConditions() ...
  [05:32:32.507]  - include = 'immediateCondition'
  [05:32:32.508]  - exclude = 
  [05:32:32.508]  - resignal = FALSE
  [05:32:32.508]  - Number of conditions: 134
  [05:32:32.509] signalConditions() ... 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"
  [05:32:32.510] signalConditions() ...
  [05:32:32.510]  - include = 'condition'
  [05:32:32.519]  - exclude = 
  [05:32:32.519]  - resignal = FALSE
  [05:32:32.519]  - Number of conditions: 134
  [05:32:32.520]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:32.520]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.166] doFuture() ...
  [05:32:32.521]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.184] - dummy globals (as locals): [1] 'b'
  [05:32:32.521]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:32.185] - R expression:
  [05:32:32.522]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:32.186] {
  [05:32:32.186]     doFuture::registerDoFuture()
  [05:32:32.186]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.186]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.186]         b <- NULL
  [05:32:32.186]         ...future.env <- environment()
  [05:32:32.186]         local({
  [05:32:32.186]             for (name in names(...future.x_jj)) {
  [05:32:32.186]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.186]                   inherits = FALSE)
  [05:32:32.186]             }
  [05:32:32.186]         })
  [05:32:32.186]         tryCatch({
  [05:32:32.186]             plan_list <- future::plan()
  [05:32:32.186]             message(capture.output(print(plan_list)))
  [05:32:32.186]             stopifnot(inherits(plan_list, "future"))
  [05:32:32.186]             default <- getOption("future.plan", "sequential")
  [05:32:32.186]             if (is.function(default)) 
  [05:32:32.186]                 default <- class(default)
  [05:32:32.186]             stopifnot(inherits(plan_list, default))
  [05:32:32.186]             plan_b <- future::plan("list")
  [05:32:32.186]             str(plan_b)
  [05:32:32.186]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:32.186]                 default))
  [05:32:32.186]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.186]         }, error = identity)
  [05:32:32.186]     })
  [05:32:32.186] }
  [05:32:32.522]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:32.187] - identifying globals and packages ...
  [05:32:32.523]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:32.188] getGlobalsAndPackages() ...
  [05:32:32.523]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:32.189] Searching for globals...
  [05:32:32.523]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:32.237] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:32.524]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:32.238] Searching for globals ... DONE
  [05:32:32.524]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:32.238] Resolving globals: FALSE
  [05:32:32.525]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:32.243] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [05:32:32.525]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:32.244] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.526]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:32.244] - packages: [1] 'utils'
  [05:32:32.526]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:32.245] getGlobalsAndPackages() ... DONE
  [05:32:32.527]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:32.246] List of 3
  [05:32:32.246]  $ ...future.x_ii: NULL
  [05:32:32.246]  $ a             : int 1
  [05:32:32.246]  $ plan_a        :List of 1
  [05:32:32.246]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:32.246]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.246]     earlySignal = FALSE, label = NULL, ...)  
  [05:32:32.246]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:32:32.246]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:32.246]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:32.246]  - attr(*, "where")=List of 3
  [05:32:32.246]   ..$ ...future.x_ii:<environment: 0x556d9cb57cf0> 
  [05:32:32.246]   ..$ a             :<environment: 0x556d9ce24448> 
  [05:32:32.246]   ..$ plan_a        :<environment: 0x556d9ce24448> 
  [05:32:32.246]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.246]  - attr(*, "resolved")= logi FALSE
  [05:32:32.246]  - attr(*, "total_size")= num 76816
  [05:32:32.527]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:32.264]   - R expression:
  [05:32:32.527]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:32.265] {
  [05:32:32.265]     doFuture::registerDoFuture()
  [05:32:32.265]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.265]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.265]         b <- NULL
  [05:32:32.265]         ...future.env <- environment()
  [05:32:32.265]         local({
  [05:32:32.265]             for (name in names(...future.x_jj)) {
  [05:32:32.265]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.265]                   inherits = FALSE)
  [05:32:32.265]             }
  [05:32:32.265]         })
  [05:32:32.265]         tryCatch({
  [05:32:32.265]             plan_list <- future::plan()
  [05:32:32.265]             message(capture.output(print(plan_list)))
  [05:32:32.265]             stopifnot(inherits(plan_list, "future"))
  [05:32:32.265]             default <- getOption("future.plan", "sequential")
  [05:32:32.265]             if (is.function(default)) 
  [05:32:32.265]                 default <- class(default)
  [05:32:32.265]             stopifnot(inherits(plan_list, default))
  [05:32:32.265]             plan_b <- future::plan("list")
  [05:32:32.265]             str(plan_b)
  [05:32:32.265]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:32.265]                 default))
  [05:32:32.265]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.265]         }, error = identity)
  [05:32:32.265]     })
  [05:32:32.265] }
  [05:32:32.528]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:32.266]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.528]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:32.267] List of 3
  [05:32:32.267]  $ ...future.x_ii: NULL
  [05:32:32.267]  $ a             : int 1
  [05:32:32.267]  $ plan_a        :List of 1
  [05:32:32.267]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:32.267]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.267]     earlySignal = FALSE, label = NULL, ...)  
  [05:32:32.267]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:32:32.267]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:32.267]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:32.267]  - attr(*, "where")=List of 3
  [05:32:32.267]   ..$ ...future.x_ii:<environment: 0x556d9cb57cf0> 
  [05:32:32.267]   ..$ a             :<environment: 0x556d9ce24448> 
  [05:32:32.267]   ..$ plan_a        :<environment: 0x556d9ce24448> 
  [05:32:32.267]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.267]  - attr(*, "resolved")= logi FALSE
  [05:32:32.267]  - attr(*, "total_size")= num 76816
  [05:32:32.529]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:32.282]   - packages: [2] 'doFuture', 'utils'
  [05:32:32.529]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:32.283] - identifying globals and packages ... DONE
  [05:32:32.530]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:32.284] Number of chunks: 1
  [05:32:32.530]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:32.285] Number of futures (= number of chunks): 1
  [05:32:32.531]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:32.285] Launching 1 futures (chunks) ...
  [05:32:32.531]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:32.285] Chunk #1 of 1 ...
  [05:32:32.532]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:32.286]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:32.532]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:32.286] getGlobalsAndPackages() ...
  [05:32:32.532]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:32.287] Searching for globals...
  [05:32:32.533]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:32.288] 
  [05:32:32.533]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:32.289] Searching for globals ... DONE
  [05:32:32.534]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:32.289] - globals: [0] <none>
  [05:32:32.534]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:32.289] getGlobalsAndPackages() ... DONE
  [05:32:32.551]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:32.290] 
  [05:32:32.551]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:32.290] 
  [05:32:32.552]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:32.291]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:32.552]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:32.292] getGlobalsAndPackages() ...
  [05:32:32.553]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:32.293] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.553]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:32.293] Resolving globals: FALSE
  [05:32:32.554]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:32.295] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [05:32:32.554]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:32.296] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.555]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:32.296] 
  [05:32:32.555]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:32.297] getGlobalsAndPackages() ... DONE
  [05:32:32.555]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:32.300] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:32.556]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:32.301] Packages needed by future strategies (n = 0): <none>
  [05:32:32.556]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:32.307] {
  [05:32:32.307]     {
  [05:32:32.307]         ...future.startTime <- Sys.time()
  [05:32:32.307]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.307]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.307]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.307]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.307]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.307]         {
  [05:32:32.307]             {
  [05:32:32.307]                 {
  [05:32:32.307]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:32.307]                   version <- if (has_future) 
  [05:32:32.307]                     packageVersion("future")
  [05:32:32.307]                   else NULL
  [05:32:32.307]                   if (!has_future || version < "1.8.0") {
  [05:32:32.307]                     info <- c(r_version = gsub("R version ", 
  [05:32:32.307]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.307]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.307]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.307]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.307]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:32.307]                     info <- paste(info, collapse = "; ")
  [05:32:32.307]                     if (!has_future) {
  [05:32:32.307]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.307]                         info)
  [05:32:32.307]                     }
  [05:32:32.307]                     else {
  [05:32:32.307]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.307]                         info, version)
  [05:32:32.307]                     }
  [05:32:32.307]                     stop(msg)
  [05:32:32.307]                   }
  [05:32:32.307]                 }
  [05:32:32.307]                 local({
  [05:32:32.307]                   for (pkg in c("doFuture", "utils")) {
  [05:32:32.307]                     loadNamespace(pkg)
  [05:32:32.307]                     library(pkg, character.only = TRUE)
  [05:32:32.307]                   }
  [05:32:32.307]                 })
  [05:32:32.307]             }
  [05:32:32.307]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:32.307]         }
  [05:32:32.307]     }
  [05:32:32.307]     if (is.na(TRUE)) {
  [05:32:32.307]     }
  [05:32:32.307]     else {
  [05:32:32.307]         if (TRUE) {
  [05:32:32.307]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.307]         }
  [05:32:32.307]         else {
  [05:32:32.307]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.307]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.307]         }
  [05:32:32.307]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.307]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.307]             sink(type = "output", split = FALSE)
  [05:32:32.307]             close(...future.stdout)
  [05:32:32.307]         }, add = TRUE)
  [05:32:32.307]     }
  [05:32:32.307]     ...future.frame <- sys.nframe()
  [05:32:32.307]     ...future.conditions <- list()
  [05:32:32.307]     ...future.result <- tryCatch({
  [05:32:32.307]         withCallingHandlers({
  [05:32:32.307]             ...future.value <- local({
  [05:32:32.307]                 doFuture::registerDoFuture()
  [05:32:32.307]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.307]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.307]                   b <- NULL
  [05:32:32.307]                   ...future.env <- environment()
  [05:32:32.307]                   local({
  [05:32:32.307]                     for (name in names(...future.x_jj)) {
  [05:32:32.307]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.307]                         inherits = FALSE)
  [05:32:32.307]                     }
  [05:32:32.307]                   })
  [05:32:32.307]                   tryCatch({
  [05:32:32.307]                     plan_list <- future::plan()
  [05:32:32.307]                     message(capture.output(print(plan_list)))
  [05:32:32.307]                     stopifnot(inherits(plan_list, "future"))
  [05:32:32.307]                     default <- getOption("future.plan", "sequential")
  [05:32:32.307]                     if (is.function(default)) 
  [05:32:32.307]                       default <- class(default)
  [05:32:32.307]                     stopifnot(inherits(plan_list, default))
  [05:32:32.307]                     plan_b <- future::plan("list")
  [05:32:32.307]                     str(plan_b)
  [05:32:32.307]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.307]                       inherits(plan_b[[1]], default))
  [05:32:32.307]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.307]                   }, error = identity)
  [05:32:32.307]                 })
  [05:32:32.307]             })
  [05:32:32.307]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.307]                 version = "1.8")
  [05:32:32.307]         }, condition = local({
  [05:32:32.307]             inherits <- base::inherits
  [05:32:32.307]             invokeRestart <- base::invokeRestart
  [05:32:32.307]             length <- base::length
  [05:32:32.307]             seq.int <- base::seq.int
  [05:32:32.307]             sys.calls <- base::sys.calls
  [05:32:32.307]             `[[` <- base::`[[`
  [05:32:32.307]             `+` <- base::`+`
  [05:32:32.307]             `<<-` <- base::`<<-`
  [05:32:32.307]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.307]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.307]                   3L)]
  [05:32:32.307]             }
  [05:32:32.307]             function(cond) {
  [05:32:32.307]                 if (inherits(cond, "error")) {
  [05:32:32.307]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.307]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.307]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.307]                     signaled = 0L)
  [05:32:32.307]                   signalCondition(cond)
  [05:32:32.307]                 }
  [05:32:32.307]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:32.307]                 ))) {
  [05:32:32.307]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:32.307]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.307]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.307]                   if (inherits(cond, "message")) {
  [05:32:32.307]                     if (!signal) 
  [05:32:32.307]                       invokeRestart("muffleMessage")
  [05:32:32.307]                   }
  [05:32:32.307]                   else if (inherits(cond, "warning")) {
  [05:32:32.307]                     if (!signal) 
  [05:32:32.307]                       invokeRestart("muffleWarning")
  [05:32:32.307]                   }
  [05:32:32.307]                   else {
  [05:32:32.307]                     if (!signal) {
  [05:32:32.307]                       restarts <- computeRestarts(cond)
  [05:32:32.307]                       for (restart in restarts) {
  [05:32:32.307]                         name <- restart$name
  [05:32:32.307]                         if (is.null(name)) 
  [05:32:32.307]                           next
  [05:32:32.307]                         if (!grepl("^muffle", name)) 
  [05:32:32.307]                           next
  [05:32:32.307]                         invokeRestart(restart)
  [05:32:32.307]                         break
  [05:32:32.307]                       }
  [05:32:32.307]                     }
  [05:32:32.307]                   }
  [05:32:32.307]                 }
  [05:32:32.307]             }
  [05:32:32.307]         }))
  [05:32:32.307]     }, error = function(ex) {
  [05:32:32.307]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.307]             version = "1.8"), class = "FutureResult")
  [05:32:32.307]     }, finally = {
  [05:32:32.307]         {
  [05:32:32.307]             NULL
  [05:32:32.307]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.307]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.307]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.307]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.307]             {
  [05:32:32.307]                 if (substitute) 
  [05:32:32.307]                   expr <- substitute(expr)
  [05:32:32.307]                 if (is.function(workers)) 
  [05:32:32.307]                   workers <- workers()
  [05:32:32.307]                 workers <- as.integer(workers)
  [05:32:32.307]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.307]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.307]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.307]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.307]                     local = TRUE, label = label, ...))
  [05:32:32.307]                 }
  [05:32:32.307]                 oopts <- options(mc.cores = workers)
  [05:32:32.307]                 on.exit(options(oopts))
  [05:32:32.307]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.307]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.307]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.307]                   label = label, ...)
  [05:32:32.307]                 if (!future$lazy) 
  [05:32:32.307]                   future <- run(future)
  [05:32:32.307]                 invisible(future)
  [05:32:32.307]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.307]         }
  [05:32:32.307]         options(...future.oldOptions)
  [05:32:32.307]     })
  [05:32:32.307]     if (is.na(TRUE)) {
  [05:32:32.307]     }
  [05:32:32.307]     else {
  [05:32:32.307]         sink(type = "output", split = FALSE)
  [05:32:32.307]         if (TRUE) {
  [05:32:32.307]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.307]         }
  [05:32:32.307]         else {
  [05:32:32.307]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.307]         }
  [05:32:32.307]         close(...future.stdout)
  [05:32:32.307]         ...future.stdout <- NULL
  [05:32:32.307]     }
  [05:32:32.307]     ...future.result$conditions <- ...future.conditions
  [05:32:32.307]     ...future.result
  [05:32:32.307] }
  [05:32:32.557]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:32.314] plan(): Setting new future strategy stack:
  [05:32:32.557]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:32.315] List of future strategies:
  [05:32:32.315] 1. sequential:
  [05:32:32.315]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:32.315]    - tweaked: FALSE
  [05:32:32.315]    - call: NULL
  [05:32:32.558]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:32.317] plan(): nbrOfWorkers() = 1
  [05:32:32.558]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:32.335] plan(): Setting new future strategy stack:
  [05:32:32.558]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:32.335] List of future strategies:
  [05:32:32.335] 1. multicore:
  [05:32:32.335]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.335]    - tweaked: FALSE
  [05:32:32.335]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.559]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:32.338] plan(): nbrOfWorkers() = 1
  [05:32:32.559]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:32.338] SequentialFuture started (and completed)
  [05:32:32.560]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:32.339] signalConditions() ...
  [05:32:32.560]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:32.340]  - include = 'immediateCondition'
  [05:32:32.561]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:32.340]  - exclude = 
  [05:32:32.561]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:32.341]  - resignal = FALSE
  [05:32:32.561]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:32.341]  - Number of conditions: 3
  [05:32:32.562]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:32.342] signalConditions() ... done
  [05:32:32.562]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:32.342] Chunk #1 of 1 ... DONE
  [05:32:32.563]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:32.343] Launching 1 futures (chunks) ... DONE
  [05:32:32.563]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:32.343] - resolving futures
  [05:32:32.564]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:32.344]   - gathering results & relaying conditions (except errors)
  [05:32:32.564]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:32.344] resolve() on list ...
  [05:32:32.564]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:32.345]  recursive: 0
  [05:32:32.565]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:32.345]  length: 1
  [05:32:32.565]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:32.346] 
  [05:32:32.566]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:32.346] Future #1
  [05:32:32.566]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:32.347] signalConditions() ...
  [05:32:32.583]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:32.348]  - include = 'immediateCondition'
  [05:32:32.583]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:32.348]  - exclude = 
  [05:32:32.584]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:32.349]  - resignal = FALSE
  [05:32:32.584]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:32.349]  - Number of conditions: 3
  [05:32:32.585]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:32.350] signalConditions() ... done
  [05:32:32.585]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:32.350] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:32.585]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:32.351] - nx: 1
  [05:32:32.586]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:32.351] - relay: TRUE
  [05:32:32.586]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:32.352] - stdout: TRUE
  [05:32:32.587]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:32.352] - signal: TRUE
  [05:32:32.587]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:32.353] - resignal: FALSE
  [05:32:32.588]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:32.353] - force: FALSE
  [05:32:32.588]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:32.354] - relayed: [n=1] FALSE
  [05:32:32.588]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:32.354] - queued futures: [n=1] FALSE
  [05:32:32.589]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:32.355]  - until=1
  [05:32:32.589]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:32.355]  - relaying element #1
  [05:32:32.590]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:32.356] signalConditions() ...
  [05:32:32.590]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:32.356]  - include = 'immediateCondition'
  [05:32:32.591]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:32.357]  - exclude = 
  [05:32:32.591]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:32.357]  - resignal = FALSE
  [05:32:32.591]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:32.358]  - Number of conditions: 3
  [05:32:32.592]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:32.359] signalConditions() ... done
  [05:32:32.592]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:32.359] signalConditions() ...
  [05:32:32.593]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:32.360]  - include = 'condition'
  [05:32:32.593]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:32.360]  - exclude = 
  [05:32:32.593]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:32.361]  - resignal = FALSE
  [05:32:32.594]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:32.361]  - Number of conditions: 3
  [05:32:32.594]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:32.362]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:32.595]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.595]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:32.362]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.596]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.596]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:32.363]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.596]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.597]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:32.364] signalConditions() ... done
  [05:32:32.597]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:32.364] - relayed: [n=1] TRUE
  [05:32:32.598]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:32.365] - queued futures: [n=1] TRUE
  [05:32:32.598]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:32.365] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:32.615]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:32.366]  length: 0 (resolved future 1)
  [05:32:32.615]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:32.366] Relaying remaining futures
  [05:32:32.616]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:32.367] signalConditionsASAP(NULL, pos=0) ...
  [05:32:32.616]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:32.367] - nx: 1
  [05:32:32.617]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:32.368] - relay: TRUE
  [05:32:32.617]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:32.368] - stdout: TRUE
  [05:32:32.618]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:32.369] - signal: TRUE
  [05:32:32.618]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:32.369] - resignal: FALSE
  [05:32:32.619]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:32.370] - force: FALSE
  [05:32:32.619]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:32.370] - relayed: [n=1] TRUE
  [05:32:32.620]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:32.371] - queued futures: [n=1] TRUE
  [05:32:32.620]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:32.620]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:32.371] - relayed: [n=1] TRUE
  [05:32:32.621]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:32.372] - queued futures: [n=1] TRUE
  [05:32:32.621]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:32.372] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:32.622]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:32.373] resolve() on list ... DONE
  [05:32:32.622]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:32.373] - collecting values of futures
  [05:32:32.623]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:32.374] signalConditions() ...
  [05:32:32.623]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:32.374]  - include = 'immediateCondition'
  [05:32:32.624]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:32.375]  - exclude = 
  [05:32:32.624]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:32.375]  - resignal = FALSE
  [05:32:32.625]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:32.376]  - Number of conditions: 3
  [05:32:32.625]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:32.376] signalConditions() ... done
  [05:32:32.626]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:32.377] - accumulating results
  [05:32:32.626]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:32.378] - processing errors (handler = 'stop')
  [05:32:32.627]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:32.379] - extracting results
  [05:32:32.627]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:32.379] doFuture() ... DONE
  [05:32:32.627]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:32.628] signalConditions() ... done
  [05:32:32.628] - relayed: [n=2] TRUE, FALSE
  [05:32:32.629] - queued futures: [n=2] TRUE, TRUE
  [05:32:32.629] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [05:32:32.629]  length: 0 (resolved future 1)
  [05:32:32.630] Relaying remaining futures
  [05:32:32.630] signalConditionsASAP(NULL, pos=0) ...
  [05:32:32.646] - nx: 2
  [05:32:32.647] - relay: TRUE
  [05:32:32.647] - stdout: TRUE
  [05:32:32.647] - signal: TRUE
  [05:32:32.648] - resignal: FALSE
  [05:32:32.648] - force: FALSE
  [05:32:32.648] - relayed: [n=2] TRUE, FALSE
  [05:32:32.649] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [05:32:32.649]  - relaying element #2
  [05:32:32.650] signalConditions() ...
  [05:32:32.650]  - include = 'immediateCondition'
  [05:32:32.650]  - exclude = 
  [05:32:32.651]  - resignal = FALSE
  [05:32:32.651]  - Number of conditions: 134
  [05:32:32.652] signalConditions() ... 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"
  [05:32:32.652] signalConditions() ...
  [05:32:32.653]  - include = 'condition'
  [05:32:32.653]  - exclude = 
  [05:32:32.653]  - resignal = FALSE
  [05:32:32.654]  - Number of conditions: 134
  [05:32:32.654]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:32.654]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.190] doFuture() ...
  [05:32:32.655]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.192] - dummy globals (as locals): [1] 'b'
  [05:32:32.655]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:32.193] - R expression:
  [05:32:32.656]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:32.194] {
  [05:32:32.194]     doFuture::registerDoFuture()
  [05:32:32.194]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.194]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.194]         b <- NULL
  [05:32:32.194]         ...future.env <- environment()
  [05:32:32.194]         local({
  [05:32:32.194]             for (name in names(...future.x_jj)) {
  [05:32:32.194]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.194]                   inherits = FALSE)
  [05:32:32.194]             }
  [05:32:32.194]         })
  [05:32:32.194]         tryCatch({
  [05:32:32.194]             plan_list <- future::plan()
  [05:32:32.194]             message(capture.output(print(plan_list)))
  [05:32:32.194]             stopifnot(inherits(plan_list, "future"))
  [05:32:32.194]             default <- getOption("future.plan", "sequential")
  [05:32:32.194]             if (is.function(default)) 
  [05:32:32.194]                 default <- class(default)
  [05:32:32.194]             stopifnot(inherits(plan_list, default))
  [05:32:32.194]             plan_b <- future::plan("list")
  [05:32:32.194]             str(plan_b)
  [05:32:32.194]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:32.194]                 default))
  [05:32:32.194]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.194]         }, error = identity)
  [05:32:32.194]     })
  [05:32:32.194] }
  [05:32:32.656]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:32.195] - identifying globals and packages ...
  [05:32:32.657]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:32.196] getGlobalsAndPackages() ...
  [05:32:32.657]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:32.197] Searching for globals...
  [05:32:32.658]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:32.233] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:32.658]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:32.234] Searching for globals ... DONE
  [05:32:32.659]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:32.234] Resolving globals: FALSE
  [05:32:32.659]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:32.238] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [05:32:32.660]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:32.239] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.660]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:32.239] - packages: [1] 'utils'
  [05:32:32.661]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:32.240] getGlobalsAndPackages() ... DONE
  [05:32:32.661]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:32.240] List of 3
  [05:32:32.240]  $ ...future.x_ii: NULL
  [05:32:32.240]  $ a             : int 2
  [05:32:32.240]  $ plan_a        :List of 1
  [05:32:32.240]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:32.240]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.240]     earlySignal = FALSE, label = NULL, ...)  
  [05:32:32.240]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:32:32.240]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:32.240]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:32.240]  - attr(*, "where")=List of 3
  [05:32:32.240]   ..$ ...future.x_ii:<environment: 0x556d9bfa7f98> 
  [05:32:32.240]   ..$ a             :<environment: 0x556d9bfef040> 
  [05:32:32.240]   ..$ plan_a        :<environment: 0x556d9bfef040> 
  [05:32:32.240]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.240]  - attr(*, "resolved")= logi FALSE
  [05:32:32.240]  - attr(*, "total_size")= num 76816
  [05:32:32.662]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:32.255]   - R expression:
  [05:32:32.662]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:32.255] {
  [05:32:32.255]     doFuture::registerDoFuture()
  [05:32:32.255]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.255]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.255]         b <- NULL
  [05:32:32.255]         ...future.env <- environment()
  [05:32:32.255]         local({
  [05:32:32.255]             for (name in names(...future.x_jj)) {
  [05:32:32.255]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.255]                   inherits = FALSE)
  [05:32:32.255]             }
  [05:32:32.255]         })
  [05:32:32.255]         tryCatch({
  [05:32:32.255]             plan_list <- future::plan()
  [05:32:32.255]             message(capture.output(print(plan_list)))
  [05:32:32.255]             stopifnot(inherits(plan_list, "future"))
  [05:32:32.255]             default <- getOption("future.plan", "sequential")
  [05:32:32.255]             if (is.function(default)) 
  [05:32:32.255]                 default <- class(default)
  [05:32:32.255]             stopifnot(inherits(plan_list, default))
  [05:32:32.255]             plan_b <- future::plan("list")
  [05:32:32.255]             str(plan_b)
  [05:32:32.255]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:32.255]                 default))
  [05:32:32.255]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.255]         }, error = identity)
  [05:32:32.255]     })
  [05:32:32.255] }
  [05:32:32.679]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:32.257]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.679]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:32.257] List of 3
  [05:32:32.257]  $ ...future.x_ii: NULL
  [05:32:32.257]  $ a             : int 2
  [05:32:32.257]  $ plan_a        :List of 1
  [05:32:32.257]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:32.257]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.257]     earlySignal = FALSE, label = NULL, ...)  
  [05:32:32.257]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [05:32:32.257]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:32.257]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:32.257]  - attr(*, "where")=List of 3
  [05:32:32.257]   ..$ ...future.x_ii:<environment: 0x556d9bfa7f98> 
  [05:32:32.257]   ..$ a             :<environment: 0x556d9bfef040> 
  [05:32:32.257]   ..$ plan_a        :<environment: 0x556d9bfef040> 
  [05:32:32.257]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.257]  - attr(*, "resolved")= logi FALSE
  [05:32:32.257]  - attr(*, "total_size")= num 76816
  [05:32:32.680]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:32.271]   - packages: [2] 'doFuture', 'utils'
  [05:32:32.680]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:32.272] - identifying globals and packages ... DONE
  [05:32:32.681]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:32.273] Number of chunks: 1
  [05:32:32.681]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:32.273] Number of futures (= number of chunks): 1
  [05:32:32.682]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:32.274] Launching 1 futures (chunks) ...
  [05:32:32.682]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:32.274] Chunk #1 of 1 ...
  [05:32:32.683]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:32.275]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:32.683]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:32.275] getGlobalsAndPackages() ...
  [05:32:32.683]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:32.276] Searching for globals...
  [05:32:32.684]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:32.277] 
  [05:32:32.684]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:32.277] Searching for globals ... DONE
  [05:32:32.685]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:32.278] - globals: [0] <none>
  [05:32:32.685]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:32.278] getGlobalsAndPackages() ... DONE
  [05:32:32.686]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:32.279] 
  [05:32:32.686]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:32.279] 
  [05:32:32.687]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:32.280]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:32.687]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:32.281] getGlobalsAndPackages() ...
  [05:32:32.688]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:32.282] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.688]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:32.282] Resolving globals: FALSE
  [05:32:32.689]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:32.284] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [05:32:32.689]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:32.285] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:32.690]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:32.285] 
  [05:32:32.690]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:32.286] getGlobalsAndPackages() ... DONE
  [05:32:32.691]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:32.288] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:32.691]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:32.289] Packages needed by future strategies (n = 0): <none>
  [05:32:32.692]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:32.295] {
  [05:32:32.295]     {
  [05:32:32.295]         ...future.startTime <- Sys.time()
  [05:32:32.295]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.295]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.295]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.295]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.295]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.295]         {
  [05:32:32.295]             {
  [05:32:32.295]                 {
  [05:32:32.295]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:32.295]                   version <- if (has_future) 
  [05:32:32.295]                     packageVersion("future")
  [05:32:32.295]                   else NULL
  [05:32:32.295]                   if (!has_future || version < "1.8.0") {
  [05:32:32.295]                     info <- c(r_version = gsub("R version ", 
  [05:32:32.295]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.295]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.295]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.295]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.295]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:32.295]                     info <- paste(info, collapse = "; ")
  [05:32:32.295]                     if (!has_future) {
  [05:32:32.295]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.295]                         info)
  [05:32:32.295]                     }
  [05:32:32.295]                     else {
  [05:32:32.295]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.295]                         info, version)
  [05:32:32.295]                     }
  [05:32:32.295]                     stop(msg)
  [05:32:32.295]                   }
  [05:32:32.295]                 }
  [05:32:32.295]                 local({
  [05:32:32.295]                   for (pkg in c("doFuture", "utils")) {
  [05:32:32.295]                     loadNamespace(pkg)
  [05:32:32.295]                     library(pkg, character.only = TRUE)
  [05:32:32.295]                   }
  [05:32:32.295]                 })
  [05:32:32.295]             }
  [05:32:32.295]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:32.295]         }
  [05:32:32.295]     }
  [05:32:32.295]     if (is.na(TRUE)) {
  [05:32:32.295]     }
  [05:32:32.295]     else {
  [05:32:32.295]         if (TRUE) {
  [05:32:32.295]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.295]         }
  [05:32:32.295]         else {
  [05:32:32.295]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.295]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.295]         }
  [05:32:32.295]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.295]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.295]             sink(type = "output", split = FALSE)
  [05:32:32.295]             close(...future.stdout)
  [05:32:32.295]         }, add = TRUE)
  [05:32:32.295]     }
  [05:32:32.295]     ...future.frame <- sys.nframe()
  [05:32:32.295]     ...future.conditions <- list()
  [05:32:32.295]     ...future.result <- tryCatch({
  [05:32:32.295]         withCallingHandlers({
  [05:32:32.295]             ...future.value <- local({
  [05:32:32.295]                 doFuture::registerDoFuture()
  [05:32:32.295]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.295]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.295]                   b <- NULL
  [05:32:32.295]                   ...future.env <- environment()
  [05:32:32.295]                   local({
  [05:32:32.295]                     for (name in names(...future.x_jj)) {
  [05:32:32.295]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.295]                         inherits = FALSE)
  [05:32:32.295]                     }
  [05:32:32.295]                   })
  [05:32:32.295]                   tryCatch({
  [05:32:32.295]                     plan_list <- future::plan()
  [05:32:32.295]                     message(capture.output(print(plan_list)))
  [05:32:32.295]                     stopifnot(inherits(plan_list, "future"))
  [05:32:32.295]                     default <- getOption("future.plan", "sequential")
  [05:32:32.295]                     if (is.function(default)) 
  [05:32:32.295]                       default <- class(default)
  [05:32:32.295]                     stopifnot(inherits(plan_list, default))
  [05:32:32.295]                     plan_b <- future::plan("list")
  [05:32:32.295]                     str(plan_b)
  [05:32:32.295]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.295]                       inherits(plan_b[[1]], default))
  [05:32:32.295]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.295]                   }, error = identity)
  [05:32:32.295]                 })
  [05:32:32.295]             })
  [05:32:32.295]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.295]                 version = "1.8")
  [05:32:32.295]         }, condition = local({
  [05:32:32.295]             inherits <- base::inherits
  [05:32:32.295]             invokeRestart <- base::invokeRestart
  [05:32:32.295]             length <- base::length
  [05:32:32.295]             seq.int <- base::seq.int
  [05:32:32.295]             sys.calls <- base::sys.calls
  [05:32:32.295]             `[[` <- base::`[[`
  [05:32:32.295]             `+` <- base::`+`
  [05:32:32.295]             `<<-` <- base::`<<-`
  [05:32:32.295]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.295]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.295]                   3L)]
  [05:32:32.295]             }
  [05:32:32.295]             function(cond) {
  [05:32:32.295]                 if (inherits(cond, "error")) {
  [05:32:32.295]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.295]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.295]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.295]                     signaled = 0L)
  [05:32:32.295]                   signalCondition(cond)
  [05:32:32.295]                 }
  [05:32:32.295]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:32.295]                 ))) {
  [05:32:32.295]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:32.295]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.295]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.295]                   if (inherits(cond, "message")) {
  [05:32:32.295]                     if (!signal) 
  [05:32:32.295]                       invokeRestart("muffleMessage")
  [05:32:32.295]                   }
  [05:32:32.295]                   else if (inherits(cond, "warning")) {
  [05:32:32.295]                     if (!signal) 
  [05:32:32.295]                       invokeRestart("muffleWarning")
  [05:32:32.295]                   }
  [05:32:32.295]                   else {
  [05:32:32.295]                     if (!signal) {
  [05:32:32.295]                       restarts <- computeRestarts(cond)
  [05:32:32.295]                       for (restart in restarts) {
  [05:32:32.295]                         name <- restart$name
  [05:32:32.295]                         if (is.null(name)) 
  [05:32:32.295]                           next
  [05:32:32.295]                         if (!grepl("^muffle", name)) 
  [05:32:32.295]                           next
  [05:32:32.295]                         invokeRestart(restart)
  [05:32:32.295]                         break
  [05:32:32.295]                       }
  [05:32:32.295]                     }
  [05:32:32.295]                   }
  [05:32:32.295]                 }
  [05:32:32.295]             }
  [05:32:32.295]         }))
  [05:32:32.295]     }, error = function(ex) {
  [05:32:32.295]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.295]             version = "1.8"), class = "FutureResult")
  [05:32:32.295]     }, finally = {
  [05:32:32.295]         {
  [05:32:32.295]             NULL
  [05:32:32.295]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.295]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.295]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.295]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.295]             {
  [05:32:32.295]                 if (substitute) 
  [05:32:32.295]                   expr <- substitute(expr)
  [05:32:32.295]                 if (is.function(workers)) 
  [05:32:32.295]                   workers <- workers()
  [05:32:32.295]                 workers <- as.integer(workers)
  [05:32:32.295]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.295]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.295]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.295]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.295]                     local = TRUE, label = label, ...))
  [05:32:32.295]                 }
  [05:32:32.295]                 oopts <- options(mc.cores = workers)
  [05:32:32.295]                 on.exit(options(oopts))
  [05:32:32.295]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.295]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.295]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.295]                   label = label, ...)
  [05:32:32.295]                 if (!future$lazy) 
  [05:32:32.295]                   future <- run(future)
  [05:32:32.295]                 invisible(future)
  [05:32:32.295]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.295]         }
  [05:32:32.295]         options(...future.oldOptions)
  [05:32:32.295]     })
  [05:32:32.295]     if (is.na(TRUE)) {
  [05:32:32.295]     }
  [05:32:32.295]     else {
  [05:32:32.295]         sink(type = "output", split = FALSE)
  [05:32:32.295]         if (TRUE) {
  [05:32:32.295]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.295]         }
  [05:32:32.295]         else {
  [05:32:32.295]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.295]         }
  [05:32:32.295]         close(...future.stdout)
  [05:32:32.295]         ...future.stdout <- NULL
  [05:32:32.295]     }
  [05:32:32.295]     ...future.result$conditions <- ...future.conditions
  [05:32:32.295]     ...future.result
  [05:32:32.295] }
  [05:32:32.692]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:32.302] plan(): Setting new future strategy stack:
  [05:32:32.693]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:32.302] List of future strategies:
  [05:32:32.302] 1. sequential:
  [05:32:32.302]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:32.302]    - tweaked: FALSE
  [05:32:32.302]    - call: NULL
  [05:32:32.693]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:32.303] plan(): nbrOfWorkers() = 1
  [05:32:32.694]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:32.319] plan(): Setting new future strategy stack:
  [05:32:32.694]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:32.319] List of future strategies:
  [05:32:32.319] 1. multicore:
  [05:32:32.319]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.319]    - tweaked: FALSE
  [05:32:32.319]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.699]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:32.321] plan(): nbrOfWorkers() = 1
  [05:32:32.699]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:32.322] SequentialFuture started (and completed)
  [05:32:32.700]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:32.322] signalConditions() ...
  [05:32:32.700]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:32.323]  - include = 'immediateCondition'
  [05:32:32.701]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:32.323]  - exclude = 
  [05:32:32.701]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:32.324]  - resignal = FALSE
  [05:32:32.702]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:32.324]  - Number of conditions: 3
  [05:32:32.702]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:32.325] signalConditions() ... done
  [05:32:32.703]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:32.325] Chunk #1 of 1 ... DONE
  [05:32:32.703]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:32.326] Launching 1 futures (chunks) ... DONE
  [05:32:32.704]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:32.326] - resolving futures
  [05:32:32.704]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:32.327]   - gathering results & relaying conditions (except errors)
  [05:32:32.705]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:32.327] resolve() on list ...
  [05:32:32.705]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:32.328]  recursive: 0
  [05:32:32.705]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:32.328]  length: 1
  [05:32:32.706]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:32.328] 
  [05:32:32.706]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:32.329] Future #1
  [05:32:32.707]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:32.329] signalConditions() ...
  [05:32:32.707]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:32.330]  - include = 'immediateCondition'
  [05:32:32.708]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:32.330]  - exclude = 
  [05:32:32.708]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:32.331]  - resignal = FALSE
  [05:32:32.709]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:32.331]  - Number of conditions: 3
  [05:32:32.709]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:32.332] signalConditions() ... done
  [05:32:32.710]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:32.332] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:32.710]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:32.333] - nx: 1
  [05:32:32.711]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:32.333] - relay: TRUE
  [05:32:32.711]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:32.333] - stdout: TRUE
  [05:32:32.712]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:32.334] - signal: TRUE
  [05:32:32.712]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:32.334] - resignal: FALSE
  [05:32:32.713]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:32.335] - force: FALSE
  [05:32:32.713]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:32.335] - relayed: [n=1] FALSE
  [05:32:32.714]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:32.336] - queued futures: [n=1] FALSE
  [05:32:32.714]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:32.336]  - until=1
  [05:32:32.726]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:32.337]  - relaying element #1
  [05:32:32.727]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:32.337] signalConditions() ...
  [05:32:32.743]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:32.338]  - include = 'immediateCondition'
  [05:32:32.743]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:32.338]  - exclude = 
  [05:32:32.747]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:32.339]  - resignal = FALSE
  [05:32:32.747]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:32.339]  - Number of conditions: 3
  [05:32:32.748]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:32.340] signalConditions() ... done
  [05:32:32.748]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:32.340] signalConditions() ...
  [05:32:32.749]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:32.341]  - include = 'condition'
  [05:32:32.749]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:32.341]  - exclude = 
  [05:32:32.750]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:32.342]  - resignal = FALSE
  [05:32:32.750]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:32.342]  - Number of conditions: 3
  [05:32:32.751]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:32.343]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:32.751]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.752]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:32.343]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.752]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.753]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:32.344]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.753]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:32.754]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:32.345] signalConditions() ... done
  [05:32:32.754]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:32.345] - relayed: [n=1] TRUE
  [05:32:32.755]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:32.346] - queued futures: [n=1] TRUE
  [05:32:32.755]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:32.346] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:32.756]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:32.353]  length: 0 (resolved future 1)
  [05:32:32.756]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:32.354] Relaying remaining futures
  [05:32:32.757]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:32.354] signalConditionsASAP(NULL, pos=0) ...
  [05:32:32.757]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:32.354] - nx: 1
  [05:32:32.757]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:32.355] - relay: TRUE
  [05:32:32.758]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:32.355] - stdout: TRUE
  [05:32:32.758]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:32.356] - signal: TRUE
  [05:32:32.759]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:32.356] - resignal: FALSE
  [05:32:32.759]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:32.357] - force: FALSE
  [05:32:32.760]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:32.357] - relayed: [n=1] TRUE
  [05:32:32.774]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:32.357] - queued futures: [n=1] TRUE
  [05:32:32.775]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:32.776]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:32.358] - relayed: [n=1] TRUE
  [05:32:32.776]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:32.359] - queued futures: [n=1] TRUE
  [05:32:32.776]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:32.359] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:32.782]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:32.360] resolve() on list ... DONE
  [05:32:32.782]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:32.360] - collecting values of futures
  [05:32:32.783]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:32.361] signalConditions() ...
  [05:32:32.783]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:32.361]  - include = 'immediateCondition'
  [05:32:32.784]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:32.362]  - exclude = 
  [05:32:32.784]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:32.362]  - resignal = FALSE
  [05:32:32.784]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:32.362]  - Number of conditions: 3
  [05:32:32.785]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:32.363] signalConditions() ... done
  [05:32:32.785]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:32.364] - accumulating results
  [05:32:32.786]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:32.365] - processing errors (handler = 'stop')
  [05:32:32.786]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:32.365] - extracting results
  [05:32:32.787]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:32.366] doFuture() ... DONE
  [05:32:32.787]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:32.788] signalConditions() ... done
  [05:32:32.788] - relayed: [n=2] TRUE, TRUE
  [05:32:32.789] - queued futures: [n=2] TRUE, TRUE
  [05:32:32.789] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [05:32:32.789] resolve() on list ... DONE
  [05:32:32.789] - collecting values of futures
  [05:32:32.790] signalConditions() ...
  [05:32:32.790]  - include = 'immediateCondition'
  [05:32:32.796]  - exclude = 
  [05:32:32.797]  - resignal = FALSE
  [05:32:32.797]  - Number of conditions: 134
  [05:32:32.797] signalConditions() ... done
  [05:32:32.798] signalConditions() ...
  [05:32:32.798]  - include = 'immediateCondition'
  [05:32:32.799]  - exclude = 
  [05:32:32.799]  - resignal = FALSE
  [05:32:32.799]  - Number of conditions: 134
  [05:32:32.800] signalConditions() ... done
  [05:32:32.800] - accumulating results
  [05:32:32.801] - processing errors (handler = 'stop')
  [05:32:32.802] - extracting results
  [05:32:32.802] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [05:32:32.804] plan(): Setting new future strategy stack:
  [05:32:32.804] List of future strategies:
  [05:32:32.804] 1. multicore:
  [05:32:32.804]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:32.804]    - tweaked: FALSE
  [05:32:32.804]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.804] 2. multisession:
  [05:32:32.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, ...)
  [05:32:32.804]    - tweaked: FALSE
  [05:32:32.804]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.806] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [05:32:32.807] doFuture() ...
  [05:32:32.809] - dummy globals (as locals): [1] 'a'
  [05:32:32.810] - R expression:
  [05:32:32.810] {
  [05:32:32.810]     doFuture::registerDoFuture()
  [05:32:32.810]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.810]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.810]         a <- NULL
  [05:32:32.810]         ...future.env <- environment()
  [05:32:32.810]         local({
  [05:32:32.810]             for (name in names(...future.x_jj)) {
  [05:32:32.810]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.810]                   inherits = FALSE)
  [05:32:32.810]             }
  [05:32:32.810]         })
  [05:32:32.810]         tryCatch({
  [05:32:32.810]             plan_list <- future::plan()
  [05:32:32.810]             stopifnot(inherits(plan_list, strategy2))
  [05:32:32.810]             plan_a <- future::plan("list")
  [05:32:32.810]             str(plan_a)
  [05:32:32.810]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.810]             message("foreach() - level 2 ...")
  [05:32:32.810]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.810]                 {
  [05:32:32.810]                   plan_list <- future::plan()
  [05:32:32.810]                   message(capture.output(print(plan_list)))
  [05:32:32.810]                   stopifnot(inherits(plan_list, "future"))
  [05:32:32.810]                   default <- getOption("future.plan", "sequential")
  [05:32:32.810]                   if (is.function(default)) 
  [05:32:32.810]                     default <- class(default)
  [05:32:32.810]                   stopifnot(inherits(plan_list, default))
  [05:32:32.810]                   plan_b <- future::plan("list")
  [05:32:32.810]                   str(plan_b)
  [05:32:32.810]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.810]                     inherits(plan_b[[1]], default))
  [05:32:32.810]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.810]                 }
  [05:32:32.810]             message("foreach() - level 2 ... DONE")
  [05:32:32.810]             y
  [05:32:32.810]         }, error = identity)
  [05:32:32.810]     })
  [05:32:32.810] }
  [05:32:32.811] - identifying globals and packages ...
  [05:32:32.812] getGlobalsAndPackages() ...
  [05:32:32.812] Searching for globals...
  [05:32:32.847] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:32:32.847] Searching for globals ... DONE
  [05:32:32.848] Resolving globals: FALSE
  [05:32:32.851] The total size of the 3 globals is 184 bytes (184 bytes)
  [05:32:32.851] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.852] - packages: [2] 'utils', 'foreach'
  [05:32:32.852] getGlobalsAndPackages() ... DONE
  [05:32:32.852] List of 3
  [05:32:32.852]  $ ...future.x_ii: NULL
  [05:32:32.852]  $ strategy2     : chr "multisession"
  [05:32:32.852]  $ bs            : int [1:3] 3 2 1
  [05:32:32.852]  - attr(*, "where")=List of 3
  [05:32:32.852]   ..$ ...future.x_ii:<environment: 0x556d9ce37238> 
  [05:32:32.852]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:32.852]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:32.852]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.852]  - attr(*, "resolved")= logi FALSE
  [05:32:32.852]  - attr(*, "total_size")= num 184
  [05:32:32.862]   - R expression:
  [05:32:32.862] {
  [05:32:32.862]     doFuture::registerDoFuture()
  [05:32:32.862]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.862]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.862]         a <- NULL
  [05:32:32.862]         ...future.env <- environment()
  [05:32:32.862]         local({
  [05:32:32.862]             for (name in names(...future.x_jj)) {
  [05:32:32.862]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.862]                   inherits = FALSE)
  [05:32:32.862]             }
  [05:32:32.862]         })
  [05:32:32.862]         tryCatch({
  [05:32:32.862]             plan_list <- future::plan()
  [05:32:32.862]             stopifnot(inherits(plan_list, strategy2))
  [05:32:32.862]             plan_a <- future::plan("list")
  [05:32:32.862]             str(plan_a)
  [05:32:32.862]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.862]             message("foreach() - level 2 ...")
  [05:32:32.862]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.862]                 {
  [05:32:32.862]                   plan_list <- future::plan()
  [05:32:32.862]                   message(capture.output(print(plan_list)))
  [05:32:32.862]                   stopifnot(inherits(plan_list, "future"))
  [05:32:32.862]                   default <- getOption("future.plan", "sequential")
  [05:32:32.862]                   if (is.function(default)) 
  [05:32:32.862]                     default <- class(default)
  [05:32:32.862]                   stopifnot(inherits(plan_list, default))
  [05:32:32.862]                   plan_b <- future::plan("list")
  [05:32:32.862]                   str(plan_b)
  [05:32:32.862]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.862]                     inherits(plan_b[[1]], default))
  [05:32:32.862]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.862]                 }
  [05:32:32.862]             message("foreach() - level 2 ... DONE")
  [05:32:32.862]             y
  [05:32:32.862]         }, error = identity)
  [05:32:32.862]     })
  [05:32:32.862] }
  [05:32:32.863]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.864] List of 3
  [05:32:32.864]  $ ...future.x_ii: NULL
  [05:32:32.864]  $ strategy2     : chr "multisession"
  [05:32:32.864]  $ bs            : int [1:3] 3 2 1
  [05:32:32.864]  - attr(*, "where")=List of 3
  [05:32:32.864]   ..$ ...future.x_ii:<environment: 0x556d9ce37238> 
  [05:32:32.864]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:32.864]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:32.864]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.864]  - attr(*, "resolved")= logi FALSE
  [05:32:32.864]  - attr(*, "total_size")= num 184
  [05:32:32.873]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:32:32.873] - identifying globals and packages ... DONE
  [05:32:32.875] Number of chunks: 2
  [05:32:32.875] Number of futures (= number of chunks): 2
  [05:32:32.875] Launching 2 futures (chunks) ...
  [05:32:32.876] Chunk #1 of 2 ...
  [05:32:32.876]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:32.876] getGlobalsAndPackages() ...
  [05:32:32.877] Searching for globals...
  [05:32:32.877] 
  [05:32:32.878] Searching for globals ... DONE
  [05:32:32.878] - globals: [0] <none>
  [05:32:32.878] getGlobalsAndPackages() ... DONE
  [05:32:32.879] 
  [05:32:32.879] 
  [05:32:32.879]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:32.880] getGlobalsAndPackages() ...
  [05:32:32.880] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.881] Resolving globals: FALSE
  [05:32:32.882] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:32.882] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.882] 
  [05:32:32.883] getGlobalsAndPackages() ... DONE
  [05:32:32.884] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:32.885] Packages needed by future strategies (n = 1): 'future'
  [05:32:32.889] {
  [05:32:32.889]     {
  [05:32:32.889]         ...future.startTime <- Sys.time()
  [05:32:32.889]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.889]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.889]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.889]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.889]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.889]         {
  [05:32:32.889]             {
  [05:32:32.889]                 {
  [05:32:32.889]                   {
  [05:32:32.889]                     has_future <- requireNamespace("future", 
  [05:32:32.889]                       quietly = TRUE)
  [05:32:32.889]                     version <- if (has_future) 
  [05:32:32.889]                       packageVersion("future")
  [05:32:32.889]                     else NULL
  [05:32:32.889]                     if (!has_future || version < "1.8.0") {
  [05:32:32.889]                       info <- c(r_version = gsub("R version ", 
  [05:32:32.889]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.889]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.889]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.889]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.889]                       info <- sprintf("%s: %s", names(info), 
  [05:32:32.889]                         info)
  [05:32:32.889]                       info <- paste(info, collapse = "; ")
  [05:32:32.889]                       if (!has_future) {
  [05:32:32.889]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.889]                           info)
  [05:32:32.889]                       }
  [05:32:32.889]                       else {
  [05:32:32.889]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.889]                           info, version)
  [05:32:32.889]                       }
  [05:32:32.889]                       stop(msg)
  [05:32:32.889]                     }
  [05:32:32.889]                   }
  [05:32:32.889]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:32.889]                   options(mc.cores = 1L)
  [05:32:32.889]                 }
  [05:32:32.889]                 local({
  [05:32:32.889]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:32.889]                   "future")) {
  [05:32:32.889]                     loadNamespace(pkg)
  [05:32:32.889]                     library(pkg, character.only = TRUE)
  [05:32:32.889]                   }
  [05:32:32.889]                 })
  [05:32:32.889]             }
  [05:32:32.889]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.889]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.889]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:32.889]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:32.889]                 ...) 
  [05:32:32.889]             {
  [05:32:32.889]                 if (substitute) 
  [05:32:32.889]                   expr <- substitute(expr)
  [05:32:32.889]                 if (is.function(workers)) 
  [05:32:32.889]                   workers <- workers()
  [05:32:32.889]                 workers <- as.integer(workers)
  [05:32:32.889]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:32.889]                   workers >= 1)
  [05:32:32.889]                 if (workers == 1L) {
  [05:32:32.889]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.889]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:32.889]                     local = TRUE, label = label, ...))
  [05:32:32.889]                 }
  [05:32:32.889]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:32.889]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:32.889]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.889]                   globals = globals, persistent = persistent, 
  [05:32:32.889]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:32.889]                   label = label, ...)
  [05:32:32.889]                 if (!future$lazy) 
  [05:32:32.889]                   future <- run(future)
  [05:32:32.889]                 invisible(future)
  [05:32:32.889]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.889]         }
  [05:32:32.889]     }
  [05:32:32.889]     if (is.na(TRUE)) {
  [05:32:32.889]     }
  [05:32:32.889]     else {
  [05:32:32.889]         if (TRUE) {
  [05:32:32.889]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.889]         }
  [05:32:32.889]         else {
  [05:32:32.889]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.889]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.889]         }
  [05:32:32.889]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.889]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.889]             sink(type = "output", split = FALSE)
  [05:32:32.889]             close(...future.stdout)
  [05:32:32.889]         }, add = TRUE)
  [05:32:32.889]     }
  [05:32:32.889]     ...future.frame <- sys.nframe()
  [05:32:32.889]     ...future.conditions <- list()
  [05:32:32.889]     ...future.result <- tryCatch({
  [05:32:32.889]         withCallingHandlers({
  [05:32:32.889]             ...future.value <- local({
  [05:32:32.889]                 doFuture::registerDoFuture()
  [05:32:32.889]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.889]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.889]                   a <- NULL
  [05:32:32.889]                   ...future.env <- environment()
  [05:32:32.889]                   local({
  [05:32:32.889]                     for (name in names(...future.x_jj)) {
  [05:32:32.889]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.889]                         inherits = FALSE)
  [05:32:32.889]                     }
  [05:32:32.889]                   })
  [05:32:32.889]                   tryCatch({
  [05:32:32.889]                     plan_list <- future::plan()
  [05:32:32.889]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:32.889]                     plan_a <- future::plan("list")
  [05:32:32.889]                     str(plan_a)
  [05:32:32.889]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.889]                     message("foreach() - level 2 ...")
  [05:32:32.889]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.889]                       {
  [05:32:32.889]                         plan_list <- future::plan()
  [05:32:32.889]                         message(capture.output(print(plan_list)))
  [05:32:32.889]                         stopifnot(inherits(plan_list, "future"))
  [05:32:32.889]                         default <- getOption("future.plan", "sequential")
  [05:32:32.889]                         if (is.function(default)) 
  [05:32:32.889]                           default <- class(default)
  [05:32:32.889]                         stopifnot(inherits(plan_list, default))
  [05:32:32.889]                         plan_b <- future::plan("list")
  [05:32:32.889]                         str(plan_b)
  [05:32:32.889]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.889]                           inherits(plan_b[[1]], default))
  [05:32:32.889]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.889]                       }
  [05:32:32.889]                     message("foreach() - level 2 ... DONE")
  [05:32:32.889]                     y
  [05:32:32.889]                   }, error = identity)
  [05:32:32.889]                 })
  [05:32:32.889]             })
  [05:32:32.889]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.889]                 version = "1.8")
  [05:32:32.889]         }, condition = local({
  [05:32:32.889]             inherits <- base::inherits
  [05:32:32.889]             invokeRestart <- base::invokeRestart
  [05:32:32.889]             length <- base::length
  [05:32:32.889]             seq.int <- base::seq.int
  [05:32:32.889]             sys.calls <- base::sys.calls
  [05:32:32.889]             `[[` <- base::`[[`
  [05:32:32.889]             `+` <- base::`+`
  [05:32:32.889]             `<<-` <- base::`<<-`
  [05:32:32.889]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.889]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.889]                   3L)]
  [05:32:32.889]             }
  [05:32:32.889]             function(cond) {
  [05:32:32.889]                 if (inherits(cond, "error")) {
  [05:32:32.889]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.889]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.889]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.889]                     signaled = 0L)
  [05:32:32.889]                   signalCondition(cond)
  [05:32:32.889]                 }
  [05:32:32.889]                 else if (inherits(cond, "condition")) {
  [05:32:32.889]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:32.889]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.889]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.889]                   if (inherits(cond, "message")) {
  [05:32:32.889]                     if (!signal) 
  [05:32:32.889]                       invokeRestart("muffleMessage")
  [05:32:32.889]                   }
  [05:32:32.889]                   else if (inherits(cond, "warning")) {
  [05:32:32.889]                     if (!signal) 
  [05:32:32.889]                       invokeRestart("muffleWarning")
  [05:32:32.889]                   }
  [05:32:32.889]                   else {
  [05:32:32.889]                     if (!signal) {
  [05:32:32.889]                       restarts <- computeRestarts(cond)
  [05:32:32.889]                       for (restart in restarts) {
  [05:32:32.889]                         name <- restart$name
  [05:32:32.889]                         if (is.null(name)) 
  [05:32:32.889]                           next
  [05:32:32.889]                         if (!grepl("^muffle", name)) 
  [05:32:32.889]                           next
  [05:32:32.889]                         invokeRestart(restart)
  [05:32:32.889]                         break
  [05:32:32.889]                       }
  [05:32:32.889]                     }
  [05:32:32.889]                   }
  [05:32:32.889]                 }
  [05:32:32.889]             }
  [05:32:32.889]         }))
  [05:32:32.889]     }, error = function(ex) {
  [05:32:32.889]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.889]             version = "1.8"), class = "FutureResult")
  [05:32:32.889]     }, finally = {
  [05:32:32.889]         {
  [05:32:32.889]             {
  [05:32:32.889]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:32.889]             }
  [05:32:32.889]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:32.889]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.889]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.889]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.889]             {
  [05:32:32.889]                 if (substitute) 
  [05:32:32.889]                   expr <- substitute(expr)
  [05:32:32.889]                 if (is.function(workers)) 
  [05:32:32.889]                   workers <- workers()
  [05:32:32.889]                 workers <- as.integer(workers)
  [05:32:32.889]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.889]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.889]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.889]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.889]                     local = TRUE, label = label, ...))
  [05:32:32.889]                 }
  [05:32:32.889]                 oopts <- options(mc.cores = workers)
  [05:32:32.889]                 on.exit(options(oopts))
  [05:32:32.889]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.889]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.889]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.889]                   label = label, ...)
  [05:32:32.889]                 if (!future$lazy) 
  [05:32:32.889]                   future <- run(future)
  [05:32:32.889]                 invisible(future)
  [05:32:32.889]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:32.889]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:32:32.889]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [05:32:32.889]                 label = NULL, ...) 
  [05:32:32.889]             {
  [05:32:32.889]                 if (substitute) 
  [05:32:32.889]                   expr <- substitute(expr)
  [05:32:32.889]                 if (is.function(workers)) 
  [05:32:32.889]                   workers <- workers()
  [05:32:32.889]                 workers <- as.integer(workers)
  [05:32:32.889]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:32.889]                   workers >= 1)
  [05:32:32.889]                 if (workers == 1L) {
  [05:32:32.889]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.889]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:32.889]                     local = TRUE, label = label, ...))
  [05:32:32.889]                 }
  [05:32:32.889]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:32.889]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:32.889]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.889]                   globals = globals, persistent = persistent, 
  [05:32:32.889]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:32.889]                   label = label, ...)
  [05:32:32.889]                 if (!future$lazy) 
  [05:32:32.889]                   future <- run(future)
  [05:32:32.889]                 invisible(future)
  [05:32:32.889]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.889]         }
  [05:32:32.889]         options(...future.oldOptions)
  [05:32:32.889]     })
  [05:32:32.889]     if (is.na(TRUE)) {
  [05:32:32.889]     }
  [05:32:32.889]     else {
  [05:32:32.889]         sink(type = "output", split = FALSE)
  [05:32:32.889]         if (TRUE) {
  [05:32:32.889]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.889]         }
  [05:32:32.889]         else {
  [05:32:32.889]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.889]         }
  [05:32:32.889]         close(...future.stdout)
  [05:32:32.889]         ...future.stdout <- NULL
  [05:32:32.889]     }
  [05:32:32.889]     ...future.result$conditions <- ...future.conditions
  [05:32:32.889]     ...future.result
  [05:32:32.889] }
  [05:32:32.895] requestCore(): workers = 2
  [05:32:32.899] MulticoreFuture started
  [05:32:32.899] Chunk #1 of 2 ... DONE
  [05:32:32.900] Chunk #2 of 2 ...
  [05:32:32.900]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:32.901] getGlobalsAndPackages() ...
  [05:32:32.901] Searching for globals...
  [05:32:32.902] 
  [05:32:32.902] Searching for globals ... DONE
  [05:32:32.903] - globals: [0] <none>
  [05:32:32.903] getGlobalsAndPackages() ... DONE
  [05:32:32.904] 
  [05:32:32.904] 
  [05:32:32.904]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:32.906] getGlobalsAndPackages() ...
  [05:32:32.906] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.907] Resolving globals: FALSE
  [05:32:32.908] The total size of the 3 globals is 240 bytes (240 bytes)
  [05:32:32.909] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:32.909] 
  [05:32:32.910] getGlobalsAndPackages() ... DONE
  [05:32:32.915] plan(): Setting new future strategy stack:
  [05:32:32.916] List of future strategies:
  [05:32:32.916] 1. multisession:
  [05:32:32.916]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:32.916]    - tweaked: FALSE
  [05:32:32.916]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.918] plan(): nbrOfWorkers() = 1
  [05:32:32.928] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:32.929] Packages needed by future strategies (n = 1): 'future'
  [05:32:32.934] {
  [05:32:32.934]     {
  [05:32:32.934]         ...future.startTime <- Sys.time()
  [05:32:32.934]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:32.934]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:32.934]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:32.934]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:32.934]             future.resolve.recursive = NULL, width = 80L)
  [05:32:32.934]         {
  [05:32:32.934]             {
  [05:32:32.934]                 {
  [05:32:32.934]                   {
  [05:32:32.934]                     has_future <- requireNamespace("future", 
  [05:32:32.934]                       quietly = TRUE)
  [05:32:32.934]                     version <- if (has_future) 
  [05:32:32.934]                       packageVersion("future")
  [05:32:32.934]                     else NULL
  [05:32:32.934]                     if (!has_future || version < "1.8.0") {
  [05:32:32.934]                       info <- c(r_version = gsub("R version ", 
  [05:32:32.934]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:32.934]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:32.934]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:32.934]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:32.934]                       info <- sprintf("%s: %s", names(info), 
  [05:32:32.934]                         info)
  [05:32:32.934]                       info <- paste(info, collapse = "; ")
  [05:32:32.934]                       if (!has_future) {
  [05:32:32.934]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:32.934]                           info)
  [05:32:32.934]                       }
  [05:32:32.934]                       else {
  [05:32:32.934]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:32.934]                           info, version)
  [05:32:32.934]                       }
  [05:32:32.934]                       stop(msg)
  [05:32:32.934]                     }
  [05:32:32.934]                   }
  [05:32:32.934]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:32.934]                   options(mc.cores = 1L)
  [05:32:32.934]                 }
  [05:32:32.934]                 local({
  [05:32:32.934]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:32.934]                   "future")) {
  [05:32:32.934]                     loadNamespace(pkg)
  [05:32:32.934]                     library(pkg, character.only = TRUE)
  [05:32:32.934]                   }
  [05:32:32.934]                 })
  [05:32:32.934]             }
  [05:32:32.934]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:32.934]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.934]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:32.934]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:32.934]                 ...) 
  [05:32:32.934]             {
  [05:32:32.934]                 if (substitute) 
  [05:32:32.934]                   expr <- substitute(expr)
  [05:32:32.934]                 if (is.function(workers)) 
  [05:32:32.934]                   workers <- workers()
  [05:32:32.934]                 workers <- as.integer(workers)
  [05:32:32.934]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:32.934]                   workers >= 1)
  [05:32:32.934]                 if (workers == 1L) {
  [05:32:32.934]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.934]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:32.934]                     local = TRUE, label = label, ...))
  [05:32:32.934]                 }
  [05:32:32.934]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:32.934]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:32.934]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.934]                   globals = globals, persistent = persistent, 
  [05:32:32.934]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:32.934]                   label = label, ...)
  [05:32:32.934]                 if (!future$lazy) 
  [05:32:32.934]                   future <- run(future)
  [05:32:32.934]                 invisible(future)
  [05:32:32.934]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.934]         }
  [05:32:32.934]     }
  [05:32:32.934]     if (is.na(TRUE)) {
  [05:32:32.934]     }
  [05:32:32.934]     else {
  [05:32:32.934]         if (TRUE) {
  [05:32:32.934]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:32.934]         }
  [05:32:32.934]         else {
  [05:32:32.934]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:32.934]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:32.934]         }
  [05:32:32.934]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:32.934]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:32.934]             sink(type = "output", split = FALSE)
  [05:32:32.934]             close(...future.stdout)
  [05:32:32.934]         }, add = TRUE)
  [05:32:32.934]     }
  [05:32:32.934]     ...future.frame <- sys.nframe()
  [05:32:32.934]     ...future.conditions <- list()
  [05:32:32.934]     ...future.result <- tryCatch({
  [05:32:32.934]         withCallingHandlers({
  [05:32:32.934]             ...future.value <- local({
  [05:32:32.934]                 doFuture::registerDoFuture()
  [05:32:32.934]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.934]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.934]                   a <- NULL
  [05:32:32.934]                   ...future.env <- environment()
  [05:32:32.934]                   local({
  [05:32:32.934]                     for (name in names(...future.x_jj)) {
  [05:32:32.934]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.934]                         inherits = FALSE)
  [05:32:32.934]                     }
  [05:32:32.934]                   })
  [05:32:32.934]                   tryCatch({
  [05:32:32.934]                     plan_list <- future::plan()
  [05:32:32.934]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:32.934]                     plan_a <- future::plan("list")
  [05:32:32.934]                     str(plan_a)
  [05:32:32.934]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:32.934]                     message("foreach() - level 2 ...")
  [05:32:32.934]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:32.934]                       {
  [05:32:32.934]                         plan_list <- future::plan()
  [05:32:32.934]                         message(capture.output(print(plan_list)))
  [05:32:32.934]                         stopifnot(inherits(plan_list, "future"))
  [05:32:32.934]                         default <- getOption("future.plan", "sequential")
  [05:32:32.934]                         if (is.function(default)) 
  [05:32:32.934]                           default <- class(default)
  [05:32:32.934]                         stopifnot(inherits(plan_list, default))
  [05:32:32.934]                         plan_b <- future::plan("list")
  [05:32:32.934]                         str(plan_b)
  [05:32:32.934]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:32.934]                           inherits(plan_b[[1]], default))
  [05:32:32.934]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.934]                       }
  [05:32:32.934]                     message("foreach() - level 2 ... DONE")
  [05:32:32.934]                     y
  [05:32:32.934]                   }, error = identity)
  [05:32:32.934]                 })
  [05:32:32.934]             })
  [05:32:32.934]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:32.934]                 version = "1.8")
  [05:32:32.934]         }, condition = local({
  [05:32:32.934]             inherits <- base::inherits
  [05:32:32.934]             invokeRestart <- base::invokeRestart
  [05:32:32.934]             length <- base::length
  [05:32:32.934]             seq.int <- base::seq.int
  [05:32:32.934]             sys.calls <- base::sys.calls
  [05:32:32.934]             `[[` <- base::`[[`
  [05:32:32.934]             `+` <- base::`+`
  [05:32:32.934]             `<<-` <- base::`<<-`
  [05:32:32.934]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:32.934]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:32.934]                   3L)]
  [05:32:32.934]             }
  [05:32:32.934]             function(cond) {
  [05:32:32.934]                 if (inherits(cond, "error")) {
  [05:32:32.934]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.934]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:32.934]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:32.934]                     signaled = 0L)
  [05:32:32.934]                   signalCondition(cond)
  [05:32:32.934]                 }
  [05:32:32.934]                 else if (inherits(cond, "condition")) {
  [05:32:32.934]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:32.934]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:32.934]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:32.934]                   if (inherits(cond, "message")) {
  [05:32:32.934]                     if (!signal) 
  [05:32:32.934]                       invokeRestart("muffleMessage")
  [05:32:32.934]                   }
  [05:32:32.934]                   else if (inherits(cond, "warning")) {
  [05:32:32.934]                     if (!signal) 
  [05:32:32.934]                       invokeRestart("muffleWarning")
  [05:32:32.934]                   }
  [05:32:32.934]                   else {
  [05:32:32.934]                     if (!signal) {
  [05:32:32.934]                       restarts <- computeRestarts(cond)
  [05:32:32.934]                       for (restart in restarts) {
  [05:32:32.934]                         name <- restart$name
  [05:32:32.934]                         if (is.null(name)) 
  [05:32:32.934]                           next
  [05:32:32.934]                         if (!grepl("^muffle", name)) 
  [05:32:32.934]                           next
  [05:32:32.934]                         invokeRestart(restart)
  [05:32:32.934]                         break
  [05:32:32.934]                       }
  [05:32:32.934]                     }
  [05:32:32.934]                   }
  [05:32:32.934]                 }
  [05:32:32.934]             }
  [05:32:32.934]         }))
  [05:32:32.934]     }, error = function(ex) {
  [05:32:32.934]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:32.934]             version = "1.8"), class = "FutureResult")
  [05:32:32.934]     }, finally = {
  [05:32:32.934]         {
  [05:32:32.934]             {
  [05:32:32.934]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:32.934]             }
  [05:32:32.934]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:32.934]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:32.934]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:32.934]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:32.934]             {
  [05:32:32.934]                 if (substitute) 
  [05:32:32.934]                   expr <- substitute(expr)
  [05:32:32.934]                 if (is.function(workers)) 
  [05:32:32.934]                   workers <- workers()
  [05:32:32.934]                 workers <- as.integer(workers)
  [05:32:32.934]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:32.934]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:32.934]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.934]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:32.934]                     local = TRUE, label = label, ...))
  [05:32:32.934]                 }
  [05:32:32.934]                 oopts <- options(mc.cores = workers)
  [05:32:32.934]                 on.exit(options(oopts))
  [05:32:32.934]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:32.934]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.934]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:32.934]                   label = label, ...)
  [05:32:32.934]                 if (!future$lazy) 
  [05:32:32.934]                   future <- run(future)
  [05:32:32.934]                 invisible(future)
  [05:32:32.934]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:32.934]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:32:32.934]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [05:32:32.934]                 label = NULL, ...) 
  [05:32:32.934]             {
  [05:32:32.934]                 if (substitute) 
  [05:32:32.934]                   expr <- substitute(expr)
  [05:32:32.934]                 if (is.function(workers)) 
  [05:32:32.934]                   workers <- workers()
  [05:32:32.934]                 workers <- as.integer(workers)
  [05:32:32.934]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:32.934]                   workers >= 1)
  [05:32:32.934]                 if (workers == 1L) {
  [05:32:32.934]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:32.934]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:32.934]                     local = TRUE, label = label, ...))
  [05:32:32.934]                 }
  [05:32:32.934]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:32.934]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:32.934]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:32.934]                   globals = globals, persistent = persistent, 
  [05:32:32.934]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:32.934]                   label = label, ...)
  [05:32:32.934]                 if (!future$lazy) 
  [05:32:32.934]                   future <- run(future)
  [05:32:32.934]                 invisible(future)
  [05:32:32.934]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:32.934]         }
  [05:32:32.934]         options(...future.oldOptions)
  [05:32:32.934]     })
  [05:32:32.934]     if (is.na(TRUE)) {
  [05:32:32.934]     }
  [05:32:32.934]     else {
  [05:32:32.934]         sink(type = "output", split = FALSE)
  [05:32:32.934]         if (TRUE) {
  [05:32:32.934]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:32.934]         }
  [05:32:32.934]         else {
  [05:32:32.934]             ...future.result["stdout"] <- list(NULL)
  [05:32:32.934]         }
  [05:32:32.934]         close(...future.stdout)
  [05:32:32.934]         ...future.stdout <- NULL
  [05:32:32.934]     }
  [05:32:32.934]     ...future.result$conditions <- ...future.conditions
  [05:32:32.934]     ...future.result
  [05:32:32.934] }
  [05:32:32.941] requestCore(): workers = 2
  [05:32:32.961] MulticoreFuture started
  [05:32:32.962] Chunk #2 of 2 ... DONE
  [05:32:32.962] Launching 2 futures (chunks) ... DONE
  [05:32:32.963] - resolving futures
  [05:32:32.963]   - gathering results & relaying conditions (except errors)
  [05:32:32.963] resolve() on list ...
  [05:32:32.964]  recursive: 0
  [05:32:32.964]  length: 2
  [05:32:32.964] 
  [05:32:32.979] plan(): Setting new future strategy stack:
  [05:32:32.980] List of future strategies:
  [05:32:32.980] 1. multisession:
  [05:32:32.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, ...)
  [05:32:32.980]    - tweaked: FALSE
  [05:32:32.980]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:32.991] plan(): nbrOfWorkers() = 1
  [05:32:33.187] plan(): Setting new future strategy stack:
  [05:32:33.188] List of future strategies:
  [05:32:33.188] 1. multicore:
  [05:32:33.188]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:33.188]    - tweaked: FALSE
  [05:32:33.188]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.188] 2. multisession:
  [05:32:33.188]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.188]    - tweaked: FALSE
  [05:32:33.188]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.190] plan(): nbrOfWorkers() = 2
  [05:32:33.260] plan(): Setting new future strategy stack:
  [05:32:33.260] List of future strategies:
  [05:32:33.260] 1. multicore:
  [05:32:33.260]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:33.260]    - tweaked: FALSE
  [05:32:33.260]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.260] 2. multisession:
  [05:32:33.260]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.260]    - tweaked: FALSE
  [05:32:33.260]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.262] plan(): nbrOfWorkers() = 2
  [05:32:33.264] Future #2
  [05:32:33.267] signalConditions() ...
  [05:32:33.268]  - include = 'immediateCondition'
  [05:32:33.268]  - exclude = 
  [05:32:33.268]  - resignal = FALSE
  [05:32:33.269]  - Number of conditions: 134
  [05:32:33.269] signalConditions() ... done
  [05:32:33.270] signalConditions() ...
  [05:32:33.270]  - include = 'immediateCondition'
  [05:32:33.271]  - exclude = 
  [05:32:33.271]  - resignal = FALSE
  [05:32:33.271]  - Number of conditions: 134
  [05:32:33.272] signalConditions() ... done
  [05:32:33.272] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [05:32:33.273] - nx: 2
  [05:32:33.273] - relay: TRUE
  [05:32:33.273] - stdout: TRUE
  [05:32:33.274] - signal: TRUE
  [05:32:33.274] - resignal: FALSE
  [05:32:33.274] - force: FALSE
  [05:32:33.275] - relayed: [n=2] FALSE, FALSE
  [05:32:33.275] - queued futures: [n=2] FALSE, FALSE
  [05:32:33.275]  - until=1
  [05:32:33.276]  - relaying element #1
  [05:32:33.276] - relayed: [n=2] FALSE, FALSE
  [05:32:33.276] - queued futures: [n=2] FALSE, TRUE
  [05:32:33.277] signalConditionsASAP(NULL, pos=2) ... done
  [05:32:33.277]  length: 1 (resolved future 2)
  [05:32:33.378] Future #1
  [05:32:33.380] signalConditions() ...
  [05:32:33.381]  - include = 'immediateCondition'
  [05:32:33.381]  - exclude = 
  [05:32:33.381]  - resignal = FALSE
  [05:32:33.382]  - Number of conditions: 134
  [05:32:33.383] signalConditions() ... done
  [05:32:33.383] signalConditions() ...
  [05:32:33.383]  - include = 'immediateCondition'
  [05:32:33.384]  - exclude = 
  [05:32:33.384]  - resignal = FALSE
  [05:32:33.384]  - Number of conditions: 134
  [05:32:33.385] signalConditions() ... done
  [05:32:33.385] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:32:33.386] - nx: 2
  [05:32:33.386] - relay: TRUE
  [05:32:33.386] - stdout: TRUE
  [05:32:33.386] - signal: TRUE
  [05:32:33.387] - resignal: FALSE
  [05:32:33.387] - force: FALSE
  [05:32:33.387] - relayed: [n=2] FALSE, FALSE
  [05:32:33.388] - queued futures: [n=2] FALSE, TRUE
  [05:32:33.388]  - until=1
  [05:32:33.388]  - relaying element #1
  [05:32:33.389] signalConditions() ...
  [05:32:33.389]  - include = 'immediateCondition'
  [05:32:33.389]  - exclude = 
  [05:32:33.390]  - resignal = FALSE
  [05:32:33.390]  - Number of conditions: 134
  [05:32:33.391] signalConditions() ... 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"
  [05:32:33.391] signalConditions() ...
  [05:32:33.392]  - include = 'condition'
  [05:32:33.392]  - exclude = 
  [05:32:33.392]  - resignal = FALSE
  [05:32:33.393]  - Number of conditions: 134
  [05:32:33.393]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:33.393]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:32.926] doFuture() ...
  [05:32:33.394]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:32.944] - dummy globals (as locals): [1] 'b'
  [05:32:33.394]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:32.946] - R expression:
  [05:32:33.395]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:32.946] {
  [05:32:32.946]     doFuture::registerDoFuture()
  [05:32:32.946]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:32.946]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:32.946]         b <- NULL
  [05:32:32.946]         ...future.env <- environment()
  [05:32:32.946]         local({
  [05:32:32.946]             for (name in names(...future.x_jj)) {
  [05:32:32.946]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:32.946]                   inherits = FALSE)
  [05:32:32.946]             }
  [05:32:32.946]         })
  [05:32:32.946]         tryCatch({
  [05:32:32.946]             plan_list <- future::plan()
  [05:32:32.946]             message(capture.output(print(plan_list)))
  [05:32:32.946]             stopifnot(inherits(plan_list, "future"))
  [05:32:32.946]             default <- getOption("future.plan", "sequential")
  [05:32:32.946]             if (is.function(default)) 
  [05:32:32.946]                 default <- class(default)
  [05:32:32.946]             stopifnot(inherits(plan_list, default))
  [05:32:32.946]             plan_b <- future::plan("list")
  [05:32:32.946]             str(plan_b)
  [05:32:32.946]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:32.946]                 default))
  [05:32:32.946]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:32.946]         }, error = identity)
  [05:32:32.946]     })
  [05:32:32.946] }
  [05:32:33.396]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:32.947] - identifying globals and packages ...
  [05:32:33.396]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:32.948] getGlobalsAndPackages() ...
  [05:32:33.397]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:32.948] Searching for globals...
  [05:32:33.397]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:32.986] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:33.398]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:32.987] Searching for globals ... DONE
  [05:32:33.398]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:32.987] Resolving globals: FALSE
  [05:32:33.399]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:32.991] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [05:32:33.399]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:32.992] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.400]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:32.992] - packages: [1] 'utils'
  [05:32:33.400]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:32.993] getGlobalsAndPackages() ... DONE
  [05:32:33.400]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:32.993] List of 3
  [05:32:32.993]  $ ...future.x_ii: NULL
  [05:32:32.993]  $ a             : int 1
  [05:32:32.993]  $ plan_a        :List of 1
  [05:32:32.993]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:32.993]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:32.993]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:32.993]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:32.993]   .. ..- attr(*, "init")= logi TRUE
  [05:32:32.993]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:32.993]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:32.993]  - attr(*, "where")=List of 3
  [05:32:32.993]   ..$ ...future.x_ii:<environment: 0x556d9e662240> 
  [05:32:32.993]   ..$ a             :<environment: 0x556d9e4f2688> 
  [05:32:32.993]   ..$ plan_a        :<environment: 0x556d9e4f2688> 
  [05:32:32.993]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:32.993]  - attr(*, "resolved")= logi FALSE
  [05:32:32.993]  - attr(*, "total_size")= num 83544
  [05:32:33.401]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:33.092]   - R expression:
  [05:32:33.401]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:33.093] {
  [05:32:33.093]     doFuture::registerDoFuture()
  [05:32:33.093]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.093]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.093]         b <- NULL
  [05:32:33.093]         ...future.env <- environment()
  [05:32:33.093]         local({
  [05:32:33.093]             for (name in names(...future.x_jj)) {
  [05:32:33.093]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.093]                   inherits = FALSE)
  [05:32:33.093]             }
  [05:32:33.093]         })
  [05:32:33.093]         tryCatch({
  [05:32:33.093]             plan_list <- future::plan()
  [05:32:33.093]             message(capture.output(print(plan_list)))
  [05:32:33.093]             stopifnot(inherits(plan_list, "future"))
  [05:32:33.093]             default <- getOption("future.plan", "sequential")
  [05:32:33.093]             if (is.function(default)) 
  [05:32:33.093]                 default <- class(default)
  [05:32:33.093]             stopifnot(inherits(plan_list, default))
  [05:32:33.093]             plan_b <- future::plan("list")
  [05:32:33.093]             str(plan_b)
  [05:32:33.093]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:33.093]                 default))
  [05:32:33.093]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.093]         }, error = identity)
  [05:32:33.093]     })
  [05:32:33.093] }
  [05:32:33.402]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:33.094]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.402]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:33.094] List of 3
  [05:32:33.094]  $ ...future.x_ii: NULL
  [05:32:33.094]  $ a             : int 1
  [05:32:33.094]  $ plan_a        :List of 1
  [05:32:33.094]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:33.094]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:33.094]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:33.094]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:33.094]   .. ..- attr(*, "init")= logi TRUE
  [05:32:33.094]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:33.094]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:33.094]  - attr(*, "where")=List of 3
  [05:32:33.094]   ..$ ...future.x_ii:<environment: 0x556d9e662240> 
  [05:32:33.094]   ..$ a             :<environment: 0x556d9e4f2688> 
  [05:32:33.094]   ..$ plan_a        :<environment: 0x556d9e4f2688> 
  [05:32:33.094]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.094]  - attr(*, "resolved")= logi FALSE
  [05:32:33.094]  - attr(*, "total_size")= num 83544
  [05:32:33.403]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:33.106]   - packages: [2] 'doFuture', 'utils'
  [05:32:33.403]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:33.107] - identifying globals and packages ... DONE
  [05:32:33.404]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:33.108] Number of chunks: 1
  [05:32:33.404]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:33.108] Number of futures (= number of chunks): 1
  [05:32:33.405]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:33.109] Launching 1 futures (chunks) ...
  [05:32:33.405]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:33.109] Chunk #1 of 1 ...
  [05:32:33.406]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:33.110]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:33.406]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:33.110] getGlobalsAndPackages() ...
  [05:32:33.408]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:33.111] Searching for globals...
  [05:32:33.409]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:33.112] 
  [05:32:33.409]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:33.112] Searching for globals ... DONE
  [05:32:33.410]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:33.113] - globals: [0] <none>
  [05:32:33.410]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:33.113] getGlobalsAndPackages() ... DONE
  [05:32:33.411]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:33.113] 
  [05:32:33.411]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:33.114] 
  [05:32:33.412]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:33.114]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:33.412]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:33.115] getGlobalsAndPackages() ...
  [05:32:33.413]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:33.116] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.414]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:33.116] Resolving globals: FALSE
  [05:32:33.415]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:33.118] The total size of the 3 globals is 81.75 KiB (83712 bytes)
  [05:32:33.415]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:33.118] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.415]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:33.119] 
  [05:32:33.495]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:33.119] getGlobalsAndPackages() ... DONE
  [05:32:33.495]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:33.121] Chunk #1 of 1 ... DONE
  [05:32:33.496]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:33.121] Launching 1 futures (chunks) ... DONE
  [05:32:33.496]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:33.121] - resolving futures
  [05:32:33.497]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:33.122]   - gathering results & relaying conditions (except errors)
  [05:32:33.497]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:33.122] resolve() on list ...
  [05:32:33.498]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:33.123]  recursive: 0
  [05:32:33.498]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:33.123]  length: 1
  [05:32:33.498]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:33.123] 
  [05:32:33.499]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:33.125] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:33.499]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:33.125] Packages needed by future strategies (n = 0): <none>
  [05:32:33.500]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:33.131] {
  [05:32:33.131]     {
  [05:32:33.131]         ...future.startTime <- Sys.time()
  [05:32:33.131]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:33.131]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:33.131]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:33.131]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:33.131]             future.resolve.recursive = NULL, width = 80L)
  [05:32:33.131]         {
  [05:32:33.131]             {
  [05:32:33.131]                 {
  [05:32:33.131]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:33.131]                   version <- if (has_future) 
  [05:32:33.131]                     packageVersion("future")
  [05:32:33.131]                   else NULL
  [05:32:33.131]                   if (!has_future || version < "1.8.0") {
  [05:32:33.131]                     info <- c(r_version = gsub("R version ", 
  [05:32:33.131]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:33.131]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:33.131]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:33.131]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:33.131]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:33.131]                     info <- paste(info, collapse = "; ")
  [05:32:33.131]                     if (!has_future) {
  [05:32:33.131]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:33.131]                         info)
  [05:32:33.131]                     }
  [05:32:33.131]                     else {
  [05:32:33.131]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:33.131]                         info, version)
  [05:32:33.131]                     }
  [05:32:33.131]                     stop(msg)
  [05:32:33.131]                   }
  [05:32:33.131]                 }
  [05:32:33.131]                 local({
  [05:32:33.131]                   for (pkg in c("doFuture", "utils")) {
  [05:32:33.131]                     loadNamespace(pkg)
  [05:32:33.131]                     library(pkg, character.only = TRUE)
  [05:32:33.131]                   }
  [05:32:33.131]                 })
  [05:32:33.131]             }
  [05:32:33.131]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:33.131]         }
  [05:32:33.131]     }
  [05:32:33.131]     if (is.na(TRUE)) {
  [05:32:33.131]     }
  [05:32:33.131]     else {
  [05:32:33.131]         if (TRUE) {
  [05:32:33.131]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:33.131]         }
  [05:32:33.131]         else {
  [05:32:33.131]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:33.131]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:33.131]         }
  [05:32:33.131]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:33.131]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:33.131]             sink(type = "output", split = FALSE)
  [05:32:33.131]             close(...future.stdout)
  [05:32:33.131]         }, add = TRUE)
  [05:32:33.131]     }
  [05:32:33.131]     ...future.frame <- sys.nframe()
  [05:32:33.131]     ...future.conditions <- list()
  [05:32:33.131]     ...future.result <- tryCatch({
  [05:32:33.131]         withCallingHandlers({
  [05:32:33.131]             ...future.value <- local({
  [05:32:33.131]                 doFuture::registerDoFuture()
  [05:32:33.131]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.131]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.131]                   b <- NULL
  [05:32:33.131]                   ...future.env <- environment()
  [05:32:33.131]                   local({
  [05:32:33.131]                     for (name in names(...future.x_jj)) {
  [05:32:33.131]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.131]                         inherits = FALSE)
  [05:32:33.131]                     }
  [05:32:33.131]                   })
  [05:32:33.131]                   tryCatch({
  [05:32:33.131]                     plan_list <- future::plan()
  [05:32:33.131]                     message(capture.output(print(plan_list)))
  [05:32:33.131]                     stopifnot(inherits(plan_list, "future"))
  [05:32:33.131]                     default <- getOption("future.plan", "sequential")
  [05:32:33.131]                     if (is.function(default)) 
  [05:32:33.131]                       default <- class(default)
  [05:32:33.131]                     stopifnot(inherits(plan_list, default))
  [05:32:33.131]                     plan_b <- future::plan("list")
  [05:32:33.131]                     str(plan_b)
  [05:32:33.131]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.131]                       inherits(plan_b[[1]], default))
  [05:32:33.131]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.131]                   }, error = identity)
  [05:32:33.131]                 })
  [05:32:33.131]             })
  [05:32:33.131]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:33.131]                 version = "1.8")
  [05:32:33.131]         }, condition = local({
  [05:32:33.131]             inherits <- base::inherits
  [05:32:33.131]             invokeRestart <- base::invokeRestart
  [05:32:33.131]             length <- base::length
  [05:32:33.131]             seq.int <- base::seq.int
  [05:32:33.131]             sys.calls <- base::sys.calls
  [05:32:33.131]             `[[` <- base::`[[`
  [05:32:33.131]             `+` <- base::`+`
  [05:32:33.131]             `<<-` <- base::`<<-`
  [05:32:33.131]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:33.131]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:33.131]                   3L)]
  [05:32:33.131]             }
  [05:32:33.131]             function(cond) {
  [05:32:33.131]                 if (inherits(cond, "error")) {
  [05:32:33.131]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.131]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:33.131]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:33.131]                     signaled = 0L)
  [05:32:33.131]                   signalCondition(cond)
  [05:32:33.131]                 }
  [05:32:33.131]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:33.131]                 ))) {
  [05:32:33.131]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:33.131]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.131]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:33.131]                   if (inherits(cond, "message")) {
  [05:32:33.131]                     if (!signal) 
  [05:32:33.131]                       invokeRestart("muffleMessage")
  [05:32:33.131]                   }
  [05:32:33.131]                   else if (inherits(cond, "warning")) {
  [05:32:33.131]                     if (!signal) 
  [05:32:33.131]                       invokeRestart("muffleWarning")
  [05:32:33.131]                   }
  [05:32:33.131]                   else {
  [05:32:33.131]                     if (!signal) {
  [05:32:33.131]                       restarts <- computeRestarts(cond)
  [05:32:33.131]                       for (restart in restarts) {
  [05:32:33.131]                         name <- restart$name
  [05:32:33.131]                         if (is.null(name)) 
  [05:32:33.131]                           next
  [05:32:33.131]                         if (!grepl("^muffle", name)) 
  [05:32:33.131]                           next
  [05:32:33.131]                         invokeRestart(restart)
  [05:32:33.131]                         break
  [05:32:33.131]                       }
  [05:32:33.131]                     }
  [05:32:33.131]                   }
  [05:32:33.131]                 }
  [05:32:33.131]             }
  [05:32:33.131]         }))
  [05:32:33.131]     }, error = function(ex) {
  [05:32:33.131]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:33.131]             version = "1.8"), class = "FutureResult")
  [05:32:33.131]     }, finally = {
  [05:32:33.131]         {
  [05:32:33.131]             NULL
  [05:32:33.131]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:33.131]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.131]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:33.131]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:33.131]                 ...) 
  [05:32:33.131]             {
  [05:32:33.131]                 if (substitute) 
  [05:32:33.131]                   expr <- substitute(expr)
  [05:32:33.131]                 if (is.function(workers)) 
  [05:32:33.131]                   workers <- workers()
  [05:32:33.131]                 workers <- as.integer(workers)
  [05:32:33.131]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:33.131]                   workers >= 1)
  [05:32:33.131]                 if (workers == 1L) {
  [05:32:33.131]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:33.131]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:33.131]                     local = TRUE, label = label, ...))
  [05:32:33.131]                 }
  [05:32:33.131]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:33.131]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:33.131]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.131]                   globals = globals, persistent = persistent, 
  [05:32:33.131]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:33.131]                   label = label, ...)
  [05:32:33.131]                 if (!future$lazy) 
  [05:32:33.131]                   future <- run(future)
  [05:32:33.131]                 invisible(future)
  [05:32:33.131]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.131]         }
  [05:32:33.131]         options(...future.oldOptions)
  [05:32:33.131]     })
  [05:32:33.131]     if (is.na(TRUE)) {
  [05:32:33.131]     }
  [05:32:33.131]     else {
  [05:32:33.131]         sink(type = "output", split = FALSE)
  [05:32:33.131]         if (TRUE) {
  [05:32:33.131]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:33.131]         }
  [05:32:33.131]         else {
  [05:32:33.131]             ...future.result["stdout"] <- list(NULL)
  [05:32:33.131]         }
  [05:32:33.131]         close(...future.stdout)
  [05:32:33.131]         ...future.stdout <- NULL
  [05:32:33.131]     }
  [05:32:33.131]     ...future.result$conditions <- ...future.conditions
  [05:32:33.131]     ...future.result
  [05:32:33.131] }
  [05:32:33.500]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:33.137] plan(): Setting new future strategy stack:
  [05:32:33.501]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:33.137] List of future strategies:
  [05:32:33.137] 1. sequential:
  [05:32:33.137]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.137]    - tweaked: FALSE
  [05:32:33.137]    - call: NULL
  [05:32:33.501]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:33.139] plan(): nbrOfWorkers() = 1
  [05:32:33.502]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:33.152] plan(): Setting new future strategy stack:
  [05:32:33.502]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:33.153] List of future strategies:
  [05:32:33.153] 1. multisession:
  [05:32:33.153]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.153]    - tweaked: FALSE
  [05:32:33.153]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.503]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:33.154] plan(): nbrOfWorkers() = 1
  [05:32:33.503]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:33.155] SequentialFuture started (and completed)
  [05:32:33.504]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:33.155] signalConditions() ...
  [05:32:33.504]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:33.156]  - include = 'immediateCondition'
  [05:32:33.505]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:33.156]  - exclude = 
  [05:32:33.505]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:33.157]  - resignal = FALSE
  [05:32:33.505]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:33.157]  - Number of conditions: 3
  [05:32:33.506]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:33.157] signalConditions() ... done
  [05:32:33.506]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:33.158] Future #1
  [05:32:33.507]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:33.159] signalConditions() ...
  [05:32:33.507]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:33.159]  - include = 'immediateCondition'
  [05:32:33.508]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:33.159]  - exclude = 
  [05:32:33.508]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:33.160]  - resignal = FALSE
  [05:32:33.509]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:33.160]  - Number of conditions: 3
  [05:32:33.509]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:33.161] signalConditions() ... done
  [05:32:33.509]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:33.161] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:33.510]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:33.162] - nx: 1
  [05:32:33.510]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:33.162] - relay: TRUE
  [05:32:33.511]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:33.162] - stdout: TRUE
  [05:32:33.511]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:33.163] - signal: TRUE
  [05:32:33.512]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:33.163] - resignal: FALSE
  [05:32:33.512]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:33.164] - force: FALSE
  [05:32:33.513]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:33.164] - relayed: [n=1] FALSE
  [05:32:33.513]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:33.164] - queued futures: [n=1] FALSE
  [05:32:33.513]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:33.165]  - until=1
  [05:32:33.514]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:33.165]  - relaying element #1
  [05:32:33.514]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:33.166] signalConditions() ...
  [05:32:33.515]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:33.166]  - include = 'immediateCondition'
  [05:32:33.515]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:33.167]  - exclude = 
  [05:32:33.516]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:33.167]  - resignal = FALSE
  [05:32:33.516]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:33.168]  - Number of conditions: 3
  [05:32:33.516]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:33.168] signalConditions() ... done
  [05:32:33.517]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:33.169] signalConditions() ...
  [05:32:33.517]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:33.169]  - include = 'condition'
  [05:32:33.518]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:33.170]  - exclude = 
  [05:32:33.518]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:33.170]  - resignal = FALSE
  [05:32:33.518]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:33.170]  - Number of conditions: 3
  [05:32:33.519]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:33.171]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:33.519]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.520]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:33.171]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:33.520]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.520]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:33.172]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:33.521]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.521]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:33.173] signalConditions() ... done
  [05:32:33.522]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:33.173] - relayed: [n=1] TRUE
  [05:32:33.522]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:33.173] - queued futures: [n=1] TRUE
  [05:32:33.523]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:33.174] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:33.523]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:33.174]  length: 0 (resolved future 1)
  [05:32:33.523]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:33.175] Relaying remaining futures
  [05:32:33.524]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:33.175] signalConditionsASAP(NULL, pos=0) ...
  [05:32:33.524]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:33.176] - nx: 1
  [05:32:33.525]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:33.176] - relay: TRUE
  [05:32:33.525]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:33.176] - stdout: TRUE
  [05:32:33.526]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:33.177] - signal: TRUE
  [05:32:33.526]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:33.177] - resignal: FALSE
  [05:32:33.526]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:33.178] - force: FALSE
  [05:32:33.527]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:33.178] - relayed: [n=1] TRUE
  [05:32:33.527]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:33.179] - queued futures: [n=1] TRUE
  [05:32:33.528]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:33.528]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:33.179] - relayed: [n=1] TRUE
  [05:32:33.529]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:33.180] - queued futures: [n=1] TRUE
  [05:32:33.529]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:33.180] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:33.529]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:33.181] resolve() on list ... DONE
  [05:32:33.530]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:33.181] - collecting values of futures
  [05:32:33.530]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:33.182] signalConditions() ...
  [05:32:33.531]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:33.182]  - include = 'immediateCondition'
  [05:32:33.531]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:33.182]  - exclude = 
  [05:32:33.532]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:33.183]  - resignal = FALSE
  [05:32:33.532]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:33.183]  - Number of conditions: 3
  [05:32:33.532]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:33.184] signalConditions() ... done
  [05:32:33.533]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:33.184] - accumulating results
  [05:32:33.533]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:33.185] - processing errors (handler = 'stop')
  [05:32:33.534]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:33.186] - extracting results
  [05:32:33.534]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:33.186] doFuture() ... DONE
  [05:32:33.535]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:33.535] signalConditions() ... done
  [05:32:33.535] - relayed: [n=2] TRUE, FALSE
  [05:32:33.536] - queued futures: [n=2] TRUE, TRUE
  [05:32:33.536] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [05:32:33.536]  length: 0 (resolved future 1)
  [05:32:33.537] Relaying remaining futures
  [05:32:33.537] signalConditionsASAP(NULL, pos=0) ...
  [05:32:33.537] - nx: 2
  [05:32:33.538] - relay: TRUE
  [05:32:33.538] - stdout: TRUE
  [05:32:33.538] - signal: TRUE
  [05:32:33.551] - resignal: FALSE
  [05:32:33.551] - force: FALSE
  [05:32:33.552] - relayed: [n=2] TRUE, FALSE
  [05:32:33.552] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [05:32:33.552]  - relaying element #2
  [05:32:33.553] signalConditions() ...
  [05:32:33.553]  - include = 'immediateCondition'
  [05:32:33.554]  - exclude = 
  [05:32:33.554]  - resignal = FALSE
  [05:32:33.554]  - Number of conditions: 134
  [05:32:33.555] signalConditions() ... 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"
  [05:32:33.555] signalConditions() ...
  [05:32:33.556]  - include = 'condition'
  [05:32:33.556]  - exclude = 
  [05:32:33.556]  - resignal = FALSE
  [05:32:33.557]  - Number of conditions: 134
  [05:32:33.557]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:33.557]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:33.007] doFuture() ...
  [05:32:33.558]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:33.009] - dummy globals (as locals): [1] 'b'
  [05:32:33.558]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:33.011] - R expression:
  [05:32:33.559]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:33.011] {
  [05:32:33.011]     doFuture::registerDoFuture()
  [05:32:33.011]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.011]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.011]         b <- NULL
  [05:32:33.011]         ...future.env <- environment()
  [05:32:33.011]         local({
  [05:32:33.011]             for (name in names(...future.x_jj)) {
  [05:32:33.011]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.011]                   inherits = FALSE)
  [05:32:33.011]             }
  [05:32:33.011]         })
  [05:32:33.011]         tryCatch({
  [05:32:33.011]             plan_list <- future::plan()
  [05:32:33.011]             message(capture.output(print(plan_list)))
  [05:32:33.011]             stopifnot(inherits(plan_list, "future"))
  [05:32:33.011]             default <- getOption("future.plan", "sequential")
  [05:32:33.011]             if (is.function(default)) 
  [05:32:33.011]                 default <- class(default)
  [05:32:33.011]             stopifnot(inherits(plan_list, default))
  [05:32:33.011]             plan_b <- future::plan("list")
  [05:32:33.011]             str(plan_b)
  [05:32:33.011]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:33.011]                 default))
  [05:32:33.011]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.011]         }, error = identity)
  [05:32:33.011]     })
  [05:32:33.011] }
  [05:32:33.559]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:33.013] - identifying globals and packages ...
  [05:32:33.560]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:33.013] getGlobalsAndPackages() ...
  [05:32:33.560]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:33.014] Searching for globals...
  [05:32:33.560]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:33.151] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:33.561]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:33.152] Searching for globals ... DONE
  [05:32:33.561]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:33.152] Resolving globals: FALSE
  [05:32:33.562]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:33.154] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [05:32:33.562]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:33.154] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.563]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:33.155] - packages: [1] 'utils'
  [05:32:33.563]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:33.155] getGlobalsAndPackages() ... DONE
  [05:32:33.563]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:33.155] List of 3
  [05:32:33.155]  $ ...future.x_ii: NULL
  [05:32:33.155]  $ a             : int 2
  [05:32:33.155]  $ plan_a        :List of 1
  [05:32:33.155]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:33.155]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:33.155]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:33.155]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:33.155]   .. ..- attr(*, "init")= logi TRUE
  [05:32:33.155]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:33.155]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:33.155]  - attr(*, "where")=List of 3
  [05:32:33.155]   ..$ ...future.x_ii:<environment: 0x556d9e8eb230> 
  [05:32:33.155]   ..$ a             :<environment: 0x556d9e775608> 
  [05:32:33.155]   ..$ plan_a        :<environment: 0x556d9e775608> 
  [05:32:33.155]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.155]  - attr(*, "resolved")= logi FALSE
  [05:32:33.155]  - attr(*, "total_size")= num 83544
  [05:32:33.564]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:33.164]   - R expression:
  [05:32:33.579]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:33.164] {
  [05:32:33.164]     doFuture::registerDoFuture()
  [05:32:33.164]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.164]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.164]         b <- NULL
  [05:32:33.164]         ...future.env <- environment()
  [05:32:33.164]         local({
  [05:32:33.164]             for (name in names(...future.x_jj)) {
  [05:32:33.164]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.164]                   inherits = FALSE)
  [05:32:33.164]             }
  [05:32:33.164]         })
  [05:32:33.164]         tryCatch({
  [05:32:33.164]             plan_list <- future::plan()
  [05:32:33.164]             message(capture.output(print(plan_list)))
  [05:32:33.164]             stopifnot(inherits(plan_list, "future"))
  [05:32:33.164]             default <- getOption("future.plan", "sequential")
  [05:32:33.164]             if (is.function(default)) 
  [05:32:33.164]                 default <- class(default)
  [05:32:33.164]             stopifnot(inherits(plan_list, default))
  [05:32:33.164]             plan_b <- future::plan("list")
  [05:32:33.164]             str(plan_b)
  [05:32:33.164]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:33.164]                 default))
  [05:32:33.164]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.164]         }, error = identity)
  [05:32:33.164]     })
  [05:32:33.164] }
  [05:32:33.579]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:33.166]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.580]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:33.166] List of 3
  [05:32:33.166]  $ ...future.x_ii: NULL
  [05:32:33.166]  $ a             : int 2
  [05:32:33.166]  $ plan_a        :List of 1
  [05:32:33.166]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:33.166]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:33.166]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [05:32:33.166]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [05:32:33.166]   .. ..- attr(*, "init")= logi TRUE
  [05:32:33.166]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:33.166]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:33.166]  - attr(*, "where")=List of 3
  [05:32:33.166]   ..$ ...future.x_ii:<environment: 0x556d9e8eb230> 
  [05:32:33.166]   ..$ a             :<environment: 0x556d9e775608> 
  [05:32:33.166]   ..$ plan_a        :<environment: 0x556d9e775608> 
  [05:32:33.166]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.166]  - attr(*, "resolved")= logi FALSE
  [05:32:33.166]  - attr(*, "total_size")= num 83544
  [05:32:33.580]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:33.179]   - packages: [2] 'doFuture', 'utils'
  [05:32:33.580]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:33.180] - identifying globals and packages ... DONE
  [05:32:33.581]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:33.181] Number of chunks: 1
  [05:32:33.581]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:33.181] Number of futures (= number of chunks): 1
  [05:32:33.581]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:33.182] Launching 1 futures (chunks) ...
  [05:32:33.582]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:33.182] Chunk #1 of 1 ...
  [05:32:33.582]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:33.182]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:33.583]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:33.183] getGlobalsAndPackages() ...
  [05:32:33.583]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:33.183] Searching for globals...
  [05:32:33.584]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:33.184] 
  [05:32:33.584]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:33.185] Searching for globals ... DONE
  [05:32:33.585]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:33.185] - globals: [0] <none>
  [05:32:33.585]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:33.186] getGlobalsAndPackages() ... DONE
  [05:32:33.585]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:33.186] 
  [05:32:33.586]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:33.186] 
  [05:32:33.586]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:33.187]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:33.587]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [05:32:33.188] getGlobalsAndPackages() ...
  [05:32:33.587]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [05:32:33.188] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.588]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [05:32:33.189] Resolving globals: FALSE
  [05:32:33.588]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [05:32:33.191] The total size of the 3 globals is 81.75 KiB (83712 bytes)
  [05:32:33.588]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [05:32:33.191] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:33.589]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [05:32:33.192] 
  [05:32:33.589]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [05:32:33.192] getGlobalsAndPackages() ... DONE
  [05:32:33.590]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [05:32:33.193] Chunk #1 of 1 ... DONE
  [05:32:33.590]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [05:32:33.194] Launching 1 futures (chunks) ... DONE
  [05:32:33.591]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [05:32:33.194] - resolving futures
  [05:32:33.591]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [05:32:33.195]   - gathering results & relaying conditions (except errors)
  [05:32:33.591]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [05:32:33.195] resolve() on list ...
  [05:32:33.592]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:33.196]  recursive: 0
  [05:32:33.592]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:33.196]  length: 1
  [05:32:33.593]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:33.196] 
  [05:32:33.593]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:33.198] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:33.594]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:33.198] Packages needed by future strategies (n = 0): <none>
  [05:32:33.594]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:33.204] {
  [05:32:33.204]     {
  [05:32:33.204]         ...future.startTime <- Sys.time()
  [05:32:33.204]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:33.204]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:33.204]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:33.204]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:33.204]             future.resolve.recursive = NULL, width = 80L)
  [05:32:33.204]         {
  [05:32:33.204]             {
  [05:32:33.204]                 {
  [05:32:33.204]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:33.204]                   version <- if (has_future) 
  [05:32:33.204]                     packageVersion("future")
  [05:32:33.204]                   else NULL
  [05:32:33.204]                   if (!has_future || version < "1.8.0") {
  [05:32:33.204]                     info <- c(r_version = gsub("R version ", 
  [05:32:33.204]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:33.204]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:33.204]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:33.204]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:33.204]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:33.204]                     info <- paste(info, collapse = "; ")
  [05:32:33.204]                     if (!has_future) {
  [05:32:33.204]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:33.204]                         info)
  [05:32:33.204]                     }
  [05:32:33.204]                     else {
  [05:32:33.204]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:33.204]                         info, version)
  [05:32:33.204]                     }
  [05:32:33.204]                     stop(msg)
  [05:32:33.204]                   }
  [05:32:33.204]                 }
  [05:32:33.204]                 local({
  [05:32:33.204]                   for (pkg in c("doFuture", "utils")) {
  [05:32:33.204]                     loadNamespace(pkg)
  [05:32:33.204]                     library(pkg, character.only = TRUE)
  [05:32:33.204]                   }
  [05:32:33.204]                 })
  [05:32:33.204]             }
  [05:32:33.204]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:33.204]         }
  [05:32:33.204]     }
  [05:32:33.204]     if (is.na(TRUE)) {
  [05:32:33.204]     }
  [05:32:33.204]     else {
  [05:32:33.204]         if (TRUE) {
  [05:32:33.204]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:33.204]         }
  [05:32:33.204]         else {
  [05:32:33.204]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:33.204]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:33.204]         }
  [05:32:33.204]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:33.204]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:33.204]             sink(type = "output", split = FALSE)
  [05:32:33.204]             close(...future.stdout)
  [05:32:33.204]         }, add = TRUE)
  [05:32:33.204]     }
  [05:32:33.204]     ...future.frame <- sys.nframe()
  [05:32:33.204]     ...future.conditions <- list()
  [05:32:33.204]     ...future.result <- tryCatch({
  [05:32:33.204]         withCallingHandlers({
  [05:32:33.204]             ...future.value <- local({
  [05:32:33.204]                 doFuture::registerDoFuture()
  [05:32:33.204]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.204]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.204]                   b <- NULL
  [05:32:33.204]                   ...future.env <- environment()
  [05:32:33.204]                   local({
  [05:32:33.204]                     for (name in names(...future.x_jj)) {
  [05:32:33.204]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.204]                         inherits = FALSE)
  [05:32:33.204]                     }
  [05:32:33.204]                   })
  [05:32:33.204]                   tryCatch({
  [05:32:33.204]                     plan_list <- future::plan()
  [05:32:33.204]                     message(capture.output(print(plan_list)))
  [05:32:33.204]                     stopifnot(inherits(plan_list, "future"))
  [05:32:33.204]                     default <- getOption("future.plan", "sequential")
  [05:32:33.204]                     if (is.function(default)) 
  [05:32:33.204]                       default <- class(default)
  [05:32:33.204]                     stopifnot(inherits(plan_list, default))
  [05:32:33.204]                     plan_b <- future::plan("list")
  [05:32:33.204]                     str(plan_b)
  [05:32:33.204]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.204]                       inherits(plan_b[[1]], default))
  [05:32:33.204]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.204]                   }, error = identity)
  [05:32:33.204]                 })
  [05:32:33.204]             })
  [05:32:33.204]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:33.204]                 version = "1.8")
  [05:32:33.204]         }, condition = local({
  [05:32:33.204]             inherits <- base::inherits
  [05:32:33.204]             invokeRestart <- base::invokeRestart
  [05:32:33.204]             length <- base::length
  [05:32:33.204]             seq.int <- base::seq.int
  [05:32:33.204]             sys.calls <- base::sys.calls
  [05:32:33.204]             `[[` <- base::`[[`
  [05:32:33.204]             `+` <- base::`+`
  [05:32:33.204]             `<<-` <- base::`<<-`
  [05:32:33.204]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:33.204]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:33.204]                   3L)]
  [05:32:33.204]             }
  [05:32:33.204]             function(cond) {
  [05:32:33.204]                 if (inherits(cond, "error")) {
  [05:32:33.204]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.204]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:33.204]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:33.204]                     signaled = 0L)
  [05:32:33.204]                   signalCondition(cond)
  [05:32:33.204]                 }
  [05:32:33.204]                 else if (inherits(cond, c("condition", "immediateCondition"
  [05:32:33.204]                 ))) {
  [05:32:33.204]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [05:32:33.204]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.204]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:33.204]                   if (inherits(cond, "message")) {
  [05:32:33.204]                     if (!signal) 
  [05:32:33.204]                       invokeRestart("muffleMessage")
  [05:32:33.204]                   }
  [05:32:33.204]                   else if (inherits(cond, "warning")) {
  [05:32:33.204]                     if (!signal) 
  [05:32:33.204]                       invokeRestart("muffleWarning")
  [05:32:33.204]                   }
  [05:32:33.204]                   else {
  [05:32:33.204]                     if (!signal) {
  [05:32:33.204]                       restarts <- computeRestarts(cond)
  [05:32:33.204]                       for (restart in restarts) {
  [05:32:33.204]                         name <- restart$name
  [05:32:33.204]                         if (is.null(name)) 
  [05:32:33.204]                           next
  [05:32:33.204]                         if (!grepl("^muffle", name)) 
  [05:32:33.204]                           next
  [05:32:33.204]                         invokeRestart(restart)
  [05:32:33.204]                         break
  [05:32:33.204]                       }
  [05:32:33.204]                     }
  [05:32:33.204]                   }
  [05:32:33.204]                 }
  [05:32:33.204]             }
  [05:32:33.204]         }))
  [05:32:33.204]     }, error = function(ex) {
  [05:32:33.204]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:33.204]             version = "1.8"), class = "FutureResult")
  [05:32:33.204]     }, finally = {
  [05:32:33.204]         {
  [05:32:33.204]             NULL
  [05:32:33.204]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:33.204]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.204]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [05:32:33.204]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:33.204]                 ...) 
  [05:32:33.204]             {
  [05:32:33.204]                 if (substitute) 
  [05:32:33.204]                   expr <- substitute(expr)
  [05:32:33.204]                 if (is.function(workers)) 
  [05:32:33.204]                   workers <- workers()
  [05:32:33.204]                 workers <- as.integer(workers)
  [05:32:33.204]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [05:32:33.204]                   workers >= 1)
  [05:32:33.204]                 if (workers == 1L) {
  [05:32:33.204]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:33.204]                     lazy = TRUE, seed = seed, globals = globals, 
  [05:32:33.204]                     local = TRUE, label = label, ...))
  [05:32:33.204]                 }
  [05:32:33.204]                 workers <- ClusterRegistry("start", workers = workers)
  [05:32:33.204]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [05:32:33.204]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.204]                   globals = globals, persistent = persistent, 
  [05:32:33.204]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [05:32:33.204]                   label = label, ...)
  [05:32:33.204]                 if (!future$lazy) 
  [05:32:33.204]                   future <- run(future)
  [05:32:33.204]                 invisible(future)
  [05:32:33.204]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.204]         }
  [05:32:33.204]         options(...future.oldOptions)
  [05:32:33.204]     })
  [05:32:33.204]     if (is.na(TRUE)) {
  [05:32:33.204]     }
  [05:32:33.204]     else {
  [05:32:33.204]         sink(type = "output", split = FALSE)
  [05:32:33.204]         if (TRUE) {
  [05:32:33.204]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:33.204]         }
  [05:32:33.204]         else {
  [05:32:33.204]             ...future.result["stdout"] <- list(NULL)
  [05:32:33.204]         }
  [05:32:33.204]         close(...future.stdout)
  [05:32:33.204]         ...future.stdout <- NULL
  [05:32:33.204]     }
  [05:32:33.204]     ...future.result$conditions <- ...future.conditions
  [05:32:33.204]     ...future.result
  [05:32:33.204] }
  [05:32:33.611]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:33.210] plan(): Setting new future strategy stack:
  [05:32:33.611]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [05:32:33.210] List of future strategies:
  [05:32:33.210] 1. sequential:
  [05:32:33.210]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.210]    - tweaked: FALSE
  [05:32:33.210]    - call: NULL
  [05:32:33.612]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:33.211] plan(): nbrOfWorkers() = 1
  [05:32:33.612]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:33.225] plan(): Setting new future strategy stack:
  [05:32:33.613]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:33.225] List of future strategies:
  [05:32:33.225] 1. multisession:
  [05:32:33.225]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [05:32:33.225]    - tweaked: FALSE
  [05:32:33.225]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.613]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:33.227] plan(): nbrOfWorkers() = 1
  [05:32:33.614]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:33.228] SequentialFuture started (and completed)
  [05:32:33.614]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:33.228] signalConditions() ...
  [05:32:33.614]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:33.228]  - include = 'immediateCondition'
  [05:32:33.615]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:33.229]  - exclude = 
  [05:32:33.615]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:33.229]  - resignal = FALSE
  [05:32:33.616]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:33.230]  - Number of conditions: 3
  [05:32:33.616]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:33.230] signalConditions() ... done
  [05:32:33.617]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:33.231] Future #1
  [05:32:33.617]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:33.231] signalConditions() ...
  [05:32:33.618]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:33.232]  - include = 'immediateCondition'
  [05:32:33.618]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:33.232]  - exclude = 
  [05:32:33.618]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:33.233]  - resignal = FALSE
  [05:32:33.619]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:33.233]  - Number of conditions: 3
  [05:32:33.619]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:33.233] signalConditions() ... done
  [05:32:33.620]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:33.234] signalConditionsASAP(SequentialFuture, pos=1) ...
  [05:32:33.620]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:33.234] - nx: 1
  [05:32:33.621]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:33.235] - relay: TRUE
  [05:32:33.621]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:33.235] - stdout: TRUE
  [05:32:33.621]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:33.236] - signal: TRUE
  [05:32:33.622]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:33.236] - resignal: FALSE
  [05:32:33.622]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:33.236] - force: FALSE
  [05:32:33.623]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:33.237] - relayed: [n=1] FALSE
  [05:32:33.623]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:33.237] - queued futures: [n=1] FALSE
  [05:32:33.624]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:33.238]  - until=1
  [05:32:33.624]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05:32:33.238]  - relaying element #1
  [05:32:33.624]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [05:32:33.239] signalConditions() ...
  [05:32:33.625]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [05:32:33.239]  - include = 'immediateCondition'
  [05:32:33.625]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [05:32:33.240]  - exclude = 
  [05:32:33.626]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [05:32:33.240]  - resignal = FALSE
  [05:32:33.626]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [05:32:33.240]  - Number of conditions: 3
  [05:32:33.641]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [05:32:33.241] signalConditions() ... done
  [05:32:33.642]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [05:32:33.241] signalConditions() ...
  [05:32:33.642]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [05:32:33.242]  - include = 'condition'
  [05:32:33.643]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [05:32:33.242]  - exclude = 
  [05:32:33.643]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [05:32:33.243]  - resignal = FALSE
  [05:32:33.644]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [05:32:33.243]  - Number of conditions: 3
  [05:32:33.644]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [05:32:33.243]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [05:32:33.645]  - Condition #98: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.645]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [05:32:33.244]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:33.645]  - Condition #100: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.646]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [05:32:33.245]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:33.646]  - Condition #102: 'simpleMessage', 'message', 'condition'
  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
  [05:32:33.647]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [05:32:33.245] signalConditions() ... done
  [05:32:33.647]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [05:32:33.246] - relayed: [n=1] TRUE
  [05:32:33.648]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [05:32:33.246] - queued futures: [n=1] TRUE
  [05:32:33.648]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [05:32:33.246] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [05:32:33.648]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [05:32:33.247]  length: 0 (resolved future 1)
  [05:32:33.649]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [05:32:33.247] Relaying remaining futures
  [05:32:33.649]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [05:32:33.248] signalConditionsASAP(NULL, pos=0) ...
  [05:32:33.650]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [05:32:33.248] - nx: 1
  [05:32:33.650]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [05:32:33.249] - relay: TRUE
  [05:32:33.651]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [05:32:33.249] - stdout: TRUE
  [05:32:33.651]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [05:32:33.249] - signal: TRUE
  [05:32:33.651]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [05:32:33.250] - resignal: FALSE
  [05:32:33.652]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [05:32:33.250] - force: FALSE
  [05:32:33.652]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [05:32:33.251] - relayed: [n=1] TRUE
  [05:32:33.653]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [05:32:33.251] - queued futures: [n=1] TRUE
  [05:32:33.653]  - Condition #118: 'simpleMessage', 'message', 'condition'
   - flush all
  [05:32:33.654]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [05:32:33.252] - relayed: [n=1] TRUE
  [05:32:33.654]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [05:32:33.252] - queued futures: [n=1] TRUE
  [05:32:33.655]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [05:32:33.253] signalConditionsASAP(NULL, pos=0) ... done
  [05:32:33.655]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [05:32:33.253] resolve() on list ... DONE
  [05:32:33.655]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [05:32:33.254] - collecting values of futures
  [05:32:33.656]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [05:32:33.254] signalConditions() ...
  [05:32:33.656]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [05:32:33.255]  - include = 'immediateCondition'
  [05:32:33.657]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [05:32:33.255]  - exclude = 
  [05:32:33.657]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [05:32:33.255]  - resignal = FALSE
  [05:32:33.658]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [05:32:33.256]  - Number of conditions: 3
  [05:32:33.658]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [05:32:33.256] signalConditions() ... done
  [05:32:33.658]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [05:32:33.257] - accumulating results
  [05:32:33.659]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [05:32:33.258] - processing errors (handler = 'stop')
  [05:32:33.659]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [05:32:33.259] - extracting results
  [05:32:33.660]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [05:32:33.259] doFuture() ... DONE
  [05:32:33.660]  - Condition #134: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [05:32:33.661] signalConditions() ... done
  [05:32:33.661] - relayed: [n=2] TRUE, TRUE
  [05:32:33.661] - queued futures: [n=2] TRUE, TRUE
  [05:32:33.662] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [05:32:33.662] resolve() on list ... DONE
  [05:32:33.662] - collecting values of futures
  [05:32:33.663] signalConditions() ...
  [05:32:33.663]  - include = 'immediateCondition'
  [05:32:33.663]  - exclude = 
  [05:32:33.663]  - resignal = FALSE
  [05:32:33.664]  - Number of conditions: 134
  [05:32:33.664] signalConditions() ... done
  [05:32:33.665] signalConditions() ...
  [05:32:33.665]  - include = 'immediateCondition'
  [05:32:33.665]  - exclude = 
  [05:32:33.666]  - resignal = FALSE
  [05:32:33.666]  - Number of conditions: 134
  [05:32:33.667] signalConditions() ... done
  [05:32:33.667] - accumulating results
  [05:32:33.668] - processing errors (handler = 'stop')
  [05:32:33.668] - extracting results
  [05:32:33.669] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [05:32:33.670] plan(): Setting new future strategy stack:
  [05:32:33.670] List of future strategies:
  [05:32:33.670] 1. multicore:
  [05:32:33.670]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:33.670]    - tweaked: FALSE
  [05:32:33.670]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.670] 2. cluster:
  [05:32:33.670]    - 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, ...)
  [05:32:33.670]    - tweaked: FALSE
  [05:32:33.670]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.672] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [05:32:33.673] doFuture() ...
  [05:32:33.675] - dummy globals (as locals): [1] 'a'
  [05:32:33.675] - R expression:
  [05:32:33.676] {
  [05:32:33.676]     doFuture::registerDoFuture()
  [05:32:33.676]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.676]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.676]         a <- NULL
  [05:32:33.676]         ...future.env <- environment()
  [05:32:33.676]         local({
  [05:32:33.676]             for (name in names(...future.x_jj)) {
  [05:32:33.676]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.676]                   inherits = FALSE)
  [05:32:33.676]             }
  [05:32:33.676]         })
  [05:32:33.676]         tryCatch({
  [05:32:33.676]             plan_list <- future::plan()
  [05:32:33.676]             stopifnot(inherits(plan_list, strategy2))
  [05:32:33.676]             plan_a <- future::plan("list")
  [05:32:33.676]             str(plan_a)
  [05:32:33.676]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:33.676]             message("foreach() - level 2 ...")
  [05:32:33.676]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:33.676]                 {
  [05:32:33.676]                   plan_list <- future::plan()
  [05:32:33.676]                   message(capture.output(print(plan_list)))
  [05:32:33.676]                   stopifnot(inherits(plan_list, "future"))
  [05:32:33.676]                   default <- getOption("future.plan", "sequential")
  [05:32:33.676]                   if (is.function(default)) 
  [05:32:33.676]                     default <- class(default)
  [05:32:33.676]                   stopifnot(inherits(plan_list, default))
  [05:32:33.676]                   plan_b <- future::plan("list")
  [05:32:33.676]                   str(plan_b)
  [05:32:33.676]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.676]                     inherits(plan_b[[1]], default))
  [05:32:33.676]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.676]                 }
  [05:32:33.676]             message("foreach() - level 2 ... DONE")
  [05:32:33.676]             y
  [05:32:33.676]         }, error = identity)
  [05:32:33.676]     })
  [05:32:33.676] }
  [05:32:33.677] - identifying globals and packages ...
  [05:32:33.677] getGlobalsAndPackages() ...
  [05:32:33.678] Searching for globals...
  [05:32:33.711] - globals found: [31] '{', '::', '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', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [05:32:33.711] Searching for globals ... DONE
  [05:32:33.712] Resolving globals: FALSE
  [05:32:33.714] The total size of the 3 globals is 176 bytes (176 bytes)
  [05:32:33.715] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.715] - packages: [2] 'utils', 'foreach'
  [05:32:33.716] getGlobalsAndPackages() ... DONE
  [05:32:33.716] List of 3
  [05:32:33.716]  $ ...future.x_ii: NULL
  [05:32:33.716]  $ strategy2     : chr "cluster"
  [05:32:33.716]  $ bs            : int [1:3] 3 2 1
  [05:32:33.716]  - attr(*, "where")=List of 3
  [05:32:33.716]   ..$ ...future.x_ii:<environment: 0x556d9d629760> 
  [05:32:33.716]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:33.716]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:33.716]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.716]  - attr(*, "resolved")= logi FALSE
  [05:32:33.716]  - attr(*, "total_size")= num 176
  [05:32:33.730]   - R expression:
  [05:32:33.730] {
  [05:32:33.730]     doFuture::registerDoFuture()
  [05:32:33.730]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.730]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.730]         a <- NULL
  [05:32:33.730]         ...future.env <- environment()
  [05:32:33.730]         local({
  [05:32:33.730]             for (name in names(...future.x_jj)) {
  [05:32:33.730]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.730]                   inherits = FALSE)
  [05:32:33.730]             }
  [05:32:33.730]         })
  [05:32:33.730]         tryCatch({
  [05:32:33.730]             plan_list <- future::plan()
  [05:32:33.730]             stopifnot(inherits(plan_list, strategy2))
  [05:32:33.730]             plan_a <- future::plan("list")
  [05:32:33.730]             str(plan_a)
  [05:32:33.730]             stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:33.730]             message("foreach() - level 2 ...")
  [05:32:33.730]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:33.730]                 {
  [05:32:33.730]                   plan_list <- future::plan()
  [05:32:33.730]                   message(capture.output(print(plan_list)))
  [05:32:33.730]                   stopifnot(inherits(plan_list, "future"))
  [05:32:33.730]                   default <- getOption("future.plan", "sequential")
  [05:32:33.730]                   if (is.function(default)) 
  [05:32:33.730]                     default <- class(default)
  [05:32:33.730]                   stopifnot(inherits(plan_list, default))
  [05:32:33.730]                   plan_b <- future::plan("list")
  [05:32:33.730]                   str(plan_b)
  [05:32:33.730]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.730]                     inherits(plan_b[[1]], default))
  [05:32:33.730]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.730]                 }
  [05:32:33.730]             message("foreach() - level 2 ... DONE")
  [05:32:33.730]             y
  [05:32:33.730]         }, error = identity)
  [05:32:33.730]     })
  [05:32:33.730] }
  [05:32:33.731]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.732] List of 3
  [05:32:33.732]  $ ...future.x_ii: NULL
  [05:32:33.732]  $ strategy2     : chr "cluster"
  [05:32:33.732]  $ bs            : int [1:3] 3 2 1
  [05:32:33.732]  - attr(*, "where")=List of 3
  [05:32:33.732]   ..$ ...future.x_ii:<environment: 0x556d9d629760> 
  [05:32:33.732]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [05:32:33.732]   ..$ bs            :<environment: R_GlobalEnv> 
  [05:32:33.732]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.732]  - attr(*, "resolved")= logi FALSE
  [05:32:33.732]  - attr(*, "total_size")= num 176
  [05:32:33.742]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [05:32:33.742] - identifying globals and packages ... DONE
  [05:32:33.743] Number of chunks: 2
  [05:32:33.744] Number of futures (= number of chunks): 2
  [05:32:33.744] Launching 2 futures (chunks) ...
  [05:32:33.744] Chunk #1 of 2 ...
  [05:32:33.745]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:33.745] getGlobalsAndPackages() ...
  [05:32:33.745] Searching for globals...
  [05:32:33.746] 
  [05:32:33.746] Searching for globals ... DONE
  [05:32:33.747] - globals: [0] <none>
  [05:32:33.747] getGlobalsAndPackages() ... DONE
  [05:32:33.747] 
  [05:32:33.747] 
  [05:32:33.748]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:33.749] getGlobalsAndPackages() ...
  [05:32:33.749] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.749] Resolving globals: FALSE
  [05:32:33.750] The total size of the 3 globals is 232 bytes (232 bytes)
  [05:32:33.751] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.751] 
  [05:32:33.751] getGlobalsAndPackages() ... DONE
  [05:32:33.753] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:33.754] Packages needed by future strategies (n = 1): 'future'
  [05:32:33.759] {
  [05:32:33.759]     {
  [05:32:33.759]         ...future.startTime <- Sys.time()
  [05:32:33.759]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:33.759]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:33.759]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:33.759]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:33.759]             future.resolve.recursive = NULL, width = 80L)
  [05:32:33.759]         {
  [05:32:33.759]             {
  [05:32:33.759]                 {
  [05:32:33.759]                   {
  [05:32:33.759]                     has_future <- requireNamespace("future", 
  [05:32:33.759]                       quietly = TRUE)
  [05:32:33.759]                     version <- if (has_future) 
  [05:32:33.759]                       packageVersion("future")
  [05:32:33.759]                     else NULL
  [05:32:33.759]                     if (!has_future || version < "1.8.0") {
  [05:32:33.759]                       info <- c(r_version = gsub("R version ", 
  [05:32:33.759]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:33.759]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:33.759]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:33.759]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:33.759]                       info <- sprintf("%s: %s", names(info), 
  [05:32:33.759]                         info)
  [05:32:33.759]                       info <- paste(info, collapse = "; ")
  [05:32:33.759]                       if (!has_future) {
  [05:32:33.759]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:33.759]                           info)
  [05:32:33.759]                       }
  [05:32:33.759]                       else {
  [05:32:33.759]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:33.759]                           info, version)
  [05:32:33.759]                       }
  [05:32:33.759]                       stop(msg)
  [05:32:33.759]                     }
  [05:32:33.759]                   }
  [05:32:33.759]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:33.759]                   options(mc.cores = 1L)
  [05:32:33.759]                 }
  [05:32:33.759]                 local({
  [05:32:33.759]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:33.759]                   "future")) {
  [05:32:33.759]                     loadNamespace(pkg)
  [05:32:33.759]                     library(pkg, character.only = TRUE)
  [05:32:33.759]                   }
  [05:32:33.759]                 })
  [05:32:33.759]             }
  [05:32:33.759]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:33.759]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.759]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:33.759]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:33.759]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:33.759]                 ...) 
  [05:32:33.759]             {
  [05:32:33.759]                 if (substitute) 
  [05:32:33.759]                   expr <- substitute(expr)
  [05:32:33.759]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:33.759]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.759]                   globals = globals, persistent = persistent, 
  [05:32:33.759]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:33.759]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:33.759]                   label = label, ...)
  [05:32:33.759]                 if (!future$lazy) 
  [05:32:33.759]                   future <- run(future)
  [05:32:33.759]                 invisible(future)
  [05:32:33.759]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.759]         }
  [05:32:33.759]     }
  [05:32:33.759]     if (is.na(TRUE)) {
  [05:32:33.759]     }
  [05:32:33.759]     else {
  [05:32:33.759]         if (TRUE) {
  [05:32:33.759]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:33.759]         }
  [05:32:33.759]         else {
  [05:32:33.759]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:33.759]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:33.759]         }
  [05:32:33.759]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:33.759]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:33.759]             sink(type = "output", split = FALSE)
  [05:32:33.759]             close(...future.stdout)
  [05:32:33.759]         }, add = TRUE)
  [05:32:33.759]     }
  [05:32:33.759]     ...future.frame <- sys.nframe()
  [05:32:33.759]     ...future.conditions <- list()
  [05:32:33.759]     ...future.result <- tryCatch({
  [05:32:33.759]         withCallingHandlers({
  [05:32:33.759]             ...future.value <- local({
  [05:32:33.759]                 doFuture::registerDoFuture()
  [05:32:33.759]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.759]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.759]                   a <- NULL
  [05:32:33.759]                   ...future.env <- environment()
  [05:32:33.759]                   local({
  [05:32:33.759]                     for (name in names(...future.x_jj)) {
  [05:32:33.759]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.759]                         inherits = FALSE)
  [05:32:33.759]                     }
  [05:32:33.759]                   })
  [05:32:33.759]                   tryCatch({
  [05:32:33.759]                     plan_list <- future::plan()
  [05:32:33.759]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:33.759]                     plan_a <- future::plan("list")
  [05:32:33.759]                     str(plan_a)
  [05:32:33.759]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:33.759]                     message("foreach() - level 2 ...")
  [05:32:33.759]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:33.759]                       {
  [05:32:33.759]                         plan_list <- future::plan()
  [05:32:33.759]                         message(capture.output(print(plan_list)))
  [05:32:33.759]                         stopifnot(inherits(plan_list, "future"))
  [05:32:33.759]                         default <- getOption("future.plan", "sequential")
  [05:32:33.759]                         if (is.function(default)) 
  [05:32:33.759]                           default <- class(default)
  [05:32:33.759]                         stopifnot(inherits(plan_list, default))
  [05:32:33.759]                         plan_b <- future::plan("list")
  [05:32:33.759]                         str(plan_b)
  [05:32:33.759]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.759]                           inherits(plan_b[[1]], default))
  [05:32:33.759]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.759]                       }
  [05:32:33.759]                     message("foreach() - level 2 ... DONE")
  [05:32:33.759]                     y
  [05:32:33.759]                   }, error = identity)
  [05:32:33.759]                 })
  [05:32:33.759]             })
  [05:32:33.759]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:33.759]                 version = "1.8")
  [05:32:33.759]         }, condition = local({
  [05:32:33.759]             inherits <- base::inherits
  [05:32:33.759]             invokeRestart <- base::invokeRestart
  [05:32:33.759]             length <- base::length
  [05:32:33.759]             seq.int <- base::seq.int
  [05:32:33.759]             sys.calls <- base::sys.calls
  [05:32:33.759]             `[[` <- base::`[[`
  [05:32:33.759]             `+` <- base::`+`
  [05:32:33.759]             `<<-` <- base::`<<-`
  [05:32:33.759]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:33.759]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:33.759]                   3L)]
  [05:32:33.759]             }
  [05:32:33.759]             function(cond) {
  [05:32:33.759]                 if (inherits(cond, "error")) {
  [05:32:33.759]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.759]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:33.759]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:33.759]                     signaled = 0L)
  [05:32:33.759]                   signalCondition(cond)
  [05:32:33.759]                 }
  [05:32:33.759]                 else if (inherits(cond, "condition")) {
  [05:32:33.759]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:33.759]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.759]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:33.759]                   if (inherits(cond, "message")) {
  [05:32:33.759]                     if (!signal) 
  [05:32:33.759]                       invokeRestart("muffleMessage")
  [05:32:33.759]                   }
  [05:32:33.759]                   else if (inherits(cond, "warning")) {
  [05:32:33.759]                     if (!signal) 
  [05:32:33.759]                       invokeRestart("muffleWarning")
  [05:32:33.759]                   }
  [05:32:33.759]                   else {
  [05:32:33.759]                     if (!signal) {
  [05:32:33.759]                       restarts <- computeRestarts(cond)
  [05:32:33.759]                       for (restart in restarts) {
  [05:32:33.759]                         name <- restart$name
  [05:32:33.759]                         if (is.null(name)) 
  [05:32:33.759]                           next
  [05:32:33.759]                         if (!grepl("^muffle", name)) 
  [05:32:33.759]                           next
  [05:32:33.759]                         invokeRestart(restart)
  [05:32:33.759]                         break
  [05:32:33.759]                       }
  [05:32:33.759]                     }
  [05:32:33.759]                   }
  [05:32:33.759]                 }
  [05:32:33.759]             }
  [05:32:33.759]         }))
  [05:32:33.759]     }, error = function(ex) {
  [05:32:33.759]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:33.759]             version = "1.8"), class = "FutureResult")
  [05:32:33.759]     }, finally = {
  [05:32:33.759]         {
  [05:32:33.759]             {
  [05:32:33.759]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:33.759]             }
  [05:32:33.759]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:33.759]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.759]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:33.759]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:33.759]             {
  [05:32:33.759]                 if (substitute) 
  [05:32:33.759]                   expr <- substitute(expr)
  [05:32:33.759]                 if (is.function(workers)) 
  [05:32:33.759]                   workers <- workers()
  [05:32:33.759]                 workers <- as.integer(workers)
  [05:32:33.759]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:33.759]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:33.759]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:33.759]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:33.759]                     local = TRUE, label = label, ...))
  [05:32:33.759]                 }
  [05:32:33.759]                 oopts <- options(mc.cores = workers)
  [05:32:33.759]                 on.exit(options(oopts))
  [05:32:33.759]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:33.759]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.759]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:33.759]                   label = label, ...)
  [05:32:33.759]                 if (!future$lazy) 
  [05:32:33.759]                   future <- run(future)
  [05:32:33.759]                 invisible(future)
  [05:32:33.759]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:33.759]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:32:33.759]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [05:32:33.759]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:33.759]                 label = NULL, ...) 
  [05:32:33.759]             {
  [05:32:33.759]                 if (substitute) 
  [05:32:33.759]                   expr <- substitute(expr)
  [05:32:33.759]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:33.759]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.759]                   globals = globals, persistent = persistent, 
  [05:32:33.759]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:33.759]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:33.759]                   label = label, ...)
  [05:32:33.759]                 if (!future$lazy) 
  [05:32:33.759]                   future <- run(future)
  [05:32:33.759]                 invisible(future)
  [05:32:33.759]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.759]         }
  [05:32:33.759]         options(...future.oldOptions)
  [05:32:33.759]     })
  [05:32:33.759]     if (is.na(TRUE)) {
  [05:32:33.759]     }
  [05:32:33.759]     else {
  [05:32:33.759]         sink(type = "output", split = FALSE)
  [05:32:33.759]         if (TRUE) {
  [05:32:33.759]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:33.759]         }
  [05:32:33.759]         else {
  [05:32:33.759]             ...future.result["stdout"] <- list(NULL)
  [05:32:33.759]         }
  [05:32:33.759]         close(...future.stdout)
  [05:32:33.759]         ...future.stdout <- NULL
  [05:32:33.759]     }
  [05:32:33.759]     ...future.result$conditions <- ...future.conditions
  [05:32:33.759]     ...future.result
  [05:32:33.759] }
  [05:32:33.764] requestCore(): workers = 2
  [05:32:33.768] MulticoreFuture started
  [05:32:33.769] Chunk #1 of 2 ... DONE
  [05:32:33.769] Chunk #2 of 2 ...
  [05:32:33.769]  - Finding globals in 'args_list' chunk #2 ...
  [05:32:33.770] getGlobalsAndPackages() ...
  [05:32:33.770] Searching for globals...
  [05:32:33.771] 
  [05:32:33.772] Searching for globals ... DONE
  [05:32:33.772] - globals: [0] <none>
  [05:32:33.772] getGlobalsAndPackages() ... DONE
  [05:32:33.773] 
  [05:32:33.773] 
  [05:32:33.774]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [05:32:33.775] getGlobalsAndPackages() ...
  [05:32:33.776] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.776] Resolving globals: FALSE
  [05:32:33.778] The total size of the 3 globals is 232 bytes (232 bytes)
  [05:32:33.778] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [05:32:33.779] 
  [05:32:33.779] getGlobalsAndPackages() ... DONE
  [05:32:33.782] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [05:32:33.782] Packages needed by future strategies (n = 1): 'future'
  [05:32:33.791] plan(): Setting new future strategy stack:
  [05:32:33.792] List of future strategies:
  [05:32:33.792] 1. cluster:
  [05:32:33.792]    - 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, ...)
  [05:32:33.792]    - tweaked: FALSE
  [05:32:33.792]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.789] {
  [05:32:33.789]     {
  [05:32:33.789]         ...future.startTime <- Sys.time()
  [05:32:33.789]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:33.789]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:33.789]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:33.789]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:33.789]             future.resolve.recursive = NULL, width = 80L)
  [05:32:33.789]         {
  [05:32:33.789]             {
  [05:32:33.789]                 {
  [05:32:33.789]                   {
  [05:32:33.789]                     has_future <- requireNamespace("future", 
  [05:32:33.789]                       quietly = TRUE)
  [05:32:33.789]                     version <- if (has_future) 
  [05:32:33.789]                       packageVersion("future")
  [05:32:33.789]                     else NULL
  [05:32:33.789]                     if (!has_future || version < "1.8.0") {
  [05:32:33.789]                       info <- c(r_version = gsub("R version ", 
  [05:32:33.789]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:33.789]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:33.789]                         os = paste(Sys.info()[c("sysname", "release", 
  [05:32:33.789]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:33.789]                       info <- sprintf("%s: %s", names(info), 
  [05:32:33.789]                         info)
  [05:32:33.789]                       info <- paste(info, collapse = "; ")
  [05:32:33.789]                       if (!has_future) {
  [05:32:33.789]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:33.789]                           info)
  [05:32:33.789]                       }
  [05:32:33.789]                       else {
  [05:32:33.789]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:33.789]                           info, version)
  [05:32:33.789]                       }
  [05:32:33.789]                       stop(msg)
  [05:32:33.789]                     }
  [05:32:33.789]                   }
  [05:32:33.789]                   ...future.mc.cores.old <- getOption("mc.cores")
  [05:32:33.789]                   options(mc.cores = 1L)
  [05:32:33.789]                 }
  [05:32:33.789]                 local({
  [05:32:33.789]                   for (pkg in c("doFuture", "utils", "foreach", 
  [05:32:33.789]                   "future")) {
  [05:32:33.789]                     loadNamespace(pkg)
  [05:32:33.789]                     library(pkg, character.only = TRUE)
  [05:32:33.789]                   }
  [05:32:33.789]                 })
  [05:32:33.789]             }
  [05:32:33.789]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:33.789]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.789]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:33.789]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:33.789]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:33.789]                 ...) 
  [05:32:33.789]             {
  [05:32:33.789]                 if (substitute) 
  [05:32:33.789]                   expr <- substitute(expr)
  [05:32:33.789]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:33.789]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.789]                   globals = globals, persistent = persistent, 
  [05:32:33.789]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:33.789]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:33.789]                   label = label, ...)
  [05:32:33.789]                 if (!future$lazy) 
  [05:32:33.789]                   future <- run(future)
  [05:32:33.789]                 invisible(future)
  [05:32:33.789]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.789]         }
  [05:32:33.789]     }
  [05:32:33.789]     if (is.na(TRUE)) {
  [05:32:33.789]     }
  [05:32:33.789]     else {
  [05:32:33.789]         if (TRUE) {
  [05:32:33.789]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:33.789]         }
  [05:32:33.789]         else {
  [05:32:33.789]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:33.789]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:33.789]         }
  [05:32:33.789]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:33.789]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:33.789]             sink(type = "output", split = FALSE)
  [05:32:33.789]             close(...future.stdout)
  [05:32:33.789]         }, add = TRUE)
  [05:32:33.789]     }
  [05:32:33.789]     ...future.frame <- sys.nframe()
  [05:32:33.789]     ...future.conditions <- list()
  [05:32:33.789]     ...future.result <- tryCatch({
  [05:32:33.789]         withCallingHandlers({
  [05:32:33.789]             ...future.value <- local({
  [05:32:33.789]                 doFuture::registerDoFuture()
  [05:32:33.789]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.789]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.789]                   a <- NULL
  [05:32:33.789]                   ...future.env <- environment()
  [05:32:33.789]                   local({
  [05:32:33.789]                     for (name in names(...future.x_jj)) {
  [05:32:33.789]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.789]                         inherits = FALSE)
  [05:32:33.789]                     }
  [05:32:33.789]                   })
  [05:32:33.789]                   tryCatch({
  [05:32:33.789]                     plan_list <- future::plan()
  [05:32:33.789]                     stopifnot(inherits(plan_list, strategy2))
  [05:32:33.789]                     plan_a <- future::plan("list")
  [05:32:33.789]                     str(plan_a)
  [05:32:33.789]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [05:32:33.789]                     message("foreach() - level 2 ...")
  [05:32:33.789]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [05:32:33.789]                       {
  [05:32:33.789]                         plan_list <- future::plan()
  [05:32:33.789]                         message(capture.output(print(plan_list)))
  [05:32:33.789]                         stopifnot(inherits(plan_list, "future"))
  [05:32:33.789]                         default <- getOption("future.plan", "sequential")
  [05:32:33.789]                         if (is.function(default)) 
  [05:32:33.789]                           default <- class(default)
  [05:32:33.789]                         stopifnot(inherits(plan_list, default))
  [05:32:33.789]                         plan_b <- future::plan("list")
  [05:32:33.789]                         str(plan_b)
  [05:32:33.789]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:33.789]                           inherits(plan_b[[1]], default))
  [05:32:33.789]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.789]                       }
  [05:32:33.789]                     message("foreach() - level 2 ... DONE")
  [05:32:33.789]                     y
  [05:32:33.789]                   }, error = identity)
  [05:32:33.789]                 })
  [05:32:33.789]             })
  [05:32:33.789]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:33.789]                 version = "1.8")
  [05:32:33.789]         }, condition = local({
  [05:32:33.789]             inherits <- base::inherits
  [05:32:33.789]             invokeRestart <- base::invokeRestart
  [05:32:33.789]             length <- base::length
  [05:32:33.789]             seq.int <- base::seq.int
  [05:32:33.789]             sys.calls <- base::sys.calls
  [05:32:33.789]             `[[` <- base::`[[`
  [05:32:33.789]             `+` <- base::`+`
  [05:32:33.789]             `<<-` <- base::`<<-`
  [05:32:33.789]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:33.789]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:33.789]                   3L)]
  [05:32:33.789]             }
  [05:32:33.789]             function(cond) {
  [05:32:33.789]                 if (inherits(cond, "error")) {
  [05:32:33.789]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.789]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:33.789]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:33.789]                     signaled = 0L)
  [05:32:33.789]                   signalCondition(cond)
  [05:32:33.789]                 }
  [05:32:33.789]                 else if (inherits(cond, "condition")) {
  [05:32:33.789]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:33.789]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:33.789]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:33.789]                   if (inherits(cond, "message")) {
  [05:32:33.789]                     if (!signal) 
  [05:32:33.789]                       invokeRestart("muffleMessage")
  [05:32:33.789]                   }
  [05:32:33.789]                   else if (inherits(cond, "warning")) {
  [05:32:33.789]                     if (!signal) 
  [05:32:33.789]                       invokeRestart("muffleWarning")
  [05:32:33.789]                   }
  [05:32:33.789]                   else {
  [05:32:33.789]                     if (!signal) {
  [05:32:33.789]                       restarts <- computeRestarts(cond)
  [05:32:33.789]                       for (restart in restarts) {
  [05:32:33.789]                         name <- restart$name
  [05:32:33.789]                         if (is.null(name)) 
  [05:32:33.789]                           next
  [05:32:33.789]                         if (!grepl("^muffle", name)) 
  [05:32:33.789]                           next
  [05:32:33.789]                         invokeRestart(restart)
  [05:32:33.789]                         break
  [05:32:33.789]                       }
  [05:32:33.789]                     }
  [05:32:33.789]                   }
  [05:32:33.789]                 }
  [05:32:33.789]             }
  [05:32:33.789]         }))
  [05:32:33.789]     }, error = function(ex) {
  [05:32:33.789]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:33.789]             version = "1.8"), class = "FutureResult")
  [05:32:33.789]     }, finally = {
  [05:32:33.789]         {
  [05:32:33.789]             {
  [05:32:33.789]                 options(mc.cores = ...future.mc.cores.old)
  [05:32:33.789]             }
  [05:32:33.789]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [05:32:33.789]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:33.789]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [05:32:33.789]                 earlySignal = FALSE, label = NULL, ...) 
  [05:32:33.789]             {
  [05:32:33.789]                 if (substitute) 
  [05:32:33.789]                   expr <- substitute(expr)
  [05:32:33.789]                 if (is.function(workers)) 
  [05:32:33.789]                   workers <- workers()
  [05:32:33.789]                 workers <- as.integer(workers)
  [05:32:33.789]                 stop_if_not(is.finite(workers), workers >= 1L)
  [05:32:33.789]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [05:32:33.789]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [05:32:33.789]                     lazy = lazy, seed = seed, globals = globals, 
  [05:32:33.789]                     local = TRUE, label = label, ...))
  [05:32:33.789]                 }
  [05:32:33.789]                 oopts <- options(mc.cores = workers)
  [05:32:33.789]                 on.exit(options(oopts))
  [05:32:33.789]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [05:32:33.789]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.789]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [05:32:33.789]                   label = label, ...)
  [05:32:33.789]                 if (!future$lazy) 
  [05:32:33.789]                   future <- run(future)
  [05:32:33.789]                 invisible(future)
  [05:32:33.789]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [05:32:33.789]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [05:32:33.789]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [05:32:33.789]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:33.789]                 label = NULL, ...) 
  [05:32:33.789]             {
  [05:32:33.789]                 if (substitute) 
  [05:32:33.789]                   expr <- substitute(expr)
  [05:32:33.789]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:33.789]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:33.789]                   globals = globals, persistent = persistent, 
  [05:32:33.789]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:33.789]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:33.789]                   label = label, ...)
  [05:32:33.789]                 if (!future$lazy) 
  [05:32:33.789]                   future <- run(future)
  [05:32:33.789]                 invisible(future)
  [05:32:33.789]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:33.789]         }
  [05:32:33.789]         options(...future.oldOptions)
  [05:32:33.789]     })
  [05:32:33.789]     if (is.na(TRUE)) {
  [05:32:33.789]     }
  [05:32:33.789]     else {
  [05:32:33.789]         sink(type = "output", split = FALSE)
  [05:32:33.789]         if (TRUE) {
  [05:32:33.789]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:33.789]         }
  [05:32:33.789]         else {
  [05:32:33.789]             ...future.result["stdout"] <- list(NULL)
  [05:32:33.789]         }
  [05:32:33.789]         close(...future.stdout)
  [05:32:33.789]         ...future.stdout <- NULL
  [05:32:33.789]     }
  [05:32:33.789]     ...future.result$conditions <- ...future.conditions
  [05:32:33.789]     ...future.result
  [05:32:33.789] }
  [05:32:33.795] requestCore(): workers = 2
  [05:32:33.799] MulticoreFuture started
  [05:32:33.800] Chunk #2 of 2 ... DONE
  [05:32:33.801] Launching 2 futures (chunks) ... DONE
  [05:32:33.801] - resolving futures
  [05:32:33.801]   - gathering results & relaying conditions (except errors)
  [05:32:33.802] resolve() on list ...
  [05:32:33.802]  recursive: 0
  [05:32:33.803]  length: 2
  [05:32:33.803] 
  [05:32:33.804] plan(): nbrOfWorkers() = 1
  [05:32:33.814] plan(): Setting new future strategy stack:
  [05:32:33.814] List of future strategies:
  [05:32:33.814] 1. cluster:
  [05:32:33.814]    - 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, ...)
  [05:32:33.814]    - tweaked: FALSE
  [05:32:33.814]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:33.818] plan(): nbrOfWorkers() = 1
  [05:32:42.404] plan(): Setting new future strategy stack:
  [05:32:42.404] List of future strategies:
  [05:32:42.404] 1. multicore:
  [05:32:42.404]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [05:32:42.404]    - tweaked: FALSE
  [05:32:42.404]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:42.404] 2. cluster:
  [05:32:42.404]    - 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, ...)
  [05:32:42.404]    - tweaked: FALSE
  [05:32:42.404]    - call: plan(list(a = strategy1, b = strategy2))
  [05:32:42.407] plan(): nbrOfWorkers() = 2
  [05:32:42.408] Future #1
  [05:32:42.424] signalConditions() ...
  [05:32:42.425]  - include = 'immediateCondition'
  [05:32:42.425]  - exclude = 
  [05:32:42.426]  - resignal = FALSE
  [05:32:42.426]  - Number of conditions: 174
  [05:32:42.427] signalConditions() ... done
  [05:32:42.427] signalConditions() ...
  [05:32:42.428]  - include = 'immediateCondition'
  [05:32:42.428]  - exclude = 
  [05:32:42.428]  - resignal = FALSE
  [05:32:42.429]  - Number of conditions: 174
  [05:32:42.429] signalConditions() ... done
  [05:32:42.430] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [05:32:42.430] - nx: 2
  [05:32:42.430] - relay: TRUE
  [05:32:42.431] - stdout: TRUE
  [05:32:42.431] - signal: TRUE
  [05:32:42.431] - resignal: FALSE
  [05:32:42.432] - force: FALSE
  [05:32:42.432] - relayed: [n=2] FALSE, FALSE
  [05:32:42.432] - queued futures: [n=2] FALSE, FALSE
  [05:32:42.433]  - until=1
  [05:32:42.433]  - relaying element #1
  [05:32:42.433] signalConditions() ...
  [05:32:42.434]  - include = 'immediateCondition'
  [05:32:42.434]  - exclude = 
  [05:32:42.434]  - resignal = FALSE
  [05:32:42.435]  - Number of conditions: 174
  [05:32:42.436] signalConditions() ... 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"
  [05:32:42.436] signalConditions() ...
  [05:32:42.436]  - include = 'condition'
  [05:32:42.437]  - exclude = 
  [05:32:42.437]  - resignal = FALSE
  [05:32:42.437]  - Number of conditions: 174
  [05:32:42.438]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [05:32:42.438]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [05:32:33.812] doFuture() ...
  [05:32:42.446]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [05:32:33.814] - dummy globals (as locals): [1] 'b'
  [05:32:42.446]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [05:32:33.815] - R expression:
  [05:32:42.447]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [05:32:33.816] {
  [05:32:33.816]     doFuture::registerDoFuture()
  [05:32:33.816]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.816]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.816]         b <- NULL
  [05:32:33.816]         ...future.env <- environment()
  [05:32:33.816]         local({
  [05:32:33.816]             for (name in names(...future.x_jj)) {
  [05:32:33.816]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.816]                   inherits = FALSE)
  [05:32:33.816]             }
  [05:32:33.816]         })
  [05:32:33.816]         tryCatch({
  [05:32:33.816]             plan_list <- future::plan()
  [05:32:33.816]             message(capture.output(print(plan_list)))
  [05:32:33.816]             stopifnot(inherits(plan_list, "future"))
  [05:32:33.816]             default <- getOption("future.plan", "sequential")
  [05:32:33.816]             if (is.function(default)) 
  [05:32:33.816]                 default <- class(default)
  [05:32:33.816]             stopifnot(inherits(plan_list, default))
  [05:32:33.816]             plan_b <- future::plan("list")
  [05:32:33.816]             str(plan_b)
  [05:32:33.816]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:33.816]                 default))
  [05:32:33.816]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.816]         }, error = identity)
  [05:32:33.816]     })
  [05:32:33.816] }
  [05:32:42.447]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [05:32:33.817] - identifying globals and packages ...
  [05:32:42.448]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [05:32:33.818] getGlobalsAndPackages() ...
  [05:32:42.448]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [05:32:33.818] Searching for globals...
  [05:32:42.449]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [05:32:33.852] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [05:32:42.449]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [05:32:33.853] Searching for globals ... DONE
  [05:32:42.450]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [05:32:33.853] Resolving globals: FALSE
  [05:32:42.450]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [05:32:33.857] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [05:32:42.451]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [05:32:33.858] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:42.451]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [05:32:33.859] - packages: [1] 'utils'
  [05:32:42.451]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [05:32:33.859] getGlobalsAndPackages() ... DONE
  [05:32:42.452]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [05:32:33.860] List of 3
  [05:32:33.860]  $ ...future.x_ii: NULL
  [05:32:33.860]  $ a             : int 1
  [05:32:33.860]  $ plan_a        :List of 1
  [05:32:33.860]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:33.860]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:33.860]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:33.860]     label = NULL, ...)  
  [05:32:33.860]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:33.860]   .. ..- attr(*, "init")= logi TRUE
  [05:32:33.860]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:33.860]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:33.860]  - attr(*, "where")=List of 3
  [05:32:33.860]   ..$ ...future.x_ii:<environment: 0x556d9e6294d8> 
  [05:32:33.860]   ..$ a             :<environment: 0x556d9e7b5f10> 
  [05:32:33.860]   ..$ plan_a        :<environment: 0x556d9e7b5f10> 
  [05:32:33.860]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.860]  - attr(*, "resolved")= logi FALSE
  [05:32:33.860]  - attr(*, "total_size")= num 66056
  [05:32:42.452]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [05:32:33.877]   - R expression:
  [05:32:42.453]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [05:32:33.877] {
  [05:32:33.877]     doFuture::registerDoFuture()
  [05:32:33.877]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:33.877]         ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:33.877]         b <- NULL
  [05:32:33.877]         ...future.env <- environment()
  [05:32:33.877]         local({
  [05:32:33.877]             for (name in names(...future.x_jj)) {
  [05:32:33.877]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:33.877]                   inherits = FALSE)
  [05:32:33.877]             }
  [05:32:33.877]         })
  [05:32:33.877]         tryCatch({
  [05:32:33.877]             plan_list <- future::plan()
  [05:32:33.877]             message(capture.output(print(plan_list)))
  [05:32:33.877]             stopifnot(inherits(plan_list, "future"))
  [05:32:33.877]             default <- getOption("future.plan", "sequential")
  [05:32:33.877]             if (is.function(default)) 
  [05:32:33.877]                 default <- class(default)
  [05:32:33.877]             stopifnot(inherits(plan_list, default))
  [05:32:33.877]             plan_b <- future::plan("list")
  [05:32:33.877]             str(plan_b)
  [05:32:33.877]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [05:32:33.877]                 default))
  [05:32:33.877]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:33.877]         }, error = identity)
  [05:32:33.877]     })
  [05:32:33.877] }
  [05:32:42.453]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [05:32:33.879]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:42.454]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [05:32:33.879] List of 3
  [05:32:33.879]  $ ...future.x_ii: NULL
  [05:32:33.879]  $ a             : int 1
  [05:32:33.879]  $ plan_a        :List of 1
  [05:32:33.879]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [05:32:33.879]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:33.879]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [05:32:33.879]     label = NULL, ...)  
  [05:32:33.879]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [05:32:33.879]   .. ..- attr(*, "init")= logi TRUE
  [05:32:33.879]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [05:32:33.879]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [05:32:33.879]  - attr(*, "where")=List of 3
  [05:32:33.879]   ..$ ...future.x_ii:<environment: 0x556d9e6294d8> 
  [05:32:33.879]   ..$ a             :<environment: 0x556d9e7b5f10> 
  [05:32:33.879]   ..$ plan_a        :<environment: 0x556d9e7b5f10> 
  [05:32:33.879]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [05:32:33.879]  - attr(*, "resolved")= logi FALSE
  [05:32:33.879]  - attr(*, "total_size")= num 66056
  [05:32:42.454]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [05:32:33.897]   - packages: [2] 'doFuture', 'utils'
  [05:32:42.471]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [05:32:33.897] - identifying globals and packages ... DONE
  [05:32:42.471]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [05:32:33.899] Number of chunks: 1
  [05:32:42.472]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [05:32:33.900] Number of futures (= number of chunks): 1
  [05:32:42.472]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [05:32:33.900] Launching 1 futures (chunks) ...
  [05:32:42.473]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [05:32:33.901] Chunk #1 of 1 ...
  [05:32:42.473]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [05:32:33.901]  - Finding globals in 'args_list' chunk #1 ...
  [05:32:42.474]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [05:32:33.901] getGlobalsAndPackages() ...
  [05:32:42.474]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [05:32:33.902] Searching for globals...
  [05:32:42.475]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [05:32:33.903] 
  [05:32:42.475]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [05:32:33.904] Searching for globals ... DONE
  [05:32:42.476]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [05:32:33.904] - globals: [0] <none>
  [05:32:42.476]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [05:32:33.905] getGlobalsAndPackages() ... DONE
  [05:32:42.476]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [05:32:33.905] 
  [05:32:42.477]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [05:32:33.906] 
  [05:32:42.477]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [05:32:33.906]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [05:32:42.478]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 1] 'localhost'
  [05:32:42.478]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 11270
  [05:32:42.479]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 1 ...
  [05:32:42.479]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [05:32:42.480]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=24629.6035731dbca5.pid"), silent = TRUE)' -e "file.exists('/tmp/RtmpOmFju1/future.parent=24629.6035731dbca5.pid')"'
  [05:32:42.480]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [05:32:42.480]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:24629:gimli:hornik' -e 'try(cat(Sys.getpid(),file="/tmp/RtmpOmFju1/future.parent=24629.6035731dbca5.pid"), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=11270 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [05:32:42.481]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [05:32:42.481]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [05:32:42.482]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [05:32:42.482]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [05:32:42.483]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 1 ... done
  [05:32:42.483]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [05:32:41.699] getGlobalsAndPackages() ...
  [05:32:42.484]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [05:32:41.700] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:42.484]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [05:32:41.700] Resolving globals: FALSE
  [05:32:42.485]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [05:32:41.702] The total size of the 3 globals is 64.67 KiB (66224 bytes)
  [05:32:42.485]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [05:32:41.703] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [05:32:42.486]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [05:32:41.704] 
  [05:32:42.486]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [05:32:41.704] getGlobalsAndPackages() ... DONE
  [05:32:42.488]  - Condition #56: 'simpleWarning', 'warning', 'condition'
  Warning in sample.int(.Machine$integer.max, size = 1L) :
    '.Random.seed' is not an integer vector but of type 'NULL', so ignored
  [05:32:42.489]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [05:32:41.708] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [05:32:42.489]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [05:32:41.708] Packages needed by future strategies (n = 0): <none>
  [05:32:42.490]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [05:32:41.715] {
  [05:32:41.715]     {
  [05:32:41.715]         ...future.startTime <- Sys.time()
  [05:32:41.715]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [05:32:41.715]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [05:32:41.715]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [05:32:41.715]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [05:32:41.715]             future.resolve.recursive = NULL, width = 80L)
  [05:32:41.715]         {
  [05:32:41.715]             {
  [05:32:41.715]                 {
  [05:32:41.715]                   has_future <- requireNamespace("future", quietly = TRUE)
  [05:32:41.715]                   version <- if (has_future) 
  [05:32:41.715]                     packageVersion("future")
  [05:32:41.715]                   else NULL
  [05:32:41.715]                   if (!has_future || version < "1.8.0") {
  [05:32:41.715]                     info <- c(r_version = gsub("R version ", 
  [05:32:41.715]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [05:32:41.715]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [05:32:41.715]                       os = paste(Sys.info()[c("sysname", "release", 
  [05:32:41.715]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [05:32:41.715]                     info <- sprintf("%s: %s", names(info), info)
  [05:32:41.715]                     info <- paste(info, collapse = "; ")
  [05:32:41.715]                     if (!has_future) {
  [05:32:41.715]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [05:32:41.715]                         info)
  [05:32:41.715]                     }
  [05:32:41.715]                     else {
  [05:32:41.715]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [05:32:41.715]                         info, version)
  [05:32:41.715]                     }
  [05:32:41.715]                     stop(msg)
  [05:32:41.715]                   }
  [05:32:41.715]                 }
  [05:32:41.715]                 local({
  [05:32:41.715]                   for (pkg in c("doFuture", "utils")) {
  [05:32:41.715]                     loadNamespace(pkg)
  [05:32:41.715]                     library(pkg, character.only = TRUE)
  [05:32:41.715]                   }
  [05:32:41.715]                 })
  [05:32:41.715]             }
  [05:32:41.715]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [05:32:41.715]         }
  [05:32:41.715]     }
  [05:32:41.715]     if (is.na(TRUE)) {
  [05:32:41.715]     }
  [05:32:41.715]     else {
  [05:32:41.715]         if (TRUE) {
  [05:32:41.715]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [05:32:41.715]         }
  [05:32:41.715]         else {
  [05:32:41.715]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [05:32:41.715]                 windows = "NUL", "/dev/null"), open = "w")
  [05:32:41.715]         }
  [05:32:41.715]         sink(...future.stdout, type = "output", split = FALSE)
  [05:32:41.715]         on.exit(if (!is.null(...future.stdout)) {
  [05:32:41.715]             sink(type = "output", split = FALSE)
  [05:32:41.715]             close(...future.stdout)
  [05:32:41.715]         }, add = TRUE)
  [05:32:41.715]     }
  [05:32:41.715]     ...future.frame <- sys.nframe()
  [05:32:41.715]     ...future.conditions <- list()
  [05:32:41.715]     ...future.result <- tryCatch({
  [05:32:41.715]         withCallingHandlers({
  [05:32:41.715]             ...future.value <- local({
  [05:32:41.715]                 doFuture::registerDoFuture()
  [05:32:41.715]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [05:32:41.715]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [05:32:41.715]                   b <- NULL
  [05:32:41.715]                   ...future.env <- environment()
  [05:32:41.715]                   local({
  [05:32:41.715]                     for (name in names(...future.x_jj)) {
  [05:32:41.715]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [05:32:41.715]                         inherits = FALSE)
  [05:32:41.715]                     }
  [05:32:41.715]                   })
  [05:32:41.715]                   tryCatch({
  [05:32:41.715]                     plan_list <- future::plan()
  [05:32:41.715]                     message(capture.output(print(plan_list)))
  [05:32:41.715]                     stopifnot(inherits(plan_list, "future"))
  [05:32:41.715]                     default <- getOption("future.plan", "sequential")
  [05:32:41.715]                     if (is.function(default)) 
  [05:32:41.715]                       default <- class(default)
  [05:32:41.715]                     stopifnot(inherits(plan_list, default))
  [05:32:41.715]                     plan_b <- future::plan("list")
  [05:32:41.715]                     str(plan_b)
  [05:32:41.715]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [05:32:41.715]                       inherits(plan_b[[1]], default))
  [05:32:41.715]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [05:32:41.715]                   }, error = identity)
  [05:32:41.715]                 })
  [05:32:41.715]             })
  [05:32:41.715]             future::FutureResult(value = ...future.value, started = ...future.startTime, 
  [05:32:41.715]                 version = "1.8")
  [05:32:41.715]         }, condition = local({
  [05:32:41.715]             inherits <- base::inherits
  [05:32:41.715]             invokeRestart <- base::invokeRestart
  [05:32:41.715]             length <- base::length
  [05:32:41.715]             seq.int <- base::seq.int
  [05:32:41.715]             sys.calls <- base::sys.calls
  [05:32:41.715]             `[[` <- base::`[[`
  [05:32:41.715]             `+` <- base::`+`
  [05:32:41.715]             `<<-` <- base::`<<-`
  [05:32:41.715]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [05:32:41.715]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [05:32:41.715]                   3L)]
  [05:32:41.715]             }
  [05:32:41.715]             function(cond) {
  [05:32:41.715]                 if (inherits(cond, "error")) {
  [05:32:41.715]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:41.715]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [05:32:41.715]                     cond$call), timestamp = base::Sys.time(), 
  [05:32:41.715]                     signaled = 0L)
  [05:32:41.715]                   signalCondition(cond)
  [05:32:41.715]                 }
  [05:32:41.715]                 else if (inherits(cond, "condition")) {
  [05:32:41.715]                   signal <- FALSE && inherits(cond, character(0))
  [05:32:41.715]                   ...future.conditions[[length(...future.conditions) + 
  [05:32:41.715]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [05:32:41.715]                   if (inherits(cond, "message")) {
  [05:32:41.715]                     if (!signal) 
  [05:32:41.715]                       invokeRestart("muffleMessage")
  [05:32:41.715]                   }
  [05:32:41.715]                   else if (inherits(cond, "warning")) {
  [05:32:41.715]                     if (!signal) 
  [05:32:41.715]                       invokeRestart("muffleWarning")
  [05:32:41.715]                   }
  [05:32:41.715]                   else {
  [05:32:41.715]                     if (!signal) {
  [05:32:41.715]                       restarts <- computeRestarts(cond)
  [05:32:41.715]                       for (restart in restarts) {
  [05:32:41.715]                         name <- restart$name
  [05:32:41.715]                         if (is.null(name)) 
  [05:32:41.715]                           next
  [05:32:41.715]                         if (!grepl("^muffle", name)) 
  [05:32:41.715]                           next
  [05:32:41.715]                         invokeRestart(restart)
  [05:32:41.715]                         break
  [05:32:41.715]                       }
  [05:32:41.715]                     }
  [05:32:41.715]                   }
  [05:32:41.715]                 }
  [05:32:41.715]             }
  [05:32:41.715]         }))
  [05:32:41.715]     }, error = function(ex) {
  [05:32:41.715]         structure(list(value = NULL, conditions = ...future.conditions, 
  [05:32:41.715]             version = "1.8"), class = "FutureResult")
  [05:32:41.715]     }, finally = {
  [05:32:41.715]         {
  [05:32:41.715]             NULL
  [05:32:41.715]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [05:32:41.715]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [05:32:41.715]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [05:32:41.715]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [05:32:41.715]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [05:32:41.715]                 ...) 
  [05:32:41.715]             {
  [05:32:41.715]                 if (substitute) 
  [05:32:41.715]                   expr <- substitute(expr)
  [05:32:41.715]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [05:32:41.715]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [05:32:41.715]                   globals = globals, persistent = persistent, 
  [05:32:41.715]                   workers = workers, user = user, revtunnel = revtunnel, 
  [05:32:41.715]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [05:32:41.715]                   label = label, ...)
  [05:32:41.715]                 if (!future$lazy) 
  [05:32:41.715]                   future <- run(future)
  [05:32:41.715]                 invisible(future)
  [05:32:41.715]             }), .cleanup = FALSE, .init = FALSE)
  [05:32:41.715]         }
  [05:32:41.715]         options(...future.oldOptions)
  [05:32:41.715]     })
  [05:32:41.715]     if (is.na(TRUE)) {
  [05:32:41.715]     }
  [05:32:41.715]     else {
  [05:32:41.715]         sink(type = "output", split = FALSE)
  [05:32:41.715]         if (TRUE) {
  [05:32:41.715]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [05:32:41.715]         }
  [05:32:41.715]         else {
  [05:32:41.715]             ...future.result["stdout"] <- list(NULL)
  [05:32:41.715]         }
  [05:32:41.715]         close(...future.stdout)
  [05:32:41.715]         ...future.stdout <- NULL
  [05:32:41.715]     }
  [05:32:41.715]     ...future.result$conditions <- ...future.conditions
  [05:32:41.715]     ...future.result
  [05:32:41.715] }
  [05:32:42.490]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [05:32:41.722] Exporting 3 global objects (64.67 KiB) to cluster node #1 ...
  [05:32:42.491]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [05:32:41.722] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ...
  [05:32:42.491]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [05:32:41.724] Exporting '...future.x_ii' (168 bytes) to cluster node #1 ... DONE
  [05:32:42.492]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [05:32:41.724] Exporting 'a' (56 bytes) to cluster node #1 ...
  [05:32:42.492]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [05:32:41.726] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [05:32:42.493]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [05:32:41.727] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [05:32:42.493]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [05:32:41.771] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [05:32:42.493]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [05:32:41.772] Exporting 3 global objects (64.67 KiB) to cluster node #1 ... DONE
  [05:32:42.494]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [05:32:41.773] ClusterFuture started
  [05:32:42.494]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [05:32:41.774] Chunk #1 of 1 ... DONE
  [05:32:42.495]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [05:32:41.774] Launching 1 futures (chunks) ... DONE
  [05:32:42.495]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [05:32:41.775] - resolving futures
  [05:32:42.496]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [05:32:41.775]   - gathering results & relaying conditions (except errors)
  [05:32:42.496]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [05:32:41.776] resolve() on list ...
  [05:32:42.497]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [05:32:41.776]  recursive: 0
  [05:32:42.497]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [05:32:41.777]  length: 1
  [05:32:42.498]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [05:32:41.777] 
  [05:32:42.498]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [05:32:42.254] Future #1
  [05:32:42.498]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [05:32:42.255] result() for ClusterFuture ...
  [05:32:42.499]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [05:32:42.256] - Validating connection of ClusterFuture
  [05:32:42.499]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [05:32:42.299] - class(result): FutureResult
  [05:32:42.500]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [05:32:42.300] result() for ClusterFuture ...
  [05:32:42.500]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [05:32:42.300] - result already collected: FutureResult
  [05:32:42.501]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [05:32:42.301] result() for ClusterFuture ... done
  [05:32:42.501]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [05:32:42.302] signalConditions() ...
  [05:32:42.502]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [05