Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/2s]
  Running ‘doRNG,dopar.R’ [3s/8s]
  Running ‘doRNG,dorng.R’ [6s/15s]
  Running ‘foreach,errors.R’ [7s/23s]
  Running ‘foreach,globals.R’ [9s/25s]
  Running ‘foreach,nested.R’ [9s/30s]
  Running ‘foreach,nested_dopar.R’ [11s/19s]
  Running ‘foreach.R’ [3s/9s]
  Running ‘future.BatchJobs.R’ [1s/1s]
  Running ‘future.batchtools.R’ [1s/1s]
  Running ‘options.R’ [3s/7s]
  Running ‘registerDoFuture.R’ [2s/7s]
  Running ‘times.R’ [3s/9s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  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/0s]
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
  [14:18:16.627] plan(): Setting new future strategy stack:
  [14:18:16.628] List of future strategies:
  [14:18:16.628] 1. sequential:
  [14:18:16.628]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.628]    - tweaked: FALSE
  [14:18:16.628]    - call: future::plan(future::sequential)
  [14:18:16.630] 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 }
  [14:18:16.635] doFuture() ...
  [14:18:16.638] - dummy globals (as locals): [1] 'j'
  [14:18:16.640] - R expression:
  [14:18:16.640] {
  [14:18:16.640]     doFuture::registerDoFuture()
  [14:18:16.640]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.640]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.640]         j <- NULL
  [14:18:16.640]         ...future.env <- environment()
  [14:18:16.640]         local({
  [14:18:16.640]             for (name in names(...future.x_jj)) {
  [14:18:16.640]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.640]                   inherits = FALSE)
  [14:18:16.640]             }
  [14:18:16.640]         })
  [14:18:16.640]         tryCatch({
  [14:18:16.640]             j
  [14:18:16.640]         }, error = identity)
  [14:18:16.640]     })
  [14:18:16.640] }
  [14:18:16.641] - identifying globals and packages ...
  [14:18:16.643] getGlobalsAndPackages() ...
  [14:18:16.644] Searching for globals...
  [14:18:16.681] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:18:16.681] Searching for globals ... DONE
  [14:18:16.682] Resolving globals: FALSE
  [14:18:16.684] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:18:16.685] - globals: [1] '...future.x_ii'
  [14:18:16.685] 
  [14:18:16.686] getGlobalsAndPackages() ... DONE
  [14:18:16.686] List of 1
  [14:18:16.686]  $ ...future.x_ii: NULL
  [14:18:16.686]  - attr(*, "where")=List of 1
  [14:18:16.686]   ..$ ...future.x_ii:<environment: 0x5626359dfb78> 
  [14:18:16.686]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.686]  - attr(*, "resolved")= logi FALSE
  [14:18:16.686]  - attr(*, "total_size")= num 0
  [14:18:16.699]   - R expression:
  [14:18:16.699] {
  [14:18:16.699]     doFuture::registerDoFuture()
  [14:18:16.699]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.699]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.699]         j <- NULL
  [14:18:16.699]         ...future.env <- environment()
  [14:18:16.699]         local({
  [14:18:16.699]             for (name in names(...future.x_jj)) {
  [14:18:16.699]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.699]                   inherits = FALSE)
  [14:18:16.699]             }
  [14:18:16.699]         })
  [14:18:16.699]         tryCatch({
  [14:18:16.699]             j
  [14:18:16.699]         }, error = identity)
  [14:18:16.699]     })
  [14:18:16.699] }
  [14:18:16.700]   - globals: [1] '...future.x_ii'
  [14:18:16.700] List of 1
  [14:18:16.700]  $ ...future.x_ii: NULL
  [14:18:16.700]  - attr(*, "where")=List of 1
  [14:18:16.700]   ..$ ...future.x_ii:<environment: 0x5626359dfb78> 
  [14:18:16.700]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.700]  - attr(*, "resolved")= logi FALSE
  [14:18:16.700]  - attr(*, "total_size")= num 0
  [14:18:16.708]   - packages: [1] 'doFuture'
  [14:18:16.708] - identifying globals and packages ... DONE
  [14:18:16.709] Number of chunks: 1
  [14:18:16.709] Number of futures (= number of chunks): 1
  [14:18:16.711] Launching 1 futures (chunks) ...
  [14:18:16.711] Chunk #1 of 1 ...
  [14:18:16.712]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:16.712] getGlobalsAndPackages() ...
  [14:18:16.712] Searching for globals...
  [14:18:16.713] 
  [14:18:16.714] Searching for globals ... DONE
  [14:18:16.714] - globals: [0] <none>
  [14:18:16.714] getGlobalsAndPackages() ... DONE
  [14:18:16.715] 
  [14:18:16.715] 
  [14:18:16.715]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:16.716] getGlobalsAndPackages() ...
  [14:18:16.717] - globals passed as-is: [1] '...future.x_ii'
  [14:18:16.717] Resolving globals: FALSE
  [14:18:16.718] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:18:16.718] - globals: [1] '...future.x_ii'
  [14:18:16.719] 
  [14:18:16.719] getGlobalsAndPackages() ... DONE
  [14:18:16.722] Packages needed by the future expression (n = 1): 'doFuture'
  [14:18:16.723] Packages needed by future strategies (n = 0): <none>
  [14:18:16.730] {
  [14:18:16.730]     {
  [14:18:16.730]         ...future.startTime <- base::Sys.time()
  [14:18:16.730]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:16.730]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:16.730]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:18:16.730]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:16.730]             future.resolve.recursive = NULL, width = 80L)
  [14:18:16.730]         {
  [14:18:16.730]             {
  [14:18:16.730]                 {
  [14:18:16.730]                   has_future <- base::requireNamespace("future", 
  [14:18:16.730]                     quietly = TRUE)
  [14:18:16.730]                   version <- if (has_future) 
  [14:18:16.730]                     utils::packageVersion("future")
  [14:18:16.730]                   else NULL
  [14:18:16.730]                   if (!has_future || version < "1.8.0") {
  [14:18:16.730]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:16.730]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:16.730]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:16.730]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:16.730]                         "release", "version")], collapse = " "), 
  [14:18:16.730]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:16.730]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:16.730]                       info)
  [14:18:16.730]                     info <- base::paste(info, collapse = "; ")
  [14:18:16.730]                     if (!has_future) {
  [14:18:16.730]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:16.730]                         info)
  [14:18:16.730]                     }
  [14:18:16.730]                     else {
  [14:18:16.730]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:16.730]                         info, version)
  [14:18:16.730]                     }
  [14:18:16.730]                     base::stop(msg)
  [14:18:16.730]                   }
  [14:18:16.730]                 }
  [14:18:16.730]                 base::local({
  [14:18:16.730]                   for (pkg in "doFuture") {
  [14:18:16.730]                     base::loadNamespace(pkg)
  [14:18:16.730]                     base::library(pkg, character.only = TRUE)
  [14:18:16.730]                   }
  [14:18:16.730]                 })
  [14:18:16.730]             }
  [14:18:16.730]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:16.730]         }
  [14:18:16.730]     }
  [14:18:16.730]     if (base::is.na(TRUE)) {
  [14:18:16.730]     }
  [14:18:16.730]     else {
  [14:18:16.730]         if (TRUE) {
  [14:18:16.730]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:16.730]                 open = "w")
  [14:18:16.730]         }
  [14:18:16.730]         else {
  [14:18:16.730]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:16.730]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:16.730]         }
  [14:18:16.730]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:16.730]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:16.730]             base::sink(type = "output", split = FALSE)
  [14:18:16.730]             base::close(...future.stdout)
  [14:18:16.730]         }, add = TRUE)
  [14:18:16.730]     }
  [14:18:16.730]     ...future.frame <- base::sys.nframe()
  [14:18:16.730]     ...future.conditions <- base::list()
  [14:18:16.730]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:16.730]     ...future.result <- base::tryCatch({
  [14:18:16.730]         base::withCallingHandlers({
  [14:18:16.730]             ...future.value <- base::withVisible(base::local({
  [14:18:16.730]                 doFuture::registerDoFuture()
  [14:18:16.730]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.730]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.730]                   j <- NULL
  [14:18:16.730]                   ...future.env <- environment()
  [14:18:16.730]                   local({
  [14:18:16.730]                     for (name in names(...future.x_jj)) {
  [14:18:16.730]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.730]                         inherits = FALSE)
  [14:18:16.730]                     }
  [14:18:16.730]                   })
  [14:18:16.730]                   tryCatch({
  [14:18:16.730]                     j
  [14:18:16.730]                   }, error = identity)
  [14:18:16.730]                 })
  [14:18:16.730]             }))
  [14:18:16.730]             future::FutureResult(value = ...future.value$value, 
  [14:18:16.730]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.730]                   ...future.rng), started = ...future.startTime, 
  [14:18:16.730]                 version = "1.8")
  [14:18:16.730]         }, condition = base::local({
  [14:18:16.730]             c <- base::c
  [14:18:16.730]             inherits <- base::inherits
  [14:18:16.730]             invokeRestart <- base::invokeRestart
  [14:18:16.730]             length <- base::length
  [14:18:16.730]             list <- base::list
  [14:18:16.730]             seq.int <- base::seq.int
  [14:18:16.730]             signalCondition <- base::signalCondition
  [14:18:16.730]             sys.calls <- base::sys.calls
  [14:18:16.730]             Sys.time <- base::Sys.time
  [14:18:16.730]             `[[` <- base::`[[`
  [14:18:16.730]             `+` <- base::`+`
  [14:18:16.730]             `<<-` <- base::`<<-`
  [14:18:16.730]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:16.730]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:16.730]                   3L)]
  [14:18:16.730]             }
  [14:18:16.730]             function(cond) {
  [14:18:16.730]                 if (inherits(cond, "error")) {
  [14:18:16.730]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.730]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:16.730]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:16.730]                   signalCondition(cond)
  [14:18:16.730]                 }
  [14:18:16.730]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:16.730]                 ))) {
  [14:18:16.730]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:16.730]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.730]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:16.730]                   if (!signal) {
  [14:18:16.730]                     muffleCondition <- function (cond) 
  [14:18:16.730]                     {
  [14:18:16.730]                       inherits <- base::inherits
  [14:18:16.730]                       invokeRestart <- base::invokeRestart
  [14:18:16.730]                       muffled <- FALSE
  [14:18:16.730]                       if (inherits(cond, "message")) {
  [14:18:16.730]                         invokeRestart("muffleMessage")
  [14:18:16.730]                         muffled <- TRUE
  [14:18:16.730]                       }
  [14:18:16.730]                       else if (inherits(cond, "warning")) {
  [14:18:16.730]                         invokeRestart("muffleWarning")
  [14:18:16.730]                         muffled <- TRUE
  [14:18:16.730]                       }
  [14:18:16.730]                       else if (inherits(cond, "condition")) {
  [14:18:16.730]                         computeRestarts <- base::computeRestarts
  [14:18:16.730]                         grepl <- base::grepl
  [14:18:16.730]                         is.null <- base::is.null
  [14:18:16.730]                         restarts <- computeRestarts(cond)
  [14:18:16.730]                         for (restart in restarts) {
  [14:18:16.730]                           name <- restart$name
  [14:18:16.730]                           if (is.null(name)) 
  [14:18:16.730]                             next
  [14:18:16.730]                           if (!grepl("^muffle", name)) 
  [14:18:16.730]                             next
  [14:18:16.730]                           invokeRestart(restart)
  [14:18:16.730]                           muffled <- TRUE
  [14:18:16.730]                           break
  [14:18:16.730]                         }
  [14:18:16.730]                       }
  [14:18:16.730]                       invisible(muffled)
  [14:18:16.730]                     }
  [14:18:16.730]                     muffleCondition(cond)
  [14:18:16.730]                   }
  [14:18:16.730]                 }
  [14:18:16.730]             }
  [14:18:16.730]         }))
  [14:18:16.730]     }, error = function(ex) {
  [14:18:16.730]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:16.730]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.730]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:16.730]     }, finally = {
  [14:18:16.730]         {
  [14:18:16.730]             NULL
  [14:18:16.730]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:18:16.730]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:16.730]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:16.730]                 label = NULL, ...) 
  [14:18:16.730]             {
  [14:18:16.730]                 if (substitute) 
  [14:18:16.730]                   expr <- substitute(expr)
  [14:18:16.730]                 local <- as.logical(local)
  [14:18:16.730]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:16.730]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:16.730]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:16.730]                   label = label, ...)
  [14:18:16.730]                 if (!future$lazy) 
  [14:18:16.730]                   future <- run(future)
  [14:18:16.730]                 invisible(future)
  [14:18:16.730]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:16.730]         }
  [14:18:16.730]         base::options(...future.oldOptions)
  [14:18:16.730]     })
  [14:18:16.730]     Sys.time
  [14:18:16.730]     if (base::is.na(TRUE)) {
  [14:18:16.730]     }
  [14:18:16.730]     else {
  [14:18:16.730]         base::sink(type = "output", split = FALSE)
  [14:18:16.730]         if (TRUE) {
  [14:18:16.730]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:16.730]         }
  [14:18:16.730]         else {
  [14:18:16.730]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:16.730]         }
  [14:18:16.730]         base::close(...future.stdout)
  [14:18:16.730]         ...future.stdout <- NULL
  [14:18:16.730]     }
  [14:18:16.730]     ...future.result$conditions <- ...future.conditions
  [14:18:16.730]     ...future.result
  [14:18:16.730] }
  [14:18:16.736] plan(): Setting new future strategy stack:
  [14:18:16.736] List of future strategies:
  [14:18:16.736] 1. sequential:
  [14:18:16.736]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.736]    - tweaked: FALSE
  [14:18:16.736]    - call: NULL
  [14:18:16.737] plan(): nbrOfWorkers() = 1
  [14:18:16.739] plan(): Setting new future strategy stack:
  [14:18:16.739] List of future strategies:
  [14:18:16.739] 1. sequential:
  [14:18:16.739]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.739]    - tweaked: FALSE
  [14:18:16.739]    - call: future::plan(future::sequential)
  [14:18:16.741] plan(): nbrOfWorkers() = 1
  [14:18:16.741] SequentialFuture started (and completed)
  [14:18:16.743] Chunk #1 of 1 ... DONE
  [14:18:16.743] Launching 1 futures (chunks) ... DONE
  [14:18:16.743] - resolving futures
  [14:18:16.743]   - gathering results & relaying conditions (except errors)
  [14:18:16.744] resolve() on list ...
  [14:18:16.745]  recursive: 0
  [14:18:16.745]  length: 1
  [14:18:16.746] 
  [14:18:16.746] Future #1
  [14:18:16.747] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:16.748] - nx: 1
  [14:18:16.748] - relay: TRUE
  [14:18:16.748] - stdout: TRUE
  [14:18:16.749] - signal: TRUE
  [14:18:16.749] - resignal: FALSE
  [14:18:16.749] - force: FALSE
  [14:18:16.749] - relayed: [n=1] FALSE
  [14:18:16.750] - queued futures: [n=1] FALSE
  [14:18:16.750]  - until=1
  [14:18:16.750]  - relaying element #1
  [14:18:16.751] - relayed: [n=1] TRUE
  [14:18:16.751] - queued futures: [n=1] TRUE
  [14:18:16.752] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:16.752]  length: 0 (resolved future 1)
  [14:18:16.753] Relaying remaining futures
  [14:18:16.758] signalConditionsASAP(NULL, pos=0) ...
  [14:18:16.759] - nx: 1
  [14:18:16.759] - relay: TRUE
  [14:18:16.759] - stdout: TRUE
  [14:18:16.760] - signal: TRUE
  [14:18:16.760] - resignal: FALSE
  [14:18:16.760] - force: FALSE
  [14:18:16.761] - relayed: [n=1] TRUE
  [14:18:16.761] - queued futures: [n=1] TRUE
   - flush all
  [14:18:16.761] - relayed: [n=1] TRUE
  [14:18:16.762] - queued futures: [n=1] TRUE
  [14:18:16.762] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:16.762] resolve() on list ... DONE
  [14:18:16.763] - collecting values of futures
  [14:18:16.763] - accumulating results
  [14:18:16.766] - processing errors (handler = 'stop')
  [14:18:16.766] - extracting results
  [14:18:16.767] 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 }
  + }
  [14:18:16.769] doFuture() ...
  [14:18:16.770] - dummy globals (as locals): [1] 'i'
  [14:18:16.771] - R expression:
  [14:18:16.772] {
  [14:18:16.772]     doFuture::registerDoFuture()
  [14:18:16.772]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.772]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.772]         i <- NULL
  [14:18:16.772]         ...future.env <- environment()
  [14:18:16.772]         local({
  [14:18:16.772]             for (name in names(...future.x_jj)) {
  [14:18:16.772]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.772]                   inherits = FALSE)
  [14:18:16.772]             }
  [14:18:16.772]         })
  [14:18:16.772]         tryCatch({
  [14:18:16.772]             foreach(j = 1) %dopar% {
  [14:18:16.772]                 j
  [14:18:16.772]             }
  [14:18:16.772]         }, error = identity)
  [14:18:16.772]     })
  [14:18:16.772] }
  [14:18:16.773] - identifying globals and packages ...
  [14:18:16.773] getGlobalsAndPackages() ...
  [14:18:16.773] Searching for globals...
  [14:18:16.789] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [14:18:16.790] Searching for globals ... DONE
  [14:18:16.790] Resolving globals: FALSE
  [14:18:16.792] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:18:16.793] - globals: [1] '...future.x_ii'
  [14:18:16.793] - packages: [1] 'foreach'
  [14:18:16.793] getGlobalsAndPackages() ... DONE
  [14:18:16.794] List of 1
  [14:18:16.794]  $ ...future.x_ii: NULL
  [14:18:16.794]  - attr(*, "where")=List of 1
  [14:18:16.794]   ..$ ...future.x_ii:<environment: 0x5626339cc7c8> 
  [14:18:16.794]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.794]  - attr(*, "resolved")= logi FALSE
  [14:18:16.794]  - attr(*, "total_size")= num 0
  [14:18:16.801]   - R expression:
  [14:18:16.802] {
  [14:18:16.802]     doFuture::registerDoFuture()
  [14:18:16.802]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.802]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.802]         i <- NULL
  [14:18:16.802]         ...future.env <- environment()
  [14:18:16.802]         local({
  [14:18:16.802]             for (name in names(...future.x_jj)) {
  [14:18:16.802]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.802]                   inherits = FALSE)
  [14:18:16.802]             }
  [14:18:16.802]         })
  [14:18:16.802]         tryCatch({
  [14:18:16.802]             foreach(j = 1) %dopar% {
  [14:18:16.802]                 j
  [14:18:16.802]             }
  [14:18:16.802]         }, error = identity)
  [14:18:16.802]     })
  [14:18:16.802] }
  [14:18:16.803]   - globals: [1] '...future.x_ii'
  [14:18:16.803] List of 1
  [14:18:16.803]  $ ...future.x_ii: NULL
  [14:18:16.803]  - attr(*, "where")=List of 1
  [14:18:16.803]   ..$ ...future.x_ii:<environment: 0x5626339cc7c8> 
  [14:18:16.803]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.803]  - attr(*, "resolved")= logi FALSE
  [14:18:16.803]  - attr(*, "total_size")= num 0
  [14:18:16.810]   - packages: [2] 'doFuture', 'foreach'
  [14:18:16.810] - identifying globals and packages ... DONE
  [14:18:16.811] Number of chunks: 1
  [14:18:16.811] Number of futures (= number of chunks): 1
  [14:18:16.812] Launching 1 futures (chunks) ...
  [14:18:16.812] Chunk #1 of 1 ...
  [14:18:16.812]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:16.813] getGlobalsAndPackages() ...
  [14:18:16.813] Searching for globals...
  [14:18:16.814] 
  [14:18:16.814] Searching for globals ... DONE
  [14:18:16.815] - globals: [0] <none>
  [14:18:16.815] getGlobalsAndPackages() ... DONE
  [14:18:16.815] 
  [14:18:16.815] 
  [14:18:16.816]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:16.816] getGlobalsAndPackages() ...
  [14:18:16.817] - globals passed as-is: [1] '...future.x_ii'
  [14:18:16.817] Resolving globals: FALSE
  [14:18:16.818] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:18:16.818] - globals: [1] '...future.x_ii'
  [14:18:16.819] 
  [14:18:16.819] getGlobalsAndPackages() ... DONE
  [14:18:16.821] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [14:18:16.822] Packages needed by future strategies (n = 0): <none>
  [14:18:16.827] {
  [14:18:16.827]     {
  [14:18:16.827]         ...future.startTime <- base::Sys.time()
  [14:18:16.827]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:16.827]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:16.827]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:16.827]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:16.827]             future.resolve.recursive = NULL, width = 80L)
  [14:18:16.827]         {
  [14:18:16.827]             {
  [14:18:16.827]                 {
  [14:18:16.827]                   has_future <- base::requireNamespace("future", 
  [14:18:16.827]                     quietly = TRUE)
  [14:18:16.827]                   version <- if (has_future) 
  [14:18:16.827]                     utils::packageVersion("future")
  [14:18:16.827]                   else NULL
  [14:18:16.827]                   if (!has_future || version < "1.8.0") {
  [14:18:16.827]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:16.827]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:16.827]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:16.827]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:16.827]                         "release", "version")], collapse = " "), 
  [14:18:16.827]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:16.827]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:16.827]                       info)
  [14:18:16.827]                     info <- base::paste(info, collapse = "; ")
  [14:18:16.827]                     if (!has_future) {
  [14:18:16.827]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:16.827]                         info)
  [14:18:16.827]                     }
  [14:18:16.827]                     else {
  [14:18:16.827]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:16.827]                         info, version)
  [14:18:16.827]                     }
  [14:18:16.827]                     base::stop(msg)
  [14:18:16.827]                   }
  [14:18:16.827]                 }
  [14:18:16.827]                 base::local({
  [14:18:16.827]                   for (pkg in c("doFuture", "foreach")) {
  [14:18:16.827]                     base::loadNamespace(pkg)
  [14:18:16.827]                     base::library(pkg, character.only = TRUE)
  [14:18:16.827]                   }
  [14:18:16.827]                 })
  [14:18:16.827]             }
  [14:18:16.827]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:16.827]         }
  [14:18:16.827]     }
  [14:18:16.827]     if (base::is.na(TRUE)) {
  [14:18:16.827]     }
  [14:18:16.827]     else {
  [14:18:16.827]         if (TRUE) {
  [14:18:16.827]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:16.827]                 open = "w")
  [14:18:16.827]         }
  [14:18:16.827]         else {
  [14:18:16.827]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:16.827]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:16.827]         }
  [14:18:16.827]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:16.827]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:16.827]             base::sink(type = "output", split = FALSE)
  [14:18:16.827]             base::close(...future.stdout)
  [14:18:16.827]         }, add = TRUE)
  [14:18:16.827]     }
  [14:18:16.827]     ...future.frame <- base::sys.nframe()
  [14:18:16.827]     ...future.conditions <- base::list()
  [14:18:16.827]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:16.827]     ...future.result <- base::tryCatch({
  [14:18:16.827]         base::withCallingHandlers({
  [14:18:16.827]             ...future.value <- base::withVisible(base::local({
  [14:18:16.827]                 doFuture::registerDoFuture()
  [14:18:16.827]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.827]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.827]                   i <- NULL
  [14:18:16.827]                   ...future.env <- environment()
  [14:18:16.827]                   local({
  [14:18:16.827]                     for (name in names(...future.x_jj)) {
  [14:18:16.827]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.827]                         inherits = FALSE)
  [14:18:16.827]                     }
  [14:18:16.827]                   })
  [14:18:16.827]                   tryCatch({
  [14:18:16.827]                     foreach(j = 1) %dopar% {
  [14:18:16.827]                       j
  [14:18:16.827]                     }
  [14:18:16.827]                   }, error = identity)
  [14:18:16.827]                 })
  [14:18:16.827]             }))
  [14:18:16.827]             future::FutureResult(value = ...future.value$value, 
  [14:18:16.827]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.827]                   ...future.rng), started = ...future.startTime, 
  [14:18:16.827]                 version = "1.8")
  [14:18:16.827]         }, condition = base::local({
  [14:18:16.827]             c <- base::c
  [14:18:16.827]             inherits <- base::inherits
  [14:18:16.827]             invokeRestart <- base::invokeRestart
  [14:18:16.827]             length <- base::length
  [14:18:16.827]             list <- base::list
  [14:18:16.827]             seq.int <- base::seq.int
  [14:18:16.827]             signalCondition <- base::signalCondition
  [14:18:16.827]             sys.calls <- base::sys.calls
  [14:18:16.827]             Sys.time <- base::Sys.time
  [14:18:16.827]             `[[` <- base::`[[`
  [14:18:16.827]             `+` <- base::`+`
  [14:18:16.827]             `<<-` <- base::`<<-`
  [14:18:16.827]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:16.827]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:16.827]                   3L)]
  [14:18:16.827]             }
  [14:18:16.827]             function(cond) {
  [14:18:16.827]                 if (inherits(cond, "error")) {
  [14:18:16.827]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.827]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:16.827]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:16.827]                   signalCondition(cond)
  [14:18:16.827]                 }
  [14:18:16.827]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:16.827]                 ))) {
  [14:18:16.827]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:16.827]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.827]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:16.827]                   if (!signal) {
  [14:18:16.827]                     muffleCondition <- function (cond) 
  [14:18:16.827]                     {
  [14:18:16.827]                       inherits <- base::inherits
  [14:18:16.827]                       invokeRestart <- base::invokeRestart
  [14:18:16.827]                       muffled <- FALSE
  [14:18:16.827]                       if (inherits(cond, "message")) {
  [14:18:16.827]                         invokeRestart("muffleMessage")
  [14:18:16.827]                         muffled <- TRUE
  [14:18:16.827]                       }
  [14:18:16.827]                       else if (inherits(cond, "warning")) {
  [14:18:16.827]                         invokeRestart("muffleWarning")
  [14:18:16.827]                         muffled <- TRUE
  [14:18:16.827]                       }
  [14:18:16.827]                       else if (inherits(cond, "condition")) {
  [14:18:16.827]                         computeRestarts <- base::computeRestarts
  [14:18:16.827]                         grepl <- base::grepl
  [14:18:16.827]                         is.null <- base::is.null
  [14:18:16.827]                         restarts <- computeRestarts(cond)
  [14:18:16.827]                         for (restart in restarts) {
  [14:18:16.827]                           name <- restart$name
  [14:18:16.827]                           if (is.null(name)) 
  [14:18:16.827]                             next
  [14:18:16.827]                           if (!grepl("^muffle", name)) 
  [14:18:16.827]                             next
  [14:18:16.827]                           invokeRestart(restart)
  [14:18:16.827]                           muffled <- TRUE
  [14:18:16.827]                           break
  [14:18:16.827]                         }
  [14:18:16.827]                       }
  [14:18:16.827]                       invisible(muffled)
  [14:18:16.827]                     }
  [14:18:16.827]                     muffleCondition(cond)
  [14:18:16.827]                   }
  [14:18:16.827]                 }
  [14:18:16.827]             }
  [14:18:16.827]         }))
  [14:18:16.827]     }, error = function(ex) {
  [14:18:16.827]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:16.827]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.827]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:16.827]     }, finally = {
  [14:18:16.827]         {
  [14:18:16.827]             NULL
  [14:18:16.827]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:18:16.827]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:16.827]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:16.827]                 label = NULL, ...) 
  [14:18:16.827]             {
  [14:18:16.827]                 if (substitute) 
  [14:18:16.827]                   expr <- substitute(expr)
  [14:18:16.827]                 local <- as.logical(local)
  [14:18:16.827]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:16.827]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:16.827]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:16.827]                   label = label, ...)
  [14:18:16.827]                 if (!future$lazy) 
  [14:18:16.827]                   future <- run(future)
  [14:18:16.827]                 invisible(future)
  [14:18:16.827]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:16.827]         }
  [14:18:16.827]         base::options(...future.oldOptions)
  [14:18:16.827]     })
  [14:18:16.827]     Sys.time
  [14:18:16.827]     if (base::is.na(TRUE)) {
  [14:18:16.827]     }
  [14:18:16.827]     else {
  [14:18:16.827]         base::sink(type = "output", split = FALSE)
  [14:18:16.827]         if (TRUE) {
  [14:18:16.827]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:16.827]         }
  [14:18:16.827]         else {
  [14:18:16.827]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:16.827]         }
  [14:18:16.827]         base::close(...future.stdout)
  [14:18:16.827]         ...future.stdout <- NULL
  [14:18:16.827]     }
  [14:18:16.827]     ...future.result$conditions <- ...future.conditions
  [14:18:16.827]     ...future.result
  [14:18:16.827] }
  [14:18:16.836] plan(): Setting new future strategy stack:
  [14:18:16.836] List of future strategies:
  [14:18:16.836] 1. sequential:
  [14:18:16.836]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.836]    - tweaked: FALSE
  [14:18:16.836]    - call: NULL
  [14:18:16.837] plan(): nbrOfWorkers() = 1
  [14:18:16.942] plan(): Setting new future strategy stack:
  [14:18:16.943] List of future strategies:
  [14:18:16.943] 1. sequential:
  [14:18:16.943]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.943]    - tweaked: FALSE
  [14:18:16.943]    - call: future::plan(future::sequential)
  [14:18:16.944] plan(): nbrOfWorkers() = 1
  [14:18:16.944] SequentialFuture started (and completed)
  [14:18:16.945] signalConditions() ...
  [14:18:16.945]  - include = 'immediateCondition'
  [14:18:16.946]  - exclude = 
  [14:18:16.946]  - resignal = FALSE
  [14:18:16.946]  - Number of conditions: 96
  [14:18:16.947] signalConditions() ... done
  [14:18:16.947] Chunk #1 of 1 ... DONE
  [14:18:16.948] Launching 1 futures (chunks) ... DONE
  [14:18:16.948] - resolving futures
  [14:18:16.948]   - gathering results & relaying conditions (except errors)
  [14:18:16.949] resolve() on list ...
  [14:18:16.949]  recursive: 0
  [14:18:16.949]  length: 1
  [14:18:16.949] 
  [14:18:16.950] Future #1
  [14:18:16.950] signalConditions() ...
  [14:18:16.951]  - include = 'immediateCondition'
  [14:18:16.951]  - exclude = 
  [14:18:16.951]  - resignal = FALSE
  [14:18:16.952]  - Number of conditions: 96
  [14:18:16.952] signalConditions() ... done
  [14:18:16.953] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:16.953] - nx: 1
  [14:18:16.953] - relay: TRUE
  [14:18:16.954] - stdout: TRUE
  [14:18:16.954] - signal: TRUE
  [14:18:16.954] - resignal: FALSE
  [14:18:16.955] - force: FALSE
  [14:18:16.955] - relayed: [n=1] FALSE
  [14:18:16.955] - queued futures: [n=1] FALSE
  [14:18:16.956]  - until=1
  [14:18:16.956]  - relaying element #1
  [14:18:16.956] signalConditions() ...
  [14:18:16.957]  - include = 'immediateCondition'
  [14:18:16.957]  - exclude = 
  [14:18:16.957]  - resignal = FALSE
  [14:18:16.958]  - Number of conditions: 96
  [14:18:16.958] signalConditions() ... done
  [14:18:16.959] signalConditions() ...
  [14:18:16.959]  - include = 'immediateCondition'
  [14:18:16.959]  - exclude = 
  [14:18:16.960]  - resignal = FALSE
  [14:18:16.960]  - Number of conditions: 96
  [14:18:16.961] signalConditions() ... done
  [14:18:16.961] signalConditions() ...
  [14:18:16.961]  - include = 'condition'
  [14:18:16.962]  - exclude = 'immediateCondition'
  [14:18:16.962]  - resignal = FALSE
  [14:18:16.962]  - Number of conditions: 96
  [14:18:16.963]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:16.839] doFuture() ...
  [14:18:16.963]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:16.841] - dummy globals (as locals): [1] 'j'
  [14:18:16.964]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:16.842] - R expression:
  [14:18:16.964]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:16.842] {
  [14:18:16.842]     doFuture::registerDoFuture()
  [14:18:16.842]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.842]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.842]         j <- NULL
  [14:18:16.842]         ...future.env <- environment()
  [14:18:16.842]         local({
  [14:18:16.842]             for (name in names(...future.x_jj)) {
  [14:18:16.842]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.842]                   inherits = FALSE)
  [14:18:16.842]             }
  [14:18:16.842]         })
  [14:18:16.842]         tryCatch({
  [14:18:16.842]             j
  [14:18:16.842]         }, error = identity)
  [14:18:16.842]     })
  [14:18:16.842] }
  [14:18:16.965]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:16.843] - identifying globals and packages ...
  [14:18:16.965]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:16.844] getGlobalsAndPackages() ...
  [14:18:16.965]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:16.845] Searching for globals...
  [14:18:16.966]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:16.859] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:18:16.966]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:16.860] Searching for globals ... DONE
  [14:18:16.967]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:16.860] Resolving globals: FALSE
  [14:18:16.967]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:16.862] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:18:16.968]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:16.863] - globals: [1] '...future.x_ii'
  [14:18:16.968]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:16.863] 
  [14:18:16.969]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:16.864] getGlobalsAndPackages() ... DONE
  [14:18:16.969]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:16.864] List of 1
  [14:18:16.864]  $ ...future.x_ii: NULL
  [14:18:16.864]  - attr(*, "where")=List of 1
  [14:18:16.864]   ..$ ...future.x_ii:<environment: 0x562633b6aa40> 
  [14:18:16.864]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.864]  - attr(*, "resolved")= logi FALSE
  [14:18:16.864]  - attr(*, "total_size")= num 0
  [14:18:16.970]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:16.872]   - R expression:
  [14:18:16.970]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:16.872] {
  [14:18:16.872]     doFuture::registerDoFuture()
  [14:18:16.872]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.872]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.872]         j <- NULL
  [14:18:16.872]         ...future.env <- environment()
  [14:18:16.872]         local({
  [14:18:16.872]             for (name in names(...future.x_jj)) {
  [14:18:16.872]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.872]                   inherits = FALSE)
  [14:18:16.872]             }
  [14:18:16.872]         })
  [14:18:16.872]         tryCatch({
  [14:18:16.872]             j
  [14:18:16.872]         }, error = identity)
  [14:18:16.872]     })
  [14:18:16.872] }
  [14:18:16.970]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:16.873]   - globals: [1] '...future.x_ii'
  [14:18:16.971]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:16.874] List of 1
  [14:18:16.874]  $ ...future.x_ii: NULL
  [14:18:16.874]  - attr(*, "where")=List of 1
  [14:18:16.874]   ..$ ...future.x_ii:<environment: 0x562633b6aa40> 
  [14:18:16.874]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:16.874]  - attr(*, "resolved")= logi FALSE
  [14:18:16.874]  - attr(*, "total_size")= num 0
  [14:18:16.971]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:16.881]   - packages: [1] 'doFuture'
  [14:18:16.972]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:16.881] - identifying globals and packages ... DONE
  [14:18:16.972]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:16.882] Number of chunks: 1
  [14:18:16.973]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:16.882] Number of futures (= number of chunks): 1
  [14:18:16.973]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:16.883] Launching 1 futures (chunks) ...
  [14:18:16.974]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:16.884] Chunk #1 of 1 ...
  [14:18:16.974]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:16.884]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:16.975]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:16.885] getGlobalsAndPackages() ...
  [14:18:16.975]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:16.885] Searching for globals...
  [14:18:16.976]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:16.886] 
  [14:18:16.976]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:16.887] Searching for globals ... DONE
  [14:18:16.976]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:16.887] - globals: [0] <none>
  [14:18:16.977]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:16.888] getGlobalsAndPackages() ... DONE
  [14:18:16.977]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:16.888] 
  [14:18:16.978]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:16.888] 
  [14:18:16.978]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:16.889]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:16.979]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:16.890] getGlobalsAndPackages() ...
  [14:18:16.979]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:16.890] - globals passed as-is: [1] '...future.x_ii'
  [14:18:16.980]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:16.891] Resolving globals: FALSE
  [14:18:16.980]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:16.892] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:18:16.981]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:16.892] - globals: [1] '...future.x_ii'
  [14:18:16.981]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:16.893] 
  [14:18:16.982]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:16.893] getGlobalsAndPackages() ... DONE
  [14:18:16.982]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:16.896] Packages needed by the future expression (n = 1): 'doFuture'
  [14:18:16.983]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:16.897] Packages needed by future strategies (n = 0): <none>
  [14:18:16.983]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:16.905] {
  [14:18:16.905]     {
  [14:18:16.905]         ...future.startTime <- base::Sys.time()
  [14:18:16.905]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:16.905]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:16.905]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:16.905]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:16.905]             future.resolve.recursive = NULL, width = 80L)
  [14:18:16.905]         {
  [14:18:16.905]             {
  [14:18:16.905]                 {
  [14:18:16.905]                   has_future <- base::requireNamespace("future", 
  [14:18:16.905]                     quietly = TRUE)
  [14:18:16.905]                   version <- if (has_future) 
  [14:18:16.905]                     utils::packageVersion("future")
  [14:18:16.905]                   else NULL
  [14:18:16.905]                   if (!has_future || version < "1.8.0") {
  [14:18:16.905]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:16.905]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:16.905]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:16.905]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:16.905]                         "release", "version")], collapse = " "), 
  [14:18:16.905]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:16.905]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:16.905]                       info)
  [14:18:16.905]                     info <- base::paste(info, collapse = "; ")
  [14:18:16.905]                     if (!has_future) {
  [14:18:16.905]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:16.905]                         info)
  [14:18:16.905]                     }
  [14:18:16.905]                     else {
  [14:18:16.905]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:16.905]                         info, version)
  [14:18:16.905]                     }
  [14:18:16.905]                     base::stop(msg)
  [14:18:16.905]                   }
  [14:18:16.905]                 }
  [14:18:16.905]                 base::local({
  [14:18:16.905]                   for (pkg in "doFuture") {
  [14:18:16.905]                     base::loadNamespace(pkg)
  [14:18:16.905]                     base::library(pkg, character.only = TRUE)
  [14:18:16.905]                   }
  [14:18:16.905]                 })
  [14:18:16.905]             }
  [14:18:16.905]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:16.905]         }
  [14:18:16.905]     }
  [14:18:16.905]     if (base::is.na(TRUE)) {
  [14:18:16.905]     }
  [14:18:16.905]     else {
  [14:18:16.905]         if (TRUE) {
  [14:18:16.905]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:16.905]                 open = "w")
  [14:18:16.905]         }
  [14:18:16.905]         else {
  [14:18:16.905]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:16.905]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:16.905]         }
  [14:18:16.905]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:16.905]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:16.905]             base::sink(type = "output", split = FALSE)
  [14:18:16.905]             base::close(...future.stdout)
  [14:18:16.905]         }, add = TRUE)
  [14:18:16.905]     }
  [14:18:16.905]     ...future.frame <- base::sys.nframe()
  [14:18:16.905]     ...future.conditions <- base::list()
  [14:18:16.905]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:16.905]     ...future.result <- base::tryCatch({
  [14:18:16.905]         base::withCallingHandlers({
  [14:18:16.905]             ...future.value <- base::withVisible(base::local({
  [14:18:16.905]                 doFuture::registerDoFuture()
  [14:18:16.905]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:16.905]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:16.905]                   j <- NULL
  [14:18:16.905]                   ...future.env <- environment()
  [14:18:16.905]                   local({
  [14:18:16.905]                     for (name in names(...future.x_jj)) {
  [14:18:16.905]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:16.905]                         inherits = FALSE)
  [14:18:16.905]                     }
  [14:18:16.905]                   })
  [14:18:16.905]                   tryCatch({
  [14:18:16.905]                     j
  [14:18:16.905]                   }, error = identity)
  [14:18:16.905]                 })
  [14:18:16.905]             }))
  [14:18:16.905]             future::FutureResult(value = ...future.value$value, 
  [14:18:16.905]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.905]                   ...future.rng), started = ...future.startTime, 
  [14:18:16.905]                 version = "1.8")
  [14:18:16.905]         }, condition = base::local({
  [14:18:16.905]             c <- base::c
  [14:18:16.905]             inherits <- base::inherits
  [14:18:16.905]             invokeRestart <- base::invokeRestart
  [14:18:16.905]             length <- base::length
  [14:18:16.905]             list <- base::list
  [14:18:16.905]             seq.int <- base::seq.int
  [14:18:16.905]             signalCondition <- base::signalCondition
  [14:18:16.905]             sys.calls <- base::sys.calls
  [14:18:16.905]             Sys.time <- base::Sys.time
  [14:18:16.905]             `[[` <- base::`[[`
  [14:18:16.905]             `+` <- base::`+`
  [14:18:16.905]             `<<-` <- base::`<<-`
  [14:18:16.905]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:16.905]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:16.905]                   3L)]
  [14:18:16.905]             }
  [14:18:16.905]             function(cond) {
  [14:18:16.905]                 if (inherits(cond, "error")) {
  [14:18:16.905]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.905]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:16.905]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:16.905]                   signalCondition(cond)
  [14:18:16.905]                 }
  [14:18:16.905]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:16.905]                 ))) {
  [14:18:16.905]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:16.905]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:16.905]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:16.905]                   if (!signal) {
  [14:18:16.905]                     muffleCondition <- function (cond) 
  [14:18:16.905]                     {
  [14:18:16.905]                       inherits <- base::inherits
  [14:18:16.905]                       invokeRestart <- base::invokeRestart
  [14:18:16.905]                       muffled <- FALSE
  [14:18:16.905]                       if (inherits(cond, "message")) {
  [14:18:16.905]                         invokeRestart("muffleMessage")
  [14:18:16.905]                         muffled <- TRUE
  [14:18:16.905]                       }
  [14:18:16.905]                       else if (inherits(cond, "warning")) {
  [14:18:16.905]                         invokeRestart("muffleWarning")
  [14:18:16.905]                         muffled <- TRUE
  [14:18:16.905]                       }
  [14:18:16.905]                       else if (inherits(cond, "condition")) {
  [14:18:16.905]                         computeRestarts <- base::computeRestarts
  [14:18:16.905]                         grepl <- base::grepl
  [14:18:16.905]                         is.null <- base::is.null
  [14:18:16.905]                         restarts <- computeRestarts(cond)
  [14:18:16.905]                         for (restart in restarts) {
  [14:18:16.905]                           name <- restart$name
  [14:18:16.905]                           if (is.null(name)) 
  [14:18:16.905]                             next
  [14:18:16.905]                           if (!grepl("^muffle", name)) 
  [14:18:16.905]                             next
  [14:18:16.905]                           invokeRestart(restart)
  [14:18:16.905]                           muffled <- TRUE
  [14:18:16.905]                           break
  [14:18:16.905]                         }
  [14:18:16.905]                       }
  [14:18:16.905]                       invisible(muffled)
  [14:18:16.905]                     }
  [14:18:16.905]                     muffleCondition(cond)
  [14:18:16.905]                   }
  [14:18:16.905]                 }
  [14:18:16.905]             }
  [14:18:16.905]         }))
  [14:18:16.905]     }, error = function(ex) {
  [14:18:16.905]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:16.905]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:16.905]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:16.905]     }, finally = {
  [14:18:16.905]         {
  [14:18:16.905]             NULL
  [14:18:16.905]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:18:16.905]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:16.905]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:16.905]                 label = NULL, ...) 
  [14:18:16.905]             {
  [14:18:16.905]                 if (substitute) 
  [14:18:16.905]                   expr <- substitute(expr)
  [14:18:16.905]                 local <- as.logical(local)
  [14:18:16.905]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:16.905]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:16.905]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:16.905]                   label = label, ...)
  [14:18:16.905]                 if (!future$lazy) 
  [14:18:16.905]                   future <- run(future)
  [14:18:16.905]                 invisible(future)
  [14:18:16.905]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:16.905]         }
  [14:18:16.905]         base::options(...future.oldOptions)
  [14:18:16.905]     })
  [14:18:16.905]     Sys.time
  [14:18:16.905]     if (base::is.na(TRUE)) {
  [14:18:16.905]     }
  [14:18:16.905]     else {
  [14:18:16.905]         base::sink(type = "output", split = FALSE)
  [14:18:16.905]         if (TRUE) {
  [14:18:16.905]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:16.905]         }
  [14:18:16.905]         else {
  [14:18:16.905]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:16.905]         }
  [14:18:16.905]         base::close(...future.stdout)
  [14:18:16.905]         ...future.stdout <- NULL
  [14:18:16.905]     }
  [14:18:16.905]     ...future.result$conditions <- ...future.conditions
  [14:18:16.905]     ...future.result
  [14:18:16.905] }
  [14:18:16.984]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:16.911] plan(): Setting new future strategy stack:
  [14:18:16.984]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:16.912] List of future strategies:
  [14:18:16.912] 1. sequential:
  [14:18:16.912]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.912]    - tweaked: FALSE
  [14:18:16.912]    - call: NULL
  [14:18:16.984]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:16.913] plan(): nbrOfWorkers() = 1
  [14:18:16.985]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:16.915] plan(): Setting new future strategy stack:
  [14:18:16.985]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:16.916] List of future strategies:
  [14:18:16.916] 1. sequential:
  [14:18:16.916]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:16.916]    - tweaked: FALSE
  [14:18:16.916]    - call: NULL
  [14:18:16.986]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:16.917] plan(): nbrOfWorkers() = 1
  [14:18:16.986]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:16.918] SequentialFuture started (and completed)
  [14:18:16.987]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:16.918] Chunk #1 of 1 ... DONE
  [14:18:16.987]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:16.919] Launching 1 futures (chunks) ... DONE
  [14:18:16.988]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:16.919] - resolving futures
  [14:18:16.988]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:16.920]   - gathering results & relaying conditions (except errors)
  [14:18:16.989]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:16.920] resolve() on list ...
  [14:18:16.989]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:16.921]  recursive: 0
  [14:18:16.990]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:16.921]  length: 1
  [14:18:16.990]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:16.922] 
  [14:18:16.990]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:16.922] Future #1
  [14:18:16.991]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:16.923] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:16.991]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:16.924] - nx: 1
  [14:18:16.995]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:16.924] - relay: TRUE
  [14:18:16.996]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:16.925] - stdout: TRUE
  [14:18:16.997]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:16.925] - signal: TRUE
  [14:18:16.997]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:16.926] - resignal: FALSE
  [14:18:16.998]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:16.926] - force: FALSE
  [14:18:16.998]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:16.927] - relayed: [n=1] FALSE
  [14:18:16.998]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:16.927] - queued futures: [n=1] FALSE
  [14:18:16.999]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:16.928]  - until=1
  [14:18:16.999]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:16.928]  - relaying element #1
  [14:18:17.000]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:16.929] - relayed: [n=1] TRUE
  [14:18:17.000]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:16.930] - queued futures: [n=1] TRUE
  [14:18:17.001]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:16.930] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:17.001]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:16.931]  length: 0 (resolved future 1)
  [14:18:17.002]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:16.931] Relaying remaining futures
  [14:18:17.002]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:16.932] signalConditionsASAP(NULL, pos=0) ...
  [14:18:17.003]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:16.932] - nx: 1
  [14:18:17.003]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:16.933] - relay: TRUE
  [14:18:17.004]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:16.933] - stdout: TRUE
  [14:18:17.004]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:16.934] - signal: TRUE
  [14:18:17.005]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:16.934] - resignal: FALSE
  [14:18:17.005]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:16.935] - force: FALSE
  [14:18:17.005]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:16.935] - relayed: [n=1] TRUE
  [14:18:17.006]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:16.936] - queued futures: [n=1] TRUE
  [14:18:17.006]  - Condition #87: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:17.007]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:16.936] - relayed: [n=1] TRUE
  [14:18:17.007]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:16.937] - queued futures: [n=1] TRUE
  [14:18:17.008]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:16.938] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:17.008]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:16.938] resolve() on list ... DONE
  [14:18:17.009]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:16.939] - collecting values of futures
  [14:18:17.009]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:16.939] - accumulating results
  [14:18:17.010]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:16.940] - processing errors (handler = 'stop')
  [14:18:17.010]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:16.941] - extracting results
  [14:18:17.011]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:16.941] doFuture() ... DONE
  [14:18:17.011] signalConditions() ... done
  [14:18:17.012] - relayed: [n=1] TRUE
  [14:18:17.012] - queued futures: [n=1] TRUE
  [14:18:17.012] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:17.013]  length: 0 (resolved future 1)
  [14:18:17.013] Relaying remaining futures
  [14:18:17.013] signalConditionsASAP(NULL, pos=0) ...
  [14:18:17.013] - nx: 1
  [14:18:17.014] - relay: TRUE
  [14:18:17.014] - stdout: TRUE
  [14:18:17.014] - signal: TRUE
  [14:18:17.015] - resignal: FALSE
  [14:18:17.015] - force: FALSE
  [14:18:17.015] - relayed: [n=1] TRUE
  [14:18:17.016] - queued futures: [n=1] TRUE
   - flush all
  [14:18:17.016] - relayed: [n=1] TRUE
  [14:18:17.017] - queued futures: [n=1] TRUE
  [14:18:17.017] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:17.017] resolve() on list ... DONE
  [14:18:17.017] - collecting values of futures
  [14:18:17.018] signalConditions() ...
  [14:18:17.018]  - include = 'immediateCondition'
  [14:18:17.019]  - exclude = 
  [14:18:17.019]  - resignal = FALSE
  [14:18:17.019]  - Number of conditions: 96
  [14:18:17.020] signalConditions() ... done
  [14:18:17.020] - accumulating results
  [14:18:17.021] - processing errors (handler = 'stop')
  [14:18:17.021] - extracting results
  [14:18:17.022] 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("next")
  +       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("next")
  +         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')) ...
  [14:18:17.153] plan(): Setting new future strategy stack:
  [14:18:17.153] List of future strategies:
  [14:18:17.153] 1. sequential:
  [14:18:17.153]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.153]    - tweaked: FALSE
  [14:18:17.153]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.153] 2. sequential:
  [14:18:17.153]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.153]    - tweaked: FALSE
  [14:18:17.153]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.184] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:18:17.185] doFuture() ...
  [14:18:17.186] - dummy globals (as locals): [1] 'a'
  [14:18:17.187] - R expression:
  [14:18:17.188] {
  [14:18:17.188]     doFuture::registerDoFuture()
  [14:18:17.188]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.188]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.188]         a <- NULL
  [14:18:17.188]         ...future.env <- environment()
  [14:18:17.188]         local({
  [14:18:17.188]             for (name in names(...future.x_jj)) {
  [14:18:17.188]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.188]                   inherits = FALSE)
  [14:18:17.188]             }
  [14:18:17.188]         })
  [14:18:17.188]         tryCatch({
  [14:18:17.188]             plan_list <- future::plan("next")
  [14:18:17.188]             stopifnot(inherits(plan_list, strategy2))
  [14:18:17.188]             plan_a <- future::plan("list")
  [14:18:17.188]             str(plan_a)
  [14:18:17.188]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:17.188]             message("foreach() - level 2 ...")
  [14:18:17.188]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:17.188]                 {
  [14:18:17.188]                   plan_list <- future::plan("next")
  [14:18:17.188]                   message(capture.output(print(plan_list)))
  [14:18:17.188]                   stopifnot(inherits(plan_list, "future"))
  [14:18:17.188]                   default <- getOption("future.plan", "sequential")
  [14:18:17.188]                   if (is.function(default)) 
  [14:18:17.188]                     default <- class(default)
  [14:18:17.188]                   stopifnot(inherits(plan_list, default))
  [14:18:17.188]                   plan_b <- future::plan("list")
  [14:18:17.188]                   str(plan_b)
  [14:18:17.188]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.188]                     inherits(plan_b[[1]], default))
  [14:18:17.188]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.188]                 }
  [14:18:17.188]             message("foreach() - level 2 ... DONE")
  [14:18:17.188]             y
  [14:18:17.188]         }, error = identity)
  [14:18:17.188]     })
  [14:18:17.188] }
  [14:18:17.189] - identifying globals and packages ...
  [14:18:17.189] getGlobalsAndPackages() ...
  [14:18:17.190] Searching for globals...
  [14:18:17.229] - 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'
  [14:18:17.230] Searching for globals ... DONE
  [14:18:17.230] Resolving globals: FALSE
  [14:18:17.233] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:17.233] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.234] - packages: [2] 'utils', 'foreach'
  [14:18:17.234] getGlobalsAndPackages() ... DONE
  [14:18:17.234] List of 3
  [14:18:17.234]  $ ...future.x_ii: NULL
  [14:18:17.234]  $ strategy2     : chr "sequential"
  [14:18:17.234]  $ bs            : int [1:3] 3 2 1
  [14:18:17.234]  - attr(*, "where")=List of 3
  [14:18:17.234]   ..$ ...future.x_ii:<environment: 0x5626356e10c0> 
  [14:18:17.234]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:17.234]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:17.234]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.234]  - attr(*, "resolved")= logi FALSE
  [14:18:17.234]  - attr(*, "total_size")= num 184
  [14:18:17.246]   - R expression:
  [14:18:17.246] {
  [14:18:17.246]     doFuture::registerDoFuture()
  [14:18:17.246]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.246]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.246]         a <- NULL
  [14:18:17.246]         ...future.env <- environment()
  [14:18:17.246]         local({
  [14:18:17.246]             for (name in names(...future.x_jj)) {
  [14:18:17.246]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.246]                   inherits = FALSE)
  [14:18:17.246]             }
  [14:18:17.246]         })
  [14:18:17.246]         tryCatch({
  [14:18:17.246]             plan_list <- future::plan("next")
  [14:18:17.246]             stopifnot(inherits(plan_list, strategy2))
  [14:18:17.246]             plan_a <- future::plan("list")
  [14:18:17.246]             str(plan_a)
  [14:18:17.246]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:17.246]             message("foreach() - level 2 ...")
  [14:18:17.246]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:17.246]                 {
  [14:18:17.246]                   plan_list <- future::plan("next")
  [14:18:17.246]                   message(capture.output(print(plan_list)))
  [14:18:17.246]                   stopifnot(inherits(plan_list, "future"))
  [14:18:17.246]                   default <- getOption("future.plan", "sequential")
  [14:18:17.246]                   if (is.function(default)) 
  [14:18:17.246]                     default <- class(default)
  [14:18:17.246]                   stopifnot(inherits(plan_list, default))
  [14:18:17.246]                   plan_b <- future::plan("list")
  [14:18:17.246]                   str(plan_b)
  [14:18:17.246]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.246]                     inherits(plan_b[[1]], default))
  [14:18:17.246]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.246]                 }
  [14:18:17.246]             message("foreach() - level 2 ... DONE")
  [14:18:17.246]             y
  [14:18:17.246]         }, error = identity)
  [14:18:17.246]     })
  [14:18:17.246] }
  [14:18:17.248]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.248] List of 3
  [14:18:17.248]  $ ...future.x_ii: NULL
  [14:18:17.248]  $ strategy2     : chr "sequential"
  [14:18:17.248]  $ bs            : int [1:3] 3 2 1
  [14:18:17.248]  - attr(*, "where")=List of 3
  [14:18:17.248]   ..$ ...future.x_ii:<environment: 0x5626356e10c0> 
  [14:18:17.248]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:17.248]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:17.248]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.248]  - attr(*, "resolved")= logi FALSE
  [14:18:17.248]  - attr(*, "total_size")= num 184
  [14:18:17.259]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:17.260] - identifying globals and packages ... DONE
  [14:18:17.260] Number of chunks: 1
  [14:18:17.261] Number of futures (= number of chunks): 1
  [14:18:17.261] Launching 1 futures (chunks) ...
  [14:18:17.262] Chunk #1 of 1 ...
  [14:18:17.262]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:17.262] getGlobalsAndPackages() ...
  [14:18:17.263] Searching for globals...
  [14:18:17.264] 
  [14:18:17.264] Searching for globals ... DONE
  [14:18:17.264] - globals: [0] <none>
  [14:18:17.265] getGlobalsAndPackages() ... DONE
  [14:18:17.265] 
  [14:18:17.265] 
  [14:18:17.266]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:17.266] getGlobalsAndPackages() ...
  [14:18:17.267] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.270] Resolving globals: FALSE
  [14:18:17.272] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:18:17.272] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.273] 
  [14:18:17.273] getGlobalsAndPackages() ... DONE
  [14:18:17.275] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:17.276] Packages needed by future strategies (n = 1): 'future'
  [14:18:17.281] {
  [14:18:17.281]     {
  [14:18:17.281]         ...future.startTime <- base::Sys.time()
  [14:18:17.281]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:17.281]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:17.281]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:17.281]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:17.281]             future.resolve.recursive = NULL, width = 80L)
  [14:18:17.281]         {
  [14:18:17.281]             {
  [14:18:17.281]                 {
  [14:18:17.281]                   has_future <- base::requireNamespace("future", 
  [14:18:17.281]                     quietly = TRUE)
  [14:18:17.281]                   version <- if (has_future) 
  [14:18:17.281]                     utils::packageVersion("future")
  [14:18:17.281]                   else NULL
  [14:18:17.281]                   if (!has_future || version < "1.8.0") {
  [14:18:17.281]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:17.281]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:17.281]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:17.281]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:17.281]                         "release", "version")], collapse = " "), 
  [14:18:17.281]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:17.281]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:17.281]                       info)
  [14:18:17.281]                     info <- base::paste(info, collapse = "; ")
  [14:18:17.281]                     if (!has_future) {
  [14:18:17.281]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:17.281]                         info)
  [14:18:17.281]                     }
  [14:18:17.281]                     else {
  [14:18:17.281]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:17.281]                         info, version)
  [14:18:17.281]                     }
  [14:18:17.281]                     base::stop(msg)
  [14:18:17.281]                   }
  [14:18:17.281]                 }
  [14:18:17.281]                 base::local({
  [14:18:17.281]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:17.281]                   "future")) {
  [14:18:17.281]                     base::loadNamespace(pkg)
  [14:18:17.281]                     base::library(pkg, character.only = TRUE)
  [14:18:17.281]                   }
  [14:18:17.281]                 })
  [14:18:17.281]             }
  [14:18:17.281]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:17.281]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:17.281]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:17.281]                 label = NULL, ...) 
  [14:18:17.281]             {
  [14:18:17.281]                 if (substitute) 
  [14:18:17.281]                   expr <- substitute(expr)
  [14:18:17.281]                 local <- as.logical(local)
  [14:18:17.281]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:17.281]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:17.281]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:17.281]                   label = label, ...)
  [14:18:17.281]                 if (!future$lazy) 
  [14:18:17.281]                   future <- run(future)
  [14:18:17.281]                 invisible(future)
  [14:18:17.281]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:17.281]         }
  [14:18:17.281]     }
  [14:18:17.281]     if (base::is.na(TRUE)) {
  [14:18:17.281]     }
  [14:18:17.281]     else {
  [14:18:17.281]         if (TRUE) {
  [14:18:17.281]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:17.281]                 open = "w")
  [14:18:17.281]         }
  [14:18:17.281]         else {
  [14:18:17.281]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:17.281]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:17.281]         }
  [14:18:17.281]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:17.281]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:17.281]             base::sink(type = "output", split = FALSE)
  [14:18:17.281]             base::close(...future.stdout)
  [14:18:17.281]         }, add = TRUE)
  [14:18:17.281]     }
  [14:18:17.281]     ...future.frame <- base::sys.nframe()
  [14:18:17.281]     ...future.conditions <- base::list()
  [14:18:17.281]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:17.281]     ...future.result <- base::tryCatch({
  [14:18:17.281]         base::withCallingHandlers({
  [14:18:17.281]             ...future.value <- base::withVisible(base::local({
  [14:18:17.281]                 doFuture::registerDoFuture()
  [14:18:17.281]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.281]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.281]                   a <- NULL
  [14:18:17.281]                   ...future.env <- environment()
  [14:18:17.281]                   local({
  [14:18:17.281]                     for (name in names(...future.x_jj)) {
  [14:18:17.281]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.281]                         inherits = FALSE)
  [14:18:17.281]                     }
  [14:18:17.281]                   })
  [14:18:17.281]                   tryCatch({
  [14:18:17.281]                     plan_list <- future::plan("next")
  [14:18:17.281]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:17.281]                     plan_a <- future::plan("list")
  [14:18:17.281]                     str(plan_a)
  [14:18:17.281]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:17.281]                     message("foreach() - level 2 ...")
  [14:18:17.281]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:17.281]                       {
  [14:18:17.281]                         plan_list <- future::plan("next")
  [14:18:17.281]                         message(capture.output(print(plan_list)))
  [14:18:17.281]                         stopifnot(inherits(plan_list, "future"))
  [14:18:17.281]                         default <- getOption("future.plan", "sequential")
  [14:18:17.281]                         if (is.function(default)) 
  [14:18:17.281]                           default <- class(default)
  [14:18:17.281]                         stopifnot(inherits(plan_list, default))
  [14:18:17.281]                         plan_b <- future::plan("list")
  [14:18:17.281]                         str(plan_b)
  [14:18:17.281]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.281]                           inherits(plan_b[[1]], default))
  [14:18:17.281]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.281]                       }
  [14:18:17.281]                     message("foreach() - level 2 ... DONE")
  [14:18:17.281]                     y
  [14:18:17.281]                   }, error = identity)
  [14:18:17.281]                 })
  [14:18:17.281]             }))
  [14:18:17.281]             future::FutureResult(value = ...future.value$value, 
  [14:18:17.281]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.281]                   ...future.rng), started = ...future.startTime, 
  [14:18:17.281]                 version = "1.8")
  [14:18:17.281]         }, condition = base::local({
  [14:18:17.281]             c <- base::c
  [14:18:17.281]             inherits <- base::inherits
  [14:18:17.281]             invokeRestart <- base::invokeRestart
  [14:18:17.281]             length <- base::length
  [14:18:17.281]             list <- base::list
  [14:18:17.281]             seq.int <- base::seq.int
  [14:18:17.281]             signalCondition <- base::signalCondition
  [14:18:17.281]             sys.calls <- base::sys.calls
  [14:18:17.281]             Sys.time <- base::Sys.time
  [14:18:17.281]             `[[` <- base::`[[`
  [14:18:17.281]             `+` <- base::`+`
  [14:18:17.281]             `<<-` <- base::`<<-`
  [14:18:17.281]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:17.281]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:17.281]                   3L)]
  [14:18:17.281]             }
  [14:18:17.281]             function(cond) {
  [14:18:17.281]                 if (inherits(cond, "error")) {
  [14:18:17.281]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.281]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:17.281]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:17.281]                   signalCondition(cond)
  [14:18:17.281]                 }
  [14:18:17.281]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:17.281]                 ))) {
  [14:18:17.281]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:17.281]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.281]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:17.281]                   if (!signal) {
  [14:18:17.281]                     muffleCondition <- function (cond) 
  [14:18:17.281]                     {
  [14:18:17.281]                       inherits <- base::inherits
  [14:18:17.281]                       invokeRestart <- base::invokeRestart
  [14:18:17.281]                       muffled <- FALSE
  [14:18:17.281]                       if (inherits(cond, "message")) {
  [14:18:17.281]                         invokeRestart("muffleMessage")
  [14:18:17.281]                         muffled <- TRUE
  [14:18:17.281]                       }
  [14:18:17.281]                       else if (inherits(cond, "warning")) {
  [14:18:17.281]                         invokeRestart("muffleWarning")
  [14:18:17.281]                         muffled <- TRUE
  [14:18:17.281]                       }
  [14:18:17.281]                       else if (inherits(cond, "condition")) {
  [14:18:17.281]                         computeRestarts <- base::computeRestarts
  [14:18:17.281]                         grepl <- base::grepl
  [14:18:17.281]                         is.null <- base::is.null
  [14:18:17.281]                         restarts <- computeRestarts(cond)
  [14:18:17.281]                         for (restart in restarts) {
  [14:18:17.281]                           name <- restart$name
  [14:18:17.281]                           if (is.null(name)) 
  [14:18:17.281]                             next
  [14:18:17.281]                           if (!grepl("^muffle", name)) 
  [14:18:17.281]                             next
  [14:18:17.281]                           invokeRestart(restart)
  [14:18:17.281]                           muffled <- TRUE
  [14:18:17.281]                           break
  [14:18:17.281]                         }
  [14:18:17.281]                       }
  [14:18:17.281]                       invisible(muffled)
  [14:18:17.281]                     }
  [14:18:17.281]                     muffleCondition(cond)
  [14:18:17.281]                   }
  [14:18:17.281]                 }
  [14:18:17.281]             }
  [14:18:17.281]         }))
  [14:18:17.281]     }, error = function(ex) {
  [14:18:17.281]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:17.281]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.281]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:17.281]     }, finally = {
  [14:18:17.281]         {
  [14:18:17.281]             NULL
  [14:18:17.281]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:17.281]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:17.281]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:17.281]                 label = NULL, ...) 
  [14:18:17.281]             {
  [14:18:17.281]                 if (substitute) 
  [14:18:17.281]                   expr <- substitute(expr)
  [14:18:17.281]                 local <- as.logical(local)
  [14:18:17.281]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:17.281]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:17.281]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:17.281]                   label = label, ...)
  [14:18:17.281]                 if (!future$lazy) 
  [14:18:17.281]                   future <- run(future)
  [14:18:17.281]                 invisible(future)
  [14:18:17.281]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:17.281]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:18:17.281]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:17.281]             {
  [14:18:17.281]                 if (substitute) 
  [14:18:17.281]                   expr <- substitute(expr)
  [14:18:17.281]                 local <- as.logical(local)
  [14:18:17.281]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:17.281]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:17.281]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:17.281]                   label = label, ...)
  [14:18:17.281]                 if (!future$lazy) 
  [14:18:17.281]                   future <- run(future)
  [14:18:17.281]                 invisible(future)
  [14:18:17.281]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:17.281]         }
  [14:18:17.281]         base::options(...future.oldOptions)
  [14:18:17.281]     })
  [14:18:17.281]     Sys.time
  [14:18:17.281]     if (base::is.na(TRUE)) {
  [14:18:17.281]     }
  [14:18:17.281]     else {
  [14:18:17.281]         base::sink(type = "output", split = FALSE)
  [14:18:17.281]         if (TRUE) {
  [14:18:17.281]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:17.281]         }
  [14:18:17.281]         else {
  [14:18:17.281]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:17.281]         }
  [14:18:17.281]         base::close(...future.stdout)
  [14:18:17.281]         ...future.stdout <- NULL
  [14:18:17.281]     }
  [14:18:17.281]     ...future.result$conditions <- ...future.conditions
  [14:18:17.281]     ...future.result
  [14:18:17.281] }
  [14:18:17.289] plan(): Setting new future strategy stack:
  [14:18:17.289] List of future strategies:
  [14:18:17.289] 1. sequential:
  [14:18:17.289]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.289]    - tweaked: FALSE
  [14:18:17.289]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.290] plan(): nbrOfWorkers() = 1
  [14:18:17.759] plan(): Setting new future strategy stack:
  [14:18:17.760] List of future strategies:
  [14:18:17.760] 1. sequential:
  [14:18:17.760]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.760]    - tweaked: FALSE
  [14:18:17.760]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.760] 2. sequential:
  [14:18:17.760]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.760]    - tweaked: FALSE
  [14:18:17.760]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.761] plan(): nbrOfWorkers() = 1
  [14:18:17.762] SequentialFuture started (and completed)
  [14:18:17.763] signalConditions() ...
  [14:18:17.763]  - include = 'immediateCondition'
  [14:18:17.763]  - exclude = 
  [14:18:17.764]  - resignal = FALSE
  [14:18:17.764]  - Number of conditions: 280
  [14:18:17.765] signalConditions() ... done
  [14:18:17.766] Chunk #1 of 1 ... DONE
  [14:18:17.766] Launching 1 futures (chunks) ... DONE
  [14:18:17.766] - resolving futures
  [14:18:17.766]   - gathering results & relaying conditions (except errors)
  [14:18:17.767] resolve() on list ...
  [14:18:17.767]  recursive: 0
  [14:18:17.767]  length: 1
  [14:18:17.767] 
  [14:18:17.768] Future #1
  [14:18:17.768] signalConditions() ...
  [14:18:17.768]  - include = 'immediateCondition'
  [14:18:17.769]  - exclude = 
  [14:18:17.769]  - resignal = FALSE
  [14:18:17.769]  - Number of conditions: 280
  [14:18:17.771] signalConditions() ... done
  [14:18:17.771] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:17.771] - nx: 1
  [14:18:17.771] - relay: TRUE
  [14:18:17.772] - stdout: TRUE
  [14:18:17.772] - signal: TRUE
  [14:18:17.772] - resignal: FALSE
  [14:18:17.773] - force: FALSE
  [14:18:17.773] - relayed: [n=1] FALSE
  [14:18:17.773] - queued futures: [n=1] FALSE
  [14:18:17.773]  - until=1
  [14:18:17.774]  - relaying element #1
  [14:18:17.774] signalConditions() ...
  [14:18:17.774]  - include = 'immediateCondition'
  [14:18:17.775]  - exclude = 
  [14:18:17.775]  - resignal = FALSE
  [14:18:17.775]  - Number of conditions: 280
  [14:18:17.776] 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"
  [14:18:17.777] signalConditions() ...
  [14:18:17.777]  - include = 'immediateCondition'
  [14:18:17.778]  - exclude = 
  [14:18:17.778]  - resignal = FALSE
  [14:18:17.778]  - Number of conditions: 280
  [14:18:17.779] signalConditions() ... done
  [14:18:17.780] signalConditions() ...
  [14:18:17.780]  - include = 'condition'
  [14:18:17.780]  - exclude = 'immediateCondition'
  [14:18:17.780]  - resignal = FALSE
  [14:18:17.781]  - Number of conditions: 280
  [14:18:17.781]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:17.782]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:17.297] doFuture() ...
  [14:18:17.782]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:17.299] - dummy globals (as locals): [1] 'b'
  [14:18:17.782]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:17.300] - R expression:
  [14:18:17.783]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:17.300] {
  [14:18:17.300]     doFuture::registerDoFuture()
  [14:18:17.300]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.300]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.300]         b <- NULL
  [14:18:17.300]         ...future.env <- environment()
  [14:18:17.300]         local({
  [14:18:17.300]             for (name in names(...future.x_jj)) {
  [14:18:17.300]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.300]                   inherits = FALSE)
  [14:18:17.300]             }
  [14:18:17.300]         })
  [14:18:17.300]         tryCatch({
  [14:18:17.300]             plan_list <- future::plan("next")
  [14:18:17.300]             message(capture.output(print(plan_list)))
  [14:18:17.300]             stopifnot(inherits(plan_list, "future"))
  [14:18:17.300]             default <- getOption("future.plan", "sequential")
  [14:18:17.300]             if (is.function(default)) 
  [14:18:17.300]                 default <- class(default)
  [14:18:17.300]             stopifnot(inherits(plan_list, default))
  [14:18:17.300]             plan_b <- future::plan("list")
  [14:18:17.300]             str(plan_b)
  [14:18:17.300]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:17.300]                 default))
  [14:18:17.300]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.300]         }, error = identity)
  [14:18:17.300]     })
  [14:18:17.300] }
  [14:18:17.783]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:17.302] - identifying globals and packages ...
  [14:18:17.784]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:17.302] getGlobalsAndPackages() ...
  [14:18:17.784]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:17.303] Searching for globals...
  [14:18:17.784]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:17.336] - 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'
  [14:18:17.785]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:17.337] Searching for globals ... DONE
  [14:18:17.785]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:17.338] Resolving globals: FALSE
  [14:18:17.786]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:17.342] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:18:17.786]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:17.342] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.787]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:17.343] - packages: [1] 'utils'
  [14:18:17.787]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:17.344] getGlobalsAndPackages() ... DONE
  [14:18:17.787]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:17.344] List of 3
  [14:18:17.344]  $ ...future.x_ii: NULL
  [14:18:17.344]  $ a             : int 1
  [14:18:17.344]  $ plan_a        :List of 1
  [14:18:17.344]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:17.344]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:17.344]     ...)  
  [14:18:17.344]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:17.344]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:17.344]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:17.344]  - attr(*, "where")=List of 3
  [14:18:17.344]   ..$ ...future.x_ii:<environment: 0x562633911be0> 
  [14:18:17.344]   ..$ a             :<environment: 0x562634597d88> 
  [14:18:17.344]   ..$ plan_a        :<environment: 0x562634597d88> 
  [14:18:17.344]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.344]  - attr(*, "resolved")= logi FALSE
  [14:18:17.344]  - attr(*, "total_size")= num 40624
  [14:18:17.788]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:17.360]   - R expression:
  [14:18:17.788]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:17.360] {
  [14:18:17.360]     doFuture::registerDoFuture()
  [14:18:17.360]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.360]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.360]         b <- NULL
  [14:18:17.360]         ...future.env <- environment()
  [14:18:17.360]         local({
  [14:18:17.360]             for (name in names(...future.x_jj)) {
  [14:18:17.360]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.360]                   inherits = FALSE)
  [14:18:17.360]             }
  [14:18:17.360]         })
  [14:18:17.360]         tryCatch({
  [14:18:17.360]             plan_list <- future::plan("next")
  [14:18:17.360]             message(capture.output(print(plan_list)))
  [14:18:17.360]             stopifnot(inherits(plan_list, "future"))
  [14:18:17.360]             default <- getOption("future.plan", "sequential")
  [14:18:17.360]             if (is.function(default)) 
  [14:18:17.360]                 default <- class(default)
  [14:18:17.360]             stopifnot(inherits(plan_list, default))
  [14:18:17.360]             plan_b <- future::plan("list")
  [14:18:17.360]             str(plan_b)
  [14:18:17.360]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:17.360]                 default))
  [14:18:17.360]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.360]         }, error = identity)
  [14:18:17.360]     })
  [14:18:17.360] }
  [14:18:17.789]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:17.362]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.789]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:17.362] List of 3
  [14:18:17.362]  $ ...future.x_ii: NULL
  [14:18:17.362]  $ a             : int 1
  [14:18:17.362]  $ plan_a        :List of 1
  [14:18:17.362]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:17.362]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:17.362]     ...)  
  [14:18:17.362]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:17.362]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:17.362]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:17.362]  - attr(*, "where")=List of 3
  [14:18:17.362]   ..$ ...future.x_ii:<environment: 0x562633911be0> 
  [14:18:17.362]   ..$ a             :<environment: 0x562634597d88> 
  [14:18:17.362]   ..$ plan_a        :<environment: 0x562634597d88> 
  [14:18:17.362]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.362]  - attr(*, "resolved")= logi FALSE
  [14:18:17.362]  - attr(*, "total_size")= num 40624
  [14:18:17.790]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:17.378]   - packages: [2] 'doFuture', 'utils'
  [14:18:17.790]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:17.378] - identifying globals and packages ... DONE
  [14:18:17.790]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:17.379] Number of chunks: 1
  [14:18:17.791]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:17.379] Number of futures (= number of chunks): 1
  [14:18:17.791]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:17.381] Launching 1 futures (chunks) ...
  [14:18:17.792]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:17.381] Chunk #1 of 1 ...
  [14:18:17.792]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:17.382]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:17.793]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:17.382] getGlobalsAndPackages() ...
  [14:18:17.793]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:17.383] Searching for globals...
  [14:18:17.793]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:17.384] 
  [14:18:17.794]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:17.385] Searching for globals ... DONE
  [14:18:17.794]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:17.385] - globals: [0] <none>
  [14:18:17.795]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:17.386] getGlobalsAndPackages() ... DONE
  [14:18:17.795]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:17.386] 
  [14:18:17.795]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:17.387] 
  [14:18:17.796]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:17.388]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:17.796]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:17.388] getGlobalsAndPackages() ...
  [14:18:17.797]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:17.389] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.797]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:17.389] Resolving globals: FALSE
  [14:18:17.798]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:17.391] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:18:17.798]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:17.392] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.798]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:17.393] 
  [14:18:17.799]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:17.394] getGlobalsAndPackages() ... DONE
  [14:18:17.799]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:17.396] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:17.800]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:17.397] Packages needed by future strategies (n = 0): <none>
  [14:18:17.800]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:17.407] {
  [14:18:17.407]     {
  [14:18:17.407]         ...future.startTime <- base::Sys.time()
  [14:18:17.407]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:17.407]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:17.407]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:17.407]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:17.407]             future.resolve.recursive = NULL, width = 80L)
  [14:18:17.407]         {
  [14:18:17.407]             {
  [14:18:17.407]                 {
  [14:18:17.407]                   has_future <- base::requireNamespace("future", 
  [14:18:17.407]                     quietly = TRUE)
  [14:18:17.407]                   version <- if (has_future) 
  [14:18:17.407]                     utils::packageVersion("future")
  [14:18:17.407]                   else NULL
  [14:18:17.407]                   if (!has_future || version < "1.8.0") {
  [14:18:17.407]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:17.407]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:17.407]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:17.407]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:17.407]                         "release", "version")], collapse = " "), 
  [14:18:17.407]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:17.407]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:17.407]                       info)
  [14:18:17.407]                     info <- base::paste(info, collapse = "; ")
  [14:18:17.407]                     if (!has_future) {
  [14:18:17.407]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:17.407]                         info)
  [14:18:17.407]                     }
  [14:18:17.407]                     else {
  [14:18:17.407]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:17.407]                         info, version)
  [14:18:17.407]                     }
  [14:18:17.407]                     base::stop(msg)
  [14:18:17.407]                   }
  [14:18:17.407]                 }
  [14:18:17.407]                 base::local({
  [14:18:17.407]                   for (pkg in c("doFuture", "utils")) {
  [14:18:17.407]                     base::loadNamespace(pkg)
  [14:18:17.407]                     base::library(pkg, character.only = TRUE)
  [14:18:17.407]                   }
  [14:18:17.407]                 })
  [14:18:17.407]             }
  [14:18:17.407]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:17.407]         }
  [14:18:17.407]     }
  [14:18:17.407]     if (base::is.na(TRUE)) {
  [14:18:17.407]     }
  [14:18:17.407]     else {
  [14:18:17.407]         if (TRUE) {
  [14:18:17.407]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:17.407]                 open = "w")
  [14:18:17.407]         }
  [14:18:17.407]         else {
  [14:18:17.407]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:17.407]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:17.407]         }
  [14:18:17.407]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:17.407]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:17.407]             base::sink(type = "output", split = FALSE)
  [14:18:17.407]             base::close(...future.stdout)
  [14:18:17.407]         }, add = TRUE)
  [14:18:17.407]     }
  [14:18:17.407]     ...future.frame <- base::sys.nframe()
  [14:18:17.407]     ...future.conditions <- base::list()
  [14:18:17.407]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:17.407]     ...future.result <- base::tryCatch({
  [14:18:17.407]         base::withCallingHandlers({
  [14:18:17.407]             ...future.value <- base::withVisible(base::local({
  [14:18:17.407]                 doFuture::registerDoFuture()
  [14:18:17.407]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.407]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.407]                   b <- NULL
  [14:18:17.407]                   ...future.env <- environment()
  [14:18:17.407]                   local({
  [14:18:17.407]                     for (name in names(...future.x_jj)) {
  [14:18:17.407]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.407]                         inherits = FALSE)
  [14:18:17.407]                     }
  [14:18:17.407]                   })
  [14:18:17.407]                   tryCatch({
  [14:18:17.407]                     plan_list <- future::plan("next")
  [14:18:17.407]                     message(capture.output(print(plan_list)))
  [14:18:17.407]                     stopifnot(inherits(plan_list, "future"))
  [14:18:17.407]                     default <- getOption("future.plan", "sequential")
  [14:18:17.407]                     if (is.function(default)) 
  [14:18:17.407]                       default <- class(default)
  [14:18:17.407]                     stopifnot(inherits(plan_list, default))
  [14:18:17.407]                     plan_b <- future::plan("list")
  [14:18:17.407]                     str(plan_b)
  [14:18:17.407]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.407]                       inherits(plan_b[[1]], default))
  [14:18:17.407]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.407]                   }, error = identity)
  [14:18:17.407]                 })
  [14:18:17.407]             }))
  [14:18:17.407]             future::FutureResult(value = ...future.value$value, 
  [14:18:17.407]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.407]                   ...future.rng), started = ...future.startTime, 
  [14:18:17.407]                 version = "1.8")
  [14:18:17.407]         }, condition = base::local({
  [14:18:17.407]             c <- base::c
  [14:18:17.407]             inherits <- base::inherits
  [14:18:17.407]             invokeRestart <- base::invokeRestart
  [14:18:17.407]             length <- base::length
  [14:18:17.407]             list <- base::list
  [14:18:17.407]             seq.int <- base::seq.int
  [14:18:17.407]             signalCondition <- base::signalCondition
  [14:18:17.407]             sys.calls <- base::sys.calls
  [14:18:17.407]             Sys.time <- base::Sys.time
  [14:18:17.407]             `[[` <- base::`[[`
  [14:18:17.407]             `+` <- base::`+`
  [14:18:17.407]             `<<-` <- base::`<<-`
  [14:18:17.407]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:17.407]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:17.407]                   3L)]
  [14:18:17.407]             }
  [14:18:17.407]             function(cond) {
  [14:18:17.407]                 if (inherits(cond, "error")) {
  [14:18:17.407]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.407]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:17.407]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:17.407]                   signalCondition(cond)
  [14:18:17.407]                 }
  [14:18:17.407]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:17.407]                 ))) {
  [14:18:17.407]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:17.407]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.407]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:17.407]                   if (!signal) {
  [14:18:17.407]                     muffleCondition <- function (cond) 
  [14:18:17.407]                     {
  [14:18:17.407]                       inherits <- base::inherits
  [14:18:17.407]                       invokeRestart <- base::invokeRestart
  [14:18:17.407]                       muffled <- FALSE
  [14:18:17.407]                       if (inherits(cond, "message")) {
  [14:18:17.407]                         invokeRestart("muffleMessage")
  [14:18:17.407]                         muffled <- TRUE
  [14:18:17.407]                       }
  [14:18:17.407]                       else if (inherits(cond, "warning")) {
  [14:18:17.407]                         invokeRestart("muffleWarning")
  [14:18:17.407]                         muffled <- TRUE
  [14:18:17.407]                       }
  [14:18:17.407]                       else if (inherits(cond, "condition")) {
  [14:18:17.407]                         computeRestarts <- base::computeRestarts
  [14:18:17.407]                         grepl <- base::grepl
  [14:18:17.407]                         is.null <- base::is.null
  [14:18:17.407]                         restarts <- computeRestarts(cond)
  [14:18:17.407]                         for (restart in restarts) {
  [14:18:17.407]                           name <- restart$name
  [14:18:17.407]                           if (is.null(name)) 
  [14:18:17.407]                             next
  [14:18:17.407]                           if (!grepl("^muffle", name)) 
  [14:18:17.407]                             next
  [14:18:17.407]                           invokeRestart(restart)
  [14:18:17.407]                           muffled <- TRUE
  [14:18:17.407]                           break
  [14:18:17.407]                         }
  [14:18:17.407]                       }
  [14:18:17.407]                       invisible(muffled)
  [14:18:17.407]                     }
  [14:18:17.407]                     muffleCondition(cond)
  [14:18:17.407]                   }
  [14:18:17.407]                 }
  [14:18:17.407]             }
  [14:18:17.407]         }))
  [14:18:17.407]     }, error = function(ex) {
  [14:18:17.407]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:17.407]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.407]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:17.407]     }, finally = {
  [14:18:17.407]         {
  [14:18:17.407]             NULL
  [14:18:17.407]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:17.407]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:17.407]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:17.407]                 label = NULL, ...) 
  [14:18:17.407]             {
  [14:18:17.407]                 if (substitute) 
  [14:18:17.407]                   expr <- substitute(expr)
  [14:18:17.407]                 local <- as.logical(local)
  [14:18:17.407]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:17.407]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:17.407]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:17.407]                   label = label, ...)
  [14:18:17.407]                 if (!future$lazy) 
  [14:18:17.407]                   future <- run(future)
  [14:18:17.407]                 invisible(future)
  [14:18:17.407]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:17.407]         }
  [14:18:17.407]         base::options(...future.oldOptions)
  [14:18:17.407]     })
  [14:18:17.407]     Sys.time
  [14:18:17.407]     if (base::is.na(TRUE)) {
  [14:18:17.407]     }
  [14:18:17.407]     else {
  [14:18:17.407]         base::sink(type = "output", split = FALSE)
  [14:18:17.407]         if (TRUE) {
  [14:18:17.407]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:17.407]         }
  [14:18:17.407]         else {
  [14:18:17.407]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:17.407]         }
  [14:18:17.407]         base::close(...future.stdout)
  [14:18:17.407]         ...future.stdout <- NULL
  [14:18:17.407]     }
  [14:18:17.407]     ...future.result$conditions <- ...future.conditions
  [14:18:17.407]     ...future.result
  [14:18:17.407] }
  [14:18:17.801]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:17.413] plan(): Setting new future strategy stack:
  [14:18:17.801]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:17.414] List of future strategies:
  [14:18:17.414] 1. sequential:
  [14:18:17.414]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.414]    - tweaked: FALSE
  [14:18:17.414]    - call: NULL
  [14:18:17.801]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:17.415] plan(): nbrOfWorkers() = 1
  [14:18:17.802]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:17.471] plan(): Setting new future strategy stack:
  [14:18:17.802]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:17.472] List of future strategies:
  [14:18:17.472] 1. sequential:
  [14:18:17.472]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.472]    - tweaked: FALSE
  [14:18:17.472]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.803]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:17.473] plan(): nbrOfWorkers() = 1
  [14:18:17.803]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:17.474] SequentialFuture started (and completed)
  [14:18:17.804]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:17.475] signalConditions() ...
  [14:18:17.804]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:17.475]  - include = 'immediateCondition'
  [14:18:17.804]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:17.476]  - exclude = 
  [14:18:17.808]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:17.476]  - resignal = FALSE
  [14:18:17.809]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:17.477]  - Number of conditions: 3
  [14:18:17.809]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:17.477] signalConditions() ... done
  [14:18:17.810]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:17.478] Chunk #1 of 1 ... DONE
  [14:18:17.810]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:17.479] Launching 1 futures (chunks) ... DONE
  [14:18:17.811]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:17.479] - resolving futures
  [14:18:17.811]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:17.480]   - gathering results & relaying conditions (except errors)
  [14:18:17.811]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:17.480] resolve() on list ...
  [14:18:17.812]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:17.481]  recursive: 0
  [14:18:17.812]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:17.481]  length: 1
  [14:18:17.813]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:17.482] 
  [14:18:17.813]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:17.482] Future #1
  [14:18:17.814]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:17.483] signalConditions() ...
  [14:18:17.814]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:17.483]  - include = 'immediateCondition'
  [14:18:17.814]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:17.484]  - exclude = 
  [14:18:17.815]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:17.484]  - resignal = FALSE
  [14:18:17.815]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:17.485]  - Number of conditions: 3
  [14:18:17.816]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:17.485] signalConditions() ... done
  [14:18:17.816]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:17.486] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:17.817]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:17.487] - nx: 1
  [14:18:17.817]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:17.487] - relay: TRUE
  [14:18:17.818]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:17.487] - stdout: TRUE
  [14:18:17.818]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:17.488] - signal: TRUE
  [14:18:17.819]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:17.488] - resignal: FALSE
  [14:18:17.819]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:17.489] - force: FALSE
  [14:18:17.819]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:17.489] - relayed: [n=1] FALSE
  [14:18:17.820]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:17.490] - queued futures: [n=1] FALSE
  [14:18:17.820]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:17.490]  - until=1
  [14:18:17.821]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:17.491]  - relaying element #1
  [14:18:17.821]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:17.492] signalConditions() ...
  [14:18:17.821]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:17.492]  - include = 'immediateCondition'
  [14:18:17.822]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:17.493]  - exclude = 
  [14:18:17.822]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:17.493]  - resignal = FALSE
  [14:18:17.823]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:17.494]  - Number of conditions: 3
  [14:18:17.823]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:17.494] signalConditions() ... done
  [14:18:17.824]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:17.495] signalConditions() ...
  [14:18:17.824]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:17.495]  - include = 'immediateCondition'
  [14:18:17.824]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:17.496]  - exclude = 
  [14:18:17.825]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:17.496]  - resignal = FALSE
  [14:18:17.825]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:17.497]  - Number of conditions: 3
  [14:18:17.826]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:17.497] signalConditions() ... done
  [14:18:17.826]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:17.498] signalConditions() ...
  [14:18:17.828]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:17.498]  - include = 'condition'
  [14:18:17.829]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:17.499]  - exclude = 'immediateCondition'
  [14:18:17.829]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:17.499]  - resignal = FALSE
  [14:18:17.830]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:17.500]  - Number of conditions: 3
  [14:18:17.830]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:17.500]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:17.831]  - Condition #104: '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
  [14:18:17.831]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:17.501]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:17.831]  - Condition #106: '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
  [14:18:17.832]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:17.502]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:17.832]  - Condition #108: '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
  [14:18:17.833]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:17.503] signalConditions() ... done
  [14:18:17.833]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:17.503] - relayed: [n=1] TRUE
  [14:18:17.834]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:17.504] - queued futures: [n=1] TRUE
  [14:18:17.834]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:17.504] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:17.834]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:17.505]  length: 0 (resolved future 1)
  [14:18:17.836]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:17.505] Relaying remaining futures
  [14:18:17.836]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:17.506] signalConditionsASAP(NULL, pos=0) ...
  [14:18:17.837]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:17.506] - nx: 1
  [14:18:17.837]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:17.507] - relay: TRUE
  [14:18:17.838]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:17.507] - stdout: TRUE
  [14:18:17.838]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:17.507] - signal: TRUE
  [14:18:17.839]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:17.508] - resignal: FALSE
  [14:18:17.839]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:17.508] - force: FALSE
  [14:18:17.839]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:17.509] - relayed: [n=1] TRUE
  [14:18:17.840]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:17.509] - queued futures: [n=1] TRUE
  [14:18:17.840]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:17.841]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:17.510] - relayed: [n=1] TRUE
  [14:18:17.841]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:17.511] - queued futures: [n=1] TRUE
  [14:18:17.842]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:17.511] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:17.842]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:17.512] resolve() on list ... DONE
  [14:18:17.842]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:17.512] - collecting values of futures
  [14:18:17.843]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:17.513] signalConditions() ...
  [14:18:17.843]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:17.513]  - include = 'immediateCondition'
  [14:18:17.844]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:17.514]  - exclude = 
  [14:18:17.844]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:17.514]  - resignal = FALSE
  [14:18:17.845]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:17.515]  - Number of conditions: 3
  [14:18:17.845]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:17.515] signalConditions() ... done
  [14:18:17.845]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:17.516] - accumulating results
  [14:18:17.846]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:17.517] - processing errors (handler = 'stop')
  [14:18:17.846]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:17.518] - extracting results
  [14:18:17.847]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:17.518] doFuture() ... DONE
  [14:18:17.847]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:17.847]  - Condition #141: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:17.848]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:18:17.579] doFuture() ...
  [14:18:17.848]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:18:17.581] - dummy globals (as locals): [1] 'b'
  [14:18:17.849]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:18:17.582] - R expression:
  [14:18:17.849]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:18:17.583] {
  [14:18:17.583]     doFuture::registerDoFuture()
  [14:18:17.583]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.583]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.583]         b <- NULL
  [14:18:17.583]         ...future.env <- environment()
  [14:18:17.583]         local({
  [14:18:17.583]             for (name in names(...future.x_jj)) {
  [14:18:17.583]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.583]                   inherits = FALSE)
  [14:18:17.583]             }
  [14:18:17.583]         })
  [14:18:17.583]         tryCatch({
  [14:18:17.583]             plan_list <- future::plan("next")
  [14:18:17.583]             message(capture.output(print(plan_list)))
  [14:18:17.583]             stopifnot(inherits(plan_list, "future"))
  [14:18:17.583]             default <- getOption("future.plan", "sequential")
  [14:18:17.583]             if (is.function(default)) 
  [14:18:17.583]                 default <- class(default)
  [14:18:17.583]             stopifnot(inherits(plan_list, default))
  [14:18:17.583]             plan_b <- future::plan("list")
  [14:18:17.583]             str(plan_b)
  [14:18:17.583]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:17.583]                 default))
  [14:18:17.583]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.583]         }, error = identity)
  [14:18:17.583]     })
  [14:18:17.583] }
  [14:18:17.850]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:18:17.584] - identifying globals and packages ...
  [14:18:17.850]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:18:17.585] getGlobalsAndPackages() ...
  [14:18:17.850]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:18:17.585] Searching for globals...
  [14:18:17.851]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:18:17.618] - 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'
  [14:18:17.851]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:18:17.619] Searching for globals ... DONE
  [14:18:17.852]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:18:17.620] Resolving globals: FALSE
  [14:18:17.852]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:18:17.623] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:18:17.853]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:18:17.624] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.853]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:18:17.624] - packages: [1] 'utils'
  [14:18:17.853]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:18:17.625] getGlobalsAndPackages() ... DONE
  [14:18:17.854]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:18:17.625] List of 3
  [14:18:17.625]  $ ...future.x_ii: NULL
  [14:18:17.625]  $ a             : int 2
  [14:18:17.625]  $ plan_a        :List of 1
  [14:18:17.625]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:17.625]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:17.625]     ...)  
  [14:18:17.625]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:17.625]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:17.625]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:17.625]  - attr(*, "where")=List of 3
  [14:18:17.625]   ..$ ...future.x_ii:<environment: 0x56263569ca40> 
  [14:18:17.625]   ..$ a             :<environment: 0x56263549fa20> 
  [14:18:17.625]   ..$ plan_a        :<environment: 0x56263549fa20> 
  [14:18:17.625]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.625]  - attr(*, "resolved")= logi FALSE
  [14:18:17.625]  - attr(*, "total_size")= num 40624
  [14:18:17.854]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:18:17.641]   - R expression:
  [14:18:17.855]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:18:17.642] {
  [14:18:17.642]     doFuture::registerDoFuture()
  [14:18:17.642]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.642]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.642]         b <- NULL
  [14:18:17.642]         ...future.env <- environment()
  [14:18:17.642]         local({
  [14:18:17.642]             for (name in names(...future.x_jj)) {
  [14:18:17.642]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.642]                   inherits = FALSE)
  [14:18:17.642]             }
  [14:18:17.642]         })
  [14:18:17.642]         tryCatch({
  [14:18:17.642]             plan_list <- future::plan("next")
  [14:18:17.642]             message(capture.output(print(plan_list)))
  [14:18:17.642]             stopifnot(inherits(plan_list, "future"))
  [14:18:17.642]             default <- getOption("future.plan", "sequential")
  [14:18:17.642]             if (is.function(default)) 
  [14:18:17.642]                 default <- class(default)
  [14:18:17.642]             stopifnot(inherits(plan_list, default))
  [14:18:17.642]             plan_b <- future::plan("list")
  [14:18:17.642]             str(plan_b)
  [14:18:17.642]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:17.642]                 default))
  [14:18:17.642]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.642]         }, error = identity)
  [14:18:17.642]     })
  [14:18:17.642] }
  [14:18:17.855]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:18:17.643]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.855]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:18:17.644] List of 3
  [14:18:17.644]  $ ...future.x_ii: NULL
  [14:18:17.644]  $ a             : int 2
  [14:18:17.644]  $ plan_a        :List of 1
  [14:18:17.644]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:17.644]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:17.644]     ...)  
  [14:18:17.644]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:17.644]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:17.644]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:17.644]  - attr(*, "where")=List of 3
  [14:18:17.644]   ..$ ...future.x_ii:<environment: 0x56263569ca40> 
  [14:18:17.644]   ..$ a             :<environment: 0x56263549fa20> 
  [14:18:17.644]   ..$ plan_a        :<environment: 0x56263549fa20> 
  [14:18:17.644]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.644]  - attr(*, "resolved")= logi FALSE
  [14:18:17.644]  - attr(*, "total_size")= num 40624
  [14:18:17.856]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:18:17.659]   - packages: [2] 'doFuture', 'utils'
  [14:18:17.856]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:18:17.659] - identifying globals and packages ... DONE
  [14:18:17.857]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:18:17.660] Number of chunks: 1
  [14:18:17.857]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:18:17.664] Number of futures (= number of chunks): 1
  [14:18:17.858]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:18:17.665] Launching 1 futures (chunks) ...
  [14:18:17.858]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:18:17.665] Chunk #1 of 1 ...
  [14:18:17.859]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:18:17.666]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:17.859]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:18:17.666] getGlobalsAndPackages() ...
  [14:18:17.859]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:18:17.667] Searching for globals...
  [14:18:17.860]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:18:17.668] 
  [14:18:17.860]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:18:17.669] Searching for globals ... DONE
  [14:18:17.861]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:18:17.669] - globals: [0] <none>
  [14:18:17.861]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:18:17.670] getGlobalsAndPackages() ... DONE
  [14:18:17.862]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:18:17.670] 
  [14:18:17.862]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:18:17.671] 
  [14:18:17.862]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:18:17.671]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:17.863]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:18:17.672] getGlobalsAndPackages() ...
  [14:18:17.863]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:18:17.672] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.864]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:18:17.673] Resolving globals: FALSE
  [14:18:17.864]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:18:17.674] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:18:17.865]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:18:17.675] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:17.865]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:18:17.675] 
  [14:18:17.865]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:18:17.676] getGlobalsAndPackages() ... DONE
  [14:18:17.866]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:18:17.678] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:17.866]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:18:17.679] Packages needed by future strategies (n = 0): <none>
  [14:18:17.867]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:18:17.685] {
  [14:18:17.685]     {
  [14:18:17.685]         ...future.startTime <- base::Sys.time()
  [14:18:17.685]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:17.685]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:17.685]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:17.685]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:17.685]             future.resolve.recursive = NULL, width = 80L)
  [14:18:17.685]         {
  [14:18:17.685]             {
  [14:18:17.685]                 {
  [14:18:17.685]                   has_future <- base::requireNamespace("future", 
  [14:18:17.685]                     quietly = TRUE)
  [14:18:17.685]                   version <- if (has_future) 
  [14:18:17.685]                     utils::packageVersion("future")
  [14:18:17.685]                   else NULL
  [14:18:17.685]                   if (!has_future || version < "1.8.0") {
  [14:18:17.685]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:17.685]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:17.685]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:17.685]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:17.685]                         "release", "version")], collapse = " "), 
  [14:18:17.685]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:17.685]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:17.685]                       info)
  [14:18:17.685]                     info <- base::paste(info, collapse = "; ")
  [14:18:17.685]                     if (!has_future) {
  [14:18:17.685]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:17.685]                         info)
  [14:18:17.685]                     }
  [14:18:17.685]                     else {
  [14:18:17.685]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:17.685]                         info, version)
  [14:18:17.685]                     }
  [14:18:17.685]                     base::stop(msg)
  [14:18:17.685]                   }
  [14:18:17.685]                 }
  [14:18:17.685]                 base::local({
  [14:18:17.685]                   for (pkg in c("doFuture", "utils")) {
  [14:18:17.685]                     base::loadNamespace(pkg)
  [14:18:17.685]                     base::library(pkg, character.only = TRUE)
  [14:18:17.685]                   }
  [14:18:17.685]                 })
  [14:18:17.685]             }
  [14:18:17.685]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:17.685]         }
  [14:18:17.685]     }
  [14:18:17.685]     if (base::is.na(TRUE)) {
  [14:18:17.685]     }
  [14:18:17.685]     else {
  [14:18:17.685]         if (TRUE) {
  [14:18:17.685]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:17.685]                 open = "w")
  [14:18:17.685]         }
  [14:18:17.685]         else {
  [14:18:17.685]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:17.685]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:17.685]         }
  [14:18:17.685]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:17.685]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:17.685]             base::sink(type = "output", split = FALSE)
  [14:18:17.685]             base::close(...future.stdout)
  [14:18:17.685]         }, add = TRUE)
  [14:18:17.685]     }
  [14:18:17.685]     ...future.frame <- base::sys.nframe()
  [14:18:17.685]     ...future.conditions <- base::list()
  [14:18:17.685]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:17.685]     ...future.result <- base::tryCatch({
  [14:18:17.685]         base::withCallingHandlers({
  [14:18:17.685]             ...future.value <- base::withVisible(base::local({
  [14:18:17.685]                 doFuture::registerDoFuture()
  [14:18:17.685]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.685]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.685]                   b <- NULL
  [14:18:17.685]                   ...future.env <- environment()
  [14:18:17.685]                   local({
  [14:18:17.685]                     for (name in names(...future.x_jj)) {
  [14:18:17.685]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.685]                         inherits = FALSE)
  [14:18:17.685]                     }
  [14:18:17.685]                   })
  [14:18:17.685]                   tryCatch({
  [14:18:17.685]                     plan_list <- future::plan("next")
  [14:18:17.685]                     message(capture.output(print(plan_list)))
  [14:18:17.685]                     stopifnot(inherits(plan_list, "future"))
  [14:18:17.685]                     default <- getOption("future.plan", "sequential")
  [14:18:17.685]                     if (is.function(default)) 
  [14:18:17.685]                       default <- class(default)
  [14:18:17.685]                     stopifnot(inherits(plan_list, default))
  [14:18:17.685]                     plan_b <- future::plan("list")
  [14:18:17.685]                     str(plan_b)
  [14:18:17.685]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.685]                       inherits(plan_b[[1]], default))
  [14:18:17.685]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.685]                   }, error = identity)
  [14:18:17.685]                 })
  [14:18:17.685]             }))
  [14:18:17.685]             future::FutureResult(value = ...future.value$value, 
  [14:18:17.685]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.685]                   ...future.rng), started = ...future.startTime, 
  [14:18:17.685]                 version = "1.8")
  [14:18:17.685]         }, condition = base::local({
  [14:18:17.685]             c <- base::c
  [14:18:17.685]             inherits <- base::inherits
  [14:18:17.685]             invokeRestart <- base::invokeRestart
  [14:18:17.685]             length <- base::length
  [14:18:17.685]             list <- base::list
  [14:18:17.685]             seq.int <- base::seq.int
  [14:18:17.685]             signalCondition <- base::signalCondition
  [14:18:17.685]             sys.calls <- base::sys.calls
  [14:18:17.685]             Sys.time <- base::Sys.time
  [14:18:17.685]             `[[` <- base::`[[`
  [14:18:17.685]             `+` <- base::`+`
  [14:18:17.685]             `<<-` <- base::`<<-`
  [14:18:17.685]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:17.685]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:17.685]                   3L)]
  [14:18:17.685]             }
  [14:18:17.685]             function(cond) {
  [14:18:17.685]                 if (inherits(cond, "error")) {
  [14:18:17.685]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.685]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:17.685]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:17.685]                   signalCondition(cond)
  [14:18:17.685]                 }
  [14:18:17.685]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:17.685]                 ))) {
  [14:18:17.685]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:17.685]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:17.685]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:17.685]                   if (!signal) {
  [14:18:17.685]                     muffleCondition <- function (cond) 
  [14:18:17.685]                     {
  [14:18:17.685]                       inherits <- base::inherits
  [14:18:17.685]                       invokeRestart <- base::invokeRestart
  [14:18:17.685]                       muffled <- FALSE
  [14:18:17.685]                       if (inherits(cond, "message")) {
  [14:18:17.685]                         invokeRestart("muffleMessage")
  [14:18:17.685]                         muffled <- TRUE
  [14:18:17.685]                       }
  [14:18:17.685]                       else if (inherits(cond, "warning")) {
  [14:18:17.685]                         invokeRestart("muffleWarning")
  [14:18:17.685]                         muffled <- TRUE
  [14:18:17.685]                       }
  [14:18:17.685]                       else if (inherits(cond, "condition")) {
  [14:18:17.685]                         computeRestarts <- base::computeRestarts
  [14:18:17.685]                         grepl <- base::grepl
  [14:18:17.685]                         is.null <- base::is.null
  [14:18:17.685]                         restarts <- computeRestarts(cond)
  [14:18:17.685]                         for (restart in restarts) {
  [14:18:17.685]                           name <- restart$name
  [14:18:17.685]                           if (is.null(name)) 
  [14:18:17.685]                             next
  [14:18:17.685]                           if (!grepl("^muffle", name)) 
  [14:18:17.685]                             next
  [14:18:17.685]                           invokeRestart(restart)
  [14:18:17.685]                           muffled <- TRUE
  [14:18:17.685]                           break
  [14:18:17.685]                         }
  [14:18:17.685]                       }
  [14:18:17.685]                       invisible(muffled)
  [14:18:17.685]                     }
  [14:18:17.685]                     muffleCondition(cond)
  [14:18:17.685]                   }
  [14:18:17.685]                 }
  [14:18:17.685]             }
  [14:18:17.685]         }))
  [14:18:17.685]     }, error = function(ex) {
  [14:18:17.685]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:17.685]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:17.685]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:17.685]     }, finally = {
  [14:18:17.685]         {
  [14:18:17.685]             NULL
  [14:18:17.685]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:17.685]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:17.685]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:17.685]                 label = NULL, ...) 
  [14:18:17.685]             {
  [14:18:17.685]                 if (substitute) 
  [14:18:17.685]                   expr <- substitute(expr)
  [14:18:17.685]                 local <- as.logical(local)
  [14:18:17.685]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:17.685]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:17.685]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:17.685]                   label = label, ...)
  [14:18:17.685]                 if (!future$lazy) 
  [14:18:17.685]                   future <- run(future)
  [14:18:17.685]                 invisible(future)
  [14:18:17.685]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:17.685]         }
  [14:18:17.685]         base::options(...future.oldOptions)
  [14:18:17.685]     })
  [14:18:17.685]     Sys.time
  [14:18:17.685]     if (base::is.na(TRUE)) {
  [14:18:17.685]     }
  [14:18:17.685]     else {
  [14:18:17.685]         base::sink(type = "output", split = FALSE)
  [14:18:17.685]         if (TRUE) {
  [14:18:17.685]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:17.685]         }
  [14:18:17.685]         else {
  [14:18:17.685]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:17.685]         }
  [14:18:17.685]         base::close(...future.stdout)
  [14:18:17.685]         ...future.stdout <- NULL
  [14:18:17.685]     }
  [14:18:17.685]     ...future.result$conditions <- ...future.conditions
  [14:18:17.685]     ...future.result
  [14:18:17.685] }
  [14:18:17.867]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:18:17.691] plan(): Setting new future strategy stack:
  [14:18:17.868]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:18:17.691] List of future strategies:
  [14:18:17.691] 1. sequential:
  [14:18:17.691]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.691]    - tweaked: FALSE
  [14:18:17.691]    - call: NULL
  [14:18:17.868]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:18:17.693] plan(): nbrOfWorkers() = 1
  [14:18:17.868]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:18:17.707] plan(): Setting new future strategy stack:
  [14:18:17.869]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:18:17.708] List of future strategies:
  [14:18:17.708] 1. sequential:
  [14:18:17.708]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.708]    - tweaked: FALSE
  [14:18:17.708]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.869]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:18:17.709] plan(): nbrOfWorkers() = 1
  [14:18:17.870]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:18:17.710] SequentialFuture started (and completed)
  [14:18:17.870]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:18:17.711] signalConditions() ...
  [14:18:17.871]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:18:17.711]  - include = 'immediateCondition'
  [14:18:17.871]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:18:17.712]  - exclude = 
  [14:18:17.871]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:18:17.712]  - resignal = FALSE
  [14:18:17.872]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:18:17.713]  - Number of conditions: 3
  [14:18:17.872]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:18:17.713] signalConditions() ... done
  [14:18:17.873]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:18:17.714] Chunk #1 of 1 ... DONE
  [14:18:17.873]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:18:17.715] Launching 1 futures (chunks) ... DONE
  [14:18:17.874]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:18:17.715] - resolving futures
  [14:18:17.874]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:18:17.716]   - gathering results & relaying conditions (except errors)
  [14:18:17.875]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:18:17.716] resolve() on list ...
  [14:18:17.880]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:18:17.717]  recursive: 0
  [14:18:17.881]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:18:17.717]  length: 1
  [14:18:17.882]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:18:17.718] 
  [14:18:17.882]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:18:17.718] Future #1
  [14:18:17.883]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:18:17.719] signalConditions() ...
  [14:18:17.883]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:18:17.720]  - include = 'immediateCondition'
  [14:18:17.884]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:18:17.720]  - exclude = 
  [14:18:17.884]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:18:17.721]  - resignal = FALSE
  [14:18:17.885]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:18:17.721]  - Number of conditions: 3
  [14:18:17.885]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:18:17.722] signalConditions() ... done
  [14:18:17.885]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:18:17.722] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:17.886]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:18:17.723] - nx: 1
  [14:18:17.886]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:18:17.723] - relay: TRUE
  [14:18:17.887]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:18:17.724] - stdout: TRUE
  [14:18:17.887]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:18:17.724] - signal: TRUE
  [14:18:17.888]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:18:17.725] - resignal: FALSE
  [14:18:17.888]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:18:17.725] - force: FALSE
  [14:18:17.889]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:18:17.725] - relayed: [n=1] FALSE
  [14:18:17.889]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:18:17.726] - queued futures: [n=1] FALSE
  [14:18:17.890]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:18:17.727]  - until=1
  [14:18:17.890]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:18:17.727]  - relaying element #1
  [14:18:17.890]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:18:17.728] signalConditions() ...
  [14:18:17.891]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:18:17.728]  - include = 'immediateCondition'
  [14:18:17.891]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:18:17.729]  - exclude = 
  [14:18:17.892]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:18:17.729]  - resignal = FALSE
  [14:18:17.892]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:18:17.730]  - Number of conditions: 3
  [14:18:17.893]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:18:17.730] signalConditions() ... done
  [14:18:17.893]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:18:17.731] signalConditions() ...
  [14:18:17.894]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:18:17.731]  - include = 'immediateCondition'
  [14:18:17.894]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:18:17.732]  - exclude = 
  [14:18:17.895]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:18:17.736]  - resignal = FALSE
  [14:18:17.895]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:18:17.737]  - Number of conditions: 3
  [14:18:17.896]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:18:17.737] signalConditions() ... done
  [14:18:17.896]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:18:17.738] signalConditions() ...
  [14:18:17.897]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:18:17.738]  - include = 'condition'
  [14:18:17.897]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:18:17.739]  - exclude = 'immediateCondition'
  [14:18:17.897]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:18:17.740]  - resignal = FALSE
  [14:18:17.898]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:18:17.740]  - Number of conditions: 3
  [14:18:17.898]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:18:17.741]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:17.899]  - Condition #244: '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
  [14:18:17.899]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:18:17.741]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:17.900]  - Condition #246: '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
  [14:18:17.900]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:18:17.742]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:17.901]  - Condition #248: '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
  [14:18:17.901]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:18:17.743] signalConditions() ... done
  [14:18:17.902]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:18:17.743] - relayed: [n=1] TRUE
  [14:18:17.902]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:18:17.744] - queued futures: [n=1] TRUE
  [14:18:17.903]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:18:17.744] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:17.903]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:18:17.745]  length: 0 (resolved future 1)
  [14:18:17.904]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:18:17.745] Relaying remaining futures
  [14:18:17.904]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:18:17.746] signalConditionsASAP(NULL, pos=0) ...
  [14:18:17.904]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:18:17.746] - nx: 1
  [14:18:17.905]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:18:17.747] - relay: TRUE
  [14:18:17.905]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:18:17.747] - stdout: TRUE
  [14:18:17.906]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:18:17.748] - signal: TRUE
  [14:18:17.906]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:18:17.748] - resignal: FALSE
  [14:18:17.907]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:18:17.749] - force: FALSE
  [14:18:17.907]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:18:17.749] - relayed: [n=1] TRUE
  [14:18:17.908]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:18:17.750] - queued futures: [n=1] TRUE
  [14:18:17.908]  - Condition #264: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:17.909]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:18:17.751] - relayed: [n=1] TRUE
  [14:18:17.909]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:18:17.751] - queued futures: [n=1] TRUE
  [14:18:17.910]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:18:17.752] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:17.910]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:18:17.752] resolve() on list ... DONE
  [14:18:17.911]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:18:17.753] - collecting values of futures
  [14:18:17.911]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:18:17.753] signalConditions() ...
  [14:18:17.912]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:18:17.754]  - include = 'immediateCondition'
  [14:18:17.912]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:18:17.754]  - exclude = 
  [14:18:17.912]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:18:17.755]  - resignal = FALSE
  [14:18:17.913]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:18:17.755]  - Number of conditions: 3
  [14:18:17.913]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:18:17.756] signalConditions() ... done
  [14:18:17.914]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:18:17.756] - accumulating results
  [14:18:17.914]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:18:17.757] - processing errors (handler = 'stop')
  [14:18:17.915]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:18:17.758] - extracting results
  [14:18:17.915]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:18:17.758] doFuture() ... DONE
  [14:18:17.916]  - Condition #280: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:17.917] signalConditions() ... done
  [14:18:17.917] - relayed: [n=1] TRUE
  [14:18:17.917] - queued futures: [n=1] TRUE
  [14:18:17.917] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:17.918]  length: 0 (resolved future 1)
  [14:18:17.918] Relaying remaining futures
  [14:18:17.918] signalConditionsASAP(NULL, pos=0) ...
  [14:18:17.919] - nx: 1
  [14:18:17.919] - relay: TRUE
  [14:18:17.919] - stdout: TRUE
  [14:18:17.920] - signal: TRUE
  [14:18:17.920] - resignal: FALSE
  [14:18:17.920] - force: FALSE
  [14:18:17.921] - relayed: [n=1] TRUE
  [14:18:17.921] - queued futures: [n=1] TRUE
   - flush all
  [14:18:17.921] - relayed: [n=1] TRUE
  [14:18:17.922] - queued futures: [n=1] TRUE
  [14:18:17.922] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:17.922] resolve() on list ... DONE
  [14:18:17.923] - collecting values of futures
  [14:18:17.923] signalConditions() ...
  [14:18:17.923]  - include = 'immediateCondition'
  [14:18:17.924]  - exclude = 
  [14:18:17.924]  - resignal = FALSE
  [14:18:17.924]  - Number of conditions: 280
  [14:18:17.925] signalConditions() ... done
  [14:18:17.926] - accumulating results
  [14:18:17.927] - processing errors (handler = 'stop')
  [14:18:17.927] - extracting results
  [14:18:17.928] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [14:18:17.929] plan(): Setting new future strategy stack:
  [14:18:17.930] List of future strategies:
  [14:18:17.930] 1. sequential:
  [14:18:17.930]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:17.930]    - tweaked: FALSE
  [14:18:17.930]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.930] 2. multicore:
  [14:18:17.930]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:17.930]    - tweaked: FALSE
  [14:18:17.930]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:17.931] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:18:17.932] doFuture() ...
  [14:18:17.933] - dummy globals (as locals): [1] 'a'
  [14:18:17.934] - R expression:
  [14:18:17.934] {
  [14:18:17.934]     doFuture::registerDoFuture()
  [14:18:17.934]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.934]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.934]         a <- NULL
  [14:18:17.934]         ...future.env <- environment()
  [14:18:17.934]         local({
  [14:18:17.934]             for (name in names(...future.x_jj)) {
  [14:18:17.934]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.934]                   inherits = FALSE)
  [14:18:17.934]             }
  [14:18:17.934]         })
  [14:18:17.934]         tryCatch({
  [14:18:17.934]             plan_list <- future::plan("next")
  [14:18:17.934]             stopifnot(inherits(plan_list, strategy2))
  [14:18:17.934]             plan_a <- future::plan("list")
  [14:18:17.934]             str(plan_a)
  [14:18:17.934]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:17.934]             message("foreach() - level 2 ...")
  [14:18:17.934]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:17.934]                 {
  [14:18:17.934]                   plan_list <- future::plan("next")
  [14:18:17.934]                   message(capture.output(print(plan_list)))
  [14:18:17.934]                   stopifnot(inherits(plan_list, "future"))
  [14:18:17.934]                   default <- getOption("future.plan", "sequential")
  [14:18:17.934]                   if (is.function(default)) 
  [14:18:17.934]                     default <- class(default)
  [14:18:17.934]                   stopifnot(inherits(plan_list, default))
  [14:18:17.934]                   plan_b <- future::plan("list")
  [14:18:17.934]                   str(plan_b)
  [14:18:17.934]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.934]                     inherits(plan_b[[1]], default))
  [14:18:17.934]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.934]                 }
  [14:18:17.934]             message("foreach() - level 2 ... DONE")
  [14:18:17.934]             y
  [14:18:17.934]         }, error = identity)
  [14:18:17.934]     })
  [14:18:17.934] }
  [14:18:17.936] - identifying globals and packages ...
  [14:18:17.936] getGlobalsAndPackages() ...
  [14:18:17.937] Searching for globals...
  [14:18:17.977] - 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'
  [14:18:17.978] Searching for globals ... DONE
  [14:18:17.978] Resolving globals: FALSE
  [14:18:17.981] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:17.982] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.982] - packages: [2] 'utils', 'foreach'
  [14:18:17.982] getGlobalsAndPackages() ... DONE
  [14:18:17.983] List of 3
  [14:18:17.983]  $ ...future.x_ii: NULL
  [14:18:17.983]  $ strategy2     : chr "multicore"
  [14:18:17.983]  $ bs            : int [1:3] 3 2 1
  [14:18:17.983]  - attr(*, "where")=List of 3
  [14:18:17.983]   ..$ ...future.x_ii:<environment: 0x562635687e98> 
  [14:18:17.983]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:17.983]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:17.983]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.983]  - attr(*, "resolved")= logi FALSE
  [14:18:17.983]  - attr(*, "total_size")= num 184
  [14:18:17.994]   - R expression:
  [14:18:17.995] {
  [14:18:17.995]     doFuture::registerDoFuture()
  [14:18:17.995]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:17.995]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:17.995]         a <- NULL
  [14:18:17.995]         ...future.env <- environment()
  [14:18:17.995]         local({
  [14:18:17.995]             for (name in names(...future.x_jj)) {
  [14:18:17.995]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:17.995]                   inherits = FALSE)
  [14:18:17.995]             }
  [14:18:17.995]         })
  [14:18:17.995]         tryCatch({
  [14:18:17.995]             plan_list <- future::plan("next")
  [14:18:17.995]             stopifnot(inherits(plan_list, strategy2))
  [14:18:17.995]             plan_a <- future::plan("list")
  [14:18:17.995]             str(plan_a)
  [14:18:17.995]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:17.995]             message("foreach() - level 2 ...")
  [14:18:17.995]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:17.995]                 {
  [14:18:17.995]                   plan_list <- future::plan("next")
  [14:18:17.995]                   message(capture.output(print(plan_list)))
  [14:18:17.995]                   stopifnot(inherits(plan_list, "future"))
  [14:18:17.995]                   default <- getOption("future.plan", "sequential")
  [14:18:17.995]                   if (is.function(default)) 
  [14:18:17.995]                     default <- class(default)
  [14:18:17.995]                   stopifnot(inherits(plan_list, default))
  [14:18:17.995]                   plan_b <- future::plan("list")
  [14:18:17.995]                   str(plan_b)
  [14:18:17.995]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:17.995]                     inherits(plan_b[[1]], default))
  [14:18:17.995]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:17.995]                 }
  [14:18:17.995]             message("foreach() - level 2 ... DONE")
  [14:18:17.995]             y
  [14:18:17.995]         }, error = identity)
  [14:18:17.995]     })
  [14:18:17.995] }
  [14:18:17.996]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:17.996] List of 3
  [14:18:17.996]  $ ...future.x_ii: NULL
  [14:18:17.996]  $ strategy2     : chr "multicore"
  [14:18:17.996]  $ bs            : int [1:3] 3 2 1
  [14:18:17.996]  - attr(*, "where")=List of 3
  [14:18:17.996]   ..$ ...future.x_ii:<environment: 0x562635687e98> 
  [14:18:17.996]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:17.996]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:17.996]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:17.996]  - attr(*, "resolved")= logi FALSE
  [14:18:17.996]  - attr(*, "total_size")= num 184
  [14:18:18.052]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:18.053] - identifying globals and packages ... DONE
  [14:18:18.053] Number of chunks: 1
  [14:18:18.054] Number of futures (= number of chunks): 1
  [14:18:18.055] Launching 1 futures (chunks) ...
  [14:18:18.055] Chunk #1 of 1 ...
  [14:18:18.055]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:18.056] getGlobalsAndPackages() ...
  [14:18:18.056] Searching for globals...
  [14:18:18.057] 
  [14:18:18.058] Searching for globals ... DONE
  [14:18:18.058] - globals: [0] <none>
  [14:18:18.058] getGlobalsAndPackages() ... DONE
  [14:18:18.059] 
  [14:18:18.059] 
  [14:18:18.059]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:18.060] getGlobalsAndPackages() ...
  [14:18:18.060] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:18.061] Resolving globals: FALSE
  [14:18:18.062] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:18:18.062] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:18.063] 
  [14:18:18.063] getGlobalsAndPackages() ... DONE
  [14:18:18.065] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:18.066] Packages needed by future strategies (n = 1): 'future'
  [14:18:18.080] {
  [14:18:18.080]     {
  [14:18:18.080]         ...future.startTime <- base::Sys.time()
  [14:18:18.080]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:18.080]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:18.080]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:18.080]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:18.080]             future.resolve.recursive = NULL, width = 80L)
  [14:18:18.080]         {
  [14:18:18.080]             {
  [14:18:18.080]                 {
  [14:18:18.080]                   has_future <- base::requireNamespace("future", 
  [14:18:18.080]                     quietly = TRUE)
  [14:18:18.080]                   version <- if (has_future) 
  [14:18:18.080]                     utils::packageVersion("future")
  [14:18:18.080]                   else NULL
  [14:18:18.080]                   if (!has_future || version < "1.8.0") {
  [14:18:18.080]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:18.080]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:18.080]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:18.080]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:18.080]                         "release", "version")], collapse = " "), 
  [14:18:18.080]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:18.080]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:18.080]                       info)
  [14:18:18.080]                     info <- base::paste(info, collapse = "; ")
  [14:18:18.080]                     if (!has_future) {
  [14:18:18.080]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:18.080]                         info)
  [14:18:18.080]                     }
  [14:18:18.080]                     else {
  [14:18:18.080]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:18.080]                         info, version)
  [14:18:18.080]                     }
  [14:18:18.080]                     base::stop(msg)
  [14:18:18.080]                   }
  [14:18:18.080]                 }
  [14:18:18.080]                 base::local({
  [14:18:18.080]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:18.080]                   "future")) {
  [14:18:18.080]                     base::loadNamespace(pkg)
  [14:18:18.080]                     base::library(pkg, character.only = TRUE)
  [14:18:18.080]                   }
  [14:18:18.080]                 })
  [14:18:18.080]             }
  [14:18:18.080]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:18.080]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.080]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.080]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.080]             {
  [14:18:18.080]                 if (substitute) 
  [14:18:18.080]                   expr <- substitute(expr)
  [14:18:18.080]                 if (is.function(workers)) 
  [14:18:18.080]                   workers <- workers()
  [14:18:18.080]                 workers <- as.integer(workers)
  [14:18:18.080]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.080]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.080]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.080]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.080]                     local = TRUE, label = label, ...))
  [14:18:18.080]                 }
  [14:18:18.080]                 oopts <- options(mc.cores = workers)
  [14:18:18.080]                 on.exit(options(oopts))
  [14:18:18.080]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.080]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.080]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.080]                   label = label, ...)
  [14:18:18.080]                 if (!future$lazy) 
  [14:18:18.080]                   future <- run(future)
  [14:18:18.080]                 invisible(future)
  [14:18:18.080]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.080]         }
  [14:18:18.080]     }
  [14:18:18.080]     if (base::is.na(TRUE)) {
  [14:18:18.080]     }
  [14:18:18.080]     else {
  [14:18:18.080]         if (TRUE) {
  [14:18:18.080]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:18.080]                 open = "w")
  [14:18:18.080]         }
  [14:18:18.080]         else {
  [14:18:18.080]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:18.080]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:18.080]         }
  [14:18:18.080]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:18.080]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:18.080]             base::sink(type = "output", split = FALSE)
  [14:18:18.080]             base::close(...future.stdout)
  [14:18:18.080]         }, add = TRUE)
  [14:18:18.080]     }
  [14:18:18.080]     ...future.frame <- base::sys.nframe()
  [14:18:18.080]     ...future.conditions <- base::list()
  [14:18:18.080]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:18.080]     ...future.result <- base::tryCatch({
  [14:18:18.080]         base::withCallingHandlers({
  [14:18:18.080]             ...future.value <- base::withVisible(base::local({
  [14:18:18.080]                 doFuture::registerDoFuture()
  [14:18:18.080]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.080]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.080]                   a <- NULL
  [14:18:18.080]                   ...future.env <- environment()
  [14:18:18.080]                   local({
  [14:18:18.080]                     for (name in names(...future.x_jj)) {
  [14:18:18.080]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.080]                         inherits = FALSE)
  [14:18:18.080]                     }
  [14:18:18.080]                   })
  [14:18:18.080]                   tryCatch({
  [14:18:18.080]                     plan_list <- future::plan("next")
  [14:18:18.080]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:18.080]                     plan_a <- future::plan("list")
  [14:18:18.080]                     str(plan_a)
  [14:18:18.080]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:18.080]                     message("foreach() - level 2 ...")
  [14:18:18.080]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:18.080]                       {
  [14:18:18.080]                         plan_list <- future::plan("next")
  [14:18:18.080]                         message(capture.output(print(plan_list)))
  [14:18:18.080]                         stopifnot(inherits(plan_list, "future"))
  [14:18:18.080]                         default <- getOption("future.plan", "sequential")
  [14:18:18.080]                         if (is.function(default)) 
  [14:18:18.080]                           default <- class(default)
  [14:18:18.080]                         stopifnot(inherits(plan_list, default))
  [14:18:18.080]                         plan_b <- future::plan("list")
  [14:18:18.080]                         str(plan_b)
  [14:18:18.080]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:18.080]                           inherits(plan_b[[1]], default))
  [14:18:18.080]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.080]                       }
  [14:18:18.080]                     message("foreach() - level 2 ... DONE")
  [14:18:18.080]                     y
  [14:18:18.080]                   }, error = identity)
  [14:18:18.080]                 })
  [14:18:18.080]             }))
  [14:18:18.080]             future::FutureResult(value = ...future.value$value, 
  [14:18:18.080]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.080]                   ...future.rng), started = ...future.startTime, 
  [14:18:18.080]                 version = "1.8")
  [14:18:18.080]         }, condition = base::local({
  [14:18:18.080]             c <- base::c
  [14:18:18.080]             inherits <- base::inherits
  [14:18:18.080]             invokeRestart <- base::invokeRestart
  [14:18:18.080]             length <- base::length
  [14:18:18.080]             list <- base::list
  [14:18:18.080]             seq.int <- base::seq.int
  [14:18:18.080]             signalCondition <- base::signalCondition
  [14:18:18.080]             sys.calls <- base::sys.calls
  [14:18:18.080]             Sys.time <- base::Sys.time
  [14:18:18.080]             `[[` <- base::`[[`
  [14:18:18.080]             `+` <- base::`+`
  [14:18:18.080]             `<<-` <- base::`<<-`
  [14:18:18.080]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:18.080]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:18.080]                   3L)]
  [14:18:18.080]             }
  [14:18:18.080]             function(cond) {
  [14:18:18.080]                 if (inherits(cond, "error")) {
  [14:18:18.080]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.080]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:18.080]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:18.080]                   signalCondition(cond)
  [14:18:18.080]                 }
  [14:18:18.080]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:18.080]                 ))) {
  [14:18:18.080]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:18.080]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.080]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:18.080]                   if (!signal) {
  [14:18:18.080]                     muffleCondition <- function (cond) 
  [14:18:18.080]                     {
  [14:18:18.080]                       inherits <- base::inherits
  [14:18:18.080]                       invokeRestart <- base::invokeRestart
  [14:18:18.080]                       muffled <- FALSE
  [14:18:18.080]                       if (inherits(cond, "message")) {
  [14:18:18.080]                         invokeRestart("muffleMessage")
  [14:18:18.080]                         muffled <- TRUE
  [14:18:18.080]                       }
  [14:18:18.080]                       else if (inherits(cond, "warning")) {
  [14:18:18.080]                         invokeRestart("muffleWarning")
  [14:18:18.080]                         muffled <- TRUE
  [14:18:18.080]                       }
  [14:18:18.080]                       else if (inherits(cond, "condition")) {
  [14:18:18.080]                         computeRestarts <- base::computeRestarts
  [14:18:18.080]                         grepl <- base::grepl
  [14:18:18.080]                         is.null <- base::is.null
  [14:18:18.080]                         restarts <- computeRestarts(cond)
  [14:18:18.080]                         for (restart in restarts) {
  [14:18:18.080]                           name <- restart$name
  [14:18:18.080]                           if (is.null(name)) 
  [14:18:18.080]                             next
  [14:18:18.080]                           if (!grepl("^muffle", name)) 
  [14:18:18.080]                             next
  [14:18:18.080]                           invokeRestart(restart)
  [14:18:18.080]                           muffled <- TRUE
  [14:18:18.080]                           break
  [14:18:18.080]                         }
  [14:18:18.080]                       }
  [14:18:18.080]                       invisible(muffled)
  [14:18:18.080]                     }
  [14:18:18.080]                     muffleCondition(cond)
  [14:18:18.080]                   }
  [14:18:18.080]                 }
  [14:18:18.080]             }
  [14:18:18.080]         }))
  [14:18:18.080]     }, error = function(ex) {
  [14:18:18.080]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:18.080]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.080]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:18.080]     }, finally = {
  [14:18:18.080]         {
  [14:18:18.080]             NULL
  [14:18:18.080]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:18.080]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.080]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:18.080]                 label = NULL, ...) 
  [14:18:18.080]             {
  [14:18:18.080]                 if (substitute) 
  [14:18:18.080]                   expr <- substitute(expr)
  [14:18:18.080]                 local <- as.logical(local)
  [14:18:18.080]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:18.080]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.080]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:18.080]                   label = label, ...)
  [14:18:18.080]                 if (!future$lazy) 
  [14:18:18.080]                   future <- run(future)
  [14:18:18.080]                 invisible(future)
  [14:18:18.080]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:18.080]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.080]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.080]             {
  [14:18:18.080]                 if (substitute) 
  [14:18:18.080]                   expr <- substitute(expr)
  [14:18:18.080]                 if (is.function(workers)) 
  [14:18:18.080]                   workers <- workers()
  [14:18:18.080]                 workers <- as.integer(workers)
  [14:18:18.080]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.080]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.080]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.080]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.080]                     local = TRUE, label = label, ...))
  [14:18:18.080]                 }
  [14:18:18.080]                 oopts <- options(mc.cores = workers)
  [14:18:18.080]                 on.exit(options(oopts))
  [14:18:18.080]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.080]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.080]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.080]                   label = label, ...)
  [14:18:18.080]                 if (!future$lazy) 
  [14:18:18.080]                   future <- run(future)
  [14:18:18.080]                 invisible(future)
  [14:18:18.080]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.080]         }
  [14:18:18.080]         base::options(...future.oldOptions)
  [14:18:18.080]     })
  [14:18:18.080]     Sys.time
  [14:18:18.080]     if (base::is.na(TRUE)) {
  [14:18:18.080]     }
  [14:18:18.080]     else {
  [14:18:18.080]         base::sink(type = "output", split = FALSE)
  [14:18:18.080]         if (TRUE) {
  [14:18:18.080]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:18.080]         }
  [14:18:18.080]         else {
  [14:18:18.080]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:18.080]         }
  [14:18:18.080]         base::close(...future.stdout)
  [14:18:18.080]         ...future.stdout <- NULL
  [14:18:18.080]     }
  [14:18:18.080]     ...future.result$conditions <- ...future.conditions
  [14:18:18.080]     ...future.result
  [14:18:18.080] }
  [14:18:18.088] plan(): Setting new future strategy stack:
  [14:18:18.089] List of future strategies:
  [14:18:18.089] 1. multicore:
  [14:18:18.089]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:18.089]    - tweaked: FALSE
  [14:18:18.089]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:18.150] plan(): nbrOfWorkers() = 2
  [14:18:18.951] plan(): Setting new future strategy stack:
  [14:18:18.951] List of future strategies:
  [14:18:18.951] 1. sequential:
  [14:18:18.951]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:18.951]    - tweaked: FALSE
  [14:18:18.951]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:18.951] 2. multicore:
  [14:18:18.951]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:18.951]    - tweaked: FALSE
  [14:18:18.951]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:18.953] plan(): nbrOfWorkers() = 1
  [14:18:18.954] SequentialFuture started (and completed)
  [14:18:18.955] signalConditions() ...
  [14:18:18.955]  - include = 'immediateCondition'
  [14:18:18.955]  - exclude = 
  [14:18:18.956]  - resignal = FALSE
  [14:18:18.956]  - Number of conditions: 422
  [14:18:18.958] signalConditions() ... done
  [14:18:18.958] Chunk #1 of 1 ... DONE
  [14:18:18.959] Launching 1 futures (chunks) ... DONE
  [14:18:18.959] - resolving futures
  [14:18:18.959]   - gathering results & relaying conditions (except errors)
  [14:18:18.960] resolve() on list ...
  [14:18:18.960]  recursive: 0
  [14:18:18.960]  length: 1
  [14:18:18.960] 
  [14:18:18.961] Future #1
  [14:18:18.961] signalConditions() ...
  [14:18:18.962]  - include = 'immediateCondition'
  [14:18:18.962]  - exclude = 
  [14:18:18.962]  - resignal = FALSE
  [14:18:18.963]  - Number of conditions: 422
  [14:18:18.964] signalConditions() ... done
  [14:18:18.965] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:18.965] - nx: 1
  [14:18:18.965] - relay: TRUE
  [14:18:18.966] - stdout: TRUE
  [14:18:18.966] - signal: TRUE
  [14:18:18.982] - resignal: FALSE
  [14:18:18.983] - force: FALSE
  [14:18:18.983] - relayed: [n=1] FALSE
  [14:18:18.983] - queued futures: [n=1] FALSE
  [14:18:18.984]  - until=1
  [14:18:18.984]  - relaying element #1
  [14:18:18.985] signalConditions() ...
  [14:18:18.985]  - include = 'immediateCondition'
  [14:18:18.985]  - exclude = 
  [14:18:18.986]  - resignal = FALSE
  [14:18:18.986]  - Number of conditions: 422
  [14:18:18.988] 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"
  [14:18:18.988] signalConditions() ...
  [14:18:18.989]  - include = 'immediateCondition'
  [14:18:18.989]  - exclude = 
  [14:18:18.989]  - resignal = FALSE
  [14:18:18.990]  - Number of conditions: 422
  [14:18:18.995] signalConditions() ... done
  [14:18:18.995] signalConditions() ...
  [14:18:18.996]  - include = 'condition'
  [14:18:18.996]  - exclude = 'immediateCondition'
  [14:18:18.996]  - resignal = FALSE
  [14:18:18.997]  - Number of conditions: 422
  [14:18:18.997]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:18.998]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:18.161] doFuture() ...
  [14:18:18.998]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:18.163] - dummy globals (as locals): [1] 'b'
  [14:18:19.015]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:18.164] - R expression:
  [14:18:19.016]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:18.165] {
  [14:18:18.165]     doFuture::registerDoFuture()
  [14:18:18.165]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.165]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.165]         b <- NULL
  [14:18:18.165]         ...future.env <- environment()
  [14:18:18.165]         local({
  [14:18:18.165]             for (name in names(...future.x_jj)) {
  [14:18:18.165]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.165]                   inherits = FALSE)
  [14:18:18.165]             }
  [14:18:18.165]         })
  [14:18:18.165]         tryCatch({
  [14:18:18.165]             plan_list <- future::plan("next")
  [14:18:18.165]             message(capture.output(print(plan_list)))
  [14:18:18.165]             stopifnot(inherits(plan_list, "future"))
  [14:18:18.165]             default <- getOption("future.plan", "sequential")
  [14:18:18.165]             if (is.function(default)) 
  [14:18:18.165]                 default <- class(default)
  [14:18:18.165]             stopifnot(inherits(plan_list, default))
  [14:18:18.165]             plan_b <- future::plan("list")
  [14:18:18.165]             str(plan_b)
  [14:18:18.165]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:18.165]                 default))
  [14:18:18.165]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.165]         }, error = identity)
  [14:18:18.165]     })
  [14:18:18.165] }
  [14:18:19.016]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:18.167] - identifying globals and packages ...
  [14:18:19.017]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:18.167] getGlobalsAndPackages() ...
  [14:18:19.017]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:18.168] Searching for globals...
  [14:18:19.018]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:18.205] - 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'
  [14:18:19.018]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:18.206] Searching for globals ... DONE
  [14:18:19.019]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:18.207] Resolving globals: FALSE
  [14:18:19.019]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:18.210] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:18:19.020]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:18.211] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.020]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:18.211] - packages: [1] 'utils'
  [14:18:19.021]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:18.212] getGlobalsAndPackages() ... DONE
  [14:18:19.021]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:18.213] List of 3
  [14:18:18.213]  $ ...future.x_ii: NULL
  [14:18:18.213]  $ a             : int 1
  [14:18:18.213]  $ plan_a        :List of 1
  [14:18:18.213]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:18.213]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.213]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:18.213]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:18.213]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:18.213]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:18.213]  - attr(*, "where")=List of 3
  [14:18:18.213]   ..$ ...future.x_ii:<environment: 0x562634141118> 
  [14:18:18.213]   ..$ a             :<environment: 0x562634613c98> 
  [14:18:18.213]   ..$ plan_a        :<environment: 0x562634613c98> 
  [14:18:18.213]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:18.213]  - attr(*, "resolved")= logi FALSE
  [14:18:18.213]  - attr(*, "total_size")= num 76816
  [14:18:19.022]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:18.229]   - R expression:
  [14:18:19.022]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:18.229] {
  [14:18:18.229]     doFuture::registerDoFuture()
  [14:18:18.229]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.229]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.229]         b <- NULL
  [14:18:18.229]         ...future.env <- environment()
  [14:18:18.229]         local({
  [14:18:18.229]             for (name in names(...future.x_jj)) {
  [14:18:18.229]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.229]                   inherits = FALSE)
  [14:18:18.229]             }
  [14:18:18.229]         })
  [14:18:18.229]         tryCatch({
  [14:18:18.229]             plan_list <- future::plan("next")
  [14:18:18.229]             message(capture.output(print(plan_list)))
  [14:18:18.229]             stopifnot(inherits(plan_list, "future"))
  [14:18:18.229]             default <- getOption("future.plan", "sequential")
  [14:18:18.229]             if (is.function(default)) 
  [14:18:18.229]                 default <- class(default)
  [14:18:18.229]             stopifnot(inherits(plan_list, default))
  [14:18:18.229]             plan_b <- future::plan("list")
  [14:18:18.229]             str(plan_b)
  [14:18:18.229]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:18.229]                 default))
  [14:18:18.229]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.229]         }, error = identity)
  [14:18:18.229]     })
  [14:18:18.229] }
  [14:18:19.023]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:18.231]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.023]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:18.231] List of 3
  [14:18:18.231]  $ ...future.x_ii: NULL
  [14:18:18.231]  $ a             : int 1
  [14:18:18.231]  $ plan_a        :List of 1
  [14:18:18.231]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:18.231]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.231]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:18.231]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:18.231]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:18.231]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:18.231]  - attr(*, "where")=List of 3
  [14:18:18.231]   ..$ ...future.x_ii:<environment: 0x562634141118> 
  [14:18:18.231]   ..$ a             :<environment: 0x562634613c98> 
  [14:18:18.231]   ..$ plan_a        :<environment: 0x562634613c98> 
  [14:18:18.231]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:18.231]  - attr(*, "resolved")= logi FALSE
  [14:18:18.231]  - attr(*, "total_size")= num 76816
  [14:18:19.024]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:18.247]   - packages: [2] 'doFuture', 'utils'
  [14:18:19.024]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:18.247] - identifying globals and packages ... DONE
  [14:18:19.025]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:18.252] Number of chunks: 2
  [14:18:19.025]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:18.252] Number of futures (= number of chunks): 2
  [14:18:19.026]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:18.254] Launching 2 futures (chunks) ...
  [14:18:19.026]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:18.254] Chunk #1 of 2 ...
  [14:18:19.027]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:18.255]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:19.027]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:18.255] getGlobalsAndPackages() ...
  [14:18:19.028]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:18.256] Searching for globals...
  [14:18:19.028]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:18.257] 
  [14:18:19.029]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:18.258] Searching for globals ... DONE
  [14:18:19.029]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:18.258] - globals: [0] <none>
  [14:18:19.029]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:18.259] getGlobalsAndPackages() ... DONE
  [14:18:19.030]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:18.259] 
  [14:18:19.047]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:18.260] 
  [14:18:19.047]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:18.260]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:19.048]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:18.262] getGlobalsAndPackages() ...
  [14:18:19.048]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:18.262] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.049]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:18.263] Resolving globals: FALSE
  [14:18:19.049]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:18.265] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [14:18:19.050]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:18.265] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.050]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:18.266] 
  [14:18:19.050]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:18.266] getGlobalsAndPackages() ... DONE
  [14:18:19.051]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:18.270] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:19.051]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:18.271] Packages needed by future strategies (n = 0): <none>
  [14:18:19.052]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:18.282] {
  [14:18:18.282]     {
  [14:18:18.282]         ...future.startTime <- base::Sys.time()
  [14:18:18.282]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:18.282]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:18.282]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:18.282]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:18.282]             future.resolve.recursive = NULL, width = 80L)
  [14:18:18.282]         {
  [14:18:18.282]             {
  [14:18:18.282]                 {
  [14:18:18.282]                   {
  [14:18:18.282]                     has_future <- base::requireNamespace("future", 
  [14:18:18.282]                       quietly = TRUE)
  [14:18:18.282]                     version <- if (has_future) 
  [14:18:18.282]                       utils::packageVersion("future")
  [14:18:18.282]                     else NULL
  [14:18:18.282]                     if (!has_future || version < "1.8.0") {
  [14:18:18.282]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:18.282]                         "", base::R.version$version.string), 
  [14:18:18.282]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:18.282]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:18.282]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:18.282]                           "release", "version")], collapse = " "), 
  [14:18:18.282]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:18.282]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:18.282]                         info)
  [14:18:18.282]                       info <- base::paste(info, collapse = "; ")
  [14:18:18.282]                       if (!has_future) {
  [14:18:18.282]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:18.282]                           info)
  [14:18:18.282]                       }
  [14:18:18.282]                       else {
  [14:18:18.282]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:18.282]                           info, version)
  [14:18:18.282]                       }
  [14:18:18.282]                       base::stop(msg)
  [14:18:18.282]                     }
  [14:18:18.282]                   }
  [14:18:18.282]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:18.282]                   base::options(mc.cores = 1L)
  [14:18:18.282]                 }
  [14:18:18.282]                 base::local({
  [14:18:18.282]                   for (pkg in c("doFuture", "utils")) {
  [14:18:18.282]                     base::loadNamespace(pkg)
  [14:18:18.282]                     base::library(pkg, character.only = TRUE)
  [14:18:18.282]                   }
  [14:18:18.282]                 })
  [14:18:18.282]             }
  [14:18:18.282]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:18.282]         }
  [14:18:18.282]     }
  [14:18:18.282]     if (base::is.na(TRUE)) {
  [14:18:18.282]     }
  [14:18:18.282]     else {
  [14:18:18.282]         if (TRUE) {
  [14:18:18.282]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:18.282]                 open = "w")
  [14:18:18.282]         }
  [14:18:18.282]         else {
  [14:18:18.282]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:18.282]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:18.282]         }
  [14:18:18.282]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:18.282]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:18.282]             base::sink(type = "output", split = FALSE)
  [14:18:18.282]             base::close(...future.stdout)
  [14:18:18.282]         }, add = TRUE)
  [14:18:18.282]     }
  [14:18:18.282]     ...future.frame <- base::sys.nframe()
  [14:18:18.282]     ...future.conditions <- base::list()
  [14:18:18.282]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:18.282]     ...future.result <- base::tryCatch({
  [14:18:18.282]         base::withCallingHandlers({
  [14:18:18.282]             ...future.value <- base::withVisible(base::local({
  [14:18:18.282]                 doFuture::registerDoFuture()
  [14:18:18.282]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.282]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.282]                   b <- NULL
  [14:18:18.282]                   ...future.env <- environment()
  [14:18:18.282]                   local({
  [14:18:18.282]                     for (name in names(...future.x_jj)) {
  [14:18:18.282]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.282]                         inherits = FALSE)
  [14:18:18.282]                     }
  [14:18:18.282]                   })
  [14:18:18.282]                   tryCatch({
  [14:18:18.282]                     plan_list <- future::plan("next")
  [14:18:18.282]                     message(capture.output(print(plan_list)))
  [14:18:18.282]                     stopifnot(inherits(plan_list, "future"))
  [14:18:18.282]                     default <- getOption("future.plan", "sequential")
  [14:18:18.282]                     if (is.function(default)) 
  [14:18:18.282]                       default <- class(default)
  [14:18:18.282]                     stopifnot(inherits(plan_list, default))
  [14:18:18.282]                     plan_b <- future::plan("list")
  [14:18:18.282]                     str(plan_b)
  [14:18:18.282]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:18.282]                       inherits(plan_b[[1]], default))
  [14:18:18.282]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.282]                   }, error = identity)
  [14:18:18.282]                 })
  [14:18:18.282]             }))
  [14:18:18.282]             future::FutureResult(value = ...future.value$value, 
  [14:18:18.282]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.282]                   ...future.rng), started = ...future.startTime, 
  [14:18:18.282]                 version = "1.8")
  [14:18:18.282]         }, condition = base::local({
  [14:18:18.282]             c <- base::c
  [14:18:18.282]             inherits <- base::inherits
  [14:18:18.282]             invokeRestart <- base::invokeRestart
  [14:18:18.282]             length <- base::length
  [14:18:18.282]             list <- base::list
  [14:18:18.282]             seq.int <- base::seq.int
  [14:18:18.282]             signalCondition <- base::signalCondition
  [14:18:18.282]             sys.calls <- base::sys.calls
  [14:18:18.282]             Sys.time <- base::Sys.time
  [14:18:18.282]             `[[` <- base::`[[`
  [14:18:18.282]             `+` <- base::`+`
  [14:18:18.282]             `<<-` <- base::`<<-`
  [14:18:18.282]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:18.282]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:18.282]                   3L)]
  [14:18:18.282]             }
  [14:18:18.282]             function(cond) {
  [14:18:18.282]                 if (inherits(cond, "error")) {
  [14:18:18.282]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.282]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:18.282]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:18.282]                   signalCondition(cond)
  [14:18:18.282]                 }
  [14:18:18.282]                 else if (inherits(cond, "condition")) {
  [14:18:18.282]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:18.282]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.282]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:18.282]                   if (!signal) {
  [14:18:18.282]                     muffleCondition <- function (cond) 
  [14:18:18.282]                     {
  [14:18:18.282]                       inherits <- base::inherits
  [14:18:18.282]                       invokeRestart <- base::invokeRestart
  [14:18:18.282]                       muffled <- FALSE
  [14:18:18.282]                       if (inherits(cond, "message")) {
  [14:18:18.282]                         invokeRestart("muffleMessage")
  [14:18:18.282]                         muffled <- TRUE
  [14:18:18.282]                       }
  [14:18:18.282]                       else if (inherits(cond, "warning")) {
  [14:18:18.282]                         invokeRestart("muffleWarning")
  [14:18:18.282]                         muffled <- TRUE
  [14:18:18.282]                       }
  [14:18:18.282]                       else if (inherits(cond, "condition")) {
  [14:18:18.282]                         computeRestarts <- base::computeRestarts
  [14:18:18.282]                         grepl <- base::grepl
  [14:18:18.282]                         is.null <- base::is.null
  [14:18:18.282]                         restarts <- computeRestarts(cond)
  [14:18:18.282]                         for (restart in restarts) {
  [14:18:18.282]                           name <- restart$name
  [14:18:18.282]                           if (is.null(name)) 
  [14:18:18.282]                             next
  [14:18:18.282]                           if (!grepl("^muffle", name)) 
  [14:18:18.282]                             next
  [14:18:18.282]                           invokeRestart(restart)
  [14:18:18.282]                           muffled <- TRUE
  [14:18:18.282]                           break
  [14:18:18.282]                         }
  [14:18:18.282]                       }
  [14:18:18.282]                       invisible(muffled)
  [14:18:18.282]                     }
  [14:18:18.282]                     muffleCondition(cond)
  [14:18:18.282]                   }
  [14:18:18.282]                 }
  [14:18:18.282]             }
  [14:18:18.282]         }))
  [14:18:18.282]     }, error = function(ex) {
  [14:18:18.282]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:18.282]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.282]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:18.282]     }, finally = {
  [14:18:18.282]         {
  [14:18:18.282]             {
  [14:18:18.282]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:18.282]             }
  [14:18:18.282]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:18.282]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.282]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.282]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.282]             {
  [14:18:18.282]                 if (substitute) 
  [14:18:18.282]                   expr <- substitute(expr)
  [14:18:18.282]                 if (is.function(workers)) 
  [14:18:18.282]                   workers <- workers()
  [14:18:18.282]                 workers <- as.integer(workers)
  [14:18:18.282]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.282]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.282]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.282]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.282]                     local = TRUE, label = label, ...))
  [14:18:18.282]                 }
  [14:18:18.282]                 oopts <- options(mc.cores = workers)
  [14:18:18.282]                 on.exit(options(oopts))
  [14:18:18.282]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.282]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.282]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.282]                   label = label, ...)
  [14:18:18.282]                 if (!future$lazy) 
  [14:18:18.282]                   future <- run(future)
  [14:18:18.282]                 invisible(future)
  [14:18:18.282]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.282]         }
  [14:18:18.282]         base::options(...future.oldOptions)
  [14:18:18.282]     })
  [14:18:18.282]     Sys.time
  [14:18:18.282]     if (base::is.na(TRUE)) {
  [14:18:18.282]     }
  [14:18:18.282]     else {
  [14:18:18.282]         base::sink(type = "output", split = FALSE)
  [14:18:18.282]         if (TRUE) {
  [14:18:18.282]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:18.282]         }
  [14:18:18.282]         else {
  [14:18:18.282]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:18.282]         }
  [14:18:18.282]         base::close(...future.stdout)
  [14:18:18.282]         ...future.stdout <- NULL
  [14:18:18.282]     }
  [14:18:18.282]     ...future.result$conditions <- ...future.conditions
  [14:18:18.282]     ...future.result
  [14:18:18.282] }
  [14:18:19.052]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:18.288] requestCore(): workers = 2
  [14:18:19.053]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:18.295] MulticoreFuture started
  [14:18:19.053]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:18.298] Chunk #1 of 2 ... DONE
  [14:18:19.054]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:18.300] Chunk #2 of 2 ...
  [14:18:19.054]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:18.301]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:19.055]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:18.302] getGlobalsAndPackages() ...
  [14:18:19.055]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:18.303] Searching for globals...
  [14:18:19.056]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:18.305] 
  [14:18:19.056]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:18.305] Searching for globals ... DONE
  [14:18:19.056]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:18.306] - globals: [0] <none>
  [14:18:19.057]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:18.323] getGlobalsAndPackages() ... DONE
  [14:18:19.057]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:18.324] 
  [14:18:19.058]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:18.324] 
  [14:18:19.058]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:18.325]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:19.059]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:18.327] getGlobalsAndPackages() ...
  [14:18:19.059]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:18.328] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.060]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:18.329] Resolving globals: FALSE
  [14:18:19.060]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:18.331] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [14:18:19.060]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:18.332] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.061]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:18.333] 
  [14:18:19.061]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:18.334] getGlobalsAndPackages() ... DONE
  [14:18:19.062]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:18.338] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:19.062]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:18.343] Packages needed by future strategies (n = 0): <none>
  [14:18:19.079]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:18.351] {
  [14:18:18.351]     {
  [14:18:18.351]         ...future.startTime <- base::Sys.time()
  [14:18:18.351]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:18.351]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:18.351]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:18.351]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:18.351]             future.resolve.recursive = NULL, width = 80L)
  [14:18:18.351]         {
  [14:18:18.351]             {
  [14:18:18.351]                 {
  [14:18:18.351]                   {
  [14:18:18.351]                     has_future <- base::requireNamespace("future", 
  [14:18:18.351]                       quietly = TRUE)
  [14:18:18.351]                     version <- if (has_future) 
  [14:18:18.351]                       utils::packageVersion("future")
  [14:18:18.351]                     else NULL
  [14:18:18.351]                     if (!has_future || version < "1.8.0") {
  [14:18:18.351]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:18.351]                         "", base::R.version$version.string), 
  [14:18:18.351]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:18.351]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:18.351]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:18.351]                           "release", "version")], collapse = " "), 
  [14:18:18.351]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:18.351]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:18.351]                         info)
  [14:18:18.351]                       info <- base::paste(info, collapse = "; ")
  [14:18:18.351]                       if (!has_future) {
  [14:18:18.351]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:18.351]                           info)
  [14:18:18.351]                       }
  [14:18:18.351]                       else {
  [14:18:18.351]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:18.351]                           info, version)
  [14:18:18.351]                       }
  [14:18:18.351]                       base::stop(msg)
  [14:18:18.351]                     }
  [14:18:18.351]                   }
  [14:18:18.351]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:18.351]                   base::options(mc.cores = 1L)
  [14:18:18.351]                 }
  [14:18:18.351]                 base::local({
  [14:18:18.351]                   for (pkg in c("doFuture", "utils")) {
  [14:18:18.351]                     base::loadNamespace(pkg)
  [14:18:18.351]                     base::library(pkg, character.only = TRUE)
  [14:18:18.351]                   }
  [14:18:18.351]                 })
  [14:18:18.351]             }
  [14:18:18.351]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:18.351]         }
  [14:18:18.351]     }
  [14:18:18.351]     if (base::is.na(TRUE)) {
  [14:18:18.351]     }
  [14:18:18.351]     else {
  [14:18:18.351]         if (TRUE) {
  [14:18:18.351]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:18.351]                 open = "w")
  [14:18:18.351]         }
  [14:18:18.351]         else {
  [14:18:18.351]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:18.351]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:18.351]         }
  [14:18:18.351]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:18.351]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:18.351]             base::sink(type = "output", split = FALSE)
  [14:18:18.351]             base::close(...future.stdout)
  [14:18:18.351]         }, add = TRUE)
  [14:18:18.351]     }
  [14:18:18.351]     ...future.frame <- base::sys.nframe()
  [14:18:18.351]     ...future.conditions <- base::list()
  [14:18:18.351]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:18.351]     ...future.result <- base::tryCatch({
  [14:18:18.351]         base::withCallingHandlers({
  [14:18:18.351]             ...future.value <- base::withVisible(base::local({
  [14:18:18.351]                 doFuture::registerDoFuture()
  [14:18:18.351]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.351]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.351]                   b <- NULL
  [14:18:18.351]                   ...future.env <- environment()
  [14:18:18.351]                   local({
  [14:18:18.351]                     for (name in names(...future.x_jj)) {
  [14:18:18.351]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.351]                         inherits = FALSE)
  [14:18:18.351]                     }
  [14:18:18.351]                   })
  [14:18:18.351]                   tryCatch({
  [14:18:18.351]                     plan_list <- future::plan("next")
  [14:18:18.351]                     message(capture.output(print(plan_list)))
  [14:18:18.351]                     stopifnot(inherits(plan_list, "future"))
  [14:18:18.351]                     default <- getOption("future.plan", "sequential")
  [14:18:18.351]                     if (is.function(default)) 
  [14:18:18.351]                       default <- class(default)
  [14:18:18.351]                     stopifnot(inherits(plan_list, default))
  [14:18:18.351]                     plan_b <- future::plan("list")
  [14:18:18.351]                     str(plan_b)
  [14:18:18.351]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:18.351]                       inherits(plan_b[[1]], default))
  [14:18:18.351]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.351]                   }, error = identity)
  [14:18:18.351]                 })
  [14:18:18.351]             }))
  [14:18:18.351]             future::FutureResult(value = ...future.value$value, 
  [14:18:18.351]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.351]                   ...future.rng), started = ...future.startTime, 
  [14:18:18.351]                 version = "1.8")
  [14:18:18.351]         }, condition = base::local({
  [14:18:18.351]             c <- base::c
  [14:18:18.351]             inherits <- base::inherits
  [14:18:18.351]             invokeRestart <- base::invokeRestart
  [14:18:18.351]             length <- base::length
  [14:18:18.351]             list <- base::list
  [14:18:18.351]             seq.int <- base::seq.int
  [14:18:18.351]             signalCondition <- base::signalCondition
  [14:18:18.351]             sys.calls <- base::sys.calls
  [14:18:18.351]             Sys.time <- base::Sys.time
  [14:18:18.351]             `[[` <- base::`[[`
  [14:18:18.351]             `+` <- base::`+`
  [14:18:18.351]             `<<-` <- base::`<<-`
  [14:18:18.351]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:18.351]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:18.351]                   3L)]
  [14:18:18.351]             }
  [14:18:18.351]             function(cond) {
  [14:18:18.351]                 if (inherits(cond, "error")) {
  [14:18:18.351]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.351]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:18.351]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:18.351]                   signalCondition(cond)
  [14:18:18.351]                 }
  [14:18:18.351]                 else if (inherits(cond, "condition")) {
  [14:18:18.351]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:18.351]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.351]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:18.351]                   if (!signal) {
  [14:18:18.351]                     muffleCondition <- function (cond) 
  [14:18:18.351]                     {
  [14:18:18.351]                       inherits <- base::inherits
  [14:18:18.351]                       invokeRestart <- base::invokeRestart
  [14:18:18.351]                       muffled <- FALSE
  [14:18:18.351]                       if (inherits(cond, "message")) {
  [14:18:18.351]                         invokeRestart("muffleMessage")
  [14:18:18.351]                         muffled <- TRUE
  [14:18:18.351]                       }
  [14:18:18.351]                       else if (inherits(cond, "warning")) {
  [14:18:18.351]                         invokeRestart("muffleWarning")
  [14:18:18.351]                         muffled <- TRUE
  [14:18:18.351]                       }
  [14:18:18.351]                       else if (inherits(cond, "condition")) {
  [14:18:18.351]                         computeRestarts <- base::computeRestarts
  [14:18:18.351]                         grepl <- base::grepl
  [14:18:18.351]                         is.null <- base::is.null
  [14:18:18.351]                         restarts <- computeRestarts(cond)
  [14:18:18.351]                         for (restart in restarts) {
  [14:18:18.351]                           name <- restart$name
  [14:18:18.351]                           if (is.null(name)) 
  [14:18:18.351]                             next
  [14:18:18.351]                           if (!grepl("^muffle", name)) 
  [14:18:18.351]                             next
  [14:18:18.351]                           invokeRestart(restart)
  [14:18:18.351]                           muffled <- TRUE
  [14:18:18.351]                           break
  [14:18:18.351]                         }
  [14:18:18.351]                       }
  [14:18:18.351]                       invisible(muffled)
  [14:18:18.351]                     }
  [14:18:18.351]                     muffleCondition(cond)
  [14:18:18.351]                   }
  [14:18:18.351]                 }
  [14:18:18.351]             }
  [14:18:18.351]         }))
  [14:18:18.351]     }, error = function(ex) {
  [14:18:18.351]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:18.351]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.351]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:18.351]     }, finally = {
  [14:18:18.351]         {
  [14:18:18.351]             {
  [14:18:18.351]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:18.351]             }
  [14:18:18.351]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:18.351]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.351]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.351]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.351]             {
  [14:18:18.351]                 if (substitute) 
  [14:18:18.351]                   expr <- substitute(expr)
  [14:18:18.351]                 if (is.function(workers)) 
  [14:18:18.351]                   workers <- workers()
  [14:18:18.351]                 workers <- as.integer(workers)
  [14:18:18.351]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.351]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.351]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.351]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.351]                     local = TRUE, label = label, ...))
  [14:18:18.351]                 }
  [14:18:18.351]                 oopts <- options(mc.cores = workers)
  [14:18:18.351]                 on.exit(options(oopts))
  [14:18:18.351]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.351]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.351]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.351]                   label = label, ...)
  [14:18:18.351]                 if (!future$lazy) 
  [14:18:18.351]                   future <- run(future)
  [14:18:18.351]                 invisible(future)
  [14:18:18.351]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.351]         }
  [14:18:18.351]         base::options(...future.oldOptions)
  [14:18:18.351]     })
  [14:18:18.351]     Sys.time
  [14:18:18.351]     if (base::is.na(TRUE)) {
  [14:18:18.351]     }
  [14:18:18.351]     else {
  [14:18:18.351]         base::sink(type = "output", split = FALSE)
  [14:18:18.351]         if (TRUE) {
  [14:18:18.351]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:18.351]         }
  [14:18:18.351]         else {
  [14:18:18.351]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:18.351]         }
  [14:18:18.351]         base::close(...future.stdout)
  [14:18:18.351]         ...future.stdout <- NULL
  [14:18:18.351]     }
  [14:18:18.351]     ...future.result$conditions <- ...future.conditions
  [14:18:18.351]     ...future.result
  [14:18:18.351] }
  [14:18:19.079]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:18.358] requestCore(): workers = 2
  [14:18:19.080]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:18.387] MulticoreFuture started
  [14:18:19.080]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:18.389] Chunk #2 of 2 ... DONE
  [14:18:19.081]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:18.390] Launching 2 futures (chunks) ... DONE
  [14:18:19.081]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:18.407] - resolving futures
  [14:18:19.082]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:18.408]   - gathering results & relaying conditions (except errors)
  [14:18:19.082]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:18.408] resolve() on list ...
  [14:18:19.083]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:18.409]  recursive: 0
  [14:18:19.083]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:18.410]  length: 2
  [14:18:19.084]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:18.410] 
  [14:18:19.084]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:18.414] Future #1
  [14:18:19.085]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:18.420] signalConditions() ...
  [14:18:19.085]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:18.421]  - include = 'immediateCondition'
  [14:18:19.086]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:18.422]  - exclude = 
  [14:18:19.086]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:18.438]  - resignal = FALSE
  [14:18:19.086]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:18.439]  - Number of conditions: 1
  [14:18:19.087]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:18.440] signalConditions() ... done
  [14:18:19.087]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:18.440] signalConditions() ...
  [14:18:19.088]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:18.441]  - include = 'immediateCondition'
  [14:18:19.088]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:18.442]  - exclude = 
  [14:18:19.089]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:18.442]  - resignal = FALSE
  [14:18:19.089]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:18.443]  - Number of conditions: 1
  [14:18:19.090]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:18.443] signalConditions() ... done
  [14:18:19.090]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:18.444] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:18:19.091]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:18.445] - nx: 2
  [14:18:19.091]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:18.445] - relay: TRUE
  [14:18:19.092]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:18.446] - stdout: TRUE
  [14:18:19.092]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:18.446] - signal: TRUE
  [14:18:19.093]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:18.447] - resignal: FALSE
  [14:18:19.093]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:18.447] - force: FALSE
  [14:18:19.094]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:18.448] - relayed: [n=2] FALSE, FALSE
  [14:18:19.094]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:18.449] - queued futures: [n=2] FALSE, FALSE
  [14:18:19.107]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:18.449]  - until=1
  [14:18:19.107]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:18:18.450]  - relaying element #1
  [14:18:19.108]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:18.450] signalConditions() ...
  [14:18:19.108]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:18:18.451]  - include = 'immediateCondition'
  [14:18:19.109]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:18.452]  - exclude = 
  [14:18:19.109]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:18:18.452]  - resignal = FALSE
  [14:18:19.110]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:18.453]  - Number of conditions: 1
  [14:18:19.110]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:18.453] signalConditions() ... done
  [14:18:19.111]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:18.454] signalConditions() ...
  [14:18:19.111]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:18.474]  - include = 'immediateCondition'
  [14:18:19.112]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:18.474]  - exclude = 
  [14:18:19.112]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:18.475]  - resignal = FALSE
  [14:18:19.112]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:18.476]  - Number of conditions: 1
  [14:18:19.113]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:18.476] signalConditions() ... done
  [14:18:19.113]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:18.477] signalConditions() ...
  [14:18:19.114]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:18.477]  - include = 'condition'
  [14:18:19.114]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:18.478]  - exclude = 'immediateCondition'
  [14:18:19.115]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:18.479]  - resignal = FALSE
  [14:18:19.115]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:18.479]  - Number of conditions: 1
  [14:18:19.116]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:18.480]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:19.116]  - Condition #123: '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
  [14:18:19.117]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:18:18.481] signalConditions() ... done
  [14:18:19.117]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:18.481] - relayed: [n=2] TRUE, FALSE
  [14:18:19.118]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:18.482] - queued futures: [n=2] TRUE, FALSE
  [14:18:19.118]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:18.482] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:18:19.119]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:18.483]  length: 1 (resolved future 1)
  [14:18:19.119]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:18.484] Future #2
  [14:18:19.120]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:18.495] signalConditions() ...
  [14:18:19.120]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:18.496]  - include = 'immediateCondition'
  [14:18:19.121]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:18.497]  - exclude = 
  [14:18:19.121]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:18.497]  - resignal = FALSE
  [14:18:19.122]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:18.498]  - Number of conditions: 2
  [14:18:19.122]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:18.499] signalConditions() ... done
  [14:18:19.132]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:18.499] signalConditions() ...
  [14:18:19.133]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:18.500]  - include = 'immediateCondition'
  [14:18:19.133]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:18.501]  - exclude = 
  [14:18:19.134]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:18.501]  - resignal = FALSE
  [14:18:19.134]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:18:18.502]  - Number of conditions: 2
  [14:18:19.139]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:18:18.502] signalConditions() ... done
  [14:18:19.139]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:18:18.503] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:18:19.140]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:18:18.503] - nx: 2
  [14:18:19.140]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:18:18.504] - relay: TRUE
  [14:18:19.141]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:18:18.504] - stdout: TRUE
  [14:18:19.141]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:18:18.505] - signal: TRUE
  [14:18:19.142]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:18:18.505] - resignal: FALSE
  [14:18:19.142]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:18:18.506] - force: FALSE
  [14:18:19.143]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:18:18.506] - relayed: [n=2] TRUE, FALSE
  [14:18:19.143]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:18:18.507] - queued futures: [n=2] TRUE, FALSE
  [14:18:19.144]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:18:18.507]  - until=2
  [14:18:19.145]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:18:18.508]  - relaying element #2
  [14:18:19.145]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:18:18.508] signalConditions() ...
  [14:18:19.146]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:18:18.509]  - include = 'immediateCondition'
  [14:18:19.146]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:18:18.510]  - exclude = 
  [14:18:19.148]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:18:18.510]  - resignal = FALSE
  [14:18:19.148]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:18:18.510]  - Number of conditions: 2
  [14:18:19.149]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:18:18.511] signalConditions() ... done
  [14:18:19.149]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:18:18.512] signalConditions() ...
  [14:18:19.150]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:18:18.512]  - include = 'immediateCondition'
  [14:18:19.150]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:18:18.513]  - exclude = 
  [14:18:19.151]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:18:18.513]  - resignal = FALSE
  [14:18:19.151]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:18:18.514]  - Number of conditions: 2
  [14:18:19.152]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:18:18.514] signalConditions() ... done
  [14:18:19.152]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:18:18.515] signalConditions() ...
  [14:18:19.153]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:18:18.515]  - include = 'condition'
  [14:18:19.153]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:18:18.516]  - exclude = 'immediateCondition'
  [14:18:19.154]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:18:18.516]  - resignal = FALSE
  [14:18:19.154]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:18:18.517]  - Number of conditions: 2
  [14:18:19.155]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:18:18.517]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:19.155]  - Condition #171: '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
  [14:18:19.155]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:18:18.518]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:19.156]  - Condition #173: '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
  [14:18:19.156]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:18:18.519] signalConditions() ... done
  [14:18:19.157]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:18:18.520] - relayed: [n=2] TRUE, TRUE
  [14:18:19.157]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:18:18.520] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.158]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:18:18.521] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:18:19.158]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:18:18.521]  length: 0 (resolved future 2)
  [14:18:19.159]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:18:18.522] Relaying remaining futures
  [14:18:19.159]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:18:18.522] signalConditionsASAP(NULL, pos=0) ...
  [14:18:19.160]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:18:18.523] - nx: 2
  [14:18:19.160]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:18:18.523] - relay: TRUE
  [14:18:19.161]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:18:18.524] - stdout: TRUE
  [14:18:19.161]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:18:18.525] - signal: TRUE
  [14:18:19.161]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:18:18.525] - resignal: FALSE
  [14:18:19.162]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:18:18.526] - force: FALSE
  [14:18:19.162]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:18:18.526] - relayed: [n=2] TRUE, TRUE
  [14:18:19.163]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:18:18.527] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.165]  - Condition #189: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:19.166]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:18:18.528] - relayed: [n=2] TRUE, TRUE
  [14:18:19.166]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:18:18.528] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.167]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:18:18.529] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:19.167]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:18:18.529] resolve() on list ... DONE
  [14:18:19.167]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:18:18.530] - collecting values of futures
  [14:18:19.168]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:18:18.531] signalConditions() ...
  [14:18:19.168]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:18:18.531]  - include = 'immediateCondition'
  [14:18:19.169]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:18:18.532]  - exclude = 
  [14:18:19.169]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:18:18.532]  - resignal = FALSE
  [14:18:19.170]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:18:18.533]  - Number of conditions: 1
  [14:18:19.170]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:18:18.533] signalConditions() ... done
  [14:18:19.170]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:18:18.534] signalConditions() ...
  [14:18:19.171]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:18:18.534]  - include = 'immediateCondition'
  [14:18:19.171]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:18:18.535]  - exclude = 
  [14:18:19.172]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:18:18.535]  - resignal = FALSE
  [14:18:19.172]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:18:18.536]  - Number of conditions: 2
  [14:18:19.173]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:18:18.536] signalConditions() ... done
  [14:18:19.173]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:18:18.537] - accumulating results
  [14:18:19.174]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:18:18.538] - processing errors (handler = 'stop')
  [14:18:19.174]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:18:18.539] - extracting results
  [14:18:19.174]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:18:18.539] doFuture() ... DONE
  [14:18:19.175]  - Condition #211: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:19.175]  - Condition #212: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:19.176]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:18:18.546] doFuture() ...
  [14:18:19.176]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:18:18.548] - dummy globals (as locals): [1] 'b'
  [14:18:19.177]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:18:18.549] - R expression:
  [14:18:19.177]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:18:18.550] {
  [14:18:18.550]     doFuture::registerDoFuture()
  [14:18:18.550]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.550]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.550]         b <- NULL
  [14:18:18.550]         ...future.env <- environment()
  [14:18:18.550]         local({
  [14:18:18.550]             for (name in names(...future.x_jj)) {
  [14:18:18.550]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.550]                   inherits = FALSE)
  [14:18:18.550]             }
  [14:18:18.550]         })
  [14:18:18.550]         tryCatch({
  [14:18:18.550]             plan_list <- future::plan("next")
  [14:18:18.550]             message(capture.output(print(plan_list)))
  [14:18:18.550]             stopifnot(inherits(plan_list, "future"))
  [14:18:18.550]             default <- getOption("future.plan", "sequential")
  [14:18:18.550]             if (is.function(default)) 
  [14:18:18.550]                 default <- class(default)
  [14:18:18.550]             stopifnot(inherits(plan_list, default))
  [14:18:18.550]             plan_b <- future::plan("list")
  [14:18:18.550]             str(plan_b)
  [14:18:18.550]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:18.550]                 default))
  [14:18:18.550]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.550]         }, error = identity)
  [14:18:18.550]     })
  [14:18:18.550] }
  [14:18:19.178]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:18:18.551] - identifying globals and packages ...
  [14:18:19.178]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:18:18.552] getGlobalsAndPackages() ...
  [14:18:19.179]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:18:18.553] Searching for globals...
  [14:18:19.179]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:18:18.586] - 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'
  [14:18:19.180]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:18:18.586] Searching for globals ... DONE
  [14:18:19.180]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:18:18.587] Resolving globals: FALSE
  [14:18:19.181]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:18:18.590] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:18:19.181]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:18:18.591] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.182]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:18:18.592] - packages: [1] 'utils'
  [14:18:19.182]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:18:18.592] getGlobalsAndPackages() ... DONE
  [14:18:19.183]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:18:18.593] List of 3
  [14:18:18.593]  $ ...future.x_ii: NULL
  [14:18:18.593]  $ a             : int 2
  [14:18:18.593]  $ plan_a        :List of 1
  [14:18:18.593]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:18.593]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.593]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:18.593]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:18.593]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:18.593]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:18.593]  - attr(*, "where")=List of 3
  [14:18:18.593]   ..$ ...future.x_ii:<environment: 0x5626354f77f8> 
  [14:18:18.593]   ..$ a             :<environment: 0x56263496a368> 
  [14:18:18.593]   ..$ plan_a        :<environment: 0x56263496a368> 
  [14:18:18.593]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:18.593]  - attr(*, "resolved")= logi FALSE
  [14:18:18.593]  - attr(*, "total_size")= num 76816
  [14:18:19.183]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:18:18.608]   - R expression:
  [14:18:19.184]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:18:18.609] {
  [14:18:18.609]     doFuture::registerDoFuture()
  [14:18:18.609]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.609]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.609]         b <- NULL
  [14:18:18.609]         ...future.env <- environment()
  [14:18:18.609]         local({
  [14:18:18.609]             for (name in names(...future.x_jj)) {
  [14:18:18.609]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.609]                   inherits = FALSE)
  [14:18:18.609]             }
  [14:18:18.609]         })
  [14:18:18.609]         tryCatch({
  [14:18:18.609]             plan_list <- future::plan("next")
  [14:18:18.609]             message(capture.output(print(plan_list)))
  [14:18:18.609]             stopifnot(inherits(plan_list, "future"))
  [14:18:18.609]             default <- getOption("future.plan", "sequential")
  [14:18:18.609]             if (is.function(default)) 
  [14:18:18.609]                 default <- class(default)
  [14:18:18.609]             stopifnot(inherits(plan_list, default))
  [14:18:18.609]             plan_b <- future::plan("list")
  [14:18:18.609]             str(plan_b)
  [14:18:18.609]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:18.609]                 default))
  [14:18:18.609]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.609]         }, error = identity)
  [14:18:18.609]     })
  [14:18:18.609] }
  [14:18:19.184]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:18:18.626]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.185]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:18:18.627] List of 3
  [14:18:18.627]  $ ...future.x_ii: NULL
  [14:18:18.627]  $ a             : int 2
  [14:18:18.627]  $ plan_a        :List of 1
  [14:18:18.627]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:18.627]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.627]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:18.627]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:18.627]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:18.627]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:18.627]  - attr(*, "where")=List of 3
  [14:18:18.627]   ..$ ...future.x_ii:<environment: 0x5626354f77f8> 
  [14:18:18.627]   ..$ a             :<environment: 0x56263496a368> 
  [14:18:18.627]   ..$ plan_a        :<environment: 0x56263496a368> 
  [14:18:18.627]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:18.627]  - attr(*, "resolved")= logi FALSE
  [14:18:18.627]  - attr(*, "total_size")= num 76816
  [14:18:19.185]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:18:18.660]   - packages: [2] 'doFuture', 'utils'
  [14:18:19.185]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:18:18.660] - identifying globals and packages ... DONE
  [14:18:19.186]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:18:18.662] Number of chunks: 2
  [14:18:19.186]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:18:18.663] Number of futures (= number of chunks): 2
  [14:18:19.187]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:18:18.664] Launching 2 futures (chunks) ...
  [14:18:19.187]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:18:18.665] Chunk #1 of 2 ...
  [14:18:19.188]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:18:18.665]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:19.188]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:18:18.666] getGlobalsAndPackages() ...
  [14:18:19.189]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:18:18.670] Searching for globals...
  [14:18:19.189]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:18:18.671] 
  [14:18:19.190]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:18:18.672] Searching for globals ... DONE
  [14:18:19.190]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:18:18.673] - globals: [0] <none>
  [14:18:19.191]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:18:18.673] getGlobalsAndPackages() ... DONE
  [14:18:19.191]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:18:18.674] 
  [14:18:19.192]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:18:18.690] 
  [14:18:19.192]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:18:18.692]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:19.193]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:18:18.693] getGlobalsAndPackages() ...
  [14:18:19.193]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:18:18.694] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.194]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:18:18.695] Resolving globals: FALSE
  [14:18:19.194]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:18:18.697] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [14:18:19.195]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:18:18.698] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.195]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:18:18.698] 
  [14:18:19.196]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:18:18.699] getGlobalsAndPackages() ... DONE
  [14:18:19.196]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:18:18.702] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:19.197]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:18:18.703] Packages needed by future strategies (n = 0): <none>
  [14:18:19.197]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:18:18.725] {
  [14:18:18.725]     {
  [14:18:18.725]         ...future.startTime <- base::Sys.time()
  [14:18:18.725]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:18.725]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:18.725]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:18.725]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:18.725]             future.resolve.recursive = NULL, width = 80L)
  [14:18:18.725]         {
  [14:18:18.725]             {
  [14:18:18.725]                 {
  [14:18:18.725]                   {
  [14:18:18.725]                     has_future <- base::requireNamespace("future", 
  [14:18:18.725]                       quietly = TRUE)
  [14:18:18.725]                     version <- if (has_future) 
  [14:18:18.725]                       utils::packageVersion("future")
  [14:18:18.725]                     else NULL
  [14:18:18.725]                     if (!has_future || version < "1.8.0") {
  [14:18:18.725]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:18.725]                         "", base::R.version$version.string), 
  [14:18:18.725]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:18.725]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:18.725]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:18.725]                           "release", "version")], collapse = " "), 
  [14:18:18.725]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:18.725]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:18.725]                         info)
  [14:18:18.725]                       info <- base::paste(info, collapse = "; ")
  [14:18:18.725]                       if (!has_future) {
  [14:18:18.725]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:18.725]                           info)
  [14:18:18.725]                       }
  [14:18:18.725]                       else {
  [14:18:18.725]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:18.725]                           info, version)
  [14:18:18.725]                       }
  [14:18:18.725]                       base::stop(msg)
  [14:18:18.725]                     }
  [14:18:18.725]                   }
  [14:18:18.725]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:18.725]                   base::options(mc.cores = 1L)
  [14:18:18.725]                 }
  [14:18:18.725]                 base::local({
  [14:18:18.725]                   for (pkg in c("doFuture", "utils")) {
  [14:18:18.725]                     base::loadNamespace(pkg)
  [14:18:18.725]                     base::library(pkg, character.only = TRUE)
  [14:18:18.725]                   }
  [14:18:18.725]                 })
  [14:18:18.725]             }
  [14:18:18.725]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:18.725]         }
  [14:18:18.725]     }
  [14:18:18.725]     if (base::is.na(TRUE)) {
  [14:18:18.725]     }
  [14:18:18.725]     else {
  [14:18:18.725]         if (TRUE) {
  [14:18:18.725]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:18.725]                 open = "w")
  [14:18:18.725]         }
  [14:18:18.725]         else {
  [14:18:18.725]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:18.725]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:18.725]         }
  [14:18:18.725]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:18.725]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:18.725]             base::sink(type = "output", split = FALSE)
  [14:18:18.725]             base::close(...future.stdout)
  [14:18:18.725]         }, add = TRUE)
  [14:18:18.725]     }
  [14:18:18.725]     ...future.frame <- base::sys.nframe()
  [14:18:18.725]     ...future.conditions <- base::list()
  [14:18:18.725]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:18.725]     ...future.result <- base::tryCatch({
  [14:18:18.725]         base::withCallingHandlers({
  [14:18:18.725]             ...future.value <- base::withVisible(base::local({
  [14:18:18.725]                 doFuture::registerDoFuture()
  [14:18:18.725]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.725]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.725]                   b <- NULL
  [14:18:18.725]                   ...future.env <- environment()
  [14:18:18.725]                   local({
  [14:18:18.725]                     for (name in names(...future.x_jj)) {
  [14:18:18.725]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.725]                         inherits = FALSE)
  [14:18:18.725]                     }
  [14:18:18.725]                   })
  [14:18:18.725]                   tryCatch({
  [14:18:18.725]                     plan_list <- future::plan("next")
  [14:18:18.725]                     message(capture.output(print(plan_list)))
  [14:18:18.725]                     stopifnot(inherits(plan_list, "future"))
  [14:18:18.725]                     default <- getOption("future.plan", "sequential")
  [14:18:18.725]                     if (is.function(default)) 
  [14:18:18.725]                       default <- class(default)
  [14:18:18.725]                     stopifnot(inherits(plan_list, default))
  [14:18:18.725]                     plan_b <- future::plan("list")
  [14:18:18.725]                     str(plan_b)
  [14:18:18.725]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:18.725]                       inherits(plan_b[[1]], default))
  [14:18:18.725]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.725]                   }, error = identity)
  [14:18:18.725]                 })
  [14:18:18.725]             }))
  [14:18:18.725]             future::FutureResult(value = ...future.value$value, 
  [14:18:18.725]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.725]                   ...future.rng), started = ...future.startTime, 
  [14:18:18.725]                 version = "1.8")
  [14:18:18.725]         }, condition = base::local({
  [14:18:18.725]             c <- base::c
  [14:18:18.725]             inherits <- base::inherits
  [14:18:18.725]             invokeRestart <- base::invokeRestart
  [14:18:18.725]             length <- base::length
  [14:18:18.725]             list <- base::list
  [14:18:18.725]             seq.int <- base::seq.int
  [14:18:18.725]             signalCondition <- base::signalCondition
  [14:18:18.725]             sys.calls <- base::sys.calls
  [14:18:18.725]             Sys.time <- base::Sys.time
  [14:18:18.725]             `[[` <- base::`[[`
  [14:18:18.725]             `+` <- base::`+`
  [14:18:18.725]             `<<-` <- base::`<<-`
  [14:18:18.725]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:18.725]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:18.725]                   3L)]
  [14:18:18.725]             }
  [14:18:18.725]             function(cond) {
  [14:18:18.725]                 if (inherits(cond, "error")) {
  [14:18:18.725]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.725]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:18.725]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:18.725]                   signalCondition(cond)
  [14:18:18.725]                 }
  [14:18:18.725]                 else if (inherits(cond, "condition")) {
  [14:18:18.725]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:18.725]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.725]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:18.725]                   if (!signal) {
  [14:18:18.725]                     muffleCondition <- function (cond) 
  [14:18:18.725]                     {
  [14:18:18.725]                       inherits <- base::inherits
  [14:18:18.725]                       invokeRestart <- base::invokeRestart
  [14:18:18.725]                       muffled <- FALSE
  [14:18:18.725]                       if (inherits(cond, "message")) {
  [14:18:18.725]                         invokeRestart("muffleMessage")
  [14:18:18.725]                         muffled <- TRUE
  [14:18:18.725]                       }
  [14:18:18.725]                       else if (inherits(cond, "warning")) {
  [14:18:18.725]                         invokeRestart("muffleWarning")
  [14:18:18.725]                         muffled <- TRUE
  [14:18:18.725]                       }
  [14:18:18.725]                       else if (inherits(cond, "condition")) {
  [14:18:18.725]                         computeRestarts <- base::computeRestarts
  [14:18:18.725]                         grepl <- base::grepl
  [14:18:18.725]                         is.null <- base::is.null
  [14:18:18.725]                         restarts <- computeRestarts(cond)
  [14:18:18.725]                         for (restart in restarts) {
  [14:18:18.725]                           name <- restart$name
  [14:18:18.725]                           if (is.null(name)) 
  [14:18:18.725]                             next
  [14:18:18.725]                           if (!grepl("^muffle", name)) 
  [14:18:18.725]                             next
  [14:18:18.725]                           invokeRestart(restart)
  [14:18:18.725]                           muffled <- TRUE
  [14:18:18.725]                           break
  [14:18:18.725]                         }
  [14:18:18.725]                       }
  [14:18:18.725]                       invisible(muffled)
  [14:18:18.725]                     }
  [14:18:18.725]                     muffleCondition(cond)
  [14:18:18.725]                   }
  [14:18:18.725]                 }
  [14:18:18.725]             }
  [14:18:18.725]         }))
  [14:18:18.725]     }, error = function(ex) {
  [14:18:18.725]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:18.725]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.725]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:18.725]     }, finally = {
  [14:18:18.725]         {
  [14:18:18.725]             {
  [14:18:18.725]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:18.725]             }
  [14:18:18.725]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:18.725]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.725]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.725]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.725]             {
  [14:18:18.725]                 if (substitute) 
  [14:18:18.725]                   expr <- substitute(expr)
  [14:18:18.725]                 if (is.function(workers)) 
  [14:18:18.725]                   workers <- workers()
  [14:18:18.725]                 workers <- as.integer(workers)
  [14:18:18.725]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.725]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.725]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.725]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.725]                     local = TRUE, label = label, ...))
  [14:18:18.725]                 }
  [14:18:18.725]                 oopts <- options(mc.cores = workers)
  [14:18:18.725]                 on.exit(options(oopts))
  [14:18:18.725]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.725]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.725]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.725]                   label = label, ...)
  [14:18:18.725]                 if (!future$lazy) 
  [14:18:18.725]                   future <- run(future)
  [14:18:18.725]                 invisible(future)
  [14:18:18.725]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.725]         }
  [14:18:18.725]         base::options(...future.oldOptions)
  [14:18:18.725]     })
  [14:18:18.725]     Sys.time
  [14:18:18.725]     if (base::is.na(TRUE)) {
  [14:18:18.725]     }
  [14:18:18.725]     else {
  [14:18:18.725]         base::sink(type = "output", split = FALSE)
  [14:18:18.725]         if (TRUE) {
  [14:18:18.725]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:18.725]         }
  [14:18:18.725]         else {
  [14:18:18.725]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:18.725]         }
  [14:18:18.725]         base::close(...future.stdout)
  [14:18:18.725]         ...future.stdout <- NULL
  [14:18:18.725]     }
  [14:18:18.725]     ...future.result$conditions <- ...future.conditions
  [14:18:18.725]     ...future.result
  [14:18:18.725] }
  [14:18:19.198]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:18:18.731] requestCore(): workers = 2
  [14:18:19.198]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:18:18.734] MulticoreFuture started
  [14:18:19.198]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:18:18.737] Chunk #1 of 2 ... DONE
  [14:18:19.199]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:18:18.737] Chunk #2 of 2 ...
  [14:18:19.199]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:18:18.738]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:19.200]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:18:18.755] getGlobalsAndPackages() ...
  [14:18:19.200]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:18:18.756] Searching for globals...
  [14:18:19.201]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:18:18.757] 
  [14:18:19.201]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:18:18.758] Searching for globals ... DONE
  [14:18:19.202]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:18:18.758] - globals: [0] <none>
  [14:18:19.202]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:18:18.759] getGlobalsAndPackages() ... DONE
  [14:18:19.211]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:18:18.760] 
  [14:18:19.211]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:18:18.760] 
  [14:18:19.212]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:18:18.761]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:19.212]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:18:18.763] getGlobalsAndPackages() ...
  [14:18:19.213]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:18:18.763] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.213]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:18:18.764] Resolving globals: FALSE
  [14:18:19.214]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:18:18.767] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [14:18:19.214]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:18:18.768] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:19.215]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:18:18.769] 
  [14:18:19.215]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:18:18.769] getGlobalsAndPackages() ... DONE
  [14:18:19.216]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:18:18.789] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:19.216]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:18:18.790] Packages needed by future strategies (n = 0): <none>
  [14:18:19.217]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:18:18.799] {
  [14:18:18.799]     {
  [14:18:18.799]         ...future.startTime <- base::Sys.time()
  [14:18:18.799]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:18.799]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:18.799]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:18.799]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:18.799]             future.resolve.recursive = NULL, width = 80L)
  [14:18:18.799]         {
  [14:18:18.799]             {
  [14:18:18.799]                 {
  [14:18:18.799]                   {
  [14:18:18.799]                     has_future <- base::requireNamespace("future", 
  [14:18:18.799]                       quietly = TRUE)
  [14:18:18.799]                     version <- if (has_future) 
  [14:18:18.799]                       utils::packageVersion("future")
  [14:18:18.799]                     else NULL
  [14:18:18.799]                     if (!has_future || version < "1.8.0") {
  [14:18:18.799]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:18.799]                         "", base::R.version$version.string), 
  [14:18:18.799]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:18.799]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:18.799]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:18.799]                           "release", "version")], collapse = " "), 
  [14:18:18.799]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:18.799]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:18.799]                         info)
  [14:18:18.799]                       info <- base::paste(info, collapse = "; ")
  [14:18:18.799]                       if (!has_future) {
  [14:18:18.799]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:18.799]                           info)
  [14:18:18.799]                       }
  [14:18:18.799]                       else {
  [14:18:18.799]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:18.799]                           info, version)
  [14:18:18.799]                       }
  [14:18:18.799]                       base::stop(msg)
  [14:18:18.799]                     }
  [14:18:18.799]                   }
  [14:18:18.799]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:18.799]                   base::options(mc.cores = 1L)
  [14:18:18.799]                 }
  [14:18:18.799]                 base::local({
  [14:18:18.799]                   for (pkg in c("doFuture", "utils")) {
  [14:18:18.799]                     base::loadNamespace(pkg)
  [14:18:18.799]                     base::library(pkg, character.only = TRUE)
  [14:18:18.799]                   }
  [14:18:18.799]                 })
  [14:18:18.799]             }
  [14:18:18.799]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:18.799]         }
  [14:18:18.799]     }
  [14:18:18.799]     if (base::is.na(TRUE)) {
  [14:18:18.799]     }
  [14:18:18.799]     else {
  [14:18:18.799]         if (TRUE) {
  [14:18:18.799]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:18.799]                 open = "w")
  [14:18:18.799]         }
  [14:18:18.799]         else {
  [14:18:18.799]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:18.799]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:18.799]         }
  [14:18:18.799]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:18.799]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:18.799]             base::sink(type = "output", split = FALSE)
  [14:18:18.799]             base::close(...future.stdout)
  [14:18:18.799]         }, add = TRUE)
  [14:18:18.799]     }
  [14:18:18.799]     ...future.frame <- base::sys.nframe()
  [14:18:18.799]     ...future.conditions <- base::list()
  [14:18:18.799]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:18.799]     ...future.result <- base::tryCatch({
  [14:18:18.799]         base::withCallingHandlers({
  [14:18:18.799]             ...future.value <- base::withVisible(base::local({
  [14:18:18.799]                 doFuture::registerDoFuture()
  [14:18:18.799]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:18.799]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:18.799]                   b <- NULL
  [14:18:18.799]                   ...future.env <- environment()
  [14:18:18.799]                   local({
  [14:18:18.799]                     for (name in names(...future.x_jj)) {
  [14:18:18.799]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:18.799]                         inherits = FALSE)
  [14:18:18.799]                     }
  [14:18:18.799]                   })
  [14:18:18.799]                   tryCatch({
  [14:18:18.799]                     plan_list <- future::plan("next")
  [14:18:18.799]                     message(capture.output(print(plan_list)))
  [14:18:18.799]                     stopifnot(inherits(plan_list, "future"))
  [14:18:18.799]                     default <- getOption("future.plan", "sequential")
  [14:18:18.799]                     if (is.function(default)) 
  [14:18:18.799]                       default <- class(default)
  [14:18:18.799]                     stopifnot(inherits(plan_list, default))
  [14:18:18.799]                     plan_b <- future::plan("list")
  [14:18:18.799]                     str(plan_b)
  [14:18:18.799]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:18.799]                       inherits(plan_b[[1]], default))
  [14:18:18.799]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:18.799]                   }, error = identity)
  [14:18:18.799]                 })
  [14:18:18.799]             }))
  [14:18:18.799]             future::FutureResult(value = ...future.value$value, 
  [14:18:18.799]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.799]                   ...future.rng), started = ...future.startTime, 
  [14:18:18.799]                 version = "1.8")
  [14:18:18.799]         }, condition = base::local({
  [14:18:18.799]             c <- base::c
  [14:18:18.799]             inherits <- base::inherits
  [14:18:18.799]             invokeRestart <- base::invokeRestart
  [14:18:18.799]             length <- base::length
  [14:18:18.799]             list <- base::list
  [14:18:18.799]             seq.int <- base::seq.int
  [14:18:18.799]             signalCondition <- base::signalCondition
  [14:18:18.799]             sys.calls <- base::sys.calls
  [14:18:18.799]             Sys.time <- base::Sys.time
  [14:18:18.799]             `[[` <- base::`[[`
  [14:18:18.799]             `+` <- base::`+`
  [14:18:18.799]             `<<-` <- base::`<<-`
  [14:18:18.799]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:18.799]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:18.799]                   3L)]
  [14:18:18.799]             }
  [14:18:18.799]             function(cond) {
  [14:18:18.799]                 if (inherits(cond, "error")) {
  [14:18:18.799]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.799]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:18.799]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:18.799]                   signalCondition(cond)
  [14:18:18.799]                 }
  [14:18:18.799]                 else if (inherits(cond, "condition")) {
  [14:18:18.799]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:18.799]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:18.799]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:18.799]                   if (!signal) {
  [14:18:18.799]                     muffleCondition <- function (cond) 
  [14:18:18.799]                     {
  [14:18:18.799]                       inherits <- base::inherits
  [14:18:18.799]                       invokeRestart <- base::invokeRestart
  [14:18:18.799]                       muffled <- FALSE
  [14:18:18.799]                       if (inherits(cond, "message")) {
  [14:18:18.799]                         invokeRestart("muffleMessage")
  [14:18:18.799]                         muffled <- TRUE
  [14:18:18.799]                       }
  [14:18:18.799]                       else if (inherits(cond, "warning")) {
  [14:18:18.799]                         invokeRestart("muffleWarning")
  [14:18:18.799]                         muffled <- TRUE
  [14:18:18.799]                       }
  [14:18:18.799]                       else if (inherits(cond, "condition")) {
  [14:18:18.799]                         computeRestarts <- base::computeRestarts
  [14:18:18.799]                         grepl <- base::grepl
  [14:18:18.799]                         is.null <- base::is.null
  [14:18:18.799]                         restarts <- computeRestarts(cond)
  [14:18:18.799]                         for (restart in restarts) {
  [14:18:18.799]                           name <- restart$name
  [14:18:18.799]                           if (is.null(name)) 
  [14:18:18.799]                             next
  [14:18:18.799]                           if (!grepl("^muffle", name)) 
  [14:18:18.799]                             next
  [14:18:18.799]                           invokeRestart(restart)
  [14:18:18.799]                           muffled <- TRUE
  [14:18:18.799]                           break
  [14:18:18.799]                         }
  [14:18:18.799]                       }
  [14:18:18.799]                       invisible(muffled)
  [14:18:18.799]                     }
  [14:18:18.799]                     muffleCondition(cond)
  [14:18:18.799]                   }
  [14:18:18.799]                 }
  [14:18:18.799]             }
  [14:18:18.799]         }))
  [14:18:18.799]     }, error = function(ex) {
  [14:18:18.799]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:18.799]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:18.799]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:18.799]     }, finally = {
  [14:18:18.799]         {
  [14:18:18.799]             {
  [14:18:18.799]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:18.799]             }
  [14:18:18.799]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:18.799]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:18.799]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:18.799]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:18.799]             {
  [14:18:18.799]                 if (substitute) 
  [14:18:18.799]                   expr <- substitute(expr)
  [14:18:18.799]                 if (is.function(workers)) 
  [14:18:18.799]                   workers <- workers()
  [14:18:18.799]                 workers <- as.integer(workers)
  [14:18:18.799]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:18.799]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:18.799]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:18.799]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:18.799]                     local = TRUE, label = label, ...))
  [14:18:18.799]                 }
  [14:18:18.799]                 oopts <- options(mc.cores = workers)
  [14:18:18.799]                 on.exit(options(oopts))
  [14:18:18.799]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:18.799]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:18.799]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:18.799]                   label = label, ...)
  [14:18:18.799]                 if (!future$lazy) 
  [14:18:18.799]                   future <- run(future)
  [14:18:18.799]                 invisible(future)
  [14:18:18.799]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:18.799]         }
  [14:18:18.799]         base::options(...future.oldOptions)
  [14:18:18.799]     })
  [14:18:18.799]     Sys.time
  [14:18:18.799]     if (base::is.na(TRUE)) {
  [14:18:18.799]     }
  [14:18:18.799]     else {
  [14:18:18.799]         base::sink(type = "output", split = FALSE)
  [14:18:18.799]         if (TRUE) {
  [14:18:18.799]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:18.799]         }
  [14:18:18.799]         else {
  [14:18:18.799]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:18.799]         }
  [14:18:18.799]         base::close(...future.stdout)
  [14:18:18.799]         ...future.stdout <- NULL
  [14:18:18.799]     }
  [14:18:18.799]     ...future.result$conditions <- ...future.conditions
  [14:18:18.799]     ...future.result
  [14:18:18.799] }
  [14:18:19.217]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:18:18.822] requestCore(): workers = 2
  [14:18:19.218]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:18:18.826] MulticoreFuture started
  [14:18:19.218]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:18:18.828] Chunk #2 of 2 ... DONE
  [14:18:19.219]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:18:18.829] Launching 2 futures (chunks) ... DONE
  [14:18:19.219]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:18:18.830] - resolving futures
  [14:18:19.223]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:18:18.831]   - gathering results & relaying conditions (except errors)
  [14:18:19.224]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:18:18.832] resolve() on list ...
  [14:18:19.224]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:18:18.832]  recursive: 0
  [14:18:19.225]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:18:18.833]  length: 2
  [14:18:19.225]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:18:18.834] 
  [14:18:19.226]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:18:18.839] Future #1
  [14:18:19.226]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:18:18.843] signalConditions() ...
  [14:18:19.243]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:18:18.843]  - include = 'immediateCondition'
  [14:18:19.243]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:18:18.844]  - exclude = 
  [14:18:19.244]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:18:18.845]  - resignal = FALSE
  [14:18:19.244]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:18:18.845]  - Number of conditions: 1
  [14:18:19.245]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:18:18.846] signalConditions() ... done
  [14:18:19.245]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:18:18.847] signalConditions() ...
  [14:18:19.246]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:18:18.847]  - include = 'immediateCondition'
  [14:18:19.247]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:18:18.848]  - exclude = 
  [14:18:19.247]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:18:18.849]  - resignal = FALSE
  [14:18:19.248]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:18:18.849]  - Number of conditions: 1
  [14:18:19.248]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:18:18.850] signalConditions() ... done
  [14:18:19.249]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:18:18.851] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:18:19.249]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:18:18.851] - nx: 2
  [14:18:19.250]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:18:18.852] - relay: TRUE
  [14:18:19.250]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:18:18.853] - stdout: TRUE
  [14:18:19.250]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:18:18.853] - signal: TRUE
  [14:18:19.251]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:18:18.854] - resignal: FALSE
  [14:18:19.251]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:18:18.854] - force: FALSE
  [14:18:19.252]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:18:18.855] - relayed: [n=2] FALSE, FALSE
  [14:18:19.252]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:18:18.856] - queued futures: [n=2] FALSE, FALSE
  [14:18:19.253]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:18:18.856]  - until=1
  [14:18:19.253]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:18:18.857]  - relaying element #1
  [14:18:19.254]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:18:18.858] signalConditions() ...
  [14:18:19.254]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:18:18.858]  - include = 'immediateCondition'
  [14:18:19.255]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:18:18.859]  - exclude = 
  [14:18:19.255]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:18:18.859]  - resignal = FALSE
  [14:18:19.256]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:18:18.860]  - Number of conditions: 1
  [14:18:19.256]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:18:18.867] signalConditions() ... done
  [14:18:19.257]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:18:18.868] signalConditions() ...
  [14:18:19.257]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:18:18.870]  - include = 'immediateCondition'
  [14:18:19.258]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:18:18.871]  - exclude = 
  [14:18:19.258]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:18:18.871]  - resignal = FALSE
  [14:18:19.259]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:18:18.873]  - Number of conditions: 1
  [14:18:19.259]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:18:18.874] signalConditions() ... done
  [14:18:19.260]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:18:18.875] signalConditions() ...
  [14:18:19.260]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:18:18.876]  - include = 'condition'
  [14:18:19.260]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:18:18.877]  - exclude = 'immediateCondition'
  [14:18:19.261]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:18:18.878]  - resignal = FALSE
  [14:18:19.261]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:18:18.879]  - Number of conditions: 1
  [14:18:19.262]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:18:18.879]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:19.262]  - Condition #334: '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
  [14:18:19.263]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:18:18.881] signalConditions() ... done
  [14:18:19.263]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:18:18.882] - relayed: [n=2] TRUE, FALSE
  [14:18:19.264]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:18:18.883] - queued futures: [n=2] TRUE, FALSE
  [14:18:19.264]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:18:18.884] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:18:19.265]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:18:18.884]  length: 1 (resolved future 1)
  [14:18:19.265]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:18:18.885] Future #2
  [14:18:19.266]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:18:18.888] signalConditions() ...
  [14:18:19.266]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:18:18.889]  - include = 'immediateCondition'
  [14:18:19.267]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:18:18.889]  - exclude = 
  [14:18:19.267]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:18:18.890]  - resignal = FALSE
  [14:18:19.268]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:18:18.890]  - Number of conditions: 2
  [14:18:19.268]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:18:18.891] signalConditions() ... done
  [14:18:19.269]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:18:18.892] signalConditions() ...
  [14:18:19.269]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:18:18.892]  - include = 'immediateCondition'
  [14:18:19.270]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:18:18.893]  - exclude = 
  [14:18:19.270]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:18:18.893]  - resignal = FALSE
  [14:18:19.271]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:18:18.894]  - Number of conditions: 2
  [14:18:19.271]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:18:18.895] signalConditions() ... done
  [14:18:19.271]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:18:18.895] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:18:19.272]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:18:18.896] - nx: 2
  [14:18:19.272]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:18:18.896] - relay: TRUE
  [14:18:19.273]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:18:18.897] - stdout: TRUE
  [14:18:19.273]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:18:18.897] - signal: TRUE
  [14:18:19.274]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:18:18.898] - resignal: FALSE
  [14:18:19.274]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:18:18.898] - force: FALSE
  [14:18:19.275]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:18:18.899] - relayed: [n=2] TRUE, FALSE
  [14:18:19.275]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:18:18.899] - queued futures: [n=2] TRUE, FALSE
  [14:18:19.276]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:18:18.900]  - until=2
  [14:18:19.276]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:18:18.901]  - relaying element #2
  [14:18:19.277]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:18:18.901] signalConditions() ...
  [14:18:19.277]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:18:18.902]  - include = 'immediateCondition'
  [14:18:19.278]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:18:18.902]  - exclude = 
  [14:18:19.278]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:18:18.903]  - resignal = FALSE
  [14:18:19.279]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:18:18.903]  - Number of conditions: 2
  [14:18:19.279]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:18:18.904] signalConditions() ... done
  [14:18:19.280]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:18:18.905] signalConditions() ...
  [14:18:19.280]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:18:18.905]  - include = 'immediateCondition'
  [14:18:19.281]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:18:18.906]  - exclude = 
  [14:18:19.281]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:18:18.906]  - resignal = FALSE
  [14:18:19.282]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:18:18.907]  - Number of conditions: 2
  [14:18:19.282]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:18:18.908] signalConditions() ... done
  [14:18:19.282]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:18:18.908] signalConditions() ...
  [14:18:19.283]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:18:18.909]  - include = 'condition'
  [14:18:19.283]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:18:18.909]  - exclude = 'immediateCondition'
  [14:18:19.284]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:18:18.910]  - resignal = FALSE
  [14:18:19.284]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:18:18.910]  - Number of conditions: 2
  [14:18:19.285]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:18:18.911]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:19.285]  - Condition #382: '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
  [14:18:19.286]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:18:18.912]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:19.286]  - Condition #384: '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
  [14:18:19.287]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:18:18.912] signalConditions() ... done
  [14:18:19.287]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:18:18.913] - relayed: [n=2] TRUE, TRUE
  [14:18:19.288]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:18:18.913] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.288]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:18:18.914] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:18:19.289]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:18:18.915]  length: 0 (resolved future 2)
  [14:18:19.289]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:18:18.915] Relaying remaining futures
  [14:18:19.290]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:18:18.916] signalConditionsASAP(NULL, pos=0) ...
  [14:18:19.290]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:18:18.916] - nx: 2
  [14:18:19.291]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:18:18.917] - relay: TRUE
  [14:18:19.291]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:18:18.917] - stdout: TRUE
  [14:18:19.292]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:18:18.918] - signal: TRUE
  [14:18:19.292]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:18:18.918] - resignal: FALSE
  [14:18:19.292]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:18:18.919] - force: FALSE
  [14:18:19.293]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:18:18.919] - relayed: [n=2] TRUE, TRUE
  [14:18:19.293]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:18:18.920] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.294]  - Condition #400: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:19.294]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:18:18.921] - relayed: [n=2] TRUE, TRUE
  [14:18:19.295]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:18:18.921] - queued futures: [n=2] TRUE, TRUE
  [14:18:19.295]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:18:18.922] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:19.296]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:18:18.922] resolve() on list ... DONE
  [14:18:19.296]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:18:18.923] - collecting values of futures
  [14:18:19.297]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:18:18.924] signalConditions() ...
  [14:18:19.297]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:18:18.924]  - include = 'immediateCondition'
  [14:18:19.298]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:18:18.925]  - exclude = 
  [14:18:19.298]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:18:18.925]  - resignal = FALSE
  [14:18:19.299]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:18:18.926]  - Number of conditions: 1
  [14:18:19.299]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:18:18.926] signalConditions() ... done
  [14:18:19.300]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:18:18.927] signalConditions() ...
  [14:18:19.300]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:18:18.928]  - include = 'immediateCondition'
  [14:18:19.301]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:18:18.928]  - exclude = 
  [14:18:19.301]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:18:18.929]  - resignal = FALSE
  [14:18:19.302]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:18:18.929]  - Number of conditions: 2
  [14:18:19.302]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:18:18.930] signalConditions() ... done
  [14:18:19.303]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:18:18.931] - accumulating results
  [14:18:19.303]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:18:18.932] - processing errors (handler = 'stop')
  [14:18:19.303]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:18:18.933] - extracting results
  [14:18:19.304]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:18:18.933] doFuture() ... DONE
  [14:18:19.304]  - Condition #422: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:19.305] signalConditions() ... done
  [14:18:19.306] - relayed: [n=1] TRUE
  [14:18:19.306] - queued futures: [n=1] TRUE
  [14:18:19.306] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:19.307]  length: 0 (resolved future 1)
  [14:18:19.307] Relaying remaining futures
  [14:18:19.307] signalConditionsASAP(NULL, pos=0) ...
  [14:18:19.308] - nx: 1
  [14:18:19.308] - relay: TRUE
  [14:18:19.308] - stdout: TRUE
  [14:18:19.308] - signal: TRUE
  [14:18:19.309] - resignal: FALSE
  [14:18:19.309] - force: FALSE
  [14:18:19.309] - relayed: [n=1] TRUE
  [14:18:19.310] - queued futures: [n=1] TRUE
   - flush all
  [14:18:19.314] - relayed: [n=1] TRUE
  [14:18:19.314] - queued futures: [n=1] TRUE
  [14:18:19.314] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:19.315] resolve() on list ... DONE
  [14:18:19.315] - collecting values of futures
  [14:18:19.315] signalConditions() ...
  [14:18:19.316]  - include = 'immediateCondition'
  [14:18:19.316]  - exclude = 
  [14:18:19.316]  - resignal = FALSE
  [14:18:19.317]  - Number of conditions: 422
  [14:18:19.318] signalConditions() ... done
  [14:18:19.318] - accumulating results
  [14:18:19.320] - processing errors (handler = 'stop')
  [14:18:19.320] - extracting results
  [14:18:19.320] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [14:18:19.322] plan(): Setting new future strategy stack:
  [14:18:19.323] List of future strategies:
  [14:18:19.323] 1. sequential:
  [14:18:19.323]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:19.323]    - tweaked: FALSE
  [14:18:19.323]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:19.323] 2. multisession:
  [14:18:19.323]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:19.323]    - tweaked: FALSE
  [14:18:19.323]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:19.324] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:18:19.325] doFuture() ...
  [14:18:19.326] - dummy globals (as locals): [1] 'a'
  [14:18:19.328] - R expression:
  [14:18:19.328] {
  [14:18:19.328]     doFuture::registerDoFuture()
  [14:18:19.328]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:19.328]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:19.328]         a <- NULL
  [14:18:19.328]         ...future.env <- environment()
  [14:18:19.328]         local({
  [14:18:19.328]             for (name in names(...future.x_jj)) {
  [14:18:19.328]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:19.328]                   inherits = FALSE)
  [14:18:19.328]             }
  [14:18:19.328]         })
  [14:18:19.328]         tryCatch({
  [14:18:19.328]             plan_list <- future::plan("next")
  [14:18:19.328]             stopifnot(inherits(plan_list, strategy2))
  [14:18:19.328]             plan_a <- future::plan("list")
  [14:18:19.328]             str(plan_a)
  [14:18:19.328]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:19.328]             message("foreach() - level 2 ...")
  [14:18:19.328]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:19.328]                 {
  [14:18:19.328]                   plan_list <- future::plan("next")
  [14:18:19.328]                   message(capture.output(print(plan_list)))
  [14:18:19.328]                   stopifnot(inherits(plan_list, "future"))
  [14:18:19.328]                   default <- getOption("future.plan", "sequential")
  [14:18:19.328]                   if (is.function(default)) 
  [14:18:19.328]                     default <- class(default)
  [14:18:19.328]                   stopifnot(inherits(plan_list, default))
  [14:18:19.328]                   plan_b <- future::plan("list")
  [14:18:19.328]                   str(plan_b)
  [14:18:19.328]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:19.328]                     inherits(plan_b[[1]], default))
  [14:18:19.328]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:19.328]                 }
  [14:18:19.328]             message("foreach() - level 2 ... DONE")
  [14:18:19.328]             y
  [14:18:19.328]         }, error = identity)
  [14:18:19.328]     })
  [14:18:19.328] }
  [14:18:19.329] - identifying globals and packages ...
  [14:18:19.330] getGlobalsAndPackages() ...
  [14:18:19.330] Searching for globals...
  [14:18:19.369] - 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'
  [14:18:19.370] Searching for globals ... DONE
  [14:18:19.370] Resolving globals: FALSE
  [14:18:19.378] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:19.379] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:19.379] - packages: [2] 'utils', 'foreach'
  [14:18:19.380] getGlobalsAndPackages() ... DONE
  [14:18:19.380] List of 3
  [14:18:19.380]  $ ...future.x_ii: NULL
  [14:18:19.380]  $ strategy2     : chr "multisession"
  [14:18:19.380]  $ bs            : int [1:3] 3 2 1
  [14:18:19.380]  - attr(*, "where")=List of 3
  [14:18:19.380]   ..$ ...future.x_ii:<environment: 0x562633b6a3e8> 
  [14:18:19.380]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:19.380]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:19.380]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:19.380]  - attr(*, "resolved")= logi FALSE
  [14:18:19.380]  - attr(*, "total_size")= num 184
  [14:18:19.392]   - R expression:
  [14:18:19.392] {
  [14:18:19.392]     doFuture::registerDoFuture()
  [14:18:19.392]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:19.392]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:19.392]         a <- NULL
  [14:18:19.392]         ...future.env <- environment()
  [14:18:19.392]         local({
  [14:18:19.392]             for (name in names(...future.x_jj)) {
  [14:18:19.392]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:19.392]                   inherits = FALSE)
  [14:18:19.392]             }
  [14:18:19.392]         })
  [14:18:19.392]         tryCatch({
  [14:18:19.392]             plan_list <- future::plan("next")
  [14:18:19.392]             stopifnot(inherits(plan_list, strategy2))
  [14:18:19.392]             plan_a <- future::plan("list")
  [14:18:19.392]             str(plan_a)
  [14:18:19.392]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:19.392]             message("foreach() - level 2 ...")
  [14:18:19.392]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:19.392]                 {
  [14:18:19.392]                   plan_list <- future::plan("next")
  [14:18:19.392]                   message(capture.output(print(plan_list)))
  [14:18:19.392]                   stopifnot(inherits(plan_list, "future"))
  [14:18:19.392]                   default <- getOption("future.plan", "sequential")
  [14:18:19.392]                   if (is.function(default)) 
  [14:18:19.392]                     default <- class(default)
  [14:18:19.392]                   stopifnot(inherits(plan_list, default))
  [14:18:19.392]                   plan_b <- future::plan("list")
  [14:18:19.392]                   str(plan_b)
  [14:18:19.392]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:19.392]                     inherits(plan_b[[1]], default))
  [14:18:19.392]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:19.392]                 }
  [14:18:19.392]             message("foreach() - level 2 ... DONE")
  [14:18:19.392]             y
  [14:18:19.392]         }, error = identity)
  [14:18:19.392]     })
  [14:18:19.392] }
  [14:18:19.393]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:19.394] List of 3
  [14:18:19.394]  $ ...future.x_ii: NULL
  [14:18:19.394]  $ strategy2     : chr "multisession"
  [14:18:19.394]  $ bs            : int [1:3] 3 2 1
  [14:18:19.394]  - attr(*, "where")=List of 3
  [14:18:19.394]   ..$ ...future.x_ii:<environment: 0x562633b6a3e8> 
  [14:18:19.394]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:19.394]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:19.394]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:19.394]  - attr(*, "resolved")= logi FALSE
  [14:18:19.394]  - attr(*, "total_size")= num 184
  [14:18:19.405]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:19.405] - identifying globals and packages ... DONE
  [14:18:19.405] Number of chunks: 1
  [14:18:19.406] Number of futures (= number of chunks): 1
  [14:18:19.407] Launching 1 futures (chunks) ...
  [14:18:19.407] Chunk #1 of 1 ...
  [14:18:19.407]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:19.408] getGlobalsAndPackages() ...
  [14:18:19.408] Searching for globals...
  [14:18:19.409] 
  [14:18:19.409] Searching for globals ... DONE
  [14:18:19.409] - globals: [0] <none>
  [14:18:19.410] getGlobalsAndPackages() ... DONE
  [14:18:19.410] 
  [14:18:19.410] 
  [14:18:19.411]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:19.411] getGlobalsAndPackages() ...
  [14:18:19.411] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:19.412] Resolving globals: FALSE
  [14:18:19.413] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:18:19.414] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:19.414] 
  [14:18:19.414] getGlobalsAndPackages() ... DONE
  [14:18:19.417] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:19.417] Packages needed by future strategies (n = 1): 'future'
  [14:18:19.423] {
  [14:18:19.423]     {
  [14:18:19.423]         ...future.startTime <- base::Sys.time()
  [14:18:19.423]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:19.423]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:19.423]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:19.423]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:19.423]             future.resolve.recursive = NULL, width = 80L)
  [14:18:19.423]         {
  [14:18:19.423]             {
  [14:18:19.423]                 {
  [14:18:19.423]                   has_future <- base::requireNamespace("future", 
  [14:18:19.423]                     quietly = TRUE)
  [14:18:19.423]                   version <- if (has_future) 
  [14:18:19.423]                     utils::packageVersion("future")
  [14:18:19.423]                   else NULL
  [14:18:19.423]                   if (!has_future || version < "1.8.0") {
  [14:18:19.423]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:19.423]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:19.423]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:19.423]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:19.423]                         "release", "version")], collapse = " "), 
  [14:18:19.423]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:19.423]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:19.423]                       info)
  [14:18:19.423]                     info <- base::paste(info, collapse = "; ")
  [14:18:19.423]                     if (!has_future) {
  [14:18:19.423]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:19.423]                         info)
  [14:18:19.423]                     }
  [14:18:19.423]                     else {
  [14:18:19.423]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:19.423]                         info, version)
  [14:18:19.423]                     }
  [14:18:19.423]                     base::stop(msg)
  [14:18:19.423]                   }
  [14:18:19.423]                 }
  [14:18:19.423]                 base::local({
  [14:18:19.423]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:19.423]                   "future")) {
  [14:18:19.423]                     base::loadNamespace(pkg)
  [14:18:19.423]                     base::library(pkg, character.only = TRUE)
  [14:18:19.423]                   }
  [14:18:19.423]                 })
  [14:18:19.423]             }
  [14:18:19.423]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:19.423]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:19.423]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:19.423]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:19.423]                 ...) 
  [14:18:19.423]             {
  [14:18:19.423]                 if (substitute) 
  [14:18:19.423]                   expr <- substitute(expr)
  [14:18:19.423]                 if (is.function(workers)) 
  [14:18:19.423]                   workers <- workers()
  [14:18:19.423]                 workers <- as.integer(workers)
  [14:18:19.423]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:19.423]                   workers >= 1)
  [14:18:19.423]                 if (workers == 1L) {
  [14:18:19.423]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:19.423]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:19.423]                     local = TRUE, label = label, ...))
  [14:18:19.423]                 }
  [14:18:19.423]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:19.423]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:19.423]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:19.423]                   globals = globals, persistent = persistent, 
  [14:18:19.423]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:19.423]                   label = label, ...)
  [14:18:19.423]                 if (!future$lazy) 
  [14:18:19.423]                   future <- run(future)
  [14:18:19.423]                 invisible(future)
  [14:18:19.423]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:19.423]         }
  [14:18:19.423]     }
  [14:18:19.423]     if (base::is.na(TRUE)) {
  [14:18:19.423]     }
  [14:18:19.423]     else {
  [14:18:19.423]         if (TRUE) {
  [14:18:19.423]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:19.423]                 open = "w")
  [14:18:19.423]         }
  [14:18:19.423]         else {
  [14:18:19.423]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:19.423]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:19.423]         }
  [14:18:19.423]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:19.423]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:19.423]             base::sink(type = "output", split = FALSE)
  [14:18:19.423]             base::close(...future.stdout)
  [14:18:19.423]         }, add = TRUE)
  [14:18:19.423]     }
  [14:18:19.423]     ...future.frame <- base::sys.nframe()
  [14:18:19.423]     ...future.conditions <- base::list()
  [14:18:19.423]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:19.423]     ...future.result <- base::tryCatch({
  [14:18:19.423]         base::withCallingHandlers({
  [14:18:19.423]             ...future.value <- base::withVisible(base::local({
  [14:18:19.423]                 doFuture::registerDoFuture()
  [14:18:19.423]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:19.423]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:19.423]                   a <- NULL
  [14:18:19.423]                   ...future.env <- environment()
  [14:18:19.423]                   local({
  [14:18:19.423]                     for (name in names(...future.x_jj)) {
  [14:18:19.423]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:19.423]                         inherits = FALSE)
  [14:18:19.423]                     }
  [14:18:19.423]                   })
  [14:18:19.423]                   tryCatch({
  [14:18:19.423]                     plan_list <- future::plan("next")
  [14:18:19.423]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:19.423]                     plan_a <- future::plan("list")
  [14:18:19.423]                     str(plan_a)
  [14:18:19.423]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:19.423]                     message("foreach() - level 2 ...")
  [14:18:19.423]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:19.423]                       {
  [14:18:19.423]                         plan_list <- future::plan("next")
  [14:18:19.423]                         message(capture.output(print(plan_list)))
  [14:18:19.423]                         stopifnot(inherits(plan_list, "future"))
  [14:18:19.423]                         default <- getOption("future.plan", "sequential")
  [14:18:19.423]                         if (is.function(default)) 
  [14:18:19.423]                           default <- class(default)
  [14:18:19.423]                         stopifnot(inherits(plan_list, default))
  [14:18:19.423]                         plan_b <- future::plan("list")
  [14:18:19.423]                         str(plan_b)
  [14:18:19.423]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:19.423]                           inherits(plan_b[[1]], default))
  [14:18:19.423]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:19.423]                       }
  [14:18:19.423]                     message("foreach() - level 2 ... DONE")
  [14:18:19.423]                     y
  [14:18:19.423]                   }, error = identity)
  [14:18:19.423]                 })
  [14:18:19.423]             }))
  [14:18:19.423]             future::FutureResult(value = ...future.value$value, 
  [14:18:19.423]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:19.423]                   ...future.rng), started = ...future.startTime, 
  [14:18:19.423]                 version = "1.8")
  [14:18:19.423]         }, condition = base::local({
  [14:18:19.423]             c <- base::c
  [14:18:19.423]             inherits <- base::inherits
  [14:18:19.423]             invokeRestart <- base::invokeRestart
  [14:18:19.423]             length <- base::length
  [14:18:19.423]             list <- base::list
  [14:18:19.423]             seq.int <- base::seq.int
  [14:18:19.423]             signalCondition <- base::signalCondition
  [14:18:19.423]             sys.calls <- base::sys.calls
  [14:18:19.423]             Sys.time <- base::Sys.time
  [14:18:19.423]             `[[` <- base::`[[`
  [14:18:19.423]             `+` <- base::`+`
  [14:18:19.423]             `<<-` <- base::`<<-`
  [14:18:19.423]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:19.423]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:19.423]                   3L)]
  [14:18:19.423]             }
  [14:18:19.423]             function(cond) {
  [14:18:19.423]                 if (inherits(cond, "error")) {
  [14:18:19.423]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:19.423]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:19.423]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:19.423]                   signalCondition(cond)
  [14:18:19.423]                 }
  [14:18:19.423]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:19.423]                 ))) {
  [14:18:19.423]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:19.423]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:19.423]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:19.423]                   if (!signal) {
  [14:18:19.423]                     muffleCondition <- function (cond) 
  [14:18:19.423]                     {
  [14:18:19.423]                       inherits <- base::inherits
  [14:18:19.423]                       invokeRestart <- base::invokeRestart
  [14:18:19.423]                       muffled <- FALSE
  [14:18:19.423]                       if (inherits(cond, "message")) {
  [14:18:19.423]                         invokeRestart("muffleMessage")
  [14:18:19.423]                         muffled <- TRUE
  [14:18:19.423]                       }
  [14:18:19.423]                       else if (inherits(cond, "warning")) {
  [14:18:19.423]                         invokeRestart("muffleWarning")
  [14:18:19.423]                         muffled <- TRUE
  [14:18:19.423]                       }
  [14:18:19.423]                       else if (inherits(cond, "condition")) {
  [14:18:19.423]                         computeRestarts <- base::computeRestarts
  [14:18:19.423]                         grepl <- base::grepl
  [14:18:19.423]                         is.null <- base::is.null
  [14:18:19.423]                         restarts <- computeRestarts(cond)
  [14:18:19.423]                         for (restart in restarts) {
  [14:18:19.423]                           name <- restart$name
  [14:18:19.423]                           if (is.null(name)) 
  [14:18:19.423]                             next
  [14:18:19.423]                           if (!grepl("^muffle", name)) 
  [14:18:19.423]                             next
  [14:18:19.423]                           invokeRestart(restart)
  [14:18:19.423]                           muffled <- TRUE
  [14:18:19.423]                           break
  [14:18:19.423]                         }
  [14:18:19.423]                       }
  [14:18:19.423]                       invisible(muffled)
  [14:18:19.423]                     }
  [14:18:19.423]                     muffleCondition(cond)
  [14:18:19.423]                   }
  [14:18:19.423]                 }
  [14:18:19.423]             }
  [14:18:19.423]         }))
  [14:18:19.423]     }, error = function(ex) {
  [14:18:19.423]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:19.423]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:19.423]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:19.423]     }, finally = {
  [14:18:19.423]         {
  [14:18:19.423]             NULL
  [14:18:19.423]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:19.423]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:19.423]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:19.423]                 label = NULL, ...) 
  [14:18:19.423]             {
  [14:18:19.423]                 if (substitute) 
  [14:18:19.423]                   expr <- substitute(expr)
  [14:18:19.423]                 local <- as.logical(local)
  [14:18:19.423]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:19.423]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:19.423]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:19.423]                   label = label, ...)
  [14:18:19.423]                 if (!future$lazy) 
  [14:18:19.423]                   future <- run(future)
  [14:18:19.423]                 invisible(future)
  [14:18:19.423]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:19.423]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:18:19.423]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:18:19.423]                 label = NULL, ...) 
  [14:18:19.423]             {
  [14:18:19.423]                 if (substitute) 
  [14:18:19.423]                   expr <- substitute(expr)
  [14:18:19.423]                 if (is.function(workers)) 
  [14:18:19.423]                   workers <- workers()
  [14:18:19.423]                 workers <- as.integer(workers)
  [14:18:19.423]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:19.423]                   workers >= 1)
  [14:18:19.423]                 if (workers == 1L) {
  [14:18:19.423]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:19.423]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:19.423]                     local = TRUE, label = label, ...))
  [14:18:19.423]                 }
  [14:18:19.423]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:19.423]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:19.423]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:19.423]                   globals = globals, persistent = persistent, 
  [14:18:19.423]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:19.423]                   label = label, ...)
  [14:18:19.423]                 if (!future$lazy) 
  [14:18:19.423]                   future <- run(future)
  [14:18:19.423]                 invisible(future)
  [14:18:19.423]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:19.423]         }
  [14:18:19.423]         base::options(...future.oldOptions)
  [14:18:19.423]     })
  [14:18:19.423]     Sys.time
  [14:18:19.423]     if (base::is.na(TRUE)) {
  [14:18:19.423]     }
  [14:18:19.423]     else {
  [14:18:19.423]         base::sink(type = "output", split = FALSE)
  [14:18:19.423]         if (TRUE) {
  [14:18:19.423]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:19.423]         }
  [14:18:19.423]         else {
  [14:18:19.423]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:19.423]         }
  [14:18:19.423]         base::close(...future.stdout)
  [14:18:19.423]         ...future.stdout <- NULL
  [14:18:19.423]     }
  [14:18:19.423]     ...future.result$conditions <- ...future.conditions
  [14:18:19.423]     ...future.result
  [14:18:19.423] }
  [14:18:19.431] plan(): Setting new future strategy stack:
  [14:18:19.432] List of future strategies:
  [14:18:19.432] 1. multisession:
  [14:18:19.432]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:19.432]    - tweaked: FALSE
  [14:18:19.432]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:19.434] plan(): nbrOfWorkers() = 2
  [14:18:23.829] plan(): Setting new future strategy stack:
  [14:18:23.829] List of future strategies:
  [14:18:23.829] 1. sequential:
  [14:18:23.829]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:23.829]    - tweaked: FALSE
  [14:18:23.829]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:23.829] 2. multisession:
  [14:18:23.829]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:23.829]    - tweaked: FALSE
  [14:18:23.829]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:23.831] plan(): nbrOfWorkers() = 1
  [14:18:23.832] SequentialFuture started (and completed)
  [14:18:23.832] signalConditions() ...
  [14:18:23.833]  - include = 'immediateCondition'
  [14:18:23.833]  - exclude = 
  [14:18:23.833]  - resignal = FALSE
  [14:18:23.834]  - Number of conditions: 605
  [14:18:23.836] signalConditions() ... done
  [14:18:23.836] Chunk #1 of 1 ... DONE
  [14:18:23.837] Launching 1 futures (chunks) ... DONE
  [14:18:23.837] - resolving futures
  [14:18:23.837]   - gathering results & relaying conditions (except errors)
  [14:18:23.838] resolve() on list ...
  [14:18:23.838]  recursive: 0
  [14:18:23.838]  length: 1
  [14:18:23.838] 
  [14:18:23.839] Future #1
  [14:18:23.839] signalConditions() ...
  [14:18:23.839]  - include = 'immediateCondition'
  [14:18:23.840]  - exclude = 
  [14:18:23.840]  - resignal = FALSE
  [14:18:23.840]  - Number of conditions: 605
  [14:18:23.843] signalConditions() ... done
  [14:18:23.843] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:23.843] - nx: 1
  [14:18:23.844] - relay: TRUE
  [14:18:23.844] - stdout: TRUE
  [14:18:23.844] - signal: TRUE
  [14:18:23.844] - resignal: FALSE
  [14:18:23.845] - force: FALSE
  [14:18:23.845] - relayed: [n=1] FALSE
  [14:18:23.845] - queued futures: [n=1] FALSE
  [14:18:23.846]  - until=1
  [14:18:23.846]  - relaying element #1
  [14:18:23.847] signalConditions() ...
  [14:18:23.847]  - include = 'immediateCondition'
  [14:18:23.847]  - exclude = 
  [14:18:23.847]  - resignal = FALSE
  [14:18:23.848]  - Number of conditions: 605
  [14:18:23.850] 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"
  [14:18:23.851] signalConditions() ...
  [14:18:23.851]  - include = 'immediateCondition'
  [14:18:23.851]  - exclude = 
  [14:18:23.852]  - resignal = FALSE
  [14:18:23.852]  - Number of conditions: 605
  [14:18:23.854] signalConditions() ... done
  [14:18:23.854] signalConditions() ...
  [14:18:23.855]  - include = 'condition'
  [14:18:23.855]  - exclude = 'immediateCondition'
  [14:18:23.855]  - resignal = FALSE
  [14:18:23.856]  - Number of conditions: 605
  [14:18:23.856]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:23.856]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:19.445] doFuture() ...
  [14:18:23.857]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:19.447] - dummy globals (as locals): [1] 'b'
  [14:18:23.857]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:19.449] - R expression:
  [14:18:23.858]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:19.449] {
  [14:18:19.449]     doFuture::registerDoFuture()
  [14:18:19.449]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:19.449]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:19.449]         b <- NULL
  [14:18:19.449]         ...future.env <- environment()
  [14:18:19.449]         local({
  [14:18:19.449]             for (name in names(...future.x_jj)) {
  [14:18:19.449]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:19.449]                   inherits = FALSE)
  [14:18:19.449]             }
  [14:18:19.449]         })
  [14:18:19.449]         tryCatch({
  [14:18:19.449]             plan_list <- future::plan("next")
  [14:18:19.449]             message(capture.output(print(plan_list)))
  [14:18:19.449]             stopifnot(inherits(plan_list, "future"))
  [14:18:19.449]             default <- getOption("future.plan", "sequential")
  [14:18:19.449]             if (is.function(default)) 
  [14:18:19.449]                 default <- class(default)
  [14:18:19.449]             stopifnot(inherits(plan_list, default))
  [14:18:19.449]             plan_b <- future::plan("list")
  [14:18:19.449]             str(plan_b)
  [14:18:19.449]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:19.449]                 default))
  [14:18:19.449]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:19.449]         }, error = identity)
  [14:18:19.449]     })
  [14:18:19.449] }
  [14:18:23.858]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:19.451] - identifying globals and packages ...
  [14:18:23.859]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:19.451] getGlobalsAndPackages() ...
  [14:18:23.859]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:19.452] Searching for globals...
  [14:18:23.860]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:19.482] - 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'
  [14:18:23.860]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:19.483] Searching for globals ... DONE
  [14:18:23.860]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:19.483] Resolving globals: FALSE
  [14:18:23.861]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:19.486] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:18:23.867]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:19.487] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.867]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:19.488] - packages: [1] 'utils'
  [14:18:23.868]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:19.488] getGlobalsAndPackages() ... DONE
  [14:18:23.868]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:19.489] List of 3
  [14:18:19.489]  $ ...future.x_ii: NULL
  [14:18:19.489]  $ a             : int 1
  [14:18:19.489]  $ plan_a        :List of 1
  [14:18:19.489]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:19.489]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:19.489]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:19.489]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:19.489]   .. ..- attr(*, "init")= logi TRUE
  [14:18:19.489]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:19.489]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:19.489]  - attr(*, "where")=List of 3
  [14:18:19.489]   ..$ ...future.x_ii:<environment: 0x562633688bc8> 
  [14:18:19.489]   ..$ a             :<environment: 0x5626357ec760> 
  [14:18:19.489]   ..$ plan_a        :<environment: 0x5626357ec760> 
  [14:18:19.489]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:19.489]  - attr(*, "resolved")= logi FALSE
  [14:18:19.489]  - attr(*, "total_size")= num 83544
  [14:18:23.869]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:19.526]   - R expression:
  [14:18:23.869]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:19.543] {
  [14:18:19.543]     doFuture::registerDoFuture()
  [14:18:19.543]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:19.543]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:19.543]         b <- NULL
  [14:18:19.543]         ...future.env <- environment()
  [14:18:19.543]         local({
  [14:18:19.543]             for (name in names(...future.x_jj)) {
  [14:18:19.543]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:19.543]                   inherits = FALSE)
  [14:18:19.543]             }
  [14:18:19.543]         })
  [14:18:19.543]         tryCatch({
  [14:18:19.543]             plan_list <- future::plan("next")
  [14:18:19.543]             message(capture.output(print(plan_list)))
  [14:18:19.543]             stopifnot(inherits(plan_list, "future"))
  [14:18:19.543]             default <- getOption("future.plan", "sequential")
  [14:18:19.543]             if (is.function(default)) 
  [14:18:19.543]                 default <- class(default)
  [14:18:19.543]             stopifnot(inherits(plan_list, default))
  [14:18:19.543]             plan_b <- future::plan("list")
  [14:18:19.543]             str(plan_b)
  [14:18:19.543]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:19.543]                 default))
  [14:18:19.543]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:19.543]         }, error = identity)
  [14:18:19.543]     })
  [14:18:19.543] }
  [14:18:23.870]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:19.544]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.870]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:19.545] List of 3
  [14:18:19.545]  $ ...future.x_ii: NULL
  [14:18:19.545]  $ a             : int 1
  [14:18:19.545]  $ plan_a        :List of 1
  [14:18:19.545]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:19.545]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:19.545]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:19.545]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:19.545]   .. ..- attr(*, "init")= logi TRUE
  [14:18:19.545]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:19.545]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:19.545]  - attr(*, "where")=List of 3
  [14:18:19.545]   ..$ ...future.x_ii:<environment: 0x562633688bc8> 
  [14:18:19.545]   ..$ a             :<environment: 0x5626357ec760> 
  [14:18:19.545]   ..$ plan_a        :<environment: 0x5626357ec760> 
  [14:18:19.545]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:19.545]  - attr(*, "resolved")= logi FALSE
  [14:18:19.545]  - attr(*, "total_size")= num 83544
  [14:18:23.871]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:19.578]   - packages: [2] 'doFuture', 'utils'
  [14:18:23.871]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:19.579] - identifying globals and packages ... DONE
  [14:18:23.872]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:19.580] Number of chunks: 2
  [14:18:23.872]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:19.581] Number of futures (= number of chunks): 2
  [14:18:23.873]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:19.582] Launching 2 futures (chunks) ...
  [14:18:23.873]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:19.582] Chunk #1 of 2 ...
  [14:18:23.874]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:19.583]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:23.874]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:19.583] getGlobalsAndPackages() ...
  [14:18:23.874]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:19.584] Searching for globals...
  [14:18:23.875]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:19.585] 
  [14:18:23.875]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:19.585] Searching for globals ... DONE
  [14:18:23.876]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:19.586] - globals: [0] <none>
  [14:18:23.876]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:19.586] getGlobalsAndPackages() ... DONE
  [14:18:23.877]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:19.587] 
  [14:18:23.877]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:19.587] 
  [14:18:23.878]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:19.588]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:23.878]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:18:23.879]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 24012
  [14:18:23.879]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [14:18:23.880]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:18:23.880]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.67576c5bff6b.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpM3F4lz/future.parent=26455.67576c5bff6b.pid')"'
  [14:18:23.881]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:18:23.881]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26455:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.67576c5bff6b.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24012 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:18:23.881]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:18:23.882]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [14:18:23.882]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [14:18:23.883]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:18:23.883]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [14:18:23.884]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [14:18:23.884]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:18:23.884]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.6757f9de1c9.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpM3F4lz/future.parent=26455.6757f9de1c9.pid')"'
  [14:18:23.885]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:18:23.885]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26455:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.6757f9de1c9.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24012 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:18:23.886]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:18:23.886]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [14:18:23.887]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [14:18:23.887]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:18:23.888]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [14:18:23.888]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:22.443] getGlobalsAndPackages() ...
  [14:18:23.889]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:22.443] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.889]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:22.444] Resolving globals: FALSE
  [14:18:23.889]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:22.446] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [14:18:23.890]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:22.447] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.890]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:22.447] 
  [14:18:23.891]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:22.448] getGlobalsAndPackages() ... DONE
  [14:18:23.891]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:22.462] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:23.892]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:22.462] Packages needed by future strategies (n = 0): <none>
  [14:18:23.892]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:22.469] {
  [14:18:22.469]     {
  [14:18:22.469]         ...future.startTime <- base::Sys.time()
  [14:18:22.469]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:22.469]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:22.469]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:22.469]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:22.469]             future.resolve.recursive = NULL, width = 80L)
  [14:18:22.469]         {
  [14:18:22.469]             {
  [14:18:22.469]                 {
  [14:18:22.469]                   {
  [14:18:22.469]                     has_future <- base::requireNamespace("future", 
  [14:18:22.469]                       quietly = TRUE)
  [14:18:22.469]                     version <- if (has_future) 
  [14:18:22.469]                       utils::packageVersion("future")
  [14:18:22.469]                     else NULL
  [14:18:22.469]                     if (!has_future || version < "1.8.0") {
  [14:18:22.469]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:22.469]                         "", base::R.version$version.string), 
  [14:18:22.469]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:22.469]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:22.469]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:22.469]                           "release", "version")], collapse = " "), 
  [14:18:22.469]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:22.469]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:22.469]                         info)
  [14:18:22.469]                       info <- base::paste(info, collapse = "; ")
  [14:18:22.469]                       if (!has_future) {
  [14:18:22.469]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:22.469]                           info)
  [14:18:22.469]                       }
  [14:18:22.469]                       else {
  [14:18:22.469]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:22.469]                           info, version)
  [14:18:22.469]                       }
  [14:18:22.469]                       base::stop(msg)
  [14:18:22.469]                     }
  [14:18:22.469]                   }
  [14:18:22.469]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:22.469]                   base::options(mc.cores = 1L)
  [14:18:22.469]                 }
  [14:18:22.469]                 base::local({
  [14:18:22.469]                   for (pkg in c("doFuture", "utils")) {
  [14:18:22.469]                     base::loadNamespace(pkg)
  [14:18:22.469]                     base::library(pkg, character.only = TRUE)
  [14:18:22.469]                   }
  [14:18:22.469]                 })
  [14:18:22.469]             }
  [14:18:22.469]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:22.469]         }
  [14:18:22.469]     }
  [14:18:22.469]     if (base::is.na(TRUE)) {
  [14:18:22.469]     }
  [14:18:22.469]     else {
  [14:18:22.469]         if (TRUE) {
  [14:18:22.469]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:22.469]                 open = "w")
  [14:18:22.469]         }
  [14:18:22.469]         else {
  [14:18:22.469]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:22.469]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:22.469]         }
  [14:18:22.469]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:22.469]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:22.469]             base::sink(type = "output", split = FALSE)
  [14:18:22.469]             base::close(...future.stdout)
  [14:18:22.469]         }, add = TRUE)
  [14:18:22.469]     }
  [14:18:22.469]     ...future.frame <- base::sys.nframe()
  [14:18:22.469]     ...future.conditions <- base::list()
  [14:18:22.469]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:22.469]     ...future.result <- base::tryCatch({
  [14:18:22.469]         base::withCallingHandlers({
  [14:18:22.469]             ...future.value <- base::withVisible(base::local({
  [14:18:22.469]                 ...future.sendCondition <- local({
  [14:18:22.469]                   sendCondition <- NULL
  [14:18:22.469]                   function(frame = 1L) {
  [14:18:22.469]                     if (is.function(sendCondition)) 
  [14:18:22.469]                       return(sendCondition)
  [14:18:22.469]                     ns <- getNamespace("parallel")
  [14:18:22.469]                     if (exists("sendData", mode = "function", 
  [14:18:22.469]                       envir = ns)) {
  [14:18:22.469]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:22.469]                         envir = ns)
  [14:18:22.469]                       envir <- sys.frame(frame)
  [14:18:22.469]                       master <- NULL
  [14:18:22.469]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:22.469]                         !identical(envir, emptyenv())) {
  [14:18:22.469]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:22.469]                           inherits = FALSE)) {
  [14:18:22.469]                           master <- get("master", mode = "list", 
  [14:18:22.469]                             envir = envir, inherits = FALSE)
  [14:18:22.469]                           if (inherits(master, "SOCKnode")) {
  [14:18:22.469]                             sendCondition <<- function(cond) {
  [14:18:22.469]                               data <- list(type = "VALUE", value = cond, 
  [14:18:22.469]                                 success = TRUE)
  [14:18:22.469]                               parallel_sendData(master, data)
  [14:18:22.469]                             }
  [14:18:22.469]                             return(sendCondition)
  [14:18:22.469]                           }
  [14:18:22.469]                         }
  [14:18:22.469]                         frame <- frame + 1L
  [14:18:22.469]                         envir <- sys.frame(frame)
  [14:18:22.469]                       }
  [14:18:22.469]                     }
  [14:18:22.469]                     sendCondition <<- function(cond) NULL
  [14:18:22.469]                   }
  [14:18:22.469]                 })
  [14:18:22.469]                 withCallingHandlers({
  [14:18:22.469]                   {
  [14:18:22.469]                     doFuture::registerDoFuture()
  [14:18:22.469]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:22.469]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:22.469]                       b <- NULL
  [14:18:22.469]                       ...future.env <- environment()
  [14:18:22.469]                       local({
  [14:18:22.469]                         for (name in names(...future.x_jj)) {
  [14:18:22.469]                           assign(name, ...future.x_jj[[name]], 
  [14:18:22.469]                             envir = ...future.env, inherits = FALSE)
  [14:18:22.469]                         }
  [14:18:22.469]                       })
  [14:18:22.469]                       tryCatch({
  [14:18:22.469]                         plan_list <- future::plan("next")
  [14:18:22.469]                         message(capture.output(print(plan_list)))
  [14:18:22.469]                         stopifnot(inherits(plan_list, "future"))
  [14:18:22.469]                         default <- getOption("future.plan", "sequential")
  [14:18:22.469]                         if (is.function(default)) 
  [14:18:22.469]                           default <- class(default)
  [14:18:22.469]                         stopifnot(inherits(plan_list, default))
  [14:18:22.469]                         plan_b <- future::plan("list")
  [14:18:22.469]                         str(plan_b)
  [14:18:22.469]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:22.469]                           inherits(plan_b[[1]], default))
  [14:18:22.469]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:22.469]                       }, error = identity)
  [14:18:22.469]                     })
  [14:18:22.469]                   }
  [14:18:22.469]                 }, immediateCondition = function(cond) {
  [14:18:22.469]                   sendCondition <- ...future.sendCondition()
  [14:18:22.469]                   sendCondition(cond)
  [14:18:22.469]                   muffleCondition <- function (cond) 
  [14:18:22.469]                   {
  [14:18:22.469]                     inherits <- base::inherits
  [14:18:22.469]                     invokeRestart <- base::invokeRestart
  [14:18:22.469]                     muffled <- FALSE
  [14:18:22.469]                     if (inherits(cond, "message")) {
  [14:18:22.469]                       invokeRestart("muffleMessage")
  [14:18:22.469]                       muffled <- TRUE
  [14:18:22.469]                     }
  [14:18:22.469]                     else if (inherits(cond, "warning")) {
  [14:18:22.469]                       invokeRestart("muffleWarning")
  [14:18:22.469]                       muffled <- TRUE
  [14:18:22.469]                     }
  [14:18:22.469]                     else if (inherits(cond, "condition")) {
  [14:18:22.469]                       computeRestarts <- base::computeRestarts
  [14:18:22.469]                       grepl <- base::grepl
  [14:18:22.469]                       is.null <- base::is.null
  [14:18:22.469]                       restarts <- computeRestarts(cond)
  [14:18:22.469]                       for (restart in restarts) {
  [14:18:22.469]                         name <- restart$name
  [14:18:22.469]                         if (is.null(name)) 
  [14:18:22.469]                           next
  [14:18:22.469]                         if (!grepl("^muffle", name)) 
  [14:18:22.469]                           next
  [14:18:22.469]                         invokeRestart(restart)
  [14:18:22.469]                         muffled <- TRUE
  [14:18:22.469]                         break
  [14:18:22.469]                       }
  [14:18:22.469]                     }
  [14:18:22.469]                     invisible(muffled)
  [14:18:22.469]                   }
  [14:18:22.469]                   muffleCondition(cond)
  [14:18:22.469]                 })
  [14:18:22.469]             }))
  [14:18:22.469]             future::FutureResult(value = ...future.value$value, 
  [14:18:22.469]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:22.469]                   ...future.rng), started = ...future.startTime, 
  [14:18:22.469]                 version = "1.8")
  [14:18:22.469]         }, condition = base::local({
  [14:18:22.469]             c <- base::c
  [14:18:22.469]             inherits <- base::inherits
  [14:18:22.469]             invokeRestart <- base::invokeRestart
  [14:18:22.469]             length <- base::length
  [14:18:22.469]             list <- base::list
  [14:18:22.469]             seq.int <- base::seq.int
  [14:18:22.469]             signalCondition <- base::signalCondition
  [14:18:22.469]             sys.calls <- base::sys.calls
  [14:18:22.469]             Sys.time <- base::Sys.time
  [14:18:22.469]             `[[` <- base::`[[`
  [14:18:22.469]             `+` <- base::`+`
  [14:18:22.469]             `<<-` <- base::`<<-`
  [14:18:22.469]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:22.469]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:22.469]                   3L)]
  [14:18:22.469]             }
  [14:18:22.469]             function(cond) {
  [14:18:22.469]                 if (inherits(cond, "error")) {
  [14:18:22.469]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:22.469]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:22.469]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:22.469]                   signalCondition(cond)
  [14:18:22.469]                 }
  [14:18:22.469]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:22.469]                 ))) {
  [14:18:22.469]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:22.469]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:22.469]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:22.469]                   if (!signal) {
  [14:18:22.469]                     muffleCondition <- function (cond) 
  [14:18:22.469]                     {
  [14:18:22.469]                       inherits <- base::inherits
  [14:18:22.469]                       invokeRestart <- base::invokeRestart
  [14:18:22.469]                       muffled <- FALSE
  [14:18:22.469]                       if (inherits(cond, "message")) {
  [14:18:22.469]                         invokeRestart("muffleMessage")
  [14:18:22.469]                         muffled <- TRUE
  [14:18:22.469]                       }
  [14:18:22.469]                       else if (inherits(cond, "warning")) {
  [14:18:22.469]                         invokeRestart("muffleWarning")
  [14:18:22.469]                         muffled <- TRUE
  [14:18:22.469]                       }
  [14:18:22.469]                       else if (inherits(cond, "condition")) {
  [14:18:22.469]                         computeRestarts <- base::computeRestarts
  [14:18:22.469]                         grepl <- base::grepl
  [14:18:22.469]                         is.null <- base::is.null
  [14:18:22.469]                         restarts <- computeRestarts(cond)
  [14:18:22.469]                         for (restart in restarts) {
  [14:18:22.469]                           name <- restart$name
  [14:18:22.469]                           if (is.null(name)) 
  [14:18:22.469]                             next
  [14:18:22.469]                           if (!grepl("^muffle", name)) 
  [14:18:22.469]                             next
  [14:18:22.469]                           invokeRestart(restart)
  [14:18:22.469]                           muffled <- TRUE
  [14:18:22.469]                           break
  [14:18:22.469]                         }
  [14:18:22.469]                       }
  [14:18:22.469]                       invisible(muffled)
  [14:18:22.469]                     }
  [14:18:22.469]                     muffleCondition(cond)
  [14:18:22.469]                   }
  [14:18:22.469]                 }
  [14:18:22.469]             }
  [14:18:22.469]         }))
  [14:18:22.469]     }, error = function(ex) {
  [14:18:22.469]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:22.469]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:22.469]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:22.469]     }, finally = {
  [14:18:22.469]         {
  [14:18:22.469]             {
  [14:18:22.469]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:22.469]             }
  [14:18:22.469]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:22.469]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:22.469]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:22.469]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:22.469]                 ...) 
  [14:18:22.469]             {
  [14:18:22.469]                 if (substitute) 
  [14:18:22.469]                   expr <- substitute(expr)
  [14:18:22.469]                 if (is.function(workers)) 
  [14:18:22.469]                   workers <- workers()
  [14:18:22.469]                 workers <- as.integer(workers)
  [14:18:22.469]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:22.469]                   workers >= 1)
  [14:18:22.469]                 if (workers == 1L) {
  [14:18:22.469]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:22.469]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:22.469]                     local = TRUE, label = label, ...))
  [14:18:22.469]                 }
  [14:18:22.469]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:22.469]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:22.469]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:22.469]                   globals = globals, persistent = persistent, 
  [14:18:22.469]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:22.469]                   label = label, ...)
  [14:18:22.469]                 if (!future$lazy) 
  [14:18:22.469]                   future <- run(future)
  [14:18:22.469]                 invisible(future)
  [14:18:22.469]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:22.469]         }
  [14:18:22.469]         base::options(...future.oldOptions)
  [14:18:22.469]     })
  [14:18:22.469]     Sys.time
  [14:18:22.469]     if (base::is.na(TRUE)) {
  [14:18:22.469]     }
  [14:18:22.469]     else {
  [14:18:22.469]         base::sink(type = "output", split = FALSE)
  [14:18:22.469]         if (TRUE) {
  [14:18:22.469]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:22.469]         }
  [14:18:22.469]         else {
  [14:18:22.469]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:22.469]         }
  [14:18:22.469]         base::close(...future.stdout)
  [14:18:22.469]         ...future.stdout <- NULL
  [14:18:22.469]     }
  [14:18:22.469]     ...future.result$conditions <- ...future.conditions
  [14:18:22.469]     ...future.result
  [14:18:22.469] }
  [14:18:23.892]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:22.478] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [14:18:23.893]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:22.479] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:18:23.893]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:22.480] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:18:23.894]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:22.481] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:18:23.894]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:22.482] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:18:23.895]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:22.483] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [14:18:23.895]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:22.527] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [14:18:23.895]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:22.528] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [14:18:23.896]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:22.529] MultisessionFuture started
  [14:18:23.896]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:22.530] Chunk #1 of 2 ... DONE
  [14:18:23.897]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:22.531] Chunk #2 of 2 ...
  [14:18:23.897]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:22.531]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:23.897]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:22.532] getGlobalsAndPackages() ...
  [14:18:23.898]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:22.532] Searching for globals...
  [14:18:23.898]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:22.533] 
  [14:18:23.899]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:22.534] Searching for globals ... DONE
  [14:18:23.899]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:22.535] - globals: [0] <none>
  [14:18:23.900]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:22.535] getGlobalsAndPackages() ... DONE
  [14:18:23.900]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:22.536] 
  [14:18:23.900]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:22.537] 
  [14:18:23.901]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:22.537]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:23.901]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:22.539] getGlobalsAndPackages() ...
  [14:18:23.902]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:22.539] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.902]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:22.540] Resolving globals: FALSE
  [14:18:23.903]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:22.542] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [14:18:23.903]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:22.543] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:23.903]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:22.543] 
  [14:18:23.904]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:22.544] getGlobalsAndPackages() ... DONE
  [14:18:23.904]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:22.549] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:23.905]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:22.549] Packages needed by future strategies (n = 0): <none>
  [14:18:23.905]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:22.558] {
  [14:18:22.558]     {
  [14:18:22.558]         ...future.startTime <- base::Sys.time()
  [14:18:22.558]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:22.558]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:22.558]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:22.558]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:22.558]             future.resolve.recursive = NULL, width = 80L)
  [14:18:22.558]         {
  [14:18:22.558]             {
  [14:18:22.558]                 {
  [14:18:22.558]                   {
  [14:18:22.558]                     has_future <- base::requireNamespace("future", 
  [14:18:22.558]                       quietly = TRUE)
  [14:18:22.558]                     version <- if (has_future) 
  [14:18:22.558]                       utils::packageVersion("future")
  [14:18:22.558]                     else NULL
  [14:18:22.558]                     if (!has_future || version < "1.8.0") {
  [14:18:22.558]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:22.558]                         "", base::R.version$version.string), 
  [14:18:22.558]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:22.558]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:22.558]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:22.558]                           "release", "version")], collapse = " "), 
  [14:18:22.558]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:22.558]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:22.558]                         info)
  [14:18:22.558]                       info <- base::paste(info, collapse = "; ")
  [14:18:22.558]                       if (!has_future) {
  [14:18:22.558]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:22.558]                           info)
  [14:18:22.558]                       }
  [14:18:22.558]                       else {
  [14:18:22.558]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:22.558]                           info, version)
  [14:18:22.558]                       }
  [14:18:22.558]                       base::stop(msg)
  [14:18:22.558]                     }
  [14:18:22.558]                   }
  [14:18:22.558]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:22.558]                   base::options(mc.cores = 1L)
  [14:18:22.558]                 }
  [14:18:22.558]                 base::local({
  [14:18:22.558]                   for (pkg in c("doFuture", "utils")) {
  [14:18:22.558]                     base::loadNamespace(pkg)
  [14:18:22.558]                     base::library(pkg, character.only = TRUE)
  [14:18:22.558]                   }
  [14:18:22.558]                 })
  [14:18:22.558]             }
  [14:18:22.558]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:22.558]         }
  [14:18:22.558]     }
  [14:18:22.558]     if (base::is.na(TRUE)) {
  [14:18:22.558]     }
  [14:18:22.558]     else {
  [14:18:22.558]         if (TRUE) {
  [14:18:22.558]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:22.558]                 open = "w")
  [14:18:22.558]         }
  [14:18:22.558]         else {
  [14:18:22.558]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:22.558]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:22.558]         }
  [14:18:22.558]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:22.558]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:22.558]             base::sink(type = "output", split = FALSE)
  [14:18:22.558]             base::close(...future.stdout)
  [14:18:22.558]         }, add = TRUE)
  [14:18:22.558]     }
  [14:18:22.558]     ...future.frame <- base::sys.nframe()
  [14:18:22.558]     ...future.conditions <- base::list()
  [14:18:22.558]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:22.558]     ...future.result <- base::tryCatch({
  [14:18:22.558]         base::withCallingHandlers({
  [14:18:22.558]             ...future.value <- base::withVisible(base::local({
  [14:18:22.558]                 ...future.sendCondition <- local({
  [14:18:22.558]                   sendCondition <- NULL
  [14:18:22.558]                   function(frame = 1L) {
  [14:18:22.558]                     if (is.function(sendCondition)) 
  [14:18:22.558]                       return(sendCondition)
  [14:18:22.558]                     ns <- getNamespace("parallel")
  [14:18:22.558]                     if (exists("sendData", mode = "function", 
  [14:18:22.558]                       envir = ns)) {
  [14:18:22.558]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:22.558]                         envir = ns)
  [14:18:22.558]                       envir <- sys.frame(frame)
  [14:18:22.558]                       master <- NULL
  [14:18:22.558]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:22.558]                         !identical(envir, emptyenv())) {
  [14:18:22.558]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:22.558]                           inherits = FALSE)) {
  [14:18:22.558]                           master <- get("master", mode = "list", 
  [14:18:22.558]                             envir = envir, inherits = FALSE)
  [14:18:22.558]                           if (inherits(master, "SOCKnode")) {
  [14:18:22.558]                             sendCondition <<- function(cond) {
  [14:18:22.558]                               data <- list(type = "VALUE", value = cond, 
  [14:18:22.558]                                 success = TRUE)
  [14:18:22.558]                               parallel_sendData(master, data)
  [14:18:22.558]                             }
  [14:18:22.558]                             return(sendCondition)
  [14:18:22.558]                           }
  [14:18:22.558]                         }
  [14:18:22.558]                         frame <- frame + 1L
  [14:18:22.558]                         envir <- sys.frame(frame)
  [14:18:22.558]                       }
  [14:18:22.558]                     }
  [14:18:22.558]                     sendCondition <<- function(cond) NULL
  [14:18:22.558]                   }
  [14:18:22.558]                 })
  [14:18:22.558]                 withCallingHandlers({
  [14:18:22.558]                   {
  [14:18:22.558]                     doFuture::registerDoFuture()
  [14:18:22.558]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:22.558]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:22.558]                       b <- NULL
  [14:18:22.558]                       ...future.env <- environment()
  [14:18:22.558]                       local({
  [14:18:22.558]                         for (name in names(...future.x_jj)) {
  [14:18:22.558]                           assign(name, ...future.x_jj[[name]], 
  [14:18:22.558]                             envir = ...future.env, inherits = FALSE)
  [14:18:22.558]                         }
  [14:18:22.558]                       })
  [14:18:22.558]                       tryCatch({
  [14:18:22.558]                         plan_list <- future::plan("next")
  [14:18:22.558]                         message(capture.output(print(plan_list)))
  [14:18:22.558]                         stopifnot(inherits(plan_list, "future"))
  [14:18:22.558]                         default <- getOption("future.plan", "sequential")
  [14:18:22.558]                         if (is.function(default)) 
  [14:18:22.558]                           default <- class(default)
  [14:18:22.558]                         stopifnot(inherits(plan_list, default))
  [14:18:22.558]                         plan_b <- future::plan("list")
  [14:18:22.558]                         str(plan_b)
  [14:18:22.558]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:22.558]                           inherits(plan_b[[1]], default))
  [14:18:22.558]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:22.558]                       }, error = identity)
  [14:18:22.558]                     })
  [14:18:22.558]                   }
  [14:18:22.558]                 }, immediateCondition = function(cond) {
  [14:18:22.558]                   sendCondition <- ...future.sendCondition()
  [14:18:22.558]                   sendCondition(cond)
  [14:18:22.558]                   muffleCondition <- function (cond) 
  [14:18:22.558]                   {
  [14:18:22.558]                     inherits <- base::inherits
  [14:18:22.558]                     invokeRestart <- base::invokeRestart
  [14:18:22.558]                     muffled <- FALSE
  [14:18:22.558]                     if (inherits(cond, "message")) {
  [14:18:22.558]                       invokeRestart("muffleMessage")
  [14:18:22.558]                       muffled <- TRUE
  [14:18:22.558]                     }
  [14:18:22.558]                     else if (inherits(cond, "warning")) {
  [14:18:22.558]                       invokeRestart("muffleWarning")
  [14:18:22.558]                       muffled <- TRUE
  [14:18:22.558]                     }
  [14:18:22.558]                     else if (inherits(cond, "condition")) {
  [14:18:22.558]                       computeRestarts <- base::computeRestarts
  [14:18:22.558]                       grepl <- base::grepl
  [14:18:22.558]                       is.null <- base::is.null
  [14:18:22.558]                       restarts <- computeRestarts(cond)
  [14:18:22.558]                       for (restart in restarts) {
  [14:18:22.558]                         name <- restart$name
  [14:18:22.558]                         if (is.null(name)) 
  [14:18:22.558]                           next
  [14:18:22.558]                         if (!grepl("^muffle", name)) 
  [14:18:22.558]                           next
  [14:18:22.558]                         invokeRestart(restart)
  [14:18:22.558]                         muffled <- TRUE
  [14:18:22.558]                         break
  [14:18:22.558]                       }
  [14:18:22.558]                     }
  [14:18:22.558]                     invisible(muffled)
  [14:18:22.558]                   }
  [14:18:22.558]                   muffleCondition(cond)
  [14:18:22.558]                 })
  [14:18:22.558]             }))
  [14:18:22.558]             future::FutureResult(value = ...future.value$value, 
  [14:18:22.558]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:22.558]                   ...future.rng), started = ...future.startTime, 
  [14:18:22.558]                 version = "1.8")
  [14:18:22.558]         }, condition = base::local({
  [14:18:22.558]             c <- base::c
  [14:18:22.558]             inherits <- base::inherits
  [14:18:22.558]             invokeRestart <- base::invokeRestart
  [14:18:22.558]             length <- base::length
  [14:18:22.558]             list <- base::list
  [14:18:22.558]             seq.int <- base::seq.int
  [14:18:22.558]             signalCondition <- base::signalCondition
  [14:18:22.558]             sys.calls <- base::sys.calls
  [14:18:22.558]             Sys.time <- base::Sys.time
  [14:18:22.558]             `[[` <- base::`[[`
  [14:18:22.558]             `+` <- base::`+`
  [14:18:22.558]             `<<-` <- base::`<<-`
  [14:18:22.558]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:22.558]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:22.558]                   3L)]
  [14:18:22.558]             }
  [14:18:22.558]             function(cond) {
  [14:18:22.558]                 if (inherits(cond, "error")) {
  [14:18:22.558]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:22.558]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:22.558]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:22.558]                   signalCondition(cond)
  [14:18:22.558]                 }
  [14:18:22.558]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:22.558]                 ))) {
  [14:18:22.558]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:22.558]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:22.558]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:22.558]                   if (!signal) {
  [14:18:22.558]                     muffleCondition <- function (cond) 
  [14:18:22.558]                     {
  [14:18:22.558]                       inherits <- base::inherits
  [14:18:22.558]                       invokeRestart <- base::invokeRestart
  [14:18:22.558]                       muffled <- FALSE
  [14:18:22.558]                       if (inherits(cond, "message")) {
  [14:18:22.558]                         invokeRestart("muffleMessage")
  [14:18:22.558]                         muffled <- TRUE
  [14:18:22.558]                       }
  [14:18:22.558]                       else if (inherits(cond, "warning")) {
  [14:18:22.558]                         invokeRestart("muffleWarning")
  [14:18:22.558]                         muffled <- TRUE
  [14:18:22.558]                       }
  [14:18:22.558]                       else if (inherits(cond, "condition")) {
  [14:18:22.558]                         computeRestarts <- base::computeRestarts
  [14:18:22.558]                         grepl <- base::grepl
  [14:18:22.558]                         is.null <- base::is.null
  [14:18:22.558]                         restarts <- computeRestarts(cond)
  [14:18:22.558]                         for (restart in restarts) {
  [14:18:22.558]                           name <- restart$name
  [14:18:22.558]                           if (is.null(name)) 
  [14:18:22.558]                             next
  [14:18:22.558]                           if (!grepl("^muffle", name)) 
  [14:18:22.558]                             next
  [14:18:22.558]                           invokeRestart(restart)
  [14:18:22.558]                           muffled <- TRUE
  [14:18:22.558]                           break
  [14:18:22.558]                         }
  [14:18:22.558]                       }
  [14:18:22.558]                       invisible(muffled)
  [14:18:22.558]                     }
  [14:18:22.558]                     muffleCondition(cond)
  [14:18:22.558]                   }
  [14:18:22.558]                 }
  [14:18:22.558]             }
  [14:18:22.558]         }))
  [14:18:22.558]     }, error = function(ex) {
  [14:18:22.558]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:22.558]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:22.558]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:22.558]     }, finally = {
  [14:18:22.558]         {
  [14:18:22.558]             {
  [14:18:22.558]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:22.558]             }
  [14:18:22.558]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:22.558]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:22.558]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:22.558]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:22.558]                 ...) 
  [14:18:22.558]             {
  [14:18:22.558]                 if (substitute) 
  [14:18:22.558]                   expr <- substitute(expr)
  [14:18:22.558]                 if (is.function(workers)) 
  [14:18:22.558]                   workers <- workers()
  [14:18:22.558]                 workers <- as.integer(workers)
  [14:18:22.558]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:22.558]                   workers >= 1)
  [14:18:22.558]                 if (workers == 1L) {
  [14:18:22.558]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:22.558]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:22.558]                     local = TRUE, label = label, ...))
  [14:18:22.558]                 }
  [14:18:22.558]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:22.558]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:22.558]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:22.558]                   globals = globals, persistent = persistent, 
  [14:18:22.558]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:22.558]                   label = label, ...)
  [14:18:22.558]                 if (!future$lazy) 
  [14:18:22.558]                   future <- run(future)
  [14:18:22.558]                 invisible(future)
  [14:18:22.558]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:22.558]         }
  [14:18:22.558]         base::options(...future.oldOptions)
  [14:18:22.558]     })
  [14:18:22.558]     Sys.time
  [14:18:22.558]     if (base::is.na(TRUE)) {
  [14:18:22.558]     }
  [14:18:22.558]     else {
  [14:18:22.558]         base::sink(type = "output", split = FALSE)
  [14:18:22.558]         if (TRUE) {
  [14:18:22.558]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:22.558]         }
  [14:18:22.558]         else {
  [14:18:22.558]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:22.558]         }
  [14:18:22.558]         base::close(...future.stdout)
  [14:18:22.558]         ...future.stdout <- NULL
  [14:18:22.558]     }
  [14:18:22.558]     ...future.result$conditions <- ...future.conditions
  [14:18:22.558]     ...future.result
  [14:18:22.558] }
  [14:18:23.906]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:22.566] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [14:18:23.906]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:22.567] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:18:23.906]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:22.568] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:18:23.907]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:22.569] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:18:23.907]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:18:22.570] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:18:23.908]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:22.587] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [14:18:23.908]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:18:22.631] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [14:18:23.909]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:22.632] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [14:18:23.909]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:18:22.633] MultisessionFuture started
  [14:18:23.909]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:22.634] Chunk #2 of 2 ... DONE
  [14:18:23.910]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:22.634] Launching 2 futures (chunks) ... DONE
  [14:18:23.910]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:22.635] - resolving futures
  [14:18:23.912]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:22.635]   - gathering results & relaying conditions (except errors)
  [14:18:23.912]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:22.636] resolve() on list ...
  [14:18:23.913]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:22.636]  recursive: 0
  [14:18:23.913]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:22.637]  length: 2
  [14:18:23.914]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:22.637] 
  [14:18:23.914]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:22.947] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:23.915]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:22.947] - Validating connection of MultisessionFuture
  [14:18:23.915]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:22.987] - received message: FutureResult
  [14:18:23.915]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:22.988] - Received FutureResult
  [14:18:23.916]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:22.988] - Erased future from FutureRegistry
  [14:18:23.916]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:22.989] result() for ClusterFuture ...
  [14:18:23.917]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:22.990] - result already collected: FutureResult
  [14:18:23.917]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:18:22.990] result() for ClusterFuture ... done
  [14:18:23.918]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:22.991] signalConditions() ...
  [14:18:23.918]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:22.991]  - include = 'immediateCondition'
  [14:18:23.918]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:22.992]  - exclude = 
  [14:18:23.919]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:22.993]  - resignal = FALSE
  [14:18:23.919]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:22.993]  - Number of conditions: 2
  [14:18:23.920]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:22.994] signalConditions() ... done
  [14:18:23.920]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:22.994] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:23.921]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:22.995] Future #2
  [14:18:23.921]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:22.995] result() for ClusterFuture ...
  [14:18:23.921]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:22.996] - result already collected: FutureResult
  [14:18:23.922]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:22.996] result() for ClusterFuture ... done
  [14:18:23.922]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:22.997] result() for ClusterFuture ...
  [14:18:23.923]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:22.997] - result already collected: FutureResult
  [14:18:23.923]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:22.998] result() for ClusterFuture ... done
  [14:18:23.923]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:22.998] signalConditions() ...
  [14:18:23.924]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:18:22.999]  - include = 'immediateCondition'
  [14:18:23.924]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:18:23.000]  - exclude = 
  [14:18:23.925]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:18:23.000]  - resignal = FALSE
  [14:18:23.930]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:18:23.001]  - Number of conditions: 2
  [14:18:23.931]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:18:23.001] signalConditions() ... done
  [14:18:23.931]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:18:23.002] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:18:23.932]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:18:23.002] - nx: 2
  [14:18:23.932]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:18:23.003] - relay: TRUE
  [14:18:23.933]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:18:23.003] - stdout: TRUE
  [14:18:23.934]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:18:23.004] - signal: TRUE
  [14:18:23.934]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:18:23.004] - resignal: FALSE
  [14:18:23.935]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:18:23.005] - force: FALSE
  [14:18:23.935]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:18:23.005] - relayed: [n=2] FALSE, FALSE
  [14:18:23.936]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:18:23.006] - queued futures: [n=2] FALSE, FALSE
  [14:18:23.936]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:18:23.006]  - until=1
  [14:18:23.937]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:18:23.007]  - relaying element #1
  [14:18:23.937]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:18:23.007] - relayed: [n=2] FALSE, FALSE
  [14:18:23.938]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:18:23.008] - queued futures: [n=2] FALSE, TRUE
  [14:18:23.938]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:18:23.008] signalConditionsASAP(NULL, pos=2) ... done
  [14:18:23.939]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:18:23.009]  length: 1 (resolved future 2)
  [14:18:23.939]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:18:23.111] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:23.940]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:18:23.112] - Validating connection of MultisessionFuture
  [14:18:23.940]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:18:23.113] - received message: FutureResult
  [14:18:23.941]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:18:23.113] - Received FutureResult
  [14:18:23.941]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:18:23.114] - Erased future from FutureRegistry
  [14:18:23.942]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:18:23.114] result() for ClusterFuture ...
  [14:18:23.943]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:18:23.115] - result already collected: FutureResult
  [14:18:23.943]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:18:23.116] result() for ClusterFuture ... done
  [14:18:23.944]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:18:23.116] signalConditions() ...
  [14:18:23.944]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:18:23.117]  - include = 'immediateCondition'
  [14:18:23.945]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:18:23.117]  - exclude = 
  [14:18:23.945]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:18:23.118]  - resignal = FALSE
  [14:18:23.945]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:18:23.118]  - Number of conditions: 1
  [14:18:23.946]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:18:23.119] signalConditions() ... done
  [14:18:23.946]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:18:23.119] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:23.947]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:18:23.120] Future #1
  [14:18:23.947]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:18:23.120] result() for ClusterFuture ...
  [14:18:23.948]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:18:23.121] - result already collected: FutureResult
  [14:18:23.948]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:18:23.122] result() for ClusterFuture ... done
  [14:18:23.949]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:18:23.122] result() for ClusterFuture ...
  [14:18:23.949]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:18:23.135] - result already collected: FutureResult
  [14:18:23.950]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:18:23.136] result() for ClusterFuture ... done
  [14:18:23.950]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:18:23.137] signalConditions() ...
  [14:18:23.951]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:18:23.137]  - include = 'immediateCondition'
  [14:18:23.951]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:18:23.138]  - exclude = 
  [14:18:23.952]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:18:23.138]  - resignal = FALSE
  [14:18:23.952]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:18:23.139]  - Number of conditions: 1
  [14:18:23.953]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:18:23.139] signalConditions() ... done
  [14:18:23.953]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:18:23.140] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:18:23.954]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:18:23.140] - nx: 2
  [14:18:23.954]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:18:23.141] - relay: TRUE
  [14:18:23.955]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:18:23.141] - stdout: TRUE
  [14:18:23.955]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:18:23.142] - signal: TRUE
  [14:18:23.956]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:18:23.142] - resignal: FALSE
  [14:18:23.956]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:18:23.143] - force: FALSE
  [14:18:23.956]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:18:23.143] - relayed: [n=2] FALSE, FALSE
  [14:18:23.957]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:18:23.144] - queued futures: [n=2] FALSE, TRUE
  [14:18:23.957]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:18:23.145]  - until=1
  [14:18:23.958]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:18:23.145]  - relaying element #1
  [14:18:23.959]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:18:23.146] result() for ClusterFuture ...
  [14:18:23.959]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:18:23.146] - result already collected: FutureResult
  [14:18:23.960]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:18:23.147] result() for ClusterFuture ... done
  [14:18:23.960]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:18:23.147] result() for ClusterFuture ...
  [14:18:23.960]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:18:23.148] - result already collected: FutureResult
  [14:18:23.961]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:18:23.148] result() for ClusterFuture ... done
  [14:18:23.961]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:18:23.149] signalConditions() ...
  [14:18:23.962]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:18:23.149]  - include = 'immediateCondition'
  [14:18:23.962]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:18:23.150]  - exclude = 
  [14:18:23.963]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:18:23.157]  - resignal = FALSE
  [14:18:23.963]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:18:23.158]  - Number of conditions: 1
  [14:18:23.964]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:18:23.159] signalConditions() ... done
  [14:18:23.964]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:18:23.159] result() for ClusterFuture ...
  [14:18:23.965]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:18:23.160] - result already collected: FutureResult
  [14:18:23.965]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:18:23.160] result() for ClusterFuture ... done
  [14:18:23.966]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:18:23.161] signalConditions() ...
  [14:18:23.966]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:18:23.162]  - include = 'immediateCondition'
  [14:18:23.967]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:18:23.162]  - exclude = 
  [14:18:23.967]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:18:23.163]  - resignal = FALSE
  [14:18:23.968]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:18:23.163]  - Number of conditions: 1
  [14:18:23.968]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:18:23.164] signalConditions() ... done
  [14:18:23.969]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:18:23.164] result() for ClusterFuture ...
  [14:18:23.969]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:18:23.165] - result already collected: FutureResult
  [14:18:23.970]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:18:23.165] result() for ClusterFuture ... done
  [14:18:23.970]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:18:23.166] signalConditions() ...
  [14:18:23.971]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:18:23.166]  - include = 'condition'
  [14:18:23.971]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:18:23.167]  - exclude = 'immediateCondition'
  [14:18:23.972]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:18:23.167]  - resignal = FALSE
  [14:18:23.972]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:18:23.168]  - Number of conditions: 1
  [14:18:23.973]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:18:23.168]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:23.973]  - Condition #229: '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
  [14:18:23.974]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:18:23.169] signalConditions() ... done
  [14:18:23.974]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:18:23.170] - relayed: [n=2] TRUE, FALSE
  [14:18:23.975]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:18:23.176] - queued futures: [n=2] TRUE, TRUE
  [14:18:23.975]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:18:23.189] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:18:23.976]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:18:23.189]  length: 0 (resolved future 1)
  [14:18:23.976]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:18:23.190] Relaying remaining futures
  [14:18:23.977]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:18:23.190] signalConditionsASAP(NULL, pos=0) ...
  [14:18:23.977]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:18:23.191] - nx: 2
  [14:18:23.978]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:18:23.191] - relay: TRUE
  [14:18:23.978]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:18:23.191] - stdout: TRUE
  [14:18:23.979]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:18:23.196] - signal: TRUE
  [14:18:23.979]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:18:23.197] - resignal: FALSE
  [14:18:23.980]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:18:23.197] - force: FALSE
  [14:18:23.980]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:18:23.198] - relayed: [n=2] TRUE, FALSE
  [14:18:23.980]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:18:23.198] - queued futures: [n=2] TRUE, TRUE
  [14:18:23.981]  - Condition #245: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:23.981]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:18:23.199]  - relaying element #2
  [14:18:23.982]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:18:23.200] result() for ClusterFuture ...
  [14:18:23.982]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:18:23.200] - result already collected: FutureResult
  [14:18:23.983]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:18:23.201] result() for ClusterFuture ... done
  [14:18:23.983]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:18:23.201] result() for ClusterFuture ...
  [14:18:23.984]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:18:23.202] - result already collected: FutureResult
  [14:18:23.984]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:18:23.202] result() for ClusterFuture ... done
  [14:18:23.985]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:18:23.216] signalConditions() ...
  [14:18:23.985]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:18:23.217]  - include = 'immediateCondition'
  [14:18:23.986]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:18:23.217]  - exclude = 
  [14:18:23.986]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:18:23.218]  - resignal = FALSE
  [14:18:23.987]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:18:23.218]  - Number of conditions: 2
  [14:18:23.987]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:18:23.219] signalConditions() ... done
  [14:18:23.988]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:18:23.219] result() for ClusterFuture ...
  [14:18:23.988]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:18:23.220] - result already collected: FutureResult
  [14:18:23.989]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:18:23.221] result() for ClusterFuture ... done
  [14:18:23.989]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:18:23.221] signalConditions() ...
  [14:18:23.990]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:18:23.222]  - include = 'immediateCondition'
  [14:18:23.990]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:18:23.222]  - exclude = 
  [14:18:23.991]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:18:23.223]  - resignal = FALSE
  [14:18:23.991]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:18:23.223]  - Number of conditions: 2
  [14:18:23.992]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:18:23.224] signalConditions() ... done
  [14:18:23.992]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:18:23.224] result() for ClusterFuture ...
  [14:18:23.993]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:18:23.225] - result already collected: FutureResult
  [14:18:23.993]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:18:23.225] result() for ClusterFuture ... done
  [14:18:23.994]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:18:23.226] signalConditions() ...
  [14:18:23.994]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:18:23.226]  - include = 'condition'
  [14:18:24.000]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:18:23.227]  - exclude = 'immediateCondition'
  [14:18:24.000]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:18:23.227]  - resignal = FALSE
  [14:18:24.001]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:18:23.228]  - Number of conditions: 2
  [14:18:24.001]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:18:23.229]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:24.002]  - Condition #277: '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
  [14:18:24.002]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:18:23.229]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:24.003]  - Condition #279: '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
  [14:18:24.003]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:18:23.230] signalConditions() ... done
  [14:18:24.004]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:18:23.243] - relayed: [n=2] TRUE, TRUE
  [14:18:24.005]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:18:23.244] - queued futures: [n=2] TRUE, TRUE
  [14:18:24.005]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:18:23.244] signalConditionsASAP(MultisessionFuture, pos=0) ... done
  [14:18:24.006]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:18:23.245] resolve() on list ... DONE
  [14:18:24.006]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:18:23.245] - collecting values of futures
  [14:18:24.007]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:18:23.246] result() for ClusterFuture ...
  [14:18:24.007]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:18:23.246] - result already collected: FutureResult
  [14:18:24.008]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:18:23.247] result() for ClusterFuture ... done
  [14:18:24.008]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:18:23.247] result() for ClusterFuture ...
  [14:18:24.009]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:18:23.248] - result already collected: FutureResult
  [14:18:24.009]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:18:23.248] result() for ClusterFuture ... done
  [14:18:24.010]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:18:23.249] signalConditions() ...
  [14:18:24.010]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:18:23.249]  - include = 'immediateCondition'
  [14:18:24.011]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:18:23.250]  - exclude = 
  [14:18:24.011]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:18:23.250]  - resignal = FALSE
  [14:18:24.012]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:18:23.251]  - Number of conditions: 1
  [14:18:24.012]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:18:23.251] signalConditions() ... done
  [14:18:24.013]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:18:23.252] result() for ClusterFuture ...
  [14:18:24.013]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:18:23.252] - result already collected: FutureResult
  [14:18:24.014]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:18:23.253] result() for ClusterFuture ... done
  [14:18:24.014]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:18:23.253] result() for ClusterFuture ...
  [14:18:24.015]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:18:23.254] - result already collected: FutureResult
  [14:18:24.015]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:18:23.270] result() for ClusterFuture ... done
  [14:18:24.016]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:18:23.270] signalConditions() ...
  [14:18:24.016]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:18:23.271]  - include = 'immediateCondition'
  [14:18:24.017]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:18:23.271]  - exclude = 
  [14:18:24.017]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:18:23.272]  - resignal = FALSE
  [14:18:24.018]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:18:23.272]  - Number of conditions: 2
  [14:18:24.018]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:18:23.273] signalConditions() ... done
  [14:18:24.019]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:18:23.273] - accumulating results
  [14:18:24.019]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:18:23.274] - processing errors (handler = 'stop')
  [14:18:24.020]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:18:23.275] - extracting results
  [14:18:24.020]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:18:23.275] doFuture() ... DONE
  [14:18:24.021]  - Condition #314: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:24.021]  - Condition #315: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:24.022]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:18:23.288] doFuture() ...
  [14:18:24.022]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:18:23.299] - dummy globals (as locals): [1] 'b'
  [14:18:24.023]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:18:23.301] - R expression:
  [14:18:24.023]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:18:23.301] {
  [14:18:23.301]     doFuture::registerDoFuture()
  [14:18:23.301]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:23.301]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:23.301]         b <- NULL
  [14:18:23.301]         ...future.env <- environment()
  [14:18:23.301]         local({
  [14:18:23.301]             for (name in names(...future.x_jj)) {
  [14:18:23.301]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:23.301]                   inherits = FALSE)
  [14:18:23.301]             }
  [14:18:23.301]         })
  [14:18:23.301]         tryCatch({
  [14:18:23.301]             plan_list <- future::plan("next")
  [14:18:23.301]             message(capture.output(print(plan_list)))
  [14:18:23.301]             stopifnot(inherits(plan_list, "future"))
  [14:18:23.301]             default <- getOption("future.plan", "sequential")
  [14:18:23.301]             if (is.function(default)) 
  [14:18:23.301]                 default <- class(default)
  [14:18:23.301]             stopifnot(inherits(plan_list, default))
  [14:18:23.301]             plan_b <- future::plan("list")
  [14:18:23.301]             str(plan_b)
  [14:18:23.301]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:23.301]                 default))
  [14:18:23.301]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:23.301]         }, error = identity)
  [14:18:23.301]     })
  [14:18:23.301] }
  [14:18:24.024]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:18:23.302] - identifying globals and packages ...
  [14:18:24.024]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:18:23.303] getGlobalsAndPackages() ...
  [14:18:24.025]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:18:23.303] Searching for globals...
  [14:18:24.025]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:18:23.353] - 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'
  [14:18:24.026]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:18:23.354] Searching for globals ... DONE
  [14:18:24.026]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:18:23.354] Resolving globals: FALSE
  [14:18:24.027]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:18:23.358] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:18:24.027]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:18:23.358] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.028]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:18:23.359] - packages: [1] 'utils'
  [14:18:24.028]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:18:23.359] getGlobalsAndPackages() ... DONE
  [14:18:24.029]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:18:23.360] List of 3
  [14:18:23.360]  $ ...future.x_ii: NULL
  [14:18:23.360]  $ a             : int 2
  [14:18:23.360]  $ plan_a        :List of 1
  [14:18:23.360]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:23.360]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:23.360]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:23.360]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:23.360]   .. ..- attr(*, "init")= logi TRUE
  [14:18:23.360]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:23.360]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:23.360]  - attr(*, "where")=List of 3
  [14:18:23.360]   ..$ ...future.x_ii:<environment: 0x562635631dc8> 
  [14:18:23.360]   ..$ a             :<environment: 0x562633f57018> 
  [14:18:23.360]   ..$ plan_a        :<environment: 0x562633f57018> 
  [14:18:23.360]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:23.360]  - attr(*, "resolved")= logi FALSE
  [14:18:23.360]  - attr(*, "total_size")= num 83544
  [14:18:24.029]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:18:23.381]   - R expression:
  [14:18:24.030]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:18:23.382] {
  [14:18:23.382]     doFuture::registerDoFuture()
  [14:18:23.382]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:23.382]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:23.382]         b <- NULL
  [14:18:23.382]         ...future.env <- environment()
  [14:18:23.382]         local({
  [14:18:23.382]             for (name in names(...future.x_jj)) {
  [14:18:23.382]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:23.382]                   inherits = FALSE)
  [14:18:23.382]             }
  [14:18:23.382]         })
  [14:18:23.382]         tryCatch({
  [14:18:23.382]             plan_list <- future::plan("next")
  [14:18:23.382]             message(capture.output(print(plan_list)))
  [14:18:23.382]             stopifnot(inherits(plan_list, "future"))
  [14:18:23.382]             default <- getOption("future.plan", "sequential")
  [14:18:23.382]             if (is.function(default)) 
  [14:18:23.382]                 default <- class(default)
  [14:18:23.382]             stopifnot(inherits(plan_list, default))
  [14:18:23.382]             plan_b <- future::plan("list")
  [14:18:23.382]             str(plan_b)
  [14:18:23.382]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:23.382]                 default))
  [14:18:23.382]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:23.382]         }, error = identity)
  [14:18:23.382]     })
  [14:18:23.382] }
  [14:18:24.030]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:18:23.383]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.031]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:18:23.384] List of 3
  [14:18:23.384]  $ ...future.x_ii: NULL
  [14:18:23.384]  $ a             : int 2
  [14:18:23.384]  $ plan_a        :List of 1
  [14:18:23.384]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:23.384]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:23.384]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:23.384]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:23.384]   .. ..- attr(*, "init")= logi TRUE
  [14:18:23.384]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:23.384]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:23.384]  - attr(*, "where")=List of 3
  [14:18:23.384]   ..$ ...future.x_ii:<environment: 0x562635631dc8> 
  [14:18:23.384]   ..$ a             :<environment: 0x562633f57018> 
  [14:18:23.384]   ..$ plan_a        :<environment: 0x562633f57018> 
  [14:18:23.384]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:23.384]  - attr(*, "resolved")= logi FALSE
  [14:18:23.384]  - attr(*, "total_size")= num 83544
  [14:18:24.031]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:18:23.401]   - packages: [2] 'doFuture', 'utils'
  [14:18:24.032]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:18:23.402] - identifying globals and packages ... DONE
  [14:18:24.032]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:18:23.404] Number of chunks: 2
  [14:18:24.033]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:18:23.404] Number of futures (= number of chunks): 2
  [14:18:24.033]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:18:23.405] Launching 2 futures (chunks) ...
  [14:18:24.034]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:18:23.406] Chunk #1 of 2 ...
  [14:18:24.034]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:18:23.406]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:24.035]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:18:23.407] getGlobalsAndPackages() ...
  [14:18:24.035]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:18:23.407] Searching for globals...
  [14:18:24.036]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:18:23.408] 
  [14:18:24.036]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:18:23.409] Searching for globals ... DONE
  [14:18:24.037]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:18:23.409] - globals: [0] <none>
  [14:18:24.037]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:18:23.410] getGlobalsAndPackages() ... DONE
  [14:18:24.038]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:18:23.410] 
  [14:18:24.038]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:18:23.411] 
  [14:18:24.039]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:18:23.411]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:24.039]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:18:23.413] getGlobalsAndPackages() ...
  [14:18:24.040]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:18:23.413] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.040]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:18:23.414] Resolving globals: FALSE
  [14:18:24.041]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:18:23.416] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [14:18:24.041]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:18:23.416] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.042]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:18:23.417] 
  [14:18:24.042]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:18:23.418] getGlobalsAndPackages() ... DONE
  [14:18:24.043]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:18:23.422] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:24.043]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:18:23.423] Packages needed by future strategies (n = 0): <none>
  [14:18:24.044]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:18:23.429] {
  [14:18:23.429]     {
  [14:18:23.429]         ...future.startTime <- base::Sys.time()
  [14:18:23.429]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:23.429]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:23.429]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:23.429]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:23.429]             future.resolve.recursive = NULL, width = 80L)
  [14:18:23.429]         {
  [14:18:23.429]             {
  [14:18:23.429]                 {
  [14:18:23.429]                   {
  [14:18:23.429]                     has_future <- base::requireNamespace("future", 
  [14:18:23.429]                       quietly = TRUE)
  [14:18:23.429]                     version <- if (has_future) 
  [14:18:23.429]                       utils::packageVersion("future")
  [14:18:23.429]                     else NULL
  [14:18:23.429]                     if (!has_future || version < "1.8.0") {
  [14:18:23.429]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:23.429]                         "", base::R.version$version.string), 
  [14:18:23.429]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:23.429]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:23.429]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:23.429]                           "release", "version")], collapse = " "), 
  [14:18:23.429]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:23.429]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:23.429]                         info)
  [14:18:23.429]                       info <- base::paste(info, collapse = "; ")
  [14:18:23.429]                       if (!has_future) {
  [14:18:23.429]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:23.429]                           info)
  [14:18:23.429]                       }
  [14:18:23.429]                       else {
  [14:18:23.429]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:23.429]                           info, version)
  [14:18:23.429]                       }
  [14:18:23.429]                       base::stop(msg)
  [14:18:23.429]                     }
  [14:18:23.429]                   }
  [14:18:23.429]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:23.429]                   base::options(mc.cores = 1L)
  [14:18:23.429]                 }
  [14:18:23.429]                 base::local({
  [14:18:23.429]                   for (pkg in c("doFuture", "utils")) {
  [14:18:23.429]                     base::loadNamespace(pkg)
  [14:18:23.429]                     base::library(pkg, character.only = TRUE)
  [14:18:23.429]                   }
  [14:18:23.429]                 })
  [14:18:23.429]             }
  [14:18:23.429]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:23.429]         }
  [14:18:23.429]     }
  [14:18:23.429]     if (base::is.na(TRUE)) {
  [14:18:23.429]     }
  [14:18:23.429]     else {
  [14:18:23.429]         if (TRUE) {
  [14:18:23.429]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:23.429]                 open = "w")
  [14:18:23.429]         }
  [14:18:23.429]         else {
  [14:18:23.429]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:23.429]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:23.429]         }
  [14:18:23.429]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:23.429]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:23.429]             base::sink(type = "output", split = FALSE)
  [14:18:23.429]             base::close(...future.stdout)
  [14:18:23.429]         }, add = TRUE)
  [14:18:23.429]     }
  [14:18:23.429]     ...future.frame <- base::sys.nframe()
  [14:18:23.429]     ...future.conditions <- base::list()
  [14:18:23.429]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:23.429]     ...future.result <- base::tryCatch({
  [14:18:23.429]         base::withCallingHandlers({
  [14:18:23.429]             ...future.value <- base::withVisible(base::local({
  [14:18:23.429]                 ...future.sendCondition <- local({
  [14:18:23.429]                   sendCondition <- NULL
  [14:18:23.429]                   function(frame = 1L) {
  [14:18:23.429]                     if (is.function(sendCondition)) 
  [14:18:23.429]                       return(sendCondition)
  [14:18:23.429]                     ns <- getNamespace("parallel")
  [14:18:23.429]                     if (exists("sendData", mode = "function", 
  [14:18:23.429]                       envir = ns)) {
  [14:18:23.429]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:23.429]                         envir = ns)
  [14:18:23.429]                       envir <- sys.frame(frame)
  [14:18:23.429]                       master <- NULL
  [14:18:23.429]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:23.429]                         !identical(envir, emptyenv())) {
  [14:18:23.429]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:23.429]                           inherits = FALSE)) {
  [14:18:23.429]                           master <- get("master", mode = "list", 
  [14:18:23.429]                             envir = envir, inherits = FALSE)
  [14:18:23.429]                           if (inherits(master, "SOCKnode")) {
  [14:18:23.429]                             sendCondition <<- function(cond) {
  [14:18:23.429]                               data <- list(type = "VALUE", value = cond, 
  [14:18:23.429]                                 success = TRUE)
  [14:18:23.429]                               parallel_sendData(master, data)
  [14:18:23.429]                             }
  [14:18:23.429]                             return(sendCondition)
  [14:18:23.429]                           }
  [14:18:23.429]                         }
  [14:18:23.429]                         frame <- frame + 1L
  [14:18:23.429]                         envir <- sys.frame(frame)
  [14:18:23.429]                       }
  [14:18:23.429]                     }
  [14:18:23.429]                     sendCondition <<- function(cond) NULL
  [14:18:23.429]                   }
  [14:18:23.429]                 })
  [14:18:23.429]                 withCallingHandlers({
  [14:18:23.429]                   {
  [14:18:23.429]                     doFuture::registerDoFuture()
  [14:18:23.429]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:23.429]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:23.429]                       b <- NULL
  [14:18:23.429]                       ...future.env <- environment()
  [14:18:23.429]                       local({
  [14:18:23.429]                         for (name in names(...future.x_jj)) {
  [14:18:23.429]                           assign(name, ...future.x_jj[[name]], 
  [14:18:23.429]                             envir = ...future.env, inherits = FALSE)
  [14:18:23.429]                         }
  [14:18:23.429]                       })
  [14:18:23.429]                       tryCatch({
  [14:18:23.429]                         plan_list <- future::plan("next")
  [14:18:23.429]                         message(capture.output(print(plan_list)))
  [14:18:23.429]                         stopifnot(inherits(plan_list, "future"))
  [14:18:23.429]                         default <- getOption("future.plan", "sequential")
  [14:18:23.429]                         if (is.function(default)) 
  [14:18:23.429]                           default <- class(default)
  [14:18:23.429]                         stopifnot(inherits(plan_list, default))
  [14:18:23.429]                         plan_b <- future::plan("list")
  [14:18:23.429]                         str(plan_b)
  [14:18:23.429]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:23.429]                           inherits(plan_b[[1]], default))
  [14:18:23.429]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:23.429]                       }, error = identity)
  [14:18:23.429]                     })
  [14:18:23.429]                   }
  [14:18:23.429]                 }, immediateCondition = function(cond) {
  [14:18:23.429]                   sendCondition <- ...future.sendCondition()
  [14:18:23.429]                   sendCondition(cond)
  [14:18:23.429]                   muffleCondition <- function (cond) 
  [14:18:23.429]                   {
  [14:18:23.429]                     inherits <- base::inherits
  [14:18:23.429]                     invokeRestart <- base::invokeRestart
  [14:18:23.429]                     muffled <- FALSE
  [14:18:23.429]                     if (inherits(cond, "message")) {
  [14:18:23.429]                       invokeRestart("muffleMessage")
  [14:18:23.429]                       muffled <- TRUE
  [14:18:23.429]                     }
  [14:18:23.429]                     else if (inherits(cond, "warning")) {
  [14:18:23.429]                       invokeRestart("muffleWarning")
  [14:18:23.429]                       muffled <- TRUE
  [14:18:23.429]                     }
  [14:18:23.429]                     else if (inherits(cond, "condition")) {
  [14:18:23.429]                       computeRestarts <- base::computeRestarts
  [14:18:23.429]                       grepl <- base::grepl
  [14:18:23.429]                       is.null <- base::is.null
  [14:18:23.429]                       restarts <- computeRestarts(cond)
  [14:18:23.429]                       for (restart in restarts) {
  [14:18:23.429]                         name <- restart$name
  [14:18:23.429]                         if (is.null(name)) 
  [14:18:23.429]                           next
  [14:18:23.429]                         if (!grepl("^muffle", name)) 
  [14:18:23.429]                           next
  [14:18:23.429]                         invokeRestart(restart)
  [14:18:23.429]                         muffled <- TRUE
  [14:18:23.429]                         break
  [14:18:23.429]                       }
  [14:18:23.429]                     }
  [14:18:23.429]                     invisible(muffled)
  [14:18:23.429]                   }
  [14:18:23.429]                   muffleCondition(cond)
  [14:18:23.429]                 })
  [14:18:23.429]             }))
  [14:18:23.429]             future::FutureResult(value = ...future.value$value, 
  [14:18:23.429]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:23.429]                   ...future.rng), started = ...future.startTime, 
  [14:18:23.429]                 version = "1.8")
  [14:18:23.429]         }, condition = base::local({
  [14:18:23.429]             c <- base::c
  [14:18:23.429]             inherits <- base::inherits
  [14:18:23.429]             invokeRestart <- base::invokeRestart
  [14:18:23.429]             length <- base::length
  [14:18:23.429]             list <- base::list
  [14:18:23.429]             seq.int <- base::seq.int
  [14:18:23.429]             signalCondition <- base::signalCondition
  [14:18:23.429]             sys.calls <- base::sys.calls
  [14:18:23.429]             Sys.time <- base::Sys.time
  [14:18:23.429]             `[[` <- base::`[[`
  [14:18:23.429]             `+` <- base::`+`
  [14:18:23.429]             `<<-` <- base::`<<-`
  [14:18:23.429]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:23.429]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:23.429]                   3L)]
  [14:18:23.429]             }
  [14:18:23.429]             function(cond) {
  [14:18:23.429]                 if (inherits(cond, "error")) {
  [14:18:23.429]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:23.429]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:23.429]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:23.429]                   signalCondition(cond)
  [14:18:23.429]                 }
  [14:18:23.429]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:23.429]                 ))) {
  [14:18:23.429]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:23.429]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:23.429]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:23.429]                   if (!signal) {
  [14:18:23.429]                     muffleCondition <- function (cond) 
  [14:18:23.429]                     {
  [14:18:23.429]                       inherits <- base::inherits
  [14:18:23.429]                       invokeRestart <- base::invokeRestart
  [14:18:23.429]                       muffled <- FALSE
  [14:18:23.429]                       if (inherits(cond, "message")) {
  [14:18:23.429]                         invokeRestart("muffleMessage")
  [14:18:23.429]                         muffled <- TRUE
  [14:18:23.429]                       }
  [14:18:23.429]                       else if (inherits(cond, "warning")) {
  [14:18:23.429]                         invokeRestart("muffleWarning")
  [14:18:23.429]                         muffled <- TRUE
  [14:18:23.429]                       }
  [14:18:23.429]                       else if (inherits(cond, "condition")) {
  [14:18:23.429]                         computeRestarts <- base::computeRestarts
  [14:18:23.429]                         grepl <- base::grepl
  [14:18:23.429]                         is.null <- base::is.null
  [14:18:23.429]                         restarts <- computeRestarts(cond)
  [14:18:23.429]                         for (restart in restarts) {
  [14:18:23.429]                           name <- restart$name
  [14:18:23.429]                           if (is.null(name)) 
  [14:18:23.429]                             next
  [14:18:23.429]                           if (!grepl("^muffle", name)) 
  [14:18:23.429]                             next
  [14:18:23.429]                           invokeRestart(restart)
  [14:18:23.429]                           muffled <- TRUE
  [14:18:23.429]                           break
  [14:18:23.429]                         }
  [14:18:23.429]                       }
  [14:18:23.429]                       invisible(muffled)
  [14:18:23.429]                     }
  [14:18:23.429]                     muffleCondition(cond)
  [14:18:23.429]                   }
  [14:18:23.429]                 }
  [14:18:23.429]             }
  [14:18:23.429]         }))
  [14:18:23.429]     }, error = function(ex) {
  [14:18:23.429]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:23.429]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:23.429]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:23.429]     }, finally = {
  [14:18:23.429]         {
  [14:18:23.429]             {
  [14:18:23.429]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:23.429]             }
  [14:18:23.429]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:23.429]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:23.429]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:23.429]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:23.429]                 ...) 
  [14:18:23.429]             {
  [14:18:23.429]                 if (substitute) 
  [14:18:23.429]                   expr <- substitute(expr)
  [14:18:23.429]                 if (is.function(workers)) 
  [14:18:23.429]                   workers <- workers()
  [14:18:23.429]                 workers <- as.integer(workers)
  [14:18:23.429]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:23.429]                   workers >= 1)
  [14:18:23.429]                 if (workers == 1L) {
  [14:18:23.429]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:23.429]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:23.429]                     local = TRUE, label = label, ...))
  [14:18:23.429]                 }
  [14:18:23.429]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:23.429]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:23.429]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:23.429]                   globals = globals, persistent = persistent, 
  [14:18:23.429]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:23.429]                   label = label, ...)
  [14:18:23.429]                 if (!future$lazy) 
  [14:18:23.429]                   future <- run(future)
  [14:18:23.429]                 invisible(future)
  [14:18:23.429]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:23.429]         }
  [14:18:23.429]         base::options(...future.oldOptions)
  [14:18:23.429]     })
  [14:18:23.429]     Sys.time
  [14:18:23.429]     if (base::is.na(TRUE)) {
  [14:18:23.429]     }
  [14:18:23.429]     else {
  [14:18:23.429]         base::sink(type = "output", split = FALSE)
  [14:18:23.429]         if (TRUE) {
  [14:18:23.429]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:23.429]         }
  [14:18:23.429]         else {
  [14:18:23.429]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:23.429]         }
  [14:18:23.429]         base::close(...future.stdout)
  [14:18:23.429]         ...future.stdout <- NULL
  [14:18:23.429]     }
  [14:18:23.429]     ...future.result$conditions <- ...future.conditions
  [14:18:23.429]     ...future.result
  [14:18:23.429] }
  [14:18:24.044]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:18:23.441] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [14:18:24.045]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:18:23.442] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:18:24.045]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:18:23.444] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:18:24.046]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:18:23.444] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:18:24.046]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:18:23.446] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:18:24.047]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:18:23.447] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [14:18:24.047]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:18:23.491] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [14:18:24.048]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:18:23.492] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [14:18:24.048]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:18:23.494] MultisessionFuture started
  [14:18:24.049]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:18:23.494] Chunk #1 of 2 ... DONE
  [14:18:24.049]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:18:23.495] Chunk #2 of 2 ...
  [14:18:24.050]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:18:23.495]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:24.050]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:18:23.496] getGlobalsAndPackages() ...
  [14:18:24.051]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:18:23.496] Searching for globals...
  [14:18:24.051]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:18:23.498] 
  [14:18:24.051]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:18:23.498] Searching for globals ... DONE
  [14:18:24.052]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:18:23.499] - globals: [0] <none>
  [14:18:24.052]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:18:23.499] getGlobalsAndPackages() ... DONE
  [14:18:24.053]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:18:23.500] 
  [14:18:24.053]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:18:23.500] 
  [14:18:24.054]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:18:23.501]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:24.054]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:18:23.502] getGlobalsAndPackages() ...
  [14:18:24.055]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:18:23.503] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.055]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:18:23.504] Resolving globals: FALSE
  [14:18:24.056]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:18:23.506] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [14:18:24.056]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:18:23.506] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:24.057]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:18:23.507] 
  [14:18:24.057]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:18:23.507] getGlobalsAndPackages() ... DONE
  [14:18:24.058]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:18:23.512] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:24.058]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:18:23.513] Packages needed by future strategies (n = 0): <none>
  [14:18:24.059]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:18:23.563] {
  [14:18:23.563]     {
  [14:18:23.563]         ...future.startTime <- base::Sys.time()
  [14:18:23.563]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:23.563]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:23.563]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:23.563]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:23.563]             future.resolve.recursive = NULL, width = 80L)
  [14:18:23.563]         {
  [14:18:23.563]             {
  [14:18:23.563]                 {
  [14:18:23.563]                   {
  [14:18:23.563]                     has_future <- base::requireNamespace("future", 
  [14:18:23.563]                       quietly = TRUE)
  [14:18:23.563]                     version <- if (has_future) 
  [14:18:23.563]                       utils::packageVersion("future")
  [14:18:23.563]                     else NULL
  [14:18:23.563]                     if (!has_future || version < "1.8.0") {
  [14:18:23.563]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:23.563]                         "", base::R.version$version.string), 
  [14:18:23.563]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:23.563]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:23.563]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:23.563]                           "release", "version")], collapse = " "), 
  [14:18:23.563]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:23.563]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:23.563]                         info)
  [14:18:23.563]                       info <- base::paste(info, collapse = "; ")
  [14:18:23.563]                       if (!has_future) {
  [14:18:23.563]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:23.563]                           info)
  [14:18:23.563]                       }
  [14:18:23.563]                       else {
  [14:18:23.563]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:23.563]                           info, version)
  [14:18:23.563]                       }
  [14:18:23.563]                       base::stop(msg)
  [14:18:23.563]                     }
  [14:18:23.563]                   }
  [14:18:23.563]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:23.563]                   base::options(mc.cores = 1L)
  [14:18:23.563]                 }
  [14:18:23.563]                 base::local({
  [14:18:23.563]                   for (pkg in c("doFuture", "utils")) {
  [14:18:23.563]                     base::loadNamespace(pkg)
  [14:18:23.563]                     base::library(pkg, character.only = TRUE)
  [14:18:23.563]                   }
  [14:18:23.563]                 })
  [14:18:23.563]             }
  [14:18:23.563]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:23.563]         }
  [14:18:23.563]     }
  [14:18:23.563]     if (base::is.na(TRUE)) {
  [14:18:23.563]     }
  [14:18:23.563]     else {
  [14:18:23.563]         if (TRUE) {
  [14:18:23.563]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:23.563]                 open = "w")
  [14:18:23.563]         }
  [14:18:23.563]         else {
  [14:18:23.563]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:23.563]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:23.563]         }
  [14:18:23.563]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:23.563]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:23.563]             base::sink(type = "output", split = FALSE)
  [14:18:23.563]             base::close(...future.stdout)
  [14:18:23.563]         }, add = TRUE)
  [14:18:23.563]     }
  [14:18:23.563]     ...future.frame <- base::sys.nframe()
  [14:18:23.563]     ...future.conditions <- base::list()
  [14:18:23.563]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:23.563]     ...future.result <- base::tryCatch({
  [14:18:23.563]         base::withCallingHandlers({
  [14:18:23.563]             ...future.value <- base::withVisible(base::local({
  [14:18:23.563]                 ...future.sendCondition <- local({
  [14:18:23.563]                   sendCondition <- NULL
  [14:18:23.563]                   function(frame = 1L) {
  [14:18:23.563]                     if (is.function(sendCondition)) 
  [14:18:23.563]                       return(sendCondition)
  [14:18:23.563]                     ns <- getNamespace("parallel")
  [14:18:23.563]                     if (exists("sendData", mode = "function", 
  [14:18:23.563]                       envir = ns)) {
  [14:18:23.563]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:23.563]                         envir = ns)
  [14:18:23.563]                       envir <- sys.frame(frame)
  [14:18:23.563]                       master <- NULL
  [14:18:23.563]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:23.563]                         !identical(envir, emptyenv())) {
  [14:18:23.563]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:23.563]                           inherits = FALSE)) {
  [14:18:23.563]                           master <- get("master", mode = "list", 
  [14:18:23.563]                             envir = envir, inherits = FALSE)
  [14:18:23.563]                           if (inherits(master, "SOCKnode")) {
  [14:18:23.563]                             sendCondition <<- function(cond) {
  [14:18:23.563]                               data <- list(type = "VALUE", value = cond, 
  [14:18:23.563]                                 success = TRUE)
  [14:18:23.563]                               parallel_sendData(master, data)
  [14:18:23.563]                             }
  [14:18:23.563]                             return(sendCondition)
  [14:18:23.563]                           }
  [14:18:23.563]                         }
  [14:18:23.563]                         frame <- frame + 1L
  [14:18:23.563]                         envir <- sys.frame(frame)
  [14:18:23.563]                       }
  [14:18:23.563]                     }
  [14:18:23.563]                     sendCondition <<- function(cond) NULL
  [14:18:23.563]                   }
  [14:18:23.563]                 })
  [14:18:23.563]                 withCallingHandlers({
  [14:18:23.563]                   {
  [14:18:23.563]                     doFuture::registerDoFuture()
  [14:18:23.563]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:23.563]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:23.563]                       b <- NULL
  [14:18:23.563]                       ...future.env <- environment()
  [14:18:23.563]                       local({
  [14:18:23.563]                         for (name in names(...future.x_jj)) {
  [14:18:23.563]                           assign(name, ...future.x_jj[[name]], 
  [14:18:23.563]                             envir = ...future.env, inherits = FALSE)
  [14:18:23.563]                         }
  [14:18:23.563]                       })
  [14:18:23.563]                       tryCatch({
  [14:18:23.563]                         plan_list <- future::plan("next")
  [14:18:23.563]                         message(capture.output(print(plan_list)))
  [14:18:23.563]                         stopifnot(inherits(plan_list, "future"))
  [14:18:23.563]                         default <- getOption("future.plan", "sequential")
  [14:18:23.563]                         if (is.function(default)) 
  [14:18:23.563]                           default <- class(default)
  [14:18:23.563]                         stopifnot(inherits(plan_list, default))
  [14:18:23.563]                         plan_b <- future::plan("list")
  [14:18:23.563]                         str(plan_b)
  [14:18:23.563]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:23.563]                           inherits(plan_b[[1]], default))
  [14:18:23.563]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:23.563]                       }, error = identity)
  [14:18:23.563]                     })
  [14:18:23.563]                   }
  [14:18:23.563]                 }, immediateCondition = function(cond) {
  [14:18:23.563]                   sendCondition <- ...future.sendCondition()
  [14:18:23.563]                   sendCondition(cond)
  [14:18:23.563]                   muffleCondition <- function (cond) 
  [14:18:23.563]                   {
  [14:18:23.563]                     inherits <- base::inherits
  [14:18:23.563]                     invokeRestart <- base::invokeRestart
  [14:18:23.563]                     muffled <- FALSE
  [14:18:23.563]                     if (inherits(cond, "message")) {
  [14:18:23.563]                       invokeRestart("muffleMessage")
  [14:18:23.563]                       muffled <- TRUE
  [14:18:23.563]                     }
  [14:18:23.563]                     else if (inherits(cond, "warning")) {
  [14:18:23.563]                       invokeRestart("muffleWarning")
  [14:18:23.563]                       muffled <- TRUE
  [14:18:23.563]                     }
  [14:18:23.563]                     else if (inherits(cond, "condition")) {
  [14:18:23.563]                       computeRestarts <- base::computeRestarts
  [14:18:23.563]                       grepl <- base::grepl
  [14:18:23.563]                       is.null <- base::is.null
  [14:18:23.563]                       restarts <- computeRestarts(cond)
  [14:18:23.563]                       for (restart in restarts) {
  [14:18:23.563]                         name <- restart$name
  [14:18:23.563]                         if (is.null(name)) 
  [14:18:23.563]                           next
  [14:18:23.563]                         if (!grepl("^muffle", name)) 
  [14:18:23.563]                           next
  [14:18:23.563]                         invokeRestart(restart)
  [14:18:23.563]                         muffled <- TRUE
  [14:18:23.563]                         break
  [14:18:23.563]                       }
  [14:18:23.563]                     }
  [14:18:23.563]                     invisible(muffled)
  [14:18:23.563]                   }
  [14:18:23.563]                   muffleCondition(cond)
  [14:18:23.563]                 })
  [14:18:23.563]             }))
  [14:18:23.563]             future::FutureResult(value = ...future.value$value, 
  [14:18:23.563]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:23.563]                   ...future.rng), started = ...future.startTime, 
  [14:18:23.563]                 version = "1.8")
  [14:18:23.563]         }, condition = base::local({
  [14:18:23.563]             c <- base::c
  [14:18:23.563]             inherits <- base::inherits
  [14:18:23.563]             invokeRestart <- base::invokeRestart
  [14:18:23.563]             length <- base::length
  [14:18:23.563]             list <- base::list
  [14:18:23.563]             seq.int <- base::seq.int
  [14:18:23.563]             signalCondition <- base::signalCondition
  [14:18:23.563]             sys.calls <- base::sys.calls
  [14:18:23.563]             Sys.time <- base::Sys.time
  [14:18:23.563]             `[[` <- base::`[[`
  [14:18:23.563]             `+` <- base::`+`
  [14:18:23.563]             `<<-` <- base::`<<-`
  [14:18:23.563]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:23.563]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:23.563]                   3L)]
  [14:18:23.563]             }
  [14:18:23.563]             function(cond) {
  [14:18:23.563]                 if (inherits(cond, "error")) {
  [14:18:23.563]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:23.563]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:23.563]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:23.563]                   signalCondition(cond)
  [14:18:23.563]                 }
  [14:18:23.563]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:23.563]                 ))) {
  [14:18:23.563]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:23.563]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:23.563]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:23.563]                   if (!signal) {
  [14:18:23.563]                     muffleCondition <- function (cond) 
  [14:18:23.563]                     {
  [14:18:23.563]                       inherits <- base::inherits
  [14:18:23.563]                       invokeRestart <- base::invokeRestart
  [14:18:23.563]                       muffled <- FALSE
  [14:18:23.563]                       if (inherits(cond, "message")) {
  [14:18:23.563]                         invokeRestart("muffleMessage")
  [14:18:23.563]                         muffled <- TRUE
  [14:18:23.563]                       }
  [14:18:23.563]                       else if (inherits(cond, "warning")) {
  [14:18:23.563]                         invokeRestart("muffleWarning")
  [14:18:23.563]                         muffled <- TRUE
  [14:18:23.563]                       }
  [14:18:23.563]                       else if (inherits(cond, "condition")) {
  [14:18:23.563]                         computeRestarts <- base::computeRestarts
  [14:18:23.563]                         grepl <- base::grepl
  [14:18:23.563]                         is.null <- base::is.null
  [14:18:23.563]                         restarts <- computeRestarts(cond)
  [14:18:23.563]                         for (restart in restarts) {
  [14:18:23.563]                           name <- restart$name
  [14:18:23.563]                           if (is.null(name)) 
  [14:18:23.563]                             next
  [14:18:23.563]                           if (!grepl("^muffle", name)) 
  [14:18:23.563]                             next
  [14:18:23.563]                           invokeRestart(restart)
  [14:18:23.563]                           muffled <- TRUE
  [14:18:23.563]                           break
  [14:18:23.563]                         }
  [14:18:23.563]                       }
  [14:18:23.563]                       invisible(muffled)
  [14:18:23.563]                     }
  [14:18:23.563]                     muffleCondition(cond)
  [14:18:23.563]                   }
  [14:18:23.563]                 }
  [14:18:23.563]             }
  [14:18:23.563]         }))
  [14:18:23.563]     }, error = function(ex) {
  [14:18:23.563]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:23.563]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:23.563]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:23.563]     }, finally = {
  [14:18:23.563]         {
  [14:18:23.563]             {
  [14:18:23.563]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:23.563]             }
  [14:18:23.563]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:23.563]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:23.563]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:23.563]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:23.563]                 ...) 
  [14:18:23.563]             {
  [14:18:23.563]                 if (substitute) 
  [14:18:23.563]                   expr <- substitute(expr)
  [14:18:23.563]                 if (is.function(workers)) 
  [14:18:23.563]                   workers <- workers()
  [14:18:23.563]                 workers <- as.integer(workers)
  [14:18:23.563]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:23.563]                   workers >= 1)
  [14:18:23.563]                 if (workers == 1L) {
  [14:18:23.563]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:23.563]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:23.563]                     local = TRUE, label = label, ...))
  [14:18:23.563]                 }
  [14:18:23.563]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:23.563]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:23.563]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:23.563]                   globals = globals, persistent = persistent, 
  [14:18:23.563]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:23.563]                   label = label, ...)
  [14:18:23.563]                 if (!future$lazy) 
  [14:18:23.563]                   future <- run(future)
  [14:18:23.563]                 invisible(future)
  [14:18:23.563]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:23.563]         }
  [14:18:23.563]         base::options(...future.oldOptions)
  [14:18:23.563]     })
  [14:18:23.563]     Sys.time
  [14:18:23.563]     if (base::is.na(TRUE)) {
  [14:18:23.563]     }
  [14:18:23.563]     else {
  [14:18:23.563]         base::sink(type = "output", split = FALSE)
  [14:18:23.563]         if (TRUE) {
  [14:18:23.563]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:23.563]         }
  [14:18:23.563]         else {
  [14:18:23.563]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:23.563]         }
  [14:18:23.563]         base::close(...future.stdout)
  [14:18:23.563]         ...future.stdout <- NULL
  [14:18:23.563]     }
  [14:18:23.563]     ...future.result$conditions <- ...future.conditions
  [14:18:23.563]     ...future.result
  [14:18:23.563] }
  [14:18:24.059]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:18:23.571] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [14:18:24.060]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:18:23.572] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:18:24.060]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:18:23.573] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:18:24.061]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:18:23.574] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:18:24.061]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:18:23.575] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:18:24.062]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:18:23.576] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [14:18:24.062]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:18:23.619] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [14:18:24.063]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:18:23.620] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [14:18:24.063]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:18:23.621] MultisessionFuture started
  [14:18:24.064]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:18:23.622] Chunk #2 of 2 ... DONE
  [14:18:24.069]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:18:23.623] Launching 2 futures (chunks) ... DONE
  [14:18:24.069]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:18:23.623] - resolving futures
  [14:18:24.070]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:18:23.624]   - gathering results & relaying conditions (except errors)
  [14:18:24.070]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:18:23.624] resolve() on list ...
  [14:18:24.071]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:18:23.625]  recursive: 0
  [14:18:24.071]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:18:23.625]  length: 2
  [14:18:24.072]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:18:23.626] 
  [14:18:24.072]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:18:23.628] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:24.073]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:18:23.629] - Validating connection of MultisessionFuture
  [14:18:24.074]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:18:23.630] - received message: FutureResult
  [14:18:24.074]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:18:23.631] - Received FutureResult
  [14:18:24.075]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:18:23.631] - Erased future from FutureRegistry
  [14:18:24.075]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:18:23.632] result() for ClusterFuture ...
  [14:18:24.076]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:18:23.632] - result already collected: FutureResult
  [14:18:24.076]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:18:23.633] result() for ClusterFuture ... done
  [14:18:24.077]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:18:23.633] signalConditions() ...
  [14:18:24.077]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:18:23.634]  - include = 'immediateCondition'
  [14:18:24.078]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:18:23.635]  - exclude = 
  [14:18:24.078]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:18:23.635]  - resignal = FALSE
  [14:18:24.079]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:18:23.636]  - Number of conditions: 1
  [14:18:24.079]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:18:23.636] signalConditions() ... done
  [14:18:24.080]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:18:23.637] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:24.080]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:18:23.638] Future #1
  [14:18:24.081]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:18:23.638] result() for ClusterFuture ...
  [14:18:24.081]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:18:23.639] - result already collected: FutureResult
  [14:18:24.082]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:18:23.639] result() for ClusterFuture ... done
  [14:18:24.083]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:18:23.646] result() for ClusterFuture ...
  [14:18:24.083]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:18:23.647] - result already collected: FutureResult
  [14:18:24.083]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:18:23.648] result() for ClusterFuture ... done
  [14:18:24.084]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:18:23.648] signalConditions() ...
  [14:18:24.084]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:18:23.649]  - include = 'immediateCondition'
  [14:18:24.085]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:18:23.649]  - exclude = 
  [14:18:24.085]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:18:23.650]  - resignal = FALSE
  [14:18:24.086]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:18:23.651]  - Number of conditions: 1
  [14:18:24.086]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:18:23.651] signalConditions() ... done
  [14:18:24.087]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:18:23.652] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:18:24.087]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:18:23.652] - nx: 2
  [14:18:24.088]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:18:23.653] - relay: TRUE
  [14:18:24.088]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:18:23.653] - stdout: TRUE
  [14:18:24.089]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:18:23.654] - signal: TRUE
  [14:18:24.089]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:18:23.654] - resignal: FALSE
  [14:18:24.090]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:18:23.655] - force: FALSE
  [14:18:24.090]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:18:23.655] - relayed: [n=2] FALSE, FALSE
  [14:18:24.091]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:18:23.656] - queued futures: [n=2] FALSE, FALSE
  [14:18:24.091]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:18:23.656]  - until=1
  [14:18:24.092]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:18:23.657]  - relaying element #1
  [14:18:24.092]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:18:23.658] result() for ClusterFuture ...
  [14:18:24.093]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:18:23.658] - result already collected: FutureResult
  [14:18:24.093]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:18:23.659] result() for ClusterFuture ... done
  [14:18:24.094]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:18:23.660] result() for ClusterFuture ...
  [14:18:24.094]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:18:23.660] - result already collected: FutureResult
  [14:18:24.095]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:18:23.661] result() for ClusterFuture ... done
  [14:18:24.095]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:18:23.661] signalConditions() ...
  [14:18:24.096]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:18:23.662]  - include = 'immediateCondition'
  [14:18:24.096]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:18:23.678]  - exclude = 
  [14:18:24.097]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:18:23.678]  - resignal = FALSE
  [14:18:24.097]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:18:23.679]  - Number of conditions: 1
  [14:18:24.098]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:18:23.680] signalConditions() ... done
  [14:18:24.098]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:18:23.680] result() for ClusterFuture ...
  [14:18:24.099]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:18:23.681] - result already collected: FutureResult
  [14:18:24.099]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:18:23.681] result() for ClusterFuture ... done
  [14:18:24.100]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:18:23.682] signalConditions() ...
  [14:18:24.100]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:18:23.682]  - include = 'immediateCondition'
  [14:18:24.101]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:18:23.683]  - exclude = 
  [14:18:24.101]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:18:23.683]  - resignal = FALSE
  [14:18:24.102]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:18:23.684]  - Number of conditions: 1
  [14:18:24.102]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:18:23.685] signalConditions() ... done
  [14:18:24.103]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:18:23.685] result() for ClusterFuture ...
  [14:18:24.104]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:18:23.686] - result already collected: FutureResult
  [14:18:24.104]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:18:23.686] result() for ClusterFuture ... done
  [14:18:24.105]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:18:23.687] signalConditions() ...
  [14:18:24.105]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:18:23.687]  - include = 'condition'
  [14:18:24.106]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:18:23.688]  - exclude = 'immediateCondition'
  [14:18:24.106]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:18:23.688]  - resignal = FALSE
  [14:18:24.107]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:18:23.689]  - Number of conditions: 1
  [14:18:24.107]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [14:18:23.689]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:24.108]  - Condition #478: '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
  [14:18:24.108]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:18:23.690] signalConditions() ... done
  [14:18:24.109]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:18:23.691] - relayed: [n=2] TRUE, FALSE
  [14:18:24.109]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:18:23.692] - queued futures: [n=2] TRUE, FALSE
  [14:18:24.110]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:18:23.692] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:18:24.110]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:18:23.693]  length: 1 (resolved future 1)
  [14:18:24.111]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:18:23.695] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:24.111]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:18:23.696] - Validating connection of MultisessionFuture
  [14:18:24.112]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:18:23.720] - received message: FutureResult
  [14:18:24.112]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:18:23.721] - Received FutureResult
  [14:18:24.113]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:18:23.721] - Erased future from FutureRegistry
  [14:18:24.113]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:18:23.722] result() for ClusterFuture ...
  [14:18:24.114]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:18:23.722] - result already collected: FutureResult
  [14:18:24.114]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:18:23.723] result() for ClusterFuture ... done
  [14:18:24.115]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:18:23.724] signalConditions() ...
  [14:18:24.115]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:18:23.724]  - include = 'immediateCondition'
  [14:18:24.116]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:18:23.725]  - exclude = 
  [14:18:24.116]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:18:23.725]  - resignal = FALSE
  [14:18:24.117]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:18:23.726]  - Number of conditions: 2
  [14:18:24.117]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:18:23.729] signalConditions() ... done
  [14:18:24.118]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:18:23.730] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:24.118]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:18:23.730] Future #2
  [14:18:24.119]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:18:23.731] result() for ClusterFuture ...
  [14:18:24.119]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:18:23.731] - result already collected: FutureResult
  [14:18:24.120]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:18:23.732] result() for ClusterFuture ... done
  [14:18:24.120]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:18:23.735] result() for ClusterFuture ...
  [14:18:24.120]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:18:23.736] - result already collected: FutureResult
  [14:18:24.121]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:18:23.736] result() for ClusterFuture ... done
  [14:18:24.121]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:18:23.737] signalConditions() ...
  [14:18:24.122]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:18:23.740]  - include = 'immediateCondition'
  [14:18:24.122]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:18:23.741]  - exclude = 
  [14:18:24.123]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:18:23.741]  - resignal = FALSE
  [14:18:24.123]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:18:23.742]  - Number of conditions: 2
  [14:18:24.124]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:18:23.742] signalConditions() ... done
  [14:18:24.124]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:18:23.745] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:18:24.125]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:18:23.745] - nx: 2
  [14:18:24.125]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:18:23.746] - relay: TRUE
  [14:18:24.126]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:18:23.746] - stdout: TRUE
  [14:18:24.126]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:18:23.747] - signal: TRUE
  [14:18:24.127]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:18:23.747] - resignal: FALSE
  [14:18:24.127]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:18:23.748] - force: FALSE
  [14:18:24.128]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:18:23.748] - relayed: [n=2] TRUE, FALSE
  [14:18:24.128]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:18:23.749] - queued futures: [n=2] TRUE, FALSE
  [14:18:24.129]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:18:23.749]  - until=2
  [14:18:24.129]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:18:23.750]  - relaying element #2
  [14:18:24.130]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:18:23.750] result() for ClusterFuture ...
  [14:18:24.130]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:18:23.754] - result already collected: FutureResult
  [14:18:24.131]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:18:23.754] result() for ClusterFuture ... done
  [14:18:24.131]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:18:23.755] result() for ClusterFuture ...
  [14:18:24.132]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:18:23.756] - result already collected: FutureResult
  [14:18:24.132]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:18:23.759] result() for ClusterFuture ... done
  [14:18:24.133]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:18:23.759] signalConditions() ...
  [14:18:24.138]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:18:23.760]  - include = 'immediateCondition'
  [14:18:24.138]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:18:23.760]  - exclude = 
  [14:18:24.139]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:18:23.761]  - resignal = FALSE
  [14:18:24.139]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:18:23.764]  - Number of conditions: 2
  [14:18:24.140]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:18:23.764] signalConditions() ... done
  [14:18:24.140]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:18:23.765] result() for ClusterFuture ...
  [14:18:24.141]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:18:23.765] - result already collected: FutureResult
  [14:18:24.142]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:18:23.768] result() for ClusterFuture ... done
  [14:18:24.142]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:18:23.769] signalConditions() ...
  [14:18:24.143]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:18:23.769]  - include = 'immediateCondition'
  [14:18:24.143]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:18:23.770]  - exclude = 
  [14:18:24.144]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:18:23.770]  - resignal = FALSE
  [14:18:24.144]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:18:23.771]  - Number of conditions: 2
  [14:18:24.145]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:18:23.771] signalConditions() ... done
  [14:18:24.145]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:18:23.772] result() for ClusterFuture ...
  [14:18:24.146]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:18:23.773] - result already collected: FutureResult
  [14:18:24.146]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:18:23.785] result() for ClusterFuture ... done
  [14:18:24.147]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:18:23.785] signalConditions() ...
  [14:18:24.147]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:18:23.786]  - include = 'condition'
  [14:18:24.148]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:18:23.786]  - exclude = 'immediateCondition'
  [14:18:24.149]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:18:23.790]  - resignal = FALSE
  [14:18:24.149]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:18:23.790]  - Number of conditions: 2
  [14:18:24.150]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [14:18:23.791]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:24.150]  - Condition #553: '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
  [14:18:24.151]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [14:18:23.792]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:24.151]  - Condition #555: '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
  [14:18:24.152]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:18:23.795] signalConditions() ... done
  [14:18:24.152]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:18:23.796] - relayed: [n=2] TRUE, TRUE
  [14:18:24.153]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:18:23.796] - queued futures: [n=2] TRUE, TRUE
  [14:18:24.153]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:18:23.797] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:18:24.154]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:18:23.797]  length: 0 (resolved future 2)
  [14:18:24.154]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:18:23.802] Relaying remaining futures
  [14:18:24.155]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:18:23.802] signalConditionsASAP(NULL, pos=0) ...
  [14:18:24.155]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:18:23.803] - nx: 2
  [14:18:24.156]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:18:23.803] - relay: TRUE
  [14:18:24.156]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:18:23.804] - stdout: TRUE
  [14:18:24.156]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:18:23.806] - signal: TRUE
  [14:18:24.157]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:18:23.807] - resignal: FALSE
  [14:18:24.157]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:18:23.808] - force: FALSE
  [14:18:24.158]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:18:23.808] - relayed: [n=2] TRUE, TRUE
  [14:18:24.158]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [14:18:23.809] - queued futures: [n=2] TRUE, TRUE
  [14:18:24.159]  - Condition #571: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:24.159]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:18:23.810] - relayed: [n=2] TRUE, TRUE
  [14:18:24.160]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:18:23.810] - queued futures: [n=2] TRUE, TRUE
  [14:18:24.160]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:18:23.811] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:24.161]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:18:23.811] resolve() on list ... DONE
  [14:18:24.161]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:18:23.812] - collecting values of futures
  [14:18:24.162]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:18:23.812] result() for ClusterFuture ...
  [14:18:24.162]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:18:23.813] - result already collected: FutureResult
  [14:18:24.163]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:18:23.813] result() for ClusterFuture ... done
  [14:18:24.163]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:18:23.814] result() for ClusterFuture ...
  [14:18:24.164]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:18:23.815] - result already collected: FutureResult
  [14:18:24.164]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:18:23.815] result() for ClusterFuture ... done
  [14:18:24.165]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:18:23.816] signalConditions() ...
  [14:18:24.165]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:18:23.816]  - include = 'immediateCondition'
  [14:18:24.166]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:18:23.817]  - exclude = 
  [14:18:24.166]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:18:23.817]  - resignal = FALSE
  [14:18:24.167]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:18:23.817]  - Number of conditions: 1
  [14:18:24.167]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:18:23.818] signalConditions() ... done
  [14:18:24.168]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:18:23.819] result() for ClusterFuture ...
  [14:18:24.168]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:18:23.819] - result already collected: FutureResult
  [14:18:24.169]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:18:23.820] result() for ClusterFuture ... done
  [14:18:24.169]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:18:23.820] result() for ClusterFuture ...
  [14:18:24.170]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:18:23.821] - result already collected: FutureResult
  [14:18:24.170]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:18:23.821] result() for ClusterFuture ... done
  [14:18:24.170]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:18:23.822] signalConditions() ...
  [14:18:24.171]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:18:23.822]  - include = 'immediateCondition'
  [14:18:24.171]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:18:23.823]  - exclude = 
  [14:18:24.172]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:18:23.824]  - resignal = FALSE
  [14:18:24.172]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:18:23.824]  - Number of conditions: 2
  [14:18:24.173]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:18:23.825] signalConditions() ... done
  [14:18:24.173]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:18:23.825] - accumulating results
  [14:18:24.174]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:18:23.827] - processing errors (handler = 'stop')
  [14:18:24.174]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:18:23.827] - extracting results
  [14:18:24.175]  - Condition #604: 'simpleMessage', 'message', 'condition'
  [14:18:23.828] doFuture() ... DONE
  [14:18:24.175]  - Condition #605: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:24.177] signalConditions() ... done
  [14:18:24.177] - relayed: [n=1] TRUE
  [14:18:24.177] - queued futures: [n=1] TRUE
  [14:18:24.178] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:24.178]  length: 0 (resolved future 1)
  [14:18:24.178] Relaying remaining futures
  [14:18:24.179] signalConditionsASAP(NULL, pos=0) ...
  [14:18:24.179] - nx: 1
  [14:18:24.179] - relay: TRUE
  [14:18:24.180] - stdout: TRUE
  [14:18:24.180] - signal: TRUE
  [14:18:24.180] - resignal: FALSE
  [14:18:24.181] - force: FALSE
  [14:18:24.181] - relayed: [n=1] TRUE
  [14:18:24.181] - queued futures: [n=1] TRUE
   - flush all
  [14:18:24.182] - relayed: [n=1] TRUE
  [14:18:24.182] - queued futures: [n=1] TRUE
  [14:18:24.182] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:24.183] resolve() on list ... DONE
  [14:18:24.183] - collecting values of futures
  [14:18:24.184] signalConditions() ...
  [14:18:24.184]  - include = 'immediateCondition'
  [14:18:24.184]  - exclude = 
  [14:18:24.185]  - resignal = FALSE
  [14:18:24.185]  - Number of conditions: 605
  [14:18:24.186] signalConditions() ... done
  [14:18:24.187] - accumulating results
  [14:18:24.188] - processing errors (handler = 'stop')
  [14:18:24.188] - extracting results
  [14:18:24.188] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [14:18:24.190] plan(): Setting new future strategy stack:
  [14:18:24.191] List of future strategies:
  [14:18:24.191] 1. sequential:
  [14:18:24.191]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:24.191]    - tweaked: FALSE
  [14:18:24.191]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:24.191] 2. cluster:
  [14:18:24.191]    - 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, ...)
  [14:18:24.191]    - tweaked: FALSE
  [14:18:24.191]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:24.194] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:18:24.195] doFuture() ...
  [14:18:24.196] - dummy globals (as locals): [1] 'a'
  [14:18:24.197] - R expression:
  [14:18:24.197] {
  [14:18:24.197]     doFuture::registerDoFuture()
  [14:18:24.197]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:24.197]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:24.197]         a <- NULL
  [14:18:24.197]         ...future.env <- environment()
  [14:18:24.197]         local({
  [14:18:24.197]             for (name in names(...future.x_jj)) {
  [14:18:24.197]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:24.197]                   inherits = FALSE)
  [14:18:24.197]             }
  [14:18:24.197]         })
  [14:18:24.197]         tryCatch({
  [14:18:24.197]             plan_list <- future::plan("next")
  [14:18:24.197]             stopifnot(inherits(plan_list, strategy2))
  [14:18:24.197]             plan_a <- future::plan("list")
  [14:18:24.197]             str(plan_a)
  [14:18:24.197]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:24.197]             message("foreach() - level 2 ...")
  [14:18:24.197]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:24.197]                 {
  [14:18:24.197]                   plan_list <- future::plan("next")
  [14:18:24.197]                   message(capture.output(print(plan_list)))
  [14:18:24.197]                   stopifnot(inherits(plan_list, "future"))
  [14:18:24.197]                   default <- getOption("future.plan", "sequential")
  [14:18:24.197]                   if (is.function(default)) 
  [14:18:24.197]                     default <- class(default)
  [14:18:24.197]                   stopifnot(inherits(plan_list, default))
  [14:18:24.197]                   plan_b <- future::plan("list")
  [14:18:24.197]                   str(plan_b)
  [14:18:24.197]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:24.197]                     inherits(plan_b[[1]], default))
  [14:18:24.197]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:24.197]                 }
  [14:18:24.197]             message("foreach() - level 2 ... DONE")
  [14:18:24.197]             y
  [14:18:24.197]         }, error = identity)
  [14:18:24.197]     })
  [14:18:24.197] }
  [14:18:24.198] - identifying globals and packages ...
  [14:18:24.199] getGlobalsAndPackages() ...
  [14:18:24.199] Searching for globals...
  [14:18:24.241] - 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'
  [14:18:24.242] Searching for globals ... DONE
  [14:18:24.242] Resolving globals: FALSE
  [14:18:24.245] The total size of the 3 globals is 176 bytes (176 bytes)
  [14:18:24.246] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:24.246] - packages: [2] 'utils', 'foreach'
  [14:18:24.246] getGlobalsAndPackages() ... DONE
  [14:18:24.247] List of 3
  [14:18:24.247]  $ ...future.x_ii: NULL
  [14:18:24.247]  $ strategy2     : chr "cluster"
  [14:18:24.247]  $ bs            : int [1:3] 3 2 1
  [14:18:24.247]  - attr(*, "where")=List of 3
  [14:18:24.247]   ..$ ...future.x_ii:<environment: 0x5626356f7bd8> 
  [14:18:24.247]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:24.247]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:24.247]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:24.247]  - attr(*, "resolved")= logi FALSE
  [14:18:24.247]  - attr(*, "total_size")= num 176
  [14:18:24.263]   - R expression:
  [14:18:24.264] {
  [14:18:24.264]     doFuture::registerDoFuture()
  [14:18:24.264]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:24.264]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:24.264]         a <- NULL
  [14:18:24.264]         ...future.env <- environment()
  [14:18:24.264]         local({
  [14:18:24.264]             for (name in names(...future.x_jj)) {
  [14:18:24.264]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:24.264]                   inherits = FALSE)
  [14:18:24.264]             }
  [14:18:24.264]         })
  [14:18:24.264]         tryCatch({
  [14:18:24.264]             plan_list <- future::plan("next")
  [14:18:24.264]             stopifnot(inherits(plan_list, strategy2))
  [14:18:24.264]             plan_a <- future::plan("list")
  [14:18:24.264]             str(plan_a)
  [14:18:24.264]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:24.264]             message("foreach() - level 2 ...")
  [14:18:24.264]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:24.264]                 {
  [14:18:24.264]                   plan_list <- future::plan("next")
  [14:18:24.264]                   message(capture.output(print(plan_list)))
  [14:18:24.264]                   stopifnot(inherits(plan_list, "future"))
  [14:18:24.264]                   default <- getOption("future.plan", "sequential")
  [14:18:24.264]                   if (is.function(default)) 
  [14:18:24.264]                     default <- class(default)
  [14:18:24.264]                   stopifnot(inherits(plan_list, default))
  [14:18:24.264]                   plan_b <- future::plan("list")
  [14:18:24.264]                   str(plan_b)
  [14:18:24.264]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:24.264]                     inherits(plan_b[[1]], default))
  [14:18:24.264]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:24.264]                 }
  [14:18:24.264]             message("foreach() - level 2 ... DONE")
  [14:18:24.264]             y
  [14:18:24.264]         }, error = identity)
  [14:18:24.264]     })
  [14:18:24.264] }
  [14:18:24.265]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:24.265] List of 3
  [14:18:24.265]  $ ...future.x_ii: NULL
  [14:18:24.265]  $ strategy2     : chr "cluster"
  [14:18:24.265]  $ bs            : int [1:3] 3 2 1
  [14:18:24.265]  - attr(*, "where")=List of 3
  [14:18:24.265]   ..$ ...future.x_ii:<environment: 0x5626356f7bd8> 
  [14:18:24.265]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:24.265]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:24.265]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:24.265]  - attr(*, "resolved")= logi FALSE
  [14:18:24.265]  - attr(*, "total_size")= num 176
  [14:18:24.277]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:24.277] - identifying globals and packages ... DONE
  [14:18:24.278] Number of chunks: 1
  [14:18:24.278] Number of futures (= number of chunks): 1
  [14:18:24.279] Launching 1 futures (chunks) ...
  [14:18:24.279] Chunk #1 of 1 ...
  [14:18:24.279]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:24.280] getGlobalsAndPackages() ...
  [14:18:24.280] Searching for globals...
  [14:18:24.281] 
  [14:18:24.281] Searching for globals ... DONE
  [14:18:24.282] - globals: [0] <none>
  [14:18:24.282] getGlobalsAndPackages() ... DONE
  [14:18:24.282] 
  [14:18:24.283] 
  [14:18:24.283]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:24.283] getGlobalsAndPackages() ...
  [14:18:24.284] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:24.284] Resolving globals: FALSE
  [14:18:24.285] The total size of the 3 globals is 288 bytes (288 bytes)
  [14:18:24.286] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:24.286] 
  [14:18:24.287] getGlobalsAndPackages() ... DONE
  [14:18:24.289] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:24.289] Packages needed by future strategies (n = 1): 'future'
  [14:18:24.297] {
  [14:18:24.297]     {
  [14:18:24.297]         ...future.startTime <- base::Sys.time()
  [14:18:24.297]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:24.297]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:24.297]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:24.297]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:24.297]             future.resolve.recursive = NULL, width = 80L)
  [14:18:24.297]         {
  [14:18:24.297]             {
  [14:18:24.297]                 {
  [14:18:24.297]                   has_future <- base::requireNamespace("future", 
  [14:18:24.297]                     quietly = TRUE)
  [14:18:24.297]                   version <- if (has_future) 
  [14:18:24.297]                     utils::packageVersion("future")
  [14:18:24.297]                   else NULL
  [14:18:24.297]                   if (!has_future || version < "1.8.0") {
  [14:18:24.297]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:24.297]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:24.297]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:24.297]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:24.297]                         "release", "version")], collapse = " "), 
  [14:18:24.297]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:24.297]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:24.297]                       info)
  [14:18:24.297]                     info <- base::paste(info, collapse = "; ")
  [14:18:24.297]                     if (!has_future) {
  [14:18:24.297]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:24.297]                         info)
  [14:18:24.297]                     }
  [14:18:24.297]                     else {
  [14:18:24.297]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:24.297]                         info, version)
  [14:18:24.297]                     }
  [14:18:24.297]                     base::stop(msg)
  [14:18:24.297]                   }
  [14:18:24.297]                 }
  [14:18:24.297]                 base::local({
  [14:18:24.297]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:24.297]                   "future")) {
  [14:18:24.297]                     base::loadNamespace(pkg)
  [14:18:24.297]                     base::library(pkg, character.only = TRUE)
  [14:18:24.297]                   }
  [14:18:24.297]                 })
  [14:18:24.297]             }
  [14:18:24.297]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:24.297]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:24.297]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:24.297]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:18:24.297]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:24.297]                 ...) 
  [14:18:24.297]             {
  [14:18:24.297]                 if (substitute) 
  [14:18:24.297]                   expr <- substitute(expr)
  [14:18:24.297]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:24.297]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:24.297]                   globals = globals, persistent = persistent, 
  [14:18:24.297]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:24.297]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:24.297]                   label = label, ...)
  [14:18:24.297]                 if (!future$lazy) 
  [14:18:24.297]                   future <- run(future)
  [14:18:24.297]                 invisible(future)
  [14:18:24.297]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:24.297]         }
  [14:18:24.297]     }
  [14:18:24.297]     if (base::is.na(TRUE)) {
  [14:18:24.297]     }
  [14:18:24.297]     else {
  [14:18:24.297]         if (TRUE) {
  [14:18:24.297]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:24.297]                 open = "w")
  [14:18:24.297]         }
  [14:18:24.297]         else {
  [14:18:24.297]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:24.297]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:24.297]         }
  [14:18:24.297]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:24.297]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:24.297]             base::sink(type = "output", split = FALSE)
  [14:18:24.297]             base::close(...future.stdout)
  [14:18:24.297]         }, add = TRUE)
  [14:18:24.297]     }
  [14:18:24.297]     ...future.frame <- base::sys.nframe()
  [14:18:24.297]     ...future.conditions <- base::list()
  [14:18:24.297]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:24.297]     ...future.result <- base::tryCatch({
  [14:18:24.297]         base::withCallingHandlers({
  [14:18:24.297]             ...future.value <- base::withVisible(base::local({
  [14:18:24.297]                 doFuture::registerDoFuture()
  [14:18:24.297]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:24.297]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:24.297]                   a <- NULL
  [14:18:24.297]                   ...future.env <- environment()
  [14:18:24.297]                   local({
  [14:18:24.297]                     for (name in names(...future.x_jj)) {
  [14:18:24.297]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:24.297]                         inherits = FALSE)
  [14:18:24.297]                     }
  [14:18:24.297]                   })
  [14:18:24.297]                   tryCatch({
  [14:18:24.297]                     plan_list <- future::plan("next")
  [14:18:24.297]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:24.297]                     plan_a <- future::plan("list")
  [14:18:24.297]                     str(plan_a)
  [14:18:24.297]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:24.297]                     message("foreach() - level 2 ...")
  [14:18:24.297]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:24.297]                       {
  [14:18:24.297]                         plan_list <- future::plan("next")
  [14:18:24.297]                         message(capture.output(print(plan_list)))
  [14:18:24.297]                         stopifnot(inherits(plan_list, "future"))
  [14:18:24.297]                         default <- getOption("future.plan", "sequential")
  [14:18:24.297]                         if (is.function(default)) 
  [14:18:24.297]                           default <- class(default)
  [14:18:24.297]                         stopifnot(inherits(plan_list, default))
  [14:18:24.297]                         plan_b <- future::plan("list")
  [14:18:24.297]                         str(plan_b)
  [14:18:24.297]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:24.297]                           inherits(plan_b[[1]], default))
  [14:18:24.297]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:24.297]                       }
  [14:18:24.297]                     message("foreach() - level 2 ... DONE")
  [14:18:24.297]                     y
  [14:18:24.297]                   }, error = identity)
  [14:18:24.297]                 })
  [14:18:24.297]             }))
  [14:18:24.297]             future::FutureResult(value = ...future.value$value, 
  [14:18:24.297]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:24.297]                   ...future.rng), started = ...future.startTime, 
  [14:18:24.297]                 version = "1.8")
  [14:18:24.297]         }, condition = base::local({
  [14:18:24.297]             c <- base::c
  [14:18:24.297]             inherits <- base::inherits
  [14:18:24.297]             invokeRestart <- base::invokeRestart
  [14:18:24.297]             length <- base::length
  [14:18:24.297]             list <- base::list
  [14:18:24.297]             seq.int <- base::seq.int
  [14:18:24.297]             signalCondition <- base::signalCondition
  [14:18:24.297]             sys.calls <- base::sys.calls
  [14:18:24.297]             Sys.time <- base::Sys.time
  [14:18:24.297]             `[[` <- base::`[[`
  [14:18:24.297]             `+` <- base::`+`
  [14:18:24.297]             `<<-` <- base::`<<-`
  [14:18:24.297]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:24.297]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:24.297]                   3L)]
  [14:18:24.297]             }
  [14:18:24.297]             function(cond) {
  [14:18:24.297]                 if (inherits(cond, "error")) {
  [14:18:24.297]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:24.297]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:24.297]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:24.297]                   signalCondition(cond)
  [14:18:24.297]                 }
  [14:18:24.297]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:24.297]                 ))) {
  [14:18:24.297]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:24.297]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:24.297]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:24.297]                   if (!signal) {
  [14:18:24.297]                     muffleCondition <- function (cond) 
  [14:18:24.297]                     {
  [14:18:24.297]                       inherits <- base::inherits
  [14:18:24.297]                       invokeRestart <- base::invokeRestart
  [14:18:24.297]                       muffled <- FALSE
  [14:18:24.297]                       if (inherits(cond, "message")) {
  [14:18:24.297]                         invokeRestart("muffleMessage")
  [14:18:24.297]                         muffled <- TRUE
  [14:18:24.297]                       }
  [14:18:24.297]                       else if (inherits(cond, "warning")) {
  [14:18:24.297]                         invokeRestart("muffleWarning")
  [14:18:24.297]                         muffled <- TRUE
  [14:18:24.297]                       }
  [14:18:24.297]                       else if (inherits(cond, "condition")) {
  [14:18:24.297]                         computeRestarts <- base::computeRestarts
  [14:18:24.297]                         grepl <- base::grepl
  [14:18:24.297]                         is.null <- base::is.null
  [14:18:24.297]                         restarts <- computeRestarts(cond)
  [14:18:24.297]                         for (restart in restarts) {
  [14:18:24.297]                           name <- restart$name
  [14:18:24.297]                           if (is.null(name)) 
  [14:18:24.297]                             next
  [14:18:24.297]                           if (!grepl("^muffle", name)) 
  [14:18:24.297]                             next
  [14:18:24.297]                           invokeRestart(restart)
  [14:18:24.297]                           muffled <- TRUE
  [14:18:24.297]                           break
  [14:18:24.297]                         }
  [14:18:24.297]                       }
  [14:18:24.297]                       invisible(muffled)
  [14:18:24.297]                     }
  [14:18:24.297]                     muffleCondition(cond)
  [14:18:24.297]                   }
  [14:18:24.297]                 }
  [14:18:24.297]             }
  [14:18:24.297]         }))
  [14:18:24.297]     }, error = function(ex) {
  [14:18:24.297]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:24.297]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:24.297]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:24.297]     }, finally = {
  [14:18:24.297]         {
  [14:18:24.297]             NULL
  [14:18:24.297]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:24.297]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:24.297]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:24.297]                 label = NULL, ...) 
  [14:18:24.297]             {
  [14:18:24.297]                 if (substitute) 
  [14:18:24.297]                   expr <- substitute(expr)
  [14:18:24.297]                 local <- as.logical(local)
  [14:18:24.297]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:24.297]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:24.297]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:24.297]                   label = label, ...)
  [14:18:24.297]                 if (!future$lazy) 
  [14:18:24.297]                   future <- run(future)
  [14:18:24.297]                 invisible(future)
  [14:18:24.297]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:24.297]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:18:24.297]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [14:18:24.297]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:18:24.297]                 label = NULL, ...) 
  [14:18:24.297]             {
  [14:18:24.297]                 if (substitute) 
  [14:18:24.297]                   expr <- substitute(expr)
  [14:18:24.297]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:24.297]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:24.297]                   globals = globals, persistent = persistent, 
  [14:18:24.297]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:24.297]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:24.297]                   label = label, ...)
  [14:18:24.297]                 if (!future$lazy) 
  [14:18:24.297]                   future <- run(future)
  [14:18:24.297]                 invisible(future)
  [14:18:24.297]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:24.297]         }
  [14:18:24.297]         base::options(...future.oldOptions)
  [14:18:24.297]     })
  [14:18:24.297]     Sys.time
  [14:18:24.297]     if (base::is.na(TRUE)) {
  [14:18:24.297]     }
  [14:18:24.297]     else {
  [14:18:24.297]         base::sink(type = "output", split = FALSE)
  [14:18:24.297]         if (TRUE) {
  [14:18:24.297]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:24.297]         }
  [14:18:24.297]         else {
  [14:18:24.297]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:24.297]         }
  [14:18:24.297]         base::close(...future.stdout)
  [14:18:24.297]         ...future.stdout <- NULL
  [14:18:24.297]     }
  [14:18:24.297]     ...future.result$conditions <- ...future.conditions
  [14:18:24.297]     ...future.result
  [14:18:24.297] }
  [14:18:24.305] plan(): Setting new future strategy stack:
  [14:18:24.305] List of future strategies:
  [14:18:24.305] 1. cluster:
  [14:18:24.305]    - 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, ...)
  [14:18:24.305]    - tweaked: FALSE
  [14:18:24.305]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:24.309] plan(): nbrOfWorkers() = 2
  [14:18:28.406] plan(): Setting new future strategy stack:
  [14:18:28.406] List of future strategies:
  [14:18:28.406] 1. sequential:
  [14:18:28.406]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:28.406]    - tweaked: FALSE
  [14:18:28.406]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:28.406] 2. cluster:
  [14:18:28.406]    - 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, ...)
  [14:18:28.406]    - tweaked: FALSE
  [14:18:28.406]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:28.408] plan(): nbrOfWorkers() = 1
  [14:18:28.410] SequentialFuture started (and completed)
  [14:18:28.410] signalConditions() ...
  [14:18:28.411]  - include = 'immediateCondition'
  [14:18:28.411]  - exclude = 
  [14:18:28.412]  - resignal = FALSE
  [14:18:28.412]  - Number of conditions: 605
  [14:18:28.415] signalConditions() ... done
  [14:18:28.416] Chunk #1 of 1 ... DONE
  [14:18:28.417] Launching 1 futures (chunks) ... DONE
  [14:18:28.417] - resolving futures
  [14:18:28.417]   - gathering results & relaying conditions (except errors)
  [14:18:28.418] resolve() on list ...
  [14:18:28.418]  recursive: 0
  [14:18:28.418]  length: 1
  [14:18:28.419] 
  [14:18:28.419] Future #1
  [14:18:28.420] signalConditions() ...
  [14:18:28.420]  - include = 'immediateCondition'
  [14:18:28.420]  - exclude = 
  [14:18:28.421]  - resignal = FALSE
  [14:18:28.421]  - Number of conditions: 605
  [14:18:28.424] signalConditions() ... done
  [14:18:28.425] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:28.425] - nx: 1
  [14:18:28.426] - relay: TRUE
  [14:18:28.426] - stdout: TRUE
  [14:18:28.426] - signal: TRUE
  [14:18:28.427] - resignal: FALSE
  [14:18:28.427] - force: FALSE
  [14:18:28.427] - relayed: [n=1] FALSE
  [14:18:28.428] - queued futures: [n=1] FALSE
  [14:18:28.428]  - until=1
  [14:18:28.429]  - relaying element #1
  [14:18:28.429] signalConditions() ...
  [14:18:28.429]  - include = 'immediateCondition'
  [14:18:28.430]  - exclude = 
  [14:18:28.431]  - resignal = FALSE
  [14:18:28.431]  - Number of conditions: 605
  [14:18:28.434] 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"
  [14:18:28.435] signalConditions() ...
  [14:18:28.435]  - include = 'immediateCondition'
  [14:18:28.436]  - exclude = 
  [14:18:28.436]  - resignal = FALSE
  [14:18:28.436]  - Number of conditions: 605
  [14:18:28.442] signalConditions() ... done
  [14:18:28.442] signalConditions() ...
  [14:18:28.443]  - include = 'condition'
  [14:18:28.443]  - exclude = 'immediateCondition'
  [14:18:28.443]  - resignal = FALSE
  [14:18:28.444]  - Number of conditions: 605
  [14:18:28.444]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:28.445]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:24.321] doFuture() ...
  [14:18:28.445]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:24.323] - dummy globals (as locals): [1] 'b'
  [14:18:28.446]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:24.324] - R expression:
  [14:18:28.446]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:24.325] {
  [14:18:24.325]     doFuture::registerDoFuture()
  [14:18:24.325]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:24.325]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:24.325]         b <- NULL
  [14:18:24.325]         ...future.env <- environment()
  [14:18:24.325]         local({
  [14:18:24.325]             for (name in names(...future.x_jj)) {
  [14:18:24.325]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:24.325]                   inherits = FALSE)
  [14:18:24.325]             }
  [14:18:24.325]         })
  [14:18:24.325]         tryCatch({
  [14:18:24.325]             plan_list <- future::plan("next")
  [14:18:24.325]             message(capture.output(print(plan_list)))
  [14:18:24.325]             stopifnot(inherits(plan_list, "future"))
  [14:18:24.325]             default <- getOption("future.plan", "sequential")
  [14:18:24.325]             if (is.function(default)) 
  [14:18:24.325]                 default <- class(default)
  [14:18:24.325]             stopifnot(inherits(plan_list, default))
  [14:18:24.325]             plan_b <- future::plan("list")
  [14:18:24.325]             str(plan_b)
  [14:18:24.325]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:24.325]                 default))
  [14:18:24.325]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:24.325]         }, error = identity)
  [14:18:24.325]     })
  [14:18:24.325] }
  [14:18:28.447]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:24.326] - identifying globals and packages ...
  [14:18:28.448]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:24.327] getGlobalsAndPackages() ...
  [14:18:28.448]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:24.328] Searching for globals...
  [14:18:28.449]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:24.358] - 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'
  [14:18:28.456]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:24.359] Searching for globals ... DONE
  [14:18:28.457]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:24.360] Resolving globals: FALSE
  [14:18:28.457]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:24.363] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [14:18:28.458]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:24.364] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.459]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:24.364] - packages: [1] 'utils'
  [14:18:28.459]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:24.365] getGlobalsAndPackages() ... DONE
  [14:18:28.460]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:24.365] List of 3
  [14:18:24.365]  $ ...future.x_ii: NULL
  [14:18:24.365]  $ a             : int 1
  [14:18:24.365]  $ plan_a        :List of 1
  [14:18:24.365]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:24.365]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:24.365]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:18:24.365]     label = NULL, ...)  
  [14:18:24.365]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:18:24.365]   .. ..- attr(*, "init")= logi TRUE
  [14:18:24.365]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:24.365]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:24.365]  - attr(*, "where")=List of 3
  [14:18:24.365]   ..$ ...future.x_ii:<environment: 0x562635808a38> 
  [14:18:24.365]   ..$ a             :<environment: 0x5626356c61b8> 
  [14:18:24.365]   ..$ plan_a        :<environment: 0x5626356c61b8> 
  [14:18:24.365]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:24.365]  - attr(*, "resolved")= logi FALSE
  [14:18:24.365]  - attr(*, "total_size")= num 66056
  [14:18:28.461]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:24.387]   - R expression:
  [14:18:28.461]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:24.388] {
  [14:18:24.388]     doFuture::registerDoFuture()
  [14:18:24.388]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:24.388]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:24.388]         b <- NULL
  [14:18:24.388]         ...future.env <- environment()
  [14:18:24.388]         local({
  [14:18:24.388]             for (name in names(...future.x_jj)) {
  [14:18:24.388]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:24.388]                   inherits = FALSE)
  [14:18:24.388]             }
  [14:18:24.388]         })
  [14:18:24.388]         tryCatch({
  [14:18:24.388]             plan_list <- future::plan("next")
  [14:18:24.388]             message(capture.output(print(plan_list)))
  [14:18:24.388]             stopifnot(inherits(plan_list, "future"))
  [14:18:24.388]             default <- getOption("future.plan", "sequential")
  [14:18:24.388]             if (is.function(default)) 
  [14:18:24.388]                 default <- class(default)
  [14:18:24.388]             stopifnot(inherits(plan_list, default))
  [14:18:24.388]             plan_b <- future::plan("list")
  [14:18:24.388]             str(plan_b)
  [14:18:24.388]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:24.388]                 default))
  [14:18:24.388]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:24.388]         }, error = identity)
  [14:18:24.388]     })
  [14:18:24.388] }
  [14:18:28.462]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:24.389]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.462]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:24.390] List of 3
  [14:18:24.390]  $ ...future.x_ii: NULL
  [14:18:24.390]  $ a             : int 1
  [14:18:24.390]  $ plan_a        :List of 1
  [14:18:24.390]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:24.390]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:24.390]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:18:24.390]     label = NULL, ...)  
  [14:18:24.390]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:18:24.390]   .. ..- attr(*, "init")= logi TRUE
  [14:18:24.390]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:24.390]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:24.390]  - attr(*, "where")=List of 3
  [14:18:24.390]   ..$ ...future.x_ii:<environment: 0x562635808a38> 
  [14:18:24.390]   ..$ a             :<environment: 0x5626356c61b8> 
  [14:18:24.390]   ..$ plan_a        :<environment: 0x5626356c61b8> 
  [14:18:24.390]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:24.390]  - attr(*, "resolved")= logi FALSE
  [14:18:24.390]  - attr(*, "total_size")= num 66056
  [14:18:28.463]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:24.407]   - packages: [2] 'doFuture', 'utils'
  [14:18:28.464]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:24.407] - identifying globals and packages ... DONE
  [14:18:28.464]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:24.409] Number of chunks: 2
  [14:18:28.465]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:24.410] Number of futures (= number of chunks): 2
  [14:18:28.465]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:24.411] Launching 2 futures (chunks) ...
  [14:18:28.466]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:24.412] Chunk #1 of 2 ...
  [14:18:28.466]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:24.412]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:28.467]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:24.413] getGlobalsAndPackages() ...
  [14:18:28.468]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:24.413] Searching for globals...
  [14:18:28.468]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:24.414] 
  [14:18:28.469]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:24.415] Searching for globals ... DONE
  [14:18:28.469]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:24.415] - globals: [0] <none>
  [14:18:28.470]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:24.416] getGlobalsAndPackages() ... DONE
  [14:18:28.470]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:24.416] 
  [14:18:28.471]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:24.417] 
  [14:18:28.471]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:24.417]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:28.472]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:18:28.472]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 29118
  [14:18:28.473]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [14:18:28.474]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:18:28.474]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.675755f94cd8.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpM3F4lz/future.parent=26455.675755f94cd8.pid')"'
  [14:18:28.475]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:18:28.475]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26455:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.675755f94cd8.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=29118 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:18:28.476]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:18:28.476]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [14:18:28.477]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [14:18:28.477]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:18:28.478]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [14:18:28.487]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [14:18:28.488]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:18:28.488]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.675763ce79c4.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpM3F4lz/future.parent=26455.675763ce79c4.pid')"'
  [14:18:28.489]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:18:28.490]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:26455:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpM3F4lz/future.parent=26455.675763ce79c4.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=29118 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:18:28.490]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:18:28.491]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [14:18:28.491]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [14:18:28.492]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:18:28.492]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [14:18:28.493]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:26.877] getGlobalsAndPackages() ...
  [14:18:28.493]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:26.877] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.494]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:26.878] Resolving globals: FALSE
  [14:18:28.494]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:26.880] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [14:18:28.495]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:26.880] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.496]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:26.881] 
  [14:18:28.496]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:26.881] getGlobalsAndPackages() ... DONE
  [14:18:28.497]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:26.886] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:28.497]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:26.886] Packages needed by future strategies (n = 0): <none>
  [14:18:28.498]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:26.893] {
  [14:18:26.893]     {
  [14:18:26.893]         ...future.startTime <- base::Sys.time()
  [14:18:26.893]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:26.893]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:26.893]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:26.893]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:26.893]             future.resolve.recursive = NULL, width = 80L)
  [14:18:26.893]         {
  [14:18:26.893]             {
  [14:18:26.893]                 {
  [14:18:26.893]                   has_future <- base::requireNamespace("future", 
  [14:18:26.893]                     quietly = TRUE)
  [14:18:26.893]                   version <- if (has_future) 
  [14:18:26.893]                     utils::packageVersion("future")
  [14:18:26.893]                   else NULL
  [14:18:26.893]                   if (!has_future || version < "1.8.0") {
  [14:18:26.893]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:26.893]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:26.893]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:26.893]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:26.893]                         "release", "version")], collapse = " "), 
  [14:18:26.893]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:26.893]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:26.893]                       info)
  [14:18:26.893]                     info <- base::paste(info, collapse = "; ")
  [14:18:26.893]                     if (!has_future) {
  [14:18:26.893]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:26.893]                         info)
  [14:18:26.893]                     }
  [14:18:26.893]                     else {
  [14:18:26.893]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:26.893]                         info, version)
  [14:18:26.893]                     }
  [14:18:26.893]                     base::stop(msg)
  [14:18:26.893]                   }
  [14:18:26.893]                 }
  [14:18:26.893]                 base::local({
  [14:18:26.893]                   for (pkg in c("doFuture", "utils")) {
  [14:18:26.893]                     base::loadNamespace(pkg)
  [14:18:26.893]                     base::library(pkg, character.only = TRUE)
  [14:18:26.893]                   }
  [14:18:26.893]                 })
  [14:18:26.893]             }
  [14:18:26.893]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:26.893]         }
  [14:18:26.893]     }
  [14:18:26.893]     if (base::is.na(TRUE)) {
  [14:18:26.893]     }
  [14:18:26.893]     else {
  [14:18:26.893]         if (TRUE) {
  [14:18:26.893]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:26.893]                 open = "w")
  [14:18:26.893]         }
  [14:18:26.893]         else {
  [14:18:26.893]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:26.893]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:26.893]         }
  [14:18:26.893]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:26.893]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:26.893]             base::sink(type = "output", split = FALSE)
  [14:18:26.893]             base::close(...future.stdout)
  [14:18:26.893]         }, add = TRUE)
  [14:18:26.893]     }
  [14:18:26.893]     ...future.frame <- base::sys.nframe()
  [14:18:26.893]     ...future.conditions <- base::list()
  [14:18:26.893]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:26.893]     ...future.result <- base::tryCatch({
  [14:18:26.893]         base::withCallingHandlers({
  [14:18:26.893]             ...future.value <- base::withVisible(base::local({
  [14:18:26.893]                 ...future.sendCondition <- local({
  [14:18:26.893]                   sendCondition <- NULL
  [14:18:26.893]                   function(frame = 1L) {
  [14:18:26.893]                     if (is.function(sendCondition)) 
  [14:18:26.893]                       return(sendCondition)
  [14:18:26.893]                     ns <- getNamespace("parallel")
  [14:18:26.893]                     if (exists("sendData", mode = "function", 
  [14:18:26.893]                       envir = ns)) {
  [14:18:26.893]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:26.893]                         envir = ns)
  [14:18:26.893]                       envir <- sys.frame(frame)
  [14:18:26.893]                       master <- NULL
  [14:18:26.893]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:26.893]                         !identical(envir, emptyenv())) {
  [14:18:26.893]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:26.893]                           inherits = FALSE)) {
  [14:18:26.893]                           master <- get("master", mode = "list", 
  [14:18:26.893]                             envir = envir, inherits = FALSE)
  [14:18:26.893]                           if (inherits(master, "SOCKnode")) {
  [14:18:26.893]                             sendCondition <<- function(cond) {
  [14:18:26.893]                               data <- list(type = "VALUE", value = cond, 
  [14:18:26.893]                                 success = TRUE)
  [14:18:26.893]                               parallel_sendData(master, data)
  [14:18:26.893]                             }
  [14:18:26.893]                             return(sendCondition)
  [14:18:26.893]                           }
  [14:18:26.893]                         }
  [14:18:26.893]                         frame <- frame + 1L
  [14:18:26.893]                         envir <- sys.frame(frame)
  [14:18:26.893]                       }
  [14:18:26.893]                     }
  [14:18:26.893]                     sendCondition <<- function(cond) NULL
  [14:18:26.893]                   }
  [14:18:26.893]                 })
  [14:18:26.893]                 withCallingHandlers({
  [14:18:26.893]                   {
  [14:18:26.893]                     doFuture::registerDoFuture()
  [14:18:26.893]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:26.893]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:26.893]                       b <- NULL
  [14:18:26.893]                       ...future.env <- environment()
  [14:18:26.893]                       local({
  [14:18:26.893]                         for (name in names(...future.x_jj)) {
  [14:18:26.893]                           assign(name, ...future.x_jj[[name]], 
  [14:18:26.893]                             envir = ...future.env, inherits = FALSE)
  [14:18:26.893]                         }
  [14:18:26.893]                       })
  [14:18:26.893]                       tryCatch({
  [14:18:26.893]                         plan_list <- future::plan("next")
  [14:18:26.893]                         message(capture.output(print(plan_list)))
  [14:18:26.893]                         stopifnot(inherits(plan_list, "future"))
  [14:18:26.893]                         default <- getOption("future.plan", "sequential")
  [14:18:26.893]                         if (is.function(default)) 
  [14:18:26.893]                           default <- class(default)
  [14:18:26.893]                         stopifnot(inherits(plan_list, default))
  [14:18:26.893]                         plan_b <- future::plan("list")
  [14:18:26.893]                         str(plan_b)
  [14:18:26.893]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:26.893]                           inherits(plan_b[[1]], default))
  [14:18:26.893]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:26.893]                       }, error = identity)
  [14:18:26.893]                     })
  [14:18:26.893]                   }
  [14:18:26.893]                 }, immediateCondition = function(cond) {
  [14:18:26.893]                   sendCondition <- ...future.sendCondition()
  [14:18:26.893]                   sendCondition(cond)
  [14:18:26.893]                   muffleCondition <- function (cond) 
  [14:18:26.893]                   {
  [14:18:26.893]                     inherits <- base::inherits
  [14:18:26.893]                     invokeRestart <- base::invokeRestart
  [14:18:26.893]                     muffled <- FALSE
  [14:18:26.893]                     if (inherits(cond, "message")) {
  [14:18:26.893]                       invokeRestart("muffleMessage")
  [14:18:26.893]                       muffled <- TRUE
  [14:18:26.893]                     }
  [14:18:26.893]                     else if (inherits(cond, "warning")) {
  [14:18:26.893]                       invokeRestart("muffleWarning")
  [14:18:26.893]                       muffled <- TRUE
  [14:18:26.893]                     }
  [14:18:26.893]                     else if (inherits(cond, "condition")) {
  [14:18:26.893]                       computeRestarts <- base::computeRestarts
  [14:18:26.893]                       grepl <- base::grepl
  [14:18:26.893]                       is.null <- base::is.null
  [14:18:26.893]                       restarts <- computeRestarts(cond)
  [14:18:26.893]                       for (restart in restarts) {
  [14:18:26.893]                         name <- restart$name
  [14:18:26.893]                         if (is.null(name)) 
  [14:18:26.893]                           next
  [14:18:26.893]                         if (!grepl("^muffle", name)) 
  [14:18:26.893]                           next
  [14:18:26.893]                         invokeRestart(restart)
  [14:18:26.893]                         muffled <- TRUE
  [14:18:26.893]                         break
  [14:18:26.893]                       }
  [14:18:26.893]                     }
  [14:18:26.893]                     invisible(muffled)
  [14:18:26.893]                   }
  [14:18:26.893]                   muffleCondition(cond)
  [14:18:26.893]                 })
  [14:18:26.893]             }))
  [14:18:26.893]             future::FutureResult(value = ...future.value$value, 
  [14:18:26.893]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:26.893]                   ...future.rng), started = ...future.startTime, 
  [14:18:26.893]                 version = "1.8")
  [14:18:26.893]         }, condition = base::local({
  [14:18:26.893]             c <- base::c
  [14:18:26.893]             inherits <- base::inherits
  [14:18:26.893]             invokeRestart <- base::invokeRestart
  [14:18:26.893]             length <- base::length
  [14:18:26.893]             list <- base::list
  [14:18:26.893]             seq.int <- base::seq.int
  [14:18:26.893]             signalCondition <- base::signalCondition
  [14:18:26.893]             sys.calls <- base::sys.calls
  [14:18:26.893]             Sys.time <- base::Sys.time
  [14:18:26.893]             `[[` <- base::`[[`
  [14:18:26.893]             `+` <- base::`+`
  [14:18:26.893]             `<<-` <- base::`<<-`
  [14:18:26.893]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:26.893]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:26.893]                   3L)]
  [14:18:26.893]             }
  [14:18:26.893]             function(cond) {
  [14:18:26.893]                 if (inherits(cond, "error")) {
  [14:18:26.893]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:26.893]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:26.893]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:26.893]                   signalCondition(cond)
  [14:18:26.893]                 }
  [14:18:26.893]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:26.893]                 ))) {
  [14:18:26.893]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:26.893]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:26.893]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:26.893]                   if (!signal) {
  [14:18:26.893]                     muffleCondition <- function (cond) 
  [14:18:26.893]                     {
  [14:18:26.893]                       inherits <- base::inherits
  [14:18:26.893]                       invokeRestart <- base::invokeRestart
  [14:18:26.893]                       muffled <- FALSE
  [14:18:26.893]                       if (inherits(cond, "message")) {
  [14:18:26.893]                         invokeRestart("muffleMessage")
  [14:18:26.893]                         muffled <- TRUE
  [14:18:26.893]                       }
  [14:18:26.893]                       else if (inherits(cond, "warning")) {
  [14:18:26.893]                         invokeRestart("muffleWarning")
  [14:18:26.893]                         muffled <- TRUE
  [14:18:26.893]                       }
  [14:18:26.893]                       else if (inherits(cond, "condition")) {
  [14:18:26.893]                         computeRestarts <- base::computeRestarts
  [14:18:26.893]                         grepl <- base::grepl
  [14:18:26.893]                         is.null <- base::is.null
  [14:18:26.893]                         restarts <- computeRestarts(cond)
  [14:18:26.893]                         for (restart in restarts) {
  [14:18:26.893]                           name <- restart$name
  [14:18:26.893]                           if (is.null(name)) 
  [14:18:26.893]                             next
  [14:18:26.893]                           if (!grepl("^muffle", name)) 
  [14:18:26.893]                             next
  [14:18:26.893]                           invokeRestart(restart)
  [14:18:26.893]                           muffled <- TRUE
  [14:18:26.893]                           break
  [14:18:26.893]                         }
  [14:18:26.893]                       }
  [14:18:26.893]                       invisible(muffled)
  [14:18:26.893]                     }
  [14:18:26.893]                     muffleCondition(cond)
  [14:18:26.893]                   }
  [14:18:26.893]                 }
  [14:18:26.893]             }
  [14:18:26.893]         }))
  [14:18:26.893]     }, error = function(ex) {
  [14:18:26.893]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:26.893]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:26.893]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:26.893]     }, finally = {
  [14:18:26.893]         {
  [14:18:26.893]             NULL
  [14:18:26.893]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:26.893]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:26.893]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:26.893]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:18:26.893]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:26.893]                 ...) 
  [14:18:26.893]             {
  [14:18:26.893]                 if (substitute) 
  [14:18:26.893]                   expr <- substitute(expr)
  [14:18:26.893]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:26.893]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:26.893]                   globals = globals, persistent = persistent, 
  [14:18:26.893]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:26.893]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:26.893]                   label = label, ...)
  [14:18:26.893]                 if (!future$lazy) 
  [14:18:26.893]                   future <- run(future)
  [14:18:26.893]                 invisible(future)
  [14:18:26.893]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:26.893]         }
  [14:18:26.893]         base::options(...future.oldOptions)
  [14:18:26.893]     })
  [14:18:26.893]     Sys.time
  [14:18:26.893]     if (base::is.na(TRUE)) {
  [14:18:26.893]     }
  [14:18:26.893]     else {
  [14:18:26.893]         base::sink(type = "output", split = FALSE)
  [14:18:26.893]         if (TRUE) {
  [14:18:26.893]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:26.893]         }
  [14:18:26.893]         else {
  [14:18:26.893]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:26.893]         }
  [14:18:26.893]         base::close(...future.stdout)
  [14:18:26.893]         ...future.stdout <- NULL
  [14:18:26.893]     }
  [14:18:26.893]     ...future.result$conditions <- ...future.conditions
  [14:18:26.893]     ...future.result
  [14:18:26.893] }
  [14:18:28.498]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:26.900] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [14:18:28.499]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:26.901] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:18:28.499]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:26.902] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:18:28.500]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:26.903] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:18:28.500]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:26.904] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:18:28.501]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:26.905] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [14:18:28.501]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:26.947] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [14:18:28.502]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:26.948] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [14:18:28.515]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:26.949] ClusterFuture started
  [14:18:28.515]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:26.950] Chunk #1 of 2 ... DONE
  [14:18:28.516]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:26.950] Chunk #2 of 2 ...
  [14:18:28.516]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:26.951]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:28.517]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:26.951] getGlobalsAndPackages() ...
  [14:18:28.517]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:26.952] Searching for globals...
  [14:18:28.518]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:26.953] 
  [14:18:28.519]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:26.954] Searching for globals ... DONE
  [14:18:28.519]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:26.954] - globals: [0] <none>
  [14:18:28.520]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:26.955] getGlobalsAndPackages() ... DONE
  [14:18:28.520]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:26.955] 
  [14:18:28.521]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:26.956] 
  [14:18:28.521]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:26.956]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:28.522]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:26.958] getGlobalsAndPackages() ...
  [14:18:28.522]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:26.959] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.523]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:26.960] Resolving globals: FALSE
  [14:18:28.523]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:26.961] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [14:18:28.524]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:26.962] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.525]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:26.962] 
  [14:18:28.525]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:26.963] getGlobalsAndPackages() ... DONE
  [14:18:28.526]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:26.967] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:28.526]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:26.968] Packages needed by future strategies (n = 0): <none>
  [14:18:28.527]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:26.979] {
  [14:18:26.979]     {
  [14:18:26.979]         ...future.startTime <- base::Sys.time()
  [14:18:26.979]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:26.979]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:26.979]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:26.979]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:26.979]             future.resolve.recursive = NULL, width = 80L)
  [14:18:26.979]         {
  [14:18:26.979]             {
  [14:18:26.979]                 {
  [14:18:26.979]                   has_future <- base::requireNamespace("future", 
  [14:18:26.979]                     quietly = TRUE)
  [14:18:26.979]                   version <- if (has_future) 
  [14:18:26.979]                     utils::packageVersion("future")
  [14:18:26.979]                   else NULL
  [14:18:26.979]                   if (!has_future || version < "1.8.0") {
  [14:18:26.979]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:26.979]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:26.979]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:26.979]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:26.979]                         "release", "version")], collapse = " "), 
  [14:18:26.979]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:26.979]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:26.979]                       info)
  [14:18:26.979]                     info <- base::paste(info, collapse = "; ")
  [14:18:26.979]                     if (!has_future) {
  [14:18:26.979]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:26.979]                         info)
  [14:18:26.979]                     }
  [14:18:26.979]                     else {
  [14:18:26.979]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:26.979]                         info, version)
  [14:18:26.979]                     }
  [14:18:26.979]                     base::stop(msg)
  [14:18:26.979]                   }
  [14:18:26.979]                 }
  [14:18:26.979]                 base::local({
  [14:18:26.979]                   for (pkg in c("doFuture", "utils")) {
  [14:18:26.979]                     base::loadNamespace(pkg)
  [14:18:26.979]                     base::library(pkg, character.only = TRUE)
  [14:18:26.979]                   }
  [14:18:26.979]                 })
  [14:18:26.979]             }
  [14:18:26.979]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:26.979]         }
  [14:18:26.979]     }
  [14:18:26.979]     if (base::is.na(TRUE)) {
  [14:18:26.979]     }
  [14:18:26.979]     else {
  [14:18:26.979]         if (TRUE) {
  [14:18:26.979]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:26.979]                 open = "w")
  [14:18:26.979]         }
  [14:18:26.979]         else {
  [14:18:26.979]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:26.979]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:26.979]         }
  [14:18:26.979]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:26.979]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:26.979]             base::sink(type = "output", split = FALSE)
  [14:18:26.979]             base::close(...future.stdout)
  [14:18:26.979]         }, add = TRUE)
  [14:18:26.979]     }
  [14:18:26.979]     ...future.frame <- base::sys.nframe()
  [14:18:26.979]     ...future.conditions <- base::list()
  [14:18:26.979]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:26.979]     ...future.result <- base::tryCatch({
  [14:18:26.979]         base::withCallingHandlers({
  [14:18:26.979]             ...future.value <- base::withVisible(base::local({
  [14:18:26.979]                 ...future.sendCondition <- local({
  [14:18:26.979]                   sendCondition <- NULL
  [14:18:26.979]                   function(frame = 1L) {
  [14:18:26.979]                     if (is.function(sendCondition)) 
  [14:18:26.979]                       return(sendCondition)
  [14:18:26.979]                     ns <- getNamespace("parallel")
  [14:18:26.979]                     if (exists("sendData", mode = "function", 
  [14:18:26.979]                       envir = ns)) {
  [14:18:26.979]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:26.979]                         envir = ns)
  [14:18:26.979]                       envir <- sys.frame(frame)
  [14:18:26.979]                       master <- NULL
  [14:18:26.979]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:26.979]                         !identical(envir, emptyenv())) {
  [14:18:26.979]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:26.979]                           inherits = FALSE)) {
  [14:18:26.979]                           master <- get("master", mode = "list", 
  [14:18:26.979]                             envir = envir, inherits = FALSE)
  [14:18:26.979]                           if (inherits(master, "SOCKnode")) {
  [14:18:26.979]                             sendCondition <<- function(cond) {
  [14:18:26.979]                               data <- list(type = "VALUE", value = cond, 
  [14:18:26.979]                                 success = TRUE)
  [14:18:26.979]                               parallel_sendData(master, data)
  [14:18:26.979]                             }
  [14:18:26.979]                             return(sendCondition)
  [14:18:26.979]                           }
  [14:18:26.979]                         }
  [14:18:26.979]                         frame <- frame + 1L
  [14:18:26.979]                         envir <- sys.frame(frame)
  [14:18:26.979]                       }
  [14:18:26.979]                     }
  [14:18:26.979]                     sendCondition <<- function(cond) NULL
  [14:18:26.979]                   }
  [14:18:26.979]                 })
  [14:18:26.979]                 withCallingHandlers({
  [14:18:26.979]                   {
  [14:18:26.979]                     doFuture::registerDoFuture()
  [14:18:26.979]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:26.979]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:26.979]                       b <- NULL
  [14:18:26.979]                       ...future.env <- environment()
  [14:18:26.979]                       local({
  [14:18:26.979]                         for (name in names(...future.x_jj)) {
  [14:18:26.979]                           assign(name, ...future.x_jj[[name]], 
  [14:18:26.979]                             envir = ...future.env, inherits = FALSE)
  [14:18:26.979]                         }
  [14:18:26.979]                       })
  [14:18:26.979]                       tryCatch({
  [14:18:26.979]                         plan_list <- future::plan("next")
  [14:18:26.979]                         message(capture.output(print(plan_list)))
  [14:18:26.979]                         stopifnot(inherits(plan_list, "future"))
  [14:18:26.979]                         default <- getOption("future.plan", "sequential")
  [14:18:26.979]                         if (is.function(default)) 
  [14:18:26.979]                           default <- class(default)
  [14:18:26.979]                         stopifnot(inherits(plan_list, default))
  [14:18:26.979]                         plan_b <- future::plan("list")
  [14:18:26.979]                         str(plan_b)
  [14:18:26.979]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:26.979]                           inherits(plan_b[[1]], default))
  [14:18:26.979]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:26.979]                       }, error = identity)
  [14:18:26.979]                     })
  [14:18:26.979]                   }
  [14:18:26.979]                 }, immediateCondition = function(cond) {
  [14:18:26.979]                   sendCondition <- ...future.sendCondition()
  [14:18:26.979]                   sendCondition(cond)
  [14:18:26.979]                   muffleCondition <- function (cond) 
  [14:18:26.979]                   {
  [14:18:26.979]                     inherits <- base::inherits
  [14:18:26.979]                     invokeRestart <- base::invokeRestart
  [14:18:26.979]                     muffled <- FALSE
  [14:18:26.979]                     if (inherits(cond, "message")) {
  [14:18:26.979]                       invokeRestart("muffleMessage")
  [14:18:26.979]                       muffled <- TRUE
  [14:18:26.979]                     }
  [14:18:26.979]                     else if (inherits(cond, "warning")) {
  [14:18:26.979]                       invokeRestart("muffleWarning")
  [14:18:26.979]                       muffled <- TRUE
  [14:18:26.979]                     }
  [14:18:26.979]                     else if (inherits(cond, "condition")) {
  [14:18:26.979]                       computeRestarts <- base::computeRestarts
  [14:18:26.979]                       grepl <- base::grepl
  [14:18:26.979]                       is.null <- base::is.null
  [14:18:26.979]                       restarts <- computeRestarts(cond)
  [14:18:26.979]                       for (restart in restarts) {
  [14:18:26.979]                         name <- restart$name
  [14:18:26.979]                         if (is.null(name)) 
  [14:18:26.979]                           next
  [14:18:26.979]                         if (!grepl("^muffle", name)) 
  [14:18:26.979]                           next
  [14:18:26.979]                         invokeRestart(restart)
  [14:18:26.979]                         muffled <- TRUE
  [14:18:26.979]                         break
  [14:18:26.979]                       }
  [14:18:26.979]                     }
  [14:18:26.979]                     invisible(muffled)
  [14:18:26.979]                   }
  [14:18:26.979]                   muffleCondition(cond)
  [14:18:26.979]                 })
  [14:18:26.979]             }))
  [14:18:26.979]             future::FutureResult(value = ...future.value$value, 
  [14:18:26.979]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:26.979]                   ...future.rng), started = ...future.startTime, 
  [14:18:26.979]                 version = "1.8")
  [14:18:26.979]         }, condition = base::local({
  [14:18:26.979]             c <- base::c
  [14:18:26.979]             inherits <- base::inherits
  [14:18:26.979]             invokeRestart <- base::invokeRestart
  [14:18:26.979]             length <- base::length
  [14:18:26.979]             list <- base::list
  [14:18:26.979]             seq.int <- base::seq.int
  [14:18:26.979]             signalCondition <- base::signalCondition
  [14:18:26.979]             sys.calls <- base::sys.calls
  [14:18:26.979]             Sys.time <- base::Sys.time
  [14:18:26.979]             `[[` <- base::`[[`
  [14:18:26.979]             `+` <- base::`+`
  [14:18:26.979]             `<<-` <- base::`<<-`
  [14:18:26.979]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:26.979]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:26.979]                   3L)]
  [14:18:26.979]             }
  [14:18:26.979]             function(cond) {
  [14:18:26.979]                 if (inherits(cond, "error")) {
  [14:18:26.979]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:26.979]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:26.979]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:26.979]                   signalCondition(cond)
  [14:18:26.979]                 }
  [14:18:26.979]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:26.979]                 ))) {
  [14:18:26.979]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:26.979]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:26.979]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:26.979]                   if (!signal) {
  [14:18:26.979]                     muffleCondition <- function (cond) 
  [14:18:26.979]                     {
  [14:18:26.979]                       inherits <- base::inherits
  [14:18:26.979]                       invokeRestart <- base::invokeRestart
  [14:18:26.979]                       muffled <- FALSE
  [14:18:26.979]                       if (inherits(cond, "message")) {
  [14:18:26.979]                         invokeRestart("muffleMessage")
  [14:18:26.979]                         muffled <- TRUE
  [14:18:26.979]                       }
  [14:18:26.979]                       else if (inherits(cond, "warning")) {
  [14:18:26.979]                         invokeRestart("muffleWarning")
  [14:18:26.979]                         muffled <- TRUE
  [14:18:26.979]                       }
  [14:18:26.979]                       else if (inherits(cond, "condition")) {
  [14:18:26.979]                         computeRestarts <- base::computeRestarts
  [14:18:26.979]                         grepl <- base::grepl
  [14:18:26.979]                         is.null <- base::is.null
  [14:18:26.979]                         restarts <- computeRestarts(cond)
  [14:18:26.979]                         for (restart in restarts) {
  [14:18:26.979]                           name <- restart$name
  [14:18:26.979]                           if (is.null(name)) 
  [14:18:26.979]                             next
  [14:18:26.979]                           if (!grepl("^muffle", name)) 
  [14:18:26.979]                             next
  [14:18:26.979]                           invokeRestart(restart)
  [14:18:26.979]                           muffled <- TRUE
  [14:18:26.979]                           break
  [14:18:26.979]                         }
  [14:18:26.979]                       }
  [14:18:26.979]                       invisible(muffled)
  [14:18:26.979]                     }
  [14:18:26.979]                     muffleCondition(cond)
  [14:18:26.979]                   }
  [14:18:26.979]                 }
  [14:18:26.979]             }
  [14:18:26.979]         }))
  [14:18:26.979]     }, error = function(ex) {
  [14:18:26.979]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:26.979]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:26.979]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:26.979]     }, finally = {
  [14:18:26.979]         {
  [14:18:26.979]             NULL
  [14:18:26.979]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:26.979]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:26.979]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:26.979]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:18:26.979]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:26.979]                 ...) 
  [14:18:26.979]             {
  [14:18:26.979]                 if (substitute) 
  [14:18:26.979]                   expr <- substitute(expr)
  [14:18:26.979]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:26.979]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:26.979]                   globals = globals, persistent = persistent, 
  [14:18:26.979]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:26.979]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:26.979]                   label = label, ...)
  [14:18:26.979]                 if (!future$lazy) 
  [14:18:26.979]                   future <- run(future)
  [14:18:26.979]                 invisible(future)
  [14:18:26.979]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:26.979]         }
  [14:18:26.979]         base::options(...future.oldOptions)
  [14:18:26.979]     })
  [14:18:26.979]     Sys.time
  [14:18:26.979]     if (base::is.na(TRUE)) {
  [14:18:26.979]     }
  [14:18:26.979]     else {
  [14:18:26.979]         base::sink(type = "output", split = FALSE)
  [14:18:26.979]         if (TRUE) {
  [14:18:26.979]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:26.979]         }
  [14:18:26.979]         else {
  [14:18:26.979]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:26.979]         }
  [14:18:26.979]         base::close(...future.stdout)
  [14:18:26.979]         ...future.stdout <- NULL
  [14:18:26.979]     }
  [14:18:26.979]     ...future.result$conditions <- ...future.conditions
  [14:18:26.979]     ...future.result
  [14:18:26.979] }
  [14:18:28.527]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:27.007] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [14:18:28.528]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:27.007] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:18:28.528]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:27.023] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:18:28.529]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:27.023] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:18:28.529]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:18:27.025] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:18:28.530]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:27.026] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [14:18:28.530]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:18:27.071] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [14:18:28.531]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:27.072] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [14:18:28.532]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:18:27.073] ClusterFuture started
  [14:18:28.532]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:27.074] Chunk #2 of 2 ... DONE
  [14:18:28.533]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:27.074] Launching 2 futures (chunks) ... DONE
  [14:18:28.533]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:27.075] - resolving futures
  [14:18:28.534]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:27.075]   - gathering results & relaying conditions (except errors)
  [14:18:28.534]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:27.076] resolve() on list ...
  [14:18:28.535]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:27.076]  recursive: 0
  [14:18:28.535]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:27.077]  length: 2
  [14:18:28.536]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:27.077] 
  [14:18:28.552]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:27.398] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:28.553]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:27.399] - Validating connection of ClusterFuture
  [14:18:28.553]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:27.439] - received message: FutureResult
  [14:18:28.554]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:27.440] - Received FutureResult
  [14:18:28.555]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:27.440] - Erased future from FutureRegistry
  [14:18:28.555]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:27.441] result() for ClusterFuture ...
  [14:18:28.556]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:27.441] - result already collected: FutureResult
  [14:18:28.557]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:18:27.442] result() for ClusterFuture ... done
  [14:18:28.557]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:27.442] signalConditions() ...
  [14:18:28.558]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:27.443]  - include = 'immediateCondition'
  [14:18:28.558]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:27.443]  - exclude = 
  [14:18:28.559]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:27.444]  - resignal = FALSE
  [14:18:28.560]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:27.444]  - Number of conditions: 2
  [14:18:28.560]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:27.445] signalConditions() ... done
  [14:18:28.561]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:27.446] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:28.561]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:27.446] Future #2
  [14:18:28.562]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:27.447] result() for ClusterFuture ...
  [14:18:28.563]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:27.447] - result already collected: FutureResult
  [14:18:28.563]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:27.448] result() for ClusterFuture ... done
  [14:18:28.564]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:27.448] result() for ClusterFuture ...
  [14:18:28.564]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:27.449] - result already collected: FutureResult
  [14:18:28.565]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:27.449] result() for ClusterFuture ... done
  [14:18:28.566]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:27.450] signalConditions() ...
  [14:18:28.566]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:18:27.462]  - include = 'immediateCondition'
  [14:18:28.567]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:18:27.463]  - exclude = 
  [14:18:28.567]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:18:27.464]  - resignal = FALSE
  [14:18:28.568]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:18:27.464]  - Number of conditions: 2
  [14:18:28.568]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:18:27.465] signalConditions() ... done
  [14:18:28.569]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:18:27.465] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:18:28.569]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:18:27.466] - nx: 2
  [14:18:28.570]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:18:27.466] - relay: TRUE
  [14:18:28.578]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:18:27.467] - stdout: TRUE
  [14:18:28.578]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:18:27.467] - signal: TRUE
  [14:18:28.579]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:18:27.468] - resignal: FALSE
  [14:18:28.580]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:18:27.468] - force: FALSE
  [14:18:28.580]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:18:27.469] - relayed: [n=2] FALSE, FALSE
  [14:18:28.581]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:18:27.469] - queued futures: [n=2] FALSE, FALSE
  [14:18:28.581]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:18:27.470]  - until=1
  [14:18:28.582]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:18:27.470]  - relaying element #1
  [14:18:28.582]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:18:27.471] - relayed: [n=2] FALSE, FALSE
  [14:18:28.583]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:18:27.471] - queued futures: [n=2] FALSE, TRUE
  [14:18:28.583]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:18:27.472] signalConditionsASAP(NULL, pos=2) ... done
  [14:18:28.584]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:18:27.472]  length: 1 (resolved future 2)
  [14:18:28.584]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:18:27.584] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:28.585]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:18:27.584] - Validating connection of ClusterFuture
  [14:18:28.585]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:18:27.585] - received message: FutureResult
  [14:18:28.586]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:18:27.586] - Received FutureResult
  [14:18:28.587]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:18:27.586] - Erased future from FutureRegistry
  [14:18:28.587]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:18:27.587] result() for ClusterFuture ...
  [14:18:28.588]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:18:27.587] - result already collected: FutureResult
  [14:18:28.588]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:18:27.588] result() for ClusterFuture ... done
  [14:18:28.589]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:18:27.588] signalConditions() ...
  [14:18:28.589]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:18:27.589]  - include = 'immediateCondition'
  [14:18:28.590]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:18:27.589]  - exclude = 
  [14:18:28.590]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:18:27.590]  - resignal = FALSE
  [14:18:28.591]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:18:27.590]  - Number of conditions: 1
  [14:18:28.592]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:18:27.591] signalConditions() ... done
  [14:18:28.592]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:18:27.591] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:28.593]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:18:27.592] Future #1
  [14:18:28.593]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:18:27.592] result() for ClusterFuture ...
  [14:18:28.594]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:18:27.593] - result already collected: FutureResult
  [14:18:28.594]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:18:27.593] result() for ClusterFuture ... done
  [14:18:28.595]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:18:27.594] result() for ClusterFuture ...
  [14:18:28.595]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:18:27.594] - result already collected: FutureResult
  [14:18:28.596]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:18:27.602] result() for ClusterFuture ... done
  [14:18:28.596]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:18:27.615] signalConditions() ...
  [14:18:28.597]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:18:27.615]  - include = 'immediateCondition'
  [14:18:28.597]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:18:27.616]  - exclude = 
  [14:18:28.598]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:18:27.616]  - resignal = FALSE
  [14:18:28.599]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:18:27.617]  - Number of conditions: 1
  [14:18:28.599]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:18:27.617] signalConditions() ... done
  [14:18:28.600]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:18:27.622] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:18:28.600]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:18:27.623] - nx: 2
  [14:18:28.601]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:18:27.623] - relay: TRUE
  [14:18:28.601]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:18:27.624] - stdout: TRUE
  [14:18:28.602]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:18:27.624] - signal: TRUE
  [14:18:28.602]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:18:27.625] - resignal: FALSE
  [14:18:28.603]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:18:27.625] - force: FALSE
  [14:18:28.603]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:18:27.626] - relayed: [n=2] FALSE, FALSE
  [14:18:28.604]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:18:27.626] - queued futures: [n=2] FALSE, TRUE
  [14:18:28.605]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:18:27.627]  - until=1
  [14:18:28.605]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:18:27.627]  - relaying element #1
  [14:18:28.606]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:18:27.628] result() for ClusterFuture ...
  [14:18:28.606]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:18:27.628] - result already collected: FutureResult
  [14:18:28.607]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:18:27.629] result() for ClusterFuture ... done
  [14:18:28.608]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:18:27.629] result() for ClusterFuture ...
  [14:18:28.608]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:18:27.630] - result already collected: FutureResult
  [14:18:28.609]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:18:27.647] result() for ClusterFuture ... done
  [14:18:28.610]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:18:27.647] signalConditions() ...
  [14:18:28.610]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:18:27.648]  - include = 'immediateCondition'
  [14:18:28.611]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:18:27.648]  - exclude = 
  [14:18:28.611]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:18:27.649]  - resignal = FALSE
  [14:18:28.612]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:18:27.649]  - Number of conditions: 1
  [14:18:28.612]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:18:27.650] signalConditions() ... done
  [14:18:28.613]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:18:27.650] result() for ClusterFuture ...
  [14:18:28.613]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:18:27.651] - result already collected: FutureResult
  [14:18:28.614]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:18:27.651] result() for ClusterFuture ... done
  [14:18:28.615]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:18:27.652] signalConditions() ...
  [14:18:28.615]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:18:27.652]  - include = 'immediateCondition'
  [14:18:28.616]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:18:27.653]  - exclude = 
  [14:18:28.616]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:18:27.653]  - resignal = FALSE
  [14:18:28.617]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:18:27.654]  - Number of conditions: 1
  [14:18:28.617]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:18:27.654] signalConditions() ... done
  [14:18:28.618]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:18:27.655] result() for ClusterFuture ...
  [14:18:28.618]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:18:27.655] - result already collected: FutureResult
  [14:18:28.631]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:18:27.656] result() for ClusterFuture ... done
  [14:18:28.631]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:18:27.656] signalConditions() ...
  [14:18:28.632]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:18:27.657]  - include = 'condition'
  [14:18:28.633]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:18:27.657]  - exclude = 'immediateCondition'
  [14:18:28.633]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:18:27.658]  - resignal = FALSE
  [14:18:28.634]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:18:27.658]  - Number of conditions: 1
  [14:18:28.634]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:18:27.658]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:28.635]  - Condition #229: '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
  [14:18:28.636]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:18:27.659] signalConditions() ... done
  [14:18:28.636]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:18:27.660] - relayed: [n=2] TRUE, FALSE
  [14:18:28.637]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:18:27.660] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.637]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:18:27.660] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:18:28.638]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:18:27.661]  length: 0 (resolved future 1)
  [14:18:28.639]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:18:27.661] Relaying remaining futures
  [14:18:28.639]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:18:27.662] signalConditionsASAP(NULL, pos=0) ...
  [14:18:28.640]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:18:27.678] - nx: 2
  [14:18:28.641]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:18:27.679] - relay: TRUE
  [14:18:28.641]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:18:27.679] - stdout: TRUE
  [14:18:28.642]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:18:27.680] - signal: TRUE
  [14:18:28.642]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:18:27.680] - resignal: FALSE
  [14:18:28.643]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:18:27.681] - force: FALSE
  [14:18:28.644]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:18:27.681] - relayed: [n=2] TRUE, FALSE
  [14:18:28.644]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:18:27.682] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.645]  - Condition #245: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:28.645]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:18:27.683]  - relaying element #2
  [14:18:28.646]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:18:27.683] result() for ClusterFuture ...
  [14:18:28.647]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:18:27.684] - result already collected: FutureResult
  [14:18:28.647]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:18:27.684] result() for ClusterFuture ... done
  [14:18:28.648]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:18:27.685] result() for ClusterFuture ...
  [14:18:28.648]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:18:27.685] - result already collected: FutureResult
  [14:18:28.649]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:18:27.686] result() for ClusterFuture ... done
  [14:18:28.649]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:18:27.686] signalConditions() ...
  [14:18:28.650]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:18:27.687]  - include = 'immediateCondition'
  [14:18:28.650]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:18:27.687]  - exclude = 
  [14:18:28.651]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:18:27.688]  - resignal = FALSE
  [14:18:28.651]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:18:27.688]  - Number of conditions: 2
  [14:18:28.652]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:18:27.689] signalConditions() ... done
  [14:18:28.652]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:18:27.689] result() for ClusterFuture ...
  [14:18:28.653]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:18:27.690] - result already collected: FutureResult
  [14:18:28.653]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:18:27.690] result() for ClusterFuture ... done
  [14:18:28.654]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:18:27.691] signalConditions() ...
  [14:18:28.654]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:18:27.691]  - include = 'immediateCondition'
  [14:18:28.655]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:18:27.692]  - exclude = 
  [14:18:28.655]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:18:27.692]  - resignal = FALSE
  [14:18:28.656]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:18:27.692]  - Number of conditions: 2
  [14:18:28.656]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:18:27.693] signalConditions() ... done
  [14:18:28.656]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:18:27.693] result() for ClusterFuture ...
  [14:18:28.657]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:18:27.694] - result already collected: FutureResult
  [14:18:28.657]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:18:27.711] result() for ClusterFuture ... done
  [14:18:28.658]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:18:27.711] signalConditions() ...
  [14:18:28.658]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:18:27.712]  - include = 'condition'
  [14:18:28.659]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:18:27.712]  - exclude = 'immediateCondition'
  [14:18:28.659]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:18:27.713]  - resignal = FALSE
  [14:18:28.660]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:18:27.713]  - Number of conditions: 2
  [14:18:28.660]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:18:27.714]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:28.661]  - Condition #277: '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
  [14:18:28.661]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:18:27.714]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:28.662]  - Condition #279: '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
  [14:18:28.662]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:18:27.715] signalConditions() ... done
  [14:18:28.663]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:18:27.715] - relayed: [n=2] TRUE, TRUE
  [14:18:28.663]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:18:27.716] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.664]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:18:27.716] signalConditionsASAP(ClusterFuture, pos=0) ... done
  [14:18:28.664]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:18:27.717] resolve() on list ... DONE
  [14:18:28.665]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:18:27.717] - collecting values of futures
  [14:18:28.665]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:18:27.718] result() for ClusterFuture ...
  [14:18:28.666]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:18:27.718] - result already collected: FutureResult
  [14:18:28.667]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:18:27.719] result() for ClusterFuture ... done
  [14:18:28.667]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:18:27.719] result() for ClusterFuture ...
  [14:18:28.668]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:18:27.720] - result already collected: FutureResult
  [14:18:28.668]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:18:27.720] result() for ClusterFuture ... done
  [14:18:28.669]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:18:27.721] signalConditions() ...
  [14:18:28.669]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:18:27.721]  - include = 'immediateCondition'
  [14:18:28.670]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:18:27.721]  - exclude = 
  [14:18:28.670]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:18:27.722]  - resignal = FALSE
  [14:18:28.671]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:18:27.722]  - Number of conditions: 1
  [14:18:28.671]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:18:27.723] signalConditions() ... done
  [14:18:28.672]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:18:27.723] result() for ClusterFuture ...
  [14:18:28.672]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:18:27.724] - result already collected: FutureResult
  [14:18:28.673]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:18:27.724] result() for ClusterFuture ... done
  [14:18:28.673]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:18:27.725] result() for ClusterFuture ...
  [14:18:28.674]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:18:27.725] - result already collected: FutureResult
  [14:18:28.674]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:18:27.726] result() for ClusterFuture ... done
  [14:18:28.675]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:18:27.726] signalConditions() ...
  [14:18:28.676]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:18:27.743]  - include = 'immediateCondition'
  [14:18:28.676]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:18:27.743]  - exclude = 
  [14:18:28.677]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:18:27.744]  - resignal = FALSE
  [14:18:28.677]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:18:27.745]  - Number of conditions: 2
  [14:18:28.678]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:18:27.751] signalConditions() ... done
  [14:18:28.678]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:18:27.752] - accumulating results
  [14:18:28.679]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:18:27.754] - processing errors (handler = 'stop')
  [14:18:28.679]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:18:27.754] - extracting results
  [14:18:28.680]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:18:27.755] doFuture() ... DONE
  [14:18:28.681]  - Condition #314: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:28.681]  - Condition #315: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:28.682]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:18:27.780] doFuture() ...
  [14:18:28.682]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:18:27.781] - dummy globals (as locals): [1] 'b'
  [14:18:28.683]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:18:27.783] - R expression:
  [14:18:28.683]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:18:27.783] {
  [14:18:27.783]     doFuture::registerDoFuture()
  [14:18:27.783]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:27.783]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:27.783]         b <- NULL
  [14:18:27.783]         ...future.env <- environment()
  [14:18:27.783]         local({
  [14:18:27.783]             for (name in names(...future.x_jj)) {
  [14:18:27.783]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:27.783]                   inherits = FALSE)
  [14:18:27.783]             }
  [14:18:27.783]         })
  [14:18:27.783]         tryCatch({
  [14:18:27.783]             plan_list <- future::plan("next")
  [14:18:27.783]             message(capture.output(print(plan_list)))
  [14:18:27.783]             stopifnot(inherits(plan_list, "future"))
  [14:18:27.783]             default <- getOption("future.plan", "sequential")
  [14:18:27.783]             if (is.function(default)) 
  [14:18:27.783]                 default <- class(default)
  [14:18:27.783]             stopifnot(inherits(plan_list, default))
  [14:18:27.783]             plan_b <- future::plan("list")
  [14:18:27.783]             str(plan_b)
  [14:18:27.783]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:27.783]                 default))
  [14:18:27.783]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:27.783]         }, error = identity)
  [14:18:27.783]     })
  [14:18:27.783] }
  [14:18:28.684]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:18:27.784] - identifying globals and packages ...
  [14:18:28.684]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:18:27.785] getGlobalsAndPackages() ...
  [14:18:28.685]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:18:27.786] Searching for globals...
  [14:18:28.685]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:18:27.819] - 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'
  [14:18:28.686]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:18:27.820] Searching for globals ... DONE
  [14:18:28.687]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:18:27.821] Resolving globals: FALSE
  [14:18:28.688]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:18:27.832] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [14:18:28.688]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:18:27.833] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.689]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:18:27.833] - packages: [1] 'utils'
  [14:18:28.690]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:18:27.834] getGlobalsAndPackages() ... DONE
  [14:18:28.690]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:18:27.835] List of 3
  [14:18:27.835]  $ ...future.x_ii: NULL
  [14:18:27.835]  $ a             : int 2
  [14:18:27.835]  $ plan_a        :List of 1
  [14:18:27.835]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:27.835]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:27.835]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:18:27.835]     label = NULL, ...)  
  [14:18:27.835]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:18:27.835]   .. ..- attr(*, "init")= logi TRUE
  [14:18:27.835]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:27.835]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:27.835]  - attr(*, "where")=List of 3
  [14:18:27.835]   ..$ ...future.x_ii:<environment: 0x562633b5e2d0> 
  [14:18:27.835]   ..$ a             :<environment: 0x5626359aace8> 
  [14:18:27.835]   ..$ plan_a        :<environment: 0x5626359aace8> 
  [14:18:27.835]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:27.835]  - attr(*, "resolved")= logi FALSE
  [14:18:27.835]  - attr(*, "total_size")= num 66056
  [14:18:28.691]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:18:27.861]   - R expression:
  [14:18:28.691]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:18:27.861] {
  [14:18:27.861]     doFuture::registerDoFuture()
  [14:18:27.861]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:27.861]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:27.861]         b <- NULL
  [14:18:27.861]         ...future.env <- environment()
  [14:18:27.861]         local({
  [14:18:27.861]             for (name in names(...future.x_jj)) {
  [14:18:27.861]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:27.861]                   inherits = FALSE)
  [14:18:27.861]             }
  [14:18:27.861]         })
  [14:18:27.861]         tryCatch({
  [14:18:27.861]             plan_list <- future::plan("next")
  [14:18:27.861]             message(capture.output(print(plan_list)))
  [14:18:27.861]             stopifnot(inherits(plan_list, "future"))
  [14:18:27.861]             default <- getOption("future.plan", "sequential")
  [14:18:27.861]             if (is.function(default)) 
  [14:18:27.861]                 default <- class(default)
  [14:18:27.861]             stopifnot(inherits(plan_list, default))
  [14:18:27.861]             plan_b <- future::plan("list")
  [14:18:27.861]             str(plan_b)
  [14:18:27.861]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:27.861]                 default))
  [14:18:27.861]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:27.861]         }, error = identity)
  [14:18:27.861]     })
  [14:18:27.861] }
  [14:18:28.692]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:18:27.871]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.692]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:18:27.871] List of 3
  [14:18:27.871]  $ ...future.x_ii: NULL
  [14:18:27.871]  $ a             : int 2
  [14:18:27.871]  $ plan_a        :List of 1
  [14:18:27.871]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:27.871]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:27.871]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:18:27.871]     label = NULL, ...)  
  [14:18:27.871]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:18:27.871]   .. ..- attr(*, "init")= logi TRUE
  [14:18:27.871]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:27.871]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:27.871]  - attr(*, "where")=List of 3
  [14:18:27.871]   ..$ ...future.x_ii:<environment: 0x562633b5e2d0> 
  [14:18:27.871]   ..$ a             :<environment: 0x5626359aace8> 
  [14:18:27.871]   ..$ plan_a        :<environment: 0x5626359aace8> 
  [14:18:27.871]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:27.871]  - attr(*, "resolved")= logi FALSE
  [14:18:27.871]  - attr(*, "total_size")= num 66056
  [14:18:28.693]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:18:27.909]   - packages: [2] 'doFuture', 'utils'
  [14:18:28.700]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:18:27.909] - identifying globals and packages ... DONE
  [14:18:28.700]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:18:27.912] Number of chunks: 2
  [14:18:28.701]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:18:27.913] Number of futures (= number of chunks): 2
  [14:18:28.701]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:18:27.914] Launching 2 futures (chunks) ...
  [14:18:28.702]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:18:27.915] Chunk #1 of 2 ...
  [14:18:28.703]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:18:27.915]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:28.703]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:18:27.916] getGlobalsAndPackages() ...
  [14:18:28.704]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:18:27.916] Searching for globals...
  [14:18:28.704]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:18:27.918] 
  [14:18:28.705]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:18:27.918] Searching for globals ... DONE
  [14:18:28.706]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:18:27.919] - globals: [0] <none>
  [14:18:28.706]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:18:27.919] getGlobalsAndPackages() ... DONE
  [14:18:28.707]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:18:27.920] 
  [14:18:28.707]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:18:27.920] 
  [14:18:28.708]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:18:27.921]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:28.709]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:18:27.923] getGlobalsAndPackages() ...
  [14:18:28.710]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:18:27.924] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.710]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:18:27.924] Resolving globals: FALSE
  [14:18:28.711]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:18:27.926] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [14:18:28.711]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:18:27.927] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.712]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:18:27.927] 
  [14:18:28.712]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:18:27.928] getGlobalsAndPackages() ... DONE
  [14:18:28.713]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:18:27.932] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:28.714]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:18:27.933] Packages needed by future strategies (n = 0): <none>
  [14:18:28.714]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:18:27.940] {
  [14:18:27.940]     {
  [14:18:27.940]         ...future.startTime <- base::Sys.time()
  [14:18:27.940]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:27.940]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:27.940]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:27.940]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:27.940]             future.resolve.recursive = NULL, width = 80L)
  [14:18:27.940]         {
  [14:18:27.940]             {
  [14:18:27.940]                 {
  [14:18:27.940]                   has_future <- base::requireNamespace("future", 
  [14:18:27.940]                     quietly = TRUE)
  [14:18:27.940]                   version <- if (has_future) 
  [14:18:27.940]                     utils::packageVersion("future")
  [14:18:27.940]                   else NULL
  [14:18:27.940]                   if (!has_future || version < "1.8.0") {
  [14:18:27.940]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:27.940]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:27.940]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:27.940]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:27.940]                         "release", "version")], collapse = " "), 
  [14:18:27.940]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:27.940]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:27.940]                       info)
  [14:18:27.940]                     info <- base::paste(info, collapse = "; ")
  [14:18:27.940]                     if (!has_future) {
  [14:18:27.940]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:27.940]                         info)
  [14:18:27.940]                     }
  [14:18:27.940]                     else {
  [14:18:27.940]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:27.940]                         info, version)
  [14:18:27.940]                     }
  [14:18:27.940]                     base::stop(msg)
  [14:18:27.940]                   }
  [14:18:27.940]                 }
  [14:18:27.940]                 base::local({
  [14:18:27.940]                   for (pkg in c("doFuture", "utils")) {
  [14:18:27.940]                     base::loadNamespace(pkg)
  [14:18:27.940]                     base::library(pkg, character.only = TRUE)
  [14:18:27.940]                   }
  [14:18:27.940]                 })
  [14:18:27.940]             }
  [14:18:27.940]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:27.940]         }
  [14:18:27.940]     }
  [14:18:27.940]     if (base::is.na(TRUE)) {
  [14:18:27.940]     }
  [14:18:27.940]     else {
  [14:18:27.940]         if (TRUE) {
  [14:18:27.940]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:27.940]                 open = "w")
  [14:18:27.940]         }
  [14:18:27.940]         else {
  [14:18:27.940]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:27.940]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:27.940]         }
  [14:18:27.940]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:27.940]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:27.940]             base::sink(type = "output", split = FALSE)
  [14:18:27.940]             base::close(...future.stdout)
  [14:18:27.940]         }, add = TRUE)
  [14:18:27.940]     }
  [14:18:27.940]     ...future.frame <- base::sys.nframe()
  [14:18:27.940]     ...future.conditions <- base::list()
  [14:18:27.940]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:27.940]     ...future.result <- base::tryCatch({
  [14:18:27.940]         base::withCallingHandlers({
  [14:18:27.940]             ...future.value <- base::withVisible(base::local({
  [14:18:27.940]                 ...future.sendCondition <- local({
  [14:18:27.940]                   sendCondition <- NULL
  [14:18:27.940]                   function(frame = 1L) {
  [14:18:27.940]                     if (is.function(sendCondition)) 
  [14:18:27.940]                       return(sendCondition)
  [14:18:27.940]                     ns <- getNamespace("parallel")
  [14:18:27.940]                     if (exists("sendData", mode = "function", 
  [14:18:27.940]                       envir = ns)) {
  [14:18:27.940]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:27.940]                         envir = ns)
  [14:18:27.940]                       envir <- sys.frame(frame)
  [14:18:27.940]                       master <- NULL
  [14:18:27.940]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:27.940]                         !identical(envir, emptyenv())) {
  [14:18:27.940]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:27.940]                           inherits = FALSE)) {
  [14:18:27.940]                           master <- get("master", mode = "list", 
  [14:18:27.940]                             envir = envir, inherits = FALSE)
  [14:18:27.940]                           if (inherits(master, "SOCKnode")) {
  [14:18:27.940]                             sendCondition <<- function(cond) {
  [14:18:27.940]                               data <- list(type = "VALUE", value = cond, 
  [14:18:27.940]                                 success = TRUE)
  [14:18:27.940]                               parallel_sendData(master, data)
  [14:18:27.940]                             }
  [14:18:27.940]                             return(sendCondition)
  [14:18:27.940]                           }
  [14:18:27.940]                         }
  [14:18:27.940]                         frame <- frame + 1L
  [14:18:27.940]                         envir <- sys.frame(frame)
  [14:18:27.940]                       }
  [14:18:27.940]                     }
  [14:18:27.940]                     sendCondition <<- function(cond) NULL
  [14:18:27.940]                   }
  [14:18:27.940]                 })
  [14:18:27.940]                 withCallingHandlers({
  [14:18:27.940]                   {
  [14:18:27.940]                     doFuture::registerDoFuture()
  [14:18:27.940]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:27.940]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:27.940]                       b <- NULL
  [14:18:27.940]                       ...future.env <- environment()
  [14:18:27.940]                       local({
  [14:18:27.940]                         for (name in names(...future.x_jj)) {
  [14:18:27.940]                           assign(name, ...future.x_jj[[name]], 
  [14:18:27.940]                             envir = ...future.env, inherits = FALSE)
  [14:18:27.940]                         }
  [14:18:27.940]                       })
  [14:18:27.940]                       tryCatch({
  [14:18:27.940]                         plan_list <- future::plan("next")
  [14:18:27.940]                         message(capture.output(print(plan_list)))
  [14:18:27.940]                         stopifnot(inherits(plan_list, "future"))
  [14:18:27.940]                         default <- getOption("future.plan", "sequential")
  [14:18:27.940]                         if (is.function(default)) 
  [14:18:27.940]                           default <- class(default)
  [14:18:27.940]                         stopifnot(inherits(plan_list, default))
  [14:18:27.940]                         plan_b <- future::plan("list")
  [14:18:27.940]                         str(plan_b)
  [14:18:27.940]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:27.940]                           inherits(plan_b[[1]], default))
  [14:18:27.940]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:27.940]                       }, error = identity)
  [14:18:27.940]                     })
  [14:18:27.940]                   }
  [14:18:27.940]                 }, immediateCondition = function(cond) {
  [14:18:27.940]                   sendCondition <- ...future.sendCondition()
  [14:18:27.940]                   sendCondition(cond)
  [14:18:27.940]                   muffleCondition <- function (cond) 
  [14:18:27.940]                   {
  [14:18:27.940]                     inherits <- base::inherits
  [14:18:27.940]                     invokeRestart <- base::invokeRestart
  [14:18:27.940]                     muffled <- FALSE
  [14:18:27.940]                     if (inherits(cond, "message")) {
  [14:18:27.940]                       invokeRestart("muffleMessage")
  [14:18:27.940]                       muffled <- TRUE
  [14:18:27.940]                     }
  [14:18:27.940]                     else if (inherits(cond, "warning")) {
  [14:18:27.940]                       invokeRestart("muffleWarning")
  [14:18:27.940]                       muffled <- TRUE
  [14:18:27.940]                     }
  [14:18:27.940]                     else if (inherits(cond, "condition")) {
  [14:18:27.940]                       computeRestarts <- base::computeRestarts
  [14:18:27.940]                       grepl <- base::grepl
  [14:18:27.940]                       is.null <- base::is.null
  [14:18:27.940]                       restarts <- computeRestarts(cond)
  [14:18:27.940]                       for (restart in restarts) {
  [14:18:27.940]                         name <- restart$name
  [14:18:27.940]                         if (is.null(name)) 
  [14:18:27.940]                           next
  [14:18:27.940]                         if (!grepl("^muffle", name)) 
  [14:18:27.940]                           next
  [14:18:27.940]                         invokeRestart(restart)
  [14:18:27.940]                         muffled <- TRUE
  [14:18:27.940]                         break
  [14:18:27.940]                       }
  [14:18:27.940]                     }
  [14:18:27.940]                     invisible(muffled)
  [14:18:27.940]                   }
  [14:18:27.940]                   muffleCondition(cond)
  [14:18:27.940]                 })
  [14:18:27.940]             }))
  [14:18:27.940]             future::FutureResult(value = ...future.value$value, 
  [14:18:27.940]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:27.940]                   ...future.rng), started = ...future.startTime, 
  [14:18:27.940]                 version = "1.8")
  [14:18:27.940]         }, condition = base::local({
  [14:18:27.940]             c <- base::c
  [14:18:27.940]             inherits <- base::inherits
  [14:18:27.940]             invokeRestart <- base::invokeRestart
  [14:18:27.940]             length <- base::length
  [14:18:27.940]             list <- base::list
  [14:18:27.940]             seq.int <- base::seq.int
  [14:18:27.940]             signalCondition <- base::signalCondition
  [14:18:27.940]             sys.calls <- base::sys.calls
  [14:18:27.940]             Sys.time <- base::Sys.time
  [14:18:27.940]             `[[` <- base::`[[`
  [14:18:27.940]             `+` <- base::`+`
  [14:18:27.940]             `<<-` <- base::`<<-`
  [14:18:27.940]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:27.940]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:27.940]                   3L)]
  [14:18:27.940]             }
  [14:18:27.940]             function(cond) {
  [14:18:27.940]                 if (inherits(cond, "error")) {
  [14:18:27.940]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:27.940]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:27.940]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:27.940]                   signalCondition(cond)
  [14:18:27.940]                 }
  [14:18:27.940]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:27.940]                 ))) {
  [14:18:27.940]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:27.940]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:27.940]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:27.940]                   if (!signal) {
  [14:18:27.940]                     muffleCondition <- function (cond) 
  [14:18:27.940]                     {
  [14:18:27.940]                       inherits <- base::inherits
  [14:18:27.940]                       invokeRestart <- base::invokeRestart
  [14:18:27.940]                       muffled <- FALSE
  [14:18:27.940]                       if (inherits(cond, "message")) {
  [14:18:27.940]                         invokeRestart("muffleMessage")
  [14:18:27.940]                         muffled <- TRUE
  [14:18:27.940]                       }
  [14:18:27.940]                       else if (inherits(cond, "warning")) {
  [14:18:27.940]                         invokeRestart("muffleWarning")
  [14:18:27.940]                         muffled <- TRUE
  [14:18:27.940]                       }
  [14:18:27.940]                       else if (inherits(cond, "condition")) {
  [14:18:27.940]                         computeRestarts <- base::computeRestarts
  [14:18:27.940]                         grepl <- base::grepl
  [14:18:27.940]                         is.null <- base::is.null
  [14:18:27.940]                         restarts <- computeRestarts(cond)
  [14:18:27.940]                         for (restart in restarts) {
  [14:18:27.940]                           name <- restart$name
  [14:18:27.940]                           if (is.null(name)) 
  [14:18:27.940]                             next
  [14:18:27.940]                           if (!grepl("^muffle", name)) 
  [14:18:27.940]                             next
  [14:18:27.940]                           invokeRestart(restart)
  [14:18:27.940]                           muffled <- TRUE
  [14:18:27.940]                           break
  [14:18:27.940]                         }
  [14:18:27.940]                       }
  [14:18:27.940]                       invisible(muffled)
  [14:18:27.940]                     }
  [14:18:27.940]                     muffleCondition(cond)
  [14:18:27.940]                   }
  [14:18:27.940]                 }
  [14:18:27.940]             }
  [14:18:27.940]         }))
  [14:18:27.940]     }, error = function(ex) {
  [14:18:27.940]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:27.940]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:27.940]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:27.940]     }, finally = {
  [14:18:27.940]         {
  [14:18:27.940]             NULL
  [14:18:27.940]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:27.940]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:27.940]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:27.940]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:18:27.940]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:27.940]                 ...) 
  [14:18:27.940]             {
  [14:18:27.940]                 if (substitute) 
  [14:18:27.940]                   expr <- substitute(expr)
  [14:18:27.940]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:27.940]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:27.940]                   globals = globals, persistent = persistent, 
  [14:18:27.940]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:27.940]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:27.940]                   label = label, ...)
  [14:18:27.940]                 if (!future$lazy) 
  [14:18:27.940]                   future <- run(future)
  [14:18:27.940]                 invisible(future)
  [14:18:27.940]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:27.940]         }
  [14:18:27.940]         base::options(...future.oldOptions)
  [14:18:27.940]     })
  [14:18:27.940]     Sys.time
  [14:18:27.940]     if (base::is.na(TRUE)) {
  [14:18:27.940]     }
  [14:18:27.940]     else {
  [14:18:27.940]         base::sink(type = "output", split = FALSE)
  [14:18:27.940]         if (TRUE) {
  [14:18:27.940]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:27.940]         }
  [14:18:27.940]         else {
  [14:18:27.940]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:27.940]         }
  [14:18:27.940]         base::close(...future.stdout)
  [14:18:27.940]         ...future.stdout <- NULL
  [14:18:27.940]     }
  [14:18:27.940]     ...future.result$conditions <- ...future.conditions
  [14:18:27.940]     ...future.result
  [14:18:27.940] }
  [14:18:28.715]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:18:27.947] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [14:18:28.716]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:18:27.948] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:18:28.716]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:18:27.949] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:18:28.717]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:18:27.950] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:18:28.717]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:18:27.951] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:18:28.718]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:18:27.952] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [14:18:28.718]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:18:27.995] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [14:18:28.719]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:18:27.996] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [14:18:28.720]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:18:27.997] ClusterFuture started
  [14:18:28.720]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:18:27.998] Chunk #1 of 2 ... DONE
  [14:18:28.721]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:18:27.998] Chunk #2 of 2 ...
  [14:18:28.721]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:18:27.999]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:28.722]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:18:28.000] getGlobalsAndPackages() ...
  [14:18:28.722]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:18:28.000] Searching for globals...
  [14:18:28.723]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:18:28.001] 
  [14:18:28.723]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:18:28.002] Searching for globals ... DONE
  [14:18:28.724]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:18:28.007] - globals: [0] <none>
  [14:18:28.724]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:18:28.007] getGlobalsAndPackages() ... DONE
  [14:18:28.725]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:18:28.008] 
  [14:18:28.725]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:18:28.008] 
  [14:18:28.726]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:18:28.011]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:28.726]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:18:28.014] getGlobalsAndPackages() ...
  [14:18:28.727]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:18:28.014] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.727]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:18:28.015] Resolving globals: FALSE
  [14:18:28.728]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:18:28.017] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [14:18:28.728]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:18:28.018] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:28.729]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:18:28.018] 
  [14:18:28.729]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:18:28.048] getGlobalsAndPackages() ... DONE
  [14:18:28.730]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:18:28.053] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:28.731]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:18:28.054] Packages needed by future strategies (n = 0): <none>
  [14:18:28.731]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:18:28.062] {
  [14:18:28.062]     {
  [14:18:28.062]         ...future.startTime <- base::Sys.time()
  [14:18:28.062]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:28.062]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:28.062]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:28.062]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:28.062]             future.resolve.recursive = NULL, width = 80L)
  [14:18:28.062]         {
  [14:18:28.062]             {
  [14:18:28.062]                 {
  [14:18:28.062]                   has_future <- base::requireNamespace("future", 
  [14:18:28.062]                     quietly = TRUE)
  [14:18:28.062]                   version <- if (has_future) 
  [14:18:28.062]                     utils::packageVersion("future")
  [14:18:28.062]                   else NULL
  [14:18:28.062]                   if (!has_future || version < "1.8.0") {
  [14:18:28.062]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:28.062]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:28.062]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:28.062]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:28.062]                         "release", "version")], collapse = " "), 
  [14:18:28.062]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:28.062]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:28.062]                       info)
  [14:18:28.062]                     info <- base::paste(info, collapse = "; ")
  [14:18:28.062]                     if (!has_future) {
  [14:18:28.062]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:28.062]                         info)
  [14:18:28.062]                     }
  [14:18:28.062]                     else {
  [14:18:28.062]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:28.062]                         info, version)
  [14:18:28.062]                     }
  [14:18:28.062]                     base::stop(msg)
  [14:18:28.062]                   }
  [14:18:28.062]                 }
  [14:18:28.062]                 base::local({
  [14:18:28.062]                   for (pkg in c("doFuture", "utils")) {
  [14:18:28.062]                     base::loadNamespace(pkg)
  [14:18:28.062]                     base::library(pkg, character.only = TRUE)
  [14:18:28.062]                   }
  [14:18:28.062]                 })
  [14:18:28.062]             }
  [14:18:28.062]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:28.062]         }
  [14:18:28.062]     }
  [14:18:28.062]     if (base::is.na(TRUE)) {
  [14:18:28.062]     }
  [14:18:28.062]     else {
  [14:18:28.062]         if (TRUE) {
  [14:18:28.062]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:28.062]                 open = "w")
  [14:18:28.062]         }
  [14:18:28.062]         else {
  [14:18:28.062]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:28.062]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:28.062]         }
  [14:18:28.062]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:28.062]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:28.062]             base::sink(type = "output", split = FALSE)
  [14:18:28.062]             base::close(...future.stdout)
  [14:18:28.062]         }, add = TRUE)
  [14:18:28.062]     }
  [14:18:28.062]     ...future.frame <- base::sys.nframe()
  [14:18:28.062]     ...future.conditions <- base::list()
  [14:18:28.062]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:28.062]     ...future.result <- base::tryCatch({
  [14:18:28.062]         base::withCallingHandlers({
  [14:18:28.062]             ...future.value <- base::withVisible(base::local({
  [14:18:28.062]                 ...future.sendCondition <- local({
  [14:18:28.062]                   sendCondition <- NULL
  [14:18:28.062]                   function(frame = 1L) {
  [14:18:28.062]                     if (is.function(sendCondition)) 
  [14:18:28.062]                       return(sendCondition)
  [14:18:28.062]                     ns <- getNamespace("parallel")
  [14:18:28.062]                     if (exists("sendData", mode = "function", 
  [14:18:28.062]                       envir = ns)) {
  [14:18:28.062]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:18:28.062]                         envir = ns)
  [14:18:28.062]                       envir <- sys.frame(frame)
  [14:18:28.062]                       master <- NULL
  [14:18:28.062]                       while (!identical(envir, .GlobalEnv) && 
  [14:18:28.062]                         !identical(envir, emptyenv())) {
  [14:18:28.062]                         if (exists("master", mode = "list", envir = envir, 
  [14:18:28.062]                           inherits = FALSE)) {
  [14:18:28.062]                           master <- get("master", mode = "list", 
  [14:18:28.062]                             envir = envir, inherits = FALSE)
  [14:18:28.062]                           if (inherits(master, "SOCKnode")) {
  [14:18:28.062]                             sendCondition <<- function(cond) {
  [14:18:28.062]                               data <- list(type = "VALUE", value = cond, 
  [14:18:28.062]                                 success = TRUE)
  [14:18:28.062]                               parallel_sendData(master, data)
  [14:18:28.062]                             }
  [14:18:28.062]                             return(sendCondition)
  [14:18:28.062]                           }
  [14:18:28.062]                         }
  [14:18:28.062]                         frame <- frame + 1L
  [14:18:28.062]                         envir <- sys.frame(frame)
  [14:18:28.062]                       }
  [14:18:28.062]                     }
  [14:18:28.062]                     sendCondition <<- function(cond) NULL
  [14:18:28.062]                   }
  [14:18:28.062]                 })
  [14:18:28.062]                 withCallingHandlers({
  [14:18:28.062]                   {
  [14:18:28.062]                     doFuture::registerDoFuture()
  [14:18:28.062]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:28.062]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:28.062]                       b <- NULL
  [14:18:28.062]                       ...future.env <- environment()
  [14:18:28.062]                       local({
  [14:18:28.062]                         for (name in names(...future.x_jj)) {
  [14:18:28.062]                           assign(name, ...future.x_jj[[name]], 
  [14:18:28.062]                             envir = ...future.env, inherits = FALSE)
  [14:18:28.062]                         }
  [14:18:28.062]                       })
  [14:18:28.062]                       tryCatch({
  [14:18:28.062]                         plan_list <- future::plan("next")
  [14:18:28.062]                         message(capture.output(print(plan_list)))
  [14:18:28.062]                         stopifnot(inherits(plan_list, "future"))
  [14:18:28.062]                         default <- getOption("future.plan", "sequential")
  [14:18:28.062]                         if (is.function(default)) 
  [14:18:28.062]                           default <- class(default)
  [14:18:28.062]                         stopifnot(inherits(plan_list, default))
  [14:18:28.062]                         plan_b <- future::plan("list")
  [14:18:28.062]                         str(plan_b)
  [14:18:28.062]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:28.062]                           inherits(plan_b[[1]], default))
  [14:18:28.062]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:28.062]                       }, error = identity)
  [14:18:28.062]                     })
  [14:18:28.062]                   }
  [14:18:28.062]                 }, immediateCondition = function(cond) {
  [14:18:28.062]                   sendCondition <- ...future.sendCondition()
  [14:18:28.062]                   sendCondition(cond)
  [14:18:28.062]                   muffleCondition <- function (cond) 
  [14:18:28.062]                   {
  [14:18:28.062]                     inherits <- base::inherits
  [14:18:28.062]                     invokeRestart <- base::invokeRestart
  [14:18:28.062]                     muffled <- FALSE
  [14:18:28.062]                     if (inherits(cond, "message")) {
  [14:18:28.062]                       invokeRestart("muffleMessage")
  [14:18:28.062]                       muffled <- TRUE
  [14:18:28.062]                     }
  [14:18:28.062]                     else if (inherits(cond, "warning")) {
  [14:18:28.062]                       invokeRestart("muffleWarning")
  [14:18:28.062]                       muffled <- TRUE
  [14:18:28.062]                     }
  [14:18:28.062]                     else if (inherits(cond, "condition")) {
  [14:18:28.062]                       computeRestarts <- base::computeRestarts
  [14:18:28.062]                       grepl <- base::grepl
  [14:18:28.062]                       is.null <- base::is.null
  [14:18:28.062]                       restarts <- computeRestarts(cond)
  [14:18:28.062]                       for (restart in restarts) {
  [14:18:28.062]                         name <- restart$name
  [14:18:28.062]                         if (is.null(name)) 
  [14:18:28.062]                           next
  [14:18:28.062]                         if (!grepl("^muffle", name)) 
  [14:18:28.062]                           next
  [14:18:28.062]                         invokeRestart(restart)
  [14:18:28.062]                         muffled <- TRUE
  [14:18:28.062]                         break
  [14:18:28.062]                       }
  [14:18:28.062]                     }
  [14:18:28.062]                     invisible(muffled)
  [14:18:28.062]                   }
  [14:18:28.062]                   muffleCondition(cond)
  [14:18:28.062]                 })
  [14:18:28.062]             }))
  [14:18:28.062]             future::FutureResult(value = ...future.value$value, 
  [14:18:28.062]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:28.062]                   ...future.rng), started = ...future.startTime, 
  [14:18:28.062]                 version = "1.8")
  [14:18:28.062]         }, condition = base::local({
  [14:18:28.062]             c <- base::c
  [14:18:28.062]             inherits <- base::inherits
  [14:18:28.062]             invokeRestart <- base::invokeRestart
  [14:18:28.062]             length <- base::length
  [14:18:28.062]             list <- base::list
  [14:18:28.062]             seq.int <- base::seq.int
  [14:18:28.062]             signalCondition <- base::signalCondition
  [14:18:28.062]             sys.calls <- base::sys.calls
  [14:18:28.062]             Sys.time <- base::Sys.time
  [14:18:28.062]             `[[` <- base::`[[`
  [14:18:28.062]             `+` <- base::`+`
  [14:18:28.062]             `<<-` <- base::`<<-`
  [14:18:28.062]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:28.062]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:28.062]                   3L)]
  [14:18:28.062]             }
  [14:18:28.062]             function(cond) {
  [14:18:28.062]                 if (inherits(cond, "error")) {
  [14:18:28.062]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:28.062]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:28.062]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:28.062]                   signalCondition(cond)
  [14:18:28.062]                 }
  [14:18:28.062]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:28.062]                 ))) {
  [14:18:28.062]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:28.062]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:28.062]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:28.062]                   if (!signal) {
  [14:18:28.062]                     muffleCondition <- function (cond) 
  [14:18:28.062]                     {
  [14:18:28.062]                       inherits <- base::inherits
  [14:18:28.062]                       invokeRestart <- base::invokeRestart
  [14:18:28.062]                       muffled <- FALSE
  [14:18:28.062]                       if (inherits(cond, "message")) {
  [14:18:28.062]                         invokeRestart("muffleMessage")
  [14:18:28.062]                         muffled <- TRUE
  [14:18:28.062]                       }
  [14:18:28.062]                       else if (inherits(cond, "warning")) {
  [14:18:28.062]                         invokeRestart("muffleWarning")
  [14:18:28.062]                         muffled <- TRUE
  [14:18:28.062]                       }
  [14:18:28.062]                       else if (inherits(cond, "condition")) {
  [14:18:28.062]                         computeRestarts <- base::computeRestarts
  [14:18:28.062]                         grepl <- base::grepl
  [14:18:28.062]                         is.null <- base::is.null
  [14:18:28.062]                         restarts <- computeRestarts(cond)
  [14:18:28.062]                         for (restart in restarts) {
  [14:18:28.062]                           name <- restart$name
  [14:18:28.062]                           if (is.null(name)) 
  [14:18:28.062]                             next
  [14:18:28.062]                           if (!grepl("^muffle", name)) 
  [14:18:28.062]                             next
  [14:18:28.062]                           invokeRestart(restart)
  [14:18:28.062]                           muffled <- TRUE
  [14:18:28.062]                           break
  [14:18:28.062]                         }
  [14:18:28.062]                       }
  [14:18:28.062]                       invisible(muffled)
  [14:18:28.062]                     }
  [14:18:28.062]                     muffleCondition(cond)
  [14:18:28.062]                   }
  [14:18:28.062]                 }
  [14:18:28.062]             }
  [14:18:28.062]         }))
  [14:18:28.062]     }, error = function(ex) {
  [14:18:28.062]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:28.062]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:28.062]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:28.062]     }, finally = {
  [14:18:28.062]         {
  [14:18:28.062]             NULL
  [14:18:28.062]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:28.062]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:28.062]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:18:28.062]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:18:28.062]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:28.062]                 ...) 
  [14:18:28.062]             {
  [14:18:28.062]                 if (substitute) 
  [14:18:28.062]                   expr <- substitute(expr)
  [14:18:28.062]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:18:28.062]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:28.062]                   globals = globals, persistent = persistent, 
  [14:18:28.062]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:18:28.062]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:18:28.062]                   label = label, ...)
  [14:18:28.062]                 if (!future$lazy) 
  [14:18:28.062]                   future <- run(future)
  [14:18:28.062]                 invisible(future)
  [14:18:28.062]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:28.062]         }
  [14:18:28.062]         base::options(...future.oldOptions)
  [14:18:28.062]     })
  [14:18:28.062]     Sys.time
  [14:18:28.062]     if (base::is.na(TRUE)) {
  [14:18:28.062]     }
  [14:18:28.062]     else {
  [14:18:28.062]         base::sink(type = "output", split = FALSE)
  [14:18:28.062]         if (TRUE) {
  [14:18:28.062]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:28.062]         }
  [14:18:28.062]         else {
  [14:18:28.062]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:28.062]         }
  [14:18:28.062]         base::close(...future.stdout)
  [14:18:28.062]         ...future.stdout <- NULL
  [14:18:28.062]     }
  [14:18:28.062]     ...future.result$conditions <- ...future.conditions
  [14:18:28.062]     ...future.result
  [14:18:28.062] }
  [14:18:28.732]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:18:28.079] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [14:18:28.732]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:18:28.080] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:18:28.733]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:18:28.082] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:18:28.733]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:18:28.083] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:18:28.734]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:18:28.084] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:18:28.734]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:18:28.086] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [14:18:28.735]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:18:28.131] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [14:18:28.735]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:18:28.132] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [14:18:28.736]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:18:28.134] ClusterFuture started
  [14:18:28.736]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:18:28.135] Chunk #2 of 2 ... DONE
  [14:18:28.737]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:18:28.135] Launching 2 futures (chunks) ... DONE
  [14:18:28.737]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:18:28.136] - resolving futures
  [14:18:28.738]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:18:28.137]   - gathering results & relaying conditions (except errors)
  [14:18:28.738]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:18:28.137] resolve() on list ...
  [14:18:28.739]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:18:28.138]  recursive: 0
  [14:18:28.739]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:18:28.139]  length: 2
  [14:18:28.740]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:18:28.139] 
  [14:18:28.741]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:18:28.141] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:28.741]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:18:28.142] - Validating connection of ClusterFuture
  [14:18:28.742]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:18:28.143] - received message: FutureResult
  [14:18:28.742]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:18:28.144] - Received FutureResult
  [14:18:28.743]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:18:28.145] - Erased future from FutureRegistry
  [14:18:28.743]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:18:28.145] result() for ClusterFuture ...
  [14:18:28.744]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:18:28.146] - result already collected: FutureResult
  [14:18:28.744]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:18:28.146] result() for ClusterFuture ... done
  [14:18:28.745]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:18:28.147] signalConditions() ...
  [14:18:28.745]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:18:28.148]  - include = 'immediateCondition'
  [14:18:28.746]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:18:28.148]  - exclude = 
  [14:18:28.746]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:18:28.149]  - resignal = FALSE
  [14:18:28.747]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:18:28.149]  - Number of conditions: 1
  [14:18:28.747]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:18:28.150] signalConditions() ... done
  [14:18:28.748]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:18:28.159] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:28.748]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:18:28.160] Future #1
  [14:18:28.749]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:18:28.160] result() for ClusterFuture ...
  [14:18:28.750]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:18:28.161] - result already collected: FutureResult
  [14:18:28.750]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:18:28.162] result() for ClusterFuture ... done
  [14:18:28.751]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:18:28.162] result() for ClusterFuture ...
  [14:18:28.751]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:18:28.163] - result already collected: FutureResult
  [14:18:28.752]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:18:28.164] result() for ClusterFuture ... done
  [14:18:28.752]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:18:28.164] signalConditions() ...
  [14:18:28.753]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:18:28.165]  - include = 'immediateCondition'
  [14:18:28.753]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:18:28.166]  - exclude = 
  [14:18:28.754]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:18:28.166]  - resignal = FALSE
  [14:18:28.754]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:18:28.167]  - Number of conditions: 1
  [14:18:28.755]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:18:28.167] signalConditions() ... done
  [14:18:28.755]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:18:28.168] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:18:28.756]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:18:28.169] - nx: 2
  [14:18:28.756]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:18:28.169] - relay: TRUE
  [14:18:28.757]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:18:28.170] - stdout: TRUE
  [14:18:28.757]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:18:28.171] - signal: TRUE
  [14:18:28.758]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:18:28.171] - resignal: FALSE
  [14:18:28.759]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:18:28.172] - force: FALSE
  [14:18:28.759]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:18:28.172] - relayed: [n=2] FALSE, FALSE
  [14:18:28.760]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:18:28.173] - queued futures: [n=2] FALSE, FALSE
  [14:18:28.760]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:18:28.174]  - until=1
  [14:18:28.761]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:18:28.174]  - relaying element #1
  [14:18:28.761]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:18:28.191] result() for ClusterFuture ...
  [14:18:28.803]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:18:28.192] - result already collected: FutureResult
  [14:18:28.805]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:18:28.192] result() for ClusterFuture ... done
  [14:18:28.807]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:18:28.193] result() for ClusterFuture ...
  [14:18:28.808]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:18:28.194] - result already collected: FutureResult
  [14:18:28.810]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:18:28.194] result() for ClusterFuture ... done
  [14:18:28.811]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:18:28.195] signalConditions() ...
  [14:18:28.813]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:18:28.196]  - include = 'immediateCondition'
  [14:18:28.815]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:18:28.196]  - exclude = 
  [14:18:28.816]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:18:28.197]  - resignal = FALSE
  [14:18:28.817]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:18:28.197]  - Number of conditions: 1
  [14:18:28.818]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:18:28.205] signalConditions() ... done
  [14:18:28.820]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:18:28.206] result() for ClusterFuture ...
  [14:18:28.821]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:18:28.223] - result already collected: FutureResult
  [14:18:28.822]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:18:28.224] result() for ClusterFuture ... done
  [14:18:28.824]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:18:28.224] signalConditions() ...
  [14:18:28.825]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:18:28.225]  - include = 'immediateCondition'
  [14:18:28.827]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:18:28.225]  - exclude = 
  [14:18:28.828]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:18:28.226]  - resignal = FALSE
  [14:18:28.829]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:18:28.227]  - Number of conditions: 1
  [14:18:28.830]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:18:28.227] signalConditions() ... done
  [14:18:28.831]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:18:28.228] result() for ClusterFuture ...
  [14:18:28.832]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:18:28.228] - result already collected: FutureResult
  [14:18:28.833]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:18:28.229] result() for ClusterFuture ... done
  [14:18:28.834]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:18:28.230] signalConditions() ...
  [14:18:28.834]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:18:28.230]  - include = 'condition'
  [14:18:28.835]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:18:28.231]  - exclude = 'immediateCondition'
  [14:18:28.836]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:18:28.232]  - resignal = FALSE
  [14:18:28.837]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:18:28.232]  - Number of conditions: 1
  [14:18:28.838]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [14:18:28.233]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:28.838]  - Condition #478: '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
  [14:18:28.839]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:18:28.234] signalConditions() ... done
  [14:18:28.840]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:18:28.234] - relayed: [n=2] TRUE, FALSE
  [14:18:28.841]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:18:28.235] - queued futures: [n=2] TRUE, FALSE
  [14:18:28.841]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:18:28.235] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:18:28.842]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:18:28.236]  length: 1 (resolved future 1)
  [14:18:28.842]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:18:28.238] receiveMessageFromWorker() for ClusterFuture ...
  [14:18:28.843]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:18:28.255] - Validating connection of ClusterFuture
  [14:18:28.844]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:18:28.257] - received message: FutureResult
  [14:18:28.844]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:18:28.257] - Received FutureResult
  [14:18:28.845]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:18:28.258] - Erased future from FutureRegistry
  [14:18:28.845]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:18:28.259] result() for ClusterFuture ...
  [14:18:28.846]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:18:28.259] - result already collected: FutureResult
  [14:18:28.846]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:18:28.260] result() for ClusterFuture ... done
  [14:18:28.847]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:18:28.260] signalConditions() ...
  [14:18:28.848]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:18:28.261]  - include = 'immediateCondition'
  [14:18:28.848]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:18:28.262]  - exclude = 
  [14:18:28.849]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:18:28.262]  - resignal = FALSE
  [14:18:28.849]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:18:28.263]  - Number of conditions: 2
  [14:18:28.850]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:18:28.263] signalConditions() ... done
  [14:18:28.850]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:18:28.264] receiveMessageFromWorker() for ClusterFuture ... done
  [14:18:28.851]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:18:28.265] Future #2
  [14:18:28.851]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:18:28.265] result() for ClusterFuture ...
  [14:18:28.852]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:18:28.266] - result already collected: FutureResult
  [14:18:28.852]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:18:28.267] result() for ClusterFuture ... done
  [14:18:28.853]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:18:28.267] result() for ClusterFuture ...
  [14:18:28.853]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:18:28.268] - result already collected: FutureResult
  [14:18:28.854]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:18:28.268] result() for ClusterFuture ... done
  [14:18:28.855]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:18:28.269] signalConditions() ...
  [14:18:28.855]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:18:28.270]  - include = 'immediateCondition'
  [14:18:28.856]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:18:28.270]  - exclude = 
  [14:18:28.856]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:18:28.287]  - resignal = FALSE
  [14:18:28.857]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:18:28.288]  - Number of conditions: 2
  [14:18:28.857]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:18:28.288] signalConditions() ... done
  [14:18:28.858]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:18:28.289] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:18:28.858]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:18:28.290] - nx: 2
  [14:18:28.859]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:18:28.290] - relay: TRUE
  [14:18:28.859]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:18:28.291] - stdout: TRUE
  [14:18:28.860]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:18:28.291] - signal: TRUE
  [14:18:28.860]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:18:28.292] - resignal: FALSE
  [14:18:28.861]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:18:28.292] - force: FALSE
  [14:18:28.862]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:18:28.293] - relayed: [n=2] TRUE, FALSE
  [14:18:28.862]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:18:28.293] - queued futures: [n=2] TRUE, FALSE
  [14:18:28.863]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:18:28.294]  - until=2
  [14:18:28.863]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:18:28.295]  - relaying element #2
  [14:18:28.864]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:18:28.295] result() for ClusterFuture ...
  [14:18:28.864]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:18:28.296] - result already collected: FutureResult
  [14:18:28.865]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:18:28.297] result() for ClusterFuture ... done
  [14:18:28.865]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:18:28.297] result() for ClusterFuture ...
  [14:18:28.866]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:18:28.298] - result already collected: FutureResult
  [14:18:28.866]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:18:28.298] result() for ClusterFuture ... done
  [14:18:28.867]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:18:28.299] signalConditions() ...
  [14:18:28.868]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:18:28.299]  - include = 'immediateCondition'
  [14:18:28.868]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:18:28.300]  - exclude = 
  [14:18:28.869]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:18:28.301]  - resignal = FALSE
  [14:18:28.869]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:18:28.301]  - Number of conditions: 2
  [14:18:28.870]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:18:28.302] signalConditions() ... done
  [14:18:28.870]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:18:28.319] result() for ClusterFuture ...
  [14:18:28.871]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:18:28.320] - result already collected: FutureResult
  [14:18:28.871]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:18:28.320] result() for ClusterFuture ... done
  [14:18:28.872]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:18:28.321] signalConditions() ...
  [14:18:28.872]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:18:28.322]  - include = 'immediateCondition'
  [14:18:28.873]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:18:28.322]  - exclude = 
  [14:18:28.873]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:18:28.323]  - resignal = FALSE
  [14:18:28.874]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:18:28.323]  - Number of conditions: 2
  [14:18:28.875]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:18:28.324] signalConditions() ... done
  [14:18:28.875]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:18:28.325] result() for ClusterFuture ...
  [14:18:28.876]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:18:28.325] - result already collected: FutureResult
  [14:18:28.876]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:18:28.326] result() for ClusterFuture ... done
  [14:18:28.877]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:18:28.326] signalConditions() ...
  [14:18:28.877]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:18:28.327]  - include = 'condition'
  [14:18:28.878]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:18:28.328]  - exclude = 'immediateCondition'
  [14:18:28.878]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:18:28.328]  - resignal = FALSE
  [14:18:28.895]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:18:28.329]  - Number of conditions: 2
  [14:18:28.896]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [14:18:28.329]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:28.896]  - Condition #553: '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
  [14:18:28.897]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [14:18:28.330]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:28.897]  - Condition #555: '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
  [14:18:28.898]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:18:28.331] signalConditions() ... done
  [14:18:28.898]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:18:28.332] - relayed: [n=2] TRUE, TRUE
  [14:18:28.899]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:18:28.332] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.900]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:18:28.333] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [14:18:28.900]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:18:28.334]  length: 0 (resolved future 2)
  [14:18:28.901]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:18:28.334] Relaying remaining futures
  [14:18:28.906]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:18:28.351] signalConditionsASAP(NULL, pos=0) ...
  [14:18:28.906]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:18:28.352] - nx: 2
  [14:18:28.907]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:18:28.352] - relay: TRUE
  [14:18:28.907]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:18:28.353] - stdout: TRUE
  [14:18:28.908]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:18:28.354] - signal: TRUE
  [14:18:28.908]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:18:28.354] - resignal: FALSE
  [14:18:28.909]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:18:28.355] - force: FALSE
  [14:18:28.909]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:18:28.362] - relayed: [n=2] TRUE, TRUE
  [14:18:28.910]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [14:18:28.363] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.927]  - Condition #571: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:28.927]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:18:28.364] - relayed: [n=2] TRUE, TRUE
  [14:18:28.928]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:18:28.364] - queued futures: [n=2] TRUE, TRUE
  [14:18:28.928]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:18:28.365] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:28.929]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:18:28.365] resolve() on list ... DONE
  [14:18:28.930]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:18:28.366] - collecting values of futures
  [14:18:28.930]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:18:28.383] result() for ClusterFuture ...
  [14:18:28.931]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:18:28.384] - result already collected: FutureResult
  [14:18:28.931]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:18:28.384] result() for ClusterFuture ... done
  [14:18:28.932]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:18:28.385] result() for ClusterFuture ...
  [14:18:28.932]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:18:28.386] - result already collected: FutureResult
  [14:18:28.933]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:18:28.386] result() for ClusterFuture ... done
  [14:18:28.933]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:18:28.387] signalConditions() ...
  [14:18:28.934]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:18:28.388]  - include = 'immediateCondition'
  [14:18:28.934]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:18:28.388]  - exclude = 
  [14:18:28.935]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:18:28.389]  - resignal = FALSE
  [14:18:28.935]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:18:28.390]  - Number of conditions: 1
  [14:18:28.936]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:18:28.390] signalConditions() ... done
  [14:18:28.937]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:18:28.391] result() for ClusterFuture ...
  [14:18:28.937]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:18:28.392] - result already collected: FutureResult
  [14:18:28.938]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:18:28.392] result() for ClusterFuture ... done
  [14:18:28.938]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:18:28.393] result() for ClusterFuture ...
  [14:18:28.939]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:18:28.394] - result already collected: FutureResult
  [14:18:28.939]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:18:28.394] result() for ClusterFuture ... done
  [14:18:28.940]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:18:28.395] signalConditions() ...
  [14:18:28.940]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:18:28.395]  - include = 'immediateCondition'
  [14:18:28.941]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:18:28.396]  - exclude = 
  [14:18:28.941]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:18:28.396]  - resignal = FALSE
  [14:18:28.942]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:18:28.397]  - Number of conditions: 2
  [14:18:28.942]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:18:28.398] signalConditions() ... done
  [14:18:28.959]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:18:28.401] - accumulating results
  [14:18:28.959]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:18:28.403] - processing errors (handler = 'stop')
  [14:18:28.960]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:18:28.404] - extracting results
  [14:18:28.960]  - Condition #604: 'simpleMessage', 'message', 'condition'
  [14:18:28.404] doFuture() ... DONE
  [14:18:28.961]  - Condition #605: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:28.962] signalConditions() ... done
  [14:18:28.963] - relayed: [n=1] TRUE
  [14:18:28.963] - queued futures: [n=1] TRUE
  [14:18:28.963] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:28.964]  length: 0 (resolved future 1)
  [14:18:28.964] Relaying remaining futures
  [14:18:28.965] signalConditionsASAP(NULL, pos=0) ...
  [14:18:28.965] - nx: 1
  [14:18:28.965] - relay: TRUE
  [14:18:28.966] - stdout: TRUE
  [14:18:28.966] - signal: TRUE
  [14:18:28.966] - resignal: FALSE
  [14:18:28.966] - force: FALSE
  [14:18:28.967] - relayed: [n=1] TRUE
  [14:18:28.967] - queued futures: [n=1] TRUE
   - flush all
  [14:18:28.968] - relayed: [n=1] TRUE
  [14:18:28.968] - queued futures: [n=1] TRUE
  [14:18:28.968] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:28.969] resolve() on list ... DONE
  [14:18:28.969] - collecting values of futures
  [14:18:28.970] signalConditions() ...
  [14:18:28.970]  - include = 'immediateCondition'
  [14:18:28.970]  - exclude = 
  [14:18:28.971]  - resignal = FALSE
  [14:18:28.971]  - Number of conditions: 605
  [14:18:28.972] signalConditions() ... done
  [14:18:28.973] - accumulating results
  [14:18:28.990] - processing errors (handler = 'stop')
  [14:18:28.991] - extracting results
  [14:18:28.991] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [14:18:28.993] plan(): Setting new future strategy stack:
  [14:18:28.994] List of future strategies:
  [14:18:28.994] 1. multicore:
  [14:18:28.994]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:28.994]    - tweaked: FALSE
  [14:18:28.994]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:28.994] 2. sequential:
  [14:18:28.994]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:28.994]    - tweaked: FALSE
  [14:18:28.994]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:28.998] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:18:28.999] doFuture() ...
  [14:18:29.001] - dummy globals (as locals): [1] 'a'
  [14:18:29.002] - R expression:
  [14:18:29.002] {
  [14:18:29.002]     doFuture::registerDoFuture()
  [14:18:29.002]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.002]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.002]         a <- NULL
  [14:18:29.002]         ...future.env <- environment()
  [14:18:29.002]         local({
  [14:18:29.002]             for (name in names(...future.x_jj)) {
  [14:18:29.002]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.002]                   inherits = FALSE)
  [14:18:29.002]             }
  [14:18:29.002]         })
  [14:18:29.002]         tryCatch({
  [14:18:29.002]             plan_list <- future::plan("next")
  [14:18:29.002]             stopifnot(inherits(plan_list, strategy2))
  [14:18:29.002]             plan_a <- future::plan("list")
  [14:18:29.002]             str(plan_a)
  [14:18:29.002]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:29.002]             message("foreach() - level 2 ...")
  [14:18:29.002]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:29.002]                 {
  [14:18:29.002]                   plan_list <- future::plan("next")
  [14:18:29.002]                   message(capture.output(print(plan_list)))
  [14:18:29.002]                   stopifnot(inherits(plan_list, "future"))
  [14:18:29.002]                   default <- getOption("future.plan", "sequential")
  [14:18:29.002]                   if (is.function(default)) 
  [14:18:29.002]                     default <- class(default)
  [14:18:29.002]                   stopifnot(inherits(plan_list, default))
  [14:18:29.002]                   plan_b <- future::plan("list")
  [14:18:29.002]                   str(plan_b)
  [14:18:29.002]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.002]                     inherits(plan_b[[1]], default))
  [14:18:29.002]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.002]                 }
  [14:18:29.002]             message("foreach() - level 2 ... DONE")
  [14:18:29.002]             y
  [14:18:29.002]         }, error = identity)
  [14:18:29.002]     })
  [14:18:29.002] }
  [14:18:29.004] - identifying globals and packages ...
  [14:18:29.004] getGlobalsAndPackages() ...
  [14:18:29.005] Searching for globals...
  [14:18:29.070] - 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'
  [14:18:29.070] Searching for globals ... DONE
  [14:18:29.071] Resolving globals: FALSE
  [14:18:29.074] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:29.075] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.075] - packages: [2] 'utils', 'foreach'
  [14:18:29.075] getGlobalsAndPackages() ... DONE
  [14:18:29.076] List of 3
  [14:18:29.076]  $ ...future.x_ii: NULL
  [14:18:29.076]  $ strategy2     : chr "sequential"
  [14:18:29.076]  $ bs            : int [1:3] 3 2 1
  [14:18:29.076]  - attr(*, "where")=List of 3
  [14:18:29.076]   ..$ ...future.x_ii:<environment: 0x5626339ac780> 
  [14:18:29.076]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:29.076]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:29.076]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.076]  - attr(*, "resolved")= logi FALSE
  [14:18:29.076]  - attr(*, "total_size")= num 184
  [14:18:29.094]   - R expression:
  [14:18:29.094] {
  [14:18:29.094]     doFuture::registerDoFuture()
  [14:18:29.094]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.094]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.094]         a <- NULL
  [14:18:29.094]         ...future.env <- environment()
  [14:18:29.094]         local({
  [14:18:29.094]             for (name in names(...future.x_jj)) {
  [14:18:29.094]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.094]                   inherits = FALSE)
  [14:18:29.094]             }
  [14:18:29.094]         })
  [14:18:29.094]         tryCatch({
  [14:18:29.094]             plan_list <- future::plan("next")
  [14:18:29.094]             stopifnot(inherits(plan_list, strategy2))
  [14:18:29.094]             plan_a <- future::plan("list")
  [14:18:29.094]             str(plan_a)
  [14:18:29.094]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:29.094]             message("foreach() - level 2 ...")
  [14:18:29.094]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:29.094]                 {
  [14:18:29.094]                   plan_list <- future::plan("next")
  [14:18:29.094]                   message(capture.output(print(plan_list)))
  [14:18:29.094]                   stopifnot(inherits(plan_list, "future"))
  [14:18:29.094]                   default <- getOption("future.plan", "sequential")
  [14:18:29.094]                   if (is.function(default)) 
  [14:18:29.094]                     default <- class(default)
  [14:18:29.094]                   stopifnot(inherits(plan_list, default))
  [14:18:29.094]                   plan_b <- future::plan("list")
  [14:18:29.094]                   str(plan_b)
  [14:18:29.094]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.094]                     inherits(plan_b[[1]], default))
  [14:18:29.094]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.094]                 }
  [14:18:29.094]             message("foreach() - level 2 ... DONE")
  [14:18:29.094]             y
  [14:18:29.094]         }, error = identity)
  [14:18:29.094]     })
  [14:18:29.094] }
  [14:18:29.095]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.096] List of 3
  [14:18:29.096]  $ ...future.x_ii: NULL
  [14:18:29.096]  $ strategy2     : chr "sequential"
  [14:18:29.096]  $ bs            : int [1:3] 3 2 1
  [14:18:29.096]  - attr(*, "where")=List of 3
  [14:18:29.096]   ..$ ...future.x_ii:<environment: 0x5626339ac780> 
  [14:18:29.096]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:29.096]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:29.096]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.096]  - attr(*, "resolved")= logi FALSE
  [14:18:29.096]  - attr(*, "total_size")= num 184
  [14:18:29.108]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:29.109] - identifying globals and packages ... DONE
  [14:18:29.110] Number of chunks: 2
  [14:18:29.111] Number of futures (= number of chunks): 2
  [14:18:29.112] Launching 2 futures (chunks) ...
  [14:18:29.112] Chunk #1 of 2 ...
  [14:18:29.113]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:29.113] getGlobalsAndPackages() ...
  [14:18:29.113] Searching for globals...
  [14:18:29.114] 
  [14:18:29.115] Searching for globals ... DONE
  [14:18:29.115] - globals: [0] <none>
  [14:18:29.115] getGlobalsAndPackages() ... DONE
  [14:18:29.115] 
  [14:18:29.116] 
  [14:18:29.116]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:29.117] getGlobalsAndPackages() ...
  [14:18:29.118] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.118] Resolving globals: FALSE
  [14:18:29.119] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:29.120] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.120] 
  [14:18:29.121] getGlobalsAndPackages() ... DONE
  [14:18:29.124] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:29.124] Packages needed by future strategies (n = 1): 'future'
  [14:18:29.131] {
  [14:18:29.131]     {
  [14:18:29.131]         ...future.startTime <- base::Sys.time()
  [14:18:29.131]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:29.131]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:29.131]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:29.131]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:29.131]             future.resolve.recursive = NULL, width = 80L)
  [14:18:29.131]         {
  [14:18:29.131]             {
  [14:18:29.131]                 {
  [14:18:29.131]                   {
  [14:18:29.131]                     has_future <- base::requireNamespace("future", 
  [14:18:29.131]                       quietly = TRUE)
  [14:18:29.131]                     version <- if (has_future) 
  [14:18:29.131]                       utils::packageVersion("future")
  [14:18:29.131]                     else NULL
  [14:18:29.131]                     if (!has_future || version < "1.8.0") {
  [14:18:29.131]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:29.131]                         "", base::R.version$version.string), 
  [14:18:29.131]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:29.131]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:29.131]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:29.131]                           "release", "version")], collapse = " "), 
  [14:18:29.131]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:29.131]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:29.131]                         info)
  [14:18:29.131]                       info <- base::paste(info, collapse = "; ")
  [14:18:29.131]                       if (!has_future) {
  [14:18:29.131]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:29.131]                           info)
  [14:18:29.131]                       }
  [14:18:29.131]                       else {
  [14:18:29.131]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:29.131]                           info, version)
  [14:18:29.131]                       }
  [14:18:29.131]                       base::stop(msg)
  [14:18:29.131]                     }
  [14:18:29.131]                   }
  [14:18:29.131]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:29.131]                   base::options(mc.cores = 1L)
  [14:18:29.131]                 }
  [14:18:29.131]                 base::local({
  [14:18:29.131]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:29.131]                   "future")) {
  [14:18:29.131]                     base::loadNamespace(pkg)
  [14:18:29.131]                     base::library(pkg, character.only = TRUE)
  [14:18:29.131]                   }
  [14:18:29.131]                 })
  [14:18:29.131]             }
  [14:18:29.131]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:29.131]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.131]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:29.131]                 label = NULL, ...) 
  [14:18:29.131]             {
  [14:18:29.131]                 if (substitute) 
  [14:18:29.131]                   expr <- substitute(expr)
  [14:18:29.131]                 local <- as.logical(local)
  [14:18:29.131]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.131]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.131]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.131]                   label = label, ...)
  [14:18:29.131]                 if (!future$lazy) 
  [14:18:29.131]                   future <- run(future)
  [14:18:29.131]                 invisible(future)
  [14:18:29.131]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.131]         }
  [14:18:29.131]     }
  [14:18:29.131]     if (base::is.na(TRUE)) {
  [14:18:29.131]     }
  [14:18:29.131]     else {
  [14:18:29.131]         if (TRUE) {
  [14:18:29.131]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:29.131]                 open = "w")
  [14:18:29.131]         }
  [14:18:29.131]         else {
  [14:18:29.131]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:29.131]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:29.131]         }
  [14:18:29.131]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:29.131]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:29.131]             base::sink(type = "output", split = FALSE)
  [14:18:29.131]             base::close(...future.stdout)
  [14:18:29.131]         }, add = TRUE)
  [14:18:29.131]     }
  [14:18:29.131]     ...future.frame <- base::sys.nframe()
  [14:18:29.131]     ...future.conditions <- base::list()
  [14:18:29.131]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:29.131]     ...future.result <- base::tryCatch({
  [14:18:29.131]         base::withCallingHandlers({
  [14:18:29.131]             ...future.value <- base::withVisible(base::local({
  [14:18:29.131]                 doFuture::registerDoFuture()
  [14:18:29.131]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.131]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.131]                   a <- NULL
  [14:18:29.131]                   ...future.env <- environment()
  [14:18:29.131]                   local({
  [14:18:29.131]                     for (name in names(...future.x_jj)) {
  [14:18:29.131]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.131]                         inherits = FALSE)
  [14:18:29.131]                     }
  [14:18:29.131]                   })
  [14:18:29.131]                   tryCatch({
  [14:18:29.131]                     plan_list <- future::plan("next")
  [14:18:29.131]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:29.131]                     plan_a <- future::plan("list")
  [14:18:29.131]                     str(plan_a)
  [14:18:29.131]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:29.131]                     message("foreach() - level 2 ...")
  [14:18:29.131]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:29.131]                       {
  [14:18:29.131]                         plan_list <- future::plan("next")
  [14:18:29.131]                         message(capture.output(print(plan_list)))
  [14:18:29.131]                         stopifnot(inherits(plan_list, "future"))
  [14:18:29.131]                         default <- getOption("future.plan", "sequential")
  [14:18:29.131]                         if (is.function(default)) 
  [14:18:29.131]                           default <- class(default)
  [14:18:29.131]                         stopifnot(inherits(plan_list, default))
  [14:18:29.131]                         plan_b <- future::plan("list")
  [14:18:29.131]                         str(plan_b)
  [14:18:29.131]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.131]                           inherits(plan_b[[1]], default))
  [14:18:29.131]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.131]                       }
  [14:18:29.131]                     message("foreach() - level 2 ... DONE")
  [14:18:29.131]                     y
  [14:18:29.131]                   }, error = identity)
  [14:18:29.131]                 })
  [14:18:29.131]             }))
  [14:18:29.131]             future::FutureResult(value = ...future.value$value, 
  [14:18:29.131]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.131]                   ...future.rng), started = ...future.startTime, 
  [14:18:29.131]                 version = "1.8")
  [14:18:29.131]         }, condition = base::local({
  [14:18:29.131]             c <- base::c
  [14:18:29.131]             inherits <- base::inherits
  [14:18:29.131]             invokeRestart <- base::invokeRestart
  [14:18:29.131]             length <- base::length
  [14:18:29.131]             list <- base::list
  [14:18:29.131]             seq.int <- base::seq.int
  [14:18:29.131]             signalCondition <- base::signalCondition
  [14:18:29.131]             sys.calls <- base::sys.calls
  [14:18:29.131]             Sys.time <- base::Sys.time
  [14:18:29.131]             `[[` <- base::`[[`
  [14:18:29.131]             `+` <- base::`+`
  [14:18:29.131]             `<<-` <- base::`<<-`
  [14:18:29.131]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:29.131]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:29.131]                   3L)]
  [14:18:29.131]             }
  [14:18:29.131]             function(cond) {
  [14:18:29.131]                 if (inherits(cond, "error")) {
  [14:18:29.131]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.131]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:29.131]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:29.131]                   signalCondition(cond)
  [14:18:29.131]                 }
  [14:18:29.131]                 else if (inherits(cond, "condition")) {
  [14:18:29.131]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:29.131]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.131]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:29.131]                   if (!signal) {
  [14:18:29.131]                     muffleCondition <- function (cond) 
  [14:18:29.131]                     {
  [14:18:29.131]                       inherits <- base::inherits
  [14:18:29.131]                       invokeRestart <- base::invokeRestart
  [14:18:29.131]                       muffled <- FALSE
  [14:18:29.131]                       if (inherits(cond, "message")) {
  [14:18:29.131]                         invokeRestart("muffleMessage")
  [14:18:29.131]                         muffled <- TRUE
  [14:18:29.131]                       }
  [14:18:29.131]                       else if (inherits(cond, "warning")) {
  [14:18:29.131]                         invokeRestart("muffleWarning")
  [14:18:29.131]                         muffled <- TRUE
  [14:18:29.131]                       }
  [14:18:29.131]                       else if (inherits(cond, "condition")) {
  [14:18:29.131]                         computeRestarts <- base::computeRestarts
  [14:18:29.131]                         grepl <- base::grepl
  [14:18:29.131]                         is.null <- base::is.null
  [14:18:29.131]                         restarts <- computeRestarts(cond)
  [14:18:29.131]                         for (restart in restarts) {
  [14:18:29.131]                           name <- restart$name
  [14:18:29.131]                           if (is.null(name)) 
  [14:18:29.131]                             next
  [14:18:29.131]                           if (!grepl("^muffle", name)) 
  [14:18:29.131]                             next
  [14:18:29.131]                           invokeRestart(restart)
  [14:18:29.131]                           muffled <- TRUE
  [14:18:29.131]                           break
  [14:18:29.131]                         }
  [14:18:29.131]                       }
  [14:18:29.131]                       invisible(muffled)
  [14:18:29.131]                     }
  [14:18:29.131]                     muffleCondition(cond)
  [14:18:29.131]                   }
  [14:18:29.131]                 }
  [14:18:29.131]             }
  [14:18:29.131]         }))
  [14:18:29.131]     }, error = function(ex) {
  [14:18:29.131]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:29.131]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.131]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:29.131]     }, finally = {
  [14:18:29.131]         {
  [14:18:29.131]             {
  [14:18:29.131]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:29.131]             }
  [14:18:29.131]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:29.131]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.131]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:29.131]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:29.131]             {
  [14:18:29.131]                 if (substitute) 
  [14:18:29.131]                   expr <- substitute(expr)
  [14:18:29.131]                 if (is.function(workers)) 
  [14:18:29.131]                   workers <- workers()
  [14:18:29.131]                 workers <- as.integer(workers)
  [14:18:29.131]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:29.131]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:29.131]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:29.131]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:29.131]                     local = TRUE, label = label, ...))
  [14:18:29.131]                 }
  [14:18:29.131]                 oopts <- options(mc.cores = workers)
  [14:18:29.131]                 on.exit(options(oopts))
  [14:18:29.131]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:29.131]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.131]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:29.131]                   label = label, ...)
  [14:18:29.131]                 if (!future$lazy) 
  [14:18:29.131]                   future <- run(future)
  [14:18:29.131]                 invisible(future)
  [14:18:29.131]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:29.131]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:18:29.131]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:29.131]             {
  [14:18:29.131]                 if (substitute) 
  [14:18:29.131]                   expr <- substitute(expr)
  [14:18:29.131]                 local <- as.logical(local)
  [14:18:29.131]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.131]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.131]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.131]                   label = label, ...)
  [14:18:29.131]                 if (!future$lazy) 
  [14:18:29.131]                   future <- run(future)
  [14:18:29.131]                 invisible(future)
  [14:18:29.131]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.131]         }
  [14:18:29.131]         base::options(...future.oldOptions)
  [14:18:29.131]     })
  [14:18:29.131]     Sys.time
  [14:18:29.131]     if (base::is.na(TRUE)) {
  [14:18:29.131]     }
  [14:18:29.131]     else {
  [14:18:29.131]         base::sink(type = "output", split = FALSE)
  [14:18:29.131]         if (TRUE) {
  [14:18:29.131]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:29.131]         }
  [14:18:29.131]         else {
  [14:18:29.131]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:29.131]         }
  [14:18:29.131]         base::close(...future.stdout)
  [14:18:29.131]         ...future.stdout <- NULL
  [14:18:29.131]     }
  [14:18:29.131]     ...future.result$conditions <- ...future.conditions
  [14:18:29.131]     ...future.result
  [14:18:29.131] }
  [14:18:29.154] requestCore(): workers = 2
  [14:18:29.158] MulticoreFuture started
  [14:18:29.160] Chunk #1 of 2 ... DONE
  [14:18:29.160] Chunk #2 of 2 ...
  [14:18:29.161]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:29.161] getGlobalsAndPackages() ...
  [14:18:29.162] Searching for globals...
  [14:18:29.163] 
  [14:18:29.164] Searching for globals ... DONE
  [14:18:29.164] - globals: [0] <none>
  [14:18:29.165] getGlobalsAndPackages() ... DONE
  [14:18:29.165] 
  [14:18:29.166] 
  [14:18:29.166]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:29.185] plan(): Setting new future strategy stack:
  [14:18:29.186] List of future strategies:
  [14:18:29.186] 1. sequential:
  [14:18:29.186]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.186]    - tweaked: FALSE
  [14:18:29.186]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.188] plan(): nbrOfWorkers() = 1
  [14:18:29.191] getGlobalsAndPackages() ...
  [14:18:29.193] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.194] Resolving globals: FALSE
  [14:18:29.197] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:29.199] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:29.199] 
  [14:18:29.200] getGlobalsAndPackages() ... DONE
  [14:18:29.207] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:29.208] Packages needed by future strategies (n = 1): 'future'
  [14:18:29.220] {
  [14:18:29.220]     {
  [14:18:29.220]         ...future.startTime <- base::Sys.time()
  [14:18:29.220]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:29.220]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:29.220]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:29.220]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:29.220]             future.resolve.recursive = NULL, width = 80L)
  [14:18:29.220]         {
  [14:18:29.220]             {
  [14:18:29.220]                 {
  [14:18:29.220]                   {
  [14:18:29.220]                     has_future <- base::requireNamespace("future", 
  [14:18:29.220]                       quietly = TRUE)
  [14:18:29.220]                     version <- if (has_future) 
  [14:18:29.220]                       utils::packageVersion("future")
  [14:18:29.220]                     else NULL
  [14:18:29.220]                     if (!has_future || version < "1.8.0") {
  [14:18:29.220]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:29.220]                         "", base::R.version$version.string), 
  [14:18:29.220]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:29.220]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:29.220]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:29.220]                           "release", "version")], collapse = " "), 
  [14:18:29.220]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:29.220]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:29.220]                         info)
  [14:18:29.220]                       info <- base::paste(info, collapse = "; ")
  [14:18:29.220]                       if (!has_future) {
  [14:18:29.220]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:29.220]                           info)
  [14:18:29.220]                       }
  [14:18:29.220]                       else {
  [14:18:29.220]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:29.220]                           info, version)
  [14:18:29.220]                       }
  [14:18:29.220]                       base::stop(msg)
  [14:18:29.220]                     }
  [14:18:29.220]                   }
  [14:18:29.220]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:29.220]                   base::options(mc.cores = 1L)
  [14:18:29.220]                 }
  [14:18:29.220]                 base::local({
  [14:18:29.220]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:29.220]                   "future")) {
  [14:18:29.220]                     base::loadNamespace(pkg)
  [14:18:29.220]                     base::library(pkg, character.only = TRUE)
  [14:18:29.220]                   }
  [14:18:29.220]                 })
  [14:18:29.220]             }
  [14:18:29.220]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:29.220]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.220]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:29.220]                 label = NULL, ...) 
  [14:18:29.220]             {
  [14:18:29.220]                 if (substitute) 
  [14:18:29.220]                   expr <- substitute(expr)
  [14:18:29.220]                 local <- as.logical(local)
  [14:18:29.220]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.220]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.220]                   label = label, ...)
  [14:18:29.220]                 if (!future$lazy) 
  [14:18:29.220]                   future <- run(future)
  [14:18:29.220]                 invisible(future)
  [14:18:29.220]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.220]         }
  [14:18:29.220]     }
  [14:18:29.220]     if (base::is.na(TRUE)) {
  [14:18:29.220]     }
  [14:18:29.220]     else {
  [14:18:29.220]         if (TRUE) {
  [14:18:29.220]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:29.220]                 open = "w")
  [14:18:29.220]         }
  [14:18:29.220]         else {
  [14:18:29.220]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:29.220]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:29.220]         }
  [14:18:29.220]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:29.220]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:29.220]             base::sink(type = "output", split = FALSE)
  [14:18:29.220]             base::close(...future.stdout)
  [14:18:29.220]         }, add = TRUE)
  [14:18:29.220]     }
  [14:18:29.220]     ...future.frame <- base::sys.nframe()
  [14:18:29.220]     ...future.conditions <- base::list()
  [14:18:29.220]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:29.220]     ...future.result <- base::tryCatch({
  [14:18:29.220]         base::withCallingHandlers({
  [14:18:29.220]             ...future.value <- base::withVisible(base::local({
  [14:18:29.220]                 doFuture::registerDoFuture()
  [14:18:29.220]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.220]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.220]                   a <- NULL
  [14:18:29.220]                   ...future.env <- environment()
  [14:18:29.220]                   local({
  [14:18:29.220]                     for (name in names(...future.x_jj)) {
  [14:18:29.220]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.220]                         inherits = FALSE)
  [14:18:29.220]                     }
  [14:18:29.220]                   })
  [14:18:29.220]                   tryCatch({
  [14:18:29.220]                     plan_list <- future::plan("next")
  [14:18:29.220]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:29.220]                     plan_a <- future::plan("list")
  [14:18:29.220]                     str(plan_a)
  [14:18:29.220]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:29.220]                     message("foreach() - level 2 ...")
  [14:18:29.220]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:29.220]                       {
  [14:18:29.220]                         plan_list <- future::plan("next")
  [14:18:29.220]                         message(capture.output(print(plan_list)))
  [14:18:29.220]                         stopifnot(inherits(plan_list, "future"))
  [14:18:29.220]                         default <- getOption("future.plan", "sequential")
  [14:18:29.220]                         if (is.function(default)) 
  [14:18:29.220]                           default <- class(default)
  [14:18:29.220]                         stopifnot(inherits(plan_list, default))
  [14:18:29.220]                         plan_b <- future::plan("list")
  [14:18:29.220]                         str(plan_b)
  [14:18:29.220]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.220]                           inherits(plan_b[[1]], default))
  [14:18:29.220]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.220]                       }
  [14:18:29.220]                     message("foreach() - level 2 ... DONE")
  [14:18:29.220]                     y
  [14:18:29.220]                   }, error = identity)
  [14:18:29.220]                 })
  [14:18:29.220]             }))
  [14:18:29.220]             future::FutureResult(value = ...future.value$value, 
  [14:18:29.220]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.220]                   ...future.rng), started = ...future.startTime, 
  [14:18:29.220]                 version = "1.8")
  [14:18:29.220]         }, condition = base::local({
  [14:18:29.220]             c <- base::c
  [14:18:29.220]             inherits <- base::inherits
  [14:18:29.220]             invokeRestart <- base::invokeRestart
  [14:18:29.220]             length <- base::length
  [14:18:29.220]             list <- base::list
  [14:18:29.220]             seq.int <- base::seq.int
  [14:18:29.220]             signalCondition <- base::signalCondition
  [14:18:29.220]             sys.calls <- base::sys.calls
  [14:18:29.220]             Sys.time <- base::Sys.time
  [14:18:29.220]             `[[` <- base::`[[`
  [14:18:29.220]             `+` <- base::`+`
  [14:18:29.220]             `<<-` <- base::`<<-`
  [14:18:29.220]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:29.220]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:29.220]                   3L)]
  [14:18:29.220]             }
  [14:18:29.220]             function(cond) {
  [14:18:29.220]                 if (inherits(cond, "error")) {
  [14:18:29.220]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.220]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:29.220]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:29.220]                   signalCondition(cond)
  [14:18:29.220]                 }
  [14:18:29.220]                 else if (inherits(cond, "condition")) {
  [14:18:29.220]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:29.220]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.220]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:29.220]                   if (!signal) {
  [14:18:29.220]                     muffleCondition <- function (cond) 
  [14:18:29.220]                     {
  [14:18:29.220]                       inherits <- base::inherits
  [14:18:29.220]                       invokeRestart <- base::invokeRestart
  [14:18:29.220]                       muffled <- FALSE
  [14:18:29.220]                       if (inherits(cond, "message")) {
  [14:18:29.220]                         invokeRestart("muffleMessage")
  [14:18:29.220]                         muffled <- TRUE
  [14:18:29.220]                       }
  [14:18:29.220]                       else if (inherits(cond, "warning")) {
  [14:18:29.220]                         invokeRestart("muffleWarning")
  [14:18:29.220]                         muffled <- TRUE
  [14:18:29.220]                       }
  [14:18:29.220]                       else if (inherits(cond, "condition")) {
  [14:18:29.220]                         computeRestarts <- base::computeRestarts
  [14:18:29.220]                         grepl <- base::grepl
  [14:18:29.220]                         is.null <- base::is.null
  [14:18:29.220]                         restarts <- computeRestarts(cond)
  [14:18:29.220]                         for (restart in restarts) {
  [14:18:29.220]                           name <- restart$name
  [14:18:29.220]                           if (is.null(name)) 
  [14:18:29.220]                             next
  [14:18:29.220]                           if (!grepl("^muffle", name)) 
  [14:18:29.220]                             next
  [14:18:29.220]                           invokeRestart(restart)
  [14:18:29.220]                           muffled <- TRUE
  [14:18:29.220]                           break
  [14:18:29.220]                         }
  [14:18:29.220]                       }
  [14:18:29.220]                       invisible(muffled)
  [14:18:29.220]                     }
  [14:18:29.220]                     muffleCondition(cond)
  [14:18:29.220]                   }
  [14:18:29.220]                 }
  [14:18:29.220]             }
  [14:18:29.220]         }))
  [14:18:29.220]     }, error = function(ex) {
  [14:18:29.220]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:29.220]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.220]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:29.220]     }, finally = {
  [14:18:29.220]         {
  [14:18:29.220]             {
  [14:18:29.220]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:29.220]             }
  [14:18:29.220]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:29.220]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.220]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:29.220]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:29.220]             {
  [14:18:29.220]                 if (substitute) 
  [14:18:29.220]                   expr <- substitute(expr)
  [14:18:29.220]                 if (is.function(workers)) 
  [14:18:29.220]                   workers <- workers()
  [14:18:29.220]                 workers <- as.integer(workers)
  [14:18:29.220]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:29.220]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:29.220]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:29.220]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:29.220]                     local = TRUE, label = label, ...))
  [14:18:29.220]                 }
  [14:18:29.220]                 oopts <- options(mc.cores = workers)
  [14:18:29.220]                 on.exit(options(oopts))
  [14:18:29.220]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:29.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.220]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:29.220]                   label = label, ...)
  [14:18:29.220]                 if (!future$lazy) 
  [14:18:29.220]                   future <- run(future)
  [14:18:29.220]                 invisible(future)
  [14:18:29.220]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:29.220]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:18:29.220]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:29.220]             {
  [14:18:29.220]                 if (substitute) 
  [14:18:29.220]                   expr <- substitute(expr)
  [14:18:29.220]                 local <- as.logical(local)
  [14:18:29.220]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.220]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.220]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.220]                   label = label, ...)
  [14:18:29.220]                 if (!future$lazy) 
  [14:18:29.220]                   future <- run(future)
  [14:18:29.220]                 invisible(future)
  [14:18:29.220]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.220]         }
  [14:18:29.220]         base::options(...future.oldOptions)
  [14:18:29.220]     })
  [14:18:29.220]     Sys.time
  [14:18:29.220]     if (base::is.na(TRUE)) {
  [14:18:29.220]     }
  [14:18:29.220]     else {
  [14:18:29.220]         base::sink(type = "output", split = FALSE)
  [14:18:29.220]         if (TRUE) {
  [14:18:29.220]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:29.220]         }
  [14:18:29.220]         else {
  [14:18:29.220]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:29.220]         }
  [14:18:29.220]         base::close(...future.stdout)
  [14:18:29.220]         ...future.stdout <- NULL
  [14:18:29.220]     }
  [14:18:29.220]     ...future.result$conditions <- ...future.conditions
  [14:18:29.220]     ...future.result
  [14:18:29.220] }
  [14:18:29.226] requestCore(): workers = 2
  [14:18:29.231] MulticoreFuture started
  [14:18:29.232] Chunk #2 of 2 ... DONE
  [14:18:29.233] Launching 2 futures (chunks) ... DONE
  [14:18:29.233] - resolving futures
  [14:18:29.234]   - gathering results & relaying conditions (except errors)
  [14:18:29.234] resolve() on list ...
  [14:18:29.235]  recursive: 0
  [14:18:29.235]  length: 2
  [14:18:29.236] 
  [14:18:29.249] plan(): Setting new future strategy stack:
  [14:18:29.250] List of future strategies:
  [14:18:29.250] 1. sequential:
  [14:18:29.250]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.250]    - tweaked: FALSE
  [14:18:29.250]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.252] plan(): nbrOfWorkers() = 1
  [14:18:29.648] plan(): Setting new future strategy stack:
  [14:18:29.649] List of future strategies:
  [14:18:29.649] 1. multicore:
  [14:18:29.649]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:29.649]    - tweaked: FALSE
  [14:18:29.649]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.649] 2. sequential:
  [14:18:29.649]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.649]    - tweaked: FALSE
  [14:18:29.649]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.651] plan(): nbrOfWorkers() = 2
  [14:18:29.690] plan(): Setting new future strategy stack:
  [14:18:29.691] List of future strategies:
  [14:18:29.691] 1. multicore:
  [14:18:29.691]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:29.691]    - tweaked: FALSE
  [14:18:29.691]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.691] 2. sequential:
  [14:18:29.691]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.691]    - tweaked: FALSE
  [14:18:29.691]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.693] plan(): nbrOfWorkers() = 2
  [14:18:29.738] Future #1
  [14:18:29.742] signalConditions() ...
  [14:18:29.742]  - include = 'immediateCondition'
  [14:18:29.743]  - exclude = 
  [14:18:29.743]  - resignal = FALSE
  [14:18:29.743]  - Number of conditions: 140
  [14:18:29.744] signalConditions() ... done
  [14:18:29.745] signalConditions() ...
  [14:18:29.745]  - include = 'immediateCondition'
  [14:18:29.746]  - exclude = 
  [14:18:29.746]  - resignal = FALSE
  [14:18:29.746]  - Number of conditions: 140
  [14:18:29.752] signalConditions() ... done
  [14:18:29.752] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:18:29.753] - nx: 2
  [14:18:29.753] - relay: TRUE
  [14:18:29.754] - stdout: TRUE
  [14:18:29.754] - signal: TRUE
  [14:18:29.754] - resignal: FALSE
  [14:18:29.755] - force: FALSE
  [14:18:29.755] - relayed: [n=2] FALSE, FALSE
  [14:18:29.755] - queued futures: [n=2] FALSE, FALSE
  [14:18:29.756]  - until=1
  [14:18:29.756]  - relaying element #1
  [14:18:29.757] signalConditions() ...
  [14:18:29.757]  - include = 'immediateCondition'
  [14:18:29.757]  - exclude = 
  [14:18:29.758]  - resignal = FALSE
  [14:18:29.758]  - Number of conditions: 140
  [14:18:29.759] 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"
  [14:18:29.760] signalConditions() ...
  [14:18:29.760]  - include = 'immediateCondition'
  [14:18:29.761]  - exclude = 
  [14:18:29.761]  - resignal = FALSE
  [14:18:29.761]  - Number of conditions: 140
  [14:18:29.762] signalConditions() ... done
  [14:18:29.763] signalConditions() ...
  [14:18:29.763]  - include = 'condition'
  [14:18:29.763]  - exclude = 'immediateCondition'
  [14:18:29.764]  - resignal = FALSE
  [14:18:29.764]  - Number of conditions: 140
  [14:18:29.765]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:29.765]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:29.211] doFuture() ...
  [14:18:29.766]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:29.215] - dummy globals (as locals): [1] 'b'
  [14:18:29.766]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:29.217] - R expression:
  [14:18:29.780]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:29.217] {
  [14:18:29.217]     doFuture::registerDoFuture()
  [14:18:29.217]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.217]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.217]         b <- NULL
  [14:18:29.217]         ...future.env <- environment()
  [14:18:29.217]         local({
  [14:18:29.217]             for (name in names(...future.x_jj)) {
  [14:18:29.217]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.217]                   inherits = FALSE)
  [14:18:29.217]             }
  [14:18:29.217]         })
  [14:18:29.217]         tryCatch({
  [14:18:29.217]             plan_list <- future::plan("next")
  [14:18:29.217]             message(capture.output(print(plan_list)))
  [14:18:29.217]             stopifnot(inherits(plan_list, "future"))
  [14:18:29.217]             default <- getOption("future.plan", "sequential")
  [14:18:29.217]             if (is.function(default)) 
  [14:18:29.217]                 default <- class(default)
  [14:18:29.217]             stopifnot(inherits(plan_list, default))
  [14:18:29.217]             plan_b <- future::plan("list")
  [14:18:29.217]             str(plan_b)
  [14:18:29.217]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:29.217]                 default))
  [14:18:29.217]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.217]         }, error = identity)
  [14:18:29.217]     })
  [14:18:29.217] }
  [14:18:29.780]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:29.219] - identifying globals and packages ...
  [14:18:29.781]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:29.220] getGlobalsAndPackages() ...
  [14:18:29.781]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:29.221] Searching for globals...
  [14:18:29.782]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:29.292] - 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'
  [14:18:29.783]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:29.293] Searching for globals ... DONE
  [14:18:29.783]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:29.293] Resolving globals: FALSE
  [14:18:29.784]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:29.297] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:18:29.784]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:29.298] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:29.785]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:29.298] - packages: [1] 'utils'
  [14:18:29.785]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:29.299] getGlobalsAndPackages() ... DONE
  [14:18:29.786]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:29.300] List of 3
  [14:18:29.300]  $ ...future.x_ii: NULL
  [14:18:29.300]  $ a             : int 1
  [14:18:29.300]  $ plan_a        :List of 1
  [14:18:29.300]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:29.300]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:29.300]     ...)  
  [14:18:29.300]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:29.300]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:29.300]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:29.300]  - attr(*, "where")=List of 3
  [14:18:29.300]   ..$ ...future.x_ii:<environment: 0x562635b63a88> 
  [14:18:29.300]   ..$ a             :<environment: 0x5626350d5310> 
  [14:18:29.300]   ..$ plan_a        :<environment: 0x5626350d5310> 
  [14:18:29.300]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.300]  - attr(*, "resolved")= logi FALSE
  [14:18:29.300]  - attr(*, "total_size")= num 40624
  [14:18:29.786]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:29.317]   - R expression:
  [14:18:29.787]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:29.318] {
  [14:18:29.318]     doFuture::registerDoFuture()
  [14:18:29.318]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.318]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.318]         b <- NULL
  [14:18:29.318]         ...future.env <- environment()
  [14:18:29.318]         local({
  [14:18:29.318]             for (name in names(...future.x_jj)) {
  [14:18:29.318]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.318]                   inherits = FALSE)
  [14:18:29.318]             }
  [14:18:29.318]         })
  [14:18:29.318]         tryCatch({
  [14:18:29.318]             plan_list <- future::plan("next")
  [14:18:29.318]             message(capture.output(print(plan_list)))
  [14:18:29.318]             stopifnot(inherits(plan_list, "future"))
  [14:18:29.318]             default <- getOption("future.plan", "sequential")
  [14:18:29.318]             if (is.function(default)) 
  [14:18:29.318]                 default <- class(default)
  [14:18:29.318]             stopifnot(inherits(plan_list, default))
  [14:18:29.318]             plan_b <- future::plan("list")
  [14:18:29.318]             str(plan_b)
  [14:18:29.318]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:29.318]                 default))
  [14:18:29.318]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.318]         }, error = identity)
  [14:18:29.318]     })
  [14:18:29.318] }
  [14:18:29.788]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:29.335]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:29.788]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:29.336] List of 3
  [14:18:29.336]  $ ...future.x_ii: NULL
  [14:18:29.336]  $ a             : int 1
  [14:18:29.336]  $ plan_a        :List of 1
  [14:18:29.336]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:29.336]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:29.336]     ...)  
  [14:18:29.336]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:29.336]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:29.336]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:29.336]  - attr(*, "where")=List of 3
  [14:18:29.336]   ..$ ...future.x_ii:<environment: 0x562635b63a88> 
  [14:18:29.336]   ..$ a             :<environment: 0x5626350d5310> 
  [14:18:29.336]   ..$ plan_a        :<environment: 0x5626350d5310> 
  [14:18:29.336]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.336]  - attr(*, "resolved")= logi FALSE
  [14:18:29.336]  - attr(*, "total_size")= num 40624
  [14:18:29.789]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:29.367]   - packages: [2] 'doFuture', 'utils'
  [14:18:29.789]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:29.372] - identifying globals and packages ... DONE
  [14:18:29.790]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:29.373] Number of chunks: 1
  [14:18:29.790]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:29.374] Number of futures (= number of chunks): 1
  [14:18:29.791]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:29.375] Launching 1 futures (chunks) ...
  [14:18:29.791]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:29.375] Chunk #1 of 1 ...
  [14:18:29.792]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:29.376]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:29.793]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:29.377] getGlobalsAndPackages() ...
  [14:18:29.814]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:29.377] Searching for globals...
  [14:18:29.815]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:29.378] 
  [14:18:29.816]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:29.379] Searching for globals ... DONE
  [14:18:29.816]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:29.380] - globals: [0] <none>
  [14:18:29.817]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:29.380] getGlobalsAndPackages() ... DONE
  [14:18:29.818]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:29.381] 
  [14:18:29.818]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:29.381] 
  [14:18:29.819]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:29.382]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:29.819]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:29.431] getGlobalsAndPackages() ...
  [14:18:29.820]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:29.432] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:29.821]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:29.432] Resolving globals: FALSE
  [14:18:29.821]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:29.434] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:18:29.822]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:29.435] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:29.839]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:29.436] 
  [14:18:29.839]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:29.437] getGlobalsAndPackages() ... DONE
  [14:18:29.840]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:29.440] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:29.841]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:29.441] Packages needed by future strategies (n = 0): <none>
  [14:18:29.841]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:29.472] {
  [14:18:29.472]     {
  [14:18:29.472]         ...future.startTime <- base::Sys.time()
  [14:18:29.472]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:29.472]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:29.472]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:29.472]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:29.472]             future.resolve.recursive = NULL, width = 80L)
  [14:18:29.472]         {
  [14:18:29.472]             {
  [14:18:29.472]                 {
  [14:18:29.472]                   has_future <- base::requireNamespace("future", 
  [14:18:29.472]                     quietly = TRUE)
  [14:18:29.472]                   version <- if (has_future) 
  [14:18:29.472]                     utils::packageVersion("future")
  [14:18:29.472]                   else NULL
  [14:18:29.472]                   if (!has_future || version < "1.8.0") {
  [14:18:29.472]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:29.472]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:29.472]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:29.472]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:29.472]                         "release", "version")], collapse = " "), 
  [14:18:29.472]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:29.472]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:29.472]                       info)
  [14:18:29.472]                     info <- base::paste(info, collapse = "; ")
  [14:18:29.472]                     if (!has_future) {
  [14:18:29.472]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:29.472]                         info)
  [14:18:29.472]                     }
  [14:18:29.472]                     else {
  [14:18:29.472]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:29.472]                         info, version)
  [14:18:29.472]                     }
  [14:18:29.472]                     base::stop(msg)
  [14:18:29.472]                   }
  [14:18:29.472]                 }
  [14:18:29.472]                 base::local({
  [14:18:29.472]                   for (pkg in c("doFuture", "utils")) {
  [14:18:29.472]                     base::loadNamespace(pkg)
  [14:18:29.472]                     base::library(pkg, character.only = TRUE)
  [14:18:29.472]                   }
  [14:18:29.472]                 })
  [14:18:29.472]             }
  [14:18:29.472]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:29.472]         }
  [14:18:29.472]     }
  [14:18:29.472]     if (base::is.na(TRUE)) {
  [14:18:29.472]     }
  [14:18:29.472]     else {
  [14:18:29.472]         if (TRUE) {
  [14:18:29.472]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:29.472]                 open = "w")
  [14:18:29.472]         }
  [14:18:29.472]         else {
  [14:18:29.472]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:29.472]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:29.472]         }
  [14:18:29.472]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:29.472]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:29.472]             base::sink(type = "output", split = FALSE)
  [14:18:29.472]             base::close(...future.stdout)
  [14:18:29.472]         }, add = TRUE)
  [14:18:29.472]     }
  [14:18:29.472]     ...future.frame <- base::sys.nframe()
  [14:18:29.472]     ...future.conditions <- base::list()
  [14:18:29.472]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:29.472]     ...future.result <- base::tryCatch({
  [14:18:29.472]         base::withCallingHandlers({
  [14:18:29.472]             ...future.value <- base::withVisible(base::local({
  [14:18:29.472]                 doFuture::registerDoFuture()
  [14:18:29.472]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.472]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.472]                   b <- NULL
  [14:18:29.472]                   ...future.env <- environment()
  [14:18:29.472]                   local({
  [14:18:29.472]                     for (name in names(...future.x_jj)) {
  [14:18:29.472]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.472]                         inherits = FALSE)
  [14:18:29.472]                     }
  [14:18:29.472]                   })
  [14:18:29.472]                   tryCatch({
  [14:18:29.472]                     plan_list <- future::plan("next")
  [14:18:29.472]                     message(capture.output(print(plan_list)))
  [14:18:29.472]                     stopifnot(inherits(plan_list, "future"))
  [14:18:29.472]                     default <- getOption("future.plan", "sequential")
  [14:18:29.472]                     if (is.function(default)) 
  [14:18:29.472]                       default <- class(default)
  [14:18:29.472]                     stopifnot(inherits(plan_list, default))
  [14:18:29.472]                     plan_b <- future::plan("list")
  [14:18:29.472]                     str(plan_b)
  [14:18:29.472]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.472]                       inherits(plan_b[[1]], default))
  [14:18:29.472]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.472]                   }, error = identity)
  [14:18:29.472]                 })
  [14:18:29.472]             }))
  [14:18:29.472]             future::FutureResult(value = ...future.value$value, 
  [14:18:29.472]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.472]                   ...future.rng), started = ...future.startTime, 
  [14:18:29.472]                 version = "1.8")
  [14:18:29.472]         }, condition = base::local({
  [14:18:29.472]             c <- base::c
  [14:18:29.472]             inherits <- base::inherits
  [14:18:29.472]             invokeRestart <- base::invokeRestart
  [14:18:29.472]             length <- base::length
  [14:18:29.472]             list <- base::list
  [14:18:29.472]             seq.int <- base::seq.int
  [14:18:29.472]             signalCondition <- base::signalCondition
  [14:18:29.472]             sys.calls <- base::sys.calls
  [14:18:29.472]             Sys.time <- base::Sys.time
  [14:18:29.472]             `[[` <- base::`[[`
  [14:18:29.472]             `+` <- base::`+`
  [14:18:29.472]             `<<-` <- base::`<<-`
  [14:18:29.472]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:29.472]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:29.472]                   3L)]
  [14:18:29.472]             }
  [14:18:29.472]             function(cond) {
  [14:18:29.472]                 if (inherits(cond, "error")) {
  [14:18:29.472]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.472]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:29.472]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:29.472]                   signalCondition(cond)
  [14:18:29.472]                 }
  [14:18:29.472]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:29.472]                 ))) {
  [14:18:29.472]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:29.472]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.472]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:29.472]                   if (!signal) {
  [14:18:29.472]                     muffleCondition <- function (cond) 
  [14:18:29.472]                     {
  [14:18:29.472]                       inherits <- base::inherits
  [14:18:29.472]                       invokeRestart <- base::invokeRestart
  [14:18:29.472]                       muffled <- FALSE
  [14:18:29.472]                       if (inherits(cond, "message")) {
  [14:18:29.472]                         invokeRestart("muffleMessage")
  [14:18:29.472]                         muffled <- TRUE
  [14:18:29.472]                       }
  [14:18:29.472]                       else if (inherits(cond, "warning")) {
  [14:18:29.472]                         invokeRestart("muffleWarning")
  [14:18:29.472]                         muffled <- TRUE
  [14:18:29.472]                       }
  [14:18:29.472]                       else if (inherits(cond, "condition")) {
  [14:18:29.472]                         computeRestarts <- base::computeRestarts
  [14:18:29.472]                         grepl <- base::grepl
  [14:18:29.472]                         is.null <- base::is.null
  [14:18:29.472]                         restarts <- computeRestarts(cond)
  [14:18:29.472]                         for (restart in restarts) {
  [14:18:29.472]                           name <- restart$name
  [14:18:29.472]                           if (is.null(name)) 
  [14:18:29.472]                             next
  [14:18:29.472]                           if (!grepl("^muffle", name)) 
  [14:18:29.472]                             next
  [14:18:29.472]                           invokeRestart(restart)
  [14:18:29.472]                           muffled <- TRUE
  [14:18:29.472]                           break
  [14:18:29.472]                         }
  [14:18:29.472]                       }
  [14:18:29.472]                       invisible(muffled)
  [14:18:29.472]                     }
  [14:18:29.472]                     muffleCondition(cond)
  [14:18:29.472]                   }
  [14:18:29.472]                 }
  [14:18:29.472]             }
  [14:18:29.472]         }))
  [14:18:29.472]     }, error = function(ex) {
  [14:18:29.472]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:29.472]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.472]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:29.472]     }, finally = {
  [14:18:29.472]         {
  [14:18:29.472]             NULL
  [14:18:29.472]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:29.472]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.472]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:29.472]                 label = NULL, ...) 
  [14:18:29.472]             {
  [14:18:29.472]                 if (substitute) 
  [14:18:29.472]                   expr <- substitute(expr)
  [14:18:29.472]                 local <- as.logical(local)
  [14:18:29.472]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.472]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.472]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.472]                   label = label, ...)
  [14:18:29.472]                 if (!future$lazy) 
  [14:18:29.472]                   future <- run(future)
  [14:18:29.472]                 invisible(future)
  [14:18:29.472]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.472]         }
  [14:18:29.472]         base::options(...future.oldOptions)
  [14:18:29.472]     })
  [14:18:29.472]     Sys.time
  [14:18:29.472]     if (base::is.na(TRUE)) {
  [14:18:29.472]     }
  [14:18:29.472]     else {
  [14:18:29.472]         base::sink(type = "output", split = FALSE)
  [14:18:29.472]         if (TRUE) {
  [14:18:29.472]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:29.472]         }
  [14:18:29.472]         else {
  [14:18:29.472]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:29.472]         }
  [14:18:29.472]         base::close(...future.stdout)
  [14:18:29.472]         ...future.stdout <- NULL
  [14:18:29.472]     }
  [14:18:29.472]     ...future.result$conditions <- ...future.conditions
  [14:18:29.472]     ...future.result
  [14:18:29.472] }
  [14:18:29.842]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:29.500] plan(): Setting new future strategy stack:
  [14:18:29.842]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:29.500] List of future strategies:
  [14:18:29.500] 1. sequential:
  [14:18:29.500]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.500]    - tweaked: FALSE
  [14:18:29.500]    - call: NULL
  [14:18:29.843]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:29.502] plan(): nbrOfWorkers() = 1
  [14:18:29.844]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:29.540] plan(): Setting new future strategy stack:
  [14:18:29.844]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:29.540] List of future strategies:
  [14:18:29.540] 1. sequential:
  [14:18:29.540]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.540]    - tweaked: FALSE
  [14:18:29.540]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:29.845]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:29.542] plan(): nbrOfWorkers() = 1
  [14:18:29.845]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:29.559] SequentialFuture started (and completed)
  [14:18:29.846]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:29.560] signalConditions() ...
  [14:18:29.846]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:29.560]  - include = 'immediateCondition'
  [14:18:29.847]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:29.561]  - exclude = 
  [14:18:29.848]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:29.562]  - resignal = FALSE
  [14:18:29.848]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:29.562]  - Number of conditions: 3
  [14:18:29.849]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:29.563] signalConditions() ... done
  [14:18:29.849]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:29.564] Chunk #1 of 1 ... DONE
  [14:18:29.850]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:29.564] Launching 1 futures (chunks) ... DONE
  [14:18:29.850]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:29.565] - resolving futures
  [14:18:29.851]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:29.566]   - gathering results & relaying conditions (except errors)
  [14:18:29.851]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:29.566] resolve() on list ...
  [14:18:29.852]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:29.567]  recursive: 0
  [14:18:29.852]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:29.567]  length: 1
  [14:18:29.853]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:29.568] 
  [14:18:29.853]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:29.569] Future #1
  [14:18:29.854]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:29.569] signalConditions() ...
  [14:18:29.871]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:29.570]  - include = 'immediateCondition'
  [14:18:29.871]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:29.571]  - exclude = 
  [14:18:29.872]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:29.571]  - resignal = FALSE
  [14:18:29.872]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:29.572]  - Number of conditions: 3
  [14:18:29.873]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:29.573] signalConditions() ... done
  [14:18:29.873]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:29.573] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:29.874]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:29.574] - nx: 1
  [14:18:29.874]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:29.591] - relay: TRUE
  [14:18:29.875]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:29.591] - stdout: TRUE
  [14:18:29.875]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:29.592] - signal: TRUE
  [14:18:29.876]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:29.592] - resignal: FALSE
  [14:18:29.876]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:29.593] - force: FALSE
  [14:18:29.877]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:29.594] - relayed: [n=1] FALSE
  [14:18:29.877]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:29.594] - queued futures: [n=1] FALSE
  [14:18:29.878]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:29.595]  - until=1
  [14:18:29.878]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:29.595]  - relaying element #1
  [14:18:29.879]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:29.596] signalConditions() ...
  [14:18:29.879]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:29.597]  - include = 'immediateCondition'
  [14:18:29.880]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:29.597]  - exclude = 
  [14:18:29.880]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:29.598]  - resignal = FALSE
  [14:18:29.881]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:29.598]  - Number of conditions: 3
  [14:18:29.881]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:29.599] signalConditions() ... done
  [14:18:29.882]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:29.600] signalConditions() ...
  [14:18:29.882]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:29.600]  - include = 'immediateCondition'
  [14:18:29.883]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:29.601]  - exclude = 
  [14:18:29.883]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:29.602]  - resignal = FALSE
  [14:18:29.884]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:29.602]  - Number of conditions: 3
  [14:18:29.884]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:29.603] signalConditions() ... done
  [14:18:29.885]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:29.603] signalConditions() ...
  [14:18:29.885]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:29.604]  - include = 'condition'
  [14:18:29.886]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:29.605]  - exclude = 'immediateCondition'
  [14:18:29.886]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:29.605]  - resignal = FALSE
  [14:18:29.903]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:29.606]  - Number of conditions: 3
  [14:18:29.903]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:29.606]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:29.904]  - Condition #104: '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
  [14:18:29.904]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:29.607]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:29.909]  - Condition #106: '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
  [14:18:29.910]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:29.608]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:29.910]  - Condition #108: '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
  [14:18:29.911]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:29.609] signalConditions() ... done
  [14:18:29.911]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:29.610] - relayed: [n=1] TRUE
  [14:18:29.912]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:29.610] - queued futures: [n=1] TRUE
  [14:18:29.912]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:29.611] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:29.913]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:29.612]  length: 0 (resolved future 1)
  [14:18:29.914]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:29.612] Relaying remaining futures
  [14:18:29.914]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:29.613] signalConditionsASAP(NULL, pos=0) ...
  [14:18:29.914]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:29.613] - nx: 1
  [14:18:29.915]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:29.614] - relay: TRUE
  [14:18:29.915]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:29.614] - stdout: TRUE
  [14:18:29.916]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:29.615] - signal: TRUE
  [14:18:29.916]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:29.615] - resignal: FALSE
  [14:18:29.917]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:29.616] - force: FALSE
  [14:18:29.917]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:29.617] - relayed: [n=1] TRUE
  [14:18:29.918]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:29.617] - queued futures: [n=1] TRUE
  [14:18:29.918]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:29.919]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:29.618] - relayed: [n=1] TRUE
  [14:18:29.919]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:29.629] - queued futures: [n=1] TRUE
  [14:18:29.920]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:29.630] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:29.920]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:29.630] resolve() on list ... DONE
  [14:18:29.921]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:29.631] - collecting values of futures
  [14:18:29.921]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:29.632] signalConditions() ...
  [14:18:29.922]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:29.632]  - include = 'immediateCondition'
  [14:18:29.939]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:29.633]  - exclude = 
  [14:18:29.939]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:29.633]  - resignal = FALSE
  [14:18:29.940]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:29.634]  - Number of conditions: 3
  [14:18:29.940]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:29.635] signalConditions() ... done
  [14:18:29.946]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:29.635] - accumulating results
  [14:18:29.946]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:29.637] - processing errors (handler = 'stop')
  [14:18:29.947]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:29.638] - extracting results
  [14:18:29.947]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:29.638] doFuture() ... DONE
  [14:18:29.948]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:29.948] signalConditions() ... done
  [14:18:29.949] - relayed: [n=2] TRUE, FALSE
  [14:18:29.949] - queued futures: [n=2] TRUE, FALSE
  [14:18:29.950] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:18:29.950]  length: 1 (resolved future 1)
  [14:18:29.951] Future #2
  [14:18:29.964] signalConditions() ...
  [14:18:29.965]  - include = 'immediateCondition'
  [14:18:29.965]  - exclude = 
  [14:18:29.966]  - resignal = FALSE
  [14:18:29.966]  - Number of conditions: 140
  [14:18:29.971] signalConditions() ... done
  [14:18:29.971] signalConditions() ...
  [14:18:29.972]  - include = 'immediateCondition'
  [14:18:29.972]  - exclude = 
  [14:18:29.972]  - resignal = FALSE
  [14:18:29.973]  - Number of conditions: 140
  [14:18:29.974] signalConditions() ... done
  [14:18:29.974] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:18:29.980] - nx: 2
  [14:18:29.980] - relay: TRUE
  [14:18:29.981] - stdout: TRUE
  [14:18:29.981] - signal: TRUE
  [14:18:29.981] - resignal: FALSE
  [14:18:29.982] - force: FALSE
  [14:18:29.982] - relayed: [n=2] TRUE, FALSE
  [14:18:29.982] - queued futures: [n=2] TRUE, FALSE
  [14:18:29.986]  - until=2
  [14:18:29.986]  - relaying element #2
  [14:18:29.987] signalConditions() ...
  [14:18:29.987]  - include = 'immediateCondition'
  [14:18:29.987]  - exclude = 
  [14:18:29.988]  - resignal = FALSE
  [14:18:29.988]  - Number of conditions: 140
  [14:18:29.989] 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"
  [14:18:29.989] signalConditions() ...
  [14:18:29.990]  - include = 'immediateCondition'
  [14:18:29.990]  - exclude = 
  [14:18:29.997]  - resignal = FALSE
  [14:18:29.997]  - Number of conditions: 140
  [14:18:29.998] signalConditions() ... done
  [14:18:30.000] signalConditions() ...
  [14:18:30.000]  - include = 'condition'
  [14:18:30.000]  - exclude = 'immediateCondition'
  [14:18:30.001]  - resignal = FALSE
  [14:18:30.001]  - Number of conditions: 140
  [14:18:30.001]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:30.002]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:29.279] doFuture() ...
  [14:18:30.002]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:29.282] - dummy globals (as locals): [1] 'b'
  [14:18:30.003]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:29.283] - R expression:
  [14:18:30.003]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:29.284] {
  [14:18:29.284]     doFuture::registerDoFuture()
  [14:18:29.284]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.284]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.284]         b <- NULL
  [14:18:29.284]         ...future.env <- environment()
  [14:18:29.284]         local({
  [14:18:29.284]             for (name in names(...future.x_jj)) {
  [14:18:29.284]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.284]                   inherits = FALSE)
  [14:18:29.284]             }
  [14:18:29.284]         })
  [14:18:29.284]         tryCatch({
  [14:18:29.284]             plan_list <- future::plan("next")
  [14:18:29.284]             message(capture.output(print(plan_list)))
  [14:18:29.284]             stopifnot(inherits(plan_list, "future"))
  [14:18:29.284]             default <- getOption("future.plan", "sequential")
  [14:18:29.284]             if (is.function(default)) 
  [14:18:29.284]                 default <- class(default)
  [14:18:29.284]             stopifnot(inherits(plan_list, default))
  [14:18:29.284]             plan_b <- future::plan("list")
  [14:18:29.284]             str(plan_b)
  [14:18:29.284]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:29.284]                 default))
  [14:18:29.284]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.284]         }, error = identity)
  [14:18:29.284]     })
  [14:18:29.284] }
  [14:18:30.004]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:29.286] - identifying globals and packages ...
  [14:18:30.004]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:29.287] getGlobalsAndPackages() ...
  [14:18:30.005]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:29.288] Searching for globals...
  [14:18:30.005]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:29.413] - 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'
  [14:18:30.006]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:29.414] Searching for globals ... DONE
  [14:18:30.006]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:29.415] Resolving globals: FALSE
  [14:18:30.015]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:29.419] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:18:30.015]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:29.419] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.016]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:29.420] - packages: [1] 'utils'
  [14:18:30.016]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:29.420] getGlobalsAndPackages() ... DONE
  [14:18:30.017]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:29.421] List of 3
  [14:18:29.421]  $ ...future.x_ii: NULL
  [14:18:29.421]  $ a             : int 2
  [14:18:29.421]  $ plan_a        :List of 1
  [14:18:29.421]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:29.421]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:29.421]     ...)  
  [14:18:29.421]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:29.421]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:29.421]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:29.421]  - attr(*, "where")=List of 3
  [14:18:29.421]   ..$ ...future.x_ii:<environment: 0x562633df3fd0> 
  [14:18:29.421]   ..$ a             :<environment: 0x562633694028> 
  [14:18:29.421]   ..$ plan_a        :<environment: 0x562633694028> 
  [14:18:29.421]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.421]  - attr(*, "resolved")= logi FALSE
  [14:18:29.421]  - attr(*, "total_size")= num 40624
  [14:18:30.017]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:29.466]   - R expression:
  [14:18:30.018]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:29.467] {
  [14:18:29.467]     doFuture::registerDoFuture()
  [14:18:29.467]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.467]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.467]         b <- NULL
  [14:18:29.467]         ...future.env <- environment()
  [14:18:29.467]         local({
  [14:18:29.467]             for (name in names(...future.x_jj)) {
  [14:18:29.467]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.467]                   inherits = FALSE)
  [14:18:29.467]             }
  [14:18:29.467]         })
  [14:18:29.467]         tryCatch({
  [14:18:29.467]             plan_list <- future::plan("next")
  [14:18:29.467]             message(capture.output(print(plan_list)))
  [14:18:29.467]             stopifnot(inherits(plan_list, "future"))
  [14:18:29.467]             default <- getOption("future.plan", "sequential")
  [14:18:29.467]             if (is.function(default)) 
  [14:18:29.467]                 default <- class(default)
  [14:18:29.467]             stopifnot(inherits(plan_list, default))
  [14:18:29.467]             plan_b <- future::plan("list")
  [14:18:29.467]             str(plan_b)
  [14:18:29.467]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:29.467]                 default))
  [14:18:29.467]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.467]         }, error = identity)
  [14:18:29.467]     })
  [14:18:29.467] }
  [14:18:30.018]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:29.468]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.019]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:29.469] List of 3
  [14:18:29.469]  $ ...future.x_ii: NULL
  [14:18:29.469]  $ a             : int 2
  [14:18:29.469]  $ plan_a        :List of 1
  [14:18:29.469]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:29.469]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:18:29.469]     ...)  
  [14:18:29.469]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:18:29.469]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:29.469]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:29.469]  - attr(*, "where")=List of 3
  [14:18:29.469]   ..$ ...future.x_ii:<environment: 0x562633df3fd0> 
  [14:18:29.469]   ..$ a             :<environment: 0x562633694028> 
  [14:18:29.469]   ..$ plan_a        :<environment: 0x562633694028> 
  [14:18:29.469]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:29.469]  - attr(*, "resolved")= logi FALSE
  [14:18:29.469]  - attr(*, "total_size")= num 40624
  [14:18:30.019]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:29.502]   - packages: [2] 'doFuture', 'utils'
  [14:18:30.020]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:29.503] - identifying globals and packages ... DONE
  [14:18:30.020]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:29.503] Number of chunks: 1
  [14:18:30.021]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:29.504] Number of futures (= number of chunks): 1
  [14:18:30.021]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:29.505] Launching 1 futures (chunks) ...
  [14:18:30.022]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:29.506] Chunk #1 of 1 ...
  [14:18:30.022]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:29.506]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:30.023]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:29.507] getGlobalsAndPackages() ...
  [14:18:30.023]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:29.507] Searching for globals...
  [14:18:30.024]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:29.509] 
  [14:18:30.024]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:29.509] Searching for globals ... DONE
  [14:18:30.025]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:29.510] - globals: [0] <none>
  [14:18:30.025]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:29.527] getGlobalsAndPackages() ... DONE
  [14:18:30.026]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:29.527] 
  [14:18:30.026]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:29.528] 
  [14:18:30.027]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:29.528]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:30.027]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:29.529] getGlobalsAndPackages() ...
  [14:18:30.028]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:29.530] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.028]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:29.531] Resolving globals: FALSE
  [14:18:30.029]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:29.533] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:18:30.029]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:29.534] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.030]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:29.534] 
  [14:18:30.046]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:29.535] getGlobalsAndPackages() ... DONE
  [14:18:30.047]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:29.538] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:30.048]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:29.539] Packages needed by future strategies (n = 0): <none>
  [14:18:30.048]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:29.562] {
  [14:18:29.562]     {
  [14:18:29.562]         ...future.startTime <- base::Sys.time()
  [14:18:29.562]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:29.562]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:29.562]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:29.562]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:29.562]             future.resolve.recursive = NULL, width = 80L)
  [14:18:29.562]         {
  [14:18:29.562]             {
  [14:18:29.562]                 {
  [14:18:29.562]                   has_future <- base::requireNamespace("future", 
  [14:18:29.562]                     quietly = TRUE)
  [14:18:29.562]                   version <- if (has_future) 
  [14:18:29.562]                     utils::packageVersion("future")
  [14:18:29.562]                   else NULL
  [14:18:29.562]                   if (!has_future || version < "1.8.0") {
  [14:18:29.562]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:29.562]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:29.562]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:29.562]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:29.562]                         "release", "version")], collapse = " "), 
  [14:18:29.562]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:29.562]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:29.562]                       info)
  [14:18:29.562]                     info <- base::paste(info, collapse = "; ")
  [14:18:29.562]                     if (!has_future) {
  [14:18:29.562]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:29.562]                         info)
  [14:18:29.562]                     }
  [14:18:29.562]                     else {
  [14:18:29.562]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:29.562]                         info, version)
  [14:18:29.562]                     }
  [14:18:29.562]                     base::stop(msg)
  [14:18:29.562]                   }
  [14:18:29.562]                 }
  [14:18:29.562]                 base::local({
  [14:18:29.562]                   for (pkg in c("doFuture", "utils")) {
  [14:18:29.562]                     base::loadNamespace(pkg)
  [14:18:29.562]                     base::library(pkg, character.only = TRUE)
  [14:18:29.562]                   }
  [14:18:29.562]                 })
  [14:18:29.562]             }
  [14:18:29.562]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:29.562]         }
  [14:18:29.562]     }
  [14:18:29.562]     if (base::is.na(TRUE)) {
  [14:18:29.562]     }
  [14:18:29.562]     else {
  [14:18:29.562]         if (TRUE) {
  [14:18:29.562]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:29.562]                 open = "w")
  [14:18:29.562]         }
  [14:18:29.562]         else {
  [14:18:29.562]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:29.562]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:29.562]         }
  [14:18:29.562]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:29.562]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:29.562]             base::sink(type = "output", split = FALSE)
  [14:18:29.562]             base::close(...future.stdout)
  [14:18:29.562]         }, add = TRUE)
  [14:18:29.562]     }
  [14:18:29.562]     ...future.frame <- base::sys.nframe()
  [14:18:29.562]     ...future.conditions <- base::list()
  [14:18:29.562]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:29.562]     ...future.result <- base::tryCatch({
  [14:18:29.562]         base::withCallingHandlers({
  [14:18:29.562]             ...future.value <- base::withVisible(base::local({
  [14:18:29.562]                 doFuture::registerDoFuture()
  [14:18:29.562]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:29.562]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:29.562]                   b <- NULL
  [14:18:29.562]                   ...future.env <- environment()
  [14:18:29.562]                   local({
  [14:18:29.562]                     for (name in names(...future.x_jj)) {
  [14:18:29.562]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:29.562]                         inherits = FALSE)
  [14:18:29.562]                     }
  [14:18:29.562]                   })
  [14:18:29.562]                   tryCatch({
  [14:18:29.562]                     plan_list <- future::plan("next")
  [14:18:29.562]                     message(capture.output(print(plan_list)))
  [14:18:29.562]                     stopifnot(inherits(plan_list, "future"))
  [14:18:29.562]                     default <- getOption("future.plan", "sequential")
  [14:18:29.562]                     if (is.function(default)) 
  [14:18:29.562]                       default <- class(default)
  [14:18:29.562]                     stopifnot(inherits(plan_list, default))
  [14:18:29.562]                     plan_b <- future::plan("list")
  [14:18:29.562]                     str(plan_b)
  [14:18:29.562]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:29.562]                       inherits(plan_b[[1]], default))
  [14:18:29.562]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:29.562]                   }, error = identity)
  [14:18:29.562]                 })
  [14:18:29.562]             }))
  [14:18:29.562]             future::FutureResult(value = ...future.value$value, 
  [14:18:29.562]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.562]                   ...future.rng), started = ...future.startTime, 
  [14:18:29.562]                 version = "1.8")
  [14:18:29.562]         }, condition = base::local({
  [14:18:29.562]             c <- base::c
  [14:18:29.562]             inherits <- base::inherits
  [14:18:29.562]             invokeRestart <- base::invokeRestart
  [14:18:29.562]             length <- base::length
  [14:18:29.562]             list <- base::list
  [14:18:29.562]             seq.int <- base::seq.int
  [14:18:29.562]             signalCondition <- base::signalCondition
  [14:18:29.562]             sys.calls <- base::sys.calls
  [14:18:29.562]             Sys.time <- base::Sys.time
  [14:18:29.562]             `[[` <- base::`[[`
  [14:18:29.562]             `+` <- base::`+`
  [14:18:29.562]             `<<-` <- base::`<<-`
  [14:18:29.562]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:29.562]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:29.562]                   3L)]
  [14:18:29.562]             }
  [14:18:29.562]             function(cond) {
  [14:18:29.562]                 if (inherits(cond, "error")) {
  [14:18:29.562]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.562]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:29.562]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:29.562]                   signalCondition(cond)
  [14:18:29.562]                 }
  [14:18:29.562]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:29.562]                 ))) {
  [14:18:29.562]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:29.562]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:29.562]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:29.562]                   if (!signal) {
  [14:18:29.562]                     muffleCondition <- function (cond) 
  [14:18:29.562]                     {
  [14:18:29.562]                       inherits <- base::inherits
  [14:18:29.562]                       invokeRestart <- base::invokeRestart
  [14:18:29.562]                       muffled <- FALSE
  [14:18:29.562]                       if (inherits(cond, "message")) {
  [14:18:29.562]                         invokeRestart("muffleMessage")
  [14:18:29.562]                         muffled <- TRUE
  [14:18:29.562]                       }
  [14:18:29.562]                       else if (inherits(cond, "warning")) {
  [14:18:29.562]                         invokeRestart("muffleWarning")
  [14:18:29.562]                         muffled <- TRUE
  [14:18:29.562]                       }
  [14:18:29.562]                       else if (inherits(cond, "condition")) {
  [14:18:29.562]                         computeRestarts <- base::computeRestarts
  [14:18:29.562]                         grepl <- base::grepl
  [14:18:29.562]                         is.null <- base::is.null
  [14:18:29.562]                         restarts <- computeRestarts(cond)
  [14:18:29.562]                         for (restart in restarts) {
  [14:18:29.562]                           name <- restart$name
  [14:18:29.562]                           if (is.null(name)) 
  [14:18:29.562]                             next
  [14:18:29.562]                           if (!grepl("^muffle", name)) 
  [14:18:29.562]                             next
  [14:18:29.562]                           invokeRestart(restart)
  [14:18:29.562]                           muffled <- TRUE
  [14:18:29.562]                           break
  [14:18:29.562]                         }
  [14:18:29.562]                       }
  [14:18:29.562]                       invisible(muffled)
  [14:18:29.562]                     }
  [14:18:29.562]                     muffleCondition(cond)
  [14:18:29.562]                   }
  [14:18:29.562]                 }
  [14:18:29.562]             }
  [14:18:29.562]         }))
  [14:18:29.562]     }, error = function(ex) {
  [14:18:29.562]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:29.562]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:29.562]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:29.562]     }, finally = {
  [14:18:29.562]         {
  [14:18:29.562]             NULL
  [14:18:29.562]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:29.562]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:29.562]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:18:29.562]                 label = NULL, ...) 
  [14:18:29.562]             {
  [14:18:29.562]                 if (substitute) 
  [14:18:29.562]                   expr <- substitute(expr)
  [14:18:29.562]                 local <- as.logical(local)
  [14:18:29.562]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:18:29.562]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:29.562]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:18:29.562]                   label = label, ...)
  [14:18:29.562]                 if (!future$lazy) 
  [14:18:29.562]                   future <- run(future)
  [14:18:29.562]                 invisible(future)
  [14:18:29.562]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:29.562]         }
  [14:18:29.562]         base::options(...future.oldOptions)
  [14:18:29.562]     })
  [14:18:29.562]     Sys.time
  [14:18:29.562]     if (base::is.na(TRUE)) {
  [14:18:29.562]     }
  [14:18:29.562]     else {
  [14:18:29.562]         base::sink(type = "output", split = FALSE)
  [14:18:29.562]         if (TRUE) {
  [14:18:29.562]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:29.562]         }
  [14:18:29.562]         else {
  [14:18:29.562]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:29.562]         }
  [14:18:29.562]         base::close(...future.stdout)
  [14:18:29.562]         ...future.stdout <- NULL
  [14:18:29.562]     }
  [14:18:29.562]     ...future.result$conditions <- ...future.conditions
  [14:18:29.562]     ...future.result
  [14:18:29.562] }
  [14:18:30.049]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:29.574] plan(): Setting new future strategy stack:
  [14:18:30.049]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:29.575] List of future strategies:
  [14:18:29.575] 1. sequential:
  [14:18:29.575]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.575]    - tweaked: FALSE
  [14:18:29.575]    - call: NULL
  [14:18:30.050]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:29.576] plan(): nbrOfWorkers() = 1
  [14:18:30.050]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:29.595] plan(): Setting new future strategy stack:
  [14:18:30.051]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:29.595] List of future strategies:
  [14:18:29.595] 1. sequential:
  [14:18:29.595]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:29.595]    - tweaked: FALSE
  [14:18:29.595]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.051]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:29.597] plan(): nbrOfWorkers() = 1
  [14:18:30.052]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:29.598] SequentialFuture started (and completed)
  [14:18:30.052]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:29.598] signalConditions() ...
  [14:18:30.053]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:29.615]  - include = 'immediateCondition'
  [14:18:30.053]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:29.616]  - exclude = 
  [14:18:30.054]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:29.616]  - resignal = FALSE
  [14:18:30.054]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:29.617]  - Number of conditions: 3
  [14:18:30.055]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:29.617] signalConditions() ... done
  [14:18:30.055]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:29.618] Chunk #1 of 1 ... DONE
  [14:18:30.075]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:29.619] Launching 1 futures (chunks) ... DONE
  [14:18:30.075]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:29.619] - resolving futures
  [14:18:30.076]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:29.620]   - gathering results & relaying conditions (except errors)
  [14:18:30.077]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:29.620] resolve() on list ...
  [14:18:30.077]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:29.621]  recursive: 0
  [14:18:30.078]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:29.621]  length: 1
  [14:18:30.078]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:29.622] 
  [14:18:30.079]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:29.623] Future #1
  [14:18:30.079]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:29.623] signalConditions() ...
  [14:18:30.080]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:29.624]  - include = 'immediateCondition'
  [14:18:30.081]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:29.625]  - exclude = 
  [14:18:30.081]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:29.625]  - resignal = FALSE
  [14:18:30.082]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:29.626]  - Number of conditions: 3
  [14:18:30.082]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:29.626] signalConditions() ... done
  [14:18:30.083]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:29.627] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:30.083]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:29.627] - nx: 1
  [14:18:30.084]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:29.628] - relay: TRUE
  [14:18:30.084]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:29.629] - stdout: TRUE
  [14:18:30.085]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:29.629] - signal: TRUE
  [14:18:30.085]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:29.630] - resignal: FALSE
  [14:18:30.086]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:29.630] - force: FALSE
  [14:18:30.088]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:29.631] - relayed: [n=1] FALSE
  [14:18:30.088]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:29.631] - queued futures: [n=1] FALSE
  [14:18:30.089]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:29.632]  - until=1
  [14:18:30.090]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:29.633]  - relaying element #1
  [14:18:30.090]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:29.633] signalConditions() ...
  [14:18:30.090]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:29.634]  - include = 'immediateCondition'
  [14:18:30.091]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:29.635]  - exclude = 
  [14:18:30.091]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:29.635]  - resignal = FALSE
  [14:18:30.092]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:29.636]  - Number of conditions: 3
  [14:18:30.092]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:29.636] signalConditions() ... done
  [14:18:30.093]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:29.637] signalConditions() ...
  [14:18:30.093]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:29.638]  - include = 'immediateCondition'
  [14:18:30.094]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:29.638]  - exclude = 
  [14:18:30.094]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:29.639]  - resignal = FALSE
  [14:18:30.095]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:29.640]  - Number of conditions: 3
  [14:18:30.095]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:29.640] signalConditions() ... done
  [14:18:30.095]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:29.641] signalConditions() ...
  [14:18:30.096]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:29.642]  - include = 'condition'
  [14:18:30.096]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:29.642]  - exclude = 'immediateCondition'
  [14:18:30.097]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:29.643]  - resignal = FALSE
  [14:18:30.097]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:29.643]  - Number of conditions: 3
  [14:18:30.098]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:29.644]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:30.098]  - Condition #104: '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
  [14:18:30.099]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:29.645]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:30.099]  - Condition #106: '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
  [14:18:30.100]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:29.652]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:30.100]  - Condition #108: '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
  [14:18:30.100]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:29.653] signalConditions() ... done
  [14:18:30.101]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:29.654] - relayed: [n=1] TRUE
  [14:18:30.101]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:29.654] - queued futures: [n=1] TRUE
  [14:18:30.102]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:29.655] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:30.102]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:29.655]  length: 0 (resolved future 1)
  [14:18:30.103]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:29.656] Relaying remaining futures
  [14:18:30.103]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:29.657] signalConditionsASAP(NULL, pos=0) ...
  [14:18:30.104]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:29.657] - nx: 1
  [14:18:30.104]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:29.658] - relay: TRUE
  [14:18:30.105]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:29.658] - stdout: TRUE
  [14:18:30.105]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:29.659] - signal: TRUE
  [14:18:30.105]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:29.660] - resignal: FALSE
  [14:18:30.106]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:29.660] - force: FALSE
  [14:18:30.106]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:29.661] - relayed: [n=1] TRUE
  [14:18:30.107]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:29.661] - queued futures: [n=1] TRUE
  [14:18:30.107]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:30.108]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:29.679] - relayed: [n=1] TRUE
  [14:18:30.108]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:29.679] - queued futures: [n=1] TRUE
  [14:18:30.109]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:29.680] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:30.109]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:29.681] resolve() on list ... DONE
  [14:18:30.110]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:29.681] - collecting values of futures
  [14:18:30.110]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:29.682] signalConditions() ...
  [14:18:30.111]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:29.682]  - include = 'immediateCondition'
  [14:18:30.111]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:29.683]  - exclude = 
  [14:18:30.112]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:29.684]  - resignal = FALSE
  [14:18:30.112]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:29.684]  - Number of conditions: 3
  [14:18:30.113]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:29.685] signalConditions() ... done
  [14:18:30.113]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:29.686] - accumulating results
  [14:18:30.114]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:29.687] - processing errors (handler = 'stop')
  [14:18:30.114]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:29.688] - extracting results
  [14:18:30.115]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:29.689] doFuture() ... DONE
  [14:18:30.115]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:30.116] signalConditions() ... done
  [14:18:30.116] - relayed: [n=2] TRUE, TRUE
  [14:18:30.117] - queued futures: [n=2] TRUE, TRUE
  [14:18:30.117] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:18:30.117]  length: 0 (resolved future 2)
  [14:18:30.118] Relaying remaining futures
  [14:18:30.118] signalConditionsASAP(NULL, pos=0) ...
  [14:18:30.118] - nx: 2
  [14:18:30.119] - relay: TRUE
  [14:18:30.119] - stdout: TRUE
  [14:18:30.119] - signal: TRUE
  [14:18:30.119] - resignal: FALSE
  [14:18:30.120] - force: FALSE
  [14:18:30.120] - relayed: [n=2] TRUE, TRUE
  [14:18:30.120] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:18:30.121] - relayed: [n=2] TRUE, TRUE
  [14:18:30.121] - queued futures: [n=2] TRUE, TRUE
  [14:18:30.122] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:30.122] resolve() on list ... DONE
  [14:18:30.122] - collecting values of futures
  [14:18:30.123] signalConditions() ...
  [14:18:30.123]  - include = 'immediateCondition'
  [14:18:30.123]  - exclude = 
  [14:18:30.124]  - resignal = FALSE
  [14:18:30.124]  - Number of conditions: 140
  [14:18:30.125] signalConditions() ... done
  [14:18:30.125] signalConditions() ...
  [14:18:30.126]  - include = 'immediateCondition'
  [14:18:30.126]  - exclude = 
  [14:18:30.126]  - resignal = FALSE
  [14:18:30.127]  - Number of conditions: 140
  [14:18:30.127] signalConditions() ... done
  [14:18:30.128] - accumulating results
  [14:18:30.129] - processing errors (handler = 'stop')
  [14:18:30.225] - extracting results
  [14:18:30.225] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [14:18:30.227] plan(): Setting new future strategy stack:
  [14:18:30.228] List of future strategies:
  [14:18:30.228] 1. multicore:
  [14:18:30.228]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.228]    - tweaked: FALSE
  [14:18:30.228]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.228] 2. multicore:
  [14:18:30.228]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.228]    - tweaked: FALSE
  [14:18:30.228]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.230] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:18:30.230] doFuture() ...
  [14:18:30.232] - dummy globals (as locals): [1] 'a'
  [14:18:30.233] - R expression:
  [14:18:30.233] {
  [14:18:30.233]     doFuture::registerDoFuture()
  [14:18:30.233]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.233]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.233]         a <- NULL
  [14:18:30.233]         ...future.env <- environment()
  [14:18:30.233]         local({
  [14:18:30.233]             for (name in names(...future.x_jj)) {
  [14:18:30.233]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.233]                   inherits = FALSE)
  [14:18:30.233]             }
  [14:18:30.233]         })
  [14:18:30.233]         tryCatch({
  [14:18:30.233]             plan_list <- future::plan("next")
  [14:18:30.233]             stopifnot(inherits(plan_list, strategy2))
  [14:18:30.233]             plan_a <- future::plan("list")
  [14:18:30.233]             str(plan_a)
  [14:18:30.233]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:30.233]             message("foreach() - level 2 ...")
  [14:18:30.233]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:30.233]                 {
  [14:18:30.233]                   plan_list <- future::plan("next")
  [14:18:30.233]                   message(capture.output(print(plan_list)))
  [14:18:30.233]                   stopifnot(inherits(plan_list, "future"))
  [14:18:30.233]                   default <- getOption("future.plan", "sequential")
  [14:18:30.233]                   if (is.function(default)) 
  [14:18:30.233]                     default <- class(default)
  [14:18:30.233]                   stopifnot(inherits(plan_list, default))
  [14:18:30.233]                   plan_b <- future::plan("list")
  [14:18:30.233]                   str(plan_b)
  [14:18:30.233]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.233]                     inherits(plan_b[[1]], default))
  [14:18:30.233]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.233]                 }
  [14:18:30.233]             message("foreach() - level 2 ... DONE")
  [14:18:30.233]             y
  [14:18:30.233]         }, error = identity)
  [14:18:30.233]     })
  [14:18:30.233] }
  [14:18:30.234] - identifying globals and packages ...
  [14:18:30.235] getGlobalsAndPackages() ...
  [14:18:30.235] Searching for globals...
  [14:18:30.269] - 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'
  [14:18:30.270] Searching for globals ... DONE
  [14:18:30.270] Resolving globals: FALSE
  [14:18:30.273] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:30.273] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.274] - packages: [2] 'utils', 'foreach'
  [14:18:30.274] getGlobalsAndPackages() ... DONE
  [14:18:30.274] List of 3
  [14:18:30.274]  $ ...future.x_ii: NULL
  [14:18:30.274]  $ strategy2     : chr "multicore"
  [14:18:30.274]  $ bs            : int [1:3] 3 2 1
  [14:18:30.274]  - attr(*, "where")=List of 3
  [14:18:30.274]   ..$ ...future.x_ii:<environment: 0x562635e4bca0> 
  [14:18:30.274]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:30.274]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:30.274]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.274]  - attr(*, "resolved")= logi FALSE
  [14:18:30.274]  - attr(*, "total_size")= num 184
  [14:18:30.285]   - R expression:
  [14:18:30.285] {
  [14:18:30.285]     doFuture::registerDoFuture()
  [14:18:30.285]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.285]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.285]         a <- NULL
  [14:18:30.285]         ...future.env <- environment()
  [14:18:30.285]         local({
  [14:18:30.285]             for (name in names(...future.x_jj)) {
  [14:18:30.285]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.285]                   inherits = FALSE)
  [14:18:30.285]             }
  [14:18:30.285]         })
  [14:18:30.285]         tryCatch({
  [14:18:30.285]             plan_list <- future::plan("next")
  [14:18:30.285]             stopifnot(inherits(plan_list, strategy2))
  [14:18:30.285]             plan_a <- future::plan("list")
  [14:18:30.285]             str(plan_a)
  [14:18:30.285]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:30.285]             message("foreach() - level 2 ...")
  [14:18:30.285]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:30.285]                 {
  [14:18:30.285]                   plan_list <- future::plan("next")
  [14:18:30.285]                   message(capture.output(print(plan_list)))
  [14:18:30.285]                   stopifnot(inherits(plan_list, "future"))
  [14:18:30.285]                   default <- getOption("future.plan", "sequential")
  [14:18:30.285]                   if (is.function(default)) 
  [14:18:30.285]                     default <- class(default)
  [14:18:30.285]                   stopifnot(inherits(plan_list, default))
  [14:18:30.285]                   plan_b <- future::plan("list")
  [14:18:30.285]                   str(plan_b)
  [14:18:30.285]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.285]                     inherits(plan_b[[1]], default))
  [14:18:30.285]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.285]                 }
  [14:18:30.285]             message("foreach() - level 2 ... DONE")
  [14:18:30.285]             y
  [14:18:30.285]         }, error = identity)
  [14:18:30.285]     })
  [14:18:30.285] }
  [14:18:30.287]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.287] List of 3
  [14:18:30.287]  $ ...future.x_ii: NULL
  [14:18:30.287]  $ strategy2     : chr "multicore"
  [14:18:30.287]  $ bs            : int [1:3] 3 2 1
  [14:18:30.287]  - attr(*, "where")=List of 3
  [14:18:30.287]   ..$ ...future.x_ii:<environment: 0x562635e4bca0> 
  [14:18:30.287]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:30.287]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:30.287]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.287]  - attr(*, "resolved")= logi FALSE
  [14:18:30.287]  - attr(*, "total_size")= num 184
  [14:18:30.300]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:30.301] - identifying globals and packages ... DONE
  [14:18:30.303] Number of chunks: 2
  [14:18:30.303] Number of futures (= number of chunks): 2
  [14:18:30.304] Launching 2 futures (chunks) ...
  [14:18:30.305] Chunk #1 of 2 ...
  [14:18:30.305]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:30.306] getGlobalsAndPackages() ...
  [14:18:30.306] Searching for globals...
  [14:18:30.307] 
  [14:18:30.308] Searching for globals ... DONE
  [14:18:30.308] - globals: [0] <none>
  [14:18:30.308] getGlobalsAndPackages() ... DONE
  [14:18:30.309] 
  [14:18:30.309] 
  [14:18:30.310]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:30.311] getGlobalsAndPackages() ...
  [14:18:30.311] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.312] Resolving globals: FALSE
  [14:18:30.313] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:30.314] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.314] 
  [14:18:30.315] getGlobalsAndPackages() ... DONE
  [14:18:30.317] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:30.318] Packages needed by future strategies (n = 1): 'future'
  [14:18:30.325] {
  [14:18:30.325]     {
  [14:18:30.325]         ...future.startTime <- base::Sys.time()
  [14:18:30.325]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:30.325]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:30.325]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:30.325]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:30.325]             future.resolve.recursive = NULL, width = 80L)
  [14:18:30.325]         {
  [14:18:30.325]             {
  [14:18:30.325]                 {
  [14:18:30.325]                   {
  [14:18:30.325]                     has_future <- base::requireNamespace("future", 
  [14:18:30.325]                       quietly = TRUE)
  [14:18:30.325]                     version <- if (has_future) 
  [14:18:30.325]                       utils::packageVersion("future")
  [14:18:30.325]                     else NULL
  [14:18:30.325]                     if (!has_future || version < "1.8.0") {
  [14:18:30.325]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:30.325]                         "", base::R.version$version.string), 
  [14:18:30.325]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:30.325]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:30.325]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:30.325]                           "release", "version")], collapse = " "), 
  [14:18:30.325]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:30.325]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:30.325]                         info)
  [14:18:30.325]                       info <- base::paste(info, collapse = "; ")
  [14:18:30.325]                       if (!has_future) {
  [14:18:30.325]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:30.325]                           info)
  [14:18:30.325]                       }
  [14:18:30.325]                       else {
  [14:18:30.325]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:30.325]                           info, version)
  [14:18:30.325]                       }
  [14:18:30.325]                       base::stop(msg)
  [14:18:30.325]                     }
  [14:18:30.325]                   }
  [14:18:30.325]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:30.325]                   base::options(mc.cores = 1L)
  [14:18:30.325]                 }
  [14:18:30.325]                 base::local({
  [14:18:30.325]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:30.325]                   "future")) {
  [14:18:30.325]                     base::loadNamespace(pkg)
  [14:18:30.325]                     base::library(pkg, character.only = TRUE)
  [14:18:30.325]                   }
  [14:18:30.325]                 })
  [14:18:30.325]             }
  [14:18:30.325]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:30.325]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.325]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.325]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.325]             {
  [14:18:30.325]                 if (substitute) 
  [14:18:30.325]                   expr <- substitute(expr)
  [14:18:30.325]                 if (is.function(workers)) 
  [14:18:30.325]                   workers <- workers()
  [14:18:30.325]                 workers <- as.integer(workers)
  [14:18:30.325]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.325]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.325]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.325]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.325]                     local = TRUE, label = label, ...))
  [14:18:30.325]                 }
  [14:18:30.325]                 oopts <- options(mc.cores = workers)
  [14:18:30.325]                 on.exit(options(oopts))
  [14:18:30.325]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.325]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.325]                   label = label, ...)
  [14:18:30.325]                 if (!future$lazy) 
  [14:18:30.325]                   future <- run(future)
  [14:18:30.325]                 invisible(future)
  [14:18:30.325]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.325]         }
  [14:18:30.325]     }
  [14:18:30.325]     if (base::is.na(TRUE)) {
  [14:18:30.325]     }
  [14:18:30.325]     else {
  [14:18:30.325]         if (TRUE) {
  [14:18:30.325]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:30.325]                 open = "w")
  [14:18:30.325]         }
  [14:18:30.325]         else {
  [14:18:30.325]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:30.325]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:30.325]         }
  [14:18:30.325]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:30.325]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:30.325]             base::sink(type = "output", split = FALSE)
  [14:18:30.325]             base::close(...future.stdout)
  [14:18:30.325]         }, add = TRUE)
  [14:18:30.325]     }
  [14:18:30.325]     ...future.frame <- base::sys.nframe()
  [14:18:30.325]     ...future.conditions <- base::list()
  [14:18:30.325]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:30.325]     ...future.result <- base::tryCatch({
  [14:18:30.325]         base::withCallingHandlers({
  [14:18:30.325]             ...future.value <- base::withVisible(base::local({
  [14:18:30.325]                 doFuture::registerDoFuture()
  [14:18:30.325]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.325]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.325]                   a <- NULL
  [14:18:30.325]                   ...future.env <- environment()
  [14:18:30.325]                   local({
  [14:18:30.325]                     for (name in names(...future.x_jj)) {
  [14:18:30.325]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.325]                         inherits = FALSE)
  [14:18:30.325]                     }
  [14:18:30.325]                   })
  [14:18:30.325]                   tryCatch({
  [14:18:30.325]                     plan_list <- future::plan("next")
  [14:18:30.325]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:30.325]                     plan_a <- future::plan("list")
  [14:18:30.325]                     str(plan_a)
  [14:18:30.325]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:30.325]                     message("foreach() - level 2 ...")
  [14:18:30.325]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:30.325]                       {
  [14:18:30.325]                         plan_list <- future::plan("next")
  [14:18:30.325]                         message(capture.output(print(plan_list)))
  [14:18:30.325]                         stopifnot(inherits(plan_list, "future"))
  [14:18:30.325]                         default <- getOption("future.plan", "sequential")
  [14:18:30.325]                         if (is.function(default)) 
  [14:18:30.325]                           default <- class(default)
  [14:18:30.325]                         stopifnot(inherits(plan_list, default))
  [14:18:30.325]                         plan_b <- future::plan("list")
  [14:18:30.325]                         str(plan_b)
  [14:18:30.325]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.325]                           inherits(plan_b[[1]], default))
  [14:18:30.325]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.325]                       }
  [14:18:30.325]                     message("foreach() - level 2 ... DONE")
  [14:18:30.325]                     y
  [14:18:30.325]                   }, error = identity)
  [14:18:30.325]                 })
  [14:18:30.325]             }))
  [14:18:30.325]             future::FutureResult(value = ...future.value$value, 
  [14:18:30.325]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.325]                   ...future.rng), started = ...future.startTime, 
  [14:18:30.325]                 version = "1.8")
  [14:18:30.325]         }, condition = base::local({
  [14:18:30.325]             c <- base::c
  [14:18:30.325]             inherits <- base::inherits
  [14:18:30.325]             invokeRestart <- base::invokeRestart
  [14:18:30.325]             length <- base::length
  [14:18:30.325]             list <- base::list
  [14:18:30.325]             seq.int <- base::seq.int
  [14:18:30.325]             signalCondition <- base::signalCondition
  [14:18:30.325]             sys.calls <- base::sys.calls
  [14:18:30.325]             Sys.time <- base::Sys.time
  [14:18:30.325]             `[[` <- base::`[[`
  [14:18:30.325]             `+` <- base::`+`
  [14:18:30.325]             `<<-` <- base::`<<-`
  [14:18:30.325]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:30.325]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:30.325]                   3L)]
  [14:18:30.325]             }
  [14:18:30.325]             function(cond) {
  [14:18:30.325]                 if (inherits(cond, "error")) {
  [14:18:30.325]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.325]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:30.325]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:30.325]                   signalCondition(cond)
  [14:18:30.325]                 }
  [14:18:30.325]                 else if (inherits(cond, "condition")) {
  [14:18:30.325]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:30.325]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.325]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:30.325]                   if (!signal) {
  [14:18:30.325]                     muffleCondition <- function (cond) 
  [14:18:30.325]                     {
  [14:18:30.325]                       inherits <- base::inherits
  [14:18:30.325]                       invokeRestart <- base::invokeRestart
  [14:18:30.325]                       muffled <- FALSE
  [14:18:30.325]                       if (inherits(cond, "message")) {
  [14:18:30.325]                         invokeRestart("muffleMessage")
  [14:18:30.325]                         muffled <- TRUE
  [14:18:30.325]                       }
  [14:18:30.325]                       else if (inherits(cond, "warning")) {
  [14:18:30.325]                         invokeRestart("muffleWarning")
  [14:18:30.325]                         muffled <- TRUE
  [14:18:30.325]                       }
  [14:18:30.325]                       else if (inherits(cond, "condition")) {
  [14:18:30.325]                         computeRestarts <- base::computeRestarts
  [14:18:30.325]                         grepl <- base::grepl
  [14:18:30.325]                         is.null <- base::is.null
  [14:18:30.325]                         restarts <- computeRestarts(cond)
  [14:18:30.325]                         for (restart in restarts) {
  [14:18:30.325]                           name <- restart$name
  [14:18:30.325]                           if (is.null(name)) 
  [14:18:30.325]                             next
  [14:18:30.325]                           if (!grepl("^muffle", name)) 
  [14:18:30.325]                             next
  [14:18:30.325]                           invokeRestart(restart)
  [14:18:30.325]                           muffled <- TRUE
  [14:18:30.325]                           break
  [14:18:30.325]                         }
  [14:18:30.325]                       }
  [14:18:30.325]                       invisible(muffled)
  [14:18:30.325]                     }
  [14:18:30.325]                     muffleCondition(cond)
  [14:18:30.325]                   }
  [14:18:30.325]                 }
  [14:18:30.325]             }
  [14:18:30.325]         }))
  [14:18:30.325]     }, error = function(ex) {
  [14:18:30.325]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:30.325]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.325]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:30.325]     }, finally = {
  [14:18:30.325]         {
  [14:18:30.325]             {
  [14:18:30.325]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:30.325]             }
  [14:18:30.325]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:30.325]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.325]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.325]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.325]             {
  [14:18:30.325]                 if (substitute) 
  [14:18:30.325]                   expr <- substitute(expr)
  [14:18:30.325]                 if (is.function(workers)) 
  [14:18:30.325]                   workers <- workers()
  [14:18:30.325]                 workers <- as.integer(workers)
  [14:18:30.325]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.325]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.325]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.325]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.325]                     local = TRUE, label = label, ...))
  [14:18:30.325]                 }
  [14:18:30.325]                 oopts <- options(mc.cores = workers)
  [14:18:30.325]                 on.exit(options(oopts))
  [14:18:30.325]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.325]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.325]                   label = label, ...)
  [14:18:30.325]                 if (!future$lazy) 
  [14:18:30.325]                   future <- run(future)
  [14:18:30.325]                 invisible(future)
  [14:18:30.325]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:30.325]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.325]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.325]             {
  [14:18:30.325]                 if (substitute) 
  [14:18:30.325]                   expr <- substitute(expr)
  [14:18:30.325]                 if (is.function(workers)) 
  [14:18:30.325]                   workers <- workers()
  [14:18:30.325]                 workers <- as.integer(workers)
  [14:18:30.325]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.325]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.325]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.325]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.325]                     local = TRUE, label = label, ...))
  [14:18:30.325]                 }
  [14:18:30.325]                 oopts <- options(mc.cores = workers)
  [14:18:30.325]                 on.exit(options(oopts))
  [14:18:30.325]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.325]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.325]                   label = label, ...)
  [14:18:30.325]                 if (!future$lazy) 
  [14:18:30.325]                   future <- run(future)
  [14:18:30.325]                 invisible(future)
  [14:18:30.325]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.325]         }
  [14:18:30.325]         base::options(...future.oldOptions)
  [14:18:30.325]     })
  [14:18:30.325]     Sys.time
  [14:18:30.325]     if (base::is.na(TRUE)) {
  [14:18:30.325]     }
  [14:18:30.325]     else {
  [14:18:30.325]         base::sink(type = "output", split = FALSE)
  [14:18:30.325]         if (TRUE) {
  [14:18:30.325]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:30.325]         }
  [14:18:30.325]         else {
  [14:18:30.325]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:30.325]         }
  [14:18:30.325]         base::close(...future.stdout)
  [14:18:30.325]         ...future.stdout <- NULL
  [14:18:30.325]     }
  [14:18:30.325]     ...future.result$conditions <- ...future.conditions
  [14:18:30.325]     ...future.result
  [14:18:30.325] }
  [14:18:30.331] requestCore(): workers = 2
  [14:18:30.335] MulticoreFuture started
  [14:18:30.336] Chunk #1 of 2 ... DONE
  [14:18:30.337] Chunk #2 of 2 ...
  [14:18:30.337]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:30.338] getGlobalsAndPackages() ...
  [14:18:30.338] Searching for globals...
  [14:18:30.340] 
  [14:18:30.340] Searching for globals ... DONE
  [14:18:30.340] - globals: [0] <none>
  [14:18:30.341] getGlobalsAndPackages() ... DONE
  [14:18:30.341] 
  [14:18:30.341] 
  [14:18:30.342]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:30.344] getGlobalsAndPackages() ...
  [14:18:30.344] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.345] Resolving globals: FALSE
  [14:18:30.347] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:30.347] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:30.348] 
  [14:18:30.348] getGlobalsAndPackages() ... DONE
  [14:18:30.353] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:30.353] Packages needed by future strategies (n = 1): 'future'
  [14:18:30.356] plan(): Setting new future strategy stack:
  [14:18:30.357] List of future strategies:
  [14:18:30.357] 1. multicore:
  [14:18:30.357]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.357]    - tweaked: FALSE
  [14:18:30.357]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.365] plan(): nbrOfWorkers() = 1
  [14:18:30.361] {
  [14:18:30.361]     {
  [14:18:30.361]         ...future.startTime <- base::Sys.time()
  [14:18:30.361]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:30.361]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:30.361]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:30.361]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:30.361]             future.resolve.recursive = NULL, width = 80L)
  [14:18:30.361]         {
  [14:18:30.361]             {
  [14:18:30.361]                 {
  [14:18:30.361]                   {
  [14:18:30.361]                     has_future <- base::requireNamespace("future", 
  [14:18:30.361]                       quietly = TRUE)
  [14:18:30.361]                     version <- if (has_future) 
  [14:18:30.361]                       utils::packageVersion("future")
  [14:18:30.361]                     else NULL
  [14:18:30.361]                     if (!has_future || version < "1.8.0") {
  [14:18:30.361]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:30.361]                         "", base::R.version$version.string), 
  [14:18:30.361]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:30.361]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:30.361]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:30.361]                           "release", "version")], collapse = " "), 
  [14:18:30.361]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:30.361]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:30.361]                         info)
  [14:18:30.361]                       info <- base::paste(info, collapse = "; ")
  [14:18:30.361]                       if (!has_future) {
  [14:18:30.361]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:30.361]                           info)
  [14:18:30.361]                       }
  [14:18:30.361]                       else {
  [14:18:30.361]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:30.361]                           info, version)
  [14:18:30.361]                       }
  [14:18:30.361]                       base::stop(msg)
  [14:18:30.361]                     }
  [14:18:30.361]                   }
  [14:18:30.361]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:30.361]                   base::options(mc.cores = 1L)
  [14:18:30.361]                 }
  [14:18:30.361]                 base::local({
  [14:18:30.361]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:30.361]                   "future")) {
  [14:18:30.361]                     base::loadNamespace(pkg)
  [14:18:30.361]                     base::library(pkg, character.only = TRUE)
  [14:18:30.361]                   }
  [14:18:30.361]                 })
  [14:18:30.361]             }
  [14:18:30.361]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:30.361]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.361]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.361]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.361]             {
  [14:18:30.361]                 if (substitute) 
  [14:18:30.361]                   expr <- substitute(expr)
  [14:18:30.361]                 if (is.function(workers)) 
  [14:18:30.361]                   workers <- workers()
  [14:18:30.361]                 workers <- as.integer(workers)
  [14:18:30.361]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.361]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.361]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.361]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.361]                     local = TRUE, label = label, ...))
  [14:18:30.361]                 }
  [14:18:30.361]                 oopts <- options(mc.cores = workers)
  [14:18:30.361]                 on.exit(options(oopts))
  [14:18:30.361]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.361]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.361]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.361]                   label = label, ...)
  [14:18:30.361]                 if (!future$lazy) 
  [14:18:30.361]                   future <- run(future)
  [14:18:30.361]                 invisible(future)
  [14:18:30.361]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.361]         }
  [14:18:30.361]     }
  [14:18:30.361]     if (base::is.na(TRUE)) {
  [14:18:30.361]     }
  [14:18:30.361]     else {
  [14:18:30.361]         if (TRUE) {
  [14:18:30.361]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:30.361]                 open = "w")
  [14:18:30.361]         }
  [14:18:30.361]         else {
  [14:18:30.361]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:30.361]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:30.361]         }
  [14:18:30.361]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:30.361]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:30.361]             base::sink(type = "output", split = FALSE)
  [14:18:30.361]             base::close(...future.stdout)
  [14:18:30.361]         }, add = TRUE)
  [14:18:30.361]     }
  [14:18:30.361]     ...future.frame <- base::sys.nframe()
  [14:18:30.361]     ...future.conditions <- base::list()
  [14:18:30.361]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:30.361]     ...future.result <- base::tryCatch({
  [14:18:30.361]         base::withCallingHandlers({
  [14:18:30.361]             ...future.value <- base::withVisible(base::local({
  [14:18:30.361]                 doFuture::registerDoFuture()
  [14:18:30.361]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.361]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.361]                   a <- NULL
  [14:18:30.361]                   ...future.env <- environment()
  [14:18:30.361]                   local({
  [14:18:30.361]                     for (name in names(...future.x_jj)) {
  [14:18:30.361]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.361]                         inherits = FALSE)
  [14:18:30.361]                     }
  [14:18:30.361]                   })
  [14:18:30.361]                   tryCatch({
  [14:18:30.361]                     plan_list <- future::plan("next")
  [14:18:30.361]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:30.361]                     plan_a <- future::plan("list")
  [14:18:30.361]                     str(plan_a)
  [14:18:30.361]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:30.361]                     message("foreach() - level 2 ...")
  [14:18:30.361]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:30.361]                       {
  [14:18:30.361]                         plan_list <- future::plan("next")
  [14:18:30.361]                         message(capture.output(print(plan_list)))
  [14:18:30.361]                         stopifnot(inherits(plan_list, "future"))
  [14:18:30.361]                         default <- getOption("future.plan", "sequential")
  [14:18:30.361]                         if (is.function(default)) 
  [14:18:30.361]                           default <- class(default)
  [14:18:30.361]                         stopifnot(inherits(plan_list, default))
  [14:18:30.361]                         plan_b <- future::plan("list")
  [14:18:30.361]                         str(plan_b)
  [14:18:30.361]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.361]                           inherits(plan_b[[1]], default))
  [14:18:30.361]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.361]                       }
  [14:18:30.361]                     message("foreach() - level 2 ... DONE")
  [14:18:30.361]                     y
  [14:18:30.361]                   }, error = identity)
  [14:18:30.361]                 })
  [14:18:30.361]             }))
  [14:18:30.361]             future::FutureResult(value = ...future.value$value, 
  [14:18:30.361]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.361]                   ...future.rng), started = ...future.startTime, 
  [14:18:30.361]                 version = "1.8")
  [14:18:30.361]         }, condition = base::local({
  [14:18:30.361]             c <- base::c
  [14:18:30.361]             inherits <- base::inherits
  [14:18:30.361]             invokeRestart <- base::invokeRestart
  [14:18:30.361]             length <- base::length
  [14:18:30.361]             list <- base::list
  [14:18:30.361]             seq.int <- base::seq.int
  [14:18:30.361]             signalCondition <- base::signalCondition
  [14:18:30.361]             sys.calls <- base::sys.calls
  [14:18:30.361]             Sys.time <- base::Sys.time
  [14:18:30.361]             `[[` <- base::`[[`
  [14:18:30.361]             `+` <- base::`+`
  [14:18:30.361]             `<<-` <- base::`<<-`
  [14:18:30.361]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:30.361]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:30.361]                   3L)]
  [14:18:30.361]             }
  [14:18:30.361]             function(cond) {
  [14:18:30.361]                 if (inherits(cond, "error")) {
  [14:18:30.361]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.361]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:30.361]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:30.361]                   signalCondition(cond)
  [14:18:30.361]                 }
  [14:18:30.361]                 else if (inherits(cond, "condition")) {
  [14:18:30.361]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:30.361]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.361]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:30.361]                   if (!signal) {
  [14:18:30.361]                     muffleCondition <- function (cond) 
  [14:18:30.361]                     {
  [14:18:30.361]                       inherits <- base::inherits
  [14:18:30.361]                       invokeRestart <- base::invokeRestart
  [14:18:30.361]                       muffled <- FALSE
  [14:18:30.361]                       if (inherits(cond, "message")) {
  [14:18:30.361]                         invokeRestart("muffleMessage")
  [14:18:30.361]                         muffled <- TRUE
  [14:18:30.361]                       }
  [14:18:30.361]                       else if (inherits(cond, "warning")) {
  [14:18:30.361]                         invokeRestart("muffleWarning")
  [14:18:30.361]                         muffled <- TRUE
  [14:18:30.361]                       }
  [14:18:30.361]                       else if (inherits(cond, "condition")) {
  [14:18:30.361]                         computeRestarts <- base::computeRestarts
  [14:18:30.361]                         grepl <- base::grepl
  [14:18:30.361]                         is.null <- base::is.null
  [14:18:30.361]                         restarts <- computeRestarts(cond)
  [14:18:30.361]                         for (restart in restarts) {
  [14:18:30.361]                           name <- restart$name
  [14:18:30.361]                           if (is.null(name)) 
  [14:18:30.361]                             next
  [14:18:30.361]                           if (!grepl("^muffle", name)) 
  [14:18:30.361]                             next
  [14:18:30.361]                           invokeRestart(restart)
  [14:18:30.361]                           muffled <- TRUE
  [14:18:30.361]                           break
  [14:18:30.361]                         }
  [14:18:30.361]                       }
  [14:18:30.361]                       invisible(muffled)
  [14:18:30.361]                     }
  [14:18:30.361]                     muffleCondition(cond)
  [14:18:30.361]                   }
  [14:18:30.361]                 }
  [14:18:30.361]             }
  [14:18:30.361]         }))
  [14:18:30.361]     }, error = function(ex) {
  [14:18:30.361]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:30.361]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.361]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:30.361]     }, finally = {
  [14:18:30.361]         {
  [14:18:30.361]             {
  [14:18:30.361]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:30.361]             }
  [14:18:30.361]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:30.361]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.361]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.361]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.361]             {
  [14:18:30.361]                 if (substitute) 
  [14:18:30.361]                   expr <- substitute(expr)
  [14:18:30.361]                 if (is.function(workers)) 
  [14:18:30.361]                   workers <- workers()
  [14:18:30.361]                 workers <- as.integer(workers)
  [14:18:30.361]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.361]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.361]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.361]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.361]                     local = TRUE, label = label, ...))
  [14:18:30.361]                 }
  [14:18:30.361]                 oopts <- options(mc.cores = workers)
  [14:18:30.361]                 on.exit(options(oopts))
  [14:18:30.361]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.361]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.361]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.361]                   label = label, ...)
  [14:18:30.361]                 if (!future$lazy) 
  [14:18:30.361]                   future <- run(future)
  [14:18:30.361]                 invisible(future)
  [14:18:30.361]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:30.361]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.361]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.361]             {
  [14:18:30.361]                 if (substitute) 
  [14:18:30.361]                   expr <- substitute(expr)
  [14:18:30.361]                 if (is.function(workers)) 
  [14:18:30.361]                   workers <- workers()
  [14:18:30.361]                 workers <- as.integer(workers)
  [14:18:30.361]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.361]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.361]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.361]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.361]                     local = TRUE, label = label, ...))
  [14:18:30.361]                 }
  [14:18:30.361]                 oopts <- options(mc.cores = workers)
  [14:18:30.361]                 on.exit(options(oopts))
  [14:18:30.361]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.361]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.361]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.361]                   label = label, ...)
  [14:18:30.361]                 if (!future$lazy) 
  [14:18:30.361]                   future <- run(future)
  [14:18:30.361]                 invisible(future)
  [14:18:30.361]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.361]         }
  [14:18:30.361]         base::options(...future.oldOptions)
  [14:18:30.361]     })
  [14:18:30.361]     Sys.time
  [14:18:30.361]     if (base::is.na(TRUE)) {
  [14:18:30.361]     }
  [14:18:30.361]     else {
  [14:18:30.361]         base::sink(type = "output", split = FALSE)
  [14:18:30.361]         if (TRUE) {
  [14:18:30.361]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:30.361]         }
  [14:18:30.361]         else {
  [14:18:30.361]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:30.361]         }
  [14:18:30.361]         base::close(...future.stdout)
  [14:18:30.361]         ...future.stdout <- NULL
  [14:18:30.361]     }
  [14:18:30.361]     ...future.result$conditions <- ...future.conditions
  [14:18:30.361]     ...future.result
  [14:18:30.361] }
  [14:18:30.369] requestCore(): workers = 2
  [14:18:30.373] MulticoreFuture started
  [14:18:30.374] Chunk #2 of 2 ... DONE
  [14:18:30.375] Launching 2 futures (chunks) ... DONE
  [14:18:30.375] - resolving futures
  [14:18:30.375]   - gathering results & relaying conditions (except errors)
  [14:18:30.376] resolve() on list ...
  [14:18:30.376]  recursive: 0
  [14:18:30.377]  length: 2
  [14:18:30.377] 
  [14:18:30.393] plan(): Setting new future strategy stack:
  [14:18:30.393] List of future strategies:
  [14:18:30.393] 1. multicore:
  [14:18:30.393]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.393]    - tweaked: FALSE
  [14:18:30.393]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.396] plan(): nbrOfWorkers() = 1
  [14:18:30.648] plan(): Setting new future strategy stack:
  [14:18:30.649] List of future strategies:
  [14:18:30.649] 1. multicore:
  [14:18:30.649]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.649]    - tweaked: FALSE
  [14:18:30.649]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.649] 2. multicore:
  [14:18:30.649]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.649]    - tweaked: FALSE
  [14:18:30.649]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.651] plan(): nbrOfWorkers() = 2
  [14:18:30.752] plan(): Setting new future strategy stack:
  [14:18:30.752] List of future strategies:
  [14:18:30.752] 1. multicore:
  [14:18:30.752]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.752]    - tweaked: FALSE
  [14:18:30.752]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.752] 2. multicore:
  [14:18:30.752]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.752]    - tweaked: FALSE
  [14:18:30.752]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.755] plan(): nbrOfWorkers() = 2
  [14:18:30.757] Future #2
  [14:18:30.760] signalConditions() ...
  [14:18:30.761]  - include = 'immediateCondition'
  [14:18:30.761]  - exclude = 
  [14:18:30.762]  - resignal = FALSE
  [14:18:30.762]  - Number of conditions: 140
  [14:18:30.763] signalConditions() ... done
  [14:18:30.763] signalConditions() ...
  [14:18:30.764]  - include = 'immediateCondition'
  [14:18:30.764]  - exclude = 
  [14:18:30.764]  - resignal = FALSE
  [14:18:30.765]  - Number of conditions: 140
  [14:18:30.765] signalConditions() ... done
  [14:18:30.766] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:18:30.766] - nx: 2
  [14:18:30.767] - relay: TRUE
  [14:18:30.767] - stdout: TRUE
  [14:18:30.767] - signal: TRUE
  [14:18:30.768] - resignal: FALSE
  [14:18:30.768] - force: FALSE
  [14:18:30.768] - relayed: [n=2] FALSE, FALSE
  [14:18:30.769] - queued futures: [n=2] FALSE, FALSE
  [14:18:30.769]  - until=1
  [14:18:30.769]  - relaying element #1
  [14:18:30.770] - relayed: [n=2] FALSE, FALSE
  [14:18:30.770] - queued futures: [n=2] FALSE, TRUE
  [14:18:30.770] signalConditionsASAP(NULL, pos=2) ... done
  [14:18:30.771]  length: 1 (resolved future 2)
  [14:18:30.872] Future #1
  [14:18:30.875] signalConditions() ...
  [14:18:30.875]  - include = 'immediateCondition'
  [14:18:30.876]  - exclude = 
  [14:18:30.876]  - resignal = FALSE
  [14:18:30.877]  - Number of conditions: 140
  [14:18:30.878] signalConditions() ... done
  [14:18:30.878] signalConditions() ...
  [14:18:30.879]  - include = 'immediateCondition'
  [14:18:30.879]  - exclude = 
  [14:18:30.879]  - resignal = FALSE
  [14:18:30.880]  - Number of conditions: 140
  [14:18:30.880] signalConditions() ... done
  [14:18:30.881] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:18:30.881] - nx: 2
  [14:18:30.882] - relay: TRUE
  [14:18:30.882] - stdout: TRUE
  [14:18:30.882] - signal: TRUE
  [14:18:30.883] - resignal: FALSE
  [14:18:30.883] - force: FALSE
  [14:18:30.883] - relayed: [n=2] FALSE, FALSE
  [14:18:30.884] - queued futures: [n=2] FALSE, TRUE
  [14:18:30.884]  - until=1
  [14:18:30.884]  - relaying element #1
  [14:18:30.885] signalConditions() ...
  [14:18:30.885]  - include = 'immediateCondition'
  [14:18:30.886]  - exclude = 
  [14:18:30.886]  - resignal = FALSE
  [14:18:30.891]  - Number of conditions: 140
  [14:18:30.892] 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"
  [14:18:30.892] signalConditions() ...
  [14:18:30.893]  - include = 'immediateCondition'
  [14:18:30.893]  - exclude = 
  [14:18:30.893]  - resignal = FALSE
  [14:18:30.894]  - Number of conditions: 140
  [14:18:30.895] signalConditions() ... done
  [14:18:30.895] signalConditions() ...
  [14:18:30.895]  - include = 'condition'
  [14:18:30.896]  - exclude = 'immediateCondition'
  [14:18:30.896]  - resignal = FALSE
  [14:18:30.896]  - Number of conditions: 140
  [14:18:30.897]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:30.897]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:30.374] doFuture() ...
  [14:18:30.898]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:30.377] - dummy globals (as locals): [1] 'b'
  [14:18:30.898]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:30.394] - R expression:
  [14:18:30.899]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:30.395] {
  [14:18:30.395]     doFuture::registerDoFuture()
  [14:18:30.395]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.395]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.395]         b <- NULL
  [14:18:30.395]         ...future.env <- environment()
  [14:18:30.395]         local({
  [14:18:30.395]             for (name in names(...future.x_jj)) {
  [14:18:30.395]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.395]                   inherits = FALSE)
  [14:18:30.395]             }
  [14:18:30.395]         })
  [14:18:30.395]         tryCatch({
  [14:18:30.395]             plan_list <- future::plan("next")
  [14:18:30.395]             message(capture.output(print(plan_list)))
  [14:18:30.395]             stopifnot(inherits(plan_list, "future"))
  [14:18:30.395]             default <- getOption("future.plan", "sequential")
  [14:18:30.395]             if (is.function(default)) 
  [14:18:30.395]                 default <- class(default)
  [14:18:30.395]             stopifnot(inherits(plan_list, default))
  [14:18:30.395]             plan_b <- future::plan("list")
  [14:18:30.395]             str(plan_b)
  [14:18:30.395]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:30.395]                 default))
  [14:18:30.395]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.395]         }, error = identity)
  [14:18:30.395]     })
  [14:18:30.395] }
  [14:18:30.899]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:30.396] - identifying globals and packages ...
  [14:18:30.900]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:30.397] getGlobalsAndPackages() ...
  [14:18:30.900]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:30.398] Searching for globals...
  [14:18:30.901]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:30.433] - 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'
  [14:18:30.902]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:30.433] Searching for globals ... DONE
  [14:18:30.902]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:30.434] Resolving globals: FALSE
  [14:18:30.903]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:30.438] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:18:30.903]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:30.438] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.904]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:30.439] - packages: [1] 'utils'
  [14:18:30.904]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:30.440] getGlobalsAndPackages() ... DONE
  [14:18:30.905]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:30.440] List of 3
  [14:18:30.440]  $ ...future.x_ii: NULL
  [14:18:30.440]  $ a             : int 1
  [14:18:30.440]  $ plan_a        :List of 1
  [14:18:30.440]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:30.440]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.440]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:30.440]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:30.440]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:30.440]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:30.440]  - attr(*, "where")=List of 3
  [14:18:30.440]   ..$ ...future.x_ii:<environment: 0x562636c8bab8> 
  [14:18:30.440]   ..$ a             :<environment: 0x562636b054f0> 
  [14:18:30.440]   ..$ plan_a        :<environment: 0x562636b054f0> 
  [14:18:30.440]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.440]  - attr(*, "resolved")= logi FALSE
  [14:18:30.440]  - attr(*, "total_size")= num 76816
  [14:18:30.905]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:30.458]   - R expression:
  [14:18:30.906]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:30.475] {
  [14:18:30.475]     doFuture::registerDoFuture()
  [14:18:30.475]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.475]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.475]         b <- NULL
  [14:18:30.475]         ...future.env <- environment()
  [14:18:30.475]         local({
  [14:18:30.475]             for (name in names(...future.x_jj)) {
  [14:18:30.475]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.475]                   inherits = FALSE)
  [14:18:30.475]             }
  [14:18:30.475]         })
  [14:18:30.475]         tryCatch({
  [14:18:30.475]             plan_list <- future::plan("next")
  [14:18:30.475]             message(capture.output(print(plan_list)))
  [14:18:30.475]             stopifnot(inherits(plan_list, "future"))
  [14:18:30.475]             default <- getOption("future.plan", "sequential")
  [14:18:30.475]             if (is.function(default)) 
  [14:18:30.475]                 default <- class(default)
  [14:18:30.475]             stopifnot(inherits(plan_list, default))
  [14:18:30.475]             plan_b <- future::plan("list")
  [14:18:30.475]             str(plan_b)
  [14:18:30.475]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:30.475]                 default))
  [14:18:30.475]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.475]         }, error = identity)
  [14:18:30.475]     })
  [14:18:30.475] }
  [14:18:30.906]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:30.476]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.921]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:30.477] List of 3
  [14:18:30.477]  $ ...future.x_ii: NULL
  [14:18:30.477]  $ a             : int 1
  [14:18:30.477]  $ plan_a        :List of 1
  [14:18:30.477]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:30.477]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.477]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:30.477]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:30.477]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:30.477]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:30.477]  - attr(*, "where")=List of 3
  [14:18:30.477]   ..$ ...future.x_ii:<environment: 0x562636c8bab8> 
  [14:18:30.477]   ..$ a             :<environment: 0x562636b054f0> 
  [14:18:30.477]   ..$ plan_a        :<environment: 0x562636b054f0> 
  [14:18:30.477]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.477]  - attr(*, "resolved")= logi FALSE
  [14:18:30.477]  - attr(*, "total_size")= num 76816
  [14:18:30.921]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:30.513]   - packages: [2] 'doFuture', 'utils'
  [14:18:30.922]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:30.514] - identifying globals and packages ... DONE
  [14:18:30.922]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:30.531] Number of chunks: 1
  [14:18:30.923]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:30.532] Number of futures (= number of chunks): 1
  [14:18:30.923]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:30.533] Launching 1 futures (chunks) ...
  [14:18:30.924]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:30.534] Chunk #1 of 1 ...
  [14:18:30.924]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:30.535]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:30.925]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:30.535] getGlobalsAndPackages() ...
  [14:18:30.926]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:30.536] Searching for globals...
  [14:18:30.926]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:30.538] 
  [14:18:30.927]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:30.538] Searching for globals ... DONE
  [14:18:30.927]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:30.539] - globals: [0] <none>
  [14:18:30.928]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:30.540] getGlobalsAndPackages() ... DONE
  [14:18:30.928]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:30.540] 
  [14:18:30.929]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:30.541] 
  [14:18:30.929]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:30.541]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:30.930]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:30.543] getGlobalsAndPackages() ...
  [14:18:30.930]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:30.544] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.931]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:30.545] Resolving globals: FALSE
  [14:18:30.931]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:30.547] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [14:18:30.932]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:30.547] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:30.932]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:30.548] 
  [14:18:30.933]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:30.549] getGlobalsAndPackages() ... DONE
  [14:18:30.933]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:30.553] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:30.934]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:30.554] Packages needed by future strategies (n = 0): <none>
  [14:18:30.936]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:30.562] {
  [14:18:30.562]     {
  [14:18:30.562]         ...future.startTime <- base::Sys.time()
  [14:18:30.562]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:30.562]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:30.562]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:30.562]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:30.562]             future.resolve.recursive = NULL, width = 80L)
  [14:18:30.562]         {
  [14:18:30.562]             {
  [14:18:30.562]                 {
  [14:18:30.562]                   has_future <- base::requireNamespace("future", 
  [14:18:30.562]                     quietly = TRUE)
  [14:18:30.562]                   version <- if (has_future) 
  [14:18:30.562]                     utils::packageVersion("future")
  [14:18:30.562]                   else NULL
  [14:18:30.562]                   if (!has_future || version < "1.8.0") {
  [14:18:30.562]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:30.562]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:30.562]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:30.562]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:30.562]                         "release", "version")], collapse = " "), 
  [14:18:30.562]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:30.562]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:30.562]                       info)
  [14:18:30.562]                     info <- base::paste(info, collapse = "; ")
  [14:18:30.562]                     if (!has_future) {
  [14:18:30.562]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:30.562]                         info)
  [14:18:30.562]                     }
  [14:18:30.562]                     else {
  [14:18:30.562]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:30.562]                         info, version)
  [14:18:30.562]                     }
  [14:18:30.562]                     base::stop(msg)
  [14:18:30.562]                   }
  [14:18:30.562]                 }
  [14:18:30.562]                 base::local({
  [14:18:30.562]                   for (pkg in c("doFuture", "utils")) {
  [14:18:30.562]                     base::loadNamespace(pkg)
  [14:18:30.562]                     base::library(pkg, character.only = TRUE)
  [14:18:30.562]                   }
  [14:18:30.562]                 })
  [14:18:30.562]             }
  [14:18:30.562]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:30.562]         }
  [14:18:30.562]     }
  [14:18:30.562]     if (base::is.na(TRUE)) {
  [14:18:30.562]     }
  [14:18:30.562]     else {
  [14:18:30.562]         if (TRUE) {
  [14:18:30.562]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:30.562]                 open = "w")
  [14:18:30.562]         }
  [14:18:30.562]         else {
  [14:18:30.562]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:30.562]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:30.562]         }
  [14:18:30.562]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:30.562]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:30.562]             base::sink(type = "output", split = FALSE)
  [14:18:30.562]             base::close(...future.stdout)
  [14:18:30.562]         }, add = TRUE)
  [14:18:30.562]     }
  [14:18:30.562]     ...future.frame <- base::sys.nframe()
  [14:18:30.562]     ...future.conditions <- base::list()
  [14:18:30.562]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:30.562]     ...future.result <- base::tryCatch({
  [14:18:30.562]         base::withCallingHandlers({
  [14:18:30.562]             ...future.value <- base::withVisible(base::local({
  [14:18:30.562]                 doFuture::registerDoFuture()
  [14:18:30.562]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.562]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.562]                   b <- NULL
  [14:18:30.562]                   ...future.env <- environment()
  [14:18:30.562]                   local({
  [14:18:30.562]                     for (name in names(...future.x_jj)) {
  [14:18:30.562]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.562]                         inherits = FALSE)
  [14:18:30.562]                     }
  [14:18:30.562]                   })
  [14:18:30.562]                   tryCatch({
  [14:18:30.562]                     plan_list <- future::plan("next")
  [14:18:30.562]                     message(capture.output(print(plan_list)))
  [14:18:30.562]                     stopifnot(inherits(plan_list, "future"))
  [14:18:30.562]                     default <- getOption("future.plan", "sequential")
  [14:18:30.562]                     if (is.function(default)) 
  [14:18:30.562]                       default <- class(default)
  [14:18:30.562]                     stopifnot(inherits(plan_list, default))
  [14:18:30.562]                     plan_b <- future::plan("list")
  [14:18:30.562]                     str(plan_b)
  [14:18:30.562]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.562]                       inherits(plan_b[[1]], default))
  [14:18:30.562]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.562]                   }, error = identity)
  [14:18:30.562]                 })
  [14:18:30.562]             }))
  [14:18:30.562]             future::FutureResult(value = ...future.value$value, 
  [14:18:30.562]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.562]                   ...future.rng), started = ...future.startTime, 
  [14:18:30.562]                 version = "1.8")
  [14:18:30.562]         }, condition = base::local({
  [14:18:30.562]             c <- base::c
  [14:18:30.562]             inherits <- base::inherits
  [14:18:30.562]             invokeRestart <- base::invokeRestart
  [14:18:30.562]             length <- base::length
  [14:18:30.562]             list <- base::list
  [14:18:30.562]             seq.int <- base::seq.int
  [14:18:30.562]             signalCondition <- base::signalCondition
  [14:18:30.562]             sys.calls <- base::sys.calls
  [14:18:30.562]             Sys.time <- base::Sys.time
  [14:18:30.562]             `[[` <- base::`[[`
  [14:18:30.562]             `+` <- base::`+`
  [14:18:30.562]             `<<-` <- base::`<<-`
  [14:18:30.562]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:30.562]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:30.562]                   3L)]
  [14:18:30.562]             }
  [14:18:30.562]             function(cond) {
  [14:18:30.562]                 if (inherits(cond, "error")) {
  [14:18:30.562]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.562]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:30.562]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:30.562]                   signalCondition(cond)
  [14:18:30.562]                 }
  [14:18:30.562]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:30.562]                 ))) {
  [14:18:30.562]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:30.562]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.562]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:30.562]                   if (!signal) {
  [14:18:30.562]                     muffleCondition <- function (cond) 
  [14:18:30.562]                     {
  [14:18:30.562]                       inherits <- base::inherits
  [14:18:30.562]                       invokeRestart <- base::invokeRestart
  [14:18:30.562]                       muffled <- FALSE
  [14:18:30.562]                       if (inherits(cond, "message")) {
  [14:18:30.562]                         invokeRestart("muffleMessage")
  [14:18:30.562]                         muffled <- TRUE
  [14:18:30.562]                       }
  [14:18:30.562]                       else if (inherits(cond, "warning")) {
  [14:18:30.562]                         invokeRestart("muffleWarning")
  [14:18:30.562]                         muffled <- TRUE
  [14:18:30.562]                       }
  [14:18:30.562]                       else if (inherits(cond, "condition")) {
  [14:18:30.562]                         computeRestarts <- base::computeRestarts
  [14:18:30.562]                         grepl <- base::grepl
  [14:18:30.562]                         is.null <- base::is.null
  [14:18:30.562]                         restarts <- computeRestarts(cond)
  [14:18:30.562]                         for (restart in restarts) {
  [14:18:30.562]                           name <- restart$name
  [14:18:30.562]                           if (is.null(name)) 
  [14:18:30.562]                             next
  [14:18:30.562]                           if (!grepl("^muffle", name)) 
  [14:18:30.562]                             next
  [14:18:30.562]                           invokeRestart(restart)
  [14:18:30.562]                           muffled <- TRUE
  [14:18:30.562]                           break
  [14:18:30.562]                         }
  [14:18:30.562]                       }
  [14:18:30.562]                       invisible(muffled)
  [14:18:30.562]                     }
  [14:18:30.562]                     muffleCondition(cond)
  [14:18:30.562]                   }
  [14:18:30.562]                 }
  [14:18:30.562]             }
  [14:18:30.562]         }))
  [14:18:30.562]     }, error = function(ex) {
  [14:18:30.562]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:30.562]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.562]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:30.562]     }, finally = {
  [14:18:30.562]         {
  [14:18:30.562]             NULL
  [14:18:30.562]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:30.562]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.562]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.562]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.562]             {
  [14:18:30.562]                 if (substitute) 
  [14:18:30.562]                   expr <- substitute(expr)
  [14:18:30.562]                 if (is.function(workers)) 
  [14:18:30.562]                   workers <- workers()
  [14:18:30.562]                 workers <- as.integer(workers)
  [14:18:30.562]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.562]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.562]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.562]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.562]                     local = TRUE, label = label, ...))
  [14:18:30.562]                 }
  [14:18:30.562]                 oopts <- options(mc.cores = workers)
  [14:18:30.562]                 on.exit(options(oopts))
  [14:18:30.562]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.562]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.562]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.562]                   label = label, ...)
  [14:18:30.562]                 if (!future$lazy) 
  [14:18:30.562]                   future <- run(future)
  [14:18:30.562]                 invisible(future)
  [14:18:30.562]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.562]         }
  [14:18:30.562]         base::options(...future.oldOptions)
  [14:18:30.562]     })
  [14:18:30.562]     Sys.time
  [14:18:30.562]     if (base::is.na(TRUE)) {
  [14:18:30.562]     }
  [14:18:30.562]     else {
  [14:18:30.562]         base::sink(type = "output", split = FALSE)
  [14:18:30.562]         if (TRUE) {
  [14:18:30.562]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:30.562]         }
  [14:18:30.562]         else {
  [14:18:30.562]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:30.562]         }
  [14:18:30.562]         base::close(...future.stdout)
  [14:18:30.562]         ...future.stdout <- NULL
  [14:18:30.562]     }
  [14:18:30.562]     ...future.result$conditions <- ...future.conditions
  [14:18:30.562]     ...future.result
  [14:18:30.562] }
  [14:18:30.936]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:30.570] plan(): Setting new future strategy stack:
  [14:18:30.937]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:30.571] List of future strategies:
  [14:18:30.571] 1. sequential:
  [14:18:30.571]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:30.571]    - tweaked: FALSE
  [14:18:30.571]    - call: NULL
  [14:18:30.937]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:30.572] plan(): nbrOfWorkers() = 1
  [14:18:30.938]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:30.592] plan(): Setting new future strategy stack:
  [14:18:30.938]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:30.593] List of future strategies:
  [14:18:30.593] 1. multicore:
  [14:18:30.593]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.593]    - tweaked: FALSE
  [14:18:30.593]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:30.939]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:30.595] plan(): nbrOfWorkers() = 1
  [14:18:30.939]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:30.596] SequentialFuture started (and completed)
  [14:18:30.940]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:30.597] signalConditions() ...
  [14:18:30.940]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:30.598]  - include = 'immediateCondition'
  [14:18:30.941]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:30.598]  - exclude = 
  [14:18:30.942]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:30.599]  - resignal = FALSE
  [14:18:30.942]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:30.599]  - Number of conditions: 3
  [14:18:30.943]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:30.600] signalConditions() ... done
  [14:18:30.943]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:30.601] Chunk #1 of 1 ... DONE
  [14:18:30.944]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:30.601] Launching 1 futures (chunks) ... DONE
  [14:18:30.944]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:30.602] - resolving futures
  [14:18:30.945]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:30.602]   - gathering results & relaying conditions (except errors)
  [14:18:30.945]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:30.603] resolve() on list ...
  [14:18:30.946]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:30.603]  recursive: 0
  [14:18:30.946]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:30.604]  length: 1
  [14:18:30.947]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:30.604] 
  [14:18:30.947]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:30.605] Future #1
  [14:18:30.948]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:30.606] signalConditions() ...
  [14:18:30.948]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:30.606]  - include = 'immediateCondition'
  [14:18:30.949]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:30.607]  - exclude = 
  [14:18:30.955]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:30.608]  - resignal = FALSE
  [14:18:30.955]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:30.608]  - Number of conditions: 3
  [14:18:30.956]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:30.609] signalConditions() ... done
  [14:18:30.957]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:30.609] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:30.957]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:30.610] - nx: 1
  [14:18:30.958]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:30.610] - relay: TRUE
  [14:18:30.958]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:30.611] - stdout: TRUE
  [14:18:30.959]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:30.612] - signal: TRUE
  [14:18:30.960]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:30.612] - resignal: FALSE
  [14:18:30.960]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:30.613] - force: FALSE
  [14:18:30.961]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:30.613] - relayed: [n=1] FALSE
  [14:18:30.961]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:30.614] - queued futures: [n=1] FALSE
  [14:18:30.962]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:30.615]  - until=1
  [14:18:30.962]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:30.615]  - relaying element #1
  [14:18:30.963]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:30.616] signalConditions() ...
  [14:18:30.963]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:30.617]  - include = 'immediateCondition'
  [14:18:30.964]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:30.617]  - exclude = 
  [14:18:30.964]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:30.618]  - resignal = FALSE
  [14:18:30.965]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:30.619]  - Number of conditions: 3
  [14:18:30.965]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:30.619] signalConditions() ... done
  [14:18:30.966]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:30.620] signalConditions() ...
  [14:18:30.966]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:30.621]  - include = 'immediateCondition'
  [14:18:30.967]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:30.621]  - exclude = 
  [14:18:30.967]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:30.622]  - resignal = FALSE
  [14:18:30.968]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:30.623]  - Number of conditions: 3
  [14:18:30.968]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:30.623] signalConditions() ... done
  [14:18:30.969]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:30.624] signalConditions() ...
  [14:18:30.970]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:30.625]  - include = 'condition'
  [14:18:30.970]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:30.625]  - exclude = 'immediateCondition'
  [14:18:30.971]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:30.626]  - resignal = FALSE
  [14:18:30.971]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:30.626]  - Number of conditions: 3
  [14:18:30.972]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:30.627]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:30.972]  - Condition #104: '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
  [14:18:30.973]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:30.628]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:30.973]  - Condition #106: '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
  [14:18:30.974]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:30.629]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:30.974]  - Condition #108: '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
  [14:18:30.975]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:30.629] signalConditions() ... done
  [14:18:30.975]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:30.630] - relayed: [n=1] TRUE
  [14:18:30.976]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:30.631] - queued futures: [n=1] TRUE
  [14:18:30.976]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:30.631] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:30.977]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:30.632]  length: 0 (resolved future 1)
  [14:18:30.977]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:30.632] Relaying remaining futures
  [14:18:30.978]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:30.633] signalConditionsASAP(NULL, pos=0) ...
  [14:18:30.978]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:30.633] - nx: 1
  [14:18:30.979]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:30.634] - relay: TRUE
  [14:18:30.979]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:30.634] - stdout: TRUE
  [14:18:30.980]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:30.635] - signal: TRUE
  [14:18:30.980]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:30.635] - resignal: FALSE
  [14:18:30.981]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:30.636] - force: FALSE
  [14:18:30.981]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:30.636] - relayed: [n=1] TRUE
  [14:18:30.982]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:30.637] - queued futures: [n=1] TRUE
  [14:18:30.983]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:30.983]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:30.638] - relayed: [n=1] TRUE
  [14:18:30.984]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:30.639] - queued futures: [n=1] TRUE
  [14:18:30.984]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:30.639] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:30.985]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:30.640] resolve() on list ... DONE
  [14:18:30.985]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:30.640] - collecting values of futures
  [14:18:30.986]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:30.641] signalConditions() ...
  [14:18:30.986]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:30.641]  - include = 'immediateCondition'
  [14:18:30.987]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:30.642]  - exclude = 
  [14:18:30.987]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:30.642]  - resignal = FALSE
  [14:18:30.988]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:30.643]  - Number of conditions: 3
  [14:18:30.988]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:30.644] signalConditions() ... done
  [14:18:30.989]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:30.644] - accumulating results
  [14:18:30.989]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:30.646] - processing errors (handler = 'stop')
  [14:18:30.990]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:30.646] - extracting results
  [14:18:30.990]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:30.647] doFuture() ... DONE
  [14:18:30.991]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:30.992] signalConditions() ... done
  [14:18:30.992] - relayed: [n=2] TRUE, FALSE
  [14:18:30.992] - queued futures: [n=2] TRUE, TRUE
  [14:18:30.993] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:18:30.993]  length: 0 (resolved future 1)
  [14:18:30.994] Relaying remaining futures
  [14:18:30.994] signalConditionsASAP(NULL, pos=0) ...
  [14:18:30.994] - nx: 2
  [14:18:30.995] - relay: TRUE
  [14:18:30.995] - stdout: TRUE
  [14:18:30.995] - signal: TRUE
  [14:18:30.996] - resignal: FALSE
  [14:18:30.996] - force: FALSE
  [14:18:30.996] - relayed: [n=2] TRUE, FALSE
  [14:18:30.997] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:18:30.997]  - relaying element #2
  [14:18:30.998] signalConditions() ...
  [14:18:30.998]  - include = 'immediateCondition'
  [14:18:30.998]  - exclude = 
  [14:18:30.999]  - resignal = FALSE
  [14:18:30.999]  - Number of conditions: 140
  [14:18:31.000] 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"
  [14:18:31.001] signalConditions() ...
  [14:18:31.001]  - include = 'immediateCondition'
  [14:18:31.001]  - exclude = 
  [14:18:31.002]  - resignal = FALSE
  [14:18:31.002]  - Number of conditions: 140
  [14:18:31.003] signalConditions() ... done
  [14:18:31.003] signalConditions() ...
  [14:18:31.004]  - include = 'condition'
  [14:18:31.004]  - exclude = 'immediateCondition'
  [14:18:31.004]  - resignal = FALSE
  [14:18:31.005]  - Number of conditions: 140
  [14:18:31.005]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:31.006]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:30.405] doFuture() ...
  [14:18:31.006]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:30.408] - dummy globals (as locals): [1] 'b'
  [14:18:31.007]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:30.409] - R expression:
  [14:18:31.007]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:30.410] {
  [14:18:30.410]     doFuture::registerDoFuture()
  [14:18:30.410]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.410]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.410]         b <- NULL
  [14:18:30.410]         ...future.env <- environment()
  [14:18:30.410]         local({
  [14:18:30.410]             for (name in names(...future.x_jj)) {
  [14:18:30.410]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.410]                   inherits = FALSE)
  [14:18:30.410]             }
  [14:18:30.410]         })
  [14:18:30.410]         tryCatch({
  [14:18:30.410]             plan_list <- future::plan("next")
  [14:18:30.410]             message(capture.output(print(plan_list)))
  [14:18:30.410]             stopifnot(inherits(plan_list, "future"))
  [14:18:30.410]             default <- getOption("future.plan", "sequential")
  [14:18:30.410]             if (is.function(default)) 
  [14:18:30.410]                 default <- class(default)
  [14:18:30.410]             stopifnot(inherits(plan_list, default))
  [14:18:30.410]             plan_b <- future::plan("list")
  [14:18:30.410]             str(plan_b)
  [14:18:30.410]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:30.410]                 default))
  [14:18:30.410]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.410]         }, error = identity)
  [14:18:30.410]     })
  [14:18:30.410] }
  [14:18:31.008]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:30.412] - identifying globals and packages ...
  [14:18:31.008]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:30.413] getGlobalsAndPackages() ...
  [14:18:31.009]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:30.413] Searching for globals...
  [14:18:31.009]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:30.449] - 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'
  [14:18:31.010]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:30.450] Searching for globals ... DONE
  [14:18:31.010]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:30.467] Resolving globals: FALSE
  [14:18:31.011]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:30.471] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:18:31.011]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:30.472] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.012]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:30.480] - packages: [1] 'utils'
  [14:18:31.012]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:30.481] getGlobalsAndPackages() ... DONE
  [14:18:31.013]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:30.482] List of 3
  [14:18:30.482]  $ ...future.x_ii: NULL
  [14:18:30.482]  $ a             : int 2
  [14:18:30.482]  $ plan_a        :List of 1
  [14:18:30.482]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:30.482]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.482]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:30.482]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:30.482]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:30.482]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:30.482]  - attr(*, "where")=List of 3
  [14:18:30.482]   ..$ ...future.x_ii:<environment: 0x562636faeb90> 
  [14:18:30.482]   ..$ a             :<environment: 0x562636e2c3f8> 
  [14:18:30.482]   ..$ plan_a        :<environment: 0x562636e2c3f8> 
  [14:18:30.482]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.482]  - attr(*, "resolved")= logi FALSE
  [14:18:30.482]  - attr(*, "total_size")= num 76816
  [14:18:31.013]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:30.508]   - R expression:
  [14:18:31.014]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:30.508] {
  [14:18:30.508]     doFuture::registerDoFuture()
  [14:18:30.508]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.508]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.508]         b <- NULL
  [14:18:30.508]         ...future.env <- environment()
  [14:18:30.508]         local({
  [14:18:30.508]             for (name in names(...future.x_jj)) {
  [14:18:30.508]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.508]                   inherits = FALSE)
  [14:18:30.508]             }
  [14:18:30.508]         })
  [14:18:30.508]         tryCatch({
  [14:18:30.508]             plan_list <- future::plan("next")
  [14:18:30.508]             message(capture.output(print(plan_list)))
  [14:18:30.508]             stopifnot(inherits(plan_list, "future"))
  [14:18:30.508]             default <- getOption("future.plan", "sequential")
  [14:18:30.508]             if (is.function(default)) 
  [14:18:30.508]                 default <- class(default)
  [14:18:30.508]             stopifnot(inherits(plan_list, default))
  [14:18:30.508]             plan_b <- future::plan("list")
  [14:18:30.508]             str(plan_b)
  [14:18:30.508]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:30.508]                 default))
  [14:18:30.508]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.508]         }, error = identity)
  [14:18:30.508]     })
  [14:18:30.508] }
  [14:18:31.015]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:30.510]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.015]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:30.511] List of 3
  [14:18:30.511]  $ ...future.x_ii: NULL
  [14:18:30.511]  $ a             : int 2
  [14:18:30.511]  $ plan_a        :List of 1
  [14:18:30.511]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:30.511]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.511]     earlySignal = FALSE, label = NULL, ...)  
  [14:18:30.511]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:18:30.511]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:30.511]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:30.511]  - attr(*, "where")=List of 3
  [14:18:30.511]   ..$ ...future.x_ii:<environment: 0x562636faeb90> 
  [14:18:30.511]   ..$ a             :<environment: 0x562636e2c3f8> 
  [14:18:30.511]   ..$ plan_a        :<environment: 0x562636e2c3f8> 
  [14:18:30.511]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:30.511]  - attr(*, "resolved")= logi FALSE
  [14:18:30.511]  - attr(*, "total_size")= num 76816
  [14:18:31.016]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:30.531]   - packages: [2] 'doFuture', 'utils'
  [14:18:31.016]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:30.532] - identifying globals and packages ... DONE
  [14:18:31.017]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:30.533] Number of chunks: 1
  [14:18:31.017]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:30.534] Number of futures (= number of chunks): 1
  [14:18:31.018]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:30.551] Launching 1 futures (chunks) ...
  [14:18:31.021]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:30.552] Chunk #1 of 1 ...
  [14:18:31.022]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:30.552]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:31.022]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:30.553] getGlobalsAndPackages() ...
  [14:18:31.023]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:30.554] Searching for globals...
  [14:18:31.023]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:30.555] 
  [14:18:31.024]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:30.556] Searching for globals ... DONE
  [14:18:31.025]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:30.557] - globals: [0] <none>
  [14:18:31.025]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:30.557] getGlobalsAndPackages() ... DONE
  [14:18:31.026]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:30.558] 
  [14:18:31.026]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:30.558] 
  [14:18:31.027]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:30.559]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:31.027]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:30.560] getGlobalsAndPackages() ...
  [14:18:31.028]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:30.561] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.028]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:30.562] Resolving globals: FALSE
  [14:18:31.029]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:30.576] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [14:18:31.029]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:30.577] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.030]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:30.578] 
  [14:18:31.030]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:30.579] getGlobalsAndPackages() ... DONE
  [14:18:31.031]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:30.583] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:31.031]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:30.584] Packages needed by future strategies (n = 0): <none>
  [14:18:31.032]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:30.609] {
  [14:18:30.609]     {
  [14:18:30.609]         ...future.startTime <- base::Sys.time()
  [14:18:30.609]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:30.609]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:30.609]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:30.609]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:30.609]             future.resolve.recursive = NULL, width = 80L)
  [14:18:30.609]         {
  [14:18:30.609]             {
  [14:18:30.609]                 {
  [14:18:30.609]                   has_future <- base::requireNamespace("future", 
  [14:18:30.609]                     quietly = TRUE)
  [14:18:30.609]                   version <- if (has_future) 
  [14:18:30.609]                     utils::packageVersion("future")
  [14:18:30.609]                   else NULL
  [14:18:30.609]                   if (!has_future || version < "1.8.0") {
  [14:18:30.609]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:30.609]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:30.609]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:30.609]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:30.609]                         "release", "version")], collapse = " "), 
  [14:18:30.609]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:30.609]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:30.609]                       info)
  [14:18:30.609]                     info <- base::paste(info, collapse = "; ")
  [14:18:30.609]                     if (!has_future) {
  [14:18:30.609]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:30.609]                         info)
  [14:18:30.609]                     }
  [14:18:30.609]                     else {
  [14:18:30.609]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:30.609]                         info, version)
  [14:18:30.609]                     }
  [14:18:30.609]                     base::stop(msg)
  [14:18:30.609]                   }
  [14:18:30.609]                 }
  [14:18:30.609]                 base::local({
  [14:18:30.609]                   for (pkg in c("doFuture", "utils")) {
  [14:18:30.609]                     base::loadNamespace(pkg)
  [14:18:30.609]                     base::library(pkg, character.only = TRUE)
  [14:18:30.609]                   }
  [14:18:30.609]                 })
  [14:18:30.609]             }
  [14:18:30.609]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:30.609]         }
  [14:18:30.609]     }
  [14:18:30.609]     if (base::is.na(TRUE)) {
  [14:18:30.609]     }
  [14:18:30.609]     else {
  [14:18:30.609]         if (TRUE) {
  [14:18:30.609]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:30.609]                 open = "w")
  [14:18:30.609]         }
  [14:18:30.609]         else {
  [14:18:30.609]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:30.609]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:30.609]         }
  [14:18:30.609]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:30.609]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:30.609]             base::sink(type = "output", split = FALSE)
  [14:18:30.609]             base::close(...future.stdout)
  [14:18:30.609]         }, add = TRUE)
  [14:18:30.609]     }
  [14:18:30.609]     ...future.frame <- base::sys.nframe()
  [14:18:30.609]     ...future.conditions <- base::list()
  [14:18:30.609]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:30.609]     ...future.result <- base::tryCatch({
  [14:18:30.609]         base::withCallingHandlers({
  [14:18:30.609]             ...future.value <- base::withVisible(base::local({
  [14:18:30.609]                 doFuture::registerDoFuture()
  [14:18:30.609]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:30.609]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:30.609]                   b <- NULL
  [14:18:30.609]                   ...future.env <- environment()
  [14:18:30.609]                   local({
  [14:18:30.609]                     for (name in names(...future.x_jj)) {
  [14:18:30.609]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:30.609]                         inherits = FALSE)
  [14:18:30.609]                     }
  [14:18:30.609]                   })
  [14:18:30.609]                   tryCatch({
  [14:18:30.609]                     plan_list <- future::plan("next")
  [14:18:30.609]                     message(capture.output(print(plan_list)))
  [14:18:30.609]                     stopifnot(inherits(plan_list, "future"))
  [14:18:30.609]                     default <- getOption("future.plan", "sequential")
  [14:18:30.609]                     if (is.function(default)) 
  [14:18:30.609]                       default <- class(default)
  [14:18:30.609]                     stopifnot(inherits(plan_list, default))
  [14:18:30.609]                     plan_b <- future::plan("list")
  [14:18:30.609]                     str(plan_b)
  [14:18:30.609]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:30.609]                       inherits(plan_b[[1]], default))
  [14:18:30.609]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:30.609]                   }, error = identity)
  [14:18:30.609]                 })
  [14:18:30.609]             }))
  [14:18:30.609]             future::FutureResult(value = ...future.value$value, 
  [14:18:30.609]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.609]                   ...future.rng), started = ...future.startTime, 
  [14:18:30.609]                 version = "1.8")
  [14:18:30.609]         }, condition = base::local({
  [14:18:30.609]             c <- base::c
  [14:18:30.609]             inherits <- base::inherits
  [14:18:30.609]             invokeRestart <- base::invokeRestart
  [14:18:30.609]             length <- base::length
  [14:18:30.609]             list <- base::list
  [14:18:30.609]             seq.int <- base::seq.int
  [14:18:30.609]             signalCondition <- base::signalCondition
  [14:18:30.609]             sys.calls <- base::sys.calls
  [14:18:30.609]             Sys.time <- base::Sys.time
  [14:18:30.609]             `[[` <- base::`[[`
  [14:18:30.609]             `+` <- base::`+`
  [14:18:30.609]             `<<-` <- base::`<<-`
  [14:18:30.609]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:30.609]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:30.609]                   3L)]
  [14:18:30.609]             }
  [14:18:30.609]             function(cond) {
  [14:18:30.609]                 if (inherits(cond, "error")) {
  [14:18:30.609]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.609]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:30.609]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:30.609]                   signalCondition(cond)
  [14:18:30.609]                 }
  [14:18:30.609]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:30.609]                 ))) {
  [14:18:30.609]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:30.609]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:30.609]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:30.609]                   if (!signal) {
  [14:18:30.609]                     muffleCondition <- function (cond) 
  [14:18:30.609]                     {
  [14:18:30.609]                       inherits <- base::inherits
  [14:18:30.609]                       invokeRestart <- base::invokeRestart
  [14:18:30.609]                       muffled <- FALSE
  [14:18:30.609]                       if (inherits(cond, "message")) {
  [14:18:30.609]                         invokeRestart("muffleMessage")
  [14:18:30.609]                         muffled <- TRUE
  [14:18:30.609]                       }
  [14:18:30.609]                       else if (inherits(cond, "warning")) {
  [14:18:30.609]                         invokeRestart("muffleWarning")
  [14:18:30.609]                         muffled <- TRUE
  [14:18:30.609]                       }
  [14:18:30.609]                       else if (inherits(cond, "condition")) {
  [14:18:30.609]                         computeRestarts <- base::computeRestarts
  [14:18:30.609]                         grepl <- base::grepl
  [14:18:30.609]                         is.null <- base::is.null
  [14:18:30.609]                         restarts <- computeRestarts(cond)
  [14:18:30.609]                         for (restart in restarts) {
  [14:18:30.609]                           name <- restart$name
  [14:18:30.609]                           if (is.null(name)) 
  [14:18:30.609]                             next
  [14:18:30.609]                           if (!grepl("^muffle", name)) 
  [14:18:30.609]                             next
  [14:18:30.609]                           invokeRestart(restart)
  [14:18:30.609]                           muffled <- TRUE
  [14:18:30.609]                           break
  [14:18:30.609]                         }
  [14:18:30.609]                       }
  [14:18:30.609]                       invisible(muffled)
  [14:18:30.609]                     }
  [14:18:30.609]                     muffleCondition(cond)
  [14:18:30.609]                   }
  [14:18:30.609]                 }
  [14:18:30.609]             }
  [14:18:30.609]         }))
  [14:18:30.609]     }, error = function(ex) {
  [14:18:30.609]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:30.609]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:30.609]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:30.609]     }, finally = {
  [14:18:30.609]         {
  [14:18:30.609]             NULL
  [14:18:30.609]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:30.609]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:30.609]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:30.609]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:30.609]             {
  [14:18:30.609]                 if (substitute) 
  [14:18:30.609]                   expr <- substitute(expr)
  [14:18:30.609]                 if (is.function(workers)) 
  [14:18:30.609]                   workers <- workers()
  [14:18:30.609]                 workers <- as.integer(workers)
  [14:18:30.609]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:30.609]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:30.609]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:30.609]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:30.609]                     local = TRUE, label = label, ...))
  [14:18:30.609]                 }
  [14:18:30.609]                 oopts <- options(mc.cores = workers)
  [14:18:30.609]                 on.exit(options(oopts))
  [14:18:30.609]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:30.609]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:30.609]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:30.609]                   label = label, ...)
  [14:18:30.609]                 if (!future$lazy) 
  [14:18:30.609]                   future <- run(future)
  [14:18:30.609]                 invisible(future)
  [14:18:30.609]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:30.609]         }
  [14:18:30.609]         base::options(...future.oldOptions)
  [14:18:30.609]     })
  [14:18:30.609]     Sys.time
  [14:18:30.609]     if (base::is.na(TRUE)) {
  [14:18:30.609]     }
  [14:18:30.609]     else {
  [14:18:30.609]         base::sink(type = "output", split = FALSE)
  [14:18:30.609]         if (TRUE) {
  [14:18:30.609]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:30.609]         }
  [14:18:30.609]         else {
  [14:18:30.609]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:30.609]         }
  [14:18:30.609]         base::close(...future.stdout)
  [14:18:30.609]         ...future.stdout <- NULL
  [14:18:30.609]     }
  [14:18:30.609]     ...future.result$conditions <- ...future.conditions
  [14:18:30.609]     ...future.result
  [14:18:30.609] }
  [14:18:31.032]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:30.618] plan(): Setting new future strategy stack:
  [14:18:31.033]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:30.618] List of future strategies:
  [14:18:30.618] 1. sequential:
  [14:18:30.618]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:30.618]    - tweaked: FALSE
  [14:18:30.618]    - call: NULL
  [14:18:31.034]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:30.620] plan(): nbrOfWorkers() = 1
  [14:18:31.034]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:30.673] plan(): Setting new future strategy stack:
  [14:18:31.035]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:30.673] List of future strategies:
  [14:18:30.673] 1. multicore:
  [14:18:30.673]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:30.673]    - tweaked: FALSE
  [14:18:30.673]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.035]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:30.676] plan(): nbrOfWorkers() = 1
  [14:18:31.036]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:30.677] SequentialFuture started (and completed)
  [14:18:31.036]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:30.678] signalConditions() ...
  [14:18:31.037]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:30.679]  - include = 'immediateCondition'
  [14:18:31.037]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:30.679]  - exclude = 
  [14:18:31.038]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:30.680]  - resignal = FALSE
  [14:18:31.038]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:30.681]  - Number of conditions: 3
  [14:18:31.039]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:30.681] signalConditions() ... done
  [14:18:31.039]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:18:30.682] Chunk #1 of 1 ... DONE
  [14:18:31.040]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:18:30.683] Launching 1 futures (chunks) ... DONE
  [14:18:31.040]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:18:30.683] - resolving futures
  [14:18:31.041]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:18:30.684]   - gathering results & relaying conditions (except errors)
  [14:18:31.042]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:18:30.685] resolve() on list ...
  [14:18:31.042]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:18:30.685]  recursive: 0
  [14:18:31.042]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:18:30.686]  length: 1
  [14:18:31.043]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:18:30.702] 
  [14:18:31.043]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:18:30.703] Future #1
  [14:18:31.044]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:18:30.704] signalConditions() ...
  [14:18:31.044]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:18:30.705]  - include = 'immediateCondition'
  [14:18:31.045]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:18:30.705]  - exclude = 
  [14:18:31.045]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:18:30.706]  - resignal = FALSE
  [14:18:31.046]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:18:30.707]  - Number of conditions: 3
  [14:18:31.046]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:18:30.707] signalConditions() ... done
  [14:18:31.047]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:18:30.708] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:18:31.047]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:18:30.709] - nx: 1
  [14:18:31.048]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:18:30.709] - relay: TRUE
  [14:18:31.048]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:18:30.710] - stdout: TRUE
  [14:18:31.049]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:18:30.711] - signal: TRUE
  [14:18:31.049]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:18:30.711] - resignal: FALSE
  [14:18:31.050]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:18:30.712] - force: FALSE
  [14:18:31.052]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:18:30.712] - relayed: [n=1] FALSE
  [14:18:31.052]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:18:30.713] - queued futures: [n=1] FALSE
  [14:18:31.053]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:18:30.714]  - until=1
  [14:18:31.053]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:18:30.715]  - relaying element #1
  [14:18:31.054]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:18:30.715] signalConditions() ...
  [14:18:31.054]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:18:30.716]  - include = 'immediateCondition'
  [14:18:31.055]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:18:30.717]  - exclude = 
  [14:18:31.055]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:18:30.717]  - resignal = FALSE
  [14:18:31.056]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:18:30.718]  - Number of conditions: 3
  [14:18:31.057]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:18:30.719] signalConditions() ... done
  [14:18:31.057]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:18:30.720] signalConditions() ...
  [14:18:31.058]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:18:30.720]  - include = 'immediateCondition'
  [14:18:31.058]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:18:30.721]  - exclude = 
  [14:18:31.059]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:18:30.721]  - resignal = FALSE
  [14:18:31.059]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:18:30.722]  - Number of conditions: 3
  [14:18:31.060]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:18:30.723] signalConditions() ... done
  [14:18:31.060]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:18:30.723] signalConditions() ...
  [14:18:31.061]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:18:30.724]  - include = 'condition'
  [14:18:31.061]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:18:30.725]  - exclude = 'immediateCondition'
  [14:18:31.062]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:18:30.725]  - resignal = FALSE
  [14:18:31.062]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:18:30.726]  - Number of conditions: 3
  [14:18:31.063]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:18:30.726]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:18:31.063]  - Condition #104: '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
  [14:18:31.064]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:18:30.728]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:31.064]  - Condition #106: '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
  [14:18:31.065]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:18:30.728]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:31.065]  - Condition #108: '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
  [14:18:31.066]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:18:30.729] signalConditions() ... done
  [14:18:31.066]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:18:30.730] - relayed: [n=1] TRUE
  [14:18:31.067]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:18:30.731] - queued futures: [n=1] TRUE
  [14:18:31.067]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:18:30.731] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:18:31.068]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:18:30.732]  length: 0 (resolved future 1)
  [14:18:31.068]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:18:30.733] Relaying remaining futures
  [14:18:31.069]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:18:30.733] signalConditionsASAP(NULL, pos=0) ...
  [14:18:31.069]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:18:30.734] - nx: 1
  [14:18:31.070]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:18:30.735] - relay: TRUE
  [14:18:31.071]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:18:30.735] - stdout: TRUE
  [14:18:31.071]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:18:30.736] - signal: TRUE
  [14:18:31.072]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:18:30.736] - resignal: FALSE
  [14:18:31.072]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:18:30.737] - force: FALSE
  [14:18:31.073]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:18:30.738] - relayed: [n=1] TRUE
  [14:18:31.073]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:18:30.738] - queued futures: [n=1] TRUE
  [14:18:31.074]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:18:31.074]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:18:30.739] - relayed: [n=1] TRUE
  [14:18:31.075]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:18:30.740] - queued futures: [n=1] TRUE
  [14:18:31.075]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:18:30.741] signalConditionsASAP(NULL, pos=0) ... done
  [14:18:31.076]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:18:30.741] resolve() on list ... DONE
  [14:18:31.076]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:18:30.742] - collecting values of futures
  [14:18:31.077]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:18:30.743] signalConditions() ...
  [14:18:31.077]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:18:30.743]  - include = 'immediateCondition'
  [14:18:31.078]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:18:30.744]  - exclude = 
  [14:18:31.078]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:18:30.745]  - resignal = FALSE
  [14:18:31.079]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:18:30.745]  - Number of conditions: 3
  [14:18:31.079]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:18:30.746] signalConditions() ... done
  [14:18:31.080]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:18:30.747] - accumulating results
  [14:18:31.080]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:18:30.749] - processing errors (handler = 'stop')
  [14:18:31.081]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:18:30.749] - extracting results
  [14:18:31.081]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:18:30.750] doFuture() ... DONE
  [14:18:31.082]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:18:31.083] signalConditions() ... done
  [14:18:31.083] - relayed: [n=2] TRUE, TRUE
  [14:18:31.083] - queued futures: [n=2] TRUE, TRUE
  [14:18:31.084] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [14:18:31.084] resolve() on list ... DONE
  [14:18:31.084] - collecting values of futures
  [14:18:31.085] signalConditions() ...
  [14:18:31.085]  - include = 'immediateCondition'
  [14:18:31.086]  - exclude = 
  [14:18:31.086]  - resignal = FALSE
  [14:18:31.086]  - Number of conditions: 140
  [14:18:31.088] signalConditions() ... done
  [14:18:31.088] signalConditions() ...
  [14:18:31.089]  - include = 'immediateCondition'
  [14:18:31.089]  - exclude = 
  [14:18:31.089]  - resignal = FALSE
  [14:18:31.090]  - Number of conditions: 140
  [14:18:31.090] signalConditions() ... done
  [14:18:31.091] - accumulating results
  [14:18:31.092] - processing errors (handler = 'stop')
  [14:18:31.093] - extracting results
  [14:18:31.093] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [14:18:31.095] plan(): Setting new future strategy stack:
  [14:18:31.095] List of future strategies:
  [14:18:31.095] 1. multicore:
  [14:18:31.095]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:31.095]    - tweaked: FALSE
  [14:18:31.095]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.095] 2. multisession:
  [14:18:31.095]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.095]    - tweaked: FALSE
  [14:18:31.095]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.097] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:18:31.098] doFuture() ...
  [14:18:31.100] - dummy globals (as locals): [1] 'a'
  [14:18:31.101] - R expression:
  [14:18:31.101] {
  [14:18:31.101]     doFuture::registerDoFuture()
  [14:18:31.101]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.101]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.101]         a <- NULL
  [14:18:31.101]         ...future.env <- environment()
  [14:18:31.101]         local({
  [14:18:31.101]             for (name in names(...future.x_jj)) {
  [14:18:31.101]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.101]                   inherits = FALSE)
  [14:18:31.101]             }
  [14:18:31.101]         })
  [14:18:31.101]         tryCatch({
  [14:18:31.101]             plan_list <- future::plan("next")
  [14:18:31.101]             stopifnot(inherits(plan_list, strategy2))
  [14:18:31.101]             plan_a <- future::plan("list")
  [14:18:31.101]             str(plan_a)
  [14:18:31.101]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:31.101]             message("foreach() - level 2 ...")
  [14:18:31.101]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:31.101]                 {
  [14:18:31.101]                   plan_list <- future::plan("next")
  [14:18:31.101]                   message(capture.output(print(plan_list)))
  [14:18:31.101]                   stopifnot(inherits(plan_list, "future"))
  [14:18:31.101]                   default <- getOption("future.plan", "sequential")
  [14:18:31.101]                   if (is.function(default)) 
  [14:18:31.101]                     default <- class(default)
  [14:18:31.101]                   stopifnot(inherits(plan_list, default))
  [14:18:31.101]                   plan_b <- future::plan("list")
  [14:18:31.101]                   str(plan_b)
  [14:18:31.101]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:31.101]                     inherits(plan_b[[1]], default))
  [14:18:31.101]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.101]                 }
  [14:18:31.101]             message("foreach() - level 2 ... DONE")
  [14:18:31.101]             y
  [14:18:31.101]         }, error = identity)
  [14:18:31.101]     })
  [14:18:31.101] }
  [14:18:31.103] - identifying globals and packages ...
  [14:18:31.103] getGlobalsAndPackages() ...
  [14:18:31.104] Searching for globals...
  [14:18:31.143] - 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'
  [14:18:31.144] Searching for globals ... DONE
  [14:18:31.144] Resolving globals: FALSE
  [14:18:31.147] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:18:31.148] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.148] - packages: [2] 'utils', 'foreach'
  [14:18:31.148] getGlobalsAndPackages() ... DONE
  [14:18:31.149] List of 3
  [14:18:31.149]  $ ...future.x_ii: NULL
  [14:18:31.149]  $ strategy2     : chr "multisession"
  [14:18:31.149]  $ bs            : int [1:3] 3 2 1
  [14:18:31.149]  - attr(*, "where")=List of 3
  [14:18:31.149]   ..$ ...future.x_ii:<environment: 0x562636a88088> 
  [14:18:31.149]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:31.149]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:31.149]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:31.149]  - attr(*, "resolved")= logi FALSE
  [14:18:31.149]  - attr(*, "total_size")= num 184
  [14:18:31.160]   - R expression:
  [14:18:31.161] {
  [14:18:31.161]     doFuture::registerDoFuture()
  [14:18:31.161]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.161]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.161]         a <- NULL
  [14:18:31.161]         ...future.env <- environment()
  [14:18:31.161]         local({
  [14:18:31.161]             for (name in names(...future.x_jj)) {
  [14:18:31.161]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.161]                   inherits = FALSE)
  [14:18:31.161]             }
  [14:18:31.161]         })
  [14:18:31.161]         tryCatch({
  [14:18:31.161]             plan_list <- future::plan("next")
  [14:18:31.161]             stopifnot(inherits(plan_list, strategy2))
  [14:18:31.161]             plan_a <- future::plan("list")
  [14:18:31.161]             str(plan_a)
  [14:18:31.161]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:31.161]             message("foreach() - level 2 ...")
  [14:18:31.161]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:31.161]                 {
  [14:18:31.161]                   plan_list <- future::plan("next")
  [14:18:31.161]                   message(capture.output(print(plan_list)))
  [14:18:31.161]                   stopifnot(inherits(plan_list, "future"))
  [14:18:31.161]                   default <- getOption("future.plan", "sequential")
  [14:18:31.161]                   if (is.function(default)) 
  [14:18:31.161]                     default <- class(default)
  [14:18:31.161]                   stopifnot(inherits(plan_list, default))
  [14:18:31.161]                   plan_b <- future::plan("list")
  [14:18:31.161]                   str(plan_b)
  [14:18:31.161]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:31.161]                     inherits(plan_b[[1]], default))
  [14:18:31.161]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.161]                 }
  [14:18:31.161]             message("foreach() - level 2 ... DONE")
  [14:18:31.161]             y
  [14:18:31.161]         }, error = identity)
  [14:18:31.161]     })
  [14:18:31.161] }
  [14:18:31.162]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.162] List of 3
  [14:18:31.162]  $ ...future.x_ii: NULL
  [14:18:31.162]  $ strategy2     : chr "multisession"
  [14:18:31.162]  $ bs            : int [1:3] 3 2 1
  [14:18:31.162]  - attr(*, "where")=List of 3
  [14:18:31.162]   ..$ ...future.x_ii:<environment: 0x562636a88088> 
  [14:18:31.162]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:18:31.162]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:18:31.162]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:31.162]  - attr(*, "resolved")= logi FALSE
  [14:18:31.162]  - attr(*, "total_size")= num 184
  [14:18:31.178]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:18:31.178] - identifying globals and packages ... DONE
  [14:18:31.180] Number of chunks: 2
  [14:18:31.180] Number of futures (= number of chunks): 2
  [14:18:31.181] Launching 2 futures (chunks) ...
  [14:18:31.181] Chunk #1 of 2 ...
  [14:18:31.181]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:31.182] getGlobalsAndPackages() ...
  [14:18:31.182] Searching for globals...
  [14:18:31.183] 
  [14:18:31.183] Searching for globals ... DONE
  [14:18:31.184] - globals: [0] <none>
  [14:18:31.184] getGlobalsAndPackages() ... DONE
  [14:18:31.184] 
  [14:18:31.184] 
  [14:18:31.185]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:31.186] getGlobalsAndPackages() ...
  [14:18:31.186] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.186] Resolving globals: FALSE
  [14:18:31.188] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:31.188] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.188] 
  [14:18:31.189] getGlobalsAndPackages() ... DONE
  [14:18:31.191] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:31.192] Packages needed by future strategies (n = 1): 'future'
  [14:18:31.198] {
  [14:18:31.198]     {
  [14:18:31.198]         ...future.startTime <- base::Sys.time()
  [14:18:31.198]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:31.198]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:31.198]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:31.198]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:31.198]             future.resolve.recursive = NULL, width = 80L)
  [14:18:31.198]         {
  [14:18:31.198]             {
  [14:18:31.198]                 {
  [14:18:31.198]                   {
  [14:18:31.198]                     has_future <- base::requireNamespace("future", 
  [14:18:31.198]                       quietly = TRUE)
  [14:18:31.198]                     version <- if (has_future) 
  [14:18:31.198]                       utils::packageVersion("future")
  [14:18:31.198]                     else NULL
  [14:18:31.198]                     if (!has_future || version < "1.8.0") {
  [14:18:31.198]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:31.198]                         "", base::R.version$version.string), 
  [14:18:31.198]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:31.198]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:31.198]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:31.198]                           "release", "version")], collapse = " "), 
  [14:18:31.198]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:31.198]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:31.198]                         info)
  [14:18:31.198]                       info <- base::paste(info, collapse = "; ")
  [14:18:31.198]                       if (!has_future) {
  [14:18:31.198]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:31.198]                           info)
  [14:18:31.198]                       }
  [14:18:31.198]                       else {
  [14:18:31.198]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:31.198]                           info, version)
  [14:18:31.198]                       }
  [14:18:31.198]                       base::stop(msg)
  [14:18:31.198]                     }
  [14:18:31.198]                   }
  [14:18:31.198]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:31.198]                   base::options(mc.cores = 1L)
  [14:18:31.198]                 }
  [14:18:31.198]                 base::local({
  [14:18:31.198]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:31.198]                   "future")) {
  [14:18:31.198]                     base::loadNamespace(pkg)
  [14:18:31.198]                     base::library(pkg, character.only = TRUE)
  [14:18:31.198]                   }
  [14:18:31.198]                 })
  [14:18:31.198]             }
  [14:18:31.198]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:31.198]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:31.198]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:31.198]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:31.198]                 ...) 
  [14:18:31.198]             {
  [14:18:31.198]                 if (substitute) 
  [14:18:31.198]                   expr <- substitute(expr)
  [14:18:31.198]                 if (is.function(workers)) 
  [14:18:31.198]                   workers <- workers()
  [14:18:31.198]                 workers <- as.integer(workers)
  [14:18:31.198]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:31.198]                   workers >= 1)
  [14:18:31.198]                 if (workers == 1L) {
  [14:18:31.198]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.198]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:31.198]                     local = TRUE, label = label, ...))
  [14:18:31.198]                 }
  [14:18:31.198]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:31.198]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:31.198]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.198]                   globals = globals, persistent = persistent, 
  [14:18:31.198]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:31.198]                   label = label, ...)
  [14:18:31.198]                 if (!future$lazy) 
  [14:18:31.198]                   future <- run(future)
  [14:18:31.198]                 invisible(future)
  [14:18:31.198]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:31.198]         }
  [14:18:31.198]     }
  [14:18:31.198]     if (base::is.na(TRUE)) {
  [14:18:31.198]     }
  [14:18:31.198]     else {
  [14:18:31.198]         if (TRUE) {
  [14:18:31.198]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:31.198]                 open = "w")
  [14:18:31.198]         }
  [14:18:31.198]         else {
  [14:18:31.198]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:31.198]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:31.198]         }
  [14:18:31.198]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:31.198]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:31.198]             base::sink(type = "output", split = FALSE)
  [14:18:31.198]             base::close(...future.stdout)
  [14:18:31.198]         }, add = TRUE)
  [14:18:31.198]     }
  [14:18:31.198]     ...future.frame <- base::sys.nframe()
  [14:18:31.198]     ...future.conditions <- base::list()
  [14:18:31.198]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:31.198]     ...future.result <- base::tryCatch({
  [14:18:31.198]         base::withCallingHandlers({
  [14:18:31.198]             ...future.value <- base::withVisible(base::local({
  [14:18:31.198]                 doFuture::registerDoFuture()
  [14:18:31.198]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.198]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.198]                   a <- NULL
  [14:18:31.198]                   ...future.env <- environment()
  [14:18:31.198]                   local({
  [14:18:31.198]                     for (name in names(...future.x_jj)) {
  [14:18:31.198]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.198]                         inherits = FALSE)
  [14:18:31.198]                     }
  [14:18:31.198]                   })
  [14:18:31.198]                   tryCatch({
  [14:18:31.198]                     plan_list <- future::plan("next")
  [14:18:31.198]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:31.198]                     plan_a <- future::plan("list")
  [14:18:31.198]                     str(plan_a)
  [14:18:31.198]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:31.198]                     message("foreach() - level 2 ...")
  [14:18:31.198]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:31.198]                       {
  [14:18:31.198]                         plan_list <- future::plan("next")
  [14:18:31.198]                         message(capture.output(print(plan_list)))
  [14:18:31.198]                         stopifnot(inherits(plan_list, "future"))
  [14:18:31.198]                         default <- getOption("future.plan", "sequential")
  [14:18:31.198]                         if (is.function(default)) 
  [14:18:31.198]                           default <- class(default)
  [14:18:31.198]                         stopifnot(inherits(plan_list, default))
  [14:18:31.198]                         plan_b <- future::plan("list")
  [14:18:31.198]                         str(plan_b)
  [14:18:31.198]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:31.198]                           inherits(plan_b[[1]], default))
  [14:18:31.198]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.198]                       }
  [14:18:31.198]                     message("foreach() - level 2 ... DONE")
  [14:18:31.198]                     y
  [14:18:31.198]                   }, error = identity)
  [14:18:31.198]                 })
  [14:18:31.198]             }))
  [14:18:31.198]             future::FutureResult(value = ...future.value$value, 
  [14:18:31.198]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.198]                   ...future.rng), started = ...future.startTime, 
  [14:18:31.198]                 version = "1.8")
  [14:18:31.198]         }, condition = base::local({
  [14:18:31.198]             c <- base::c
  [14:18:31.198]             inherits <- base::inherits
  [14:18:31.198]             invokeRestart <- base::invokeRestart
  [14:18:31.198]             length <- base::length
  [14:18:31.198]             list <- base::list
  [14:18:31.198]             seq.int <- base::seq.int
  [14:18:31.198]             signalCondition <- base::signalCondition
  [14:18:31.198]             sys.calls <- base::sys.calls
  [14:18:31.198]             Sys.time <- base::Sys.time
  [14:18:31.198]             `[[` <- base::`[[`
  [14:18:31.198]             `+` <- base::`+`
  [14:18:31.198]             `<<-` <- base::`<<-`
  [14:18:31.198]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:31.198]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:31.198]                   3L)]
  [14:18:31.198]             }
  [14:18:31.198]             function(cond) {
  [14:18:31.198]                 if (inherits(cond, "error")) {
  [14:18:31.198]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.198]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:31.198]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:31.198]                   signalCondition(cond)
  [14:18:31.198]                 }
  [14:18:31.198]                 else if (inherits(cond, "condition")) {
  [14:18:31.198]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:31.198]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.198]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:31.198]                   if (!signal) {
  [14:18:31.198]                     muffleCondition <- function (cond) 
  [14:18:31.198]                     {
  [14:18:31.198]                       inherits <- base::inherits
  [14:18:31.198]                       invokeRestart <- base::invokeRestart
  [14:18:31.198]                       muffled <- FALSE
  [14:18:31.198]                       if (inherits(cond, "message")) {
  [14:18:31.198]                         invokeRestart("muffleMessage")
  [14:18:31.198]                         muffled <- TRUE
  [14:18:31.198]                       }
  [14:18:31.198]                       else if (inherits(cond, "warning")) {
  [14:18:31.198]                         invokeRestart("muffleWarning")
  [14:18:31.198]                         muffled <- TRUE
  [14:18:31.198]                       }
  [14:18:31.198]                       else if (inherits(cond, "condition")) {
  [14:18:31.198]                         computeRestarts <- base::computeRestarts
  [14:18:31.198]                         grepl <- base::grepl
  [14:18:31.198]                         is.null <- base::is.null
  [14:18:31.198]                         restarts <- computeRestarts(cond)
  [14:18:31.198]                         for (restart in restarts) {
  [14:18:31.198]                           name <- restart$name
  [14:18:31.198]                           if (is.null(name)) 
  [14:18:31.198]                             next
  [14:18:31.198]                           if (!grepl("^muffle", name)) 
  [14:18:31.198]                             next
  [14:18:31.198]                           invokeRestart(restart)
  [14:18:31.198]                           muffled <- TRUE
  [14:18:31.198]                           break
  [14:18:31.198]                         }
  [14:18:31.198]                       }
  [14:18:31.198]                       invisible(muffled)
  [14:18:31.198]                     }
  [14:18:31.198]                     muffleCondition(cond)
  [14:18:31.198]                   }
  [14:18:31.198]                 }
  [14:18:31.198]             }
  [14:18:31.198]         }))
  [14:18:31.198]     }, error = function(ex) {
  [14:18:31.198]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:31.198]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.198]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:31.198]     }, finally = {
  [14:18:31.198]         {
  [14:18:31.198]             {
  [14:18:31.198]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:31.198]             }
  [14:18:31.198]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:31.198]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:31.198]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:31.198]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:31.198]             {
  [14:18:31.198]                 if (substitute) 
  [14:18:31.198]                   expr <- substitute(expr)
  [14:18:31.198]                 if (is.function(workers)) 
  [14:18:31.198]                   workers <- workers()
  [14:18:31.198]                 workers <- as.integer(workers)
  [14:18:31.198]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:31.198]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:31.198]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.198]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:31.198]                     local = TRUE, label = label, ...))
  [14:18:31.198]                 }
  [14:18:31.198]                 oopts <- options(mc.cores = workers)
  [14:18:31.198]                 on.exit(options(oopts))
  [14:18:31.198]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:31.198]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.198]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:31.198]                   label = label, ...)
  [14:18:31.198]                 if (!future$lazy) 
  [14:18:31.198]                   future <- run(future)
  [14:18:31.198]                 invisible(future)
  [14:18:31.198]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:31.198]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:18:31.198]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:18:31.198]                 label = NULL, ...) 
  [14:18:31.198]             {
  [14:18:31.198]                 if (substitute) 
  [14:18:31.198]                   expr <- substitute(expr)
  [14:18:31.198]                 if (is.function(workers)) 
  [14:18:31.198]                   workers <- workers()
  [14:18:31.198]                 workers <- as.integer(workers)
  [14:18:31.198]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:31.198]                   workers >= 1)
  [14:18:31.198]                 if (workers == 1L) {
  [14:18:31.198]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.198]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:31.198]                     local = TRUE, label = label, ...))
  [14:18:31.198]                 }
  [14:18:31.198]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:31.198]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:31.198]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.198]                   globals = globals, persistent = persistent, 
  [14:18:31.198]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:31.198]                   label = label, ...)
  [14:18:31.198]                 if (!future$lazy) 
  [14:18:31.198]                   future <- run(future)
  [14:18:31.198]                 invisible(future)
  [14:18:31.198]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:31.198]         }
  [14:18:31.198]         base::options(...future.oldOptions)
  [14:18:31.198]     })
  [14:18:31.198]     Sys.time
  [14:18:31.198]     if (base::is.na(TRUE)) {
  [14:18:31.198]     }
  [14:18:31.198]     else {
  [14:18:31.198]         base::sink(type = "output", split = FALSE)
  [14:18:31.198]         if (TRUE) {
  [14:18:31.198]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:31.198]         }
  [14:18:31.198]         else {
  [14:18:31.198]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:31.198]         }
  [14:18:31.198]         base::close(...future.stdout)
  [14:18:31.198]         ...future.stdout <- NULL
  [14:18:31.198]     }
  [14:18:31.198]     ...future.result$conditions <- ...future.conditions
  [14:18:31.198]     ...future.result
  [14:18:31.198] }
  [14:18:31.205] requestCore(): workers = 2
  [14:18:31.210] MulticoreFuture started
  [14:18:31.211] Chunk #1 of 2 ... DONE
  [14:18:31.211] Chunk #2 of 2 ...
  [14:18:31.212]  - Finding globals in 'args_list' chunk #2 ...
  [14:18:31.212] getGlobalsAndPackages() ...
  [14:18:31.213] Searching for globals...
  [14:18:31.214] 
  [14:18:31.215] Searching for globals ... DONE
  [14:18:31.215] - globals: [0] <none>
  [14:18:31.216] getGlobalsAndPackages() ... DONE
  [14:18:31.216] 
  [14:18:31.217] 
  [14:18:31.217]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:18:31.219] getGlobalsAndPackages() ...
  [14:18:31.220] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.220] Resolving globals: FALSE
  [14:18:31.222] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:18:31.223] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:18:31.223] 
  [14:18:31.224] getGlobalsAndPackages() ... DONE
  [14:18:31.225] plan(): Setting new future strategy stack:
  [14:18:31.225] List of future strategies:
  [14:18:31.225] 1. multisession:
  [14:18:31.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, ...)
  [14:18:31.225]    - tweaked: FALSE
  [14:18:31.225]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.227] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:18:31.228] plan(): nbrOfWorkers() = 1
  [14:18:31.228] Packages needed by future strategies (n = 1): 'future'
  [14:18:31.237] {
  [14:18:31.237]     {
  [14:18:31.237]         ...future.startTime <- base::Sys.time()
  [14:18:31.237]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:31.237]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:31.237]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:31.237]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:31.237]             future.resolve.recursive = NULL, width = 80L)
  [14:18:31.237]         {
  [14:18:31.237]             {
  [14:18:31.237]                 {
  [14:18:31.237]                   {
  [14:18:31.237]                     has_future <- base::requireNamespace("future", 
  [14:18:31.237]                       quietly = TRUE)
  [14:18:31.237]                     version <- if (has_future) 
  [14:18:31.237]                       utils::packageVersion("future")
  [14:18:31.237]                     else NULL
  [14:18:31.237]                     if (!has_future || version < "1.8.0") {
  [14:18:31.237]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:18:31.237]                         "", base::R.version$version.string), 
  [14:18:31.237]                         platform = base::sprintf("%s (%s-bit)", 
  [14:18:31.237]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:31.237]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:31.237]                           "release", "version")], collapse = " "), 
  [14:18:31.237]                         hostname = base::Sys.info()[["nodename"]])
  [14:18:31.237]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:31.237]                         info)
  [14:18:31.237]                       info <- base::paste(info, collapse = "; ")
  [14:18:31.237]                       if (!has_future) {
  [14:18:31.237]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:31.237]                           info)
  [14:18:31.237]                       }
  [14:18:31.237]                       else {
  [14:18:31.237]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:31.237]                           info, version)
  [14:18:31.237]                       }
  [14:18:31.237]                       base::stop(msg)
  [14:18:31.237]                     }
  [14:18:31.237]                   }
  [14:18:31.237]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:18:31.237]                   base::options(mc.cores = 1L)
  [14:18:31.237]                 }
  [14:18:31.237]                 base::local({
  [14:18:31.237]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:18:31.237]                   "future")) {
  [14:18:31.237]                     base::loadNamespace(pkg)
  [14:18:31.237]                     base::library(pkg, character.only = TRUE)
  [14:18:31.237]                   }
  [14:18:31.237]                 })
  [14:18:31.237]             }
  [14:18:31.237]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:31.237]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:31.237]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:31.237]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:31.237]                 ...) 
  [14:18:31.237]             {
  [14:18:31.237]                 if (substitute) 
  [14:18:31.237]                   expr <- substitute(expr)
  [14:18:31.237]                 if (is.function(workers)) 
  [14:18:31.237]                   workers <- workers()
  [14:18:31.237]                 workers <- as.integer(workers)
  [14:18:31.237]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:31.237]                   workers >= 1)
  [14:18:31.237]                 if (workers == 1L) {
  [14:18:31.237]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.237]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:31.237]                     local = TRUE, label = label, ...))
  [14:18:31.237]                 }
  [14:18:31.237]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:31.237]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:31.237]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.237]                   globals = globals, persistent = persistent, 
  [14:18:31.237]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:31.237]                   label = label, ...)
  [14:18:31.237]                 if (!future$lazy) 
  [14:18:31.237]                   future <- run(future)
  [14:18:31.237]                 invisible(future)
  [14:18:31.237]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:31.237]         }
  [14:18:31.237]     }
  [14:18:31.237]     if (base::is.na(TRUE)) {
  [14:18:31.237]     }
  [14:18:31.237]     else {
  [14:18:31.237]         if (TRUE) {
  [14:18:31.237]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:31.237]                 open = "w")
  [14:18:31.237]         }
  [14:18:31.237]         else {
  [14:18:31.237]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:31.237]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:31.237]         }
  [14:18:31.237]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:31.237]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:31.237]             base::sink(type = "output", split = FALSE)
  [14:18:31.237]             base::close(...future.stdout)
  [14:18:31.237]         }, add = TRUE)
  [14:18:31.237]     }
  [14:18:31.237]     ...future.frame <- base::sys.nframe()
  [14:18:31.237]     ...future.conditions <- base::list()
  [14:18:31.237]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:31.237]     ...future.result <- base::tryCatch({
  [14:18:31.237]         base::withCallingHandlers({
  [14:18:31.237]             ...future.value <- base::withVisible(base::local({
  [14:18:31.237]                 doFuture::registerDoFuture()
  [14:18:31.237]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.237]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.237]                   a <- NULL
  [14:18:31.237]                   ...future.env <- environment()
  [14:18:31.237]                   local({
  [14:18:31.237]                     for (name in names(...future.x_jj)) {
  [14:18:31.237]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.237]                         inherits = FALSE)
  [14:18:31.237]                     }
  [14:18:31.237]                   })
  [14:18:31.237]                   tryCatch({
  [14:18:31.237]                     plan_list <- future::plan("next")
  [14:18:31.237]                     stopifnot(inherits(plan_list, strategy2))
  [14:18:31.237]                     plan_a <- future::plan("list")
  [14:18:31.237]                     str(plan_a)
  [14:18:31.237]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:18:31.237]                     message("foreach() - level 2 ...")
  [14:18:31.237]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:18:31.237]                       {
  [14:18:31.237]                         plan_list <- future::plan("next")
  [14:18:31.237]                         message(capture.output(print(plan_list)))
  [14:18:31.237]                         stopifnot(inherits(plan_list, "future"))
  [14:18:31.237]                         default <- getOption("future.plan", "sequential")
  [14:18:31.237]                         if (is.function(default)) 
  [14:18:31.237]                           default <- class(default)
  [14:18:31.237]                         stopifnot(inherits(plan_list, default))
  [14:18:31.237]                         plan_b <- future::plan("list")
  [14:18:31.237]                         str(plan_b)
  [14:18:31.237]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:31.237]                           inherits(plan_b[[1]], default))
  [14:18:31.237]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.237]                       }
  [14:18:31.237]                     message("foreach() - level 2 ... DONE")
  [14:18:31.237]                     y
  [14:18:31.237]                   }, error = identity)
  [14:18:31.237]                 })
  [14:18:31.237]             }))
  [14:18:31.237]             future::FutureResult(value = ...future.value$value, 
  [14:18:31.237]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.237]                   ...future.rng), started = ...future.startTime, 
  [14:18:31.237]                 version = "1.8")
  [14:18:31.237]         }, condition = base::local({
  [14:18:31.237]             c <- base::c
  [14:18:31.237]             inherits <- base::inherits
  [14:18:31.237]             invokeRestart <- base::invokeRestart
  [14:18:31.237]             length <- base::length
  [14:18:31.237]             list <- base::list
  [14:18:31.237]             seq.int <- base::seq.int
  [14:18:31.237]             signalCondition <- base::signalCondition
  [14:18:31.237]             sys.calls <- base::sys.calls
  [14:18:31.237]             Sys.time <- base::Sys.time
  [14:18:31.237]             `[[` <- base::`[[`
  [14:18:31.237]             `+` <- base::`+`
  [14:18:31.237]             `<<-` <- base::`<<-`
  [14:18:31.237]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:31.237]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:31.237]                   3L)]
  [14:18:31.237]             }
  [14:18:31.237]             function(cond) {
  [14:18:31.237]                 if (inherits(cond, "error")) {
  [14:18:31.237]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.237]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:31.237]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:31.237]                   signalCondition(cond)
  [14:18:31.237]                 }
  [14:18:31.237]                 else if (inherits(cond, "condition")) {
  [14:18:31.237]                   signal <- FALSE && inherits(cond, character(0))
  [14:18:31.237]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.237]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:31.237]                   if (!signal) {
  [14:18:31.237]                     muffleCondition <- function (cond) 
  [14:18:31.237]                     {
  [14:18:31.237]                       inherits <- base::inherits
  [14:18:31.237]                       invokeRestart <- base::invokeRestart
  [14:18:31.237]                       muffled <- FALSE
  [14:18:31.237]                       if (inherits(cond, "message")) {
  [14:18:31.237]                         invokeRestart("muffleMessage")
  [14:18:31.237]                         muffled <- TRUE
  [14:18:31.237]                       }
  [14:18:31.237]                       else if (inherits(cond, "warning")) {
  [14:18:31.237]                         invokeRestart("muffleWarning")
  [14:18:31.237]                         muffled <- TRUE
  [14:18:31.237]                       }
  [14:18:31.237]                       else if (inherits(cond, "condition")) {
  [14:18:31.237]                         computeRestarts <- base::computeRestarts
  [14:18:31.237]                         grepl <- base::grepl
  [14:18:31.237]                         is.null <- base::is.null
  [14:18:31.237]                         restarts <- computeRestarts(cond)
  [14:18:31.237]                         for (restart in restarts) {
  [14:18:31.237]                           name <- restart$name
  [14:18:31.237]                           if (is.null(name)) 
  [14:18:31.237]                             next
  [14:18:31.237]                           if (!grepl("^muffle", name)) 
  [14:18:31.237]                             next
  [14:18:31.237]                           invokeRestart(restart)
  [14:18:31.237]                           muffled <- TRUE
  [14:18:31.237]                           break
  [14:18:31.237]                         }
  [14:18:31.237]                       }
  [14:18:31.237]                       invisible(muffled)
  [14:18:31.237]                     }
  [14:18:31.237]                     muffleCondition(cond)
  [14:18:31.237]                   }
  [14:18:31.237]                 }
  [14:18:31.237]             }
  [14:18:31.237]         }))
  [14:18:31.237]     }, error = function(ex) {
  [14:18:31.237]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:31.237]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.237]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:31.237]     }, finally = {
  [14:18:31.237]         {
  [14:18:31.237]             {
  [14:18:31.237]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:18:31.237]             }
  [14:18:31.237]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:18:31.237]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:31.237]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:18:31.237]                 earlySignal = FALSE, label = NULL, ...) 
  [14:18:31.237]             {
  [14:18:31.237]                 if (substitute) 
  [14:18:31.237]                   expr <- substitute(expr)
  [14:18:31.237]                 if (is.function(workers)) 
  [14:18:31.237]                   workers <- workers()
  [14:18:31.237]                 workers <- as.integer(workers)
  [14:18:31.237]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:18:31.237]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:18:31.237]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.237]                     lazy = lazy, seed = seed, globals = globals, 
  [14:18:31.237]                     local = TRUE, label = label, ...))
  [14:18:31.237]                 }
  [14:18:31.237]                 oopts <- options(mc.cores = workers)
  [14:18:31.237]                 on.exit(options(oopts))
  [14:18:31.237]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:18:31.237]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.237]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:18:31.237]                   label = label, ...)
  [14:18:31.237]                 if (!future$lazy) 
  [14:18:31.237]                   future <- run(future)
  [14:18:31.237]                 invisible(future)
  [14:18:31.237]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:18:31.237]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:18:31.237]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:18:31.237]                 label = NULL, ...) 
  [14:18:31.237]             {
  [14:18:31.237]                 if (substitute) 
  [14:18:31.237]                   expr <- substitute(expr)
  [14:18:31.237]                 if (is.function(workers)) 
  [14:18:31.237]                   workers <- workers()
  [14:18:31.237]                 workers <- as.integer(workers)
  [14:18:31.237]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:31.237]                   workers >= 1)
  [14:18:31.237]                 if (workers == 1L) {
  [14:18:31.237]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.237]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:31.237]                     local = TRUE, label = label, ...))
  [14:18:31.237]                 }
  [14:18:31.237]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:31.237]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:31.237]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.237]                   globals = globals, persistent = persistent, 
  [14:18:31.237]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:31.237]                   label = label, ...)
  [14:18:31.237]                 if (!future$lazy) 
  [14:18:31.237]                   future <- run(future)
  [14:18:31.237]                 invisible(future)
  [14:18:31.237]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:31.237]         }
  [14:18:31.237]         base::options(...future.oldOptions)
  [14:18:31.237]     })
  [14:18:31.237]     Sys.time
  [14:18:31.237]     if (base::is.na(TRUE)) {
  [14:18:31.237]     }
  [14:18:31.237]     else {
  [14:18:31.237]         base::sink(type = "output", split = FALSE)
  [14:18:31.237]         if (TRUE) {
  [14:18:31.237]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:31.237]         }
  [14:18:31.237]         else {
  [14:18:31.237]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:31.237]         }
  [14:18:31.237]         base::close(...future.stdout)
  [14:18:31.237]         ...future.stdout <- NULL
  [14:18:31.237]     }
  [14:18:31.237]     ...future.result$conditions <- ...future.conditions
  [14:18:31.237]     ...future.result
  [14:18:31.237] }
  [14:18:31.246] requestCore(): workers = 2
  [14:18:31.251] MulticoreFuture started
  [14:18:31.252] Chunk #2 of 2 ... DONE
  [14:18:31.252] Launching 2 futures (chunks) ... DONE
  [14:18:31.253] - resolving futures
  [14:18:31.253]   - gathering results & relaying conditions (except errors)
  [14:18:31.254] resolve() on list ...
  [14:18:31.254]  recursive: 0
  [14:18:31.255]  length: 2
  [14:18:31.255] 
  [14:18:31.258] plan(): Setting new future strategy stack:
  [14:18:31.259] List of future strategies:
  [14:18:31.259] 1. multisession:
  [14:18:31.259]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.259]    - tweaked: FALSE
  [14:18:31.259]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.262] plan(): nbrOfWorkers() = 1
  [14:18:31.557] plan(): Setting new future strategy stack:
  [14:18:31.557] List of future strategies:
  [14:18:31.557] 1. multicore:
  [14:18:31.557]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:31.557]    - tweaked: FALSE
  [14:18:31.557]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.557] 2. multisession:
  [14:18:31.557]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.557]    - tweaked: FALSE
  [14:18:31.557]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.576] plan(): nbrOfWorkers() = 2
  [14:18:31.596] plan(): Setting new future strategy stack:
  [14:18:31.596] List of future strategies:
  [14:18:31.596] 1. multicore:
  [14:18:31.596]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:18:31.596]    - tweaked: FALSE
  [14:18:31.596]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.596] 2. multisession:
  [14:18:31.596]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.596]    - tweaked: FALSE
  [14:18:31.596]    - call: plan(list(a = strategy1, b = strategy2))
  [14:18:31.599] plan(): nbrOfWorkers() = 2
  [14:18:31.601] Future #2
  [14:18:31.605] signalConditions() ...
  [14:18:31.606]  - include = 'immediateCondition'
  [14:18:31.606]  - exclude = 
  [14:18:31.607]  - resignal = FALSE
  [14:18:31.607]  - Number of conditions: 140
  [14:18:31.608] signalConditions() ... done
  [14:18:31.609] signalConditions() ...
  [14:18:31.609]  - include = 'immediateCondition'
  [14:18:31.610]  - exclude = 
  [14:18:31.610]  - resignal = FALSE
  [14:18:31.610]  - Number of conditions: 140
  [14:18:31.611] signalConditions() ... done
  [14:18:31.612] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:18:31.612] - nx: 2
  [14:18:31.613] - relay: TRUE
  [14:18:31.613] - stdout: TRUE
  [14:18:31.613] - signal: TRUE
  [14:18:31.614] - resignal: FALSE
  [14:18:31.614] - force: FALSE
  [14:18:31.614] - relayed: [n=2] FALSE, FALSE
  [14:18:31.615] - queued futures: [n=2] FALSE, FALSE
  [14:18:31.615]  - until=1
  [14:18:31.616]  - relaying element #1
  [14:18:31.616] - relayed: [n=2] FALSE, FALSE
  [14:18:31.617] - queued futures: [n=2] FALSE, TRUE
  [14:18:31.617] signalConditionsASAP(NULL, pos=2) ... done
  [14:18:31.617]  length: 1 (resolved future 2)
  [14:18:31.718] Future #1
  [14:18:31.722] signalConditions() ...
  [14:18:31.723]  - include = 'immediateCondition'
  [14:18:31.723]  - exclude = 
  [14:18:31.723]  - resignal = FALSE
  [14:18:31.724]  - Number of conditions: 140
  [14:18:31.725] signalConditions() ... done
  [14:18:31.725] signalConditions() ...
  [14:18:31.726]  - include = 'immediateCondition'
  [14:18:31.726]  - exclude = 
  [14:18:31.726]  - resignal = FALSE
  [14:18:31.727]  - Number of conditions: 140
  [14:18:31.728] signalConditions() ... done
  [14:18:31.728] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:18:31.728] - nx: 2
  [14:18:31.729] - relay: TRUE
  [14:18:31.729] - stdout: TRUE
  [14:18:31.730] - signal: TRUE
  [14:18:31.730] - resignal: FALSE
  [14:18:31.730] - force: FALSE
  [14:18:31.731] - relayed: [n=2] FALSE, FALSE
  [14:18:31.731] - queued futures: [n=2] FALSE, TRUE
  [14:18:31.731]  - until=1
  [14:18:31.732]  - relaying element #1
  [14:18:31.732] signalConditions() ...
  [14:18:31.733]  - include = 'immediateCondition'
  [14:18:31.733]  - exclude = 
  [14:18:31.733]  - resignal = FALSE
  [14:18:31.734]  - Number of conditions: 140
  [14:18:31.747] 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"
  [14:18:31.748] signalConditions() ...
  [14:18:31.748]  - include = 'immediateCondition'
  [14:18:31.748]  - exclude = 
  [14:18:31.749]  - resignal = FALSE
  [14:18:31.749]  - Number of conditions: 140
  [14:18:31.750] signalConditions() ... done
  [14:18:31.751] signalConditions() ...
  [14:18:31.751]  - include = 'condition'
  [14:18:31.752]  - exclude = 'immediateCondition'
  [14:18:31.752]  - resignal = FALSE
  [14:18:31.752]  - Number of conditions: 140
  [14:18:31.753]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:18:31.753]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:18:31.287] doFuture() ...
  [14:18:31.754]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:18:31.289] - dummy globals (as locals): [1] 'b'
  [14:18:31.755]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:18:31.291] - R expression:
  [14:18:31.755]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:18:31.291] {
  [14:18:31.291]     doFuture::registerDoFuture()
  [14:18:31.291]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.291]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.291]         b <- NULL
  [14:18:31.291]         ...future.env <- environment()
  [14:18:31.291]         local({
  [14:18:31.291]             for (name in names(...future.x_jj)) {
  [14:18:31.291]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.291]                   inherits = FALSE)
  [14:18:31.291]             }
  [14:18:31.291]         })
  [14:18:31.291]         tryCatch({
  [14:18:31.291]             plan_list <- future::plan("next")
  [14:18:31.291]             message(capture.output(print(plan_list)))
  [14:18:31.291]             stopifnot(inherits(plan_list, "future"))
  [14:18:31.291]             default <- getOption("future.plan", "sequential")
  [14:18:31.291]             if (is.function(default)) 
  [14:18:31.291]                 default <- class(default)
  [14:18:31.291]             stopifnot(inherits(plan_list, default))
  [14:18:31.291]             plan_b <- future::plan("list")
  [14:18:31.291]             str(plan_b)
  [14:18:31.291]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:31.291]                 default))
  [14:18:31.291]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.291]         }, error = identity)
  [14:18:31.291]     })
  [14:18:31.291] }
  [14:18:31.756]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:18:31.293] - identifying globals and packages ...
  [14:18:31.756]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:18:31.294] getGlobalsAndPackages() ...
  [14:18:31.757]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:18:31.311] Searching for globals...
  [14:18:31.757]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:18:31.372] - 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'
  [14:18:31.758]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:18:31.373] Searching for globals ... DONE
  [14:18:31.759]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:18:31.374] Resolving globals: FALSE
  [14:18:31.759]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:18:31.378] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:18:31.760]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:18:31.379] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.760]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:18:31.380] - packages: [1] 'utils'
  [14:18:31.761]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:18:31.381] getGlobalsAndPackages() ... DONE
  [14:18:31.761]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:18:31.381] List of 3
  [14:18:31.381]  $ ...future.x_ii: NULL
  [14:18:31.381]  $ a             : int 1
  [14:18:31.381]  $ plan_a        :List of 1
  [14:18:31.381]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:31.381]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:31.381]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:31.381]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:31.381]   .. ..- attr(*, "init")= logi TRUE
  [14:18:31.381]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:31.381]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:31.381]  - attr(*, "where")=List of 3
  [14:18:31.381]   ..$ ...future.x_ii:<environment: 0x562633c0cbb8> 
  [14:18:31.381]   ..$ a             :<environment: 0x562633a9c0f0> 
  [14:18:31.381]   ..$ plan_a        :<environment: 0x562633a9c0f0> 
  [14:18:31.381]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:31.381]  - attr(*, "resolved")= logi FALSE
  [14:18:31.381]  - attr(*, "total_size")= num 83544
  [14:18:31.762]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:18:31.402]   - R expression:
  [14:18:31.779]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:18:31.403] {
  [14:18:31.403]     doFuture::registerDoFuture()
  [14:18:31.403]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.403]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.403]         b <- NULL
  [14:18:31.403]         ...future.env <- environment()
  [14:18:31.403]         local({
  [14:18:31.403]             for (name in names(...future.x_jj)) {
  [14:18:31.403]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.403]                   inherits = FALSE)
  [14:18:31.403]             }
  [14:18:31.403]         })
  [14:18:31.403]         tryCatch({
  [14:18:31.403]             plan_list <- future::plan("next")
  [14:18:31.403]             message(capture.output(print(plan_list)))
  [14:18:31.403]             stopifnot(inherits(plan_list, "future"))
  [14:18:31.403]             default <- getOption("future.plan", "sequential")
  [14:18:31.403]             if (is.function(default)) 
  [14:18:31.403]                 default <- class(default)
  [14:18:31.403]             stopifnot(inherits(plan_list, default))
  [14:18:31.403]             plan_b <- future::plan("list")
  [14:18:31.403]             str(plan_b)
  [14:18:31.403]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:18:31.403]                 default))
  [14:18:31.403]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.403]         }, error = identity)
  [14:18:31.403]     })
  [14:18:31.403] }
  [14:18:31.780]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:18:31.405]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.780]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:18:31.405] List of 3
  [14:18:31.405]  $ ...future.x_ii: NULL
  [14:18:31.405]  $ a             : int 1
  [14:18:31.405]  $ plan_a        :List of 1
  [14:18:31.405]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:18:31.405]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:31.405]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:18:31.405]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:18:31.405]   .. ..- attr(*, "init")= logi TRUE
  [14:18:31.405]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:18:31.405]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:18:31.405]  - attr(*, "where")=List of 3
  [14:18:31.405]   ..$ ...future.x_ii:<environment: 0x562633c0cbb8> 
  [14:18:31.405]   ..$ a             :<environment: 0x562633a9c0f0> 
  [14:18:31.405]   ..$ plan_a        :<environment: 0x562633a9c0f0> 
  [14:18:31.405]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:18:31.405]  - attr(*, "resolved")= logi FALSE
  [14:18:31.405]  - attr(*, "total_size")= num 83544
  [14:18:31.781]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:18:31.426]   - packages: [2] 'doFuture', 'utils'
  [14:18:31.781]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:18:31.427] - identifying globals and packages ... DONE
  [14:18:31.782]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:18:31.428] Number of chunks: 1
  [14:18:31.782]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:18:31.429] Number of futures (= number of chunks): 1
  [14:18:31.783]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:18:31.430] Launching 1 futures (chunks) ...
  [14:18:31.784]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:18:31.430] Chunk #1 of 1 ...
  [14:18:31.784]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:18:31.431]  - Finding globals in 'args_list' chunk #1 ...
  [14:18:31.785]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:18:31.432] getGlobalsAndPackages() ...
  [14:18:31.785]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:18:31.432] Searching for globals...
  [14:18:31.786]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:18:31.434] 
  [14:18:31.787]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:18:31.435] Searching for globals ... DONE
  [14:18:31.787]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:18:31.435] - globals: [0] <none>
  [14:18:31.788]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:18:31.436] getGlobalsAndPackages() ... DONE
  [14:18:31.788]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:18:31.437] 
  [14:18:31.789]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:18:31.437] 
  [14:18:31.789]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:18:31.438]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:18:31.790]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:18:31.439] getGlobalsAndPackages() ...
  [14:18:31.791]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:18:31.440] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.791]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:18:31.441] Resolving globals: FALSE
  [14:18:31.792]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:18:31.443] The total size of the 3 globals is 81.75 KiB (83712 bytes)
  [14:18:31.792]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:18:31.444] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:18:31.793]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:18:31.445] 
  [14:18:31.794]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:18:31.445] getGlobalsAndPackages() ... DONE
  [14:18:31.794]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:18:31.448] Chunk #1 of 1 ... DONE
  [14:18:31.811]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:18:31.448] Launching 1 futures (chunks) ... DONE
  [14:18:31.812]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:18:31.449] - resolving futures
  [14:18:31.812]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:18:31.449]   - gathering results & relaying conditions (except errors)
  [14:18:31.813]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:18:31.450] resolve() on list ...
  [14:18:31.813]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:18:31.451]  recursive: 0
  [14:18:31.814]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:18:31.451]  length: 1
  [14:18:31.814]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:18:31.452] 
  [14:18:31.815]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:18:31.454] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:18:31.816]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:18:31.455] Packages needed by future strategies (n = 0): <none>
  [14:18:31.816]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:18:31.463] {
  [14:18:31.463]     {
  [14:18:31.463]         ...future.startTime <- base::Sys.time()
  [14:18:31.463]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:18:31.463]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [14:18:31.463]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [14:18:31.463]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:18:31.463]             future.resolve.recursive = NULL, width = 80L)
  [14:18:31.463]         {
  [14:18:31.463]             {
  [14:18:31.463]                 {
  [14:18:31.463]                   has_future <- base::requireNamespace("future", 
  [14:18:31.463]                     quietly = TRUE)
  [14:18:31.463]                   version <- if (has_future) 
  [14:18:31.463]                     utils::packageVersion("future")
  [14:18:31.463]                   else NULL
  [14:18:31.463]                   if (!has_future || version < "1.8.0") {
  [14:18:31.463]                     info <- base::c(r_version = base::gsub("R version ", 
  [14:18:31.463]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [14:18:31.463]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:18:31.463]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:18:31.463]                         "release", "version")], collapse = " "), 
  [14:18:31.463]                       hostname = base::Sys.info()[["nodename"]])
  [14:18:31.463]                     info <- base::sprintf("%s: %s", base::names(info), 
  [14:18:31.463]                       info)
  [14:18:31.463]                     info <- base::paste(info, collapse = "; ")
  [14:18:31.463]                     if (!has_future) {
  [14:18:31.463]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:18:31.463]                         info)
  [14:18:31.463]                     }
  [14:18:31.463]                     else {
  [14:18:31.463]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:18:31.463]                         info, version)
  [14:18:31.463]                     }
  [14:18:31.463]                     base::stop(msg)
  [14:18:31.463]                   }
  [14:18:31.463]                 }
  [14:18:31.463]                 base::local({
  [14:18:31.463]                   for (pkg in c("doFuture", "utils")) {
  [14:18:31.463]                     base::loadNamespace(pkg)
  [14:18:31.463]                     base::library(pkg, character.only = TRUE)
  [14:18:31.463]                   }
  [14:18:31.463]                 })
  [14:18:31.463]             }
  [14:18:31.463]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:18:31.463]         }
  [14:18:31.463]     }
  [14:18:31.463]     if (base::is.na(TRUE)) {
  [14:18:31.463]     }
  [14:18:31.463]     else {
  [14:18:31.463]         if (TRUE) {
  [14:18:31.463]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:18:31.463]                 open = "w")
  [14:18:31.463]         }
  [14:18:31.463]         else {
  [14:18:31.463]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:18:31.463]                 windows = "NUL", "/dev/null"), open = "w")
  [14:18:31.463]         }
  [14:18:31.463]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:18:31.463]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:18:31.463]             base::sink(type = "output", split = FALSE)
  [14:18:31.463]             base::close(...future.stdout)
  [14:18:31.463]         }, add = TRUE)
  [14:18:31.463]     }
  [14:18:31.463]     ...future.frame <- base::sys.nframe()
  [14:18:31.463]     ...future.conditions <- base::list()
  [14:18:31.463]     ...future.rng <- base::globalenv()$.Random.seed
  [14:18:31.463]     ...future.result <- base::tryCatch({
  [14:18:31.463]         base::withCallingHandlers({
  [14:18:31.463]             ...future.value <- base::withVisible(base::local({
  [14:18:31.463]                 doFuture::registerDoFuture()
  [14:18:31.463]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:18:31.463]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:18:31.463]                   b <- NULL
  [14:18:31.463]                   ...future.env <- environment()
  [14:18:31.463]                   local({
  [14:18:31.463]                     for (name in names(...future.x_jj)) {
  [14:18:31.463]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:18:31.463]                         inherits = FALSE)
  [14:18:31.463]                     }
  [14:18:31.463]                   })
  [14:18:31.463]                   tryCatch({
  [14:18:31.463]                     plan_list <- future::plan("next")
  [14:18:31.463]                     message(capture.output(print(plan_list)))
  [14:18:31.463]                     stopifnot(inherits(plan_list, "future"))
  [14:18:31.463]                     default <- getOption("future.plan", "sequential")
  [14:18:31.463]                     if (is.function(default)) 
  [14:18:31.463]                       default <- class(default)
  [14:18:31.463]                     stopifnot(inherits(plan_list, default))
  [14:18:31.463]                     plan_b <- future::plan("list")
  [14:18:31.463]                     str(plan_b)
  [14:18:31.463]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:18:31.463]                       inherits(plan_b[[1]], default))
  [14:18:31.463]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:18:31.463]                   }, error = identity)
  [14:18:31.463]                 })
  [14:18:31.463]             }))
  [14:18:31.463]             future::FutureResult(value = ...future.value$value, 
  [14:18:31.463]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.463]                   ...future.rng), started = ...future.startTime, 
  [14:18:31.463]                 version = "1.8")
  [14:18:31.463]         }, condition = base::local({
  [14:18:31.463]             c <- base::c
  [14:18:31.463]             inherits <- base::inherits
  [14:18:31.463]             invokeRestart <- base::invokeRestart
  [14:18:31.463]             length <- base::length
  [14:18:31.463]             list <- base::list
  [14:18:31.463]             seq.int <- base::seq.int
  [14:18:31.463]             signalCondition <- base::signalCondition
  [14:18:31.463]             sys.calls <- base::sys.calls
  [14:18:31.463]             Sys.time <- base::Sys.time
  [14:18:31.463]             `[[` <- base::`[[`
  [14:18:31.463]             `+` <- base::`+`
  [14:18:31.463]             `<<-` <- base::`<<-`
  [14:18:31.463]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:18:31.463]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:18:31.463]                   3L)]
  [14:18:31.463]             }
  [14:18:31.463]             function(cond) {
  [14:18:31.463]                 if (inherits(cond, "error")) {
  [14:18:31.463]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.463]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:18:31.463]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [14:18:31.463]                   signalCondition(cond)
  [14:18:31.463]                 }
  [14:18:31.463]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:18:31.463]                 ))) {
  [14:18:31.463]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:18:31.463]                   ...future.conditions[[length(...future.conditions) + 
  [14:18:31.463]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:18:31.463]                   if (!signal) {
  [14:18:31.463]                     muffleCondition <- function (cond) 
  [14:18:31.463]                     {
  [14:18:31.463]                       inherits <- base::inherits
  [14:18:31.463]                       invokeRestart <- base::invokeRestart
  [14:18:31.463]                       muffled <- FALSE
  [14:18:31.463]                       if (inherits(cond, "message")) {
  [14:18:31.463]                         invokeRestart("muffleMessage")
  [14:18:31.463]                         muffled <- TRUE
  [14:18:31.463]                       }
  [14:18:31.463]                       else if (inherits(cond, "warning")) {
  [14:18:31.463]                         invokeRestart("muffleWarning")
  [14:18:31.463]                         muffled <- TRUE
  [14:18:31.463]                       }
  [14:18:31.463]                       else if (inherits(cond, "condition")) {
  [14:18:31.463]                         computeRestarts <- base::computeRestarts
  [14:18:31.463]                         grepl <- base::grepl
  [14:18:31.463]                         is.null <- base::is.null
  [14:18:31.463]                         restarts <- computeRestarts(cond)
  [14:18:31.463]                         for (restart in restarts) {
  [14:18:31.463]                           name <- restart$name
  [14:18:31.463]                           if (is.null(name)) 
  [14:18:31.463]                             next
  [14:18:31.463]                           if (!grepl("^muffle", name)) 
  [14:18:31.463]                             next
  [14:18:31.463]                           invokeRestart(restart)
  [14:18:31.463]                           muffled <- TRUE
  [14:18:31.463]                           break
  [14:18:31.463]                         }
  [14:18:31.463]                       }
  [14:18:31.463]                       invisible(muffled)
  [14:18:31.463]                     }
  [14:18:31.463]                     muffleCondition(cond)
  [14:18:31.463]                   }
  [14:18:31.463]                 }
  [14:18:31.463]             }
  [14:18:31.463]         }))
  [14:18:31.463]     }, error = function(ex) {
  [14:18:31.463]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:18:31.463]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:18:31.463]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:18:31.463]     }, finally = {
  [14:18:31.463]         {
  [14:18:31.463]             NULL
  [14:18:31.463]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:18:31.463]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:18:31.463]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:18:31.463]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:18:31.463]                 ...) 
  [14:18:31.463]             {
  [14:18:31.463]                 if (substitute) 
  [14:18:31.463]                   expr <- substitute(expr)
  [14:18:31.463]                 if (is.function(workers)) 
  [14:18:31.463]                   workers <- workers()
  [14:18:31.463]                 workers <- as.integer(workers)
  [14:18:31.463]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:18:31.463]                   workers >= 1)
  [14:18:31.463]                 if (workers == 1L) {
  [14:18:31.463]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:18:31.463]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:18:31.463]                     local = TRUE, label = label, ...))
  [14:18:31.463]                 }
  [14:18:31.463]                 workers <- ClusterRegistry("start", workers = workers)
  [14:18:31.463]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:18:31.463]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:18:31.463]                   globals = globals, persistent = persistent, 
  [14:18:31.463]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:18:31.463]                   label = label, ...)
  [14:18:31.463]                 if (!future$lazy) 
  [14:18:31.463]                   future <- run(future)
  [14:18:31.463]                 invisible(future)
  [14:18:31.463]             }), .cleanup = FALSE, .init = FALSE)
  [14:18:31.463]         }
  [14:18:31.463]         base::options(...future.oldOptions)
  [14:18:31.463]     })
  [14:18:31.463]     Sys.time
  [14:18:31.463]     if (base::is.na(TRUE)) {
  [14:18:31.463]     }
  [14:18:31.463]     else {
  [14:18:31.463]         base::sink(type = "output", split = FALSE)
  [14:18:31.463]         if (TRUE) {
  [14:18:31.463]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:18:31.463]         }
  [14:18:31.463]         else {
  [14:18:31.463]             ...future.result["stdout"] <- base::list(NULL)
  [14:18:31.463]         }
  [14:18:31.463]         base::close(...future.stdout)
  [14:18:31.463]         ...future.stdout <- NULL
  [14:18:31.463]     }
  [14:18:31.463]     ...future.result$conditions <- ...future.conditions
  [14:18:31.463]     ...future.result
  [14:18:31.463] }
  [14:18:31.817]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:18:31.472] plan(): Setting new future strategy stack:
  [14:18:31.817]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:18:31.473] List of future strategies:
  [14:18:31.473] 1. sequential:
  [14:18:31.473]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.473]    - tweaked: FALSE
  [14:18:31.473]    - call: NULL
  [14:18:31.818]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:18:31.474] plan(): nbrOfWorkers() = 1
  [14:18:31.819]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:18:31.494] plan(): Setting new future strategy stack:
  [14:18:31.819]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:18:31.495] List of future strategies:
  [14:18:31.495] 1. multisession:
  [14:18:31.495]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:18:31.495]    - tweaked: FALSE