Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/3s]
  Running ‘doRNG,dopar.R’ [3s/33s]
  Running ‘doRNG,dorng.R’ [6s/40s]
  Running ‘foreach,errors.R’ [7s/103s]
  Running ‘foreach,globals.R’ [8s/103s]
  Running ‘foreach,nested.R’ [9s/142s]
  Running ‘foreach,nested_dopar.R’ [6s/40s]
  Running ‘foreach.R’ [11s/51s]
  Running ‘future.BatchJobs.R’ [27s/31s]
  Running ‘future.batchtools.R’ [36s/41s]
  Running ‘options.R’ [3s/21s]
  Running ‘registerDoFuture.R’ [2s/33s]
  Running ‘times.R’ [3s/34s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  Running ‘zzz_opt-in,caret.R’ [0s/0s]
  Running ‘zzz_opt-in,foreach.R’ [0s/0s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/1s]
Running the tests in ‘tests/foreach,nested_dopar.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [13:37:22.629] plan(): Setting new future strategy stack:
  [13:37:22.629] List of future strategies:
  [13:37:22.629] 1. sequential:
  [13:37:22.629]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.629]    - tweaked: FALSE
  [13:37:22.629]    - call: future::plan(future::sequential)
  [13:37:22.632] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested %dopar% ...")
  *** doFuture - nested %dopar% ...
  > 
  > registerDoFuture()
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ...")
  *** doFuture - nested %dopar%  and tricky globals ...
  > 
  > ## This works ...
  > x <- foreach(j = 1) %dopar% { j }
  [13:37:22.637] doFuture() ...
  [13:37:22.640] - dummy globals (as locals): [1] 'j'
  [13:37:22.641] - R expression:
  [13:37:22.641] {
  [13:37:22.641]     doFuture::registerDoFuture()
  [13:37:22.641]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.641]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.641]         j <- NULL
  [13:37:22.641]         ...future.env <- environment()
  [13:37:22.641]         local({
  [13:37:22.641]             for (name in names(...future.x_jj)) {
  [13:37:22.641]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.641]                   inherits = FALSE)
  [13:37:22.641]             }
  [13:37:22.641]         })
  [13:37:22.641]         tryCatch({
  [13:37:22.641]             j
  [13:37:22.641]         }, error = identity)
  [13:37:22.641]     })
  [13:37:22.641] }
  [13:37:22.642] - identifying globals and packages ...
  [13:37:22.645] getGlobalsAndPackages() ...
  [13:37:22.645] Searching for globals...
  [13:37:22.698] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [13:37:22.698] Searching for globals ... DONE
  [13:37:22.699] Resolving globals: FALSE
  [13:37:22.701] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.702] - globals: [1] '...future.x_ii'
  [13:37:22.702] 
  [13:37:22.702] getGlobalsAndPackages() ... DONE
  [13:37:22.703] List of 1
  [13:37:22.703]  $ ...future.x_ii: NULL
  [13:37:22.703]  - attr(*, "where")=List of 1
  [13:37:22.703]   ..$ ...future.x_ii:<environment: 0x561c1c0aee80> 
  [13:37:22.703]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.703]  - attr(*, "resolved")= logi FALSE
  [13:37:22.703]  - attr(*, "total_size")= num 0
  [13:37:22.730]   - R expression:
  [13:37:22.731] {
  [13:37:22.731]     doFuture::registerDoFuture()
  [13:37:22.731]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.731]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.731]         j <- NULL
  [13:37:22.731]         ...future.env <- environment()
  [13:37:22.731]         local({
  [13:37:22.731]             for (name in names(...future.x_jj)) {
  [13:37:22.731]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.731]                   inherits = FALSE)
  [13:37:22.731]             }
  [13:37:22.731]         })
  [13:37:22.731]         tryCatch({
  [13:37:22.731]             j
  [13:37:22.731]         }, error = identity)
  [13:37:22.731]     })
  [13:37:22.731] }
  [13:37:22.731]   - globals: [1] '...future.x_ii'
  [13:37:22.732] List of 1
  [13:37:22.732]  $ ...future.x_ii: NULL
  [13:37:22.732]  - attr(*, "where")=List of 1
  [13:37:22.732]   ..$ ...future.x_ii:<environment: 0x561c1c0aee80> 
  [13:37:22.732]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.732]  - attr(*, "resolved")= logi FALSE
  [13:37:22.732]  - attr(*, "total_size")= num 0
  [13:37:22.737]   - packages: [1] 'doFuture'
  [13:37:22.738] - identifying globals and packages ... DONE
  [13:37:22.738] Number of chunks: 1
  [13:37:22.739] Number of futures (= number of chunks): 1
  [13:37:22.740] Launching 1 futures (chunks) ...
  [13:37:22.741] Chunk #1 of 1 ...
  [13:37:22.741]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.741] getGlobalsAndPackages() ...
  [13:37:22.741] Searching for globals...
  [13:37:22.742] 
  [13:37:22.742] Searching for globals ... DONE
  [13:37:22.743] - globals: [0] <none>
  [13:37:22.743] getGlobalsAndPackages() ... DONE
  [13:37:22.743] 
  [13:37:22.744] 
  [13:37:22.744]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.745] getGlobalsAndPackages() ...
  [13:37:22.745] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.746] Resolving globals: FALSE
  [13:37:22.747] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:37:22.747] - globals: [1] '...future.x_ii'
  [13:37:22.747] 
  [13:37:22.748] getGlobalsAndPackages() ... DONE
  [13:37:22.751] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.751] Packages needed by future strategies (n = 0): <none>
  [13:37:22.757] {
  [13:37:22.757]     {
  [13:37:22.757]         ...future.startTime <- base::Sys.time()
  [13:37:22.757]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.757]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.757]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [13:37:22.757]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.757]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.757]         {
  [13:37:22.757]             {
  [13:37:22.757]                 {
  [13:37:22.757]                   has_future <- base::requireNamespace("future", 
  [13:37:22.757]                     quietly = TRUE)
  [13:37:22.757]                   version <- if (has_future) 
  [13:37:22.757]                     utils::packageVersion("future")
  [13:37:22.757]                   else NULL
  [13:37:22.757]                   if (!has_future || version < "1.8.0") {
  [13:37:22.757]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.757]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.757]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.757]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.757]                         "release", "version")], collapse = " "), 
  [13:37:22.757]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.757]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.757]                       info)
  [13:37:22.757]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.757]                     if (!has_future) {
  [13:37:22.757]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.757]                         info)
  [13:37:22.757]                     }
  [13:37:22.757]                     else {
  [13:37:22.757]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.757]                         info, version)
  [13:37:22.757]                     }
  [13:37:22.757]                     base::stop(msg)
  [13:37:22.757]                   }
  [13:37:22.757]                 }
  [13:37:22.757]                 base::local({
  [13:37:22.757]                   for (pkg in "doFuture") {
  [13:37:22.757]                     base::loadNamespace(pkg)
  [13:37:22.757]                     base::library(pkg, character.only = TRUE)
  [13:37:22.757]                   }
  [13:37:22.757]                 })
  [13:37:22.757]             }
  [13:37:22.757]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:22.757]         }
  [13:37:22.757]     }
  [13:37:22.757]     if (base::is.na(TRUE)) {
  [13:37:22.757]     }
  [13:37:22.757]     else {
  [13:37:22.757]         if (TRUE) {
  [13:37:22.757]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.757]                 open = "w")
  [13:37:22.757]         }
  [13:37:22.757]         else {
  [13:37:22.757]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.757]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.757]         }
  [13:37:22.757]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.757]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.757]             base::sink(type = "output", split = FALSE)
  [13:37:22.757]             base::close(...future.stdout)
  [13:37:22.757]         }, add = TRUE)
  [13:37:22.757]     }
  [13:37:22.757]     ...future.frame <- base::sys.nframe()
  [13:37:22.757]     ...future.conditions <- base::list()
  [13:37:22.757]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.757]     ...future.result <- base::tryCatch({
  [13:37:22.757]         base::withCallingHandlers({
  [13:37:22.757]             ...future.value <- base::withVisible(base::local({
  [13:37:22.757]                 doFuture::registerDoFuture()
  [13:37:22.757]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.757]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.757]                   j <- NULL
  [13:37:22.757]                   ...future.env <- environment()
  [13:37:22.757]                   local({
  [13:37:22.757]                     for (name in names(...future.x_jj)) {
  [13:37:22.757]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.757]                         inherits = FALSE)
  [13:37:22.757]                     }
  [13:37:22.757]                   })
  [13:37:22.757]                   tryCatch({
  [13:37:22.757]                     j
  [13:37:22.757]                   }, error = identity)
  [13:37:22.757]                 })
  [13:37:22.757]             }))
  [13:37:22.757]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.757]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.757]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.757]                 version = "1.8")
  [13:37:22.757]         }, condition = base::local({
  [13:37:22.757]             c <- base::c
  [13:37:22.757]             inherits <- base::inherits
  [13:37:22.757]             invokeRestart <- base::invokeRestart
  [13:37:22.757]             length <- base::length
  [13:37:22.757]             list <- base::list
  [13:37:22.757]             seq.int <- base::seq.int
  [13:37:22.757]             signalCondition <- base::signalCondition
  [13:37:22.757]             sys.calls <- base::sys.calls
  [13:37:22.757]             Sys.time <- base::Sys.time
  [13:37:22.757]             `[[` <- base::`[[`
  [13:37:22.757]             `+` <- base::`+`
  [13:37:22.757]             `<<-` <- base::`<<-`
  [13:37:22.757]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.757]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.757]                   3L)]
  [13:37:22.757]             }
  [13:37:22.757]             function(cond) {
  [13:37:22.757]                 if (inherits(cond, "error")) {
  [13:37:22.757]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.757]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.757]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.757]                   signalCondition(cond)
  [13:37:22.757]                 }
  [13:37:22.757]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.757]                 ))) {
  [13:37:22.757]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.757]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.757]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.757]                   if (!signal) {
  [13:37:22.757]                     muffleCondition <- function (cond) 
  [13:37:22.757]                     {
  [13:37:22.757]                       inherits <- base::inherits
  [13:37:22.757]                       invokeRestart <- base::invokeRestart
  [13:37:22.757]                       muffled <- FALSE
  [13:37:22.757]                       if (inherits(cond, "message")) {
  [13:37:22.757]                         invokeRestart("muffleMessage")
  [13:37:22.757]                         muffled <- TRUE
  [13:37:22.757]                       }
  [13:37:22.757]                       else if (inherits(cond, "warning")) {
  [13:37:22.757]                         invokeRestart("muffleWarning")
  [13:37:22.757]                         muffled <- TRUE
  [13:37:22.757]                       }
  [13:37:22.757]                       else if (inherits(cond, "condition")) {
  [13:37:22.757]                         computeRestarts <- base::computeRestarts
  [13:37:22.757]                         grepl <- base::grepl
  [13:37:22.757]                         is.null <- base::is.null
  [13:37:22.757]                         restarts <- computeRestarts(cond)
  [13:37:22.757]                         for (restart in restarts) {
  [13:37:22.757]                           name <- restart$name
  [13:37:22.757]                           if (is.null(name)) 
  [13:37:22.757]                             next
  [13:37:22.757]                           if (!grepl("^muffle", name)) 
  [13:37:22.757]                             next
  [13:37:22.757]                           invokeRestart(restart)
  [13:37:22.757]                           muffled <- TRUE
  [13:37:22.757]                           break
  [13:37:22.757]                         }
  [13:37:22.757]                       }
  [13:37:22.757]                       invisible(muffled)
  [13:37:22.757]                     }
  [13:37:22.757]                     muffleCondition(cond)
  [13:37:22.757]                   }
  [13:37:22.757]                 }
  [13:37:22.757]             }
  [13:37:22.757]         }))
  [13:37:22.757]     }, error = function(ex) {
  [13:37:22.757]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.757]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.757]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.757]     }, finally = {
  [13:37:22.757]         {
  [13:37:22.757]             NULL
  [13:37:22.757]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:37:22.757]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.757]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.757]                 label = NULL, ...) 
  [13:37:22.757]             {
  [13:37:22.757]                 if (substitute) 
  [13:37:22.757]                   expr <- substitute(expr)
  [13:37:22.757]                 local <- as.logical(local)
  [13:37:22.757]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.757]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.757]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.757]                   label = label, ...)
  [13:37:22.757]                 if (!future$lazy) 
  [13:37:22.757]                   future <- run(future)
  [13:37:22.757]                 invisible(future)
  [13:37:22.757]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.757]         }
  [13:37:22.757]         base::options(...future.oldOptions)
  [13:37:22.757]     })
  [13:37:22.757]     Sys.time
  [13:37:22.757]     if (base::is.na(TRUE)) {
  [13:37:22.757]     }
  [13:37:22.757]     else {
  [13:37:22.757]         base::sink(type = "output", split = FALSE)
  [13:37:22.757]         if (TRUE) {
  [13:37:22.757]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.757]         }
  [13:37:22.757]         else {
  [13:37:22.757]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.757]         }
  [13:37:22.757]         base::close(...future.stdout)
  [13:37:22.757]         ...future.stdout <- NULL
  [13:37:22.757]     }
  [13:37:22.757]     ...future.result$conditions <- ...future.conditions
  [13:37:22.757]     ...future.result
  [13:37:22.757] }
  [13:37:22.765] plan(): Setting new future strategy stack:
  [13:37:22.765] List of future strategies:
  [13:37:22.765] 1. sequential:
  [13:37:22.765]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.765]    - tweaked: FALSE
  [13:37:22.765]    - call: NULL
  [13:37:22.766] plan(): nbrOfWorkers() = 1
  [13:37:22.768] plan(): Setting new future strategy stack:
  [13:37:22.768] List of future strategies:
  [13:37:22.768] 1. sequential:
  [13:37:22.768]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.768]    - tweaked: FALSE
  [13:37:22.768]    - call: future::plan(future::sequential)
  [13:37:22.769] plan(): nbrOfWorkers() = 1
  [13:37:22.769] SequentialFuture started (and completed)
  [13:37:22.771] Chunk #1 of 1 ... DONE
  [13:37:22.771] Launching 1 futures (chunks) ... DONE
  [13:37:22.771] - resolving futures
  [13:37:22.772]   - gathering results & relaying conditions (except errors)
  [13:37:22.772] resolve() on list ...
  [13:37:22.773]  recursive: 0
  [13:37:22.773]  length: 1
  [13:37:22.774] 
  [13:37:22.774] Future #1
  [13:37:22.775] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.775] - nx: 1
  [13:37:22.776] - relay: TRUE
  [13:37:22.776] - stdout: TRUE
  [13:37:22.776] - signal: TRUE
  [13:37:22.777] - resignal: FALSE
  [13:37:22.777] - force: FALSE
  [13:37:22.777] - relayed: [n=1] FALSE
  [13:37:22.778] - queued futures: [n=1] FALSE
  [13:37:22.778]  - until=1
  [13:37:22.778]  - relaying element #1
  [13:37:22.779] - relayed: [n=1] TRUE
  [13:37:22.779] - queued futures: [n=1] TRUE
  [13:37:22.779] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:22.780]  length: 0 (resolved future 1)
  [13:37:22.780] Relaying remaining futures
  [13:37:22.780] signalConditionsASAP(NULL, pos=0) ...
  [13:37:22.781] - nx: 1
  [13:37:22.781] - relay: TRUE
  [13:37:22.781] - stdout: TRUE
  [13:37:22.782] - signal: TRUE
  [13:37:22.782] - resignal: FALSE
  [13:37:22.782] - force: FALSE
  [13:37:22.782] - relayed: [n=1] TRUE
  [13:37:22.783] - queued futures: [n=1] TRUE
   - flush all
  [13:37:22.783] - relayed: [n=1] TRUE
  [13:37:22.784] - queued futures: [n=1] TRUE
  [13:37:22.784] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:22.784] resolve() on list ... DONE
  [13:37:22.784] - collecting values of futures
  [13:37:22.785] - accumulating results
  [13:37:22.787] - processing errors (handler = 'stop')
  [13:37:22.788] - extracting results
  [13:37:22.788] doFuture() ... DONE
  > str(x)
  List of 1
   $ : num 1
  > rm(list = "x")
  > 
  > ## ... but this would give a "globals-not-found" error in
  > ## doFuture (<= 0.4.0) because 'j' was interpreted as global variable
  > x <- foreach(i = 1, .packages = "foreach") %dopar% {
  +   foreach(j = 1) %dopar% { j }
  + }
  [13:37:22.795] doFuture() ...
  [13:37:22.796] - dummy globals (as locals): [1] 'i'
  [13:37:22.797] - R expression:
  [13:37:22.798] {
  [13:37:22.798]     doFuture::registerDoFuture()
  [13:37:22.798]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.798]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.798]         i <- NULL
  [13:37:22.798]         ...future.env <- environment()
  [13:37:22.798]         local({
  [13:37:22.798]             for (name in names(...future.x_jj)) {
  [13:37:22.798]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.798]                   inherits = FALSE)
  [13:37:22.798]             }
  [13:37:22.798]         })
  [13:37:22.798]         tryCatch({
  [13:37:22.798]             foreach(j = 1) %dopar% {
  [13:37:22.798]                 j
  [13:37:22.798]             }
  [13:37:22.798]         }, error = identity)
  [13:37:22.798]     })
  [13:37:22.798] }
  [13:37:22.798] - identifying globals and packages ...
  [13:37:22.799] getGlobalsAndPackages() ...
  [13:37:22.799] Searching for globals...
  [13:37:22.813] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [13:37:22.814] Searching for globals ... DONE
  [13:37:22.814] Resolving globals: FALSE
  [13:37:22.816] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.816] - globals: [1] '...future.x_ii'
  [13:37:22.817] - packages: [1] 'foreach'
  [13:37:22.817] getGlobalsAndPackages() ... DONE
  [13:37:22.817] List of 1
  [13:37:22.817]  $ ...future.x_ii: NULL
  [13:37:22.817]  - attr(*, "where")=List of 1
  [13:37:22.817]   ..$ ...future.x_ii:<environment: 0x561c1a9501a0> 
  [13:37:22.817]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.817]  - attr(*, "resolved")= logi FALSE
  [13:37:22.817]  - attr(*, "total_size")= num 0
  [13:37:22.824]   - R expression:
  [13:37:22.824] {
  [13:37:22.824]     doFuture::registerDoFuture()
  [13:37:22.824]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.824]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.824]         i <- NULL
  [13:37:22.824]         ...future.env <- environment()
  [13:37:22.824]         local({
  [13:37:22.824]             for (name in names(...future.x_jj)) {
  [13:37:22.824]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.824]                   inherits = FALSE)
  [13:37:22.824]             }
  [13:37:22.824]         })
  [13:37:22.824]         tryCatch({
  [13:37:22.824]             foreach(j = 1) %dopar% {
  [13:37:22.824]                 j
  [13:37:22.824]             }
  [13:37:22.824]         }, error = identity)
  [13:37:22.824]     })
  [13:37:22.824] }
  [13:37:22.825]   - globals: [1] '...future.x_ii'
  [13:37:22.825] List of 1
  [13:37:22.825]  $ ...future.x_ii: NULL
  [13:37:22.825]  - attr(*, "where")=List of 1
  [13:37:22.825]   ..$ ...future.x_ii:<environment: 0x561c1a9501a0> 
  [13:37:22.825]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.825]  - attr(*, "resolved")= logi FALSE
  [13:37:22.825]  - attr(*, "total_size")= num 0
  [13:37:22.831]   - packages: [2] 'doFuture', 'foreach'
  [13:37:22.831] - identifying globals and packages ... DONE
  [13:37:22.832] Number of chunks: 1
  [13:37:22.832] Number of futures (= number of chunks): 1
  [13:37:22.833] Launching 1 futures (chunks) ...
  [13:37:22.833] Chunk #1 of 1 ...
  [13:37:22.833]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.834] getGlobalsAndPackages() ...
  [13:37:22.834] Searching for globals...
  [13:37:22.835] 
  [13:37:22.835] Searching for globals ... DONE
  [13:37:22.835] - globals: [0] <none>
  [13:37:22.836] getGlobalsAndPackages() ... DONE
  [13:37:22.836] 
  [13:37:22.836] 
  [13:37:22.837]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.837] getGlobalsAndPackages() ...
  [13:37:22.837] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.838] Resolving globals: FALSE
  [13:37:22.839] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:37:22.839] - globals: [1] '...future.x_ii'
  [13:37:22.839] 
  [13:37:22.840] getGlobalsAndPackages() ... DONE
  [13:37:22.842] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [13:37:22.843] Packages needed by future strategies (n = 0): <none>
  [13:37:22.848] {
  [13:37:22.848]     {
  [13:37:22.848]         ...future.startTime <- base::Sys.time()
  [13:37:22.848]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.848]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.848]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:22.848]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.848]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.848]         {
  [13:37:22.848]             {
  [13:37:22.848]                 {
  [13:37:22.848]                   has_future <- base::requireNamespace("future", 
  [13:37:22.848]                     quietly = TRUE)
  [13:37:22.848]                   version <- if (has_future) 
  [13:37:22.848]                     utils::packageVersion("future")
  [13:37:22.848]                   else NULL
  [13:37:22.848]                   if (!has_future || version < "1.8.0") {
  [13:37:22.848]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.848]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.848]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.848]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.848]                         "release", "version")], collapse = " "), 
  [13:37:22.848]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.848]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.848]                       info)
  [13:37:22.848]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.848]                     if (!has_future) {
  [13:37:22.848]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.848]                         info)
  [13:37:22.848]                     }
  [13:37:22.848]                     else {
  [13:37:22.848]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.848]                         info, version)
  [13:37:22.848]                     }
  [13:37:22.848]                     base::stop(msg)
  [13:37:22.848]                   }
  [13:37:22.848]                 }
  [13:37:22.848]                 base::local({
  [13:37:22.848]                   for (pkg in c("doFuture", "foreach")) {
  [13:37:22.848]                     base::loadNamespace(pkg)
  [13:37:22.848]                     base::library(pkg, character.only = TRUE)
  [13:37:22.848]                   }
  [13:37:22.848]                 })
  [13:37:22.848]             }
  [13:37:22.848]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:22.848]         }
  [13:37:22.848]     }
  [13:37:22.848]     if (base::is.na(TRUE)) {
  [13:37:22.848]     }
  [13:37:22.848]     else {
  [13:37:22.848]         if (TRUE) {
  [13:37:22.848]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.848]                 open = "w")
  [13:37:22.848]         }
  [13:37:22.848]         else {
  [13:37:22.848]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.848]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.848]         }
  [13:37:22.848]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.848]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.848]             base::sink(type = "output", split = FALSE)
  [13:37:22.848]             base::close(...future.stdout)
  [13:37:22.848]         }, add = TRUE)
  [13:37:22.848]     }
  [13:37:22.848]     ...future.frame <- base::sys.nframe()
  [13:37:22.848]     ...future.conditions <- base::list()
  [13:37:22.848]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.848]     ...future.result <- base::tryCatch({
  [13:37:22.848]         base::withCallingHandlers({
  [13:37:22.848]             ...future.value <- base::withVisible(base::local({
  [13:37:22.848]                 doFuture::registerDoFuture()
  [13:37:22.848]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.848]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.848]                   i <- NULL
  [13:37:22.848]                   ...future.env <- environment()
  [13:37:22.848]                   local({
  [13:37:22.848]                     for (name in names(...future.x_jj)) {
  [13:37:22.848]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.848]                         inherits = FALSE)
  [13:37:22.848]                     }
  [13:37:22.848]                   })
  [13:37:22.848]                   tryCatch({
  [13:37:22.848]                     foreach(j = 1) %dopar% {
  [13:37:22.848]                       j
  [13:37:22.848]                     }
  [13:37:22.848]                   }, error = identity)
  [13:37:22.848]                 })
  [13:37:22.848]             }))
  [13:37:22.848]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.848]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.848]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.848]                 version = "1.8")
  [13:37:22.848]         }, condition = base::local({
  [13:37:22.848]             c <- base::c
  [13:37:22.848]             inherits <- base::inherits
  [13:37:22.848]             invokeRestart <- base::invokeRestart
  [13:37:22.848]             length <- base::length
  [13:37:22.848]             list <- base::list
  [13:37:22.848]             seq.int <- base::seq.int
  [13:37:22.848]             signalCondition <- base::signalCondition
  [13:37:22.848]             sys.calls <- base::sys.calls
  [13:37:22.848]             Sys.time <- base::Sys.time
  [13:37:22.848]             `[[` <- base::`[[`
  [13:37:22.848]             `+` <- base::`+`
  [13:37:22.848]             `<<-` <- base::`<<-`
  [13:37:22.848]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.848]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.848]                   3L)]
  [13:37:22.848]             }
  [13:37:22.848]             function(cond) {
  [13:37:22.848]                 if (inherits(cond, "error")) {
  [13:37:22.848]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.848]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.848]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.848]                   signalCondition(cond)
  [13:37:22.848]                 }
  [13:37:22.848]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.848]                 ))) {
  [13:37:22.848]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.848]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.848]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.848]                   if (!signal) {
  [13:37:22.848]                     muffleCondition <- function (cond) 
  [13:37:22.848]                     {
  [13:37:22.848]                       inherits <- base::inherits
  [13:37:22.848]                       invokeRestart <- base::invokeRestart
  [13:37:22.848]                       muffled <- FALSE
  [13:37:22.848]                       if (inherits(cond, "message")) {
  [13:37:22.848]                         invokeRestart("muffleMessage")
  [13:37:22.848]                         muffled <- TRUE
  [13:37:22.848]                       }
  [13:37:22.848]                       else if (inherits(cond, "warning")) {
  [13:37:22.848]                         invokeRestart("muffleWarning")
  [13:37:22.848]                         muffled <- TRUE
  [13:37:22.848]                       }
  [13:37:22.848]                       else if (inherits(cond, "condition")) {
  [13:37:22.848]                         computeRestarts <- base::computeRestarts
  [13:37:22.848]                         grepl <- base::grepl
  [13:37:22.848]                         is.null <- base::is.null
  [13:37:22.848]                         restarts <- computeRestarts(cond)
  [13:37:22.848]                         for (restart in restarts) {
  [13:37:22.848]                           name <- restart$name
  [13:37:22.848]                           if (is.null(name)) 
  [13:37:22.848]                             next
  [13:37:22.848]                           if (!grepl("^muffle", name)) 
  [13:37:22.848]                             next
  [13:37:22.848]                           invokeRestart(restart)
  [13:37:22.848]                           muffled <- TRUE
  [13:37:22.848]                           break
  [13:37:22.848]                         }
  [13:37:22.848]                       }
  [13:37:22.848]                       invisible(muffled)
  [13:37:22.848]                     }
  [13:37:22.848]                     muffleCondition(cond)
  [13:37:22.848]                   }
  [13:37:22.848]                 }
  [13:37:22.848]             }
  [13:37:22.848]         }))
  [13:37:22.848]     }, error = function(ex) {
  [13:37:22.848]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.848]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.848]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.848]     }, finally = {
  [13:37:22.848]         {
  [13:37:22.848]             NULL
  [13:37:22.848]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:37:22.848]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.848]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.848]                 label = NULL, ...) 
  [13:37:22.848]             {
  [13:37:22.848]                 if (substitute) 
  [13:37:22.848]                   expr <- substitute(expr)
  [13:37:22.848]                 local <- as.logical(local)
  [13:37:22.848]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.848]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.848]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.848]                   label = label, ...)
  [13:37:22.848]                 if (!future$lazy) 
  [13:37:22.848]                   future <- run(future)
  [13:37:22.848]                 invisible(future)
  [13:37:22.848]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.848]         }
  [13:37:22.848]         base::options(...future.oldOptions)
  [13:37:22.848]     })
  [13:37:22.848]     Sys.time
  [13:37:22.848]     if (base::is.na(TRUE)) {
  [13:37:22.848]     }
  [13:37:22.848]     else {
  [13:37:22.848]         base::sink(type = "output", split = FALSE)
  [13:37:22.848]         if (TRUE) {
  [13:37:22.848]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.848]         }
  [13:37:22.848]         else {
  [13:37:22.848]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.848]         }
  [13:37:22.848]         base::close(...future.stdout)
  [13:37:22.848]         ...future.stdout <- NULL
  [13:37:22.848]     }
  [13:37:22.848]     ...future.result$conditions <- ...future.conditions
  [13:37:22.848]     ...future.result
  [13:37:22.848] }
  [13:37:22.854] plan(): Setting new future strategy stack:
  [13:37:22.855] List of future strategies:
  [13:37:22.855] 1. sequential:
  [13:37:22.855]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.855]    - tweaked: FALSE
  [13:37:22.855]    - call: NULL
  [13:37:22.856] plan(): nbrOfWorkers() = 1
  [13:37:22.960] plan(): Setting new future strategy stack:
  [13:37:22.960] List of future strategies:
  [13:37:22.960] 1. sequential:
  [13:37:22.960]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.960]    - tweaked: FALSE
  [13:37:22.960]    - call: future::plan(future::sequential)
  [13:37:22.961] plan(): nbrOfWorkers() = 1
  [13:37:22.962] SequentialFuture started (and completed)
  [13:37:22.962] signalConditions() ...
  [13:37:22.963]  - include = 'immediateCondition'
  [13:37:22.963]  - exclude = 
  [13:37:22.963]  - resignal = FALSE
  [13:37:22.963]  - Number of conditions: 96
  [13:37:22.964] signalConditions() ... done
  [13:37:22.965] Chunk #1 of 1 ... DONE
  [13:37:22.965] Launching 1 futures (chunks) ... DONE
  [13:37:22.965] - resolving futures
  [13:37:22.965]   - gathering results & relaying conditions (except errors)
  [13:37:22.966] resolve() on list ...
  [13:37:22.966]  recursive: 0
  [13:37:22.966]  length: 1
  [13:37:22.966] 
  [13:37:22.967] Future #1
  [13:37:22.967] signalConditions() ...
  [13:37:22.967]  - include = 'immediateCondition'
  [13:37:22.968]  - exclude = 
  [13:37:22.968]  - resignal = FALSE
  [13:37:22.968]  - Number of conditions: 96
  [13:37:22.969] signalConditions() ... done
  [13:37:22.969] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:22.969] - nx: 1
  [13:37:22.970] - relay: TRUE
  [13:37:22.970] - stdout: TRUE
  [13:37:22.970] - signal: TRUE
  [13:37:22.970] - resignal: FALSE
  [13:37:22.971] - force: FALSE
  [13:37:22.971] - relayed: [n=1] FALSE
  [13:37:22.971] - queued futures: [n=1] FALSE
  [13:37:22.971]  - until=1
  [13:37:22.972]  - relaying element #1
  [13:37:22.972] signalConditions() ...
  [13:37:22.972]  - include = 'immediateCondition'
  [13:37:22.973]  - exclude = 
  [13:37:22.973]  - resignal = FALSE
  [13:37:22.973]  - Number of conditions: 96
  [13:37:22.974] signalConditions() ... done
  [13:37:22.974] signalConditions() ...
  [13:37:22.975]  - include = 'immediateCondition'
  [13:37:22.975]  - exclude = 
  [13:37:22.975]  - resignal = FALSE
  [13:37:22.975]  - Number of conditions: 96
  [13:37:22.976] signalConditions() ... done
  [13:37:22.976] signalConditions() ...
  [13:37:22.977]  - include = 'condition'
  [13:37:22.977]  - exclude = 'immediateCondition'
  [13:37:22.977]  - resignal = FALSE
  [13:37:22.978]  - Number of conditions: 96
  [13:37:22.978]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:22.857] doFuture() ...
  [13:37:22.978]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:22.859] - dummy globals (as locals): [1] 'j'
  [13:37:22.979]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:22.860] - R expression:
  [13:37:22.979]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [13:37:22.861] {
  [13:37:22.861]     doFuture::registerDoFuture()
  [13:37:22.861]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.861]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.861]         j <- NULL
  [13:37:22.861]         ...future.env <- environment()
  [13:37:22.861]         local({
  [13:37:22.861]             for (name in names(...future.x_jj)) {
  [13:37:22.861]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.861]                   inherits = FALSE)
  [13:37:22.861]             }
  [13:37:22.861]         })
  [13:37:22.861]         tryCatch({
  [13:37:22.861]             j
  [13:37:22.861]         }, error = identity)
  [13:37:22.861]     })
  [13:37:22.861] }
  [13:37:22.980]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [13:37:22.861] - identifying globals and packages ...
  [13:37:22.980]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [13:37:22.862] getGlobalsAndPackages() ...
  [13:37:22.980]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [13:37:22.863] Searching for globals...
  [13:37:22.981]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [13:37:22.880] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [13:37:22.981]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [13:37:22.880] Searching for globals ... DONE
  [13:37:22.982]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [13:37:22.881] Resolving globals: FALSE
  [13:37:22.982]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [13:37:22.882] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:37:22.982]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [13:37:22.883] - globals: [1] '...future.x_ii'
  [13:37:22.983]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [13:37:22.883] 
  [13:37:22.983]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [13:37:22.884] getGlobalsAndPackages() ... DONE
  [13:37:22.984]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [13:37:22.884] List of 1
  [13:37:22.884]  $ ...future.x_ii: NULL
  [13:37:22.884]  - attr(*, "where")=List of 1
  [13:37:22.884]   ..$ ...future.x_ii:<environment: 0x561c1c28beb0> 
  [13:37:22.884]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.884]  - attr(*, "resolved")= logi FALSE
  [13:37:22.884]  - attr(*, "total_size")= num 0
  [13:37:22.984]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [13:37:22.890]   - R expression:
  [13:37:22.985]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [13:37:22.891] {
  [13:37:22.891]     doFuture::registerDoFuture()
  [13:37:22.891]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.891]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.891]         j <- NULL
  [13:37:22.891]         ...future.env <- environment()
  [13:37:22.891]         local({
  [13:37:22.891]             for (name in names(...future.x_jj)) {
  [13:37:22.891]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.891]                   inherits = FALSE)
  [13:37:22.891]             }
  [13:37:22.891]         })
  [13:37:22.891]         tryCatch({
  [13:37:22.891]             j
  [13:37:22.891]         }, error = identity)
  [13:37:22.891]     })
  [13:37:22.891] }
  [13:37:22.985]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [13:37:22.892]   - globals: [1] '...future.x_ii'
  [13:37:22.985]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [13:37:22.892] List of 1
  [13:37:22.892]  $ ...future.x_ii: NULL
  [13:37:22.892]  - attr(*, "where")=List of 1
  [13:37:22.892]   ..$ ...future.x_ii:<environment: 0x561c1c28beb0> 
  [13:37:22.892]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:22.892]  - attr(*, "resolved")= logi FALSE
  [13:37:22.892]  - attr(*, "total_size")= num 0
  [13:37:22.986]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [13:37:22.899]   - packages: [1] 'doFuture'
  [13:37:22.986]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [13:37:22.899] - identifying globals and packages ... DONE
  [13:37:22.987]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [13:37:22.900] Number of chunks: 1
  [13:37:22.987]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [13:37:22.900] Number of futures (= number of chunks): 1
  [13:37:22.987]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [13:37:22.901] Launching 1 futures (chunks) ...
  [13:37:22.988]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [13:37:22.902] Chunk #1 of 1 ...
  [13:37:22.988]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [13:37:22.902]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:22.989]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [13:37:22.903] getGlobalsAndPackages() ...
  [13:37:22.989]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [13:37:22.903] Searching for globals...
  [13:37:22.989]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [13:37:22.904] 
  [13:37:22.990]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [13:37:22.905] Searching for globals ... DONE
  [13:37:22.990]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [13:37:22.905] - globals: [0] <none>
  [13:37:22.991]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [13:37:22.906] getGlobalsAndPackages() ... DONE
  [13:37:22.991]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [13:37:22.906] 
  [13:37:22.991]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [13:37:22.907] 
  [13:37:22.992]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [13:37:22.907]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:22.992]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [13:37:22.908] getGlobalsAndPackages() ...
  [13:37:22.993]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [13:37:22.908] - globals passed as-is: [1] '...future.x_ii'
  [13:37:22.993]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [13:37:22.909] Resolving globals: FALSE
  [13:37:22.993]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [13:37:22.910] The total size of the 1 globals is 56 bytes (56 bytes)
  [13:37:22.994]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [13:37:22.910] - globals: [1] '...future.x_ii'
  [13:37:22.994]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [13:37:22.911] 
  [13:37:22.995]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [13:37:22.911] getGlobalsAndPackages() ... DONE
  [13:37:22.995]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [13:37:22.914] Packages needed by the future expression (n = 1): 'doFuture'
  [13:37:22.996]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [13:37:22.915] Packages needed by future strategies (n = 0): <none>
  [13:37:22.996]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [13:37:22.921] {
  [13:37:22.921]     {
  [13:37:22.921]         ...future.startTime <- base::Sys.time()
  [13:37:22.921]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:22.921]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:22.921]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:22.921]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:22.921]             future.resolve.recursive = NULL, width = 80L)
  [13:37:22.921]         {
  [13:37:22.921]             {
  [13:37:22.921]                 {
  [13:37:22.921]                   has_future <- base::requireNamespace("future", 
  [13:37:22.921]                     quietly = TRUE)
  [13:37:22.921]                   version <- if (has_future) 
  [13:37:22.921]                     utils::packageVersion("future")
  [13:37:22.921]                   else NULL
  [13:37:22.921]                   if (!has_future || version < "1.8.0") {
  [13:37:22.921]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:22.921]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:22.921]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:22.921]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:22.921]                         "release", "version")], collapse = " "), 
  [13:37:22.921]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:22.921]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:22.921]                       info)
  [13:37:22.921]                     info <- base::paste(info, collapse = "; ")
  [13:37:22.921]                     if (!has_future) {
  [13:37:22.921]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:22.921]                         info)
  [13:37:22.921]                     }
  [13:37:22.921]                     else {
  [13:37:22.921]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:22.921]                         info, version)
  [13:37:22.921]                     }
  [13:37:22.921]                     base::stop(msg)
  [13:37:22.921]                   }
  [13:37:22.921]                 }
  [13:37:22.921]                 base::local({
  [13:37:22.921]                   for (pkg in "doFuture") {
  [13:37:22.921]                     base::loadNamespace(pkg)
  [13:37:22.921]                     base::library(pkg, character.only = TRUE)
  [13:37:22.921]                   }
  [13:37:22.921]                 })
  [13:37:22.921]             }
  [13:37:22.921]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:22.921]         }
  [13:37:22.921]     }
  [13:37:22.921]     if (base::is.na(TRUE)) {
  [13:37:22.921]     }
  [13:37:22.921]     else {
  [13:37:22.921]         if (TRUE) {
  [13:37:22.921]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:22.921]                 open = "w")
  [13:37:22.921]         }
  [13:37:22.921]         else {
  [13:37:22.921]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:22.921]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:22.921]         }
  [13:37:22.921]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:22.921]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:22.921]             base::sink(type = "output", split = FALSE)
  [13:37:22.921]             base::close(...future.stdout)
  [13:37:22.921]         }, add = TRUE)
  [13:37:22.921]     }
  [13:37:22.921]     ...future.frame <- base::sys.nframe()
  [13:37:22.921]     ...future.conditions <- base::list()
  [13:37:22.921]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:22.921]     ...future.result <- base::tryCatch({
  [13:37:22.921]         base::withCallingHandlers({
  [13:37:22.921]             ...future.value <- base::withVisible(base::local({
  [13:37:22.921]                 doFuture::registerDoFuture()
  [13:37:22.921]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:22.921]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:22.921]                   j <- NULL
  [13:37:22.921]                   ...future.env <- environment()
  [13:37:22.921]                   local({
  [13:37:22.921]                     for (name in names(...future.x_jj)) {
  [13:37:22.921]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:22.921]                         inherits = FALSE)
  [13:37:22.921]                     }
  [13:37:22.921]                   })
  [13:37:22.921]                   tryCatch({
  [13:37:22.921]                     j
  [13:37:22.921]                   }, error = identity)
  [13:37:22.921]                 })
  [13:37:22.921]             }))
  [13:37:22.921]             future::FutureResult(value = ...future.value$value, 
  [13:37:22.921]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.921]                   ...future.rng), started = ...future.startTime, 
  [13:37:22.921]                 version = "1.8")
  [13:37:22.921]         }, condition = base::local({
  [13:37:22.921]             c <- base::c
  [13:37:22.921]             inherits <- base::inherits
  [13:37:22.921]             invokeRestart <- base::invokeRestart
  [13:37:22.921]             length <- base::length
  [13:37:22.921]             list <- base::list
  [13:37:22.921]             seq.int <- base::seq.int
  [13:37:22.921]             signalCondition <- base::signalCondition
  [13:37:22.921]             sys.calls <- base::sys.calls
  [13:37:22.921]             Sys.time <- base::Sys.time
  [13:37:22.921]             `[[` <- base::`[[`
  [13:37:22.921]             `+` <- base::`+`
  [13:37:22.921]             `<<-` <- base::`<<-`
  [13:37:22.921]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:22.921]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:22.921]                   3L)]
  [13:37:22.921]             }
  [13:37:22.921]             function(cond) {
  [13:37:22.921]                 if (inherits(cond, "error")) {
  [13:37:22.921]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.921]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:22.921]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:22.921]                   signalCondition(cond)
  [13:37:22.921]                 }
  [13:37:22.921]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:22.921]                 ))) {
  [13:37:22.921]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:22.921]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:22.921]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:22.921]                   if (!signal) {
  [13:37:22.921]                     muffleCondition <- function (cond) 
  [13:37:22.921]                     {
  [13:37:22.921]                       inherits <- base::inherits
  [13:37:22.921]                       invokeRestart <- base::invokeRestart
  [13:37:22.921]                       muffled <- FALSE
  [13:37:22.921]                       if (inherits(cond, "message")) {
  [13:37:22.921]                         invokeRestart("muffleMessage")
  [13:37:22.921]                         muffled <- TRUE
  [13:37:22.921]                       }
  [13:37:22.921]                       else if (inherits(cond, "warning")) {
  [13:37:22.921]                         invokeRestart("muffleWarning")
  [13:37:22.921]                         muffled <- TRUE
  [13:37:22.921]                       }
  [13:37:22.921]                       else if (inherits(cond, "condition")) {
  [13:37:22.921]                         computeRestarts <- base::computeRestarts
  [13:37:22.921]                         grepl <- base::grepl
  [13:37:22.921]                         is.null <- base::is.null
  [13:37:22.921]                         restarts <- computeRestarts(cond)
  [13:37:22.921]                         for (restart in restarts) {
  [13:37:22.921]                           name <- restart$name
  [13:37:22.921]                           if (is.null(name)) 
  [13:37:22.921]                             next
  [13:37:22.921]                           if (!grepl("^muffle", name)) 
  [13:37:22.921]                             next
  [13:37:22.921]                           invokeRestart(restart)
  [13:37:22.921]                           muffled <- TRUE
  [13:37:22.921]                           break
  [13:37:22.921]                         }
  [13:37:22.921]                       }
  [13:37:22.921]                       invisible(muffled)
  [13:37:22.921]                     }
  [13:37:22.921]                     muffleCondition(cond)
  [13:37:22.921]                   }
  [13:37:22.921]                 }
  [13:37:22.921]             }
  [13:37:22.921]         }))
  [13:37:22.921]     }, error = function(ex) {
  [13:37:22.921]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:22.921]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:22.921]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:22.921]     }, finally = {
  [13:37:22.921]         {
  [13:37:22.921]             NULL
  [13:37:22.921]             future::plan(list(function (expr, envir = parent.frame(), 
  [13:37:22.921]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:22.921]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:22.921]                 label = NULL, ...) 
  [13:37:22.921]             {
  [13:37:22.921]                 if (substitute) 
  [13:37:22.921]                   expr <- substitute(expr)
  [13:37:22.921]                 local <- as.logical(local)
  [13:37:22.921]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:22.921]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:22.921]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:22.921]                   label = label, ...)
  [13:37:22.921]                 if (!future$lazy) 
  [13:37:22.921]                   future <- run(future)
  [13:37:22.921]                 invisible(future)
  [13:37:22.921]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:22.921]         }
  [13:37:22.921]         base::options(...future.oldOptions)
  [13:37:22.921]     })
  [13:37:22.921]     Sys.time
  [13:37:22.921]     if (base::is.na(TRUE)) {
  [13:37:22.921]     }
  [13:37:22.921]     else {
  [13:37:22.921]         base::sink(type = "output", split = FALSE)
  [13:37:22.921]         if (TRUE) {
  [13:37:22.921]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:22.921]         }
  [13:37:22.921]         else {
  [13:37:22.921]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:22.921]         }
  [13:37:22.921]         base::close(...future.stdout)
  [13:37:22.921]         ...future.stdout <- NULL
  [13:37:22.921]     }
  [13:37:22.921]     ...future.result$conditions <- ...future.conditions
  [13:37:22.921]     ...future.result
  [13:37:22.921] }
  [13:37:22.996]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [13:37:22.927] plan(): Setting new future strategy stack:
  [13:37:22.997]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [13:37:22.927] List of future strategies:
  [13:37:22.927] 1. sequential:
  [13:37:22.927]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.927]    - tweaked: FALSE
  [13:37:22.927]    - call: NULL
  [13:37:22.997]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [13:37:22.929] plan(): nbrOfWorkers() = 1
  [13:37:22.998]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [13:37:22.930] plan(): Setting new future strategy stack:
  [13:37:22.998]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [13:37:22.931] List of future strategies:
  [13:37:22.931] 1. sequential:
  [13:37:22.931]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:22.931]    - tweaked: FALSE
  [13:37:22.931]    - call: NULL
  [13:37:22.998]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [13:37:22.932] plan(): nbrOfWorkers() = 1
  [13:37:22.999]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [13:37:22.933] SequentialFuture started (and completed)
  [13:37:22.999]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [13:37:22.933] Chunk #1 of 1 ... DONE
  [13:37:23.000]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [13:37:22.934] Launching 1 futures (chunks) ... DONE
  [13:37:23.000]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [13:37:22.934] - resolving futures
  [13:37:23.001]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [13:37:22.935]   - gathering results & relaying conditions (except errors)
  [13:37:23.001]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [13:37:22.935] resolve() on list ...
  [13:37:23.001]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [13:37:22.935]  recursive: 0
  [13:37:23.002]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [13:37:22.936]  length: 1
  [13:37:23.002]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [13:37:22.936] 
  [13:37:23.003]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [13:37:22.937] Future #1
  [13:37:23.003]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [13:37:22.937] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:23.004]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [13:37:22.939] - nx: 1
  [13:37:23.004]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [13:37:22.940] - relay: TRUE
  [13:37:23.004]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [13:37:22.940] - stdout: TRUE
  [13:37:23.005]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [13:37:22.941] - signal: TRUE
  [13:37:23.005]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [13:37:22.941] - resignal: FALSE
  [13:37:23.006]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [13:37:22.945] - force: FALSE
  [13:37:23.006]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [13:37:22.946] - relayed: [n=1] FALSE
  [13:37:23.006]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [13:37:22.946] - queued futures: [n=1] FALSE
  [13:37:23.007]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [13:37:22.947]  - until=1
  [13:37:23.007]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [13:37:22.947]  - relaying element #1
  [13:37:23.008]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [13:37:22.948] - relayed: [n=1] TRUE
  [13:37:23.008]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [13:37:22.949] - queued futures: [n=1] TRUE
  [13:37:23.009]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [13:37:22.949] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:23.009]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [13:37:22.950]  length: 0 (resolved future 1)
  [13:37:23.009]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [13:37:22.951] Relaying remaining futures
  [13:37:23.010]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [13:37:22.951] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.010]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [13:37:22.951] - nx: 1
  [13:37:23.011]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [13:37:22.952] - relay: TRUE
  [13:37:23.011]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [13:37:22.952] - stdout: TRUE
  [13:37:23.011]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [13:37:22.953] - signal: TRUE
  [13:37:23.012]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [13:37:22.953] - resignal: FALSE
  [13:37:23.012]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [13:37:22.953] - force: FALSE
  [13:37:23.013]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [13:37:22.954] - relayed: [n=1] TRUE
  [13:37:23.013]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [13:37:22.954] - queued futures: [n=1] TRUE
  [13:37:23.014]  - Condition #87: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:23.014]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [13:37:22.955] - relayed: [n=1] TRUE
  [13:37:23.014]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [13:37:22.955] - queued futures: [n=1] TRUE
  [13:37:23.015]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [13:37:22.956] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.015]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [13:37:22.956] resolve() on list ... DONE
  [13:37:23.016]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [13:37:22.957] - collecting values of futures
  [13:37:23.016]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [13:37:22.957] - accumulating results
  [13:37:23.017]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [13:37:22.958] - processing errors (handler = 'stop')
  [13:37:23.017]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [13:37:22.959] - extracting results
  [13:37:23.017]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [13:37:22.959] doFuture() ... DONE
  [13:37:23.022] signalConditions() ... done
  [13:37:23.022] - relayed: [n=1] TRUE
  [13:37:23.022] - queued futures: [n=1] TRUE
  [13:37:23.023] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:23.023]  length: 0 (resolved future 1)
  [13:37:23.023] Relaying remaining futures
  [13:37:23.023] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.024] - nx: 1
  [13:37:23.024] - relay: TRUE
  [13:37:23.024] - stdout: TRUE
  [13:37:23.025] - signal: TRUE
  [13:37:23.025] - resignal: FALSE
  [13:37:23.025] - force: FALSE
  [13:37:23.025] - relayed: [n=1] TRUE
  [13:37:23.026] - queued futures: [n=1] TRUE
   - flush all
  [13:37:23.026] - relayed: [n=1] TRUE
  [13:37:23.027] - queued futures: [n=1] TRUE
  [13:37:23.027] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.027] resolve() on list ... DONE
  [13:37:23.027] - collecting values of futures
  [13:37:23.028] signalConditions() ...
  [13:37:23.028]  - include = 'immediateCondition'
  [13:37:23.028]  - exclude = 
  [13:37:23.029]  - resignal = FALSE
  [13:37:23.029]  - Number of conditions: 96
  [13:37:23.030] signalConditions() ... done
  [13:37:23.030] - accumulating results
  [13:37:23.031] - processing errors (handler = 'stop')
  [13:37:23.031] - extracting results
  [13:37:23.031] 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')) ...
  [13:37:23.144] plan(): Setting new future strategy stack:
  [13:37:23.144] List of future strategies:
  [13:37:23.144] 1. sequential:
  [13:37:23.144]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.144]    - tweaked: FALSE
  [13:37:23.144]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.144] 2. sequential:
  [13:37:23.144]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.144]    - tweaked: FALSE
  [13:37:23.144]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.177] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:37:23.177] doFuture() ...
  [13:37:23.179] - dummy globals (as locals): [1] 'a'
  [13:37:23.179] - R expression:
  [13:37:23.180] {
  [13:37:23.180]     doFuture::registerDoFuture()
  [13:37:23.180]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.180]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.180]         a <- NULL
  [13:37:23.180]         ...future.env <- environment()
  [13:37:23.180]         local({
  [13:37:23.180]             for (name in names(...future.x_jj)) {
  [13:37:23.180]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.180]                   inherits = FALSE)
  [13:37:23.180]             }
  [13:37:23.180]         })
  [13:37:23.180]         tryCatch({
  [13:37:23.180]             plan_list <- future::plan("next")
  [13:37:23.180]             stopifnot(inherits(plan_list, strategy2))
  [13:37:23.180]             plan_a <- future::plan("list")
  [13:37:23.180]             str(plan_a)
  [13:37:23.180]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:23.180]             message("foreach() - level 2 ...")
  [13:37:23.180]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:23.180]                 {
  [13:37:23.180]                   plan_list <- future::plan("next")
  [13:37:23.180]                   message(capture.output(print(plan_list)))
  [13:37:23.180]                   stopifnot(inherits(plan_list, "future"))
  [13:37:23.180]                   default <- getOption("future.plan", "sequential")
  [13:37:23.180]                   if (is.function(default)) 
  [13:37:23.180]                     default <- class(default)
  [13:37:23.180]                   stopifnot(inherits(plan_list, default))
  [13:37:23.180]                   plan_b <- future::plan("list")
  [13:37:23.180]                   str(plan_b)
  [13:37:23.180]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:23.180]                     inherits(plan_b[[1]], default))
  [13:37:23.180]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.180]                 }
  [13:37:23.180]             message("foreach() - level 2 ... DONE")
  [13:37:23.180]             y
  [13:37:23.180]         }, error = identity)
  [13:37:23.180]     })
  [13:37:23.180] }
  [13:37:23.181] - identifying globals and packages ...
  [13:37:23.181] getGlobalsAndPackages() ...
  [13:37:23.181] Searching for globals...
  [13:37:23.219] - 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'
  [13:37:23.220] Searching for globals ... DONE
  [13:37:23.220] Resolving globals: FALSE
  [13:37:23.223] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:37:23.223] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:23.223] - packages: [2] 'utils', 'foreach'
  [13:37:23.224] getGlobalsAndPackages() ... DONE
  [13:37:23.224] List of 3
  [13:37:23.224]  $ ...future.x_ii: NULL
  [13:37:23.224]  $ strategy2     : chr "sequential"
  [13:37:23.224]  $ bs            : int [1:3] 3 2 1
  [13:37:23.224]  - attr(*, "where")=List of 3
  [13:37:23.224]   ..$ ...future.x_ii:<environment: 0x561c1aff0ca0> 
  [13:37:23.224]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:23.224]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:23.224]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.224]  - attr(*, "resolved")= logi FALSE
  [13:37:23.224]  - attr(*, "total_size")= num 184
  [13:37:23.234]   - R expression:
  [13:37:23.234] {
  [13:37:23.234]     doFuture::registerDoFuture()
  [13:37:23.234]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.234]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.234]         a <- NULL
  [13:37:23.234]         ...future.env <- environment()
  [13:37:23.234]         local({
  [13:37:23.234]             for (name in names(...future.x_jj)) {
  [13:37:23.234]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.234]                   inherits = FALSE)
  [13:37:23.234]             }
  [13:37:23.234]         })
  [13:37:23.234]         tryCatch({
  [13:37:23.234]             plan_list <- future::plan("next")
  [13:37:23.234]             stopifnot(inherits(plan_list, strategy2))
  [13:37:23.234]             plan_a <- future::plan("list")
  [13:37:23.234]             str(plan_a)
  [13:37:23.234]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:23.234]             message("foreach() - level 2 ...")
  [13:37:23.234]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:23.234]                 {
  [13:37:23.234]                   plan_list <- future::plan("next")
  [13:37:23.234]                   message(capture.output(print(plan_list)))
  [13:37:23.234]                   stopifnot(inherits(plan_list, "future"))
  [13:37:23.234]                   default <- getOption("future.plan", "sequential")
  [13:37:23.234]                   if (is.function(default)) 
  [13:37:23.234]                     default <- class(default)
  [13:37:23.234]                   stopifnot(inherits(plan_list, default))
  [13:37:23.234]                   plan_b <- future::plan("list")
  [13:37:23.234]                   str(plan_b)
  [13:37:23.234]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:23.234]                     inherits(plan_b[[1]], default))
  [13:37:23.234]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.234]                 }
  [13:37:23.234]             message("foreach() - level 2 ... DONE")
  [13:37:23.234]             y
  [13:37:23.234]         }, error = identity)
  [13:37:23.234]     })
  [13:37:23.234] }
  [13:37:23.235]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:23.236] List of 3
  [13:37:23.236]  $ ...future.x_ii: NULL
  [13:37:23.236]  $ strategy2     : chr "sequential"
  [13:37:23.236]  $ bs            : int [1:3] 3 2 1
  [13:37:23.236]  - attr(*, "where")=List of 3
  [13:37:23.236]   ..$ ...future.x_ii:<environment: 0x561c1aff0ca0> 
  [13:37:23.236]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:23.236]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:23.236]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.236]  - attr(*, "resolved")= logi FALSE
  [13:37:23.236]  - attr(*, "total_size")= num 184
  [13:37:23.246]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:37:23.246] - identifying globals and packages ... DONE
  [13:37:23.247] Number of chunks: 1
  [13:37:23.247] Number of futures (= number of chunks): 1
  [13:37:23.248] Launching 1 futures (chunks) ...
  [13:37:23.248] Chunk #1 of 1 ...
  [13:37:23.248]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.248] getGlobalsAndPackages() ...
  [13:37:23.249] Searching for globals...
  [13:37:23.250] 
  [13:37:23.250] Searching for globals ... DONE
  [13:37:23.250] - globals: [0] <none>
  [13:37:23.250] getGlobalsAndPackages() ... DONE
  [13:37:23.251] 
  [13:37:23.251] 
  [13:37:23.251]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.252] getGlobalsAndPackages() ...
  [13:37:23.252] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:23.252] Resolving globals: FALSE
  [13:37:23.253] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:37:23.254] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:23.254] 
  [13:37:23.254] getGlobalsAndPackages() ... DONE
  [13:37:23.256] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:37:23.257] Packages needed by future strategies (n = 1): 'future'
  [13:37:23.263] {
  [13:37:23.263]     {
  [13:37:23.263]         ...future.startTime <- base::Sys.time()
  [13:37:23.263]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.263]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.263]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.263]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.263]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.263]         {
  [13:37:23.263]             {
  [13:37:23.263]                 {
  [13:37:23.263]                   has_future <- base::requireNamespace("future", 
  [13:37:23.263]                     quietly = TRUE)
  [13:37:23.263]                   version <- if (has_future) 
  [13:37:23.263]                     utils::packageVersion("future")
  [13:37:23.263]                   else NULL
  [13:37:23.263]                   if (!has_future || version < "1.8.0") {
  [13:37:23.263]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.263]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.263]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.263]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.263]                         "release", "version")], collapse = " "), 
  [13:37:23.263]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:23.263]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.263]                       info)
  [13:37:23.263]                     info <- base::paste(info, collapse = "; ")
  [13:37:23.263]                     if (!has_future) {
  [13:37:23.263]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.263]                         info)
  [13:37:23.263]                     }
  [13:37:23.263]                     else {
  [13:37:23.263]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.263]                         info, version)
  [13:37:23.263]                     }
  [13:37:23.263]                     base::stop(msg)
  [13:37:23.263]                   }
  [13:37:23.263]                 }
  [13:37:23.263]                 base::local({
  [13:37:23.263]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:37:23.263]                   "future")) {
  [13:37:23.263]                     base::loadNamespace(pkg)
  [13:37:23.263]                     base::library(pkg, character.only = TRUE)
  [13:37:23.263]                   }
  [13:37:23.263]                 })
  [13:37:23.263]             }
  [13:37:23.263]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.263]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.263]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.263]                 label = NULL, ...) 
  [13:37:23.263]             {
  [13:37:23.263]                 if (substitute) 
  [13:37:23.263]                   expr <- substitute(expr)
  [13:37:23.263]                 local <- as.logical(local)
  [13:37:23.263]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.263]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.263]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.263]                   label = label, ...)
  [13:37:23.263]                 if (!future$lazy) 
  [13:37:23.263]                   future <- run(future)
  [13:37:23.263]                 invisible(future)
  [13:37:23.263]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.263]         }
  [13:37:23.263]     }
  [13:37:23.263]     if (base::is.na(TRUE)) {
  [13:37:23.263]     }
  [13:37:23.263]     else {
  [13:37:23.263]         if (TRUE) {
  [13:37:23.263]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.263]                 open = "w")
  [13:37:23.263]         }
  [13:37:23.263]         else {
  [13:37:23.263]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.263]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.263]         }
  [13:37:23.263]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.263]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.263]             base::sink(type = "output", split = FALSE)
  [13:37:23.263]             base::close(...future.stdout)
  [13:37:23.263]         }, add = TRUE)
  [13:37:23.263]     }
  [13:37:23.263]     ...future.frame <- base::sys.nframe()
  [13:37:23.263]     ...future.conditions <- base::list()
  [13:37:23.263]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.263]     ...future.result <- base::tryCatch({
  [13:37:23.263]         base::withCallingHandlers({
  [13:37:23.263]             ...future.value <- base::withVisible(base::local({
  [13:37:23.263]                 doFuture::registerDoFuture()
  [13:37:23.263]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.263]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.263]                   a <- NULL
  [13:37:23.263]                   ...future.env <- environment()
  [13:37:23.263]                   local({
  [13:37:23.263]                     for (name in names(...future.x_jj)) {
  [13:37:23.263]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.263]                         inherits = FALSE)
  [13:37:23.263]                     }
  [13:37:23.263]                   })
  [13:37:23.263]                   tryCatch({
  [13:37:23.263]                     plan_list <- future::plan("next")
  [13:37:23.263]                     stopifnot(inherits(plan_list, strategy2))
  [13:37:23.263]                     plan_a <- future::plan("list")
  [13:37:23.263]                     str(plan_a)
  [13:37:23.263]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:23.263]                     message("foreach() - level 2 ...")
  [13:37:23.263]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:23.263]                       {
  [13:37:23.263]                         plan_list <- future::plan("next")
  [13:37:23.263]                         message(capture.output(print(plan_list)))
  [13:37:23.263]                         stopifnot(inherits(plan_list, "future"))
  [13:37:23.263]                         default <- getOption("future.plan", "sequential")
  [13:37:23.263]                         if (is.function(default)) 
  [13:37:23.263]                           default <- class(default)
  [13:37:23.263]                         stopifnot(inherits(plan_list, default))
  [13:37:23.263]                         plan_b <- future::plan("list")
  [13:37:23.263]                         str(plan_b)
  [13:37:23.263]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:23.263]                           inherits(plan_b[[1]], default))
  [13:37:23.263]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.263]                       }
  [13:37:23.263]                     message("foreach() - level 2 ... DONE")
  [13:37:23.263]                     y
  [13:37:23.263]                   }, error = identity)
  [13:37:23.263]                 })
  [13:37:23.263]             }))
  [13:37:23.263]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.263]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.263]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.263]                 version = "1.8")
  [13:37:23.263]         }, condition = base::local({
  [13:37:23.263]             c <- base::c
  [13:37:23.263]             inherits <- base::inherits
  [13:37:23.263]             invokeRestart <- base::invokeRestart
  [13:37:23.263]             length <- base::length
  [13:37:23.263]             list <- base::list
  [13:37:23.263]             seq.int <- base::seq.int
  [13:37:23.263]             signalCondition <- base::signalCondition
  [13:37:23.263]             sys.calls <- base::sys.calls
  [13:37:23.263]             Sys.time <- base::Sys.time
  [13:37:23.263]             `[[` <- base::`[[`
  [13:37:23.263]             `+` <- base::`+`
  [13:37:23.263]             `<<-` <- base::`<<-`
  [13:37:23.263]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.263]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.263]                   3L)]
  [13:37:23.263]             }
  [13:37:23.263]             function(cond) {
  [13:37:23.263]                 if (inherits(cond, "error")) {
  [13:37:23.263]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.263]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.263]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.263]                   signalCondition(cond)
  [13:37:23.263]                 }
  [13:37:23.263]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:23.263]                 ))) {
  [13:37:23.263]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:23.263]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.263]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.263]                   if (!signal) {
  [13:37:23.263]                     muffleCondition <- function (cond) 
  [13:37:23.263]                     {
  [13:37:23.263]                       inherits <- base::inherits
  [13:37:23.263]                       invokeRestart <- base::invokeRestart
  [13:37:23.263]                       muffled <- FALSE
  [13:37:23.263]                       if (inherits(cond, "message")) {
  [13:37:23.263]                         invokeRestart("muffleMessage")
  [13:37:23.263]                         muffled <- TRUE
  [13:37:23.263]                       }
  [13:37:23.263]                       else if (inherits(cond, "warning")) {
  [13:37:23.263]                         invokeRestart("muffleWarning")
  [13:37:23.263]                         muffled <- TRUE
  [13:37:23.263]                       }
  [13:37:23.263]                       else if (inherits(cond, "condition")) {
  [13:37:23.263]                         computeRestarts <- base::computeRestarts
  [13:37:23.263]                         grepl <- base::grepl
  [13:37:23.263]                         is.null <- base::is.null
  [13:37:23.263]                         restarts <- computeRestarts(cond)
  [13:37:23.263]                         for (restart in restarts) {
  [13:37:23.263]                           name <- restart$name
  [13:37:23.263]                           if (is.null(name)) 
  [13:37:23.263]                             next
  [13:37:23.263]                           if (!grepl("^muffle", name)) 
  [13:37:23.263]                             next
  [13:37:23.263]                           invokeRestart(restart)
  [13:37:23.263]                           muffled <- TRUE
  [13:37:23.263]                           break
  [13:37:23.263]                         }
  [13:37:23.263]                       }
  [13:37:23.263]                       invisible(muffled)
  [13:37:23.263]                     }
  [13:37:23.263]                     muffleCondition(cond)
  [13:37:23.263]                   }
  [13:37:23.263]                 }
  [13:37:23.263]             }
  [13:37:23.263]         }))
  [13:37:23.263]     }, error = function(ex) {
  [13:37:23.263]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.263]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.263]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.263]     }, finally = {
  [13:37:23.263]         {
  [13:37:23.263]             NULL
  [13:37:23.263]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:23.263]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.263]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.263]                 label = NULL, ...) 
  [13:37:23.263]             {
  [13:37:23.263]                 if (substitute) 
  [13:37:23.263]                   expr <- substitute(expr)
  [13:37:23.263]                 local <- as.logical(local)
  [13:37:23.263]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.263]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.263]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.263]                   label = label, ...)
  [13:37:23.263]                 if (!future$lazy) 
  [13:37:23.263]                   future <- run(future)
  [13:37:23.263]                 invisible(future)
  [13:37:23.263]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:23.263]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:37:23.263]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:23.263]             {
  [13:37:23.263]                 if (substitute) 
  [13:37:23.263]                   expr <- substitute(expr)
  [13:37:23.263]                 local <- as.logical(local)
  [13:37:23.263]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.263]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.263]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.263]                   label = label, ...)
  [13:37:23.263]                 if (!future$lazy) 
  [13:37:23.263]                   future <- run(future)
  [13:37:23.263]                 invisible(future)
  [13:37:23.263]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.263]         }
  [13:37:23.263]         base::options(...future.oldOptions)
  [13:37:23.263]     })
  [13:37:23.263]     Sys.time
  [13:37:23.263]     if (base::is.na(TRUE)) {
  [13:37:23.263]     }
  [13:37:23.263]     else {
  [13:37:23.263]         base::sink(type = "output", split = FALSE)
  [13:37:23.263]         if (TRUE) {
  [13:37:23.263]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.263]         }
  [13:37:23.263]         else {
  [13:37:23.263]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.263]         }
  [13:37:23.263]         base::close(...future.stdout)
  [13:37:23.263]         ...future.stdout <- NULL
  [13:37:23.263]     }
  [13:37:23.263]     ...future.result$conditions <- ...future.conditions
  [13:37:23.263]     ...future.result
  [13:37:23.263] }
  [13:37:23.270] plan(): Setting new future strategy stack:
  [13:37:23.270] List of future strategies:
  [13:37:23.270] 1. sequential:
  [13:37:23.270]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.270]    - tweaked: FALSE
  [13:37:23.270]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.271] plan(): nbrOfWorkers() = 1
  [13:37:23.841] plan(): Setting new future strategy stack:
  [13:37:23.842] List of future strategies:
  [13:37:23.842] 1. sequential:
  [13:37:23.842]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.842]    - tweaked: FALSE
  [13:37:23.842]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.842] 2. sequential:
  [13:37:23.842]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.842]    - tweaked: FALSE
  [13:37:23.842]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.843] plan(): nbrOfWorkers() = 1
  [13:37:23.844] SequentialFuture started (and completed)
  [13:37:23.844] signalConditions() ...
  [13:37:23.845]  - include = 'immediateCondition'
  [13:37:23.845]  - exclude = 
  [13:37:23.845]  - resignal = FALSE
  [13:37:23.846]  - Number of conditions: 280
  [13:37:23.847] signalConditions() ... done
  [13:37:23.847] Chunk #1 of 1 ... DONE
  [13:37:23.848] Launching 1 futures (chunks) ... DONE
  [13:37:23.848] - resolving futures
  [13:37:23.848]   - gathering results & relaying conditions (except errors)
  [13:37:23.849] resolve() on list ...
  [13:37:23.849]  recursive: 0
  [13:37:23.849]  length: 1
  [13:37:23.849] 
  [13:37:23.850] Future #1
  [13:37:23.850] signalConditions() ...
  [13:37:23.850]  - include = 'immediateCondition'
  [13:37:23.851]  - exclude = 
  [13:37:23.851]  - resignal = FALSE
  [13:37:23.851]  - Number of conditions: 280
  [13:37:23.853] signalConditions() ... done
  [13:37:23.853] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:23.854] - nx: 1
  [13:37:23.854] - relay: TRUE
  [13:37:23.854] - stdout: TRUE
  [13:37:23.854] - signal: TRUE
  [13:37:23.855] - resignal: FALSE
  [13:37:23.855] - force: FALSE
  [13:37:23.855] - relayed: [n=1] FALSE
  [13:37:23.856] - queued futures: [n=1] FALSE
  [13:37:23.856]  - until=1
  [13:37:23.856]  - relaying element #1
  [13:37:23.857] signalConditions() ...
  [13:37:23.857]  - include = 'immediateCondition'
  [13:37:23.857]  - exclude = 
  [13:37:23.858]  - resignal = FALSE
  [13:37:23.858]  - Number of conditions: 280
  [13:37:23.859] 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"
  [13:37:23.860] signalConditions() ...
  [13:37:23.860]  - include = 'immediateCondition'
  [13:37:23.861]  - exclude = 
  [13:37:23.861]  - resignal = FALSE
  [13:37:23.861]  - Number of conditions: 280
  [13:37:23.863] signalConditions() ... done
  [13:37:23.863] signalConditions() ...
  [13:37:23.863]  - include = 'condition'
  [13:37:23.864]  - exclude = 'immediateCondition'
  [13:37:23.864]  - resignal = FALSE
  [13:37:23.864]  - Number of conditions: 280
  [13:37:23.865]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:23.865]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:23.277] doFuture() ...
  [13:37:23.865]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:23.279] - dummy globals (as locals): [1] 'b'
  [13:37:23.866]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [13:37:23.280] - R expression:
  [13:37:23.866]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [13:37:23.280] {
  [13:37:23.280]     doFuture::registerDoFuture()
  [13:37:23.280]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.280]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.280]         b <- NULL
  [13:37:23.280]         ...future.env <- environment()
  [13:37:23.280]         local({
  [13:37:23.280]             for (name in names(...future.x_jj)) {
  [13:37:23.280]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.280]                   inherits = FALSE)
  [13:37:23.280]             }
  [13:37:23.280]         })
  [13:37:23.280]         tryCatch({
  [13:37:23.280]             plan_list <- future::plan("next")
  [13:37:23.280]             message(capture.output(print(plan_list)))
  [13:37:23.280]             stopifnot(inherits(plan_list, "future"))
  [13:37:23.280]             default <- getOption("future.plan", "sequential")
  [13:37:23.280]             if (is.function(default)) 
  [13:37:23.280]                 default <- class(default)
  [13:37:23.280]             stopifnot(inherits(plan_list, default))
  [13:37:23.280]             plan_b <- future::plan("list")
  [13:37:23.280]             str(plan_b)
  [13:37:23.280]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:23.280]                 default))
  [13:37:23.280]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.280]         }, error = identity)
  [13:37:23.280]     })
  [13:37:23.280] }
  [13:37:23.867]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [13:37:23.281] - identifying globals and packages ...
  [13:37:23.867]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [13:37:23.282] getGlobalsAndPackages() ...
  [13:37:23.868]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [13:37:23.282] Searching for globals...
  [13:37:23.868]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [13:37:23.310] - 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'
  [13:37:23.869]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [13:37:23.311] Searching for globals ... DONE
  [13:37:23.869]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [13:37:23.312] Resolving globals: FALSE
  [13:37:23.870]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [13:37:23.315] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:37:23.870]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [13:37:23.316] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.871]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [13:37:23.316] - packages: [1] 'utils'
  [13:37:23.871]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [13:37:23.317] getGlobalsAndPackages() ... DONE
  [13:37:23.871]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [13:37:23.317] List of 3
  [13:37:23.317]  $ ...future.x_ii: NULL
  [13:37:23.317]  $ a             : int 1
  [13:37:23.317]  $ plan_a        :List of 1
  [13:37:23.317]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:23.317]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:37:23.317]     ...)  
  [13:37:23.317]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:37:23.317]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:23.317]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:23.317]  - attr(*, "where")=List of 3
  [13:37:23.317]   ..$ ...future.x_ii:<environment: 0x561c1c57fe78> 
  [13:37:23.317]   ..$ a             :<environment: 0x561c1bfe0878> 
  [13:37:23.317]   ..$ plan_a        :<environment: 0x561c1bfe0878> 
  [13:37:23.317]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.317]  - attr(*, "resolved")= logi FALSE
  [13:37:23.317]  - attr(*, "total_size")= num 40624
  [13:37:23.872]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [13:37:23.331]   - R expression:
  [13:37:23.872]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [13:37:23.331] {
  [13:37:23.331]     doFuture::registerDoFuture()
  [13:37:23.331]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.331]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.331]         b <- NULL
  [13:37:23.331]         ...future.env <- environment()
  [13:37:23.331]         local({
  [13:37:23.331]             for (name in names(...future.x_jj)) {
  [13:37:23.331]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.331]                   inherits = FALSE)
  [13:37:23.331]             }
  [13:37:23.331]         })
  [13:37:23.331]         tryCatch({
  [13:37:23.331]             plan_list <- future::plan("next")
  [13:37:23.331]             message(capture.output(print(plan_list)))
  [13:37:23.331]             stopifnot(inherits(plan_list, "future"))
  [13:37:23.331]             default <- getOption("future.plan", "sequential")
  [13:37:23.331]             if (is.function(default)) 
  [13:37:23.331]                 default <- class(default)
  [13:37:23.331]             stopifnot(inherits(plan_list, default))
  [13:37:23.331]             plan_b <- future::plan("list")
  [13:37:23.331]             str(plan_b)
  [13:37:23.331]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:23.331]                 default))
  [13:37:23.331]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.331]         }, error = identity)
  [13:37:23.331]     })
  [13:37:23.331] }
  [13:37:23.873]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [13:37:23.333]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.873]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [13:37:23.333] List of 3
  [13:37:23.333]  $ ...future.x_ii: NULL
  [13:37:23.333]  $ a             : int 1
  [13:37:23.333]  $ plan_a        :List of 1
  [13:37:23.333]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:23.333]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:37:23.333]     ...)  
  [13:37:23.333]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:37:23.333]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:23.333]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:23.333]  - attr(*, "where")=List of 3
  [13:37:23.333]   ..$ ...future.x_ii:<environment: 0x561c1c57fe78> 
  [13:37:23.333]   ..$ a             :<environment: 0x561c1bfe0878> 
  [13:37:23.333]   ..$ plan_a        :<environment: 0x561c1bfe0878> 
  [13:37:23.333]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.333]  - attr(*, "resolved")= logi FALSE
  [13:37:23.333]  - attr(*, "total_size")= num 40624
  [13:37:23.874]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [13:37:23.351]   - packages: [2] 'doFuture', 'utils'
  [13:37:23.874]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [13:37:23.351] - identifying globals and packages ... DONE
  [13:37:23.875]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [13:37:23.352] Number of chunks: 1
  [13:37:23.875]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [13:37:23.352] Number of futures (= number of chunks): 1
  [13:37:23.875]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [13:37:23.353] Launching 1 futures (chunks) ...
  [13:37:23.876]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [13:37:23.354] Chunk #1 of 1 ...
  [13:37:23.876]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [13:37:23.354]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.877]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [13:37:23.355] getGlobalsAndPackages() ...
  [13:37:23.877]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [13:37:23.355] Searching for globals...
  [13:37:23.878]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [13:37:23.356] 
  [13:37:23.878]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [13:37:23.357] Searching for globals ... DONE
  [13:37:23.879]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [13:37:23.357] - globals: [0] <none>
  [13:37:23.879]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [13:37:23.358] getGlobalsAndPackages() ... DONE
  [13:37:23.879]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [13:37:23.358] 
  [13:37:23.880]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [13:37:23.359] 
  [13:37:23.880]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [13:37:23.359]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.881]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [13:37:23.360] getGlobalsAndPackages() ...
  [13:37:23.881]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [13:37:23.360] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.882]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [13:37:23.360] Resolving globals: FALSE
  [13:37:23.882]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [13:37:23.362] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:37:23.882]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [13:37:23.363] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.883]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [13:37:23.363] 
  [13:37:23.887]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [13:37:23.363] getGlobalsAndPackages() ... DONE
  [13:37:23.888]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [13:37:23.366] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:23.888]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [13:37:23.366] Packages needed by future strategies (n = 0): <none>
  [13:37:23.889]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [13:37:23.373] {
  [13:37:23.373]     {
  [13:37:23.373]         ...future.startTime <- base::Sys.time()
  [13:37:23.373]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.373]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.373]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.373]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.373]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.373]         {
  [13:37:23.373]             {
  [13:37:23.373]                 {
  [13:37:23.373]                   has_future <- base::requireNamespace("future", 
  [13:37:23.373]                     quietly = TRUE)
  [13:37:23.373]                   version <- if (has_future) 
  [13:37:23.373]                     utils::packageVersion("future")
  [13:37:23.373]                   else NULL
  [13:37:23.373]                   if (!has_future || version < "1.8.0") {
  [13:37:23.373]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.373]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.373]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.373]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.373]                         "release", "version")], collapse = " "), 
  [13:37:23.373]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:23.373]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.373]                       info)
  [13:37:23.373]                     info <- base::paste(info, collapse = "; ")
  [13:37:23.373]                     if (!has_future) {
  [13:37:23.373]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.373]                         info)
  [13:37:23.373]                     }
  [13:37:23.373]                     else {
  [13:37:23.373]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.373]                         info, version)
  [13:37:23.373]                     }
  [13:37:23.373]                     base::stop(msg)
  [13:37:23.373]                   }
  [13:37:23.373]                 }
  [13:37:23.373]                 base::local({
  [13:37:23.373]                   for (pkg in c("doFuture", "utils")) {
  [13:37:23.373]                     base::loadNamespace(pkg)
  [13:37:23.373]                     base::library(pkg, character.only = TRUE)
  [13:37:23.373]                   }
  [13:37:23.373]                 })
  [13:37:23.373]             }
  [13:37:23.373]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:23.373]         }
  [13:37:23.373]     }
  [13:37:23.373]     if (base::is.na(TRUE)) {
  [13:37:23.373]     }
  [13:37:23.373]     else {
  [13:37:23.373]         if (TRUE) {
  [13:37:23.373]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.373]                 open = "w")
  [13:37:23.373]         }
  [13:37:23.373]         else {
  [13:37:23.373]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.373]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.373]         }
  [13:37:23.373]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.373]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.373]             base::sink(type = "output", split = FALSE)
  [13:37:23.373]             base::close(...future.stdout)
  [13:37:23.373]         }, add = TRUE)
  [13:37:23.373]     }
  [13:37:23.373]     ...future.frame <- base::sys.nframe()
  [13:37:23.373]     ...future.conditions <- base::list()
  [13:37:23.373]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.373]     ...future.result <- base::tryCatch({
  [13:37:23.373]         base::withCallingHandlers({
  [13:37:23.373]             ...future.value <- base::withVisible(base::local({
  [13:37:23.373]                 doFuture::registerDoFuture()
  [13:37:23.373]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.373]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.373]                   b <- NULL
  [13:37:23.373]                   ...future.env <- environment()
  [13:37:23.373]                   local({
  [13:37:23.373]                     for (name in names(...future.x_jj)) {
  [13:37:23.373]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.373]                         inherits = FALSE)
  [13:37:23.373]                     }
  [13:37:23.373]                   })
  [13:37:23.373]                   tryCatch({
  [13:37:23.373]                     plan_list <- future::plan("next")
  [13:37:23.373]                     message(capture.output(print(plan_list)))
  [13:37:23.373]                     stopifnot(inherits(plan_list, "future"))
  [13:37:23.373]                     default <- getOption("future.plan", "sequential")
  [13:37:23.373]                     if (is.function(default)) 
  [13:37:23.373]                       default <- class(default)
  [13:37:23.373]                     stopifnot(inherits(plan_list, default))
  [13:37:23.373]                     plan_b <- future::plan("list")
  [13:37:23.373]                     str(plan_b)
  [13:37:23.373]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:23.373]                       inherits(plan_b[[1]], default))
  [13:37:23.373]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.373]                   }, error = identity)
  [13:37:23.373]                 })
  [13:37:23.373]             }))
  [13:37:23.373]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.373]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.373]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.373]                 version = "1.8")
  [13:37:23.373]         }, condition = base::local({
  [13:37:23.373]             c <- base::c
  [13:37:23.373]             inherits <- base::inherits
  [13:37:23.373]             invokeRestart <- base::invokeRestart
  [13:37:23.373]             length <- base::length
  [13:37:23.373]             list <- base::list
  [13:37:23.373]             seq.int <- base::seq.int
  [13:37:23.373]             signalCondition <- base::signalCondition
  [13:37:23.373]             sys.calls <- base::sys.calls
  [13:37:23.373]             Sys.time <- base::Sys.time
  [13:37:23.373]             `[[` <- base::`[[`
  [13:37:23.373]             `+` <- base::`+`
  [13:37:23.373]             `<<-` <- base::`<<-`
  [13:37:23.373]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.373]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.373]                   3L)]
  [13:37:23.373]             }
  [13:37:23.373]             function(cond) {
  [13:37:23.373]                 if (inherits(cond, "error")) {
  [13:37:23.373]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.373]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.373]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.373]                   signalCondition(cond)
  [13:37:23.373]                 }
  [13:37:23.373]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:23.373]                 ))) {
  [13:37:23.373]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:23.373]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.373]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.373]                   if (!signal) {
  [13:37:23.373]                     muffleCondition <- function (cond) 
  [13:37:23.373]                     {
  [13:37:23.373]                       inherits <- base::inherits
  [13:37:23.373]                       invokeRestart <- base::invokeRestart
  [13:37:23.373]                       muffled <- FALSE
  [13:37:23.373]                       if (inherits(cond, "message")) {
  [13:37:23.373]                         invokeRestart("muffleMessage")
  [13:37:23.373]                         muffled <- TRUE
  [13:37:23.373]                       }
  [13:37:23.373]                       else if (inherits(cond, "warning")) {
  [13:37:23.373]                         invokeRestart("muffleWarning")
  [13:37:23.373]                         muffled <- TRUE
  [13:37:23.373]                       }
  [13:37:23.373]                       else if (inherits(cond, "condition")) {
  [13:37:23.373]                         computeRestarts <- base::computeRestarts
  [13:37:23.373]                         grepl <- base::grepl
  [13:37:23.373]                         is.null <- base::is.null
  [13:37:23.373]                         restarts <- computeRestarts(cond)
  [13:37:23.373]                         for (restart in restarts) {
  [13:37:23.373]                           name <- restart$name
  [13:37:23.373]                           if (is.null(name)) 
  [13:37:23.373]                             next
  [13:37:23.373]                           if (!grepl("^muffle", name)) 
  [13:37:23.373]                             next
  [13:37:23.373]                           invokeRestart(restart)
  [13:37:23.373]                           muffled <- TRUE
  [13:37:23.373]                           break
  [13:37:23.373]                         }
  [13:37:23.373]                       }
  [13:37:23.373]                       invisible(muffled)
  [13:37:23.373]                     }
  [13:37:23.373]                     muffleCondition(cond)
  [13:37:23.373]                   }
  [13:37:23.373]                 }
  [13:37:23.373]             }
  [13:37:23.373]         }))
  [13:37:23.373]     }, error = function(ex) {
  [13:37:23.373]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.373]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.373]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.373]     }, finally = {
  [13:37:23.373]         {
  [13:37:23.373]             NULL
  [13:37:23.373]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.373]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.373]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.373]                 label = NULL, ...) 
  [13:37:23.373]             {
  [13:37:23.373]                 if (substitute) 
  [13:37:23.373]                   expr <- substitute(expr)
  [13:37:23.373]                 local <- as.logical(local)
  [13:37:23.373]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.373]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.373]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.373]                   label = label, ...)
  [13:37:23.373]                 if (!future$lazy) 
  [13:37:23.373]                   future <- run(future)
  [13:37:23.373]                 invisible(future)
  [13:37:23.373]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.373]         }
  [13:37:23.373]         base::options(...future.oldOptions)
  [13:37:23.373]     })
  [13:37:23.373]     Sys.time
  [13:37:23.373]     if (base::is.na(TRUE)) {
  [13:37:23.373]     }
  [13:37:23.373]     else {
  [13:37:23.373]         base::sink(type = "output", split = FALSE)
  [13:37:23.373]         if (TRUE) {
  [13:37:23.373]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.373]         }
  [13:37:23.373]         else {
  [13:37:23.373]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.373]         }
  [13:37:23.373]         base::close(...future.stdout)
  [13:37:23.373]         ...future.stdout <- NULL
  [13:37:23.373]     }
  [13:37:23.373]     ...future.result$conditions <- ...future.conditions
  [13:37:23.373]     ...future.result
  [13:37:23.373] }
  [13:37:23.889]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [13:37:23.379] plan(): Setting new future strategy stack:
  [13:37:23.889]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [13:37:23.380] List of future strategies:
  [13:37:23.380] 1. sequential:
  [13:37:23.380]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.380]    - tweaked: FALSE
  [13:37:23.380]    - call: NULL
  [13:37:23.890]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [13:37:23.381] plan(): nbrOfWorkers() = 1
  [13:37:23.890]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [13:37:23.431] plan(): Setting new future strategy stack:
  [13:37:23.891]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [13:37:23.432] List of future strategies:
  [13:37:23.432] 1. sequential:
  [13:37:23.432]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.432]    - tweaked: FALSE
  [13:37:23.432]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.891]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [13:37:23.433] plan(): nbrOfWorkers() = 1
  [13:37:23.892]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [13:37:23.434] SequentialFuture started (and completed)
  [13:37:23.892]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [13:37:23.434] signalConditions() ...
  [13:37:23.893]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [13:37:23.435]  - include = 'immediateCondition'
  [13:37:23.893]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [13:37:23.435]  - exclude = 
  [13:37:23.894]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [13:37:23.436]  - resignal = FALSE
  [13:37:23.894]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [13:37:23.436]  - Number of conditions: 3
  [13:37:23.895]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [13:37:23.437] signalConditions() ... done
  [13:37:23.895]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [13:37:23.437] Chunk #1 of 1 ... DONE
  [13:37:23.895]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [13:37:23.438] Launching 1 futures (chunks) ... DONE
  [13:37:23.896]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [13:37:23.438] - resolving futures
  [13:37:23.896]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [13:37:23.438]   - gathering results & relaying conditions (except errors)
  [13:37:23.897]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [13:37:23.439] resolve() on list ...
  [13:37:23.897]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [13:37:23.439]  recursive: 0
  [13:37:23.898]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [13:37:23.440]  length: 1
  [13:37:23.898]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [13:37:23.440] 
  [13:37:23.899]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [13:37:23.441] Future #1
  [13:37:23.899]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [13:37:23.441] signalConditions() ...
  [13:37:23.900]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [13:37:23.442]  - include = 'immediateCondition'
  [13:37:23.900]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [13:37:23.442]  - exclude = 
  [13:37:23.900]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [13:37:23.443]  - resignal = FALSE
  [13:37:23.901]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [13:37:23.443]  - Number of conditions: 3
  [13:37:23.901]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [13:37:23.444] signalConditions() ... done
  [13:37:23.902]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [13:37:23.444] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:23.902]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [13:37:23.444] - nx: 1
  [13:37:23.903]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [13:37:23.445] - relay: TRUE
  [13:37:23.903]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [13:37:23.445] - stdout: TRUE
  [13:37:23.903]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [13:37:23.446] - signal: TRUE
  [13:37:23.904]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [13:37:23.446] - resignal: FALSE
  [13:37:23.904]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [13:37:23.447] - force: FALSE
  [13:37:23.905]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [13:37:23.447] - relayed: [n=1] FALSE
  [13:37:23.905]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [13:37:23.447] - queued futures: [n=1] FALSE
  [13:37:23.906]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [13:37:23.448]  - until=1
  [13:37:23.906]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [13:37:23.448]  - relaying element #1
  [13:37:23.907]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [13:37:23.449] signalConditions() ...
  [13:37:23.907]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [13:37:23.449]  - include = 'immediateCondition'
  [13:37:23.907]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [13:37:23.450]  - exclude = 
  [13:37:23.908]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [13:37:23.450]  - resignal = FALSE
  [13:37:23.908]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [13:37:23.451]  - Number of conditions: 3
  [13:37:23.909]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [13:37:23.451] signalConditions() ... done
  [13:37:23.909]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [13:37:23.452] signalConditions() ...
  [13:37:23.910]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [13:37:23.452]  - include = 'immediateCondition'
  [13:37:23.910]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [13:37:23.453]  - exclude = 
  [13:37:23.910]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [13:37:23.453]  - resignal = FALSE
  [13:37:23.911]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [13:37:23.454]  - Number of conditions: 3
  [13:37:23.911]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [13:37:23.454] signalConditions() ... done
  [13:37:23.912]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [13:37:23.471] signalConditions() ...
  [13:37:23.912]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [13:37:23.471]  - include = 'condition'
  [13:37:23.913]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [13:37:23.472]  - exclude = 'immediateCondition'
  [13:37:23.913]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [13:37:23.472]  - resignal = FALSE
  [13:37:23.914]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [13:37:23.473]  - Number of conditions: 3
  [13:37:23.914]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [13:37:23.473]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:23.914]  - 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
  [13:37:23.915]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [13:37:23.474]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:23.915]  - 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
  [13:37:23.916]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [13:37:23.475]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:23.916]  - 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
  [13:37:23.917]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [13:37:23.475] signalConditions() ... done
  [13:37:23.917]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [13:37:23.476] - relayed: [n=1] TRUE
  [13:37:23.917]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [13:37:23.476] - queued futures: [n=1] TRUE
  [13:37:23.918]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [13:37:23.477] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:23.918]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [13:37:23.477]  length: 0 (resolved future 1)
  [13:37:23.919]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [13:37:23.478] Relaying remaining futures
  [13:37:23.919]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [13:37:23.478] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.920]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [13:37:23.478] - nx: 1
  [13:37:23.920]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [13:37:23.479] - relay: TRUE
  [13:37:23.920]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [13:37:23.479] - stdout: TRUE
  [13:37:23.921]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [13:37:23.480] - signal: TRUE
  [13:37:23.921]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [13:37:23.480] - resignal: FALSE
  [13:37:23.922]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [13:37:23.481] - force: FALSE
  [13:37:23.922]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [13:37:23.481] - relayed: [n=1] TRUE
  [13:37:23.922]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [13:37:23.481] - queued futures: [n=1] TRUE
  [13:37:23.923]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:23.923]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [13:37:23.482] - relayed: [n=1] TRUE
  [13:37:23.924]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [13:37:23.483] - queued futures: [n=1] TRUE
  [13:37:23.924]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [13:37:23.483] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.925]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [13:37:23.483] resolve() on list ... DONE
  [13:37:23.925]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [13:37:23.484] - collecting values of futures
  [13:37:23.925]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [13:37:23.484] signalConditions() ...
  [13:37:23.926]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [13:37:23.485]  - include = 'immediateCondition'
  [13:37:23.926]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [13:37:23.485]  - exclude = 
  [13:37:23.927]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [13:37:23.485]  - resignal = FALSE
  [13:37:23.927]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [13:37:23.486]  - Number of conditions: 3
  [13:37:23.928]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [13:37:23.486] signalConditions() ... done
  [13:37:23.928]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [13:37:23.503] - accumulating results
  [13:37:23.929]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [13:37:23.504] - processing errors (handler = 'stop')
  [13:37:23.929]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [13:37:23.505] - extracting results
  [13:37:23.929]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [13:37:23.505] doFuture() ... DONE
  [13:37:23.930]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:23.930]  - Condition #141: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:23.931]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [13:37:23.580] doFuture() ...
  [13:37:23.931]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [13:37:23.582] - dummy globals (as locals): [1] 'b'
  [13:37:23.932]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [13:37:23.583] - R expression:
  [13:37:23.932]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [13:37:23.583] {
  [13:37:23.583]     doFuture::registerDoFuture()
  [13:37:23.583]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.583]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.583]         b <- NULL
  [13:37:23.583]         ...future.env <- environment()
  [13:37:23.583]         local({
  [13:37:23.583]             for (name in names(...future.x_jj)) {
  [13:37:23.583]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.583]                   inherits = FALSE)
  [13:37:23.583]             }
  [13:37:23.583]         })
  [13:37:23.583]         tryCatch({
  [13:37:23.583]             plan_list <- future::plan("next")
  [13:37:23.583]             message(capture.output(print(plan_list)))
  [13:37:23.583]             stopifnot(inherits(plan_list, "future"))
  [13:37:23.583]             default <- getOption("future.plan", "sequential")
  [13:37:23.583]             if (is.function(default)) 
  [13:37:23.583]                 default <- class(default)
  [13:37:23.583]             stopifnot(inherits(plan_list, default))
  [13:37:23.583]             plan_b <- future::plan("list")
  [13:37:23.583]             str(plan_b)
  [13:37:23.583]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:23.583]                 default))
  [13:37:23.583]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.583]         }, error = identity)
  [13:37:23.583]     })
  [13:37:23.583] }
  [13:37:23.932]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [13:37:23.589] - identifying globals and packages ...
  [13:37:23.933]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [13:37:23.589] getGlobalsAndPackages() ...
  [13:37:23.933]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [13:37:23.590] Searching for globals...
  [13:37:23.934]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [13:37:23.614] - 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'
  [13:37:23.934]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [13:37:23.615] Searching for globals ... DONE
  [13:37:23.935]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [13:37:23.615] Resolving globals: FALSE
  [13:37:23.935]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [13:37:23.618] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [13:37:23.935]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [13:37:23.619] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.936]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [13:37:23.620] - packages: [1] 'utils'
  [13:37:23.936]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [13:37:23.620] getGlobalsAndPackages() ... DONE
  [13:37:23.937]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [13:37:23.621] List of 3
  [13:37:23.621]  $ ...future.x_ii: NULL
  [13:37:23.621]  $ a             : int 2
  [13:37:23.621]  $ plan_a        :List of 1
  [13:37:23.621]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:23.621]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:37:23.621]     ...)  
  [13:37:23.621]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:37:23.621]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:23.621]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:23.621]  - attr(*, "where")=List of 3
  [13:37:23.621]   ..$ ...future.x_ii:<environment: 0x561c1af1c2b8> 
  [13:37:23.621]   ..$ a             :<environment: 0x561c1c21dcc0> 
  [13:37:23.621]   ..$ plan_a        :<environment: 0x561c1c21dcc0> 
  [13:37:23.621]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.621]  - attr(*, "resolved")= logi FALSE
  [13:37:23.621]  - attr(*, "total_size")= num 40624
  [13:37:23.937]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [13:37:23.649]   - R expression:
  [13:37:23.938]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [13:37:23.649] {
  [13:37:23.649]     doFuture::registerDoFuture()
  [13:37:23.649]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.649]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.649]         b <- NULL
  [13:37:23.649]         ...future.env <- environment()
  [13:37:23.649]         local({
  [13:37:23.649]             for (name in names(...future.x_jj)) {
  [13:37:23.649]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.649]                   inherits = FALSE)
  [13:37:23.649]             }
  [13:37:23.649]         })
  [13:37:23.649]         tryCatch({
  [13:37:23.649]             plan_list <- future::plan("next")
  [13:37:23.649]             message(capture.output(print(plan_list)))
  [13:37:23.649]             stopifnot(inherits(plan_list, "future"))
  [13:37:23.649]             default <- getOption("future.plan", "sequential")
  [13:37:23.649]             if (is.function(default)) 
  [13:37:23.649]                 default <- class(default)
  [13:37:23.649]             stopifnot(inherits(plan_list, default))
  [13:37:23.649]             plan_b <- future::plan("list")
  [13:37:23.649]             str(plan_b)
  [13:37:23.649]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:23.649]                 default))
  [13:37:23.649]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.649]         }, error = identity)
  [13:37:23.649]     })
  [13:37:23.649] }
  [13:37:23.938]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [13:37:23.650]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.939]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [13:37:23.651] List of 3
  [13:37:23.651]  $ ...future.x_ii: NULL
  [13:37:23.651]  $ a             : int 2
  [13:37:23.651]  $ plan_a        :List of 1
  [13:37:23.651]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:23.651]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [13:37:23.651]     ...)  
  [13:37:23.651]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [13:37:23.651]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:23.651]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:23.651]  - attr(*, "where")=List of 3
  [13:37:23.651]   ..$ ...future.x_ii:<environment: 0x561c1af1c2b8> 
  [13:37:23.651]   ..$ a             :<environment: 0x561c1c21dcc0> 
  [13:37:23.651]   ..$ plan_a        :<environment: 0x561c1c21dcc0> 
  [13:37:23.651]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:23.651]  - attr(*, "resolved")= logi FALSE
  [13:37:23.651]  - attr(*, "total_size")= num 40624
  [13:37:23.939]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [13:37:23.683]   - packages: [2] 'doFuture', 'utils'
  [13:37:23.939]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [13:37:23.683] - identifying globals and packages ... DONE
  [13:37:23.940]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [13:37:23.684] Number of chunks: 1
  [13:37:23.940]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [13:37:23.684] Number of futures (= number of chunks): 1
  [13:37:23.941]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [13:37:23.685] Launching 1 futures (chunks) ...
  [13:37:23.941]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [13:37:23.686] Chunk #1 of 1 ...
  [13:37:23.942]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [13:37:23.686]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:23.942]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [13:37:23.703] getGlobalsAndPackages() ...
  [13:37:23.942]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [13:37:23.703] Searching for globals...
  [13:37:23.943]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [13:37:23.704] 
  [13:37:23.943]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [13:37:23.705] Searching for globals ... DONE
  [13:37:23.944]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [13:37:23.705] - globals: [0] <none>
  [13:37:23.944]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [13:37:23.706] getGlobalsAndPackages() ... DONE
  [13:37:23.945]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [13:37:23.706] 
  [13:37:23.945]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [13:37:23.707] 
  [13:37:23.945]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [13:37:23.707]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:23.946]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [13:37:23.708] getGlobalsAndPackages() ...
  [13:37:23.946]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [13:37:23.708] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.947]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [13:37:23.709] Resolving globals: FALSE
  [13:37:23.947]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [13:37:23.710] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [13:37:23.948]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [13:37:23.711] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:23.948]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [13:37:23.712] 
  [13:37:23.948]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [13:37:23.712] getGlobalsAndPackages() ... DONE
  [13:37:23.949]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [13:37:23.714] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:23.949]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [13:37:23.715] Packages needed by future strategies (n = 0): <none>
  [13:37:23.950]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [13:37:23.738] {
  [13:37:23.738]     {
  [13:37:23.738]         ...future.startTime <- base::Sys.time()
  [13:37:23.738]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:23.738]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:23.738]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:23.738]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:23.738]             future.resolve.recursive = NULL, width = 80L)
  [13:37:23.738]         {
  [13:37:23.738]             {
  [13:37:23.738]                 {
  [13:37:23.738]                   has_future <- base::requireNamespace("future", 
  [13:37:23.738]                     quietly = TRUE)
  [13:37:23.738]                   version <- if (has_future) 
  [13:37:23.738]                     utils::packageVersion("future")
  [13:37:23.738]                   else NULL
  [13:37:23.738]                   if (!has_future || version < "1.8.0") {
  [13:37:23.738]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:23.738]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:23.738]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:23.738]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:23.738]                         "release", "version")], collapse = " "), 
  [13:37:23.738]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:23.738]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:23.738]                       info)
  [13:37:23.738]                     info <- base::paste(info, collapse = "; ")
  [13:37:23.738]                     if (!has_future) {
  [13:37:23.738]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:23.738]                         info)
  [13:37:23.738]                     }
  [13:37:23.738]                     else {
  [13:37:23.738]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:23.738]                         info, version)
  [13:37:23.738]                     }
  [13:37:23.738]                     base::stop(msg)
  [13:37:23.738]                   }
  [13:37:23.738]                 }
  [13:37:23.738]                 base::local({
  [13:37:23.738]                   for (pkg in c("doFuture", "utils")) {
  [13:37:23.738]                     base::loadNamespace(pkg)
  [13:37:23.738]                     base::library(pkg, character.only = TRUE)
  [13:37:23.738]                   }
  [13:37:23.738]                 })
  [13:37:23.738]             }
  [13:37:23.738]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:23.738]         }
  [13:37:23.738]     }
  [13:37:23.738]     if (base::is.na(TRUE)) {
  [13:37:23.738]     }
  [13:37:23.738]     else {
  [13:37:23.738]         if (TRUE) {
  [13:37:23.738]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:23.738]                 open = "w")
  [13:37:23.738]         }
  [13:37:23.738]         else {
  [13:37:23.738]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:23.738]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:23.738]         }
  [13:37:23.738]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:23.738]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:23.738]             base::sink(type = "output", split = FALSE)
  [13:37:23.738]             base::close(...future.stdout)
  [13:37:23.738]         }, add = TRUE)
  [13:37:23.738]     }
  [13:37:23.738]     ...future.frame <- base::sys.nframe()
  [13:37:23.738]     ...future.conditions <- base::list()
  [13:37:23.738]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:23.738]     ...future.result <- base::tryCatch({
  [13:37:23.738]         base::withCallingHandlers({
  [13:37:23.738]             ...future.value <- base::withVisible(base::local({
  [13:37:23.738]                 doFuture::registerDoFuture()
  [13:37:23.738]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:23.738]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:23.738]                   b <- NULL
  [13:37:23.738]                   ...future.env <- environment()
  [13:37:23.738]                   local({
  [13:37:23.738]                     for (name in names(...future.x_jj)) {
  [13:37:23.738]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:23.738]                         inherits = FALSE)
  [13:37:23.738]                     }
  [13:37:23.738]                   })
  [13:37:23.738]                   tryCatch({
  [13:37:23.738]                     plan_list <- future::plan("next")
  [13:37:23.738]                     message(capture.output(print(plan_list)))
  [13:37:23.738]                     stopifnot(inherits(plan_list, "future"))
  [13:37:23.738]                     default <- getOption("future.plan", "sequential")
  [13:37:23.738]                     if (is.function(default)) 
  [13:37:23.738]                       default <- class(default)
  [13:37:23.738]                     stopifnot(inherits(plan_list, default))
  [13:37:23.738]                     plan_b <- future::plan("list")
  [13:37:23.738]                     str(plan_b)
  [13:37:23.738]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:23.738]                       inherits(plan_b[[1]], default))
  [13:37:23.738]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:23.738]                   }, error = identity)
  [13:37:23.738]                 })
  [13:37:23.738]             }))
  [13:37:23.738]             future::FutureResult(value = ...future.value$value, 
  [13:37:23.738]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.738]                   ...future.rng), started = ...future.startTime, 
  [13:37:23.738]                 version = "1.8")
  [13:37:23.738]         }, condition = base::local({
  [13:37:23.738]             c <- base::c
  [13:37:23.738]             inherits <- base::inherits
  [13:37:23.738]             invokeRestart <- base::invokeRestart
  [13:37:23.738]             length <- base::length
  [13:37:23.738]             list <- base::list
  [13:37:23.738]             seq.int <- base::seq.int
  [13:37:23.738]             signalCondition <- base::signalCondition
  [13:37:23.738]             sys.calls <- base::sys.calls
  [13:37:23.738]             Sys.time <- base::Sys.time
  [13:37:23.738]             `[[` <- base::`[[`
  [13:37:23.738]             `+` <- base::`+`
  [13:37:23.738]             `<<-` <- base::`<<-`
  [13:37:23.738]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:23.738]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:23.738]                   3L)]
  [13:37:23.738]             }
  [13:37:23.738]             function(cond) {
  [13:37:23.738]                 if (inherits(cond, "error")) {
  [13:37:23.738]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.738]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:23.738]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:23.738]                   signalCondition(cond)
  [13:37:23.738]                 }
  [13:37:23.738]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:23.738]                 ))) {
  [13:37:23.738]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:23.738]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:23.738]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:23.738]                   if (!signal) {
  [13:37:23.738]                     muffleCondition <- function (cond) 
  [13:37:23.738]                     {
  [13:37:23.738]                       inherits <- base::inherits
  [13:37:23.738]                       invokeRestart <- base::invokeRestart
  [13:37:23.738]                       muffled <- FALSE
  [13:37:23.738]                       if (inherits(cond, "message")) {
  [13:37:23.738]                         invokeRestart("muffleMessage")
  [13:37:23.738]                         muffled <- TRUE
  [13:37:23.738]                       }
  [13:37:23.738]                       else if (inherits(cond, "warning")) {
  [13:37:23.738]                         invokeRestart("muffleWarning")
  [13:37:23.738]                         muffled <- TRUE
  [13:37:23.738]                       }
  [13:37:23.738]                       else if (inherits(cond, "condition")) {
  [13:37:23.738]                         computeRestarts <- base::computeRestarts
  [13:37:23.738]                         grepl <- base::grepl
  [13:37:23.738]                         is.null <- base::is.null
  [13:37:23.738]                         restarts <- computeRestarts(cond)
  [13:37:23.738]                         for (restart in restarts) {
  [13:37:23.738]                           name <- restart$name
  [13:37:23.738]                           if (is.null(name)) 
  [13:37:23.738]                             next
  [13:37:23.738]                           if (!grepl("^muffle", name)) 
  [13:37:23.738]                             next
  [13:37:23.738]                           invokeRestart(restart)
  [13:37:23.738]                           muffled <- TRUE
  [13:37:23.738]                           break
  [13:37:23.738]                         }
  [13:37:23.738]                       }
  [13:37:23.738]                       invisible(muffled)
  [13:37:23.738]                     }
  [13:37:23.738]                     muffleCondition(cond)
  [13:37:23.738]                   }
  [13:37:23.738]                 }
  [13:37:23.738]             }
  [13:37:23.738]         }))
  [13:37:23.738]     }, error = function(ex) {
  [13:37:23.738]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:23.738]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:23.738]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:23.738]     }, finally = {
  [13:37:23.738]         {
  [13:37:23.738]             NULL
  [13:37:23.738]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:23.738]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:23.738]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:23.738]                 label = NULL, ...) 
  [13:37:23.738]             {
  [13:37:23.738]                 if (substitute) 
  [13:37:23.738]                   expr <- substitute(expr)
  [13:37:23.738]                 local <- as.logical(local)
  [13:37:23.738]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:23.738]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:23.738]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:23.738]                   label = label, ...)
  [13:37:23.738]                 if (!future$lazy) 
  [13:37:23.738]                   future <- run(future)
  [13:37:23.738]                 invisible(future)
  [13:37:23.738]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:23.738]         }
  [13:37:23.738]         base::options(...future.oldOptions)
  [13:37:23.738]     })
  [13:37:23.738]     Sys.time
  [13:37:23.738]     if (base::is.na(TRUE)) {
  [13:37:23.738]     }
  [13:37:23.738]     else {
  [13:37:23.738]         base::sink(type = "output", split = FALSE)
  [13:37:23.738]         if (TRUE) {
  [13:37:23.738]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:23.738]         }
  [13:37:23.738]         else {
  [13:37:23.738]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:23.738]         }
  [13:37:23.738]         base::close(...future.stdout)
  [13:37:23.738]         ...future.stdout <- NULL
  [13:37:23.738]     }
  [13:37:23.738]     ...future.result$conditions <- ...future.conditions
  [13:37:23.738]     ...future.result
  [13:37:23.738] }
  [13:37:23.950]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [13:37:23.744] plan(): Setting new future strategy stack:
  [13:37:23.951]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [13:37:23.745] List of future strategies:
  [13:37:23.745] 1. sequential:
  [13:37:23.745]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.745]    - tweaked: FALSE
  [13:37:23.745]    - call: NULL
  [13:37:23.951]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [13:37:23.746] plan(): nbrOfWorkers() = 1
  [13:37:23.952]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [13:37:23.789] plan(): Setting new future strategy stack:
  [13:37:23.956]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [13:37:23.790] List of future strategies:
  [13:37:23.790] 1. sequential:
  [13:37:23.790]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:23.790]    - tweaked: FALSE
  [13:37:23.790]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:23.956]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [13:37:23.791] plan(): nbrOfWorkers() = 1
  [13:37:23.957]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [13:37:23.792] SequentialFuture started (and completed)
  [13:37:23.957]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [13:37:23.792] signalConditions() ...
  [13:37:23.957]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [13:37:23.793]  - include = 'immediateCondition'
  [13:37:23.958]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [13:37:23.793]  - exclude = 
  [13:37:23.958]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [13:37:23.794]  - resignal = FALSE
  [13:37:23.959]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [13:37:23.794]  - Number of conditions: 3
  [13:37:23.959]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [13:37:23.795] signalConditions() ... done
  [13:37:23.960]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [13:37:23.795] Chunk #1 of 1 ... DONE
  [13:37:23.960]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [13:37:23.796] Launching 1 futures (chunks) ... DONE
  [13:37:23.961]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [13:37:23.796] - resolving futures
  [13:37:23.961]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [13:37:23.797]   - gathering results & relaying conditions (except errors)
  [13:37:23.962]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [13:37:23.797] resolve() on list ...
  [13:37:23.962]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [13:37:23.797]  recursive: 0
  [13:37:23.962]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [13:37:23.798]  length: 1
  [13:37:23.963]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [13:37:23.798] 
  [13:37:23.963]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [13:37:23.799] Future #1
  [13:37:23.964]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [13:37:23.800] signalConditions() ...
  [13:37:23.964]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [13:37:23.800]  - include = 'immediateCondition'
  [13:37:23.965]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [13:37:23.800]  - exclude = 
  [13:37:23.965]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [13:37:23.801]  - resignal = FALSE
  [13:37:23.965]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [13:37:23.801]  - Number of conditions: 3
  [13:37:23.966]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [13:37:23.802] signalConditions() ... done
  [13:37:23.966]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [13:37:23.802] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:23.967]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [13:37:23.805] - nx: 1
  [13:37:23.967]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [13:37:23.806] - relay: TRUE
  [13:37:23.968]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [13:37:23.806] - stdout: TRUE
  [13:37:23.968]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [13:37:23.811] - signal: TRUE
  [13:37:23.968]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [13:37:23.811] - resignal: FALSE
  [13:37:23.969]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [13:37:23.812] - force: FALSE
  [13:37:23.969]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [13:37:23.812] - relayed: [n=1] FALSE
  [13:37:23.970]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [13:37:23.813] - queued futures: [n=1] FALSE
  [13:37:23.970]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [13:37:23.813]  - until=1
  [13:37:23.971]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [13:37:23.814]  - relaying element #1
  [13:37:23.971]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [13:37:23.814] signalConditions() ...
  [13:37:23.971]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [13:37:23.815]  - include = 'immediateCondition'
  [13:37:23.972]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [13:37:23.815]  - exclude = 
  [13:37:23.972]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [13:37:23.816]  - resignal = FALSE
  [13:37:23.973]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [13:37:23.816]  - Number of conditions: 3
  [13:37:23.973]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [13:37:23.817] signalConditions() ... done
  [13:37:23.974]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [13:37:23.817] signalConditions() ...
  [13:37:23.974]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [13:37:23.818]  - include = 'immediateCondition'
  [13:37:23.975]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [13:37:23.818]  - exclude = 
  [13:37:23.975]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [13:37:23.819]  - resignal = FALSE
  [13:37:23.975]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [13:37:23.819]  - Number of conditions: 3
  [13:37:23.976]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [13:37:23.820] signalConditions() ... done
  [13:37:23.976]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [13:37:23.820] signalConditions() ...
  [13:37:23.977]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [13:37:23.821]  - include = 'condition'
  [13:37:23.977]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [13:37:23.821]  - exclude = 'immediateCondition'
  [13:37:23.978]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [13:37:23.822]  - resignal = FALSE
  [13:37:23.978]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [13:37:23.822]  - Number of conditions: 3
  [13:37:23.979]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [13:37:23.823]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:23.979]  - 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
  [13:37:23.979]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [13:37:23.824]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:23.980]  - 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
  [13:37:23.980]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [13:37:23.824]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:23.981]  - 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
  [13:37:23.981]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [13:37:23.825] signalConditions() ... done
  [13:37:23.982]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [13:37:23.825] - relayed: [n=1] TRUE
  [13:37:23.982]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [13:37:23.826] - queued futures: [n=1] TRUE
  [13:37:23.982]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [13:37:23.826] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:23.983]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [13:37:23.827]  length: 0 (resolved future 1)
  [13:37:23.983]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [13:37:23.827] Relaying remaining futures
  [13:37:23.984]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [13:37:23.828] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.984]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [13:37:23.828] - nx: 1
  [13:37:23.985]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [13:37:23.829] - relay: TRUE
  [13:37:23.985]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [13:37:23.829] - stdout: TRUE
  [13:37:23.985]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [13:37:23.830] - signal: TRUE
  [13:37:23.986]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [13:37:23.830] - resignal: FALSE
  [13:37:23.986]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [13:37:23.830] - force: FALSE
  [13:37:23.987]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [13:37:23.831] - relayed: [n=1] TRUE
  [13:37:23.987]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [13:37:23.831] - queued futures: [n=1] TRUE
  [13:37:23.987]  - Condition #264: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:23.988]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [13:37:23.832] - relayed: [n=1] TRUE
  [13:37:23.988]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [13:37:23.833] - queued futures: [n=1] TRUE
  [13:37:23.989]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [13:37:23.833] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:23.989]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [13:37:23.834] resolve() on list ... DONE
  [13:37:23.990]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [13:37:23.834] - collecting values of futures
  [13:37:23.990]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [13:37:23.835] signalConditions() ...
  [13:37:23.990]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [13:37:23.835]  - include = 'immediateCondition'
  [13:37:23.991]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [13:37:23.836]  - exclude = 
  [13:37:23.991]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [13:37:23.836]  - resignal = FALSE
  [13:37:23.992]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [13:37:23.837]  - Number of conditions: 3
  [13:37:23.992]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [13:37:23.837] signalConditions() ... done
  [13:37:23.993]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [13:37:23.838] - accumulating results
  [13:37:23.993]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [13:37:23.839] - processing errors (handler = 'stop')
  [13:37:23.994]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [13:37:23.840] - extracting results
  [13:37:23.994]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [13:37:23.840] doFuture() ... DONE
  [13:37:23.994]  - Condition #280: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:23.995] signalConditions() ... done
  [13:37:23.995] - relayed: [n=1] TRUE
  [13:37:23.996] - queued futures: [n=1] TRUE
  [13:37:23.996] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:23.996]  length: 0 (resolved future 1)
  [13:37:23.997] Relaying remaining futures
  [13:37:23.997] signalConditionsASAP(NULL, pos=0) ...
  [13:37:23.997] - nx: 1
  [13:37:23.998] - relay: TRUE
  [13:37:23.998] - stdout: TRUE
  [13:37:23.998] - signal: TRUE
  [13:37:23.998] - resignal: FALSE
  [13:37:23.999] - force: FALSE
  [13:37:23.999] - relayed: [n=1] TRUE
  [13:37:23.999] - queued futures: [n=1] TRUE
   - flush all
  [13:37:24.000] - relayed: [n=1] TRUE
  [13:37:24.000] - queued futures: [n=1] TRUE
  [13:37:24.000] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:24.001] resolve() on list ... DONE
  [13:37:24.001] - collecting values of futures
  [13:37:24.001] signalConditions() ...
  [13:37:24.002]  - include = 'immediateCondition'
  [13:37:24.002]  - exclude = 
  [13:37:24.002]  - resignal = FALSE
  [13:37:24.003]  - Number of conditions: 280
  [13:37:24.004] signalConditions() ... done
  [13:37:24.004] - accumulating results
  [13:37:24.005] - processing errors (handler = 'stop')
  [13:37:24.005] - extracting results
  [13:37:24.006] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [13:37:24.007] plan(): Setting new future strategy stack:
  [13:37:24.008] List of future strategies:
  [13:37:24.008] 1. sequential:
  [13:37:24.008]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:24.008]    - tweaked: FALSE
  [13:37:24.008]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:24.008] 2. multicore:
  [13:37:24.008]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:24.008]    - tweaked: FALSE
  [13:37:24.008]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:24.009] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:37:24.010] doFuture() ...
  [13:37:24.011] - dummy globals (as locals): [1] 'a'
  [13:37:24.012] - R expression:
  [13:37:24.012] {
  [13:37:24.012]     doFuture::registerDoFuture()
  [13:37:24.012]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.012]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.012]         a <- NULL
  [13:37:24.012]         ...future.env <- environment()
  [13:37:24.012]         local({
  [13:37:24.012]             for (name in names(...future.x_jj)) {
  [13:37:24.012]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.012]                   inherits = FALSE)
  [13:37:24.012]             }
  [13:37:24.012]         })
  [13:37:24.012]         tryCatch({
  [13:37:24.012]             plan_list <- future::plan("next")
  [13:37:24.012]             stopifnot(inherits(plan_list, strategy2))
  [13:37:24.012]             plan_a <- future::plan("list")
  [13:37:24.012]             str(plan_a)
  [13:37:24.012]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:24.012]             message("foreach() - level 2 ...")
  [13:37:24.012]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:24.012]                 {
  [13:37:24.012]                   plan_list <- future::plan("next")
  [13:37:24.012]                   message(capture.output(print(plan_list)))
  [13:37:24.012]                   stopifnot(inherits(plan_list, "future"))
  [13:37:24.012]                   default <- getOption("future.plan", "sequential")
  [13:37:24.012]                   if (is.function(default)) 
  [13:37:24.012]                     default <- class(default)
  [13:37:24.012]                   stopifnot(inherits(plan_list, default))
  [13:37:24.012]                   plan_b <- future::plan("list")
  [13:37:24.012]                   str(plan_b)
  [13:37:24.012]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.012]                     inherits(plan_b[[1]], default))
  [13:37:24.012]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.012]                 }
  [13:37:24.012]             message("foreach() - level 2 ... DONE")
  [13:37:24.012]             y
  [13:37:24.012]         }, error = identity)
  [13:37:24.012]     })
  [13:37:24.012] }
  [13:37:24.013] - identifying globals and packages ...
  [13:37:24.014] getGlobalsAndPackages() ...
  [13:37:24.014] Searching for globals...
  [13:37:24.053] - 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'
  [13:37:24.053] Searching for globals ... DONE
  [13:37:24.053] Resolving globals: FALSE
  [13:37:24.056] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:37:24.057] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:24.057] - packages: [2] 'utils', 'foreach'
  [13:37:24.058] getGlobalsAndPackages() ... DONE
  [13:37:24.058] List of 3
  [13:37:24.058]  $ ...future.x_ii: NULL
  [13:37:24.058]  $ strategy2     : chr "multicore"
  [13:37:24.058]  $ bs            : int [1:3] 3 2 1
  [13:37:24.058]  - attr(*, "where")=List of 3
  [13:37:24.058]   ..$ ...future.x_ii:<environment: 0x561c1beb99a0> 
  [13:37:24.058]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:24.058]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:24.058]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.058]  - attr(*, "resolved")= logi FALSE
  [13:37:24.058]  - attr(*, "total_size")= num 184
  [13:37:24.068]   - R expression:
  [13:37:24.068] {
  [13:37:24.068]     doFuture::registerDoFuture()
  [13:37:24.068]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.068]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.068]         a <- NULL
  [13:37:24.068]         ...future.env <- environment()
  [13:37:24.068]         local({
  [13:37:24.068]             for (name in names(...future.x_jj)) {
  [13:37:24.068]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.068]                   inherits = FALSE)
  [13:37:24.068]             }
  [13:37:24.068]         })
  [13:37:24.068]         tryCatch({
  [13:37:24.068]             plan_list <- future::plan("next")
  [13:37:24.068]             stopifnot(inherits(plan_list, strategy2))
  [13:37:24.068]             plan_a <- future::plan("list")
  [13:37:24.068]             str(plan_a)
  [13:37:24.068]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:24.068]             message("foreach() - level 2 ...")
  [13:37:24.068]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:24.068]                 {
  [13:37:24.068]                   plan_list <- future::plan("next")
  [13:37:24.068]                   message(capture.output(print(plan_list)))
  [13:37:24.068]                   stopifnot(inherits(plan_list, "future"))
  [13:37:24.068]                   default <- getOption("future.plan", "sequential")
  [13:37:24.068]                   if (is.function(default)) 
  [13:37:24.068]                     default <- class(default)
  [13:37:24.068]                   stopifnot(inherits(plan_list, default))
  [13:37:24.068]                   plan_b <- future::plan("list")
  [13:37:24.068]                   str(plan_b)
  [13:37:24.068]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.068]                     inherits(plan_b[[1]], default))
  [13:37:24.068]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.068]                 }
  [13:37:24.068]             message("foreach() - level 2 ... DONE")
  [13:37:24.068]             y
  [13:37:24.068]         }, error = identity)
  [13:37:24.068]     })
  [13:37:24.068] }
  [13:37:24.070]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:24.070] List of 3
  [13:37:24.070]  $ ...future.x_ii: NULL
  [13:37:24.070]  $ strategy2     : chr "multicore"
  [13:37:24.070]  $ bs            : int [1:3] 3 2 1
  [13:37:24.070]  - attr(*, "where")=List of 3
  [13:37:24.070]   ..$ ...future.x_ii:<environment: 0x561c1beb99a0> 
  [13:37:24.070]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:24.070]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:24.070]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.070]  - attr(*, "resolved")= logi FALSE
  [13:37:24.070]  - attr(*, "total_size")= num 184
  [13:37:24.083]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:37:24.084] - identifying globals and packages ... DONE
  [13:37:24.084] Number of chunks: 1
  [13:37:24.084] Number of futures (= number of chunks): 1
  [13:37:24.085] Launching 1 futures (chunks) ...
  [13:37:24.085] Chunk #1 of 1 ...
  [13:37:24.086]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:24.086] getGlobalsAndPackages() ...
  [13:37:24.086] Searching for globals...
  [13:37:24.087] 
  [13:37:24.088] Searching for globals ... DONE
  [13:37:24.088] - globals: [0] <none>
  [13:37:24.088] getGlobalsAndPackages() ... DONE
  [13:37:24.089] 
  [13:37:24.089] 
  [13:37:24.089]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:24.090] getGlobalsAndPackages() ...
  [13:37:24.090] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:24.090] Resolving globals: FALSE
  [13:37:24.092] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:37:24.092] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:24.093] 
  [13:37:24.093] getGlobalsAndPackages() ... DONE
  [13:37:24.095] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:37:24.096] Packages needed by future strategies (n = 1): 'future'
  [13:37:24.103] {
  [13:37:24.103]     {
  [13:37:24.103]         ...future.startTime <- base::Sys.time()
  [13:37:24.103]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:24.103]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:24.103]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:24.103]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:24.103]             future.resolve.recursive = NULL, width = 80L)
  [13:37:24.103]         {
  [13:37:24.103]             {
  [13:37:24.103]                 {
  [13:37:24.103]                   has_future <- base::requireNamespace("future", 
  [13:37:24.103]                     quietly = TRUE)
  [13:37:24.103]                   version <- if (has_future) 
  [13:37:24.103]                     utils::packageVersion("future")
  [13:37:24.103]                   else NULL
  [13:37:24.103]                   if (!has_future || version < "1.8.0") {
  [13:37:24.103]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:24.103]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:24.103]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:24.103]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:24.103]                         "release", "version")], collapse = " "), 
  [13:37:24.103]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:24.103]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:24.103]                       info)
  [13:37:24.103]                     info <- base::paste(info, collapse = "; ")
  [13:37:24.103]                     if (!has_future) {
  [13:37:24.103]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:24.103]                         info)
  [13:37:24.103]                     }
  [13:37:24.103]                     else {
  [13:37:24.103]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:24.103]                         info, version)
  [13:37:24.103]                     }
  [13:37:24.103]                     base::stop(msg)
  [13:37:24.103]                   }
  [13:37:24.103]                 }
  [13:37:24.103]                 base::local({
  [13:37:24.103]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:37:24.103]                   "future")) {
  [13:37:24.103]                     base::loadNamespace(pkg)
  [13:37:24.103]                     base::library(pkg, character.only = TRUE)
  [13:37:24.103]                   }
  [13:37:24.103]                 })
  [13:37:24.103]             }
  [13:37:24.103]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:24.103]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.103]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.103]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.103]             {
  [13:37:24.103]                 if (substitute) 
  [13:37:24.103]                   expr <- substitute(expr)
  [13:37:24.103]                 if (is.function(workers)) 
  [13:37:24.103]                   workers <- workers()
  [13:37:24.103]                 workers <- as.integer(workers)
  [13:37:24.103]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.103]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.103]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.103]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.103]                     local = TRUE, label = label, ...))
  [13:37:24.103]                 }
  [13:37:24.103]                 oopts <- options(mc.cores = workers)
  [13:37:24.103]                 on.exit(options(oopts))
  [13:37:24.103]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.103]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.103]                   label = label, ...)
  [13:37:24.103]                 if (!future$lazy) 
  [13:37:24.103]                   future <- run(future)
  [13:37:24.103]                 invisible(future)
  [13:37:24.103]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.103]         }
  [13:37:24.103]     }
  [13:37:24.103]     if (base::is.na(TRUE)) {
  [13:37:24.103]     }
  [13:37:24.103]     else {
  [13:37:24.103]         if (TRUE) {
  [13:37:24.103]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:24.103]                 open = "w")
  [13:37:24.103]         }
  [13:37:24.103]         else {
  [13:37:24.103]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:24.103]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:24.103]         }
  [13:37:24.103]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:24.103]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:24.103]             base::sink(type = "output", split = FALSE)
  [13:37:24.103]             base::close(...future.stdout)
  [13:37:24.103]         }, add = TRUE)
  [13:37:24.103]     }
  [13:37:24.103]     ...future.frame <- base::sys.nframe()
  [13:37:24.103]     ...future.conditions <- base::list()
  [13:37:24.103]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:24.103]     ...future.result <- base::tryCatch({
  [13:37:24.103]         base::withCallingHandlers({
  [13:37:24.103]             ...future.value <- base::withVisible(base::local({
  [13:37:24.103]                 doFuture::registerDoFuture()
  [13:37:24.103]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.103]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.103]                   a <- NULL
  [13:37:24.103]                   ...future.env <- environment()
  [13:37:24.103]                   local({
  [13:37:24.103]                     for (name in names(...future.x_jj)) {
  [13:37:24.103]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.103]                         inherits = FALSE)
  [13:37:24.103]                     }
  [13:37:24.103]                   })
  [13:37:24.103]                   tryCatch({
  [13:37:24.103]                     plan_list <- future::plan("next")
  [13:37:24.103]                     stopifnot(inherits(plan_list, strategy2))
  [13:37:24.103]                     plan_a <- future::plan("list")
  [13:37:24.103]                     str(plan_a)
  [13:37:24.103]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:24.103]                     message("foreach() - level 2 ...")
  [13:37:24.103]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:24.103]                       {
  [13:37:24.103]                         plan_list <- future::plan("next")
  [13:37:24.103]                         message(capture.output(print(plan_list)))
  [13:37:24.103]                         stopifnot(inherits(plan_list, "future"))
  [13:37:24.103]                         default <- getOption("future.plan", "sequential")
  [13:37:24.103]                         if (is.function(default)) 
  [13:37:24.103]                           default <- class(default)
  [13:37:24.103]                         stopifnot(inherits(plan_list, default))
  [13:37:24.103]                         plan_b <- future::plan("list")
  [13:37:24.103]                         str(plan_b)
  [13:37:24.103]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.103]                           inherits(plan_b[[1]], default))
  [13:37:24.103]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.103]                       }
  [13:37:24.103]                     message("foreach() - level 2 ... DONE")
  [13:37:24.103]                     y
  [13:37:24.103]                   }, error = identity)
  [13:37:24.103]                 })
  [13:37:24.103]             }))
  [13:37:24.103]             future::FutureResult(value = ...future.value$value, 
  [13:37:24.103]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.103]                   ...future.rng), started = ...future.startTime, 
  [13:37:24.103]                 version = "1.8")
  [13:37:24.103]         }, condition = base::local({
  [13:37:24.103]             c <- base::c
  [13:37:24.103]             inherits <- base::inherits
  [13:37:24.103]             invokeRestart <- base::invokeRestart
  [13:37:24.103]             length <- base::length
  [13:37:24.103]             list <- base::list
  [13:37:24.103]             seq.int <- base::seq.int
  [13:37:24.103]             signalCondition <- base::signalCondition
  [13:37:24.103]             sys.calls <- base::sys.calls
  [13:37:24.103]             Sys.time <- base::Sys.time
  [13:37:24.103]             `[[` <- base::`[[`
  [13:37:24.103]             `+` <- base::`+`
  [13:37:24.103]             `<<-` <- base::`<<-`
  [13:37:24.103]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:24.103]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:24.103]                   3L)]
  [13:37:24.103]             }
  [13:37:24.103]             function(cond) {
  [13:37:24.103]                 if (inherits(cond, "error")) {
  [13:37:24.103]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.103]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:24.103]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:24.103]                   signalCondition(cond)
  [13:37:24.103]                 }
  [13:37:24.103]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:24.103]                 ))) {
  [13:37:24.103]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:24.103]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.103]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:24.103]                   if (!signal) {
  [13:37:24.103]                     muffleCondition <- function (cond) 
  [13:37:24.103]                     {
  [13:37:24.103]                       inherits <- base::inherits
  [13:37:24.103]                       invokeRestart <- base::invokeRestart
  [13:37:24.103]                       muffled <- FALSE
  [13:37:24.103]                       if (inherits(cond, "message")) {
  [13:37:24.103]                         invokeRestart("muffleMessage")
  [13:37:24.103]                         muffled <- TRUE
  [13:37:24.103]                       }
  [13:37:24.103]                       else if (inherits(cond, "warning")) {
  [13:37:24.103]                         invokeRestart("muffleWarning")
  [13:37:24.103]                         muffled <- TRUE
  [13:37:24.103]                       }
  [13:37:24.103]                       else if (inherits(cond, "condition")) {
  [13:37:24.103]                         computeRestarts <- base::computeRestarts
  [13:37:24.103]                         grepl <- base::grepl
  [13:37:24.103]                         is.null <- base::is.null
  [13:37:24.103]                         restarts <- computeRestarts(cond)
  [13:37:24.103]                         for (restart in restarts) {
  [13:37:24.103]                           name <- restart$name
  [13:37:24.103]                           if (is.null(name)) 
  [13:37:24.103]                             next
  [13:37:24.103]                           if (!grepl("^muffle", name)) 
  [13:37:24.103]                             next
  [13:37:24.103]                           invokeRestart(restart)
  [13:37:24.103]                           muffled <- TRUE
  [13:37:24.103]                           break
  [13:37:24.103]                         }
  [13:37:24.103]                       }
  [13:37:24.103]                       invisible(muffled)
  [13:37:24.103]                     }
  [13:37:24.103]                     muffleCondition(cond)
  [13:37:24.103]                   }
  [13:37:24.103]                 }
  [13:37:24.103]             }
  [13:37:24.103]         }))
  [13:37:24.103]     }, error = function(ex) {
  [13:37:24.103]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:24.103]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.103]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:24.103]     }, finally = {
  [13:37:24.103]         {
  [13:37:24.103]             NULL
  [13:37:24.103]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:24.103]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.103]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:24.103]                 label = NULL, ...) 
  [13:37:24.103]             {
  [13:37:24.103]                 if (substitute) 
  [13:37:24.103]                   expr <- substitute(expr)
  [13:37:24.103]                 local <- as.logical(local)
  [13:37:24.103]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:24.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.103]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:24.103]                   label = label, ...)
  [13:37:24.103]                 if (!future$lazy) 
  [13:37:24.103]                   future <- run(future)
  [13:37:24.103]                 invisible(future)
  [13:37:24.103]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:24.103]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.103]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.103]             {
  [13:37:24.103]                 if (substitute) 
  [13:37:24.103]                   expr <- substitute(expr)
  [13:37:24.103]                 if (is.function(workers)) 
  [13:37:24.103]                   workers <- workers()
  [13:37:24.103]                 workers <- as.integer(workers)
  [13:37:24.103]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.103]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.103]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.103]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.103]                     local = TRUE, label = label, ...))
  [13:37:24.103]                 }
  [13:37:24.103]                 oopts <- options(mc.cores = workers)
  [13:37:24.103]                 on.exit(options(oopts))
  [13:37:24.103]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.103]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.103]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.103]                   label = label, ...)
  [13:37:24.103]                 if (!future$lazy) 
  [13:37:24.103]                   future <- run(future)
  [13:37:24.103]                 invisible(future)
  [13:37:24.103]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.103]         }
  [13:37:24.103]         base::options(...future.oldOptions)
  [13:37:24.103]     })
  [13:37:24.103]     Sys.time
  [13:37:24.103]     if (base::is.na(TRUE)) {
  [13:37:24.103]     }
  [13:37:24.103]     else {
  [13:37:24.103]         base::sink(type = "output", split = FALSE)
  [13:37:24.103]         if (TRUE) {
  [13:37:24.103]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:24.103]         }
  [13:37:24.103]         else {
  [13:37:24.103]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:24.103]         }
  [13:37:24.103]         base::close(...future.stdout)
  [13:37:24.103]         ...future.stdout <- NULL
  [13:37:24.103]     }
  [13:37:24.103]     ...future.result$conditions <- ...future.conditions
  [13:37:24.103]     ...future.result
  [13:37:24.103] }
  [13:37:24.111] plan(): Setting new future strategy stack:
  [13:37:24.111] List of future strategies:
  [13:37:24.111] 1. multicore:
  [13:37:24.111]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:24.111]    - tweaked: FALSE
  [13:37:24.111]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:24.152] plan(): nbrOfWorkers() = 2
  [13:37:24.759] plan(): Setting new future strategy stack:
  [13:37:24.759] List of future strategies:
  [13:37:24.759] 1. sequential:
  [13:37:24.759]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:24.759]    - tweaked: FALSE
  [13:37:24.759]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:24.759] 2. multicore:
  [13:37:24.759]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:37:24.759]    - tweaked: FALSE
  [13:37:24.759]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:24.761] plan(): nbrOfWorkers() = 1
  [13:37:24.762] SequentialFuture started (and completed)
  [13:37:24.762] signalConditions() ...
  [13:37:24.762]  - include = 'immediateCondition'
  [13:37:24.763]  - exclude = 
  [13:37:24.763]  - resignal = FALSE
  [13:37:24.763]  - Number of conditions: 422
  [13:37:24.765] signalConditions() ... done
  [13:37:24.766] Chunk #1 of 1 ... DONE
  [13:37:24.766] Launching 1 futures (chunks) ... DONE
  [13:37:24.768] - resolving futures
  [13:37:24.768]   - gathering results & relaying conditions (except errors)
  [13:37:24.768] resolve() on list ...
  [13:37:24.769]  recursive: 0
  [13:37:24.769]  length: 1
  [13:37:24.769] 
  [13:37:24.770] Future #1
  [13:37:24.770] signalConditions() ...
  [13:37:24.770]  - include = 'immediateCondition'
  [13:37:24.771]  - exclude = 
  [13:37:24.771]  - resignal = FALSE
  [13:37:24.771]  - Number of conditions: 422
  [13:37:24.773] signalConditions() ... done
  [13:37:24.774] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:24.774] - nx: 1
  [13:37:24.775] - relay: TRUE
  [13:37:24.775] - stdout: TRUE
  [13:37:24.775] - signal: TRUE
  [13:37:24.775] - resignal: FALSE
  [13:37:24.776] - force: FALSE
  [13:37:24.776] - relayed: [n=1] FALSE
  [13:37:24.776] - queued futures: [n=1] FALSE
  [13:37:24.777]  - until=1
  [13:37:24.777]  - relaying element #1
  [13:37:24.777] signalConditions() ...
  [13:37:24.778]  - include = 'immediateCondition'
  [13:37:24.778]  - exclude = 
  [13:37:24.778]  - resignal = FALSE
  [13:37:24.779]  - Number of conditions: 422
  [13:37:24.781] 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"
  [13:37:24.781] signalConditions() ...
  [13:37:24.782]  - include = 'immediateCondition'
  [13:37:24.782]  - exclude = 
  [13:37:24.782]  - resignal = FALSE
  [13:37:24.782]  - Number of conditions: 422
  [13:37:24.785] signalConditions() ... done
  [13:37:24.785] signalConditions() ...
  [13:37:24.785]  - include = 'condition'
  [13:37:24.786]  - exclude = 'immediateCondition'
  [13:37:24.786]  - resignal = FALSE
  [13:37:24.786]  - Number of conditions: 422
  [13:37:24.787]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:24.787]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:24.159] doFuture() ...
  [13:37:24.788]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:24.161] - dummy globals (as locals): [1] 'b'
  [13:37:24.788]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [13:37:24.162] - R expression:
  [13:37:24.788]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [13:37:24.163] {
  [13:37:24.163]     doFuture::registerDoFuture()
  [13:37:24.163]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.163]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.163]         b <- NULL
  [13:37:24.163]         ...future.env <- environment()
  [13:37:24.163]         local({
  [13:37:24.163]             for (name in names(...future.x_jj)) {
  [13:37:24.163]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.163]                   inherits = FALSE)
  [13:37:24.163]             }
  [13:37:24.163]         })
  [13:37:24.163]         tryCatch({
  [13:37:24.163]             plan_list <- future::plan("next")
  [13:37:24.163]             message(capture.output(print(plan_list)))
  [13:37:24.163]             stopifnot(inherits(plan_list, "future"))
  [13:37:24.163]             default <- getOption("future.plan", "sequential")
  [13:37:24.163]             if (is.function(default)) 
  [13:37:24.163]                 default <- class(default)
  [13:37:24.163]             stopifnot(inherits(plan_list, default))
  [13:37:24.163]             plan_b <- future::plan("list")
  [13:37:24.163]             str(plan_b)
  [13:37:24.163]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:24.163]                 default))
  [13:37:24.163]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.163]         }, error = identity)
  [13:37:24.163]     })
  [13:37:24.163] }
  [13:37:24.789]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [13:37:24.164] - identifying globals and packages ...
  [13:37:24.789]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [13:37:24.165] getGlobalsAndPackages() ...
  [13:37:24.790]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [13:37:24.165] Searching for globals...
  [13:37:24.790]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [13:37:24.240] - 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'
  [13:37:24.791]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [13:37:24.240] Searching for globals ... DONE
  [13:37:24.791]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [13:37:24.241] Resolving globals: FALSE
  [13:37:24.792]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [13:37:24.244] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [13:37:24.792]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [13:37:24.245] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.793]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [13:37:24.245] - packages: [1] 'utils'
  [13:37:24.793]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [13:37:24.245] getGlobalsAndPackages() ... DONE
  [13:37:24.793]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [13:37:24.246] List of 3
  [13:37:24.246]  $ ...future.x_ii: NULL
  [13:37:24.246]  $ a             : int 1
  [13:37:24.246]  $ plan_a        :List of 1
  [13:37:24.246]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:24.246]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.246]     earlySignal = FALSE, label = NULL, ...)  
  [13:37:24.246]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:37:24.246]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:24.246]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:24.246]  - attr(*, "where")=List of 3
  [13:37:24.246]   ..$ ...future.x_ii:<environment: 0x561c1bae1d08> 
  [13:37:24.246]   ..$ a             :<environment: 0x561c1a5939d8> 
  [13:37:24.246]   ..$ plan_a        :<environment: 0x561c1a5939d8> 
  [13:37:24.246]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.246]  - attr(*, "resolved")= logi FALSE
  [13:37:24.246]  - attr(*, "total_size")= num 76816
  [13:37:24.794]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [13:37:24.259]   - R expression:
  [13:37:24.794]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [13:37:24.259] {
  [13:37:24.259]     doFuture::registerDoFuture()
  [13:37:24.259]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.259]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.259]         b <- NULL
  [13:37:24.259]         ...future.env <- environment()
  [13:37:24.259]         local({
  [13:37:24.259]             for (name in names(...future.x_jj)) {
  [13:37:24.259]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.259]                   inherits = FALSE)
  [13:37:24.259]             }
  [13:37:24.259]         })
  [13:37:24.259]         tryCatch({
  [13:37:24.259]             plan_list <- future::plan("next")
  [13:37:24.259]             message(capture.output(print(plan_list)))
  [13:37:24.259]             stopifnot(inherits(plan_list, "future"))
  [13:37:24.259]             default <- getOption("future.plan", "sequential")
  [13:37:24.259]             if (is.function(default)) 
  [13:37:24.259]                 default <- class(default)
  [13:37:24.259]             stopifnot(inherits(plan_list, default))
  [13:37:24.259]             plan_b <- future::plan("list")
  [13:37:24.259]             str(plan_b)
  [13:37:24.259]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:24.259]                 default))
  [13:37:24.259]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.259]         }, error = identity)
  [13:37:24.259]     })
  [13:37:24.259] }
  [13:37:24.795]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [13:37:24.261]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.795]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [13:37:24.261] List of 3
  [13:37:24.261]  $ ...future.x_ii: NULL
  [13:37:24.261]  $ a             : int 1
  [13:37:24.261]  $ plan_a        :List of 1
  [13:37:24.261]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:24.261]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.261]     earlySignal = FALSE, label = NULL, ...)  
  [13:37:24.261]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:37:24.261]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:24.261]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:24.261]  - attr(*, "where")=List of 3
  [13:37:24.261]   ..$ ...future.x_ii:<environment: 0x561c1bae1d08> 
  [13:37:24.261]   ..$ a             :<environment: 0x561c1a5939d8> 
  [13:37:24.261]   ..$ plan_a        :<environment: 0x561c1a5939d8> 
  [13:37:24.261]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.261]  - attr(*, "resolved")= logi FALSE
  [13:37:24.261]  - attr(*, "total_size")= num 76816
  [13:37:24.796]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [13:37:24.275]   - packages: [2] 'doFuture', 'utils'
  [13:37:24.796]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [13:37:24.276] - identifying globals and packages ... DONE
  [13:37:24.797]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [13:37:24.280] Number of chunks: 2
  [13:37:24.797]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [13:37:24.280] Number of futures (= number of chunks): 2
  [13:37:24.798]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [13:37:24.281] Launching 2 futures (chunks) ...
  [13:37:24.798]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [13:37:24.282] Chunk #1 of 2 ...
  [13:37:24.802]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [13:37:24.282]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:24.803]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [13:37:24.283] getGlobalsAndPackages() ...
  [13:37:24.803]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [13:37:24.283] Searching for globals...
  [13:37:24.804]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [13:37:24.284] 
  [13:37:24.805]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [13:37:24.284] Searching for globals ... DONE
  [13:37:24.805]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [13:37:24.285] - globals: [0] <none>
  [13:37:24.806]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [13:37:24.285] getGlobalsAndPackages() ... DONE
  [13:37:24.806]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [13:37:24.286] 
  [13:37:24.807]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [13:37:24.286] 
  [13:37:24.807]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [13:37:24.287]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:24.808]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [13:37:24.288] getGlobalsAndPackages() ...
  [13:37:24.808]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [13:37:24.289] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.809]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [13:37:24.289] Resolving globals: FALSE
  [13:37:24.809]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [13:37:24.291] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [13:37:24.809]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [13:37:24.291] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.810]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [13:37:24.292] 
  [13:37:24.810]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [13:37:24.292] getGlobalsAndPackages() ... DONE
  [13:37:24.811]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [13:37:24.296] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:24.811]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [13:37:24.296] Packages needed by future strategies (n = 0): <none>
  [13:37:24.812]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [13:37:24.307] {
  [13:37:24.307]     {
  [13:37:24.307]         ...future.startTime <- base::Sys.time()
  [13:37:24.307]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:24.307]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:24.307]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:24.307]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:24.307]             future.resolve.recursive = NULL, width = 80L)
  [13:37:24.307]         {
  [13:37:24.307]             {
  [13:37:24.307]                 {
  [13:37:24.307]                   {
  [13:37:24.307]                     has_future <- base::requireNamespace("future", 
  [13:37:24.307]                       quietly = TRUE)
  [13:37:24.307]                     version <- if (has_future) 
  [13:37:24.307]                       utils::packageVersion("future")
  [13:37:24.307]                     else NULL
  [13:37:24.307]                     if (!has_future || version < "1.8.0") {
  [13:37:24.307]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:24.307]                         "", base::R.version$version.string), 
  [13:37:24.307]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:24.307]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:24.307]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:24.307]                           "release", "version")], collapse = " "), 
  [13:37:24.307]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:24.307]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:24.307]                         info)
  [13:37:24.307]                       info <- base::paste(info, collapse = "; ")
  [13:37:24.307]                       if (!has_future) {
  [13:37:24.307]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:24.307]                           info)
  [13:37:24.307]                       }
  [13:37:24.307]                       else {
  [13:37:24.307]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:24.307]                           info, version)
  [13:37:24.307]                       }
  [13:37:24.307]                       base::stop(msg)
  [13:37:24.307]                     }
  [13:37:24.307]                   }
  [13:37:24.307]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:24.307]                   base::options(mc.cores = 1L)
  [13:37:24.307]                 }
  [13:37:24.307]                 base::local({
  [13:37:24.307]                   for (pkg in c("doFuture", "utils")) {
  [13:37:24.307]                     base::loadNamespace(pkg)
  [13:37:24.307]                     base::library(pkg, character.only = TRUE)
  [13:37:24.307]                   }
  [13:37:24.307]                 })
  [13:37:24.307]             }
  [13:37:24.307]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:24.307]         }
  [13:37:24.307]     }
  [13:37:24.307]     if (base::is.na(TRUE)) {
  [13:37:24.307]     }
  [13:37:24.307]     else {
  [13:37:24.307]         if (TRUE) {
  [13:37:24.307]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:24.307]                 open = "w")
  [13:37:24.307]         }
  [13:37:24.307]         else {
  [13:37:24.307]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:24.307]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:24.307]         }
  [13:37:24.307]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:24.307]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:24.307]             base::sink(type = "output", split = FALSE)
  [13:37:24.307]             base::close(...future.stdout)
  [13:37:24.307]         }, add = TRUE)
  [13:37:24.307]     }
  [13:37:24.307]     ...future.frame <- base::sys.nframe()
  [13:37:24.307]     ...future.conditions <- base::list()
  [13:37:24.307]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:24.307]     ...future.result <- base::tryCatch({
  [13:37:24.307]         base::withCallingHandlers({
  [13:37:24.307]             ...future.value <- base::withVisible(base::local({
  [13:37:24.307]                 doFuture::registerDoFuture()
  [13:37:24.307]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.307]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.307]                   b <- NULL
  [13:37:24.307]                   ...future.env <- environment()
  [13:37:24.307]                   local({
  [13:37:24.307]                     for (name in names(...future.x_jj)) {
  [13:37:24.307]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.307]                         inherits = FALSE)
  [13:37:24.307]                     }
  [13:37:24.307]                   })
  [13:37:24.307]                   tryCatch({
  [13:37:24.307]                     plan_list <- future::plan("next")
  [13:37:24.307]                     message(capture.output(print(plan_list)))
  [13:37:24.307]                     stopifnot(inherits(plan_list, "future"))
  [13:37:24.307]                     default <- getOption("future.plan", "sequential")
  [13:37:24.307]                     if (is.function(default)) 
  [13:37:24.307]                       default <- class(default)
  [13:37:24.307]                     stopifnot(inherits(plan_list, default))
  [13:37:24.307]                     plan_b <- future::plan("list")
  [13:37:24.307]                     str(plan_b)
  [13:37:24.307]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.307]                       inherits(plan_b[[1]], default))
  [13:37:24.307]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.307]                   }, error = identity)
  [13:37:24.307]                 })
  [13:37:24.307]             }))
  [13:37:24.307]             future::FutureResult(value = ...future.value$value, 
  [13:37:24.307]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.307]                   ...future.rng), started = ...future.startTime, 
  [13:37:24.307]                 version = "1.8")
  [13:37:24.307]         }, condition = base::local({
  [13:37:24.307]             c <- base::c
  [13:37:24.307]             inherits <- base::inherits
  [13:37:24.307]             invokeRestart <- base::invokeRestart
  [13:37:24.307]             length <- base::length
  [13:37:24.307]             list <- base::list
  [13:37:24.307]             seq.int <- base::seq.int
  [13:37:24.307]             signalCondition <- base::signalCondition
  [13:37:24.307]             sys.calls <- base::sys.calls
  [13:37:24.307]             Sys.time <- base::Sys.time
  [13:37:24.307]             `[[` <- base::`[[`
  [13:37:24.307]             `+` <- base::`+`
  [13:37:24.307]             `<<-` <- base::`<<-`
  [13:37:24.307]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:24.307]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:24.307]                   3L)]
  [13:37:24.307]             }
  [13:37:24.307]             function(cond) {
  [13:37:24.307]                 if (inherits(cond, "error")) {
  [13:37:24.307]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.307]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:24.307]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:24.307]                   signalCondition(cond)
  [13:37:24.307]                 }
  [13:37:24.307]                 else if (inherits(cond, "condition")) {
  [13:37:24.307]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:24.307]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.307]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:24.307]                   if (!signal) {
  [13:37:24.307]                     muffleCondition <- function (cond) 
  [13:37:24.307]                     {
  [13:37:24.307]                       inherits <- base::inherits
  [13:37:24.307]                       invokeRestart <- base::invokeRestart
  [13:37:24.307]                       muffled <- FALSE
  [13:37:24.307]                       if (inherits(cond, "message")) {
  [13:37:24.307]                         invokeRestart("muffleMessage")
  [13:37:24.307]                         muffled <- TRUE
  [13:37:24.307]                       }
  [13:37:24.307]                       else if (inherits(cond, "warning")) {
  [13:37:24.307]                         invokeRestart("muffleWarning")
  [13:37:24.307]                         muffled <- TRUE
  [13:37:24.307]                       }
  [13:37:24.307]                       else if (inherits(cond, "condition")) {
  [13:37:24.307]                         computeRestarts <- base::computeRestarts
  [13:37:24.307]                         grepl <- base::grepl
  [13:37:24.307]                         is.null <- base::is.null
  [13:37:24.307]                         restarts <- computeRestarts(cond)
  [13:37:24.307]                         for (restart in restarts) {
  [13:37:24.307]                           name <- restart$name
  [13:37:24.307]                           if (is.null(name)) 
  [13:37:24.307]                             next
  [13:37:24.307]                           if (!grepl("^muffle", name)) 
  [13:37:24.307]                             next
  [13:37:24.307]                           invokeRestart(restart)
  [13:37:24.307]                           muffled <- TRUE
  [13:37:24.307]                           break
  [13:37:24.307]                         }
  [13:37:24.307]                       }
  [13:37:24.307]                       invisible(muffled)
  [13:37:24.307]                     }
  [13:37:24.307]                     muffleCondition(cond)
  [13:37:24.307]                   }
  [13:37:24.307]                 }
  [13:37:24.307]             }
  [13:37:24.307]         }))
  [13:37:24.307]     }, error = function(ex) {
  [13:37:24.307]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:24.307]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.307]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:24.307]     }, finally = {
  [13:37:24.307]         {
  [13:37:24.307]             {
  [13:37:24.307]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:24.307]             }
  [13:37:24.307]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:24.307]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.307]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.307]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.307]             {
  [13:37:24.307]                 if (substitute) 
  [13:37:24.307]                   expr <- substitute(expr)
  [13:37:24.307]                 if (is.function(workers)) 
  [13:37:24.307]                   workers <- workers()
  [13:37:24.307]                 workers <- as.integer(workers)
  [13:37:24.307]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.307]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.307]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.307]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.307]                     local = TRUE, label = label, ...))
  [13:37:24.307]                 }
  [13:37:24.307]                 oopts <- options(mc.cores = workers)
  [13:37:24.307]                 on.exit(options(oopts))
  [13:37:24.307]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.307]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.307]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.307]                   label = label, ...)
  [13:37:24.307]                 if (!future$lazy) 
  [13:37:24.307]                   future <- run(future)
  [13:37:24.307]                 invisible(future)
  [13:37:24.307]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.307]         }
  [13:37:24.307]         base::options(...future.oldOptions)
  [13:37:24.307]     })
  [13:37:24.307]     Sys.time
  [13:37:24.307]     if (base::is.na(TRUE)) {
  [13:37:24.307]     }
  [13:37:24.307]     else {
  [13:37:24.307]         base::sink(type = "output", split = FALSE)
  [13:37:24.307]         if (TRUE) {
  [13:37:24.307]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:24.307]         }
  [13:37:24.307]         else {
  [13:37:24.307]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:24.307]         }
  [13:37:24.307]         base::close(...future.stdout)
  [13:37:24.307]         ...future.stdout <- NULL
  [13:37:24.307]     }
  [13:37:24.307]     ...future.result$conditions <- ...future.conditions
  [13:37:24.307]     ...future.result
  [13:37:24.307] }
  [13:37:24.812]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [13:37:24.312] requestCore(): workers = 2
  [13:37:24.813]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [13:37:24.319] MulticoreFuture started
  [13:37:24.813]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [13:37:24.322] Chunk #1 of 2 ... DONE
  [13:37:24.814]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [13:37:24.324] Chunk #2 of 2 ...
  [13:37:24.814]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [13:37:24.326]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:24.814]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [13:37:24.327] getGlobalsAndPackages() ...
  [13:37:24.815]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [13:37:24.327] Searching for globals...
  [13:37:24.815]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [13:37:24.329] 
  [13:37:24.816]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [13:37:24.330] Searching for globals ... DONE
  [13:37:24.816]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [13:37:24.330] - globals: [0] <none>
  [13:37:24.817]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [13:37:24.331] getGlobalsAndPackages() ... DONE
  [13:37:24.817]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [13:37:24.332] 
  [13:37:24.817]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [13:37:24.332] 
  [13:37:24.818]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [13:37:24.333]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:24.818]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [13:37:24.335] getGlobalsAndPackages() ...
  [13:37:24.819]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [13:37:24.336] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.819]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [13:37:24.336] Resolving globals: FALSE
  [13:37:24.820]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [13:37:24.339] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [13:37:24.820]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [13:37:24.339] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.820]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [13:37:24.340] 
  [13:37:24.821]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [13:37:24.341] getGlobalsAndPackages() ... DONE
  [13:37:24.821]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [13:37:24.344] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:24.822]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [13:37:24.345] Packages needed by future strategies (n = 0): <none>
  [13:37:24.822]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [13:37:24.353] {
  [13:37:24.353]     {
  [13:37:24.353]         ...future.startTime <- base::Sys.time()
  [13:37:24.353]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:24.353]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:24.353]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:24.353]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:24.353]             future.resolve.recursive = NULL, width = 80L)
  [13:37:24.353]         {
  [13:37:24.353]             {
  [13:37:24.353]                 {
  [13:37:24.353]                   {
  [13:37:24.353]                     has_future <- base::requireNamespace("future", 
  [13:37:24.353]                       quietly = TRUE)
  [13:37:24.353]                     version <- if (has_future) 
  [13:37:24.353]                       utils::packageVersion("future")
  [13:37:24.353]                     else NULL
  [13:37:24.353]                     if (!has_future || version < "1.8.0") {
  [13:37:24.353]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:24.353]                         "", base::R.version$version.string), 
  [13:37:24.353]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:24.353]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:24.353]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:24.353]                           "release", "version")], collapse = " "), 
  [13:37:24.353]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:24.353]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:24.353]                         info)
  [13:37:24.353]                       info <- base::paste(info, collapse = "; ")
  [13:37:24.353]                       if (!has_future) {
  [13:37:24.353]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:24.353]                           info)
  [13:37:24.353]                       }
  [13:37:24.353]                       else {
  [13:37:24.353]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:24.353]                           info, version)
  [13:37:24.353]                       }
  [13:37:24.353]                       base::stop(msg)
  [13:37:24.353]                     }
  [13:37:24.353]                   }
  [13:37:24.353]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:24.353]                   base::options(mc.cores = 1L)
  [13:37:24.353]                 }
  [13:37:24.353]                 base::local({
  [13:37:24.353]                   for (pkg in c("doFuture", "utils")) {
  [13:37:24.353]                     base::loadNamespace(pkg)
  [13:37:24.353]                     base::library(pkg, character.only = TRUE)
  [13:37:24.353]                   }
  [13:37:24.353]                 })
  [13:37:24.353]             }
  [13:37:24.353]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:24.353]         }
  [13:37:24.353]     }
  [13:37:24.353]     if (base::is.na(TRUE)) {
  [13:37:24.353]     }
  [13:37:24.353]     else {
  [13:37:24.353]         if (TRUE) {
  [13:37:24.353]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:24.353]                 open = "w")
  [13:37:24.353]         }
  [13:37:24.353]         else {
  [13:37:24.353]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:24.353]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:24.353]         }
  [13:37:24.353]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:24.353]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:24.353]             base::sink(type = "output", split = FALSE)
  [13:37:24.353]             base::close(...future.stdout)
  [13:37:24.353]         }, add = TRUE)
  [13:37:24.353]     }
  [13:37:24.353]     ...future.frame <- base::sys.nframe()
  [13:37:24.353]     ...future.conditions <- base::list()
  [13:37:24.353]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:24.353]     ...future.result <- base::tryCatch({
  [13:37:24.353]         base::withCallingHandlers({
  [13:37:24.353]             ...future.value <- base::withVisible(base::local({
  [13:37:24.353]                 doFuture::registerDoFuture()
  [13:37:24.353]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.353]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.353]                   b <- NULL
  [13:37:24.353]                   ...future.env <- environment()
  [13:37:24.353]                   local({
  [13:37:24.353]                     for (name in names(...future.x_jj)) {
  [13:37:24.353]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.353]                         inherits = FALSE)
  [13:37:24.353]                     }
  [13:37:24.353]                   })
  [13:37:24.353]                   tryCatch({
  [13:37:24.353]                     plan_list <- future::plan("next")
  [13:37:24.353]                     message(capture.output(print(plan_list)))
  [13:37:24.353]                     stopifnot(inherits(plan_list, "future"))
  [13:37:24.353]                     default <- getOption("future.plan", "sequential")
  [13:37:24.353]                     if (is.function(default)) 
  [13:37:24.353]                       default <- class(default)
  [13:37:24.353]                     stopifnot(inherits(plan_list, default))
  [13:37:24.353]                     plan_b <- future::plan("list")
  [13:37:24.353]                     str(plan_b)
  [13:37:24.353]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.353]                       inherits(plan_b[[1]], default))
  [13:37:24.353]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.353]                   }, error = identity)
  [13:37:24.353]                 })
  [13:37:24.353]             }))
  [13:37:24.353]             future::FutureResult(value = ...future.value$value, 
  [13:37:24.353]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.353]                   ...future.rng), started = ...future.startTime, 
  [13:37:24.353]                 version = "1.8")
  [13:37:24.353]         }, condition = base::local({
  [13:37:24.353]             c <- base::c
  [13:37:24.353]             inherits <- base::inherits
  [13:37:24.353]             invokeRestart <- base::invokeRestart
  [13:37:24.353]             length <- base::length
  [13:37:24.353]             list <- base::list
  [13:37:24.353]             seq.int <- base::seq.int
  [13:37:24.353]             signalCondition <- base::signalCondition
  [13:37:24.353]             sys.calls <- base::sys.calls
  [13:37:24.353]             Sys.time <- base::Sys.time
  [13:37:24.353]             `[[` <- base::`[[`
  [13:37:24.353]             `+` <- base::`+`
  [13:37:24.353]             `<<-` <- base::`<<-`
  [13:37:24.353]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:24.353]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:24.353]                   3L)]
  [13:37:24.353]             }
  [13:37:24.353]             function(cond) {
  [13:37:24.353]                 if (inherits(cond, "error")) {
  [13:37:24.353]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.353]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:24.353]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:24.353]                   signalCondition(cond)
  [13:37:24.353]                 }
  [13:37:24.353]                 else if (inherits(cond, "condition")) {
  [13:37:24.353]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:24.353]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.353]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:24.353]                   if (!signal) {
  [13:37:24.353]                     muffleCondition <- function (cond) 
  [13:37:24.353]                     {
  [13:37:24.353]                       inherits <- base::inherits
  [13:37:24.353]                       invokeRestart <- base::invokeRestart
  [13:37:24.353]                       muffled <- FALSE
  [13:37:24.353]                       if (inherits(cond, "message")) {
  [13:37:24.353]                         invokeRestart("muffleMessage")
  [13:37:24.353]                         muffled <- TRUE
  [13:37:24.353]                       }
  [13:37:24.353]                       else if (inherits(cond, "warning")) {
  [13:37:24.353]                         invokeRestart("muffleWarning")
  [13:37:24.353]                         muffled <- TRUE
  [13:37:24.353]                       }
  [13:37:24.353]                       else if (inherits(cond, "condition")) {
  [13:37:24.353]                         computeRestarts <- base::computeRestarts
  [13:37:24.353]                         grepl <- base::grepl
  [13:37:24.353]                         is.null <- base::is.null
  [13:37:24.353]                         restarts <- computeRestarts(cond)
  [13:37:24.353]                         for (restart in restarts) {
  [13:37:24.353]                           name <- restart$name
  [13:37:24.353]                           if (is.null(name)) 
  [13:37:24.353]                             next
  [13:37:24.353]                           if (!grepl("^muffle", name)) 
  [13:37:24.353]                             next
  [13:37:24.353]                           invokeRestart(restart)
  [13:37:24.353]                           muffled <- TRUE
  [13:37:24.353]                           break
  [13:37:24.353]                         }
  [13:37:24.353]                       }
  [13:37:24.353]                       invisible(muffled)
  [13:37:24.353]                     }
  [13:37:24.353]                     muffleCondition(cond)
  [13:37:24.353]                   }
  [13:37:24.353]                 }
  [13:37:24.353]             }
  [13:37:24.353]         }))
  [13:37:24.353]     }, error = function(ex) {
  [13:37:24.353]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:24.353]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.353]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:24.353]     }, finally = {
  [13:37:24.353]         {
  [13:37:24.353]             {
  [13:37:24.353]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:24.353]             }
  [13:37:24.353]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:24.353]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.353]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.353]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.353]             {
  [13:37:24.353]                 if (substitute) 
  [13:37:24.353]                   expr <- substitute(expr)
  [13:37:24.353]                 if (is.function(workers)) 
  [13:37:24.353]                   workers <- workers()
  [13:37:24.353]                 workers <- as.integer(workers)
  [13:37:24.353]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.353]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.353]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.353]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.353]                     local = TRUE, label = label, ...))
  [13:37:24.353]                 }
  [13:37:24.353]                 oopts <- options(mc.cores = workers)
  [13:37:24.353]                 on.exit(options(oopts))
  [13:37:24.353]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.353]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.353]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.353]                   label = label, ...)
  [13:37:24.353]                 if (!future$lazy) 
  [13:37:24.353]                   future <- run(future)
  [13:37:24.353]                 invisible(future)
  [13:37:24.353]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.353]         }
  [13:37:24.353]         base::options(...future.oldOptions)
  [13:37:24.353]     })
  [13:37:24.353]     Sys.time
  [13:37:24.353]     if (base::is.na(TRUE)) {
  [13:37:24.353]     }
  [13:37:24.353]     else {
  [13:37:24.353]         base::sink(type = "output", split = FALSE)
  [13:37:24.353]         if (TRUE) {
  [13:37:24.353]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:24.353]         }
  [13:37:24.353]         else {
  [13:37:24.353]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:24.353]         }
  [13:37:24.353]         base::close(...future.stdout)
  [13:37:24.353]         ...future.stdout <- NULL
  [13:37:24.353]     }
  [13:37:24.353]     ...future.result$conditions <- ...future.conditions
  [13:37:24.353]     ...future.result
  [13:37:24.353] }
  [13:37:24.823]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [13:37:24.359] requestCore(): workers = 2
  [13:37:24.823]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [13:37:24.370] MulticoreFuture started
  [13:37:24.824]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [13:37:24.371] Chunk #2 of 2 ... DONE
  [13:37:24.824]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [13:37:24.372] Launching 2 futures (chunks) ... DONE
  [13:37:24.824]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [13:37:24.373] - resolving futures
  [13:37:24.825]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [13:37:24.373]   - gathering results & relaying conditions (except errors)
  [13:37:24.825]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [13:37:24.374] resolve() on list ...
  [13:37:24.826]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [13:37:24.375]  recursive: 0
  [13:37:24.826]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [13:37:24.375]  length: 2
  [13:37:24.827]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [13:37:24.376] 
  [13:37:24.827]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [13:37:24.380] Future #1
  [13:37:24.828]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [13:37:24.386] signalConditions() ...
  [13:37:24.828]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [13:37:24.387]  - include = 'immediateCondition'
  [13:37:24.828]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [13:37:24.388]  - exclude = 
  [13:37:24.829]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [13:37:24.388]  - resignal = FALSE
  [13:37:24.829]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [13:37:24.389]  - Number of conditions: 1
  [13:37:24.830]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [13:37:24.389] signalConditions() ... done
  [13:37:24.830]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [13:37:24.390] signalConditions() ...
  [13:37:24.831]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [13:37:24.391]  - include = 'immediateCondition'
  [13:37:24.831]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [13:37:24.391]  - exclude = 
  [13:37:24.831]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [13:37:24.392]  - resignal = FALSE
  [13:37:24.832]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [13:37:24.393]  - Number of conditions: 1
  [13:37:24.832]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [13:37:24.393] signalConditions() ... done
  [13:37:24.833]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [13:37:24.394] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:24.833]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [13:37:24.394] - nx: 2
  [13:37:24.834]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [13:37:24.395] - relay: TRUE
  [13:37:24.834]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [13:37:24.395] - stdout: TRUE
  [13:37:24.835]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [13:37:24.396] - signal: TRUE
  [13:37:24.835]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [13:37:24.396] - resignal: FALSE
  [13:37:24.835]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [13:37:24.397] - force: FALSE
  [13:37:24.836]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [13:37:24.397] - relayed: [n=2] FALSE, FALSE
  [13:37:24.836]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [13:37:24.398] - queued futures: [n=2] FALSE, FALSE
  [13:37:24.837]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [13:37:24.399]  - until=1
  [13:37:24.837]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [13:37:24.399]  - relaying element #1
  [13:37:24.838]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [13:37:24.400] signalConditions() ...
  [13:37:24.838]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [13:37:24.400]  - include = 'immediateCondition'
  [13:37:24.838]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [13:37:24.401]  - exclude = 
  [13:37:24.839]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [13:37:24.402]  - resignal = FALSE
  [13:37:24.839]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [13:37:24.402]  - Number of conditions: 1
  [13:37:24.840]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [13:37:24.403] signalConditions() ... done
  [13:37:24.840]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [13:37:24.403] signalConditions() ...
  [13:37:24.841]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [13:37:24.404]  - include = 'immediateCondition'
  [13:37:24.841]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [13:37:24.404]  - exclude = 
  [13:37:24.841]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [13:37:24.405]  - resignal = FALSE
  [13:37:24.842]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [13:37:24.406]  - Number of conditions: 1
  [13:37:24.842]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [13:37:24.406] signalConditions() ... done
  [13:37:24.843]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [13:37:24.407] signalConditions() ...
  [13:37:24.843]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [13:37:24.407]  - include = 'condition'
  [13:37:24.844]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [13:37:24.408]  - exclude = 'immediateCondition'
  [13:37:24.844]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [13:37:24.408]  - resignal = FALSE
  [13:37:24.845]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [13:37:24.409]  - Number of conditions: 1
  [13:37:24.845]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [13:37:24.409]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:24.845]  - 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
  [13:37:24.846]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [13:37:24.410] signalConditions() ... done
  [13:37:24.846]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [13:37:24.411] - relayed: [n=2] TRUE, FALSE
  [13:37:24.847]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [13:37:24.411] - queued futures: [n=2] TRUE, FALSE
  [13:37:24.847]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [13:37:24.412] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:24.848]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [13:37:24.413]  length: 1 (resolved future 1)
  [13:37:24.848]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [13:37:24.435] Future #2
  [13:37:24.848]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [13:37:24.443] signalConditions() ...
  [13:37:24.849]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [13:37:24.444]  - include = 'immediateCondition'
  [13:37:24.849]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [13:37:24.445]  - exclude = 
  [13:37:24.850]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [13:37:24.445]  - resignal = FALSE
  [13:37:24.850]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [13:37:24.446]  - Number of conditions: 2
  [13:37:24.851]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [13:37:24.446] signalConditions() ... done
  [13:37:24.851]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [13:37:24.447] signalConditions() ...
  [13:37:24.851]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [13:37:24.459]  - include = 'immediateCondition'
  [13:37:24.852]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [13:37:24.460]  - exclude = 
  [13:37:24.852]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [13:37:24.461]  - resignal = FALSE
  [13:37:24.853]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [13:37:24.461]  - Number of conditions: 2
  [13:37:24.853]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [13:37:24.462] signalConditions() ... done
  [13:37:24.854]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [13:37:24.463] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:24.854]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [13:37:24.463] - nx: 2
  [13:37:24.855]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [13:37:24.464] - relay: TRUE
  [13:37:24.855]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [13:37:24.464] - stdout: TRUE
  [13:37:24.855]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [13:37:24.465] - signal: TRUE
  [13:37:24.856]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [13:37:24.465] - resignal: FALSE
  [13:37:24.856]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [13:37:24.466] - force: FALSE
  [13:37:24.857]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [13:37:24.467] - relayed: [n=2] TRUE, FALSE
  [13:37:24.857]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [13:37:24.467] - queued futures: [n=2] TRUE, FALSE
  [13:37:24.858]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [13:37:24.468]  - until=2
  [13:37:24.858]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [13:37:24.468]  - relaying element #2
  [13:37:24.858]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [13:37:24.469] signalConditions() ...
  [13:37:24.859]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [13:37:24.469]  - include = 'immediateCondition'
  [13:37:24.859]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [13:37:24.470]  - exclude = 
  [13:37:24.860]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [13:37:24.470]  - resignal = FALSE
  [13:37:24.860]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [13:37:24.471]  - Number of conditions: 2
  [13:37:24.861]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [13:37:24.471] signalConditions() ... done
  [13:37:24.861]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [13:37:24.472] signalConditions() ...
  [13:37:24.862]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [13:37:24.472]  - include = 'immediateCondition'
  [13:37:24.862]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [13:37:24.473]  - exclude = 
  [13:37:24.862]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [13:37:24.473]  - resignal = FALSE
  [13:37:24.863]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [13:37:24.474]  - Number of conditions: 2
  [13:37:24.863]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [13:37:24.474] signalConditions() ... done
  [13:37:24.864]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [13:37:24.475] signalConditions() ...
  [13:37:24.864]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [13:37:24.475]  - include = 'condition'
  [13:37:24.865]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [13:37:24.476]  - exclude = 'immediateCondition'
  [13:37:24.865]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [13:37:24.476]  - resignal = FALSE
  [13:37:24.865]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [13:37:24.476]  - Number of conditions: 2
  [13:37:24.866]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [13:37:24.477]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:24.866]  - 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
  [13:37:24.870]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [13:37:24.478]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:24.871]  - 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
  [13:37:24.871]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [13:37:24.478] signalConditions() ... done
  [13:37:24.872]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [13:37:24.479] - relayed: [n=2] TRUE, TRUE
  [13:37:24.872]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [13:37:24.479] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.872]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [13:37:24.480] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:24.873]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [13:37:24.480]  length: 0 (resolved future 2)
  [13:37:24.873]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [13:37:24.481] Relaying remaining futures
  [13:37:24.874]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [13:37:24.481] signalConditionsASAP(NULL, pos=0) ...
  [13:37:24.874]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [13:37:24.482] - nx: 2
  [13:37:24.875]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [13:37:24.482] - relay: TRUE
  [13:37:24.875]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [13:37:24.482] - stdout: TRUE
  [13:37:24.876]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [13:37:24.483] - signal: TRUE
  [13:37:24.876]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [13:37:24.483] - resignal: FALSE
  [13:37:24.877]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [13:37:24.484] - force: FALSE
  [13:37:24.877]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [13:37:24.484] - relayed: [n=2] TRUE, TRUE
  [13:37:24.878]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [13:37:24.485] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.878]  - Condition #189: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:24.879]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [13:37:24.486] - relayed: [n=2] TRUE, TRUE
  [13:37:24.879]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [13:37:24.486] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.880]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [13:37:24.486] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:24.880]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [13:37:24.487] resolve() on list ... DONE
  [13:37:24.880]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [13:37:24.487] - collecting values of futures
  [13:37:24.881]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [13:37:24.488] signalConditions() ...
  [13:37:24.881]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [13:37:24.488]  - include = 'immediateCondition'
  [13:37:24.882]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [13:37:24.489]  - exclude = 
  [13:37:24.882]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [13:37:24.489]  - resignal = FALSE
  [13:37:24.883]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [13:37:24.490]  - Number of conditions: 1
  [13:37:24.883]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [13:37:24.490] signalConditions() ... done
  [13:37:24.884]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [13:37:24.491] signalConditions() ...
  [13:37:24.884]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [13:37:24.491]  - include = 'immediateCondition'
  [13:37:24.884]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [13:37:24.492]  - exclude = 
  [13:37:24.885]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [13:37:24.492]  - resignal = FALSE
  [13:37:24.885]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [13:37:24.492]  - Number of conditions: 2
  [13:37:24.886]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [13:37:24.493] signalConditions() ... done
  [13:37:24.886]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [13:37:24.494] - accumulating results
  [13:37:24.887]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [13:37:24.495] - processing errors (handler = 'stop')
  [13:37:24.887]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [13:37:24.495] - extracting results
  [13:37:24.888]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [13:37:24.496] doFuture() ... DONE
  [13:37:24.888]  - Condition #211: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:24.888]  - Condition #212: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:24.889]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [13:37:24.501] doFuture() ...
  [13:37:24.889]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [13:37:24.503] - dummy globals (as locals): [1] 'b'
  [13:37:24.890]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [13:37:24.504] - R expression:
  [13:37:24.890]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [13:37:24.504] {
  [13:37:24.504]     doFuture::registerDoFuture()
  [13:37:24.504]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.504]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.504]         b <- NULL
  [13:37:24.504]         ...future.env <- environment()
  [13:37:24.504]         local({
  [13:37:24.504]             for (name in names(...future.x_jj)) {
  [13:37:24.504]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.504]                   inherits = FALSE)
  [13:37:24.504]             }
  [13:37:24.504]         })
  [13:37:24.504]         tryCatch({
  [13:37:24.504]             plan_list <- future::plan("next")
  [13:37:24.504]             message(capture.output(print(plan_list)))
  [13:37:24.504]             stopifnot(inherits(plan_list, "future"))
  [13:37:24.504]             default <- getOption("future.plan", "sequential")
  [13:37:24.504]             if (is.function(default)) 
  [13:37:24.504]                 default <- class(default)
  [13:37:24.504]             stopifnot(inherits(plan_list, default))
  [13:37:24.504]             plan_b <- future::plan("list")
  [13:37:24.504]             str(plan_b)
  [13:37:24.504]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:24.504]                 default))
  [13:37:24.504]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.504]         }, error = identity)
  [13:37:24.504]     })
  [13:37:24.504] }
  [13:37:24.891]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [13:37:24.506] - identifying globals and packages ...
  [13:37:24.891]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [13:37:24.506] getGlobalsAndPackages() ...
  [13:37:24.892]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [13:37:24.507] Searching for globals...
  [13:37:24.892]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [13:37:24.537] - 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'
  [13:37:24.892]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [13:37:24.537] Searching for globals ... DONE
  [13:37:24.893]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [13:37:24.538] Resolving globals: FALSE
  [13:37:24.893]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [13:37:24.541] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [13:37:24.894]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [13:37:24.541] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.894]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [13:37:24.542] - packages: [1] 'utils'
  [13:37:24.895]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [13:37:24.542] getGlobalsAndPackages() ... DONE
  [13:37:24.895]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [13:37:24.543] List of 3
  [13:37:24.543]  $ ...future.x_ii: NULL
  [13:37:24.543]  $ a             : int 2
  [13:37:24.543]  $ plan_a        :List of 1
  [13:37:24.543]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:24.543]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.543]     earlySignal = FALSE, label = NULL, ...)  
  [13:37:24.543]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:37:24.543]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:24.543]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:24.543]  - attr(*, "where")=List of 3
  [13:37:24.543]   ..$ ...future.x_ii:<environment: 0x561c1bb18dd0> 
  [13:37:24.543]   ..$ a             :<environment: 0x561c1a58eb30> 
  [13:37:24.543]   ..$ plan_a        :<environment: 0x561c1a58eb30> 
  [13:37:24.543]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.543]  - attr(*, "resolved")= logi FALSE
  [13:37:24.543]  - attr(*, "total_size")= num 76816
  [13:37:24.896]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [13:37:24.556]   - R expression:
  [13:37:24.896]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [13:37:24.556] {
  [13:37:24.556]     doFuture::registerDoFuture()
  [13:37:24.556]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.556]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.556]         b <- NULL
  [13:37:24.556]         ...future.env <- environment()
  [13:37:24.556]         local({
  [13:37:24.556]             for (name in names(...future.x_jj)) {
  [13:37:24.556]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.556]                   inherits = FALSE)
  [13:37:24.556]             }
  [13:37:24.556]         })
  [13:37:24.556]         tryCatch({
  [13:37:24.556]             plan_list <- future::plan("next")
  [13:37:24.556]             message(capture.output(print(plan_list)))
  [13:37:24.556]             stopifnot(inherits(plan_list, "future"))
  [13:37:24.556]             default <- getOption("future.plan", "sequential")
  [13:37:24.556]             if (is.function(default)) 
  [13:37:24.556]                 default <- class(default)
  [13:37:24.556]             stopifnot(inherits(plan_list, default))
  [13:37:24.556]             plan_b <- future::plan("list")
  [13:37:24.556]             str(plan_b)
  [13:37:24.556]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:24.556]                 default))
  [13:37:24.556]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.556]         }, error = identity)
  [13:37:24.556]     })
  [13:37:24.556] }
  [13:37:24.896]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [13:37:24.558]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.897]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [13:37:24.558] List of 3
  [13:37:24.558]  $ ...future.x_ii: NULL
  [13:37:24.558]  $ a             : int 2
  [13:37:24.558]  $ plan_a        :List of 1
  [13:37:24.558]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:24.558]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.558]     earlySignal = FALSE, label = NULL, ...)  
  [13:37:24.558]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [13:37:24.558]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:24.558]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:24.558]  - attr(*, "where")=List of 3
  [13:37:24.558]   ..$ ...future.x_ii:<environment: 0x561c1bb18dd0> 
  [13:37:24.558]   ..$ a             :<environment: 0x561c1a58eb30> 
  [13:37:24.558]   ..$ plan_a        :<environment: 0x561c1a58eb30> 
  [13:37:24.558]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:24.558]  - attr(*, "resolved")= logi FALSE
  [13:37:24.558]  - attr(*, "total_size")= num 76816
  [13:37:24.897]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [13:37:24.570]   - packages: [2] 'doFuture', 'utils'
  [13:37:24.898]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [13:37:24.571] - identifying globals and packages ... DONE
  [13:37:24.898]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [13:37:24.573] Number of chunks: 2
  [13:37:24.899]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [13:37:24.573] Number of futures (= number of chunks): 2
  [13:37:24.899]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [13:37:24.574] Launching 2 futures (chunks) ...
  [13:37:24.900]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [13:37:24.574] Chunk #1 of 2 ...
  [13:37:24.900]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [13:37:24.575]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:24.900]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [13:37:24.575] getGlobalsAndPackages() ...
  [13:37:24.901]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [13:37:24.576] Searching for globals...
  [13:37:24.901]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [13:37:24.577] 
  [13:37:24.902]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [13:37:24.577] Searching for globals ... DONE
  [13:37:24.902]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [13:37:24.578] - globals: [0] <none>
  [13:37:24.903]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [13:37:24.578] getGlobalsAndPackages() ... DONE
  [13:37:24.903]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [13:37:24.583] 
  [13:37:24.903]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [13:37:24.583] 
  [13:37:24.904]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [13:37:24.584]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:24.904]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [13:37:24.585] getGlobalsAndPackages() ...
  [13:37:24.905]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [13:37:24.586] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.905]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [13:37:24.586] Resolving globals: FALSE
  [13:37:24.906]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [13:37:24.588] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [13:37:24.906]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [13:37:24.588] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.906]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [13:37:24.589] 
  [13:37:24.907]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [13:37:24.589] getGlobalsAndPackages() ... DONE
  [13:37:24.907]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [13:37:24.592] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:24.908]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [13:37:24.596] Packages needed by future strategies (n = 0): <none>
  [13:37:24.908]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [13:37:24.604] {
  [13:37:24.604]     {
  [13:37:24.604]         ...future.startTime <- base::Sys.time()
  [13:37:24.604]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:24.604]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:24.604]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:24.604]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:24.604]             future.resolve.recursive = NULL, width = 80L)
  [13:37:24.604]         {
  [13:37:24.604]             {
  [13:37:24.604]                 {
  [13:37:24.604]                   {
  [13:37:24.604]                     has_future <- base::requireNamespace("future", 
  [13:37:24.604]                       quietly = TRUE)
  [13:37:24.604]                     version <- if (has_future) 
  [13:37:24.604]                       utils::packageVersion("future")
  [13:37:24.604]                     else NULL
  [13:37:24.604]                     if (!has_future || version < "1.8.0") {
  [13:37:24.604]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:24.604]                         "", base::R.version$version.string), 
  [13:37:24.604]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:24.604]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:24.604]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:24.604]                           "release", "version")], collapse = " "), 
  [13:37:24.604]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:24.604]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:24.604]                         info)
  [13:37:24.604]                       info <- base::paste(info, collapse = "; ")
  [13:37:24.604]                       if (!has_future) {
  [13:37:24.604]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:24.604]                           info)
  [13:37:24.604]                       }
  [13:37:24.604]                       else {
  [13:37:24.604]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:24.604]                           info, version)
  [13:37:24.604]                       }
  [13:37:24.604]                       base::stop(msg)
  [13:37:24.604]                     }
  [13:37:24.604]                   }
  [13:37:24.604]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:24.604]                   base::options(mc.cores = 1L)
  [13:37:24.604]                 }
  [13:37:24.604]                 base::local({
  [13:37:24.604]                   for (pkg in c("doFuture", "utils")) {
  [13:37:24.604]                     base::loadNamespace(pkg)
  [13:37:24.604]                     base::library(pkg, character.only = TRUE)
  [13:37:24.604]                   }
  [13:37:24.604]                 })
  [13:37:24.604]             }
  [13:37:24.604]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:24.604]         }
  [13:37:24.604]     }
  [13:37:24.604]     if (base::is.na(TRUE)) {
  [13:37:24.604]     }
  [13:37:24.604]     else {
  [13:37:24.604]         if (TRUE) {
  [13:37:24.604]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:24.604]                 open = "w")
  [13:37:24.604]         }
  [13:37:24.604]         else {
  [13:37:24.604]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:24.604]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:24.604]         }
  [13:37:24.604]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:24.604]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:24.604]             base::sink(type = "output", split = FALSE)
  [13:37:24.604]             base::close(...future.stdout)
  [13:37:24.604]         }, add = TRUE)
  [13:37:24.604]     }
  [13:37:24.604]     ...future.frame <- base::sys.nframe()
  [13:37:24.604]     ...future.conditions <- base::list()
  [13:37:24.604]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:24.604]     ...future.result <- base::tryCatch({
  [13:37:24.604]         base::withCallingHandlers({
  [13:37:24.604]             ...future.value <- base::withVisible(base::local({
  [13:37:24.604]                 doFuture::registerDoFuture()
  [13:37:24.604]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.604]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.604]                   b <- NULL
  [13:37:24.604]                   ...future.env <- environment()
  [13:37:24.604]                   local({
  [13:37:24.604]                     for (name in names(...future.x_jj)) {
  [13:37:24.604]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.604]                         inherits = FALSE)
  [13:37:24.604]                     }
  [13:37:24.604]                   })
  [13:37:24.604]                   tryCatch({
  [13:37:24.604]                     plan_list <- future::plan("next")
  [13:37:24.604]                     message(capture.output(print(plan_list)))
  [13:37:24.604]                     stopifnot(inherits(plan_list, "future"))
  [13:37:24.604]                     default <- getOption("future.plan", "sequential")
  [13:37:24.604]                     if (is.function(default)) 
  [13:37:24.604]                       default <- class(default)
  [13:37:24.604]                     stopifnot(inherits(plan_list, default))
  [13:37:24.604]                     plan_b <- future::plan("list")
  [13:37:24.604]                     str(plan_b)
  [13:37:24.604]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.604]                       inherits(plan_b[[1]], default))
  [13:37:24.604]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.604]                   }, error = identity)
  [13:37:24.604]                 })
  [13:37:24.604]             }))
  [13:37:24.604]             future::FutureResult(value = ...future.value$value, 
  [13:37:24.604]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.604]                   ...future.rng), started = ...future.startTime, 
  [13:37:24.604]                 version = "1.8")
  [13:37:24.604]         }, condition = base::local({
  [13:37:24.604]             c <- base::c
  [13:37:24.604]             inherits <- base::inherits
  [13:37:24.604]             invokeRestart <- base::invokeRestart
  [13:37:24.604]             length <- base::length
  [13:37:24.604]             list <- base::list
  [13:37:24.604]             seq.int <- base::seq.int
  [13:37:24.604]             signalCondition <- base::signalCondition
  [13:37:24.604]             sys.calls <- base::sys.calls
  [13:37:24.604]             Sys.time <- base::Sys.time
  [13:37:24.604]             `[[` <- base::`[[`
  [13:37:24.604]             `+` <- base::`+`
  [13:37:24.604]             `<<-` <- base::`<<-`
  [13:37:24.604]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:24.604]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:24.604]                   3L)]
  [13:37:24.604]             }
  [13:37:24.604]             function(cond) {
  [13:37:24.604]                 if (inherits(cond, "error")) {
  [13:37:24.604]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.604]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:24.604]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:24.604]                   signalCondition(cond)
  [13:37:24.604]                 }
  [13:37:24.604]                 else if (inherits(cond, "condition")) {
  [13:37:24.604]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:24.604]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.604]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:24.604]                   if (!signal) {
  [13:37:24.604]                     muffleCondition <- function (cond) 
  [13:37:24.604]                     {
  [13:37:24.604]                       inherits <- base::inherits
  [13:37:24.604]                       invokeRestart <- base::invokeRestart
  [13:37:24.604]                       muffled <- FALSE
  [13:37:24.604]                       if (inherits(cond, "message")) {
  [13:37:24.604]                         invokeRestart("muffleMessage")
  [13:37:24.604]                         muffled <- TRUE
  [13:37:24.604]                       }
  [13:37:24.604]                       else if (inherits(cond, "warning")) {
  [13:37:24.604]                         invokeRestart("muffleWarning")
  [13:37:24.604]                         muffled <- TRUE
  [13:37:24.604]                       }
  [13:37:24.604]                       else if (inherits(cond, "condition")) {
  [13:37:24.604]                         computeRestarts <- base::computeRestarts
  [13:37:24.604]                         grepl <- base::grepl
  [13:37:24.604]                         is.null <- base::is.null
  [13:37:24.604]                         restarts <- computeRestarts(cond)
  [13:37:24.604]                         for (restart in restarts) {
  [13:37:24.604]                           name <- restart$name
  [13:37:24.604]                           if (is.null(name)) 
  [13:37:24.604]                             next
  [13:37:24.604]                           if (!grepl("^muffle", name)) 
  [13:37:24.604]                             next
  [13:37:24.604]                           invokeRestart(restart)
  [13:37:24.604]                           muffled <- TRUE
  [13:37:24.604]                           break
  [13:37:24.604]                         }
  [13:37:24.604]                       }
  [13:37:24.604]                       invisible(muffled)
  [13:37:24.604]                     }
  [13:37:24.604]                     muffleCondition(cond)
  [13:37:24.604]                   }
  [13:37:24.604]                 }
  [13:37:24.604]             }
  [13:37:24.604]         }))
  [13:37:24.604]     }, error = function(ex) {
  [13:37:24.604]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:24.604]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.604]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:24.604]     }, finally = {
  [13:37:24.604]         {
  [13:37:24.604]             {
  [13:37:24.604]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:24.604]             }
  [13:37:24.604]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:24.604]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.604]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.604]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.604]             {
  [13:37:24.604]                 if (substitute) 
  [13:37:24.604]                   expr <- substitute(expr)
  [13:37:24.604]                 if (is.function(workers)) 
  [13:37:24.604]                   workers <- workers()
  [13:37:24.604]                 workers <- as.integer(workers)
  [13:37:24.604]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.604]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.604]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.604]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.604]                     local = TRUE, label = label, ...))
  [13:37:24.604]                 }
  [13:37:24.604]                 oopts <- options(mc.cores = workers)
  [13:37:24.604]                 on.exit(options(oopts))
  [13:37:24.604]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.604]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.604]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.604]                   label = label, ...)
  [13:37:24.604]                 if (!future$lazy) 
  [13:37:24.604]                   future <- run(future)
  [13:37:24.604]                 invisible(future)
  [13:37:24.604]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.604]         }
  [13:37:24.604]         base::options(...future.oldOptions)
  [13:37:24.604]     })
  [13:37:24.604]     Sys.time
  [13:37:24.604]     if (base::is.na(TRUE)) {
  [13:37:24.604]     }
  [13:37:24.604]     else {
  [13:37:24.604]         base::sink(type = "output", split = FALSE)
  [13:37:24.604]         if (TRUE) {
  [13:37:24.604]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:24.604]         }
  [13:37:24.604]         else {
  [13:37:24.604]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:24.604]         }
  [13:37:24.604]         base::close(...future.stdout)
  [13:37:24.604]         ...future.stdout <- NULL
  [13:37:24.604]     }
  [13:37:24.604]     ...future.result$conditions <- ...future.conditions
  [13:37:24.604]     ...future.result
  [13:37:24.604] }
  [13:37:24.909]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [13:37:24.609] requestCore(): workers = 2
  [13:37:24.909]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [13:37:24.612] MulticoreFuture started
  [13:37:24.910]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [13:37:24.614] Chunk #1 of 2 ... DONE
  [13:37:24.910]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [13:37:24.614] Chunk #2 of 2 ...
  [13:37:24.910]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [13:37:24.615]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:24.911]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [13:37:24.616] getGlobalsAndPackages() ...
  [13:37:24.911]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [13:37:24.617] Searching for globals...
  [13:37:24.912]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [13:37:24.619] 
  [13:37:24.912]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [13:37:24.619] Searching for globals ... DONE
  [13:37:24.913]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [13:37:24.620] - globals: [0] <none>
  [13:37:24.913]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [13:37:24.621] getGlobalsAndPackages() ... DONE
  [13:37:24.913]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [13:37:24.621] 
  [13:37:24.914]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [13:37:24.622] 
  [13:37:24.914]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [13:37:24.623]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:24.915]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [13:37:24.625] getGlobalsAndPackages() ...
  [13:37:24.915]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [13:37:24.626] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.916]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [13:37:24.626] Resolving globals: FALSE
  [13:37:24.916]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [13:37:24.629] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [13:37:24.916]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [13:37:24.630] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:24.917]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [13:37:24.630] 
  [13:37:24.917]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [13:37:24.631] getGlobalsAndPackages() ... DONE
  [13:37:24.918]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [13:37:24.635] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:24.918]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [13:37:24.636] Packages needed by future strategies (n = 0): <none>
  [13:37:24.919]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [13:37:24.645] {
  [13:37:24.645]     {
  [13:37:24.645]         ...future.startTime <- base::Sys.time()
  [13:37:24.645]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:24.645]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:24.645]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:24.645]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:24.645]             future.resolve.recursive = NULL, width = 80L)
  [13:37:24.645]         {
  [13:37:24.645]             {
  [13:37:24.645]                 {
  [13:37:24.645]                   {
  [13:37:24.645]                     has_future <- base::requireNamespace("future", 
  [13:37:24.645]                       quietly = TRUE)
  [13:37:24.645]                     version <- if (has_future) 
  [13:37:24.645]                       utils::packageVersion("future")
  [13:37:24.645]                     else NULL
  [13:37:24.645]                     if (!has_future || version < "1.8.0") {
  [13:37:24.645]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:24.645]                         "", base::R.version$version.string), 
  [13:37:24.645]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:24.645]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:24.645]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:24.645]                           "release", "version")], collapse = " "), 
  [13:37:24.645]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:24.645]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:24.645]                         info)
  [13:37:24.645]                       info <- base::paste(info, collapse = "; ")
  [13:37:24.645]                       if (!has_future) {
  [13:37:24.645]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:24.645]                           info)
  [13:37:24.645]                       }
  [13:37:24.645]                       else {
  [13:37:24.645]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:24.645]                           info, version)
  [13:37:24.645]                       }
  [13:37:24.645]                       base::stop(msg)
  [13:37:24.645]                     }
  [13:37:24.645]                   }
  [13:37:24.645]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:24.645]                   base::options(mc.cores = 1L)
  [13:37:24.645]                 }
  [13:37:24.645]                 base::local({
  [13:37:24.645]                   for (pkg in c("doFuture", "utils")) {
  [13:37:24.645]                     base::loadNamespace(pkg)
  [13:37:24.645]                     base::library(pkg, character.only = TRUE)
  [13:37:24.645]                   }
  [13:37:24.645]                 })
  [13:37:24.645]             }
  [13:37:24.645]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:24.645]         }
  [13:37:24.645]     }
  [13:37:24.645]     if (base::is.na(TRUE)) {
  [13:37:24.645]     }
  [13:37:24.645]     else {
  [13:37:24.645]         if (TRUE) {
  [13:37:24.645]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:24.645]                 open = "w")
  [13:37:24.645]         }
  [13:37:24.645]         else {
  [13:37:24.645]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:24.645]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:24.645]         }
  [13:37:24.645]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:24.645]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:24.645]             base::sink(type = "output", split = FALSE)
  [13:37:24.645]             base::close(...future.stdout)
  [13:37:24.645]         }, add = TRUE)
  [13:37:24.645]     }
  [13:37:24.645]     ...future.frame <- base::sys.nframe()
  [13:37:24.645]     ...future.conditions <- base::list()
  [13:37:24.645]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:24.645]     ...future.result <- base::tryCatch({
  [13:37:24.645]         base::withCallingHandlers({
  [13:37:24.645]             ...future.value <- base::withVisible(base::local({
  [13:37:24.645]                 doFuture::registerDoFuture()
  [13:37:24.645]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:24.645]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:24.645]                   b <- NULL
  [13:37:24.645]                   ...future.env <- environment()
  [13:37:24.645]                   local({
  [13:37:24.645]                     for (name in names(...future.x_jj)) {
  [13:37:24.645]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:24.645]                         inherits = FALSE)
  [13:37:24.645]                     }
  [13:37:24.645]                   })
  [13:37:24.645]                   tryCatch({
  [13:37:24.645]                     plan_list <- future::plan("next")
  [13:37:24.645]                     message(capture.output(print(plan_list)))
  [13:37:24.645]                     stopifnot(inherits(plan_list, "future"))
  [13:37:24.645]                     default <- getOption("future.plan", "sequential")
  [13:37:24.645]                     if (is.function(default)) 
  [13:37:24.645]                       default <- class(default)
  [13:37:24.645]                     stopifnot(inherits(plan_list, default))
  [13:37:24.645]                     plan_b <- future::plan("list")
  [13:37:24.645]                     str(plan_b)
  [13:37:24.645]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:24.645]                       inherits(plan_b[[1]], default))
  [13:37:24.645]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:24.645]                   }, error = identity)
  [13:37:24.645]                 })
  [13:37:24.645]             }))
  [13:37:24.645]             future::FutureResult(value = ...future.value$value, 
  [13:37:24.645]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.645]                   ...future.rng), started = ...future.startTime, 
  [13:37:24.645]                 version = "1.8")
  [13:37:24.645]         }, condition = base::local({
  [13:37:24.645]             c <- base::c
  [13:37:24.645]             inherits <- base::inherits
  [13:37:24.645]             invokeRestart <- base::invokeRestart
  [13:37:24.645]             length <- base::length
  [13:37:24.645]             list <- base::list
  [13:37:24.645]             seq.int <- base::seq.int
  [13:37:24.645]             signalCondition <- base::signalCondition
  [13:37:24.645]             sys.calls <- base::sys.calls
  [13:37:24.645]             Sys.time <- base::Sys.time
  [13:37:24.645]             `[[` <- base::`[[`
  [13:37:24.645]             `+` <- base::`+`
  [13:37:24.645]             `<<-` <- base::`<<-`
  [13:37:24.645]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:24.645]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:24.645]                   3L)]
  [13:37:24.645]             }
  [13:37:24.645]             function(cond) {
  [13:37:24.645]                 if (inherits(cond, "error")) {
  [13:37:24.645]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.645]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:24.645]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:24.645]                   signalCondition(cond)
  [13:37:24.645]                 }
  [13:37:24.645]                 else if (inherits(cond, "condition")) {
  [13:37:24.645]                   signal <- FALSE && inherits(cond, character(0))
  [13:37:24.645]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:24.645]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:24.645]                   if (!signal) {
  [13:37:24.645]                     muffleCondition <- function (cond) 
  [13:37:24.645]                     {
  [13:37:24.645]                       inherits <- base::inherits
  [13:37:24.645]                       invokeRestart <- base::invokeRestart
  [13:37:24.645]                       muffled <- FALSE
  [13:37:24.645]                       if (inherits(cond, "message")) {
  [13:37:24.645]                         invokeRestart("muffleMessage")
  [13:37:24.645]                         muffled <- TRUE
  [13:37:24.645]                       }
  [13:37:24.645]                       else if (inherits(cond, "warning")) {
  [13:37:24.645]                         invokeRestart("muffleWarning")
  [13:37:24.645]                         muffled <- TRUE
  [13:37:24.645]                       }
  [13:37:24.645]                       else if (inherits(cond, "condition")) {
  [13:37:24.645]                         computeRestarts <- base::computeRestarts
  [13:37:24.645]                         grepl <- base::grepl
  [13:37:24.645]                         is.null <- base::is.null
  [13:37:24.645]                         restarts <- computeRestarts(cond)
  [13:37:24.645]                         for (restart in restarts) {
  [13:37:24.645]                           name <- restart$name
  [13:37:24.645]                           if (is.null(name)) 
  [13:37:24.645]                             next
  [13:37:24.645]                           if (!grepl("^muffle", name)) 
  [13:37:24.645]                             next
  [13:37:24.645]                           invokeRestart(restart)
  [13:37:24.645]                           muffled <- TRUE
  [13:37:24.645]                           break
  [13:37:24.645]                         }
  [13:37:24.645]                       }
  [13:37:24.645]                       invisible(muffled)
  [13:37:24.645]                     }
  [13:37:24.645]                     muffleCondition(cond)
  [13:37:24.645]                   }
  [13:37:24.645]                 }
  [13:37:24.645]             }
  [13:37:24.645]         }))
  [13:37:24.645]     }, error = function(ex) {
  [13:37:24.645]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:24.645]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:24.645]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:24.645]     }, finally = {
  [13:37:24.645]         {
  [13:37:24.645]             {
  [13:37:24.645]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:24.645]             }
  [13:37:24.645]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:24.645]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:24.645]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:37:24.645]                 earlySignal = FALSE, label = NULL, ...) 
  [13:37:24.645]             {
  [13:37:24.645]                 if (substitute) 
  [13:37:24.645]                   expr <- substitute(expr)
  [13:37:24.645]                 if (is.function(workers)) 
  [13:37:24.645]                   workers <- workers()
  [13:37:24.645]                 workers <- as.integer(workers)
  [13:37:24.645]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:37:24.645]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:37:24.645]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:24.645]                     lazy = lazy, seed = seed, globals = globals, 
  [13:37:24.645]                     local = TRUE, label = label, ...))
  [13:37:24.645]                 }
  [13:37:24.645]                 oopts <- options(mc.cores = workers)
  [13:37:24.645]                 on.exit(options(oopts))
  [13:37:24.645]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:37:24.645]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:24.645]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:37:24.645]                   label = label, ...)
  [13:37:24.645]                 if (!future$lazy) 
  [13:37:24.645]                   future <- run(future)
  [13:37:24.645]                 invisible(future)
  [13:37:24.645]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:24.645]         }
  [13:37:24.645]         base::options(...future.oldOptions)
  [13:37:24.645]     })
  [13:37:24.645]     Sys.time
  [13:37:24.645]     if (base::is.na(TRUE)) {
  [13:37:24.645]     }
  [13:37:24.645]     else {
  [13:37:24.645]         base::sink(type = "output", split = FALSE)
  [13:37:24.645]         if (TRUE) {
  [13:37:24.645]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:24.645]         }
  [13:37:24.645]         else {
  [13:37:24.645]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:24.645]         }
  [13:37:24.645]         base::close(...future.stdout)
  [13:37:24.645]         ...future.stdout <- NULL
  [13:37:24.645]     }
  [13:37:24.645]     ...future.result$conditions <- ...future.conditions
  [13:37:24.645]     ...future.result
  [13:37:24.645] }
  [13:37:24.919]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [13:37:24.651] requestCore(): workers = 2
  [13:37:24.920]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [13:37:24.655] MulticoreFuture started
  [13:37:24.920]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [13:37:24.657] Chunk #2 of 2 ... DONE
  [13:37:24.920]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [13:37:24.657] Launching 2 futures (chunks) ... DONE
  [13:37:24.921]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [13:37:24.658] - resolving futures
  [13:37:24.921]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [13:37:24.659]   - gathering results & relaying conditions (except errors)
  [13:37:24.922]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [13:37:24.659] resolve() on list ...
  [13:37:24.922]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [13:37:24.660]  recursive: 0
  [13:37:24.923]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [13:37:24.661]  length: 2
  [13:37:24.923]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [13:37:24.661] 
  [13:37:24.923]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [13:37:24.679] Future #1
  [13:37:24.924]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [13:37:24.682] signalConditions() ...
  [13:37:24.924]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [13:37:24.682]  - include = 'immediateCondition'
  [13:37:24.925]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [13:37:24.683]  - exclude = 
  [13:37:24.925]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [13:37:24.684]  - resignal = FALSE
  [13:37:24.926]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [13:37:24.684]  - Number of conditions: 1
  [13:37:24.926]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [13:37:24.685] signalConditions() ... done
  [13:37:24.927]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [13:37:24.685] signalConditions() ...
  [13:37:24.927]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [13:37:24.686]  - include = 'immediateCondition'
  [13:37:24.927]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [13:37:24.687]  - exclude = 
  [13:37:24.928]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [13:37:24.687]  - resignal = FALSE
  [13:37:24.928]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [13:37:24.688]  - Number of conditions: 1
  [13:37:24.929]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [13:37:24.688] signalConditions() ... done
  [13:37:24.929]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [13:37:24.689] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:37:24.930]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [13:37:24.689] - nx: 2
  [13:37:24.930]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [13:37:24.690] - relay: TRUE
  [13:37:24.931]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [13:37:24.691] - stdout: TRUE
  [13:37:24.931]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [13:37:24.691] - signal: TRUE
  [13:37:24.931]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [13:37:24.692] - resignal: FALSE
  [13:37:24.932]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [13:37:24.692] - force: FALSE
  [13:37:24.932]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [13:37:24.693] - relayed: [n=2] FALSE, FALSE
  [13:37:24.933]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [13:37:24.693] - queued futures: [n=2] FALSE, FALSE
  [13:37:24.933]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [13:37:24.694]  - until=1
  [13:37:24.934]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [13:37:24.694]  - relaying element #1
  [13:37:24.934]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [13:37:24.695] signalConditions() ...
  [13:37:24.938]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [13:37:24.695]  - include = 'immediateCondition'
  [13:37:24.938]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [13:37:24.696]  - exclude = 
  [13:37:24.939]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [13:37:24.696]  - resignal = FALSE
  [13:37:24.939]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [13:37:24.697]  - Number of conditions: 1
  [13:37:24.942]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [13:37:24.697] signalConditions() ... done
  [13:37:24.942]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [13:37:24.698] signalConditions() ...
  [13:37:24.943]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [13:37:24.699]  - include = 'immediateCondition'
  [13:37:24.943]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [13:37:24.699]  - exclude = 
  [13:37:24.944]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [13:37:24.700]  - resignal = FALSE
  [13:37:24.944]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [13:37:24.700]  - Number of conditions: 1
  [13:37:24.945]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [13:37:24.701] signalConditions() ... done
  [13:37:24.945]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [13:37:24.701] signalConditions() ...
  [13:37:24.946]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [13:37:24.702]  - include = 'condition'
  [13:37:24.946]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [13:37:24.702]  - exclude = 'immediateCondition'
  [13:37:24.946]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [13:37:24.703]  - resignal = FALSE
  [13:37:24.947]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [13:37:24.703]  - Number of conditions: 1
  [13:37:24.947]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [13:37:24.704]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:24.948]  - 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
  [13:37:24.948]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [13:37:24.705] signalConditions() ... done
  [13:37:24.949]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [13:37:24.705] - relayed: [n=2] TRUE, FALSE
  [13:37:24.949]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [13:37:24.706] - queued futures: [n=2] TRUE, FALSE
  [13:37:24.950]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [13:37:24.706] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:37:24.950]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [13:37:24.707]  length: 1 (resolved future 1)
  [13:37:24.950]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [13:37:24.708] Future #2
  [13:37:24.951]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [13:37:24.710] signalConditions() ...
  [13:37:24.951]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [13:37:24.711]  - include = 'immediateCondition'
  [13:37:24.952]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [13:37:24.711]  - exclude = 
  [13:37:24.952]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [13:37:24.712]  - resignal = FALSE
  [13:37:24.953]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [13:37:24.712]  - Number of conditions: 2
  [13:37:24.953]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [13:37:24.713] signalConditions() ... done
  [13:37:24.953]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [13:37:24.714] signalConditions() ...
  [13:37:24.954]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [13:37:24.714]  - include = 'immediateCondition'
  [13:37:24.956]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [13:37:24.715]  - exclude = 
  [13:37:24.956]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [13:37:24.715]  - resignal = FALSE
  [13:37:24.957]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [13:37:24.716]  - Number of conditions: 2
  [13:37:24.957]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [13:37:24.721] signalConditions() ... done
  [13:37:24.957]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [13:37:24.722] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:37:24.958]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [13:37:24.722] - nx: 2
  [13:37:24.958]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [13:37:24.723] - relay: TRUE
  [13:37:24.959]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [13:37:24.724] - stdout: TRUE
  [13:37:24.959]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [13:37:24.724] - signal: TRUE
  [13:37:24.960]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [13:37:24.725] - resignal: FALSE
  [13:37:24.960]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [13:37:24.725] - force: FALSE
  [13:37:24.961]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [13:37:24.726] - relayed: [n=2] TRUE, FALSE
  [13:37:24.961]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [13:37:24.726] - queued futures: [n=2] TRUE, FALSE
  [13:37:24.961]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [13:37:24.727]  - until=2
  [13:37:24.962]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [13:37:24.728]  - relaying element #2
  [13:37:24.962]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [13:37:24.728] signalConditions() ...
  [13:37:24.963]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [13:37:24.729]  - include = 'immediateCondition'
  [13:37:24.963]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [13:37:24.730]  - exclude = 
  [13:37:24.964]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [13:37:24.730]  - resignal = FALSE
  [13:37:24.964]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [13:37:24.731]  - Number of conditions: 2
  [13:37:24.964]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [13:37:24.731] signalConditions() ... done
  [13:37:24.965]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [13:37:24.732] signalConditions() ...
  [13:37:24.965]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [13:37:24.732]  - include = 'immediateCondition'
  [13:37:24.966]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [13:37:24.733]  - exclude = 
  [13:37:24.966]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [13:37:24.734]  - resignal = FALSE
  [13:37:24.966]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [13:37:24.734]  - Number of conditions: 2
  [13:37:24.967]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [13:37:24.735] signalConditions() ... done
  [13:37:24.967]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [13:37:24.735] signalConditions() ...
  [13:37:24.967]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [13:37:24.736]  - include = 'condition'
  [13:37:24.968]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [13:37:24.736]  - exclude = 'immediateCondition'
  [13:37:24.968]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [13:37:24.737]  - resignal = FALSE
  [13:37:24.969]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [13:37:24.737]  - Number of conditions: 2
  [13:37:24.969]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [13:37:24.737]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:24.969]  - 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
  [13:37:24.970]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [13:37:24.738]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:24.970]  - 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
  [13:37:24.972]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [13:37:24.739] signalConditions() ... done
  [13:37:24.972]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [13:37:24.739] - relayed: [n=2] TRUE, TRUE
  [13:37:24.972]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [13:37:24.740] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.973]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [13:37:24.740] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:37:24.973]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [13:37:24.741]  length: 0 (resolved future 2)
  [13:37:24.974]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [13:37:24.741] Relaying remaining futures
  [13:37:24.974]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [13:37:24.742] signalConditionsASAP(NULL, pos=0) ...
  [13:37:24.975]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [13:37:24.742] - nx: 2
  [13:37:24.975]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [13:37:24.743] - relay: TRUE
  [13:37:24.976]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [13:37:24.743] - stdout: TRUE
  [13:37:24.976]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [13:37:24.744] - signal: TRUE
  [13:37:24.976]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [13:37:24.744] - resignal: FALSE
  [13:37:24.977]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [13:37:24.745] - force: FALSE
  [13:37:24.977]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [13:37:24.745] - relayed: [n=2] TRUE, TRUE
  [13:37:24.978]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [13:37:24.746] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.978]  - Condition #400: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:24.979]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [13:37:24.747] - relayed: [n=2] TRUE, TRUE
  [13:37:24.979]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [13:37:24.747] - queued futures: [n=2] TRUE, TRUE
  [13:37:24.980]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [13:37:24.748] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:24.980]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [13:37:24.748] resolve() on list ... DONE
  [13:37:24.981]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [13:37:24.748] - collecting values of futures
  [13:37:24.981]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [13:37:24.749] signalConditions() ...
  [13:37:24.981]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [13:37:24.750]  - include = 'immediateCondition'
  [13:37:24.982]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [13:37:24.750]  - exclude = 
  [13:37:24.982]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [13:37:24.750]  - resignal = FALSE
  [13:37:24.983]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [13:37:24.751]  - Number of conditions: 1
  [13:37:24.983]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [13:37:24.751] signalConditions() ... done
  [13:37:24.984]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [13:37:24.752] signalConditions() ...
  [13:37:24.984]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [13:37:24.753]  - include = 'immediateCondition'
  [13:37:24.985]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [13:37:24.753]  - exclude = 
  [13:37:24.985]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [13:37:24.753]  - resignal = FALSE
  [13:37:24.985]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [13:37:24.754]  - Number of conditions: 2
  [13:37:24.986]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [13:37:24.754] signalConditions() ... done
  [13:37:24.986]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [13:37:24.755] - accumulating results
  [13:37:24.987]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [13:37:24.756] - processing errors (handler = 'stop')
  [13:37:24.987]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [13:37:24.757] - extracting results
  [13:37:24.988]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [13:37:24.757] doFuture() ... DONE
  [13:37:24.988]  - Condition #422: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:24.989] signalConditions() ... done
  [13:37:24.990] - relayed: [n=1] TRUE
  [13:37:24.990] - queued futures: [n=1] TRUE
  [13:37:24.990] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:24.991]  length: 0 (resolved future 1)
  [13:37:24.991] Relaying remaining futures
  [13:37:24.991] signalConditionsASAP(NULL, pos=0) ...
  [13:37:24.992] - nx: 1
  [13:37:24.992] - relay: TRUE
  [13:37:24.992] - stdout: TRUE
  [13:37:24.992] - signal: TRUE
  [13:37:24.993] - resignal: FALSE
  [13:37:24.993] - force: FALSE
  [13:37:24.993] - relayed: [n=1] TRUE
  [13:37:24.994] - queued futures: [n=1] TRUE
   - flush all
  [13:37:24.994] - relayed: [n=1] TRUE
  [13:37:25.010] - queued futures: [n=1] TRUE
  [13:37:25.010] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:25.011] resolve() on list ... DONE
  [13:37:25.011] - collecting values of futures
  [13:37:25.011] signalConditions() ...
  [13:37:25.012]  - include = 'immediateCondition'
  [13:37:25.012]  - exclude = 
  [13:37:25.012]  - resignal = FALSE
  [13:37:25.013]  - Number of conditions: 422
  [13:37:25.014] signalConditions() ... done
  [13:37:25.015] - accumulating results
  [13:37:25.015] - processing errors (handler = 'stop')
  [13:37:25.016] - extracting results
  [13:37:25.016] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [13:37:25.018] plan(): Setting new future strategy stack:
  [13:37:25.018] List of future strategies:
  [13:37:25.018] 1. sequential:
  [13:37:25.018]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:25.018]    - tweaked: FALSE
  [13:37:25.018]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:25.018] 2. multisession:
  [13:37:25.018]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:25.018]    - tweaked: FALSE
  [13:37:25.018]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:25.021] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:37:25.022] doFuture() ...
  [13:37:25.024] - dummy globals (as locals): [1] 'a'
  [13:37:25.025] - R expression:
  [13:37:25.025] {
  [13:37:25.025]     doFuture::registerDoFuture()
  [13:37:25.025]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:25.025]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:25.025]         a <- NULL
  [13:37:25.025]         ...future.env <- environment()
  [13:37:25.025]         local({
  [13:37:25.025]             for (name in names(...future.x_jj)) {
  [13:37:25.025]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:25.025]                   inherits = FALSE)
  [13:37:25.025]             }
  [13:37:25.025]         })
  [13:37:25.025]         tryCatch({
  [13:37:25.025]             plan_list <- future::plan("next")
  [13:37:25.025]             stopifnot(inherits(plan_list, strategy2))
  [13:37:25.025]             plan_a <- future::plan("list")
  [13:37:25.025]             str(plan_a)
  [13:37:25.025]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:25.025]             message("foreach() - level 2 ...")
  [13:37:25.025]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:25.025]                 {
  [13:37:25.025]                   plan_list <- future::plan("next")
  [13:37:25.025]                   message(capture.output(print(plan_list)))
  [13:37:25.025]                   stopifnot(inherits(plan_list, "future"))
  [13:37:25.025]                   default <- getOption("future.plan", "sequential")
  [13:37:25.025]                   if (is.function(default)) 
  [13:37:25.025]                     default <- class(default)
  [13:37:25.025]                   stopifnot(inherits(plan_list, default))
  [13:37:25.025]                   plan_b <- future::plan("list")
  [13:37:25.025]                   str(plan_b)
  [13:37:25.025]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:25.025]                     inherits(plan_b[[1]], default))
  [13:37:25.025]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:25.025]                 }
  [13:37:25.025]             message("foreach() - level 2 ... DONE")
  [13:37:25.025]             y
  [13:37:25.025]         }, error = identity)
  [13:37:25.025]     })
  [13:37:25.025] }
  [13:37:25.026] - identifying globals and packages ...
  [13:37:25.031] getGlobalsAndPackages() ...
  [13:37:25.031] Searching for globals...
  [13:37:25.081] - 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'
  [13:37:25.081] Searching for globals ... DONE
  [13:37:25.082] Resolving globals: FALSE
  [13:37:25.085] The total size of the 3 globals is 184 bytes (184 bytes)
  [13:37:25.085] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:25.086] - packages: [2] 'utils', 'foreach'
  [13:37:25.086] getGlobalsAndPackages() ... DONE
  [13:37:25.086] List of 3
  [13:37:25.086]  $ ...future.x_ii: NULL
  [13:37:25.086]  $ strategy2     : chr "multisession"
  [13:37:25.086]  $ bs            : int [1:3] 3 2 1
  [13:37:25.086]  - attr(*, "where")=List of 3
  [13:37:25.086]   ..$ ...future.x_ii:<environment: 0x561c1b9f0160> 
  [13:37:25.086]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:25.086]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:25.086]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:25.086]  - attr(*, "resolved")= logi FALSE
  [13:37:25.086]  - attr(*, "total_size")= num 184
  [13:37:25.097]   - R expression:
  [13:37:25.098] {
  [13:37:25.098]     doFuture::registerDoFuture()
  [13:37:25.098]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:25.098]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:25.098]         a <- NULL
  [13:37:25.098]         ...future.env <- environment()
  [13:37:25.098]         local({
  [13:37:25.098]             for (name in names(...future.x_jj)) {
  [13:37:25.098]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:25.098]                   inherits = FALSE)
  [13:37:25.098]             }
  [13:37:25.098]         })
  [13:37:25.098]         tryCatch({
  [13:37:25.098]             plan_list <- future::plan("next")
  [13:37:25.098]             stopifnot(inherits(plan_list, strategy2))
  [13:37:25.098]             plan_a <- future::plan("list")
  [13:37:25.098]             str(plan_a)
  [13:37:25.098]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:25.098]             message("foreach() - level 2 ...")
  [13:37:25.098]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:25.098]                 {
  [13:37:25.098]                   plan_list <- future::plan("next")
  [13:37:25.098]                   message(capture.output(print(plan_list)))
  [13:37:25.098]                   stopifnot(inherits(plan_list, "future"))
  [13:37:25.098]                   default <- getOption("future.plan", "sequential")
  [13:37:25.098]                   if (is.function(default)) 
  [13:37:25.098]                     default <- class(default)
  [13:37:25.098]                   stopifnot(inherits(plan_list, default))
  [13:37:25.098]                   plan_b <- future::plan("list")
  [13:37:25.098]                   str(plan_b)
  [13:37:25.098]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:25.098]                     inherits(plan_b[[1]], default))
  [13:37:25.098]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:25.098]                 }
  [13:37:25.098]             message("foreach() - level 2 ... DONE")
  [13:37:25.098]             y
  [13:37:25.098]         }, error = identity)
  [13:37:25.098]     })
  [13:37:25.098] }
  [13:37:25.099]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:25.103] List of 3
  [13:37:25.103]  $ ...future.x_ii: NULL
  [13:37:25.103]  $ strategy2     : chr "multisession"
  [13:37:25.103]  $ bs            : int [1:3] 3 2 1
  [13:37:25.103]  - attr(*, "where")=List of 3
  [13:37:25.103]   ..$ ...future.x_ii:<environment: 0x561c1b9f0160> 
  [13:37:25.103]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:25.103]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:25.103]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:25.103]  - attr(*, "resolved")= logi FALSE
  [13:37:25.103]  - attr(*, "total_size")= num 184
  [13:37:25.113]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:37:25.113] - identifying globals and packages ... DONE
  [13:37:25.114] Number of chunks: 1
  [13:37:25.114] Number of futures (= number of chunks): 1
  [13:37:25.115] Launching 1 futures (chunks) ...
  [13:37:25.115] Chunk #1 of 1 ...
  [13:37:25.116]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:25.116] getGlobalsAndPackages() ...
  [13:37:25.116] Searching for globals...
  [13:37:25.117] 
  [13:37:25.117] Searching for globals ... DONE
  [13:37:25.118] - globals: [0] <none>
  [13:37:25.118] getGlobalsAndPackages() ... DONE
  [13:37:25.118] 
  [13:37:25.119] 
  [13:37:25.119]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:25.120] getGlobalsAndPackages() ...
  [13:37:25.120] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:25.121] Resolving globals: FALSE
  [13:37:25.122] The total size of the 3 globals is 296 bytes (296 bytes)
  [13:37:25.122] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:25.122] 
  [13:37:25.123] getGlobalsAndPackages() ... DONE
  [13:37:25.125] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:37:25.126] Packages needed by future strategies (n = 1): 'future'
  [13:37:25.132] {
  [13:37:25.132]     {
  [13:37:25.132]         ...future.startTime <- base::Sys.time()
  [13:37:25.132]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:25.132]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:25.132]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:25.132]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:25.132]             future.resolve.recursive = NULL, width = 80L)
  [13:37:25.132]         {
  [13:37:25.132]             {
  [13:37:25.132]                 {
  [13:37:25.132]                   has_future <- base::requireNamespace("future", 
  [13:37:25.132]                     quietly = TRUE)
  [13:37:25.132]                   version <- if (has_future) 
  [13:37:25.132]                     utils::packageVersion("future")
  [13:37:25.132]                   else NULL
  [13:37:25.132]                   if (!has_future || version < "1.8.0") {
  [13:37:25.132]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:25.132]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:25.132]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:25.132]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:25.132]                         "release", "version")], collapse = " "), 
  [13:37:25.132]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:25.132]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:25.132]                       info)
  [13:37:25.132]                     info <- base::paste(info, collapse = "; ")
  [13:37:25.132]                     if (!has_future) {
  [13:37:25.132]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:25.132]                         info)
  [13:37:25.132]                     }
  [13:37:25.132]                     else {
  [13:37:25.132]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:25.132]                         info, version)
  [13:37:25.132]                     }
  [13:37:25.132]                     base::stop(msg)
  [13:37:25.132]                   }
  [13:37:25.132]                 }
  [13:37:25.132]                 base::local({
  [13:37:25.132]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:37:25.132]                   "future")) {
  [13:37:25.132]                     base::loadNamespace(pkg)
  [13:37:25.132]                     base::library(pkg, character.only = TRUE)
  [13:37:25.132]                   }
  [13:37:25.132]                 })
  [13:37:25.132]             }
  [13:37:25.132]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:25.132]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:25.132]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:25.132]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:25.132]                 ...) 
  [13:37:25.132]             {
  [13:37:25.132]                 if (substitute) 
  [13:37:25.132]                   expr <- substitute(expr)
  [13:37:25.132]                 if (is.function(workers)) 
  [13:37:25.132]                   workers <- workers()
  [13:37:25.132]                 workers <- as.integer(workers)
  [13:37:25.132]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:25.132]                   workers >= 1)
  [13:37:25.132]                 if (workers == 1L) {
  [13:37:25.132]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:25.132]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:25.132]                     local = TRUE, label = label, ...))
  [13:37:25.132]                 }
  [13:37:25.132]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:25.132]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:25.132]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:25.132]                   globals = globals, persistent = persistent, 
  [13:37:25.132]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:25.132]                   label = label, ...)
  [13:37:25.132]                 if (!future$lazy) 
  [13:37:25.132]                   future <- run(future)
  [13:37:25.132]                 invisible(future)
  [13:37:25.132]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:25.132]         }
  [13:37:25.132]     }
  [13:37:25.132]     if (base::is.na(TRUE)) {
  [13:37:25.132]     }
  [13:37:25.132]     else {
  [13:37:25.132]         if (TRUE) {
  [13:37:25.132]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:25.132]                 open = "w")
  [13:37:25.132]         }
  [13:37:25.132]         else {
  [13:37:25.132]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:25.132]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:25.132]         }
  [13:37:25.132]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:25.132]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:25.132]             base::sink(type = "output", split = FALSE)
  [13:37:25.132]             base::close(...future.stdout)
  [13:37:25.132]         }, add = TRUE)
  [13:37:25.132]     }
  [13:37:25.132]     ...future.frame <- base::sys.nframe()
  [13:37:25.132]     ...future.conditions <- base::list()
  [13:37:25.132]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:25.132]     ...future.result <- base::tryCatch({
  [13:37:25.132]         base::withCallingHandlers({
  [13:37:25.132]             ...future.value <- base::withVisible(base::local({
  [13:37:25.132]                 doFuture::registerDoFuture()
  [13:37:25.132]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:25.132]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:25.132]                   a <- NULL
  [13:37:25.132]                   ...future.env <- environment()
  [13:37:25.132]                   local({
  [13:37:25.132]                     for (name in names(...future.x_jj)) {
  [13:37:25.132]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:25.132]                         inherits = FALSE)
  [13:37:25.132]                     }
  [13:37:25.132]                   })
  [13:37:25.132]                   tryCatch({
  [13:37:25.132]                     plan_list <- future::plan("next")
  [13:37:25.132]                     stopifnot(inherits(plan_list, strategy2))
  [13:37:25.132]                     plan_a <- future::plan("list")
  [13:37:25.132]                     str(plan_a)
  [13:37:25.132]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:25.132]                     message("foreach() - level 2 ...")
  [13:37:25.132]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:25.132]                       {
  [13:37:25.132]                         plan_list <- future::plan("next")
  [13:37:25.132]                         message(capture.output(print(plan_list)))
  [13:37:25.132]                         stopifnot(inherits(plan_list, "future"))
  [13:37:25.132]                         default <- getOption("future.plan", "sequential")
  [13:37:25.132]                         if (is.function(default)) 
  [13:37:25.132]                           default <- class(default)
  [13:37:25.132]                         stopifnot(inherits(plan_list, default))
  [13:37:25.132]                         plan_b <- future::plan("list")
  [13:37:25.132]                         str(plan_b)
  [13:37:25.132]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:25.132]                           inherits(plan_b[[1]], default))
  [13:37:25.132]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:25.132]                       }
  [13:37:25.132]                     message("foreach() - level 2 ... DONE")
  [13:37:25.132]                     y
  [13:37:25.132]                   }, error = identity)
  [13:37:25.132]                 })
  [13:37:25.132]             }))
  [13:37:25.132]             future::FutureResult(value = ...future.value$value, 
  [13:37:25.132]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:25.132]                   ...future.rng), started = ...future.startTime, 
  [13:37:25.132]                 version = "1.8")
  [13:37:25.132]         }, condition = base::local({
  [13:37:25.132]             c <- base::c
  [13:37:25.132]             inherits <- base::inherits
  [13:37:25.132]             invokeRestart <- base::invokeRestart
  [13:37:25.132]             length <- base::length
  [13:37:25.132]             list <- base::list
  [13:37:25.132]             seq.int <- base::seq.int
  [13:37:25.132]             signalCondition <- base::signalCondition
  [13:37:25.132]             sys.calls <- base::sys.calls
  [13:37:25.132]             Sys.time <- base::Sys.time
  [13:37:25.132]             `[[` <- base::`[[`
  [13:37:25.132]             `+` <- base::`+`
  [13:37:25.132]             `<<-` <- base::`<<-`
  [13:37:25.132]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:25.132]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:25.132]                   3L)]
  [13:37:25.132]             }
  [13:37:25.132]             function(cond) {
  [13:37:25.132]                 if (inherits(cond, "error")) {
  [13:37:25.132]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:25.132]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:25.132]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:25.132]                   signalCondition(cond)
  [13:37:25.132]                 }
  [13:37:25.132]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:25.132]                 ))) {
  [13:37:25.132]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:25.132]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:25.132]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:25.132]                   if (!signal) {
  [13:37:25.132]                     muffleCondition <- function (cond) 
  [13:37:25.132]                     {
  [13:37:25.132]                       inherits <- base::inherits
  [13:37:25.132]                       invokeRestart <- base::invokeRestart
  [13:37:25.132]                       muffled <- FALSE
  [13:37:25.132]                       if (inherits(cond, "message")) {
  [13:37:25.132]                         invokeRestart("muffleMessage")
  [13:37:25.132]                         muffled <- TRUE
  [13:37:25.132]                       }
  [13:37:25.132]                       else if (inherits(cond, "warning")) {
  [13:37:25.132]                         invokeRestart("muffleWarning")
  [13:37:25.132]                         muffled <- TRUE
  [13:37:25.132]                       }
  [13:37:25.132]                       else if (inherits(cond, "condition")) {
  [13:37:25.132]                         computeRestarts <- base::computeRestarts
  [13:37:25.132]                         grepl <- base::grepl
  [13:37:25.132]                         is.null <- base::is.null
  [13:37:25.132]                         restarts <- computeRestarts(cond)
  [13:37:25.132]                         for (restart in restarts) {
  [13:37:25.132]                           name <- restart$name
  [13:37:25.132]                           if (is.null(name)) 
  [13:37:25.132]                             next
  [13:37:25.132]                           if (!grepl("^muffle", name)) 
  [13:37:25.132]                             next
  [13:37:25.132]                           invokeRestart(restart)
  [13:37:25.132]                           muffled <- TRUE
  [13:37:25.132]                           break
  [13:37:25.132]                         }
  [13:37:25.132]                       }
  [13:37:25.132]                       invisible(muffled)
  [13:37:25.132]                     }
  [13:37:25.132]                     muffleCondition(cond)
  [13:37:25.132]                   }
  [13:37:25.132]                 }
  [13:37:25.132]             }
  [13:37:25.132]         }))
  [13:37:25.132]     }, error = function(ex) {
  [13:37:25.132]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:25.132]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:25.132]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:25.132]     }, finally = {
  [13:37:25.132]         {
  [13:37:25.132]             NULL
  [13:37:25.132]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:25.132]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:25.132]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:25.132]                 label = NULL, ...) 
  [13:37:25.132]             {
  [13:37:25.132]                 if (substitute) 
  [13:37:25.132]                   expr <- substitute(expr)
  [13:37:25.132]                 local <- as.logical(local)
  [13:37:25.132]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:25.132]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:25.132]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:25.132]                   label = label, ...)
  [13:37:25.132]                 if (!future$lazy) 
  [13:37:25.132]                   future <- run(future)
  [13:37:25.132]                 invisible(future)
  [13:37:25.132]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:25.132]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:25.132]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:37:25.132]                 label = NULL, ...) 
  [13:37:25.132]             {
  [13:37:25.132]                 if (substitute) 
  [13:37:25.132]                   expr <- substitute(expr)
  [13:37:25.132]                 if (is.function(workers)) 
  [13:37:25.132]                   workers <- workers()
  [13:37:25.132]                 workers <- as.integer(workers)
  [13:37:25.132]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:25.132]                   workers >= 1)
  [13:37:25.132]                 if (workers == 1L) {
  [13:37:25.132]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:25.132]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:25.132]                     local = TRUE, label = label, ...))
  [13:37:25.132]                 }
  [13:37:25.132]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:25.132]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:25.132]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:25.132]                   globals = globals, persistent = persistent, 
  [13:37:25.132]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:25.132]                   label = label, ...)
  [13:37:25.132]                 if (!future$lazy) 
  [13:37:25.132]                   future <- run(future)
  [13:37:25.132]                 invisible(future)
  [13:37:25.132]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:25.132]         }
  [13:37:25.132]         base::options(...future.oldOptions)
  [13:37:25.132]     })
  [13:37:25.132]     Sys.time
  [13:37:25.132]     if (base::is.na(TRUE)) {
  [13:37:25.132]     }
  [13:37:25.132]     else {
  [13:37:25.132]         base::sink(type = "output", split = FALSE)
  [13:37:25.132]         if (TRUE) {
  [13:37:25.132]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:25.132]         }
  [13:37:25.132]         else {
  [13:37:25.132]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:25.132]         }
  [13:37:25.132]         base::close(...future.stdout)
  [13:37:25.132]         ...future.stdout <- NULL
  [13:37:25.132]     }
  [13:37:25.132]     ...future.result$conditions <- ...future.conditions
  [13:37:25.132]     ...future.result
  [13:37:25.132] }
  [13:37:25.140] plan(): Setting new future strategy stack:
  [13:37:25.140] List of future strategies:
  [13:37:25.140] 1. multisession:
  [13:37:25.140]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:25.140]    - tweaked: FALSE
  [13:37:25.140]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:25.142] plan(): nbrOfWorkers() = 2
  [13:37:43.108] plan(): Setting new future strategy stack:
  [13:37:43.108] List of future strategies:
  [13:37:43.108] 1. sequential:
  [13:37:43.108]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:43.108]    - tweaked: FALSE
  [13:37:43.108]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:43.108] 2. multisession:
  [13:37:43.108]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:43.108]    - tweaked: FALSE
  [13:37:43.108]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:43.109] plan(): nbrOfWorkers() = 1
  [13:37:43.111] SequentialFuture started (and completed)
  [13:37:43.111] signalConditions() ...
  [13:37:43.111]  - include = 'immediateCondition'
  [13:37:43.112]  - exclude = 
  [13:37:43.112]  - resignal = FALSE
  [13:37:43.112]  - Number of conditions: 604
  [13:37:43.115] signalConditions() ... done
  [13:37:43.116] Chunk #1 of 1 ... DONE
  [13:37:43.116] Launching 1 futures (chunks) ... DONE
  [13:37:43.116] - resolving futures
  [13:37:43.116]   - gathering results & relaying conditions (except errors)
  [13:37:43.117] resolve() on list ...
  [13:37:43.117]  recursive: 0
  [13:37:43.117]  length: 1
  [13:37:43.118] 
  [13:37:43.118] Future #1
  [13:37:43.118] signalConditions() ...
  [13:37:43.119]  - include = 'immediateCondition'
  [13:37:43.119]  - exclude = 
  [13:37:43.119]  - resignal = FALSE
  [13:37:43.119]  - Number of conditions: 604
  [13:37:43.122] signalConditions() ... done
  [13:37:43.123] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:37:43.123] - nx: 1
  [13:37:43.123] - relay: TRUE
  [13:37:43.123] - stdout: TRUE
  [13:37:43.124] - signal: TRUE
  [13:37:43.124] - resignal: FALSE
  [13:37:43.124] - force: FALSE
  [13:37:43.125] - relayed: [n=1] FALSE
  [13:37:43.125] - queued futures: [n=1] FALSE
  [13:37:43.125]  - until=1
  [13:37:43.125]  - relaying element #1
  [13:37:43.126] signalConditions() ...
  [13:37:43.126]  - include = 'immediateCondition'
  [13:37:43.127]  - exclude = 
  [13:37:43.127]  - resignal = FALSE
  [13:37:43.127]  - Number of conditions: 604
  [13:37:43.130] 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"
  [13:37:43.131] signalConditions() ...
  [13:37:43.131]  - include = 'immediateCondition'
  [13:37:43.131]  - exclude = 
  [13:37:43.132]  - resignal = FALSE
  [13:37:43.132]  - Number of conditions: 604
  [13:37:43.135] signalConditions() ... done
  [13:37:43.154] signalConditions() ...
  [13:37:43.154]  - include = 'condition'
  [13:37:43.155]  - exclude = 'immediateCondition'
  [13:37:43.155]  - resignal = FALSE
  [13:37:43.155]  - Number of conditions: 604
  [13:37:43.156]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:43.156]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:25.149] doFuture() ...
  [13:37:43.157]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:25.151] - dummy globals (as locals): [1] 'b'
  [13:37:43.157]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [13:37:25.152] - R expression:
  [13:37:43.158]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [13:37:25.152] {
  [13:37:25.152]     doFuture::registerDoFuture()
  [13:37:25.152]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:25.152]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:25.152]         b <- NULL
  [13:37:25.152]         ...future.env <- environment()
  [13:37:25.152]         local({
  [13:37:25.152]             for (name in names(...future.x_jj)) {
  [13:37:25.152]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:25.152]                   inherits = FALSE)
  [13:37:25.152]             }
  [13:37:25.152]         })
  [13:37:25.152]         tryCatch({
  [13:37:25.152]             plan_list <- future::plan("next")
  [13:37:25.152]             message(capture.output(print(plan_list)))
  [13:37:25.152]             stopifnot(inherits(plan_list, "future"))
  [13:37:25.152]             default <- getOption("future.plan", "sequential")
  [13:37:25.152]             if (is.function(default)) 
  [13:37:25.152]                 default <- class(default)
  [13:37:25.152]             stopifnot(inherits(plan_list, default))
  [13:37:25.152]             plan_b <- future::plan("list")
  [13:37:25.152]             str(plan_b)
  [13:37:25.152]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:25.152]                 default))
  [13:37:25.152]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:25.152]         }, error = identity)
  [13:37:25.152]     })
  [13:37:25.152] }
  [13:37:43.158]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [13:37:25.153] - identifying globals and packages ...
  [13:37:43.159]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [13:37:25.154] getGlobalsAndPackages() ...
  [13:37:43.159]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [13:37:25.155] Searching for globals...
  [13:37:43.160]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [13:37:25.207] - 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'
  [13:37:43.160]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [13:37:25.207] Searching for globals ... DONE
  [13:37:43.161]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [13:37:25.208] Resolving globals: FALSE
  [13:37:43.161]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [13:37:25.211] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:37:43.162]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [13:37:25.212] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.162]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [13:37:25.212] - packages: [1] 'utils'
  [13:37:43.163]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [13:37:25.213] getGlobalsAndPackages() ... DONE
  [13:37:43.163]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [13:37:25.213] List of 3
  [13:37:25.213]  $ ...future.x_ii: NULL
  [13:37:25.213]  $ a             : int 1
  [13:37:25.213]  $ plan_a        :List of 1
  [13:37:25.213]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:25.213]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:25.213]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:37:25.213]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:37:25.213]   .. ..- attr(*, "init")= logi TRUE
  [13:37:25.213]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:25.213]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:25.213]  - attr(*, "where")=List of 3
  [13:37:25.213]   ..$ ...future.x_ii:<environment: 0x561c1bcfe448> 
  [13:37:25.213]   ..$ a             :<environment: 0x561c1aaa34d0> 
  [13:37:25.213]   ..$ plan_a        :<environment: 0x561c1aaa34d0> 
  [13:37:25.213]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:25.213]  - attr(*, "resolved")= logi FALSE
  [13:37:25.213]  - attr(*, "total_size")= num 83544
  [13:37:43.164]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [13:37:25.227]   - R expression:
  [13:37:43.164]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [13:37:25.227] {
  [13:37:25.227]     doFuture::registerDoFuture()
  [13:37:25.227]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:25.227]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:25.227]         b <- NULL
  [13:37:25.227]         ...future.env <- environment()
  [13:37:25.227]         local({
  [13:37:25.227]             for (name in names(...future.x_jj)) {
  [13:37:25.227]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:25.227]                   inherits = FALSE)
  [13:37:25.227]             }
  [13:37:25.227]         })
  [13:37:25.227]         tryCatch({
  [13:37:25.227]             plan_list <- future::plan("next")
  [13:37:25.227]             message(capture.output(print(plan_list)))
  [13:37:25.227]             stopifnot(inherits(plan_list, "future"))
  [13:37:25.227]             default <- getOption("future.plan", "sequential")
  [13:37:25.227]             if (is.function(default)) 
  [13:37:25.227]                 default <- class(default)
  [13:37:25.227]             stopifnot(inherits(plan_list, default))
  [13:37:25.227]             plan_b <- future::plan("list")
  [13:37:25.227]             str(plan_b)
  [13:37:25.227]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:25.227]                 default))
  [13:37:25.227]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:25.227]         }, error = identity)
  [13:37:25.227]     })
  [13:37:25.227] }
  [13:37:43.165]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [13:37:25.228]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.165]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [13:37:25.229] List of 3
  [13:37:25.229]  $ ...future.x_ii: NULL
  [13:37:25.229]  $ a             : int 1
  [13:37:25.229]  $ plan_a        :List of 1
  [13:37:25.229]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:25.229]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:25.229]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:37:25.229]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:37:25.229]   .. ..- attr(*, "init")= logi TRUE
  [13:37:25.229]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:25.229]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:25.229]  - attr(*, "where")=List of 3
  [13:37:25.229]   ..$ ...future.x_ii:<environment: 0x561c1bcfe448> 
  [13:37:25.229]   ..$ a             :<environment: 0x561c1aaa34d0> 
  [13:37:25.229]   ..$ plan_a        :<environment: 0x561c1aaa34d0> 
  [13:37:25.229]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:25.229]  - attr(*, "resolved")= logi FALSE
  [13:37:25.229]  - attr(*, "total_size")= num 83544
  [13:37:43.166]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [13:37:25.248]   - packages: [2] 'doFuture', 'utils'
  [13:37:43.166]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [13:37:25.248] - identifying globals and packages ... DONE
  [13:37:43.167]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [13:37:25.250] Number of chunks: 2
  [13:37:43.167]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [13:37:25.250] Number of futures (= number of chunks): 2
  [13:37:43.168]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [13:37:25.252] Launching 2 futures (chunks) ...
  [13:37:43.168]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [13:37:25.252] Chunk #1 of 2 ...
  [13:37:43.168]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [13:37:25.252]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:43.169]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [13:37:25.253] getGlobalsAndPackages() ...
  [13:37:43.169]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [13:37:25.254] Searching for globals...
  [13:37:43.170]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [13:37:25.255] 
  [13:37:43.170]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [13:37:25.255] Searching for globals ... DONE
  [13:37:43.171]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [13:37:25.255] - globals: [0] <none>
  [13:37:43.171]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [13:37:25.256] getGlobalsAndPackages() ... DONE
  [13:37:43.171]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [13:37:25.256] 
  [13:37:43.172]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [13:37:25.257] 
  [13:37:43.172]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [13:37:25.257]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:43.173]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [13:37:43.173]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 31327
  [13:37:43.174]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [13:37:43.174]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [13:37:43.175]  - 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/RtmpLfcXs7/future.parent=21594.545a78b601a3.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLfcXs7/future.parent=21594.545a78b601a3.pid')"'
  [13:37:43.175]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [13:37:43.175]  - 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:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a78b601a3.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=31327 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [13:37:43.176]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [13:37:43.176]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [13:37:43.177]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [13:37:43.177]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [13:37:43.178]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [13:37:43.178]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [13:37:43.178]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [13:37:43.179]  - 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/RtmpLfcXs7/future.parent=21594.545a42d8d8af.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLfcXs7/future.parent=21594.545a42d8d8af.pid')"'
  [13:37:43.179]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [13:37:43.180]  - 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:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a42d8d8af.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=31327 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [13:37:43.180]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [13:37:43.181]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [13:37:43.181]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [13:37:43.181]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [13:37:43.182]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [13:37:43.182]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [13:37:41.528] getGlobalsAndPackages() ...
  [13:37:43.183]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [13:37:41.529] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.183]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [13:37:41.530] Resolving globals: FALSE
  [13:37:43.184]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [13:37:41.531] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [13:37:43.184]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [13:37:41.532] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.184]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [13:37:41.533] 
  [13:37:43.185]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [13:37:41.533] getGlobalsAndPackages() ... DONE
  [13:37:43.185]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [13:37:41.554] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:43.186]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [13:37:41.555] Packages needed by future strategies (n = 0): <none>
  [13:37:43.186]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [13:37:41.561] {
  [13:37:41.561]     {
  [13:37:41.561]         ...future.startTime <- base::Sys.time()
  [13:37:41.561]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:41.561]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:41.561]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:41.561]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:41.561]             future.resolve.recursive = NULL, width = 80L)
  [13:37:41.561]         {
  [13:37:41.561]             {
  [13:37:41.561]                 {
  [13:37:41.561]                   {
  [13:37:41.561]                     has_future <- base::requireNamespace("future", 
  [13:37:41.561]                       quietly = TRUE)
  [13:37:41.561]                     version <- if (has_future) 
  [13:37:41.561]                       utils::packageVersion("future")
  [13:37:41.561]                     else NULL
  [13:37:41.561]                     if (!has_future || version < "1.8.0") {
  [13:37:41.561]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:41.561]                         "", base::R.version$version.string), 
  [13:37:41.561]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:41.561]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:41.561]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:41.561]                           "release", "version")], collapse = " "), 
  [13:37:41.561]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:41.561]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:41.561]                         info)
  [13:37:41.561]                       info <- base::paste(info, collapse = "; ")
  [13:37:41.561]                       if (!has_future) {
  [13:37:41.561]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:41.561]                           info)
  [13:37:41.561]                       }
  [13:37:41.561]                       else {
  [13:37:41.561]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:41.561]                           info, version)
  [13:37:41.561]                       }
  [13:37:41.561]                       base::stop(msg)
  [13:37:41.561]                     }
  [13:37:41.561]                   }
  [13:37:41.561]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:41.561]                   base::options(mc.cores = 1L)
  [13:37:41.561]                 }
  [13:37:41.561]                 base::local({
  [13:37:41.561]                   for (pkg in c("doFuture", "utils")) {
  [13:37:41.561]                     base::loadNamespace(pkg)
  [13:37:41.561]                     base::library(pkg, character.only = TRUE)
  [13:37:41.561]                   }
  [13:37:41.561]                 })
  [13:37:41.561]             }
  [13:37:41.561]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:41.561]         }
  [13:37:41.561]     }
  [13:37:41.561]     if (base::is.na(TRUE)) {
  [13:37:41.561]     }
  [13:37:41.561]     else {
  [13:37:41.561]         if (TRUE) {
  [13:37:41.561]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:41.561]                 open = "w")
  [13:37:41.561]         }
  [13:37:41.561]         else {
  [13:37:41.561]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:41.561]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:41.561]         }
  [13:37:41.561]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:41.561]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:41.561]             base::sink(type = "output", split = FALSE)
  [13:37:41.561]             base::close(...future.stdout)
  [13:37:41.561]         }, add = TRUE)
  [13:37:41.561]     }
  [13:37:41.561]     ...future.frame <- base::sys.nframe()
  [13:37:41.561]     ...future.conditions <- base::list()
  [13:37:41.561]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:41.561]     ...future.result <- base::tryCatch({
  [13:37:41.561]         base::withCallingHandlers({
  [13:37:41.561]             ...future.value <- base::withVisible(base::local({
  [13:37:41.561]                 ...future.sendCondition <- local({
  [13:37:41.561]                   sendCondition <- NULL
  [13:37:41.561]                   function(frame = 1L) {
  [13:37:41.561]                     if (is.function(sendCondition)) 
  [13:37:41.561]                       return(sendCondition)
  [13:37:41.561]                     ns <- getNamespace("parallel")
  [13:37:41.561]                     if (exists("sendData", mode = "function", 
  [13:37:41.561]                       envir = ns)) {
  [13:37:41.561]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:41.561]                         envir = ns)
  [13:37:41.561]                       envir <- sys.frame(frame)
  [13:37:41.561]                       master <- NULL
  [13:37:41.561]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:41.561]                         !identical(envir, emptyenv())) {
  [13:37:41.561]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:41.561]                           inherits = FALSE)) {
  [13:37:41.561]                           master <- get("master", mode = "list", 
  [13:37:41.561]                             envir = envir, inherits = FALSE)
  [13:37:41.561]                           if (inherits(master, "SOCKnode")) {
  [13:37:41.561]                             sendCondition <<- function(cond) {
  [13:37:41.561]                               data <- list(type = "VALUE", value = cond, 
  [13:37:41.561]                                 success = TRUE)
  [13:37:41.561]                               parallel_sendData(master, data)
  [13:37:41.561]                             }
  [13:37:41.561]                             return(sendCondition)
  [13:37:41.561]                           }
  [13:37:41.561]                         }
  [13:37:41.561]                         frame <- frame + 1L
  [13:37:41.561]                         envir <- sys.frame(frame)
  [13:37:41.561]                       }
  [13:37:41.561]                     }
  [13:37:41.561]                     sendCondition <<- function(cond) NULL
  [13:37:41.561]                   }
  [13:37:41.561]                 })
  [13:37:41.561]                 withCallingHandlers({
  [13:37:41.561]                   {
  [13:37:41.561]                     doFuture::registerDoFuture()
  [13:37:41.561]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:41.561]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:41.561]                       b <- NULL
  [13:37:41.561]                       ...future.env <- environment()
  [13:37:41.561]                       local({
  [13:37:41.561]                         for (name in names(...future.x_jj)) {
  [13:37:41.561]                           assign(name, ...future.x_jj[[name]], 
  [13:37:41.561]                             envir = ...future.env, inherits = FALSE)
  [13:37:41.561]                         }
  [13:37:41.561]                       })
  [13:37:41.561]                       tryCatch({
  [13:37:41.561]                         plan_list <- future::plan("next")
  [13:37:41.561]                         message(capture.output(print(plan_list)))
  [13:37:41.561]                         stopifnot(inherits(plan_list, "future"))
  [13:37:41.561]                         default <- getOption("future.plan", "sequential")
  [13:37:41.561]                         if (is.function(default)) 
  [13:37:41.561]                           default <- class(default)
  [13:37:41.561]                         stopifnot(inherits(plan_list, default))
  [13:37:41.561]                         plan_b <- future::plan("list")
  [13:37:41.561]                         str(plan_b)
  [13:37:41.561]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:41.561]                           inherits(plan_b[[1]], default))
  [13:37:41.561]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:41.561]                       }, error = identity)
  [13:37:41.561]                     })
  [13:37:41.561]                   }
  [13:37:41.561]                 }, immediateCondition = function(cond) {
  [13:37:41.561]                   sendCondition <- ...future.sendCondition()
  [13:37:41.561]                   sendCondition(cond)
  [13:37:41.561]                   muffleCondition <- function (cond) 
  [13:37:41.561]                   {
  [13:37:41.561]                     inherits <- base::inherits
  [13:37:41.561]                     invokeRestart <- base::invokeRestart
  [13:37:41.561]                     muffled <- FALSE
  [13:37:41.561]                     if (inherits(cond, "message")) {
  [13:37:41.561]                       invokeRestart("muffleMessage")
  [13:37:41.561]                       muffled <- TRUE
  [13:37:41.561]                     }
  [13:37:41.561]                     else if (inherits(cond, "warning")) {
  [13:37:41.561]                       invokeRestart("muffleWarning")
  [13:37:41.561]                       muffled <- TRUE
  [13:37:41.561]                     }
  [13:37:41.561]                     else if (inherits(cond, "condition")) {
  [13:37:41.561]                       computeRestarts <- base::computeRestarts
  [13:37:41.561]                       grepl <- base::grepl
  [13:37:41.561]                       is.null <- base::is.null
  [13:37:41.561]                       restarts <- computeRestarts(cond)
  [13:37:41.561]                       for (restart in restarts) {
  [13:37:41.561]                         name <- restart$name
  [13:37:41.561]                         if (is.null(name)) 
  [13:37:41.561]                           next
  [13:37:41.561]                         if (!grepl("^muffle", name)) 
  [13:37:41.561]                           next
  [13:37:41.561]                         invokeRestart(restart)
  [13:37:41.561]                         muffled <- TRUE
  [13:37:41.561]                         break
  [13:37:41.561]                       }
  [13:37:41.561]                     }
  [13:37:41.561]                     invisible(muffled)
  [13:37:41.561]                   }
  [13:37:41.561]                   muffleCondition(cond)
  [13:37:41.561]                 })
  [13:37:41.561]             }))
  [13:37:41.561]             future::FutureResult(value = ...future.value$value, 
  [13:37:41.561]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:41.561]                   ...future.rng), started = ...future.startTime, 
  [13:37:41.561]                 version = "1.8")
  [13:37:41.561]         }, condition = base::local({
  [13:37:41.561]             c <- base::c
  [13:37:41.561]             inherits <- base::inherits
  [13:37:41.561]             invokeRestart <- base::invokeRestart
  [13:37:41.561]             length <- base::length
  [13:37:41.561]             list <- base::list
  [13:37:41.561]             seq.int <- base::seq.int
  [13:37:41.561]             signalCondition <- base::signalCondition
  [13:37:41.561]             sys.calls <- base::sys.calls
  [13:37:41.561]             Sys.time <- base::Sys.time
  [13:37:41.561]             `[[` <- base::`[[`
  [13:37:41.561]             `+` <- base::`+`
  [13:37:41.561]             `<<-` <- base::`<<-`
  [13:37:41.561]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:41.561]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:41.561]                   3L)]
  [13:37:41.561]             }
  [13:37:41.561]             function(cond) {
  [13:37:41.561]                 if (inherits(cond, "error")) {
  [13:37:41.561]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:41.561]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:41.561]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:41.561]                   signalCondition(cond)
  [13:37:41.561]                 }
  [13:37:41.561]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:41.561]                 ))) {
  [13:37:41.561]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:41.561]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:41.561]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:41.561]                   if (!signal) {
  [13:37:41.561]                     muffleCondition <- function (cond) 
  [13:37:41.561]                     {
  [13:37:41.561]                       inherits <- base::inherits
  [13:37:41.561]                       invokeRestart <- base::invokeRestart
  [13:37:41.561]                       muffled <- FALSE
  [13:37:41.561]                       if (inherits(cond, "message")) {
  [13:37:41.561]                         invokeRestart("muffleMessage")
  [13:37:41.561]                         muffled <- TRUE
  [13:37:41.561]                       }
  [13:37:41.561]                       else if (inherits(cond, "warning")) {
  [13:37:41.561]                         invokeRestart("muffleWarning")
  [13:37:41.561]                         muffled <- TRUE
  [13:37:41.561]                       }
  [13:37:41.561]                       else if (inherits(cond, "condition")) {
  [13:37:41.561]                         computeRestarts <- base::computeRestarts
  [13:37:41.561]                         grepl <- base::grepl
  [13:37:41.561]                         is.null <- base::is.null
  [13:37:41.561]                         restarts <- computeRestarts(cond)
  [13:37:41.561]                         for (restart in restarts) {
  [13:37:41.561]                           name <- restart$name
  [13:37:41.561]                           if (is.null(name)) 
  [13:37:41.561]                             next
  [13:37:41.561]                           if (!grepl("^muffle", name)) 
  [13:37:41.561]                             next
  [13:37:41.561]                           invokeRestart(restart)
  [13:37:41.561]                           muffled <- TRUE
  [13:37:41.561]                           break
  [13:37:41.561]                         }
  [13:37:41.561]                       }
  [13:37:41.561]                       invisible(muffled)
  [13:37:41.561]                     }
  [13:37:41.561]                     muffleCondition(cond)
  [13:37:41.561]                   }
  [13:37:41.561]                 }
  [13:37:41.561]             }
  [13:37:41.561]         }))
  [13:37:41.561]     }, error = function(ex) {
  [13:37:41.561]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:41.561]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:41.561]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:41.561]     }, finally = {
  [13:37:41.561]         {
  [13:37:41.561]             {
  [13:37:41.561]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:41.561]             }
  [13:37:41.561]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:41.561]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:41.561]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:41.561]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:41.561]                 ...) 
  [13:37:41.561]             {
  [13:37:41.561]                 if (substitute) 
  [13:37:41.561]                   expr <- substitute(expr)
  [13:37:41.561]                 if (is.function(workers)) 
  [13:37:41.561]                   workers <- workers()
  [13:37:41.561]                 workers <- as.integer(workers)
  [13:37:41.561]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:41.561]                   workers >= 1)
  [13:37:41.561]                 if (workers == 1L) {
  [13:37:41.561]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:41.561]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:41.561]                     local = TRUE, label = label, ...))
  [13:37:41.561]                 }
  [13:37:41.561]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:41.561]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:41.561]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:41.561]                   globals = globals, persistent = persistent, 
  [13:37:41.561]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:41.561]                   label = label, ...)
  [13:37:41.561]                 if (!future$lazy) 
  [13:37:41.561]                   future <- run(future)
  [13:37:41.561]                 invisible(future)
  [13:37:41.561]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:41.561]         }
  [13:37:41.561]         base::options(...future.oldOptions)
  [13:37:41.561]     })
  [13:37:41.561]     Sys.time
  [13:37:41.561]     if (base::is.na(TRUE)) {
  [13:37:41.561]     }
  [13:37:41.561]     else {
  [13:37:41.561]         base::sink(type = "output", split = FALSE)
  [13:37:41.561]         if (TRUE) {
  [13:37:41.561]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:41.561]         }
  [13:37:41.561]         else {
  [13:37:41.561]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:41.561]         }
  [13:37:41.561]         base::close(...future.stdout)
  [13:37:41.561]         ...future.stdout <- NULL
  [13:37:41.561]     }
  [13:37:41.561]     ...future.result$conditions <- ...future.conditions
  [13:37:41.561]     ...future.result
  [13:37:41.561] }
  [13:37:43.187]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [13:37:41.580] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [13:37:43.187]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [13:37:41.581] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:37:43.187]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [13:37:41.584] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:37:43.188]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [13:37:41.585] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:37:43.188]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [13:37:41.586] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:37:43.189]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [13:37:41.587] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [13:37:43.189]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [13:37:41.631] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [13:37:43.189]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [13:37:41.632] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [13:37:43.190]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [13:37:41.633] MultisessionFuture started
  [13:37:43.190]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [13:37:41.634] Chunk #1 of 2 ... DONE
  [13:37:43.191]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [13:37:41.634] Chunk #2 of 2 ...
  [13:37:43.191]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [13:37:41.635]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:43.192]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [13:37:41.635] getGlobalsAndPackages() ...
  [13:37:43.192]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [13:37:41.636] Searching for globals...
  [13:37:43.192]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [13:37:41.637] 
  [13:37:43.193]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [13:37:41.637] Searching for globals ... DONE
  [13:37:43.193]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [13:37:41.638] - globals: [0] <none>
  [13:37:43.194]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [13:37:41.638] getGlobalsAndPackages() ... DONE
  [13:37:43.194]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [13:37:41.638] 
  [13:37:43.195]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [13:37:41.658] 
  [13:37:43.195]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [13:37:41.658]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:43.195]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [13:37:41.687] getGlobalsAndPackages() ...
  [13:37:43.196]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [13:37:41.688] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.196]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [13:37:41.688] Resolving globals: FALSE
  [13:37:43.197]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [13:37:41.690] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [13:37:43.197]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [13:37:41.691] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.198]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [13:37:41.692] 
  [13:37:43.198]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [13:37:41.692] getGlobalsAndPackages() ... DONE
  [13:37:43.199]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [13:37:41.697] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:43.199]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [13:37:41.697] Packages needed by future strategies (n = 0): <none>
  [13:37:43.199]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [13:37:41.716] {
  [13:37:41.716]     {
  [13:37:41.716]         ...future.startTime <- base::Sys.time()
  [13:37:41.716]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:41.716]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:41.716]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:41.716]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:41.716]             future.resolve.recursive = NULL, width = 80L)
  [13:37:41.716]         {
  [13:37:41.716]             {
  [13:37:41.716]                 {
  [13:37:41.716]                   {
  [13:37:41.716]                     has_future <- base::requireNamespace("future", 
  [13:37:41.716]                       quietly = TRUE)
  [13:37:41.716]                     version <- if (has_future) 
  [13:37:41.716]                       utils::packageVersion("future")
  [13:37:41.716]                     else NULL
  [13:37:41.716]                     if (!has_future || version < "1.8.0") {
  [13:37:41.716]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:41.716]                         "", base::R.version$version.string), 
  [13:37:41.716]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:41.716]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:41.716]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:41.716]                           "release", "version")], collapse = " "), 
  [13:37:41.716]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:41.716]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:41.716]                         info)
  [13:37:41.716]                       info <- base::paste(info, collapse = "; ")
  [13:37:41.716]                       if (!has_future) {
  [13:37:41.716]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:41.716]                           info)
  [13:37:41.716]                       }
  [13:37:41.716]                       else {
  [13:37:41.716]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:41.716]                           info, version)
  [13:37:41.716]                       }
  [13:37:41.716]                       base::stop(msg)
  [13:37:41.716]                     }
  [13:37:41.716]                   }
  [13:37:41.716]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:41.716]                   base::options(mc.cores = 1L)
  [13:37:41.716]                 }
  [13:37:41.716]                 base::local({
  [13:37:41.716]                   for (pkg in c("doFuture", "utils")) {
  [13:37:41.716]                     base::loadNamespace(pkg)
  [13:37:41.716]                     base::library(pkg, character.only = TRUE)
  [13:37:41.716]                   }
  [13:37:41.716]                 })
  [13:37:41.716]             }
  [13:37:41.716]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:41.716]         }
  [13:37:41.716]     }
  [13:37:41.716]     if (base::is.na(TRUE)) {
  [13:37:41.716]     }
  [13:37:41.716]     else {
  [13:37:41.716]         if (TRUE) {
  [13:37:41.716]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:41.716]                 open = "w")
  [13:37:41.716]         }
  [13:37:41.716]         else {
  [13:37:41.716]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:41.716]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:41.716]         }
  [13:37:41.716]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:41.716]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:41.716]             base::sink(type = "output", split = FALSE)
  [13:37:41.716]             base::close(...future.stdout)
  [13:37:41.716]         }, add = TRUE)
  [13:37:41.716]     }
  [13:37:41.716]     ...future.frame <- base::sys.nframe()
  [13:37:41.716]     ...future.conditions <- base::list()
  [13:37:41.716]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:41.716]     ...future.result <- base::tryCatch({
  [13:37:41.716]         base::withCallingHandlers({
  [13:37:41.716]             ...future.value <- base::withVisible(base::local({
  [13:37:41.716]                 ...future.sendCondition <- local({
  [13:37:41.716]                   sendCondition <- NULL
  [13:37:41.716]                   function(frame = 1L) {
  [13:37:41.716]                     if (is.function(sendCondition)) 
  [13:37:41.716]                       return(sendCondition)
  [13:37:41.716]                     ns <- getNamespace("parallel")
  [13:37:41.716]                     if (exists("sendData", mode = "function", 
  [13:37:41.716]                       envir = ns)) {
  [13:37:41.716]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:41.716]                         envir = ns)
  [13:37:41.716]                       envir <- sys.frame(frame)
  [13:37:41.716]                       master <- NULL
  [13:37:41.716]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:41.716]                         !identical(envir, emptyenv())) {
  [13:37:41.716]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:41.716]                           inherits = FALSE)) {
  [13:37:41.716]                           master <- get("master", mode = "list", 
  [13:37:41.716]                             envir = envir, inherits = FALSE)
  [13:37:41.716]                           if (inherits(master, "SOCKnode")) {
  [13:37:41.716]                             sendCondition <<- function(cond) {
  [13:37:41.716]                               data <- list(type = "VALUE", value = cond, 
  [13:37:41.716]                                 success = TRUE)
  [13:37:41.716]                               parallel_sendData(master, data)
  [13:37:41.716]                             }
  [13:37:41.716]                             return(sendCondition)
  [13:37:41.716]                           }
  [13:37:41.716]                         }
  [13:37:41.716]                         frame <- frame + 1L
  [13:37:41.716]                         envir <- sys.frame(frame)
  [13:37:41.716]                       }
  [13:37:41.716]                     }
  [13:37:41.716]                     sendCondition <<- function(cond) NULL
  [13:37:41.716]                   }
  [13:37:41.716]                 })
  [13:37:41.716]                 withCallingHandlers({
  [13:37:41.716]                   {
  [13:37:41.716]                     doFuture::registerDoFuture()
  [13:37:41.716]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:41.716]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:41.716]                       b <- NULL
  [13:37:41.716]                       ...future.env <- environment()
  [13:37:41.716]                       local({
  [13:37:41.716]                         for (name in names(...future.x_jj)) {
  [13:37:41.716]                           assign(name, ...future.x_jj[[name]], 
  [13:37:41.716]                             envir = ...future.env, inherits = FALSE)
  [13:37:41.716]                         }
  [13:37:41.716]                       })
  [13:37:41.716]                       tryCatch({
  [13:37:41.716]                         plan_list <- future::plan("next")
  [13:37:41.716]                         message(capture.output(print(plan_list)))
  [13:37:41.716]                         stopifnot(inherits(plan_list, "future"))
  [13:37:41.716]                         default <- getOption("future.plan", "sequential")
  [13:37:41.716]                         if (is.function(default)) 
  [13:37:41.716]                           default <- class(default)
  [13:37:41.716]                         stopifnot(inherits(plan_list, default))
  [13:37:41.716]                         plan_b <- future::plan("list")
  [13:37:41.716]                         str(plan_b)
  [13:37:41.716]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:41.716]                           inherits(plan_b[[1]], default))
  [13:37:41.716]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:41.716]                       }, error = identity)
  [13:37:41.716]                     })
  [13:37:41.716]                   }
  [13:37:41.716]                 }, immediateCondition = function(cond) {
  [13:37:41.716]                   sendCondition <- ...future.sendCondition()
  [13:37:41.716]                   sendCondition(cond)
  [13:37:41.716]                   muffleCondition <- function (cond) 
  [13:37:41.716]                   {
  [13:37:41.716]                     inherits <- base::inherits
  [13:37:41.716]                     invokeRestart <- base::invokeRestart
  [13:37:41.716]                     muffled <- FALSE
  [13:37:41.716]                     if (inherits(cond, "message")) {
  [13:37:41.716]                       invokeRestart("muffleMessage")
  [13:37:41.716]                       muffled <- TRUE
  [13:37:41.716]                     }
  [13:37:41.716]                     else if (inherits(cond, "warning")) {
  [13:37:41.716]                       invokeRestart("muffleWarning")
  [13:37:41.716]                       muffled <- TRUE
  [13:37:41.716]                     }
  [13:37:41.716]                     else if (inherits(cond, "condition")) {
  [13:37:41.716]                       computeRestarts <- base::computeRestarts
  [13:37:41.716]                       grepl <- base::grepl
  [13:37:41.716]                       is.null <- base::is.null
  [13:37:41.716]                       restarts <- computeRestarts(cond)
  [13:37:41.716]                       for (restart in restarts) {
  [13:37:41.716]                         name <- restart$name
  [13:37:41.716]                         if (is.null(name)) 
  [13:37:41.716]                           next
  [13:37:41.716]                         if (!grepl("^muffle", name)) 
  [13:37:41.716]                           next
  [13:37:41.716]                         invokeRestart(restart)
  [13:37:41.716]                         muffled <- TRUE
  [13:37:41.716]                         break
  [13:37:41.716]                       }
  [13:37:41.716]                     }
  [13:37:41.716]                     invisible(muffled)
  [13:37:41.716]                   }
  [13:37:41.716]                   muffleCondition(cond)
  [13:37:41.716]                 })
  [13:37:41.716]             }))
  [13:37:41.716]             future::FutureResult(value = ...future.value$value, 
  [13:37:41.716]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:41.716]                   ...future.rng), started = ...future.startTime, 
  [13:37:41.716]                 version = "1.8")
  [13:37:41.716]         }, condition = base::local({
  [13:37:41.716]             c <- base::c
  [13:37:41.716]             inherits <- base::inherits
  [13:37:41.716]             invokeRestart <- base::invokeRestart
  [13:37:41.716]             length <- base::length
  [13:37:41.716]             list <- base::list
  [13:37:41.716]             seq.int <- base::seq.int
  [13:37:41.716]             signalCondition <- base::signalCondition
  [13:37:41.716]             sys.calls <- base::sys.calls
  [13:37:41.716]             Sys.time <- base::Sys.time
  [13:37:41.716]             `[[` <- base::`[[`
  [13:37:41.716]             `+` <- base::`+`
  [13:37:41.716]             `<<-` <- base::`<<-`
  [13:37:41.716]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:41.716]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:41.716]                   3L)]
  [13:37:41.716]             }
  [13:37:41.716]             function(cond) {
  [13:37:41.716]                 if (inherits(cond, "error")) {
  [13:37:41.716]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:41.716]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:41.716]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:41.716]                   signalCondition(cond)
  [13:37:41.716]                 }
  [13:37:41.716]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:41.716]                 ))) {
  [13:37:41.716]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:41.716]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:41.716]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:41.716]                   if (!signal) {
  [13:37:41.716]                     muffleCondition <- function (cond) 
  [13:37:41.716]                     {
  [13:37:41.716]                       inherits <- base::inherits
  [13:37:41.716]                       invokeRestart <- base::invokeRestart
  [13:37:41.716]                       muffled <- FALSE
  [13:37:41.716]                       if (inherits(cond, "message")) {
  [13:37:41.716]                         invokeRestart("muffleMessage")
  [13:37:41.716]                         muffled <- TRUE
  [13:37:41.716]                       }
  [13:37:41.716]                       else if (inherits(cond, "warning")) {
  [13:37:41.716]                         invokeRestart("muffleWarning")
  [13:37:41.716]                         muffled <- TRUE
  [13:37:41.716]                       }
  [13:37:41.716]                       else if (inherits(cond, "condition")) {
  [13:37:41.716]                         computeRestarts <- base::computeRestarts
  [13:37:41.716]                         grepl <- base::grepl
  [13:37:41.716]                         is.null <- base::is.null
  [13:37:41.716]                         restarts <- computeRestarts(cond)
  [13:37:41.716]                         for (restart in restarts) {
  [13:37:41.716]                           name <- restart$name
  [13:37:41.716]                           if (is.null(name)) 
  [13:37:41.716]                             next
  [13:37:41.716]                           if (!grepl("^muffle", name)) 
  [13:37:41.716]                             next
  [13:37:41.716]                           invokeRestart(restart)
  [13:37:41.716]                           muffled <- TRUE
  [13:37:41.716]                           break
  [13:37:41.716]                         }
  [13:37:41.716]                       }
  [13:37:41.716]                       invisible(muffled)
  [13:37:41.716]                     }
  [13:37:41.716]                     muffleCondition(cond)
  [13:37:41.716]                   }
  [13:37:41.716]                 }
  [13:37:41.716]             }
  [13:37:41.716]         }))
  [13:37:41.716]     }, error = function(ex) {
  [13:37:41.716]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:41.716]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:41.716]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:41.716]     }, finally = {
  [13:37:41.716]         {
  [13:37:41.716]             {
  [13:37:41.716]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:41.716]             }
  [13:37:41.716]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:41.716]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:41.716]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:41.716]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:41.716]                 ...) 
  [13:37:41.716]             {
  [13:37:41.716]                 if (substitute) 
  [13:37:41.716]                   expr <- substitute(expr)
  [13:37:41.716]                 if (is.function(workers)) 
  [13:37:41.716]                   workers <- workers()
  [13:37:41.716]                 workers <- as.integer(workers)
  [13:37:41.716]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:41.716]                   workers >= 1)
  [13:37:41.716]                 if (workers == 1L) {
  [13:37:41.716]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:41.716]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:41.716]                     local = TRUE, label = label, ...))
  [13:37:41.716]                 }
  [13:37:41.716]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:41.716]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:41.716]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:41.716]                   globals = globals, persistent = persistent, 
  [13:37:41.716]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:41.716]                   label = label, ...)
  [13:37:41.716]                 if (!future$lazy) 
  [13:37:41.716]                   future <- run(future)
  [13:37:41.716]                 invisible(future)
  [13:37:41.716]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:41.716]         }
  [13:37:41.716]         base::options(...future.oldOptions)
  [13:37:41.716]     })
  [13:37:41.716]     Sys.time
  [13:37:41.716]     if (base::is.na(TRUE)) {
  [13:37:41.716]     }
  [13:37:41.716]     else {
  [13:37:41.716]         base::sink(type = "output", split = FALSE)
  [13:37:41.716]         if (TRUE) {
  [13:37:41.716]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:41.716]         }
  [13:37:41.716]         else {
  [13:37:41.716]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:41.716]         }
  [13:37:41.716]         base::close(...future.stdout)
  [13:37:41.716]         ...future.stdout <- NULL
  [13:37:41.716]     }
  [13:37:41.716]     ...future.result$conditions <- ...future.conditions
  [13:37:41.716]     ...future.result
  [13:37:41.716] }
  [13:37:43.200]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [13:37:41.724] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [13:37:43.200]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [13:37:41.725] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:37:43.201]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [13:37:41.726] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:37:43.201]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [13:37:41.727] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:37:43.202]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [13:37:41.728] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:37:43.202]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [13:37:41.729] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [13:37:43.203]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [13:37:41.771] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [13:37:43.203]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [13:37:41.772] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [13:37:43.204]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [13:37:41.773] MultisessionFuture started
  [13:37:43.204]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [13:37:41.773] Chunk #2 of 2 ... DONE
  [13:37:43.204]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [13:37:41.774] Launching 2 futures (chunks) ... DONE
  [13:37:43.205]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [13:37:41.774] - resolving futures
  [13:37:43.205]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [13:37:41.775]   - gathering results & relaying conditions (except errors)
  [13:37:43.206]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [13:37:41.775] resolve() on list ...
  [13:37:43.211]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [13:37:41.776]  recursive: 0
  [13:37:43.212]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [13:37:41.776]  length: 2
  [13:37:43.212]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [13:37:41.777] 
  [13:37:43.213]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [13:37:42.289] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:43.214]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [13:37:42.290] - Validating connection of MultisessionFuture
  [13:37:43.214]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [13:37:42.291] - received message: FutureResult
  [13:37:43.215]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [13:37:42.292] - Received FutureResult
  [13:37:43.215]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [13:37:42.292] - Erased future from FutureRegistry
  [13:37:43.215]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [13:37:42.293] result() for ClusterFuture ...
  [13:37:43.216]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [13:37:42.293] - result already collected: FutureResult
  [13:37:43.216]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [13:37:42.294] result() for ClusterFuture ... done
  [13:37:43.217]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [13:37:42.294] signalConditions() ...
  [13:37:43.217]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [13:37:42.299]  - include = 'immediateCondition'
  [13:37:43.218]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [13:37:42.300]  - exclude = 
  [13:37:43.218]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [13:37:42.301]  - resignal = FALSE
  [13:37:43.219]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [13:37:42.301]  - Number of conditions: 1
  [13:37:43.220]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [13:37:42.302] signalConditions() ... done
  [13:37:43.220]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [13:37:42.302] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:43.221]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [13:37:42.313] Future #1
  [13:37:43.221]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [13:37:42.313] result() for ClusterFuture ...
  [13:37:43.222]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [13:37:42.314] - result already collected: FutureResult
  [13:37:43.222]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [13:37:42.314] result() for ClusterFuture ... done
  [13:37:43.223]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [13:37:42.315] result() for ClusterFuture ...
  [13:37:43.223]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [13:37:42.315] - result already collected: FutureResult
  [13:37:43.224]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [13:37:42.316] result() for ClusterFuture ... done
  [13:37:43.224]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [13:37:42.316] signalConditions() ...
  [13:37:43.225]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [13:37:42.317]  - include = 'immediateCondition'
  [13:37:43.225]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [13:37:42.317]  - exclude = 
  [13:37:43.226]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [13:37:42.318]  - resignal = FALSE
  [13:37:43.226]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [13:37:42.318]  - Number of conditions: 1
  [13:37:43.227]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [13:37:42.319] signalConditions() ... done
  [13:37:43.227]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [13:37:42.319] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:37:43.228]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [13:37:42.320] - nx: 2
  [13:37:43.228]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [13:37:42.320] - relay: TRUE
  [13:37:43.229]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [13:37:42.321] - stdout: TRUE
  [13:37:43.229]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [13:37:42.321] - signal: TRUE
  [13:37:43.229]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [13:37:42.322] - resignal: FALSE
  [13:37:43.230]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [13:37:42.322] - force: FALSE
  [13:37:43.230]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [13:37:42.343] - relayed: [n=2] FALSE, FALSE
  [13:37:43.231]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [13:37:42.343] - queued futures: [n=2] FALSE, FALSE
  [13:37:43.231]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [13:37:42.344]  - until=1
  [13:37:43.231]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [13:37:42.344]  - relaying element #1
  [13:37:43.232]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [13:37:42.345] result() for ClusterFuture ...
  [13:37:43.232]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [13:37:42.351] - result already collected: FutureResult
  [13:37:43.233]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [13:37:42.351] result() for ClusterFuture ... done
  [13:37:43.233]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [13:37:42.352] result() for ClusterFuture ...
  [13:37:43.234]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [13:37:42.353] - result already collected: FutureResult
  [13:37:43.234]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [13:37:42.363] result() for ClusterFuture ... done
  [13:37:43.235]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [13:37:42.364] signalConditions() ...
  [13:37:43.235]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [13:37:42.364]  - include = 'immediateCondition'
  [13:37:43.235]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [13:37:42.365]  - exclude = 
  [13:37:43.236]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [13:37:42.365]  - resignal = FALSE
  [13:37:43.236]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [13:37:42.366]  - Number of conditions: 1
  [13:37:43.237]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [13:37:42.366] signalConditions() ... done
  [13:37:43.237]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [13:37:42.367] result() for ClusterFuture ...
  [13:37:43.238]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [13:37:42.368] - result already collected: FutureResult
  [13:37:43.238]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [13:37:42.368] result() for ClusterFuture ... done
  [13:37:43.239]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [13:37:42.369] signalConditions() ...
  [13:37:43.239]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [13:37:42.369]  - include = 'immediateCondition'
  [13:37:43.239]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [13:37:42.370]  - exclude = 
  [13:37:43.240]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [13:37:42.370]  - resignal = FALSE
  [13:37:43.240]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [13:37:42.370]  - Number of conditions: 1
  [13:37:43.241]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [13:37:42.371] signalConditions() ... done
  [13:37:43.241]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [13:37:42.371] result() for ClusterFuture ...
  [13:37:43.241]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [13:37:42.372] - result already collected: FutureResult
  [13:37:43.242]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [13:37:42.372] result() for ClusterFuture ... done
  [13:37:43.242]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [13:37:42.383] signalConditions() ...
  [13:37:43.243]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [13:37:42.384]  - include = 'condition'
  [13:37:43.243]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [13:37:42.384]  - exclude = 'immediateCondition'
  [13:37:43.244]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [13:37:42.385]  - resignal = FALSE
  [13:37:43.244]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [13:37:42.385]  - Number of conditions: 1
  [13:37:43.244]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [13:37:42.386]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:43.245]  - Condition #186: '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
  [13:37:43.245]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [13:37:42.386] signalConditions() ... done
  [13:37:43.246]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [13:37:42.387] - relayed: [n=2] TRUE, FALSE
  [13:37:43.246]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [13:37:42.387] - queued futures: [n=2] TRUE, FALSE
  [13:37:43.247]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [13:37:42.388] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:37:43.247]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [13:37:42.388]  length: 1 (resolved future 1)
  [13:37:43.247]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [13:37:42.390] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:43.248]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [13:37:42.391] - Validating connection of MultisessionFuture
  [13:37:43.248]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [13:37:42.392] - received message: FutureResult
  [13:37:43.249]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [13:37:42.392] - Received FutureResult
  [13:37:43.249]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [13:37:42.403] - Erased future from FutureRegistry
  [13:37:43.250]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [13:37:42.404] result() for ClusterFuture ...
  [13:37:43.250]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [13:37:42.404] - result already collected: FutureResult
  [13:37:43.250]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [13:37:42.405] result() for ClusterFuture ... done
  [13:37:43.251]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [13:37:42.405] signalConditions() ...
  [13:37:43.251]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [13:37:42.406]  - include = 'immediateCondition'
  [13:37:43.252]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [13:37:42.406]  - exclude = 
  [13:37:43.252]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [13:37:42.407]  - resignal = FALSE
  [13:37:43.253]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [13:37:42.407]  - Number of conditions: 2
  [13:37:43.253]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [13:37:42.407] signalConditions() ... done
  [13:37:43.253]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [13:37:42.408] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:43.254]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [13:37:42.408] Future #2
  [13:37:43.254]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [13:37:42.409] result() for ClusterFuture ...
  [13:37:43.255]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [13:37:42.409] - result already collected: FutureResult
  [13:37:43.255]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [13:37:42.410] result() for ClusterFuture ... done
  [13:37:43.256]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [13:37:42.410] result() for ClusterFuture ...
  [13:37:43.256]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [13:37:42.411] - result already collected: FutureResult
  [13:37:43.257]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [13:37:42.411] result() for ClusterFuture ... done
  [13:37:43.257]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [13:37:42.412] signalConditions() ...
  [13:37:43.257]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [13:37:42.412]  - include = 'immediateCondition'
  [13:37:43.258]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [13:37:42.423]  - exclude = 
  [13:37:43.258]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [13:37:42.424]  - resignal = FALSE
  [13:37:43.259]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [13:37:42.424]  - Number of conditions: 2
  [13:37:43.259]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [13:37:42.425] signalConditions() ... done
  [13:37:43.259]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [13:37:42.425] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:37:43.260]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [13:37:42.425] - nx: 2
  [13:37:43.260]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [13:37:42.426] - relay: TRUE
  [13:37:43.261]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [13:37:42.426] - stdout: TRUE
  [13:37:43.261]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [13:37:42.427] - signal: TRUE
  [13:37:43.262]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [13:37:42.427] - resignal: FALSE
  [13:37:43.262]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [13:37:42.428] - force: FALSE
  [13:37:43.262]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [13:37:42.428] - relayed: [n=2] TRUE, FALSE
  [13:37:43.263]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [13:37:42.429] - queued futures: [n=2] TRUE, FALSE
  [13:37:43.263]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [13:37:42.429]  - until=2
  [13:37:43.268]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [13:37:42.430]  - relaying element #2
  [13:37:43.269]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [13:37:42.430] result() for ClusterFuture ...
  [13:37:43.269]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [13:37:42.431] - result already collected: FutureResult
  [13:37:43.270]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [13:37:42.431] result() for ClusterFuture ... done
  [13:37:43.270]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [13:37:42.432] result() for ClusterFuture ...
  [13:37:43.271]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [13:37:42.432] - result already collected: FutureResult
  [13:37:43.271]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [13:37:42.433] result() for ClusterFuture ... done
  [13:37:43.272]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [13:37:42.443] signalConditions() ...
  [13:37:43.272]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [13:37:42.443]  - include = 'immediateCondition'
  [13:37:43.273]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [13:37:42.444]  - exclude = 
  [13:37:43.273]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [13:37:42.444]  - resignal = FALSE
  [13:37:43.274]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [13:37:42.445]  - Number of conditions: 2
  [13:37:43.274]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [13:37:42.445] signalConditions() ... done
  [13:37:43.275]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [13:37:42.446] result() for ClusterFuture ...
  [13:37:43.275]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [13:37:42.446] - result already collected: FutureResult
  [13:37:43.275]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [13:37:42.447] result() for ClusterFuture ... done
  [13:37:43.276]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [13:37:42.447] signalConditions() ...
  [13:37:43.276]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [13:37:42.448]  - include = 'immediateCondition'
  [13:37:43.277]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [13:37:42.448]  - exclude = 
  [13:37:43.277]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [13:37:42.449]  - resignal = FALSE
  [13:37:43.278]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [13:37:42.449]  - Number of conditions: 2
  [13:37:43.278]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [13:37:42.450] signalConditions() ... done
  [13:37:43.279]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [13:37:42.450] result() for ClusterFuture ...
  [13:37:43.279]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [13:37:42.450] - result already collected: FutureResult
  [13:37:43.280]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [13:37:42.451] result() for ClusterFuture ... done
  [13:37:43.280]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [13:37:42.451] signalConditions() ...
  [13:37:43.281]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [13:37:42.452]  - include = 'condition'
  [13:37:43.281]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [13:37:42.452]  - exclude = 'immediateCondition'
  [13:37:43.281]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [13:37:42.463]  - resignal = FALSE
  [13:37:43.282]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [13:37:42.463]  - Number of conditions: 2
  [13:37:43.282]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [13:37:42.464]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:43.283]  - Condition #261: '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
  [13:37:43.283]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [13:37:42.465]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:43.284]  - Condition #263: '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
  [13:37:43.284]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [13:37:42.465] signalConditions() ... done
  [13:37:43.284]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [13:37:42.466] - relayed: [n=2] TRUE, TRUE
  [13:37:43.285]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [13:37:42.466] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.285]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [13:37:42.466] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:37:43.286]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [13:37:42.467]  length: 0 (resolved future 2)
  [13:37:43.286]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [13:37:42.467] Relaying remaining futures
  [13:37:43.287]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [13:37:42.468] signalConditionsASAP(NULL, pos=0) ...
  [13:37:43.287]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [13:37:42.468] - nx: 2
  [13:37:43.287]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [13:37:42.468] - relay: TRUE
  [13:37:43.288]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [13:37:42.469] - stdout: TRUE
  [13:37:43.288]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [13:37:42.484] - signal: TRUE
  [13:37:43.289]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [13:37:42.485] - resignal: FALSE
  [13:37:43.289]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [13:37:42.485] - force: FALSE
  [13:37:43.290]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [13:37:42.486] - relayed: [n=2] TRUE, TRUE
  [13:37:43.290]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [13:37:42.486] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.290]  - Condition #279: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:43.291]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [13:37:42.487] - relayed: [n=2] TRUE, TRUE
  [13:37:43.291]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [13:37:42.488] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.292]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [13:37:42.488] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:43.292]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [13:37:42.489] resolve() on list ... DONE
  [13:37:43.292]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [13:37:42.489] - collecting values of futures
  [13:37:43.293]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [13:37:42.490] result() for ClusterFuture ...
  [13:37:43.293]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [13:37:42.490] - result already collected: FutureResult
  [13:37:43.294]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [13:37:42.491] result() for ClusterFuture ... done
  [13:37:43.294]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [13:37:42.492] result() for ClusterFuture ...
  [13:37:43.295]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [13:37:42.492] - result already collected: FutureResult
  [13:37:43.295]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [13:37:42.492] result() for ClusterFuture ... done
  [13:37:43.295]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [13:37:42.503] signalConditions() ...
  [13:37:43.296]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [13:37:42.504]  - include = 'immediateCondition'
  [13:37:43.296]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [13:37:42.504]  - exclude = 
  [13:37:43.297]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [13:37:42.505]  - resignal = FALSE
  [13:37:43.297]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [13:37:42.505]  - Number of conditions: 1
  [13:37:43.298]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [13:37:42.506] signalConditions() ... done
  [13:37:43.298]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [13:37:42.506] result() for ClusterFuture ...
  [13:37:43.298]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [13:37:42.508] - result already collected: FutureResult
  [13:37:43.299]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [13:37:42.508] result() for ClusterFuture ... done
  [13:37:43.299]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [13:37:42.509] result() for ClusterFuture ...
  [13:37:43.300]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [13:37:42.509] - result already collected: FutureResult
  [13:37:43.300]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [13:37:42.510] result() for ClusterFuture ... done
  [13:37:43.300]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [13:37:42.510] signalConditions() ...
  [13:37:43.301]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [13:37:42.511]  - include = 'immediateCondition'
  [13:37:43.301]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [13:37:42.511]  - exclude = 
  [13:37:43.302]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [13:37:42.512]  - resignal = FALSE
  [13:37:43.302]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [13:37:42.512]  - Number of conditions: 2
  [13:37:43.303]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [13:37:42.513] signalConditions() ... done
  [13:37:43.303]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [13:37:42.523] - accumulating results
  [13:37:43.303]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [13:37:42.525] - processing errors (handler = 'stop')
  [13:37:43.304]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [13:37:42.525] - extracting results
  [13:37:43.304]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [13:37:42.526] doFuture() ... DONE
  [13:37:43.305]  - Condition #313: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:43.305]  - Condition #314: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:37:43.306]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [13:37:42.532] doFuture() ...
  [13:37:43.306]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [13:37:42.544] - dummy globals (as locals): [1] 'b'
  [13:37:43.306]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [13:37:42.545] - R expression:
  [13:37:43.307]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [13:37:42.546] {
  [13:37:42.546]     doFuture::registerDoFuture()
  [13:37:42.546]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:42.546]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:42.546]         b <- NULL
  [13:37:42.546]         ...future.env <- environment()
  [13:37:42.546]         local({
  [13:37:42.546]             for (name in names(...future.x_jj)) {
  [13:37:42.546]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:42.546]                   inherits = FALSE)
  [13:37:42.546]             }
  [13:37:42.546]         })
  [13:37:42.546]         tryCatch({
  [13:37:42.546]             plan_list <- future::plan("next")
  [13:37:42.546]             message(capture.output(print(plan_list)))
  [13:37:42.546]             stopifnot(inherits(plan_list, "future"))
  [13:37:42.546]             default <- getOption("future.plan", "sequential")
  [13:37:42.546]             if (is.function(default)) 
  [13:37:42.546]                 default <- class(default)
  [13:37:42.546]             stopifnot(inherits(plan_list, default))
  [13:37:42.546]             plan_b <- future::plan("list")
  [13:37:42.546]             str(plan_b)
  [13:37:42.546]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:42.546]                 default))
  [13:37:42.546]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:42.546]         }, error = identity)
  [13:37:42.546]     })
  [13:37:42.546] }
  [13:37:43.307]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [13:37:42.547] - identifying globals and packages ...
  [13:37:43.308]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [13:37:42.548] getGlobalsAndPackages() ...
  [13:37:43.308]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [13:37:42.548] Searching for globals...
  [13:37:43.308]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [13:37:42.602] - 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'
  [13:37:43.309]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [13:37:42.602] Searching for globals ... DONE
  [13:37:43.309]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [13:37:42.603] Resolving globals: FALSE
  [13:37:43.310]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [13:37:42.606] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [13:37:43.310]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [13:37:42.607] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.311]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [13:37:42.607] - packages: [1] 'utils'
  [13:37:43.311]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [13:37:42.608] getGlobalsAndPackages() ... DONE
  [13:37:43.311]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [13:37:42.608] List of 3
  [13:37:42.608]  $ ...future.x_ii: NULL
  [13:37:42.608]  $ a             : int 2
  [13:37:42.608]  $ plan_a        :List of 1
  [13:37:42.608]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:42.608]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:42.608]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:37:42.608]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:37:42.608]   .. ..- attr(*, "init")= logi TRUE
  [13:37:42.608]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:42.608]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:42.608]  - attr(*, "where")=List of 3
  [13:37:42.608]   ..$ ...future.x_ii:<environment: 0x561c1a618340> 
  [13:37:42.608]   ..$ a             :<environment: 0x561c19e2ee58> 
  [13:37:42.608]   ..$ plan_a        :<environment: 0x561c19e2ee58> 
  [13:37:42.608]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:42.608]  - attr(*, "resolved")= logi FALSE
  [13:37:42.608]  - attr(*, "total_size")= num 83544
  [13:37:43.312]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [13:37:42.623]   - R expression:
  [13:37:43.312]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [13:37:42.623] {
  [13:37:42.623]     doFuture::registerDoFuture()
  [13:37:42.623]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:42.623]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:42.623]         b <- NULL
  [13:37:42.623]         ...future.env <- environment()
  [13:37:42.623]         local({
  [13:37:42.623]             for (name in names(...future.x_jj)) {
  [13:37:42.623]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:42.623]                   inherits = FALSE)
  [13:37:42.623]             }
  [13:37:42.623]         })
  [13:37:42.623]         tryCatch({
  [13:37:42.623]             plan_list <- future::plan("next")
  [13:37:42.623]             message(capture.output(print(plan_list)))
  [13:37:42.623]             stopifnot(inherits(plan_list, "future"))
  [13:37:42.623]             default <- getOption("future.plan", "sequential")
  [13:37:42.623]             if (is.function(default)) 
  [13:37:42.623]                 default <- class(default)
  [13:37:42.623]             stopifnot(inherits(plan_list, default))
  [13:37:42.623]             plan_b <- future::plan("list")
  [13:37:42.623]             str(plan_b)
  [13:37:42.623]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:42.623]                 default))
  [13:37:42.623]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:42.623]         }, error = identity)
  [13:37:42.623]     })
  [13:37:42.623] }
  [13:37:43.313]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [13:37:42.625]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.313]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [13:37:42.625] List of 3
  [13:37:42.625]  $ ...future.x_ii: NULL
  [13:37:42.625]  $ a             : int 2
  [13:37:42.625]  $ plan_a        :List of 1
  [13:37:42.625]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:42.625]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:42.625]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [13:37:42.625]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [13:37:42.625]   .. ..- attr(*, "init")= logi TRUE
  [13:37:42.625]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:42.625]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:42.625]  - attr(*, "where")=List of 3
  [13:37:42.625]   ..$ ...future.x_ii:<environment: 0x561c1a618340> 
  [13:37:42.625]   ..$ a             :<environment: 0x561c19e2ee58> 
  [13:37:42.625]   ..$ plan_a        :<environment: 0x561c19e2ee58> 
  [13:37:42.625]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:42.625]  - attr(*, "resolved")= logi FALSE
  [13:37:42.625]  - attr(*, "total_size")= num 83544
  [13:37:43.313]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [13:37:42.647]   - packages: [2] 'doFuture', 'utils'
  [13:37:43.314]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [13:37:42.647] - identifying globals and packages ... DONE
  [13:37:43.314]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [13:37:42.649] Number of chunks: 2
  [13:37:43.315]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [13:37:42.649] Number of futures (= number of chunks): 2
  [13:37:43.315]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [13:37:42.650] Launching 2 futures (chunks) ...
  [13:37:43.316]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [13:37:42.651] Chunk #1 of 2 ...
  [13:37:43.316]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [13:37:42.651]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:43.316]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [13:37:42.652] getGlobalsAndPackages() ...
  [13:37:43.317]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [13:37:42.652] Searching for globals...
  [13:37:43.317]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [13:37:42.653] 
  [13:37:43.318]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [13:37:42.654] Searching for globals ... DONE
  [13:37:43.323]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [13:37:42.654] - globals: [0] <none>
  [13:37:43.323]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [13:37:42.655] getGlobalsAndPackages() ... DONE
  [13:37:43.324]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [13:37:42.655] 
  [13:37:43.324]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [13:37:42.656] 
  [13:37:43.325]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [13:37:42.656]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:43.325]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [13:37:42.664] getGlobalsAndPackages() ...
  [13:37:43.326]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [13:37:42.665] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.326]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [13:37:42.666] Resolving globals: FALSE
  [13:37:43.327]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [13:37:42.667] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [13:37:43.327]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [13:37:42.668] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.328]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [13:37:42.668] 
  [13:37:43.328]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [13:37:42.669] getGlobalsAndPackages() ... DONE
  [13:37:43.328]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [13:37:42.673] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:43.329]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [13:37:42.674] Packages needed by future strategies (n = 0): <none>
  [13:37:43.329]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [13:37:42.680] {
  [13:37:42.680]     {
  [13:37:42.680]         ...future.startTime <- base::Sys.time()
  [13:37:42.680]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:42.680]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:42.680]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:42.680]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:42.680]             future.resolve.recursive = NULL, width = 80L)
  [13:37:42.680]         {
  [13:37:42.680]             {
  [13:37:42.680]                 {
  [13:37:42.680]                   {
  [13:37:42.680]                     has_future <- base::requireNamespace("future", 
  [13:37:42.680]                       quietly = TRUE)
  [13:37:42.680]                     version <- if (has_future) 
  [13:37:42.680]                       utils::packageVersion("future")
  [13:37:42.680]                     else NULL
  [13:37:42.680]                     if (!has_future || version < "1.8.0") {
  [13:37:42.680]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:42.680]                         "", base::R.version$version.string), 
  [13:37:42.680]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:42.680]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:42.680]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:42.680]                           "release", "version")], collapse = " "), 
  [13:37:42.680]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:42.680]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:42.680]                         info)
  [13:37:42.680]                       info <- base::paste(info, collapse = "; ")
  [13:37:42.680]                       if (!has_future) {
  [13:37:42.680]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:42.680]                           info)
  [13:37:42.680]                       }
  [13:37:42.680]                       else {
  [13:37:42.680]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:42.680]                           info, version)
  [13:37:42.680]                       }
  [13:37:42.680]                       base::stop(msg)
  [13:37:42.680]                     }
  [13:37:42.680]                   }
  [13:37:42.680]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:42.680]                   base::options(mc.cores = 1L)
  [13:37:42.680]                 }
  [13:37:42.680]                 base::local({
  [13:37:42.680]                   for (pkg in c("doFuture", "utils")) {
  [13:37:42.680]                     base::loadNamespace(pkg)
  [13:37:42.680]                     base::library(pkg, character.only = TRUE)
  [13:37:42.680]                   }
  [13:37:42.680]                 })
  [13:37:42.680]             }
  [13:37:42.680]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:42.680]         }
  [13:37:42.680]     }
  [13:37:42.680]     if (base::is.na(TRUE)) {
  [13:37:42.680]     }
  [13:37:42.680]     else {
  [13:37:42.680]         if (TRUE) {
  [13:37:42.680]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:42.680]                 open = "w")
  [13:37:42.680]         }
  [13:37:42.680]         else {
  [13:37:42.680]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:42.680]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:42.680]         }
  [13:37:42.680]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:42.680]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:42.680]             base::sink(type = "output", split = FALSE)
  [13:37:42.680]             base::close(...future.stdout)
  [13:37:42.680]         }, add = TRUE)
  [13:37:42.680]     }
  [13:37:42.680]     ...future.frame <- base::sys.nframe()
  [13:37:42.680]     ...future.conditions <- base::list()
  [13:37:42.680]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:42.680]     ...future.result <- base::tryCatch({
  [13:37:42.680]         base::withCallingHandlers({
  [13:37:42.680]             ...future.value <- base::withVisible(base::local({
  [13:37:42.680]                 ...future.sendCondition <- local({
  [13:37:42.680]                   sendCondition <- NULL
  [13:37:42.680]                   function(frame = 1L) {
  [13:37:42.680]                     if (is.function(sendCondition)) 
  [13:37:42.680]                       return(sendCondition)
  [13:37:42.680]                     ns <- getNamespace("parallel")
  [13:37:42.680]                     if (exists("sendData", mode = "function", 
  [13:37:42.680]                       envir = ns)) {
  [13:37:42.680]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:42.680]                         envir = ns)
  [13:37:42.680]                       envir <- sys.frame(frame)
  [13:37:42.680]                       master <- NULL
  [13:37:42.680]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:42.680]                         !identical(envir, emptyenv())) {
  [13:37:42.680]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:42.680]                           inherits = FALSE)) {
  [13:37:42.680]                           master <- get("master", mode = "list", 
  [13:37:42.680]                             envir = envir, inherits = FALSE)
  [13:37:42.680]                           if (inherits(master, "SOCKnode")) {
  [13:37:42.680]                             sendCondition <<- function(cond) {
  [13:37:42.680]                               data <- list(type = "VALUE", value = cond, 
  [13:37:42.680]                                 success = TRUE)
  [13:37:42.680]                               parallel_sendData(master, data)
  [13:37:42.680]                             }
  [13:37:42.680]                             return(sendCondition)
  [13:37:42.680]                           }
  [13:37:42.680]                         }
  [13:37:42.680]                         frame <- frame + 1L
  [13:37:42.680]                         envir <- sys.frame(frame)
  [13:37:42.680]                       }
  [13:37:42.680]                     }
  [13:37:42.680]                     sendCondition <<- function(cond) NULL
  [13:37:42.680]                   }
  [13:37:42.680]                 })
  [13:37:42.680]                 withCallingHandlers({
  [13:37:42.680]                   {
  [13:37:42.680]                     doFuture::registerDoFuture()
  [13:37:42.680]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:42.680]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:42.680]                       b <- NULL
  [13:37:42.680]                       ...future.env <- environment()
  [13:37:42.680]                       local({
  [13:37:42.680]                         for (name in names(...future.x_jj)) {
  [13:37:42.680]                           assign(name, ...future.x_jj[[name]], 
  [13:37:42.680]                             envir = ...future.env, inherits = FALSE)
  [13:37:42.680]                         }
  [13:37:42.680]                       })
  [13:37:42.680]                       tryCatch({
  [13:37:42.680]                         plan_list <- future::plan("next")
  [13:37:42.680]                         message(capture.output(print(plan_list)))
  [13:37:42.680]                         stopifnot(inherits(plan_list, "future"))
  [13:37:42.680]                         default <- getOption("future.plan", "sequential")
  [13:37:42.680]                         if (is.function(default)) 
  [13:37:42.680]                           default <- class(default)
  [13:37:42.680]                         stopifnot(inherits(plan_list, default))
  [13:37:42.680]                         plan_b <- future::plan("list")
  [13:37:42.680]                         str(plan_b)
  [13:37:42.680]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:42.680]                           inherits(plan_b[[1]], default))
  [13:37:42.680]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:42.680]                       }, error = identity)
  [13:37:42.680]                     })
  [13:37:42.680]                   }
  [13:37:42.680]                 }, immediateCondition = function(cond) {
  [13:37:42.680]                   sendCondition <- ...future.sendCondition()
  [13:37:42.680]                   sendCondition(cond)
  [13:37:42.680]                   muffleCondition <- function (cond) 
  [13:37:42.680]                   {
  [13:37:42.680]                     inherits <- base::inherits
  [13:37:42.680]                     invokeRestart <- base::invokeRestart
  [13:37:42.680]                     muffled <- FALSE
  [13:37:42.680]                     if (inherits(cond, "message")) {
  [13:37:42.680]                       invokeRestart("muffleMessage")
  [13:37:42.680]                       muffled <- TRUE
  [13:37:42.680]                     }
  [13:37:42.680]                     else if (inherits(cond, "warning")) {
  [13:37:42.680]                       invokeRestart("muffleWarning")
  [13:37:42.680]                       muffled <- TRUE
  [13:37:42.680]                     }
  [13:37:42.680]                     else if (inherits(cond, "condition")) {
  [13:37:42.680]                       computeRestarts <- base::computeRestarts
  [13:37:42.680]                       grepl <- base::grepl
  [13:37:42.680]                       is.null <- base::is.null
  [13:37:42.680]                       restarts <- computeRestarts(cond)
  [13:37:42.680]                       for (restart in restarts) {
  [13:37:42.680]                         name <- restart$name
  [13:37:42.680]                         if (is.null(name)) 
  [13:37:42.680]                           next
  [13:37:42.680]                         if (!grepl("^muffle", name)) 
  [13:37:42.680]                           next
  [13:37:42.680]                         invokeRestart(restart)
  [13:37:42.680]                         muffled <- TRUE
  [13:37:42.680]                         break
  [13:37:42.680]                       }
  [13:37:42.680]                     }
  [13:37:42.680]                     invisible(muffled)
  [13:37:42.680]                   }
  [13:37:42.680]                   muffleCondition(cond)
  [13:37:42.680]                 })
  [13:37:42.680]             }))
  [13:37:42.680]             future::FutureResult(value = ...future.value$value, 
  [13:37:42.680]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:42.680]                   ...future.rng), started = ...future.startTime, 
  [13:37:42.680]                 version = "1.8")
  [13:37:42.680]         }, condition = base::local({
  [13:37:42.680]             c <- base::c
  [13:37:42.680]             inherits <- base::inherits
  [13:37:42.680]             invokeRestart <- base::invokeRestart
  [13:37:42.680]             length <- base::length
  [13:37:42.680]             list <- base::list
  [13:37:42.680]             seq.int <- base::seq.int
  [13:37:42.680]             signalCondition <- base::signalCondition
  [13:37:42.680]             sys.calls <- base::sys.calls
  [13:37:42.680]             Sys.time <- base::Sys.time
  [13:37:42.680]             `[[` <- base::`[[`
  [13:37:42.680]             `+` <- base::`+`
  [13:37:42.680]             `<<-` <- base::`<<-`
  [13:37:42.680]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:42.680]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:42.680]                   3L)]
  [13:37:42.680]             }
  [13:37:42.680]             function(cond) {
  [13:37:42.680]                 if (inherits(cond, "error")) {
  [13:37:42.680]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:42.680]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:42.680]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:42.680]                   signalCondition(cond)
  [13:37:42.680]                 }
  [13:37:42.680]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:42.680]                 ))) {
  [13:37:42.680]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:42.680]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:42.680]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:42.680]                   if (!signal) {
  [13:37:42.680]                     muffleCondition <- function (cond) 
  [13:37:42.680]                     {
  [13:37:42.680]                       inherits <- base::inherits
  [13:37:42.680]                       invokeRestart <- base::invokeRestart
  [13:37:42.680]                       muffled <- FALSE
  [13:37:42.680]                       if (inherits(cond, "message")) {
  [13:37:42.680]                         invokeRestart("muffleMessage")
  [13:37:42.680]                         muffled <- TRUE
  [13:37:42.680]                       }
  [13:37:42.680]                       else if (inherits(cond, "warning")) {
  [13:37:42.680]                         invokeRestart("muffleWarning")
  [13:37:42.680]                         muffled <- TRUE
  [13:37:42.680]                       }
  [13:37:42.680]                       else if (inherits(cond, "condition")) {
  [13:37:42.680]                         computeRestarts <- base::computeRestarts
  [13:37:42.680]                         grepl <- base::grepl
  [13:37:42.680]                         is.null <- base::is.null
  [13:37:42.680]                         restarts <- computeRestarts(cond)
  [13:37:42.680]                         for (restart in restarts) {
  [13:37:42.680]                           name <- restart$name
  [13:37:42.680]                           if (is.null(name)) 
  [13:37:42.680]                             next
  [13:37:42.680]                           if (!grepl("^muffle", name)) 
  [13:37:42.680]                             next
  [13:37:42.680]                           invokeRestart(restart)
  [13:37:42.680]                           muffled <- TRUE
  [13:37:42.680]                           break
  [13:37:42.680]                         }
  [13:37:42.680]                       }
  [13:37:42.680]                       invisible(muffled)
  [13:37:42.680]                     }
  [13:37:42.680]                     muffleCondition(cond)
  [13:37:42.680]                   }
  [13:37:42.680]                 }
  [13:37:42.680]             }
  [13:37:42.680]         }))
  [13:37:42.680]     }, error = function(ex) {
  [13:37:42.680]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:42.680]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:42.680]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:42.680]     }, finally = {
  [13:37:42.680]         {
  [13:37:42.680]             {
  [13:37:42.680]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:42.680]             }
  [13:37:42.680]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:42.680]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:42.680]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:42.680]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:42.680]                 ...) 
  [13:37:42.680]             {
  [13:37:42.680]                 if (substitute) 
  [13:37:42.680]                   expr <- substitute(expr)
  [13:37:42.680]                 if (is.function(workers)) 
  [13:37:42.680]                   workers <- workers()
  [13:37:42.680]                 workers <- as.integer(workers)
  [13:37:42.680]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:42.680]                   workers >= 1)
  [13:37:42.680]                 if (workers == 1L) {
  [13:37:42.680]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:42.680]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:42.680]                     local = TRUE, label = label, ...))
  [13:37:42.680]                 }
  [13:37:42.680]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:42.680]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:42.680]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:42.680]                   globals = globals, persistent = persistent, 
  [13:37:42.680]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:42.680]                   label = label, ...)
  [13:37:42.680]                 if (!future$lazy) 
  [13:37:42.680]                   future <- run(future)
  [13:37:42.680]                 invisible(future)
  [13:37:42.680]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:42.680]         }
  [13:37:42.680]         base::options(...future.oldOptions)
  [13:37:42.680]     })
  [13:37:42.680]     Sys.time
  [13:37:42.680]     if (base::is.na(TRUE)) {
  [13:37:42.680]     }
  [13:37:42.680]     else {
  [13:37:42.680]         base::sink(type = "output", split = FALSE)
  [13:37:42.680]         if (TRUE) {
  [13:37:42.680]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:42.680]         }
  [13:37:42.680]         else {
  [13:37:42.680]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:42.680]         }
  [13:37:42.680]         base::close(...future.stdout)
  [13:37:42.680]         ...future.stdout <- NULL
  [13:37:42.680]     }
  [13:37:42.680]     ...future.result$conditions <- ...future.conditions
  [13:37:42.680]     ...future.result
  [13:37:42.680] }
  [13:37:43.330]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [13:37:42.687] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [13:37:43.330]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [13:37:42.688] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:37:43.331]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [13:37:42.689] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:37:43.331]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [13:37:42.690] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:37:43.332]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [13:37:42.691] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:37:43.332]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [13:37:42.692] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [13:37:43.333]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [13:37:42.735] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [13:37:43.333]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [13:37:42.736] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [13:37:43.334]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [13:37:42.737] MultisessionFuture started
  [13:37:43.334]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [13:37:42.738] Chunk #1 of 2 ... DONE
  [13:37:43.335]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [13:37:42.738] Chunk #2 of 2 ...
  [13:37:43.335]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [13:37:42.739]  - Finding globals in 'args_list' chunk #2 ...
  [13:37:43.335]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [13:37:42.739] getGlobalsAndPackages() ...
  [13:37:43.336]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [13:37:42.739] Searching for globals...
  [13:37:43.336]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [13:37:42.740] 
  [13:37:43.337]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [13:37:42.741] Searching for globals ... DONE
  [13:37:43.337]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [13:37:42.741] - globals: [0] <none>
  [13:37:43.338]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [13:37:42.742] getGlobalsAndPackages() ... DONE
  [13:37:43.338]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [13:37:42.742] 
  [13:37:43.338]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [13:37:42.748] 
  [13:37:43.339]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [13:37:42.749]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:37:43.339]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [13:37:42.772] getGlobalsAndPackages() ...
  [13:37:43.340]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [13:37:42.772] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.340]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [13:37:42.773] Resolving globals: FALSE
  [13:37:43.340]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [13:37:42.775] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [13:37:43.341]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [13:37:42.775] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:37:43.341]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [13:37:42.776] 
  [13:37:43.342]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [13:37:42.777] getGlobalsAndPackages() ... DONE
  [13:37:43.342]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [13:37:42.805] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:37:43.343]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [13:37:42.806] Packages needed by future strategies (n = 0): <none>
  [13:37:43.343]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [13:37:42.812] {
  [13:37:42.812]     {
  [13:37:42.812]         ...future.startTime <- base::Sys.time()
  [13:37:42.812]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:42.812]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:42.812]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:42.812]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:42.812]             future.resolve.recursive = NULL, width = 80L)
  [13:37:42.812]         {
  [13:37:42.812]             {
  [13:37:42.812]                 {
  [13:37:42.812]                   {
  [13:37:42.812]                     has_future <- base::requireNamespace("future", 
  [13:37:42.812]                       quietly = TRUE)
  [13:37:42.812]                     version <- if (has_future) 
  [13:37:42.812]                       utils::packageVersion("future")
  [13:37:42.812]                     else NULL
  [13:37:42.812]                     if (!has_future || version < "1.8.0") {
  [13:37:42.812]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:37:42.812]                         "", base::R.version$version.string), 
  [13:37:42.812]                         platform = base::sprintf("%s (%s-bit)", 
  [13:37:42.812]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:42.812]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:42.812]                           "release", "version")], collapse = " "), 
  [13:37:42.812]                         hostname = base::Sys.info()[["nodename"]])
  [13:37:42.812]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:42.812]                         info)
  [13:37:42.812]                       info <- base::paste(info, collapse = "; ")
  [13:37:42.812]                       if (!has_future) {
  [13:37:42.812]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:42.812]                           info)
  [13:37:42.812]                       }
  [13:37:42.812]                       else {
  [13:37:42.812]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:42.812]                           info, version)
  [13:37:42.812]                       }
  [13:37:42.812]                       base::stop(msg)
  [13:37:42.812]                     }
  [13:37:42.812]                   }
  [13:37:42.812]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:37:42.812]                   base::options(mc.cores = 1L)
  [13:37:42.812]                 }
  [13:37:42.812]                 base::local({
  [13:37:42.812]                   for (pkg in c("doFuture", "utils")) {
  [13:37:42.812]                     base::loadNamespace(pkg)
  [13:37:42.812]                     base::library(pkg, character.only = TRUE)
  [13:37:42.812]                   }
  [13:37:42.812]                 })
  [13:37:42.812]             }
  [13:37:42.812]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:37:42.812]         }
  [13:37:42.812]     }
  [13:37:42.812]     if (base::is.na(TRUE)) {
  [13:37:42.812]     }
  [13:37:42.812]     else {
  [13:37:42.812]         if (TRUE) {
  [13:37:42.812]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:42.812]                 open = "w")
  [13:37:42.812]         }
  [13:37:42.812]         else {
  [13:37:42.812]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:42.812]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:42.812]         }
  [13:37:42.812]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:42.812]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:42.812]             base::sink(type = "output", split = FALSE)
  [13:37:42.812]             base::close(...future.stdout)
  [13:37:42.812]         }, add = TRUE)
  [13:37:42.812]     }
  [13:37:42.812]     ...future.frame <- base::sys.nframe()
  [13:37:42.812]     ...future.conditions <- base::list()
  [13:37:42.812]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:42.812]     ...future.result <- base::tryCatch({
  [13:37:42.812]         base::withCallingHandlers({
  [13:37:42.812]             ...future.value <- base::withVisible(base::local({
  [13:37:42.812]                 ...future.sendCondition <- local({
  [13:37:42.812]                   sendCondition <- NULL
  [13:37:42.812]                   function(frame = 1L) {
  [13:37:42.812]                     if (is.function(sendCondition)) 
  [13:37:42.812]                       return(sendCondition)
  [13:37:42.812]                     ns <- getNamespace("parallel")
  [13:37:42.812]                     if (exists("sendData", mode = "function", 
  [13:37:42.812]                       envir = ns)) {
  [13:37:42.812]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:37:42.812]                         envir = ns)
  [13:37:42.812]                       envir <- sys.frame(frame)
  [13:37:42.812]                       master <- NULL
  [13:37:42.812]                       while (!identical(envir, .GlobalEnv) && 
  [13:37:42.812]                         !identical(envir, emptyenv())) {
  [13:37:42.812]                         if (exists("master", mode = "list", envir = envir, 
  [13:37:42.812]                           inherits = FALSE)) {
  [13:37:42.812]                           master <- get("master", mode = "list", 
  [13:37:42.812]                             envir = envir, inherits = FALSE)
  [13:37:42.812]                           if (inherits(master, "SOCKnode")) {
  [13:37:42.812]                             sendCondition <<- function(cond) {
  [13:37:42.812]                               data <- list(type = "VALUE", value = cond, 
  [13:37:42.812]                                 success = TRUE)
  [13:37:42.812]                               parallel_sendData(master, data)
  [13:37:42.812]                             }
  [13:37:42.812]                             return(sendCondition)
  [13:37:42.812]                           }
  [13:37:42.812]                         }
  [13:37:42.812]                         frame <- frame + 1L
  [13:37:42.812]                         envir <- sys.frame(frame)
  [13:37:42.812]                       }
  [13:37:42.812]                     }
  [13:37:42.812]                     sendCondition <<- function(cond) NULL
  [13:37:42.812]                   }
  [13:37:42.812]                 })
  [13:37:42.812]                 withCallingHandlers({
  [13:37:42.812]                   {
  [13:37:42.812]                     doFuture::registerDoFuture()
  [13:37:42.812]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:42.812]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:42.812]                       b <- NULL
  [13:37:42.812]                       ...future.env <- environment()
  [13:37:42.812]                       local({
  [13:37:42.812]                         for (name in names(...future.x_jj)) {
  [13:37:42.812]                           assign(name, ...future.x_jj[[name]], 
  [13:37:42.812]                             envir = ...future.env, inherits = FALSE)
  [13:37:42.812]                         }
  [13:37:42.812]                       })
  [13:37:42.812]                       tryCatch({
  [13:37:42.812]                         plan_list <- future::plan("next")
  [13:37:42.812]                         message(capture.output(print(plan_list)))
  [13:37:42.812]                         stopifnot(inherits(plan_list, "future"))
  [13:37:42.812]                         default <- getOption("future.plan", "sequential")
  [13:37:42.812]                         if (is.function(default)) 
  [13:37:42.812]                           default <- class(default)
  [13:37:42.812]                         stopifnot(inherits(plan_list, default))
  [13:37:42.812]                         plan_b <- future::plan("list")
  [13:37:42.812]                         str(plan_b)
  [13:37:42.812]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:42.812]                           inherits(plan_b[[1]], default))
  [13:37:42.812]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:42.812]                       }, error = identity)
  [13:37:42.812]                     })
  [13:37:42.812]                   }
  [13:37:42.812]                 }, immediateCondition = function(cond) {
  [13:37:42.812]                   sendCondition <- ...future.sendCondition()
  [13:37:42.812]                   sendCondition(cond)
  [13:37:42.812]                   muffleCondition <- function (cond) 
  [13:37:42.812]                   {
  [13:37:42.812]                     inherits <- base::inherits
  [13:37:42.812]                     invokeRestart <- base::invokeRestart
  [13:37:42.812]                     muffled <- FALSE
  [13:37:42.812]                     if (inherits(cond, "message")) {
  [13:37:42.812]                       invokeRestart("muffleMessage")
  [13:37:42.812]                       muffled <- TRUE
  [13:37:42.812]                     }
  [13:37:42.812]                     else if (inherits(cond, "warning")) {
  [13:37:42.812]                       invokeRestart("muffleWarning")
  [13:37:42.812]                       muffled <- TRUE
  [13:37:42.812]                     }
  [13:37:42.812]                     else if (inherits(cond, "condition")) {
  [13:37:42.812]                       computeRestarts <- base::computeRestarts
  [13:37:42.812]                       grepl <- base::grepl
  [13:37:42.812]                       is.null <- base::is.null
  [13:37:42.812]                       restarts <- computeRestarts(cond)
  [13:37:42.812]                       for (restart in restarts) {
  [13:37:42.812]                         name <- restart$name
  [13:37:42.812]                         if (is.null(name)) 
  [13:37:42.812]                           next
  [13:37:42.812]                         if (!grepl("^muffle", name)) 
  [13:37:42.812]                           next
  [13:37:42.812]                         invokeRestart(restart)
  [13:37:42.812]                         muffled <- TRUE
  [13:37:42.812]                         break
  [13:37:42.812]                       }
  [13:37:42.812]                     }
  [13:37:42.812]                     invisible(muffled)
  [13:37:42.812]                   }
  [13:37:42.812]                   muffleCondition(cond)
  [13:37:42.812]                 })
  [13:37:42.812]             }))
  [13:37:42.812]             future::FutureResult(value = ...future.value$value, 
  [13:37:42.812]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:42.812]                   ...future.rng), started = ...future.startTime, 
  [13:37:42.812]                 version = "1.8")
  [13:37:42.812]         }, condition = base::local({
  [13:37:42.812]             c <- base::c
  [13:37:42.812]             inherits <- base::inherits
  [13:37:42.812]             invokeRestart <- base::invokeRestart
  [13:37:42.812]             length <- base::length
  [13:37:42.812]             list <- base::list
  [13:37:42.812]             seq.int <- base::seq.int
  [13:37:42.812]             signalCondition <- base::signalCondition
  [13:37:42.812]             sys.calls <- base::sys.calls
  [13:37:42.812]             Sys.time <- base::Sys.time
  [13:37:42.812]             `[[` <- base::`[[`
  [13:37:42.812]             `+` <- base::`+`
  [13:37:42.812]             `<<-` <- base::`<<-`
  [13:37:42.812]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:42.812]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:42.812]                   3L)]
  [13:37:42.812]             }
  [13:37:42.812]             function(cond) {
  [13:37:42.812]                 if (inherits(cond, "error")) {
  [13:37:42.812]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:42.812]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:42.812]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:42.812]                   signalCondition(cond)
  [13:37:42.812]                 }
  [13:37:42.812]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:42.812]                 ))) {
  [13:37:42.812]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:42.812]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:42.812]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:42.812]                   if (!signal) {
  [13:37:42.812]                     muffleCondition <- function (cond) 
  [13:37:42.812]                     {
  [13:37:42.812]                       inherits <- base::inherits
  [13:37:42.812]                       invokeRestart <- base::invokeRestart
  [13:37:42.812]                       muffled <- FALSE
  [13:37:42.812]                       if (inherits(cond, "message")) {
  [13:37:42.812]                         invokeRestart("muffleMessage")
  [13:37:42.812]                         muffled <- TRUE
  [13:37:42.812]                       }
  [13:37:42.812]                       else if (inherits(cond, "warning")) {
  [13:37:42.812]                         invokeRestart("muffleWarning")
  [13:37:42.812]                         muffled <- TRUE
  [13:37:42.812]                       }
  [13:37:42.812]                       else if (inherits(cond, "condition")) {
  [13:37:42.812]                         computeRestarts <- base::computeRestarts
  [13:37:42.812]                         grepl <- base::grepl
  [13:37:42.812]                         is.null <- base::is.null
  [13:37:42.812]                         restarts <- computeRestarts(cond)
  [13:37:42.812]                         for (restart in restarts) {
  [13:37:42.812]                           name <- restart$name
  [13:37:42.812]                           if (is.null(name)) 
  [13:37:42.812]                             next
  [13:37:42.812]                           if (!grepl("^muffle", name)) 
  [13:37:42.812]                             next
  [13:37:42.812]                           invokeRestart(restart)
  [13:37:42.812]                           muffled <- TRUE
  [13:37:42.812]                           break
  [13:37:42.812]                         }
  [13:37:42.812]                       }
  [13:37:42.812]                       invisible(muffled)
  [13:37:42.812]                     }
  [13:37:42.812]                     muffleCondition(cond)
  [13:37:42.812]                   }
  [13:37:42.812]                 }
  [13:37:42.812]             }
  [13:37:42.812]         }))
  [13:37:42.812]     }, error = function(ex) {
  [13:37:42.812]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:42.812]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:42.812]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:42.812]     }, finally = {
  [13:37:42.812]         {
  [13:37:42.812]             {
  [13:37:42.812]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:37:42.812]             }
  [13:37:42.812]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:42.812]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:42.812]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:37:42.812]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:42.812]                 ...) 
  [13:37:42.812]             {
  [13:37:42.812]                 if (substitute) 
  [13:37:42.812]                   expr <- substitute(expr)
  [13:37:42.812]                 if (is.function(workers)) 
  [13:37:42.812]                   workers <- workers()
  [13:37:42.812]                 workers <- as.integer(workers)
  [13:37:42.812]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:37:42.812]                   workers >= 1)
  [13:37:42.812]                 if (workers == 1L) {
  [13:37:42.812]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:37:42.812]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:37:42.812]                     local = TRUE, label = label, ...))
  [13:37:42.812]                 }
  [13:37:42.812]                 workers <- ClusterRegistry("start", workers = workers)
  [13:37:42.812]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:37:42.812]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:42.812]                   globals = globals, persistent = persistent, 
  [13:37:42.812]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:37:42.812]                   label = label, ...)
  [13:37:42.812]                 if (!future$lazy) 
  [13:37:42.812]                   future <- run(future)
  [13:37:42.812]                 invisible(future)
  [13:37:42.812]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:42.812]         }
  [13:37:42.812]         base::options(...future.oldOptions)
  [13:37:42.812]     })
  [13:37:42.812]     Sys.time
  [13:37:42.812]     if (base::is.na(TRUE)) {
  [13:37:42.812]     }
  [13:37:42.812]     else {
  [13:37:42.812]         base::sink(type = "output", split = FALSE)
  [13:37:42.812]         if (TRUE) {
  [13:37:42.812]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:42.812]         }
  [13:37:42.812]         else {
  [13:37:42.812]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:42.812]         }
  [13:37:42.812]         base::close(...future.stdout)
  [13:37:42.812]         ...future.stdout <- NULL
  [13:37:42.812]     }
  [13:37:42.812]     ...future.result$conditions <- ...future.conditions
  [13:37:42.812]     ...future.result
  [13:37:42.812] }
  [13:37:43.343]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [13:37:42.831] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [13:37:43.344]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [13:37:42.831] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:37:43.344]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [13:37:42.833] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:37:43.345]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [13:37:42.833] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:37:43.345]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [13:37:42.835] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:37:43.346]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [13:37:42.836] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [13:37:43.346]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [13:37:42.879] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [13:37:43.346]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [13:37:42.880] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [13:37:43.347]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [13:37:42.881] MultisessionFuture started
  [13:37:43.347]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [13:37:42.882] Chunk #2 of 2 ... DONE
  [13:37:43.348]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [13:37:42.882] Launching 2 futures (chunks) ... DONE
  [13:37:43.348]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [13:37:42.882] - resolving futures
  [13:37:43.348]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [13:37:42.883]   - gathering results & relaying conditions (except errors)
  [13:37:43.349]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [13:37:42.883] resolve() on list ...
  [13:37:43.349]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [13:37:42.884]  recursive: 0
  [13:37:43.350]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [13:37:42.884]  length: 2
  [13:37:43.350]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [13:37:42.884] 
  [13:37:43.351]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [13:37:42.886] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:43.351]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [13:37:42.887] - Validating connection of MultisessionFuture
  [13:37:43.351]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [13:37:42.888] - received message: FutureResult
  [13:37:43.352]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [13:37:42.888] - Received FutureResult
  [13:37:43.352]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [13:37:42.889] - Erased future from FutureRegistry
  [13:37:43.353]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [13:37:42.889] result() for ClusterFuture ...
  [13:37:43.353]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [13:37:42.889] - result already collected: FutureResult
  [13:37:43.354]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [13:37:42.890] result() for ClusterFuture ... done
  [13:37:43.354]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [13:37:42.891] signalConditions() ...
  [13:37:43.354]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [13:37:42.891]  - include = 'immediateCondition'
  [13:37:43.355]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [13:37:42.891]  - exclude = 
  [13:37:43.355]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [13:37:42.892]  - resignal = FALSE
  [13:37:43.356]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [13:37:42.892]  - Number of conditions: 1
  [13:37:43.356]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [13:37:42.893] signalConditions() ... done
  [13:37:43.357]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [13:37:42.893] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:43.357]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [13:37:42.894] Future #1
  [13:37:43.357]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [13:37:42.894] result() for ClusterFuture ...
  [13:37:43.358]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [13:37:42.895] - result already collected: FutureResult
  [13:37:43.358]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [13:37:42.895] result() for ClusterFuture ... done
  [13:37:43.359]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [13:37:42.895] result() for ClusterFuture ...
  [13:37:43.359]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [13:37:42.896] - result already collected: FutureResult
  [13:37:43.359]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [13:37:42.896] result() for ClusterFuture ... done
  [13:37:43.360]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [13:37:42.897] signalConditions() ...
  [13:37:43.360]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [13:37:42.897]  - include = 'immediateCondition'
  [13:37:43.361]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [13:37:42.898]  - exclude = 
  [13:37:43.361]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [13:37:42.898]  - resignal = FALSE
  [13:37:43.362]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [13:37:42.898]  - Number of conditions: 1
  [13:37:43.362]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [13:37:42.899] signalConditions() ... done
  [13:37:43.362]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [13:37:42.899] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:37:43.363]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [13:37:42.900] - nx: 2
  [13:37:43.363]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [13:37:42.900] - relay: TRUE
  [13:37:43.364]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [13:37:42.901] - stdout: TRUE
  [13:37:43.364]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [13:37:42.901] - signal: TRUE
  [13:37:43.364]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [13:37:42.901] - resignal: FALSE
  [13:37:43.365]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [13:37:42.902] - force: FALSE
  [13:37:43.365]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [13:37:42.902] - relayed: [n=2] FALSE, FALSE
  [13:37:43.366]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [13:37:42.903] - queued futures: [n=2] FALSE, FALSE
  [13:37:43.366]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [13:37:42.903]  - until=1
  [13:37:43.367]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [13:37:42.927]  - relaying element #1
  [13:37:43.367]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [13:37:42.927] result() for ClusterFuture ...
  [13:37:43.367]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [13:37:42.928] - result already collected: FutureResult
  [13:37:43.368]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [13:37:42.929] result() for ClusterFuture ... done
  [13:37:43.368]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [13:37:42.929] result() for ClusterFuture ...
  [13:37:43.369]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [13:37:42.930] - result already collected: FutureResult
  [13:37:43.369]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [13:37:42.930] result() for ClusterFuture ... done
  [13:37:43.369]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [13:37:42.931] signalConditions() ...
  [13:37:43.370]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [13:37:42.931]  - include = 'immediateCondition'
  [13:37:43.370]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [13:37:42.932]  - exclude = 
  [13:37:43.371]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [13:37:42.932]  - resignal = FALSE
  [13:37:43.371]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [13:37:42.933]  - Number of conditions: 1
  [13:37:43.372]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [13:37:42.933] signalConditions() ... done
  [13:37:43.377]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [13:37:42.934] result() for ClusterFuture ...
  [13:37:43.377]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [13:37:42.935] - result already collected: FutureResult
  [13:37:43.378]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [13:37:42.935] result() for ClusterFuture ... done
  [13:37:43.378]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [13:37:42.936] signalConditions() ...
  [13:37:43.379]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [13:37:42.936]  - include = 'immediateCondition'
  [13:37:43.379]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [13:37:42.937]  - exclude = 
  [13:37:43.380]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [13:37:42.937]  - resignal = FALSE
  [13:37:43.380]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [13:37:42.938]  - Number of conditions: 1
  [13:37:43.380]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [13:37:42.938] signalConditions() ... done
  [13:37:43.381]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [13:37:42.940] result() for ClusterFuture ...
  [13:37:43.381]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [13:37:42.941] - result already collected: FutureResult
  [13:37:43.382]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [13:37:42.941] result() for ClusterFuture ... done
  [13:37:43.382]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [13:37:42.942] signalConditions() ...
  [13:37:43.383]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [13:37:42.942]  - include = 'condition'
  [13:37:43.383]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [13:37:42.942]  - exclude = 'immediateCondition'
  [13:37:43.384]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [13:37:42.943]  - resignal = FALSE
  [13:37:43.384]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [13:37:42.943]  - Number of conditions: 1
  [13:37:43.385]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [13:37:42.944]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:43.385]  - Condition #477: '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
  [13:37:43.386]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [13:37:42.944] signalConditions() ... done
  [13:37:43.386]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [13:37:42.945] - relayed: [n=2] TRUE, FALSE
  [13:37:43.386]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [13:37:42.946] - queued futures: [n=2] TRUE, FALSE
  [13:37:43.387]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [13:37:42.946] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:37:43.387]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [13:37:42.947]  length: 1 (resolved future 1)
  [13:37:43.388]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [13:37:42.949] receiveMessageFromWorker() for ClusterFuture ...
  [13:37:43.388]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [13:37:42.949] - Validating connection of MultisessionFuture
  [13:37:43.389]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [13:37:42.979] - received message: FutureResult
  [13:37:43.389]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [13:37:42.980] - Received FutureResult
  [13:37:43.390]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [13:37:42.980] - Erased future from FutureRegistry
  [13:37:43.390]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [13:37:42.981] result() for ClusterFuture ...
  [13:37:43.391]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [13:37:42.981] - result already collected: FutureResult
  [13:37:43.391]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [13:37:42.982] result() for ClusterFuture ... done
  [13:37:43.391]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [13:37:42.982] signalConditions() ...
  [13:37:43.392]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [13:37:42.983]  - include = 'immediateCondition'
  [13:37:43.392]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [13:37:42.983]  - exclude = 
  [13:37:43.393]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [13:37:42.984]  - resignal = FALSE
  [13:37:43.393]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [13:37:42.984]  - Number of conditions: 2
  [13:37:43.394]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [13:37:42.985] signalConditions() ... done
  [13:37:43.394]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [13:37:42.985] receiveMessageFromWorker() for ClusterFuture ... done
  [13:37:43.394]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [13:37:42.985] Future #2
  [13:37:43.395]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [13:37:42.986] result() for ClusterFuture ...
  [13:37:43.395]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [13:37:42.986] - result already collected: FutureResult
  [13:37:43.396]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [13:37:42.987] result() for ClusterFuture ... done
  [13:37:43.396]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [13:37:42.987] result() for ClusterFuture ...
  [13:37:43.397]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [13:37:42.988] - result already collected: FutureResult
  [13:37:43.397]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [13:37:42.988] result() for ClusterFuture ... done
  [13:37:43.397]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [13:37:42.989] signalConditions() ...
  [13:37:43.398]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [13:37:42.989]  - include = 'immediateCondition'
  [13:37:43.398]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [13:37:42.990]  - exclude = 
  [13:37:43.399]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [13:37:42.990]  - resignal = FALSE
  [13:37:43.399]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [13:37:42.991]  - Number of conditions: 2
  [13:37:43.400]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [13:37:42.991] signalConditions() ... done
  [13:37:43.400]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [13:37:42.991] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:37:43.400]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [13:37:42.992] - nx: 2
  [13:37:43.401]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [13:37:42.992] - relay: TRUE
  [13:37:43.401]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [13:37:42.993] - stdout: TRUE
  [13:37:43.402]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [13:37:42.993] - signal: TRUE
  [13:37:43.402]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [13:37:42.994] - resignal: FALSE
  [13:37:43.402]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [13:37:42.994] - force: FALSE
  [13:37:43.403]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [13:37:43.011] - relayed: [n=2] TRUE, FALSE
  [13:37:43.403]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [13:37:43.011] - queued futures: [n=2] TRUE, FALSE
  [13:37:43.404]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [13:37:43.012]  - until=2
  [13:37:43.404]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [13:37:43.012]  - relaying element #2
  [13:37:43.405]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [13:37:43.013] result() for ClusterFuture ...
  [13:37:43.405]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [13:37:43.013] - result already collected: FutureResult
  [13:37:43.405]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [13:37:43.014] result() for ClusterFuture ... done
  [13:37:43.406]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [13:37:43.014] result() for ClusterFuture ...
  [13:37:43.406]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [13:37:43.015] - result already collected: FutureResult
  [13:37:43.408]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [13:37:43.015] result() for ClusterFuture ... done
  [13:37:43.408]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [13:37:43.016] signalConditions() ...
  [13:37:43.408]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [13:37:43.016]  - include = 'immediateCondition'
  [13:37:43.409]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [13:37:43.017]  - exclude = 
  [13:37:43.409]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [13:37:43.017]  - resignal = FALSE
  [13:37:43.410]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [13:37:43.018]  - Number of conditions: 2
  [13:37:43.410]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [13:37:43.018] signalConditions() ... done
  [13:37:43.411]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [13:37:43.019] result() for ClusterFuture ...
  [13:37:43.411]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [13:37:43.019] - result already collected: FutureResult
  [13:37:43.411]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [13:37:43.020] result() for ClusterFuture ... done
  [13:37:43.412]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [13:37:43.020] signalConditions() ...
  [13:37:43.412]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [13:37:43.021]  - include = 'immediateCondition'
  [13:37:43.413]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [13:37:43.021]  - exclude = 
  [13:37:43.413]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [13:37:43.022]  - resignal = FALSE
  [13:37:43.413]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [13:37:43.022]  - Number of conditions: 2
  [13:37:43.414]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [13:37:43.022] signalConditions() ... done
  [13:37:43.414]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [13:37:43.023] result() for ClusterFuture ...
  [13:37:43.415]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [13:37:43.023] - result already collected: FutureResult
  [13:37:43.415]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [13:37:43.024] result() for ClusterFuture ... done
  [13:37:43.416]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [13:37:43.024] signalConditions() ...
  [13:37:43.416]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [13:37:43.025]  - include = 'condition'
  [13:37:43.416]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [13:37:43.025]  - exclude = 'immediateCondition'
  [13:37:43.417]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [13:37:43.026]  - resignal = FALSE
  [13:37:43.417]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [13:37:43.026]  - Number of conditions: 2
  [13:37:43.418]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [13:37:43.043]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:37:43.418]  - Condition #552: '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
  [13:37:43.418]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [13:37:43.044]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:43.419]  - Condition #554: '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
  [13:37:43.419]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [13:37:43.050] signalConditions() ... done
  [13:37:43.420]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [13:37:43.051] - relayed: [n=2] TRUE, TRUE
  [13:37:43.420]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [13:37:43.051] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.421]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [13:37:43.052] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:37:43.421]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [13:37:43.052]  length: 0 (resolved future 2)
  [13:37:43.421]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [13:37:43.053] Relaying remaining futures
  [13:37:43.422]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [13:37:43.053] signalConditionsASAP(NULL, pos=0) ...
  [13:37:43.422]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [13:37:43.054] - nx: 2
  [13:37:43.423]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [13:37:43.054] - relay: TRUE
  [13:37:43.423]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [13:37:43.055] - stdout: TRUE
  [13:37:43.424]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [13:37:43.055] - signal: TRUE
  [13:37:43.424]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [13:37:43.056] - resignal: FALSE
  [13:37:43.424]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [13:37:43.056] - force: FALSE
  [13:37:43.425]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [13:37:43.057] - relayed: [n=2] TRUE, TRUE
  [13:37:43.425]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [13:37:43.057] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.426]  - Condition #570: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:37:43.426]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [13:37:43.058] - relayed: [n=2] TRUE, TRUE
  [13:37:43.427]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [13:37:43.075] - queued futures: [n=2] TRUE, TRUE
  [13:37:43.432]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [13:37:43.075] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:43.433]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [13:37:43.076] resolve() on list ... DONE
  [13:37:43.434]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [13:37:43.076] - collecting values of futures
  [13:37:43.434]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [13:37:43.077] result() for ClusterFuture ...
  [13:37:43.435]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [13:37:43.077] - result already collected: FutureResult
  [13:37:43.435]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [13:37:43.078] result() for ClusterFuture ... done
  [13:37:43.435]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [13:37:43.078] result() for ClusterFuture ...
  [13:37:43.436]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [13:37:43.079] - result already collected: FutureResult
  [13:37:43.436]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [13:37:43.079] result() for ClusterFuture ... done
  [13:37:43.437]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [13:37:43.080] signalConditions() ...
  [13:37:43.437]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [13:37:43.080]  - include = 'immediateCondition'
  [13:37:43.438]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [13:37:43.080]  - exclude = 
  [13:37:43.438]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [13:37:43.081]  - resignal = FALSE
  [13:37:43.439]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [13:37:43.081]  - Number of conditions: 1
  [13:37:43.439]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [13:37:43.082] signalConditions() ... done
  [13:37:43.440]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [13:37:43.082] result() for ClusterFuture ...
  [13:37:43.440]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [13:37:43.083] - result already collected: FutureResult
  [13:37:43.441]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [13:37:43.083] result() for ClusterFuture ... done
  [13:37:43.441]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [13:37:43.084] result() for ClusterFuture ...
  [13:37:43.442]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [13:37:43.084] - result already collected: FutureResult
  [13:37:43.442]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [13:37:43.085] result() for ClusterFuture ... done
  [13:37:43.442]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [13:37:43.085] signalConditions() ...
  [13:37:43.443]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [13:37:43.086]  - include = 'immediateCondition'
  [13:37:43.443]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [13:37:43.086]  - exclude = 
  [13:37:43.444]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [13:37:43.087]  - resignal = FALSE
  [13:37:43.444]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [13:37:43.087]  - Number of conditions: 2
  [13:37:43.445]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [13:37:43.088] signalConditions() ... done
  [13:37:43.445]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [13:37:43.088] - accumulating results
  [13:37:43.446]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [13:37:43.089] - processing errors (handler = 'stop')
  [13:37:43.446]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [13:37:43.090] - extracting results
  [13:37:43.446]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [13:37:43.106] doFuture() ... DONE
  [13:37:43.447]  - Condition #604: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:37:43.448] signalConditions() ... done
  [13:37:43.448] - relayed: [n=1] TRUE
  [13:37:43.448] - queued futures: [n=1] TRUE
  [13:37:43.449] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:37:43.449]  length: 0 (resolved future 1)
  [13:37:43.449] Relaying remaining futures
  [13:37:43.450] signalConditionsASAP(NULL, pos=0) ...
  [13:37:43.450] - nx: 1
  [13:37:43.450] - relay: TRUE
  [13:37:43.450] - stdout: TRUE
  [13:37:43.451] - signal: TRUE
  [13:37:43.451] - resignal: FALSE
  [13:37:43.451] - force: FALSE
  [13:37:43.452] - relayed: [n=1] TRUE
  [13:37:43.452] - queued futures: [n=1] TRUE
   - flush all
  [13:37:43.452] - relayed: [n=1] TRUE
  [13:37:43.453] - queued futures: [n=1] TRUE
  [13:37:43.453] signalConditionsASAP(NULL, pos=0) ... done
  [13:37:43.453] resolve() on list ... DONE
  [13:37:43.454] - collecting values of futures
  [13:37:43.454] signalConditions() ...
  [13:37:43.454]  - include = 'immediateCondition'
  [13:37:43.455]  - exclude = 
  [13:37:43.455]  - resignal = FALSE
  [13:37:43.455]  - Number of conditions: 604
  [13:37:43.457] signalConditions() ... done
  [13:37:43.457] - accumulating results
  [13:37:43.458] - processing errors (handler = 'stop')
  [13:37:43.459] - extracting results
  [13:37:43.459] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [13:37:43.461] plan(): Setting new future strategy stack:
  [13:37:43.461] List of future strategies:
  [13:37:43.461] 1. sequential:
  [13:37:43.461]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:37:43.461]    - tweaked: FALSE
  [13:37:43.461]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:43.461] 2. cluster:
  [13:37:43.461]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:43.461]    - tweaked: FALSE
  [13:37:43.461]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:43.476] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [13:37:43.477] doFuture() ...
  [13:37:43.479] - dummy globals (as locals): [1] 'a'
  [13:37:43.479] - R expression:
  [13:37:43.480] {
  [13:37:43.480]     doFuture::registerDoFuture()
  [13:37:43.480]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:43.480]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:43.480]         a <- NULL
  [13:37:43.480]         ...future.env <- environment()
  [13:37:43.480]         local({
  [13:37:43.480]             for (name in names(...future.x_jj)) {
  [13:37:43.480]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:43.480]                   inherits = FALSE)
  [13:37:43.480]             }
  [13:37:43.480]         })
  [13:37:43.480]         tryCatch({
  [13:37:43.480]             plan_list <- future::plan("next")
  [13:37:43.480]             stopifnot(inherits(plan_list, strategy2))
  [13:37:43.480]             plan_a <- future::plan("list")
  [13:37:43.480]             str(plan_a)
  [13:37:43.480]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:43.480]             message("foreach() - level 2 ...")
  [13:37:43.480]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:43.480]                 {
  [13:37:43.480]                   plan_list <- future::plan("next")
  [13:37:43.480]                   message(capture.output(print(plan_list)))
  [13:37:43.480]                   stopifnot(inherits(plan_list, "future"))
  [13:37:43.480]                   default <- getOption("future.plan", "sequential")
  [13:37:43.480]                   if (is.function(default)) 
  [13:37:43.480]                     default <- class(default)
  [13:37:43.480]                   stopifnot(inherits(plan_list, default))
  [13:37:43.480]                   plan_b <- future::plan("list")
  [13:37:43.480]                   str(plan_b)
  [13:37:43.480]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:43.480]                     inherits(plan_b[[1]], default))
  [13:37:43.480]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:43.480]                 }
  [13:37:43.480]             message("foreach() - level 2 ... DONE")
  [13:37:43.480]             y
  [13:37:43.480]         }, error = identity)
  [13:37:43.480]     })
  [13:37:43.480] }
  [13:37:43.481] - identifying globals and packages ...
  [13:37:43.481] getGlobalsAndPackages() ...
  [13:37:43.482] Searching for globals...
  [13:37:43.551] - 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'
  [13:37:43.552] Searching for globals ... DONE
  [13:37:43.552] Resolving globals: FALSE
  [13:37:43.563] The total size of the 3 globals is 176 bytes (176 bytes)
  [13:37:43.563] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:43.563] - packages: [2] 'utils', 'foreach'
  [13:37:43.564] getGlobalsAndPackages() ... DONE
  [13:37:43.564] List of 3
  [13:37:43.564]  $ ...future.x_ii: NULL
  [13:37:43.564]  $ strategy2     : chr "cluster"
  [13:37:43.564]  $ bs            : int [1:3] 3 2 1
  [13:37:43.564]  - attr(*, "where")=List of 3
  [13:37:43.564]   ..$ ...future.x_ii:<environment: 0x561c1a556000> 
  [13:37:43.564]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:43.564]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:43.564]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:43.564]  - attr(*, "resolved")= logi FALSE
  [13:37:43.564]  - attr(*, "total_size")= num 176
  [13:37:43.574]   - R expression:
  [13:37:43.574] {
  [13:37:43.574]     doFuture::registerDoFuture()
  [13:37:43.574]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:43.574]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:43.574]         a <- NULL
  [13:37:43.574]         ...future.env <- environment()
  [13:37:43.574]         local({
  [13:37:43.574]             for (name in names(...future.x_jj)) {
  [13:37:43.574]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:43.574]                   inherits = FALSE)
  [13:37:43.574]             }
  [13:37:43.574]         })
  [13:37:43.574]         tryCatch({
  [13:37:43.574]             plan_list <- future::plan("next")
  [13:37:43.574]             stopifnot(inherits(plan_list, strategy2))
  [13:37:43.574]             plan_a <- future::plan("list")
  [13:37:43.574]             str(plan_a)
  [13:37:43.574]             stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:43.574]             message("foreach() - level 2 ...")
  [13:37:43.574]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:43.574]                 {
  [13:37:43.574]                   plan_list <- future::plan("next")
  [13:37:43.574]                   message(capture.output(print(plan_list)))
  [13:37:43.574]                   stopifnot(inherits(plan_list, "future"))
  [13:37:43.574]                   default <- getOption("future.plan", "sequential")
  [13:37:43.574]                   if (is.function(default)) 
  [13:37:43.574]                     default <- class(default)
  [13:37:43.574]                   stopifnot(inherits(plan_list, default))
  [13:37:43.574]                   plan_b <- future::plan("list")
  [13:37:43.574]                   str(plan_b)
  [13:37:43.574]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:43.574]                     inherits(plan_b[[1]], default))
  [13:37:43.574]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:43.574]                 }
  [13:37:43.574]             message("foreach() - level 2 ... DONE")
  [13:37:43.574]             y
  [13:37:43.574]         }, error = identity)
  [13:37:43.574]     })
  [13:37:43.574] }
  [13:37:43.576]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:43.576] List of 3
  [13:37:43.576]  $ ...future.x_ii: NULL
  [13:37:43.576]  $ strategy2     : chr "cluster"
  [13:37:43.576]  $ bs            : int [1:3] 3 2 1
  [13:37:43.576]  - attr(*, "where")=List of 3
  [13:37:43.576]   ..$ ...future.x_ii:<environment: 0x561c1a556000> 
  [13:37:43.576]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [13:37:43.576]   ..$ bs            :<environment: R_GlobalEnv> 
  [13:37:43.576]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:43.576]  - attr(*, "resolved")= logi FALSE
  [13:37:43.576]  - attr(*, "total_size")= num 176
  [13:37:43.591]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [13:37:43.591] - identifying globals and packages ... DONE
  [13:37:43.592] Number of chunks: 1
  [13:37:43.592] Number of futures (= number of chunks): 1
  [13:37:43.593] Launching 1 futures (chunks) ...
  [13:37:43.593] Chunk #1 of 1 ...
  [13:37:43.594]  - Finding globals in 'args_list' chunk #1 ...
  [13:37:43.594] getGlobalsAndPackages() ...
  [13:37:43.594] Searching for globals...
  [13:37:43.595] 
  [13:37:43.595] Searching for globals ... DONE
  [13:37:43.596] - globals: [0] <none>
  [13:37:43.596] getGlobalsAndPackages() ... DONE
  [13:37:43.596] 
  [13:37:43.597] 
  [13:37:43.597]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:37:43.597] getGlobalsAndPackages() ...
  [13:37:43.598] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:43.598] Resolving globals: FALSE
  [13:37:43.599] The total size of the 3 globals is 288 bytes (288 bytes)
  [13:37:43.599] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [13:37:43.600] 
  [13:37:43.600] getGlobalsAndPackages() ... DONE
  [13:37:43.602] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [13:37:43.603] Packages needed by future strategies (n = 1): 'future'
  [13:37:43.608] {
  [13:37:43.608]     {
  [13:37:43.608]         ...future.startTime <- base::Sys.time()
  [13:37:43.608]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:37:43.608]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:37:43.608]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:37:43.608]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:37:43.608]             future.resolve.recursive = NULL, width = 80L)
  [13:37:43.608]         {
  [13:37:43.608]             {
  [13:37:43.608]                 {
  [13:37:43.608]                   has_future <- base::requireNamespace("future", 
  [13:37:43.608]                     quietly = TRUE)
  [13:37:43.608]                   version <- if (has_future) 
  [13:37:43.608]                     utils::packageVersion("future")
  [13:37:43.608]                   else NULL
  [13:37:43.608]                   if (!has_future || version < "1.8.0") {
  [13:37:43.608]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:37:43.608]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:37:43.608]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:37:43.608]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:37:43.608]                         "release", "version")], collapse = " "), 
  [13:37:43.608]                       hostname = base::Sys.info()[["nodename"]])
  [13:37:43.608]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:37:43.608]                       info)
  [13:37:43.608]                     info <- base::paste(info, collapse = "; ")
  [13:37:43.608]                     if (!has_future) {
  [13:37:43.608]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:37:43.608]                         info)
  [13:37:43.608]                     }
  [13:37:43.608]                     else {
  [13:37:43.608]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:37:43.608]                         info, version)
  [13:37:43.608]                     }
  [13:37:43.608]                     base::stop(msg)
  [13:37:43.608]                   }
  [13:37:43.608]                 }
  [13:37:43.608]                 base::local({
  [13:37:43.608]                   for (pkg in c("doFuture", "utils", "foreach", 
  [13:37:43.608]                   "future")) {
  [13:37:43.608]                     base::loadNamespace(pkg)
  [13:37:43.608]                     base::library(pkg, character.only = TRUE)
  [13:37:43.608]                   }
  [13:37:43.608]                 })
  [13:37:43.608]             }
  [13:37:43.608]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:37:43.608]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:43.608]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:43.608]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:37:43.608]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:37:43.608]                 ...) 
  [13:37:43.608]             {
  [13:37:43.608]                 if (substitute) 
  [13:37:43.608]                   expr <- substitute(expr)
  [13:37:43.608]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:43.608]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:43.608]                   globals = globals, persistent = persistent, 
  [13:37:43.608]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:43.608]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:43.608]                   label = label, ...)
  [13:37:43.608]                 if (!future$lazy) 
  [13:37:43.608]                   future <- run(future)
  [13:37:43.608]                 invisible(future)
  [13:37:43.608]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:43.608]         }
  [13:37:43.608]     }
  [13:37:43.608]     if (base::is.na(TRUE)) {
  [13:37:43.608]     }
  [13:37:43.608]     else {
  [13:37:43.608]         if (TRUE) {
  [13:37:43.608]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:37:43.608]                 open = "w")
  [13:37:43.608]         }
  [13:37:43.608]         else {
  [13:37:43.608]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:37:43.608]                 windows = "NUL", "/dev/null"), open = "w")
  [13:37:43.608]         }
  [13:37:43.608]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:37:43.608]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:37:43.608]             base::sink(type = "output", split = FALSE)
  [13:37:43.608]             base::close(...future.stdout)
  [13:37:43.608]         }, add = TRUE)
  [13:37:43.608]     }
  [13:37:43.608]     ...future.frame <- base::sys.nframe()
  [13:37:43.608]     ...future.conditions <- base::list()
  [13:37:43.608]     ...future.rng <- base::globalenv()$.Random.seed
  [13:37:43.608]     ...future.result <- base::tryCatch({
  [13:37:43.608]         base::withCallingHandlers({
  [13:37:43.608]             ...future.value <- base::withVisible(base::local({
  [13:37:43.608]                 doFuture::registerDoFuture()
  [13:37:43.608]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:43.608]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:43.608]                   a <- NULL
  [13:37:43.608]                   ...future.env <- environment()
  [13:37:43.608]                   local({
  [13:37:43.608]                     for (name in names(...future.x_jj)) {
  [13:37:43.608]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:43.608]                         inherits = FALSE)
  [13:37:43.608]                     }
  [13:37:43.608]                   })
  [13:37:43.608]                   tryCatch({
  [13:37:43.608]                     plan_list <- future::plan("next")
  [13:37:43.608]                     stopifnot(inherits(plan_list, strategy2))
  [13:37:43.608]                     plan_a <- future::plan("list")
  [13:37:43.608]                     str(plan_a)
  [13:37:43.608]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [13:37:43.608]                     message("foreach() - level 2 ...")
  [13:37:43.608]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [13:37:43.608]                       {
  [13:37:43.608]                         plan_list <- future::plan("next")
  [13:37:43.608]                         message(capture.output(print(plan_list)))
  [13:37:43.608]                         stopifnot(inherits(plan_list, "future"))
  [13:37:43.608]                         default <- getOption("future.plan", "sequential")
  [13:37:43.608]                         if (is.function(default)) 
  [13:37:43.608]                           default <- class(default)
  [13:37:43.608]                         stopifnot(inherits(plan_list, default))
  [13:37:43.608]                         plan_b <- future::plan("list")
  [13:37:43.608]                         str(plan_b)
  [13:37:43.608]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:37:43.608]                           inherits(plan_b[[1]], default))
  [13:37:43.608]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:43.608]                       }
  [13:37:43.608]                     message("foreach() - level 2 ... DONE")
  [13:37:43.608]                     y
  [13:37:43.608]                   }, error = identity)
  [13:37:43.608]                 })
  [13:37:43.608]             }))
  [13:37:43.608]             future::FutureResult(value = ...future.value$value, 
  [13:37:43.608]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:43.608]                   ...future.rng), started = ...future.startTime, 
  [13:37:43.608]                 version = "1.8")
  [13:37:43.608]         }, condition = base::local({
  [13:37:43.608]             c <- base::c
  [13:37:43.608]             inherits <- base::inherits
  [13:37:43.608]             invokeRestart <- base::invokeRestart
  [13:37:43.608]             length <- base::length
  [13:37:43.608]             list <- base::list
  [13:37:43.608]             seq.int <- base::seq.int
  [13:37:43.608]             signalCondition <- base::signalCondition
  [13:37:43.608]             sys.calls <- base::sys.calls
  [13:37:43.608]             Sys.time <- base::Sys.time
  [13:37:43.608]             `[[` <- base::`[[`
  [13:37:43.608]             `+` <- base::`+`
  [13:37:43.608]             `<<-` <- base::`<<-`
  [13:37:43.608]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:37:43.608]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:37:43.608]                   3L)]
  [13:37:43.608]             }
  [13:37:43.608]             function(cond) {
  [13:37:43.608]                 if (inherits(cond, "error")) {
  [13:37:43.608]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:43.608]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:37:43.608]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:37:43.608]                   signalCondition(cond)
  [13:37:43.608]                 }
  [13:37:43.608]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:37:43.608]                 ))) {
  [13:37:43.608]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:37:43.608]                   ...future.conditions[[length(...future.conditions) + 
  [13:37:43.608]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:37:43.608]                   if (!signal) {
  [13:37:43.608]                     muffleCondition <- function (cond) 
  [13:37:43.608]                     {
  [13:37:43.608]                       inherits <- base::inherits
  [13:37:43.608]                       invokeRestart <- base::invokeRestart
  [13:37:43.608]                       muffled <- FALSE
  [13:37:43.608]                       if (inherits(cond, "message")) {
  [13:37:43.608]                         invokeRestart("muffleMessage")
  [13:37:43.608]                         muffled <- TRUE
  [13:37:43.608]                       }
  [13:37:43.608]                       else if (inherits(cond, "warning")) {
  [13:37:43.608]                         invokeRestart("muffleWarning")
  [13:37:43.608]                         muffled <- TRUE
  [13:37:43.608]                       }
  [13:37:43.608]                       else if (inherits(cond, "condition")) {
  [13:37:43.608]                         computeRestarts <- base::computeRestarts
  [13:37:43.608]                         grepl <- base::grepl
  [13:37:43.608]                         is.null <- base::is.null
  [13:37:43.608]                         restarts <- computeRestarts(cond)
  [13:37:43.608]                         for (restart in restarts) {
  [13:37:43.608]                           name <- restart$name
  [13:37:43.608]                           if (is.null(name)) 
  [13:37:43.608]                             next
  [13:37:43.608]                           if (!grepl("^muffle", name)) 
  [13:37:43.608]                             next
  [13:37:43.608]                           invokeRestart(restart)
  [13:37:43.608]                           muffled <- TRUE
  [13:37:43.608]                           break
  [13:37:43.608]                         }
  [13:37:43.608]                       }
  [13:37:43.608]                       invisible(muffled)
  [13:37:43.608]                     }
  [13:37:43.608]                     muffleCondition(cond)
  [13:37:43.608]                   }
  [13:37:43.608]                 }
  [13:37:43.608]             }
  [13:37:43.608]         }))
  [13:37:43.608]     }, error = function(ex) {
  [13:37:43.608]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:37:43.608]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:37:43.608]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:37:43.608]     }, finally = {
  [13:37:43.608]         {
  [13:37:43.608]             NULL
  [13:37:43.608]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:37:43.608]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:37:43.608]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:37:43.608]                 label = NULL, ...) 
  [13:37:43.608]             {
  [13:37:43.608]                 if (substitute) 
  [13:37:43.608]                   expr <- substitute(expr)
  [13:37:43.608]                 local <- as.logical(local)
  [13:37:43.608]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:37:43.608]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:43.608]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:37:43.608]                   label = label, ...)
  [13:37:43.608]                 if (!future$lazy) 
  [13:37:43.608]                   future <- run(future)
  [13:37:43.608]                 invisible(future)
  [13:37:43.608]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:37:43.608]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:37:43.608]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:37:43.608]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:43.608]                 label = NULL, ...) 
  [13:37:43.608]             {
  [13:37:43.608]                 if (substitute) 
  [13:37:43.608]                   expr <- substitute(expr)
  [13:37:43.608]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:37:43.608]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:37:43.608]                   globals = globals, persistent = persistent, 
  [13:37:43.608]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:37:43.608]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:37:43.608]                   label = label, ...)
  [13:37:43.608]                 if (!future$lazy) 
  [13:37:43.608]                   future <- run(future)
  [13:37:43.608]                 invisible(future)
  [13:37:43.608]             }), .cleanup = FALSE, .init = FALSE)
  [13:37:43.608]         }
  [13:37:43.608]         base::options(...future.oldOptions)
  [13:37:43.608]     })
  [13:37:43.608]     Sys.time
  [13:37:43.608]     if (base::is.na(TRUE)) {
  [13:37:43.608]     }
  [13:37:43.608]     else {
  [13:37:43.608]         base::sink(type = "output", split = FALSE)
  [13:37:43.608]         if (TRUE) {
  [13:37:43.608]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:37:43.608]         }
  [13:37:43.608]         else {
  [13:37:43.608]             ...future.result["stdout"] <- base::list(NULL)
  [13:37:43.608]         }
  [13:37:43.608]         base::close(...future.stdout)
  [13:37:43.608]         ...future.stdout <- NULL
  [13:37:43.608]     }
  [13:37:43.608]     ...future.result$conditions <- ...future.conditions
  [13:37:43.608]     ...future.result
  [13:37:43.608] }
  [13:37:43.616] plan(): Setting new future strategy stack:
  [13:37:43.616] List of future strategies:
  [13:37:43.616] 1. cluster:
  [13:37:43.616]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:37:43.616]    - tweaked: FALSE
  [13:37:43.616]    - call: plan(list(a = strategy1, b = strategy2))
  [13:37:43.619] plan(): nbrOfWorkers() = 2
  [13:38:01.776] plan(): Setting new future strategy stack:
  [13:38:01.776] List of future strategies:
  [13:38:01.776] 1. sequential:
  [13:38:01.776]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:38:01.776]    - tweaked: FALSE
  [13:38:01.776]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:01.776] 2. cluster:
  [13:38:01.776]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:38:01.776]    - tweaked: FALSE
  [13:38:01.776]    - call: plan(list(a = strategy1, b = strategy2))
  [13:38:01.778] plan(): nbrOfWorkers() = 1
  [13:38:01.779] SequentialFuture started (and completed)
  [13:38:01.780] signalConditions() ...
  [13:38:01.780]  - include = 'immediateCondition'
  [13:38:01.780]  - exclude = 
  [13:38:01.781]  - resignal = FALSE
  [13:38:01.781]  - Number of conditions: 365
  [13:38:01.783] signalConditions() ... done
  [13:38:01.795] Chunk #1 of 1 ... DONE
  [13:38:01.795] Launching 1 futures (chunks) ... DONE
  [13:38:01.795] - resolving futures
  [13:38:01.796]   - gathering results & relaying conditions (except errors)
  [13:38:01.796] resolve() on list ...
  [13:38:01.796]  recursive: 0
  [13:38:01.797]  length: 1
  [13:38:01.797] 
  [13:38:01.797] Future #1
  [13:38:01.798] signalConditions() ...
  [13:38:01.798]  - include = 'immediateCondition'
  [13:38:01.799]  - exclude = 
  [13:38:01.799]  - resignal = FALSE
  [13:38:01.799]  - Number of conditions: 365
  [13:38:01.801] signalConditions() ... done
  [13:38:01.801] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:38:01.802] - nx: 1
  [13:38:01.802] - relay: TRUE
  [13:38:01.802] - stdout: TRUE
  [13:38:01.803] - signal: TRUE
  [13:38:01.803] - resignal: FALSE
  [13:38:01.803] - force: FALSE
  [13:38:01.804] - relayed: [n=1] FALSE
  [13:38:01.804] - queued futures: [n=1] FALSE
  [13:38:01.804]  - until=1
  [13:38:01.805]  - relaying element #1
  [13:38:01.805] signalConditions() ...
  [13:38:01.805]  - include = 'immediateCondition'
  [13:38:01.806]  - exclude = 
  [13:38:01.806]  - resignal = FALSE
  [13:38:01.806]  - Number of conditions: 365
  [13:38:01.826] 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"
  Call: tools::pskill(21594, signal = 0L)
  [1] TRUE
  Call: tools::pskill(21594, signal = 0L)
  [1] TRUE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:38:01.827] signalConditions() ...
  [13:38:01.828]  - include = 'immediateCondition'
  [13:38:01.828]  - exclude = 
  [13:38:01.828]  - resignal = FALSE
  [13:38:01.829]  - Number of conditions: 365
  [13:38:01.831] signalConditions() ... done
  [13:38:01.831] signalConditions() ...
  [13:38:01.832]  - include = 'condition'
  [13:38:01.832]  - exclude = 'immediateCondition'
  [13:38:01.832]  - resignal = FALSE
  [13:38:01.833]  - Number of conditions: 365
  [13:38:01.833]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:38:01.834]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:37:43.626] doFuture() ...
  [13:38:01.834]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [13:37:43.628] - dummy globals (as locals): [1] 'b'
  [13:38:01.835]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [13:37:43.629] - R expression:
  [13:38:01.835]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [13:37:43.629] {
  [13:37:43.629]     doFuture::registerDoFuture()
  [13:37:43.629]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:43.629]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:43.629]         b <- NULL
  [13:37:43.629]         ...future.env <- environment()
  [13:37:43.629]         local({
  [13:37:43.629]             for (name in names(...future.x_jj)) {
  [13:37:43.629]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:43.629]                   inherits = FALSE)
  [13:37:43.629]             }
  [13:37:43.629]         })
  [13:37:43.629]         tryCatch({
  [13:37:43.629]             plan_list <- future::plan("next")
  [13:37:43.629]             message(capture.output(print(plan_list)))
  [13:37:43.629]             stopifnot(inherits(plan_list, "future"))
  [13:37:43.629]             default <- getOption("future.plan", "sequential")
  [13:37:43.629]             if (is.function(default)) 
  [13:37:43.629]                 default <- class(default)
  [13:37:43.629]             stopifnot(inherits(plan_list, default))
  [13:37:43.629]             plan_b <- future::plan("list")
  [13:37:43.629]             str(plan_b)
  [13:37:43.629]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:43.629]                 default))
  [13:37:43.629]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:43.629]         }, error = identity)
  [13:37:43.629]     })
  [13:37:43.629] }
  [13:38:01.836]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [13:37:43.630] - identifying globals and packages ...
  [13:38:01.836]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [13:37:43.631] getGlobalsAndPackages() ...
  [13:38:01.837]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [13:37:43.632] Searching for globals...
  [13:38:01.837]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [13:37:43.664] - 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'
  [13:38:01.838]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [13:37:43.665] Searching for globals ... DONE
  [13:38:01.838]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [13:37:43.666] Resolving globals: FALSE
  [13:38:01.839]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [13:37:43.668] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:38:01.839]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [13:37:43.669] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.840]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [13:37:43.670] - packages: [1] 'utils'
  [13:38:01.840]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [13:37:43.671] getGlobalsAndPackages() ... DONE
  [13:38:01.841]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [13:37:43.671] List of 3
  [13:37:43.671]  $ ...future.x_ii: NULL
  [13:37:43.671]  $ a             : int 1
  [13:37:43.671]  $ plan_a        :List of 1
  [13:37:43.671]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:43.671]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:43.671]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:43.671]     label = NULL, ...)  
  [13:37:43.671]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:37:43.671]   .. ..- attr(*, "init")= logi TRUE
  [13:37:43.671]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:43.671]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:43.671]  - attr(*, "where")=List of 3
  [13:37:43.671]   ..$ ...future.x_ii:<environment: 0x561c1bcb6128> 
  [13:37:43.671]   ..$ a             :<environment: 0x561c1afed768> 
  [13:37:43.671]   ..$ plan_a        :<environment: 0x561c1afed768> 
  [13:37:43.671]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:43.671]  - attr(*, "resolved")= logi FALSE
  [13:37:43.671]  - attr(*, "total_size")= num 66056
  [13:38:01.841]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [13:37:43.691]   - R expression:
  [13:38:01.842]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [13:37:43.692] {
  [13:37:43.692]     doFuture::registerDoFuture()
  [13:37:43.692]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:43.692]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:43.692]         b <- NULL
  [13:37:43.692]         ...future.env <- environment()
  [13:37:43.692]         local({
  [13:37:43.692]             for (name in names(...future.x_jj)) {
  [13:37:43.692]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:43.692]                   inherits = FALSE)
  [13:37:43.692]             }
  [13:37:43.692]         })
  [13:37:43.692]         tryCatch({
  [13:37:43.692]             plan_list <- future::plan("next")
  [13:37:43.692]             message(capture.output(print(plan_list)))
  [13:37:43.692]             stopifnot(inherits(plan_list, "future"))
  [13:37:43.692]             default <- getOption("future.plan", "sequential")
  [13:37:43.692]             if (is.function(default)) 
  [13:37:43.692]                 default <- class(default)
  [13:37:43.692]             stopifnot(inherits(plan_list, default))
  [13:37:43.692]             plan_b <- future::plan("list")
  [13:37:43.692]             str(plan_b)
  [13:37:43.692]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:43.692]                 default))
  [13:37:43.692]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:43.692]         }, error = identity)
  [13:37:43.692]     })
  [13:37:43.692] }
  [13:38:01.842]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [13:37:43.693]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.843]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [13:37:43.694] List of 3
  [13:37:43.694]  $ ...future.x_ii: NULL
  [13:37:43.694]  $ a             : int 1
  [13:37:43.694]  $ plan_a        :List of 1
  [13:37:43.694]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:43.694]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:43.694]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:43.694]     label = NULL, ...)  
  [13:37:43.694]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:37:43.694]   .. ..- attr(*, "init")= logi TRUE
  [13:37:43.694]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:43.694]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:43.694]  - attr(*, "where")=List of 3
  [13:37:43.694]   ..$ ...future.x_ii:<environment: 0x561c1bcb6128> 
  [13:37:43.694]   ..$ a             :<environment: 0x561c1afed768> 
  [13:37:43.694]   ..$ plan_a        :<environment: 0x561c1afed768> 
  [13:37:43.694]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:43.694]  - attr(*, "resolved")= logi FALSE
  [13:37:43.694]  - attr(*, "total_size")= num 66056
  [13:38:01.843]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [13:37:43.708]   - packages: [2] 'doFuture', 'utils'
  [13:38:01.844]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [13:37:43.708] - identifying globals and packages ... DONE
  [13:38:01.844]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [13:37:43.710] Number of chunks: 2
  [13:38:01.845]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [13:37:43.711] Number of futures (= number of chunks): 2
  [13:38:01.845]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [13:37:43.712] Launching 2 futures (chunks) ...
  [13:38:01.845]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [13:37:43.712] Chunk #1 of 2 ...
  [13:38:01.846]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [13:37:43.712]  - Finding globals in 'args_list' chunk #1 ...
  [13:38:01.846]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [13:37:43.713] getGlobalsAndPackages() ...
  [13:38:01.847]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [13:37:43.713] Searching for globals...
  [13:38:01.847]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [13:37:43.714] 
  [13:38:01.848]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [13:37:43.715] Searching for globals ... DONE
  [13:38:01.848]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [13:37:43.715] - globals: [0] <none>
  [13:38:01.849]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [13:37:43.716] getGlobalsAndPackages() ... DONE
  [13:38:01.849]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [13:37:43.716] 
  [13:38:01.850]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [13:37:43.717] 
  [13:38:01.850]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [13:37:43.717]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:38:01.851]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [13:38:01.851]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 37038
  [13:38:01.852]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [13:38:01.852]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [13:38:01.852]  - 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/RtmpLfcXs7/future.parent=21594.545a4e04ea87.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLfcXs7/future.parent=21594.545a4e04ea87.pid')"'
  [13:38:01.853]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [13:38:01.853]  - 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:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a4e04ea87.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=37038 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [13:38:01.854]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [13:38:01.854]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [13:38:01.855]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Detected a warning from socketConnection(): 'port 37038 cannot be opened'
  [13:38:01.855]  - Condition #47: 'simpleWarning', 'warning', 'condition'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 37038 cannot be opened
  [13:38:01.856]  - Condition #48: 'simpleMessage', 'message', 'condition'
  Killing worker process (PID 28907) if still alive
  [13:38:01.857]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [13:37:45.683] Attempting to find a working pid_exists_*() function ...
  [13:38:01.857]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [13:37:45.684] - success
  [13:38:01.857]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [13:37:45.684] Attempting to find a working pid_exists_*() function ... done
  [13:38:01.858]  - Condition #52: 'simpleMessage', 'message', 'condition'
  Worker (PID 28907) was successfully killed: TRUE
  [13:38:01.858]  - Condition #53: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [13:38:01.859]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [13:37:45.708] doFuture() ...
  [13:38:01.859]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [13:37:45.710] - dummy globals (as locals): [1] 'b'
  [13:38:01.860]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [13:37:45.728] - R expression:
  [13:38:01.860]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [13:37:45.729] {
  [13:37:45.729]     doFuture::registerDoFuture()
  [13:37:45.729]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:45.729]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:45.729]         b <- NULL
  [13:37:45.729]         ...future.env <- environment()
  [13:37:45.729]         local({
  [13:37:45.729]             for (name in names(...future.x_jj)) {
  [13:37:45.729]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:45.729]                   inherits = FALSE)
  [13:37:45.729]             }
  [13:37:45.729]         })
  [13:37:45.729]         tryCatch({
  [13:37:45.729]             plan_list <- future::plan("next")
  [13:37:45.729]             message(capture.output(print(plan_list)))
  [13:37:45.729]             stopifnot(inherits(plan_list, "future"))
  [13:37:45.729]             default <- getOption("future.plan", "sequential")
  [13:37:45.729]             if (is.function(default)) 
  [13:37:45.729]                 default <- class(default)
  [13:37:45.729]             stopifnot(inherits(plan_list, default))
  [13:37:45.729]             plan_b <- future::plan("list")
  [13:37:45.729]             str(plan_b)
  [13:37:45.729]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:45.729]                 default))
  [13:37:45.729]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:45.729]         }, error = identity)
  [13:37:45.729]     })
  [13:37:45.729] }
  [13:38:01.861]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [13:37:45.730] - identifying globals and packages ...
  [13:38:01.861]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [13:37:45.731] getGlobalsAndPackages() ...
  [13:38:01.862]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [13:37:45.731] Searching for globals...
  [13:38:01.862]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [13:37:45.788] - 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'
  [13:38:01.863]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [13:37:45.788] Searching for globals ... DONE
  [13:38:01.863]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [13:37:45.789] Resolving globals: FALSE
  [13:38:01.863]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [13:37:45.816] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [13:38:01.864]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [13:37:45.817] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.864]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [13:37:45.818] - packages: [1] 'utils'
  [13:38:01.865]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [13:37:45.818] getGlobalsAndPackages() ... DONE
  [13:38:01.865]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [13:37:45.819] List of 3
  [13:37:45.819]  $ ...future.x_ii: NULL
  [13:37:45.819]  $ a             : int 2
  [13:37:45.819]  $ plan_a        :List of 1
  [13:37:45.819]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:45.819]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:45.819]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:45.819]     label = NULL, ...)  
  [13:37:45.819]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:37:45.819]   .. ..- attr(*, "init")= logi TRUE
  [13:37:45.819]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:45.819]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:45.819]  - attr(*, "where")=List of 3
  [13:37:45.819]   ..$ ...future.x_ii:<environment: 0x561c1a551f58> 
  [13:37:45.819]   ..$ a             :<environment: 0x561c1bd50da0> 
  [13:37:45.819]   ..$ plan_a        :<environment: 0x561c1bd50da0> 
  [13:37:45.819]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:45.819]  - attr(*, "resolved")= logi FALSE
  [13:37:45.819]  - attr(*, "total_size")= num 66056
  [13:38:01.866]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [13:37:45.837]   - R expression:
  [13:38:01.866]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [13:37:45.837] {
  [13:37:45.837]     doFuture::registerDoFuture()
  [13:37:45.837]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:37:45.837]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:37:45.837]         b <- NULL
  [13:37:45.837]         ...future.env <- environment()
  [13:37:45.837]         local({
  [13:37:45.837]             for (name in names(...future.x_jj)) {
  [13:37:45.837]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:37:45.837]                   inherits = FALSE)
  [13:37:45.837]             }
  [13:37:45.837]         })
  [13:37:45.837]         tryCatch({
  [13:37:45.837]             plan_list <- future::plan("next")
  [13:37:45.837]             message(capture.output(print(plan_list)))
  [13:37:45.837]             stopifnot(inherits(plan_list, "future"))
  [13:37:45.837]             default <- getOption("future.plan", "sequential")
  [13:37:45.837]             if (is.function(default)) 
  [13:37:45.837]                 default <- class(default)
  [13:37:45.837]             stopifnot(inherits(plan_list, default))
  [13:37:45.837]             plan_b <- future::plan("list")
  [13:37:45.837]             str(plan_b)
  [13:37:45.837]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [13:37:45.837]                 default))
  [13:37:45.837]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:37:45.837]         }, error = identity)
  [13:37:45.837]     })
  [13:37:45.837] }
  [13:38:01.867]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [13:37:45.839]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.867]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [13:37:45.841] List of 3
  [13:37:45.841]  $ ...future.x_ii: NULL
  [13:37:45.841]  $ a             : int 2
  [13:37:45.841]  $ plan_a        :List of 1
  [13:37:45.841]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [13:37:45.841]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:37:45.841]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:37:45.841]     label = NULL, ...)  
  [13:37:45.841]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [13:37:45.841]   .. ..- attr(*, "init")= logi TRUE
  [13:37:45.841]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [13:37:45.841]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [13:37:45.841]  - attr(*, "where")=List of 3
  [13:37:45.841]   ..$ ...future.x_ii:<environment: 0x561c1a551f58> 
  [13:37:45.841]   ..$ a             :<environment: 0x561c1bd50da0> 
  [13:37:45.841]   ..$ plan_a        :<environment: 0x561c1bd50da0> 
  [13:37:45.841]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:37:45.841]  - attr(*, "resolved")= logi FALSE
  [13:37:45.841]  - attr(*, "total_size")= num 66056
  [13:38:01.868]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [13:37:45.858]   - packages: [2] 'doFuture', 'utils'
  [13:38:01.868]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [13:37:45.859] - identifying globals and packages ... DONE
  [13:38:01.869]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [13:37:45.861] Number of chunks: 2
  [13:38:01.869]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [13:37:45.862] Number of futures (= number of chunks): 2
  [13:38:01.869]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [13:37:45.863] Launching 2 futures (chunks) ...
  [13:38:01.870]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [13:37:45.864] Chunk #1 of 2 ...
  [13:38:01.871]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [13:37:45.864]  - Finding globals in 'args_list' chunk #1 ...
  [13:38:01.871]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [13:37:45.865] getGlobalsAndPackages() ...
  [13:38:01.872]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [13:37:45.865] Searching for globals...
  [13:38:01.872]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [13:37:45.866] 
  [13:38:01.873]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [13:37:45.867] Searching for globals ... DONE
  [13:38:01.873]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [13:37:45.887] - globals: [0] <none>
  [13:38:01.873]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [13:37:45.891] getGlobalsAndPackages() ... DONE
  [13:38:01.874]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [13:37:45.894] 
  [13:38:01.874]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [13:37:45.898] 
  [13:38:01.875]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [13:37:45.901]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:38:01.875]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [13:38:01.876]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 29061
  [13:38:01.876]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [13:38:01.877]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [13:38:01.883]  - Condition #93: '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/RtmpLfcXs7/future.parent=21594.545a3fd3d68c.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLfcXs7/future.parent=21594.545a3fd3d68c.pid')"'
  [13:38:01.884]  - Condition #94: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [13:38:01.884]  - Condition #95: '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:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a3fd3d68c.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=29061 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [13:38:01.885]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [13:38:01.885]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [13:38:01.886]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [13:38:01.886]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [13:38:01.887]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [13:38:01.887]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [13:38:01.888]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [13:38:01.889]  - Condition #103: '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/RtmpLfcXs7/future.parent=21594.545a693dd4b0.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLfcXs7/future.parent=21594.545a693dd4b0.pid')"'
  [13:38:01.889]  - Condition #104: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [13:38:01.890]  - Condition #105: '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:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a693dd4b0.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=29061 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [13:38:01.890]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [13:38:01.891]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [13:38:01.891]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [13:38:01.892]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [13:38:01.892]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [13:38:01.893]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [13:38:00.788] getGlobalsAndPackages() ...
  [13:38:01.893]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [13:38:00.789] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.894]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [13:38:00.789] Resolving globals: FALSE
  [13:38:01.894]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [13:38:00.791] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [13:38:01.894]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [13:38:00.792] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.895]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [13:38:00.793] 
  [13:38:01.895]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [13:38:00.793] getGlobalsAndPackages() ... DONE
  [13:38:01.896]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [13:38:00.797] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:38:01.896]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [13:38:00.798] Packages needed by future strategies (n = 0): <none>
  [13:38:01.897]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [13:38:00.805] {
  [13:38:00.805]     {
  [13:38:00.805]         ...future.startTime <- base::Sys.time()
  [13:38:00.805]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:00.805]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:00.805]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:00.805]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:00.805]             future.resolve.recursive = NULL, width = 80L)
  [13:38:00.805]         {
  [13:38:00.805]             {
  [13:38:00.805]                 {
  [13:38:00.805]                   has_future <- base::requireNamespace("future", 
  [13:38:00.805]                     quietly = TRUE)
  [13:38:00.805]                   version <- if (has_future) 
  [13:38:00.805]                     utils::packageVersion("future")
  [13:38:00.805]                   else NULL
  [13:38:00.805]                   if (!has_future || version < "1.8.0") {
  [13:38:00.805]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:38:00.805]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:38:00.805]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:00.805]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:00.805]                         "release", "version")], collapse = " "), 
  [13:38:00.805]                       hostname = base::Sys.info()[["nodename"]])
  [13:38:00.805]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:00.805]                       info)
  [13:38:00.805]                     info <- base::paste(info, collapse = "; ")
  [13:38:00.805]                     if (!has_future) {
  [13:38:00.805]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:00.805]                         info)
  [13:38:00.805]                     }
  [13:38:00.805]                     else {
  [13:38:00.805]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:00.805]                         info, version)
  [13:38:00.805]                     }
  [13:38:00.805]                     base::stop(msg)
  [13:38:00.805]                   }
  [13:38:00.805]                 }
  [13:38:00.805]                 base::local({
  [13:38:00.805]                   for (pkg in c("doFuture", "utils")) {
  [13:38:00.805]                     base::loadNamespace(pkg)
  [13:38:00.805]                     base::library(pkg, character.only = TRUE)
  [13:38:00.805]                   }
  [13:38:00.805]                 })
  [13:38:00.805]             }
  [13:38:00.805]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:38:00.805]         }
  [13:38:00.805]     }
  [13:38:00.805]     if (base::is.na(TRUE)) {
  [13:38:00.805]     }
  [13:38:00.805]     else {
  [13:38:00.805]         if (TRUE) {
  [13:38:00.805]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:00.805]                 open = "w")
  [13:38:00.805]         }
  [13:38:00.805]         else {
  [13:38:00.805]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:00.805]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:00.805]         }
  [13:38:00.805]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:00.805]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:00.805]             base::sink(type = "output", split = FALSE)
  [13:38:00.805]             base::close(...future.stdout)
  [13:38:00.805]         }, add = TRUE)
  [13:38:00.805]     }
  [13:38:00.805]     ...future.frame <- base::sys.nframe()
  [13:38:00.805]     ...future.conditions <- base::list()
  [13:38:00.805]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:00.805]     ...future.result <- base::tryCatch({
  [13:38:00.805]         base::withCallingHandlers({
  [13:38:00.805]             ...future.value <- base::withVisible(base::local({
  [13:38:00.805]                 ...future.sendCondition <- local({
  [13:38:00.805]                   sendCondition <- NULL
  [13:38:00.805]                   function(frame = 1L) {
  [13:38:00.805]                     if (is.function(sendCondition)) 
  [13:38:00.805]                       return(sendCondition)
  [13:38:00.805]                     ns <- getNamespace("parallel")
  [13:38:00.805]                     if (exists("sendData", mode = "function", 
  [13:38:00.805]                       envir = ns)) {
  [13:38:00.805]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:00.805]                         envir = ns)
  [13:38:00.805]                       envir <- sys.frame(frame)
  [13:38:00.805]                       master <- NULL
  [13:38:00.805]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:00.805]                         !identical(envir, emptyenv())) {
  [13:38:00.805]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:00.805]                           inherits = FALSE)) {
  [13:38:00.805]                           master <- get("master", mode = "list", 
  [13:38:00.805]                             envir = envir, inherits = FALSE)
  [13:38:00.805]                           if (inherits(master, "SOCKnode")) {
  [13:38:00.805]                             sendCondition <<- function(cond) {
  [13:38:00.805]                               data <- list(type = "VALUE", value = cond, 
  [13:38:00.805]                                 success = TRUE)
  [13:38:00.805]                               parallel_sendData(master, data)
  [13:38:00.805]                             }
  [13:38:00.805]                             return(sendCondition)
  [13:38:00.805]                           }
  [13:38:00.805]                         }
  [13:38:00.805]                         frame <- frame + 1L
  [13:38:00.805]                         envir <- sys.frame(frame)
  [13:38:00.805]                       }
  [13:38:00.805]                     }
  [13:38:00.805]                     sendCondition <<- function(cond) NULL
  [13:38:00.805]                   }
  [13:38:00.805]                 })
  [13:38:00.805]                 withCallingHandlers({
  [13:38:00.805]                   {
  [13:38:00.805]                     doFuture::registerDoFuture()
  [13:38:00.805]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:00.805]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:00.805]                       b <- NULL
  [13:38:00.805]                       ...future.env <- environment()
  [13:38:00.805]                       local({
  [13:38:00.805]                         for (name in names(...future.x_jj)) {
  [13:38:00.805]                           assign(name, ...future.x_jj[[name]], 
  [13:38:00.805]                             envir = ...future.env, inherits = FALSE)
  [13:38:00.805]                         }
  [13:38:00.805]                       })
  [13:38:00.805]                       tryCatch({
  [13:38:00.805]                         plan_list <- future::plan("next")
  [13:38:00.805]                         message(capture.output(print(plan_list)))
  [13:38:00.805]                         stopifnot(inherits(plan_list, "future"))
  [13:38:00.805]                         default <- getOption("future.plan", "sequential")
  [13:38:00.805]                         if (is.function(default)) 
  [13:38:00.805]                           default <- class(default)
  [13:38:00.805]                         stopifnot(inherits(plan_list, default))
  [13:38:00.805]                         plan_b <- future::plan("list")
  [13:38:00.805]                         str(plan_b)
  [13:38:00.805]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:38:00.805]                           inherits(plan_b[[1]], default))
  [13:38:00.805]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:38:00.805]                       }, error = identity)
  [13:38:00.805]                     })
  [13:38:00.805]                   }
  [13:38:00.805]                 }, immediateCondition = function(cond) {
  [13:38:00.805]                   sendCondition <- ...future.sendCondition()
  [13:38:00.805]                   sendCondition(cond)
  [13:38:00.805]                   muffleCondition <- function (cond) 
  [13:38:00.805]                   {
  [13:38:00.805]                     inherits <- base::inherits
  [13:38:00.805]                     invokeRestart <- base::invokeRestart
  [13:38:00.805]                     muffled <- FALSE
  [13:38:00.805]                     if (inherits(cond, "message")) {
  [13:38:00.805]                       invokeRestart("muffleMessage")
  [13:38:00.805]                       muffled <- TRUE
  [13:38:00.805]                     }
  [13:38:00.805]                     else if (inherits(cond, "warning")) {
  [13:38:00.805]                       invokeRestart("muffleWarning")
  [13:38:00.805]                       muffled <- TRUE
  [13:38:00.805]                     }
  [13:38:00.805]                     else if (inherits(cond, "condition")) {
  [13:38:00.805]                       computeRestarts <- base::computeRestarts
  [13:38:00.805]                       grepl <- base::grepl
  [13:38:00.805]                       is.null <- base::is.null
  [13:38:00.805]                       restarts <- computeRestarts(cond)
  [13:38:00.805]                       for (restart in restarts) {
  [13:38:00.805]                         name <- restart$name
  [13:38:00.805]                         if (is.null(name)) 
  [13:38:00.805]                           next
  [13:38:00.805]                         if (!grepl("^muffle", name)) 
  [13:38:00.805]                           next
  [13:38:00.805]                         invokeRestart(restart)
  [13:38:00.805]                         muffled <- TRUE
  [13:38:00.805]                         break
  [13:38:00.805]                       }
  [13:38:00.805]                     }
  [13:38:00.805]                     invisible(muffled)
  [13:38:00.805]                   }
  [13:38:00.805]                   muffleCondition(cond)
  [13:38:00.805]                 })
  [13:38:00.805]             }))
  [13:38:00.805]             future::FutureResult(value = ...future.value$value, 
  [13:38:00.805]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:00.805]                   ...future.rng), started = ...future.startTime, 
  [13:38:00.805]                 version = "1.8")
  [13:38:00.805]         }, condition = base::local({
  [13:38:00.805]             c <- base::c
  [13:38:00.805]             inherits <- base::inherits
  [13:38:00.805]             invokeRestart <- base::invokeRestart
  [13:38:00.805]             length <- base::length
  [13:38:00.805]             list <- base::list
  [13:38:00.805]             seq.int <- base::seq.int
  [13:38:00.805]             signalCondition <- base::signalCondition
  [13:38:00.805]             sys.calls <- base::sys.calls
  [13:38:00.805]             Sys.time <- base::Sys.time
  [13:38:00.805]             `[[` <- base::`[[`
  [13:38:00.805]             `+` <- base::`+`
  [13:38:00.805]             `<<-` <- base::`<<-`
  [13:38:00.805]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:00.805]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:00.805]                   3L)]
  [13:38:00.805]             }
  [13:38:00.805]             function(cond) {
  [13:38:00.805]                 if (inherits(cond, "error")) {
  [13:38:00.805]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:00.805]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:00.805]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:00.805]                   signalCondition(cond)
  [13:38:00.805]                 }
  [13:38:00.805]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:00.805]                 ))) {
  [13:38:00.805]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:00.805]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:00.805]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:00.805]                   if (!signal) {
  [13:38:00.805]                     muffleCondition <- function (cond) 
  [13:38:00.805]                     {
  [13:38:00.805]                       inherits <- base::inherits
  [13:38:00.805]                       invokeRestart <- base::invokeRestart
  [13:38:00.805]                       muffled <- FALSE
  [13:38:00.805]                       if (inherits(cond, "message")) {
  [13:38:00.805]                         invokeRestart("muffleMessage")
  [13:38:00.805]                         muffled <- TRUE
  [13:38:00.805]                       }
  [13:38:00.805]                       else if (inherits(cond, "warning")) {
  [13:38:00.805]                         invokeRestart("muffleWarning")
  [13:38:00.805]                         muffled <- TRUE
  [13:38:00.805]                       }
  [13:38:00.805]                       else if (inherits(cond, "condition")) {
  [13:38:00.805]                         computeRestarts <- base::computeRestarts
  [13:38:00.805]                         grepl <- base::grepl
  [13:38:00.805]                         is.null <- base::is.null
  [13:38:00.805]                         restarts <- computeRestarts(cond)
  [13:38:00.805]                         for (restart in restarts) {
  [13:38:00.805]                           name <- restart$name
  [13:38:00.805]                           if (is.null(name)) 
  [13:38:00.805]                             next
  [13:38:00.805]                           if (!grepl("^muffle", name)) 
  [13:38:00.805]                             next
  [13:38:00.805]                           invokeRestart(restart)
  [13:38:00.805]                           muffled <- TRUE
  [13:38:00.805]                           break
  [13:38:00.805]                         }
  [13:38:00.805]                       }
  [13:38:00.805]                       invisible(muffled)
  [13:38:00.805]                     }
  [13:38:00.805]                     muffleCondition(cond)
  [13:38:00.805]                   }
  [13:38:00.805]                 }
  [13:38:00.805]             }
  [13:38:00.805]         }))
  [13:38:00.805]     }, error = function(ex) {
  [13:38:00.805]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:00.805]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:00.805]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:00.805]     }, finally = {
  [13:38:00.805]         {
  [13:38:00.805]             NULL
  [13:38:00.805]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:00.805]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:00.805]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:00.805]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:00.805]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:00.805]                 ...) 
  [13:38:00.805]             {
  [13:38:00.805]                 if (substitute) 
  [13:38:00.805]                   expr <- substitute(expr)
  [13:38:00.805]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:00.805]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:00.805]                   globals = globals, persistent = persistent, 
  [13:38:00.805]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:00.805]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:00.805]                   label = label, ...)
  [13:38:00.805]                 if (!future$lazy) 
  [13:38:00.805]                   future <- run(future)
  [13:38:00.805]                 invisible(future)
  [13:38:00.805]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:00.805]         }
  [13:38:00.805]         base::options(...future.oldOptions)
  [13:38:00.805]     })
  [13:38:00.805]     Sys.time
  [13:38:00.805]     if (base::is.na(TRUE)) {
  [13:38:00.805]     }
  [13:38:00.805]     else {
  [13:38:00.805]         base::sink(type = "output", split = FALSE)
  [13:38:00.805]         if (TRUE) {
  [13:38:00.805]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:00.805]         }
  [13:38:00.805]         else {
  [13:38:00.805]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:00.805]         }
  [13:38:00.805]         base::close(...future.stdout)
  [13:38:00.805]         ...future.stdout <- NULL
  [13:38:00.805]     }
  [13:38:00.805]     ...future.result$conditions <- ...future.conditions
  [13:38:00.805]     ...future.result
  [13:38:00.805] }
  [13:38:01.897]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [13:38:00.834] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [13:38:01.898]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [13:38:00.835] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [13:38:01.898]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [13:38:00.836] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [13:38:01.899]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [13:38:00.837] Exporting 'a' (56 bytes) to cluster node #1 ...
  [13:38:01.899]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [13:38:00.838] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [13:38:01.900]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [13:38:00.839] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [13:38:01.900]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [13:38:00.887] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [13:38:01.901]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [13:38:00.888] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [13:38:01.901]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [13:38:00.889] ClusterFuture started
  [13:38:01.902]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [13:38:00.890] Chunk #1 of 2 ... DONE
  [13:38:01.902]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [13:38:00.891] Chunk #2 of 2 ...
  [13:38:01.902]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [13:38:00.891]  - Finding globals in 'args_list' chunk #2 ...
  [13:38:01.903]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [13:38:00.892] getGlobalsAndPackages() ...
  [13:38:01.903]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [13:38:00.892] Searching for globals...
  [13:38:01.904]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [13:38:00.894] 
  [13:38:01.904]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [13:38:00.894] Searching for globals ... DONE
  [13:38:01.905]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [13:38:00.895] - globals: [0] <none>
  [13:38:01.905]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [13:38:00.895] getGlobalsAndPackages() ... DONE
  [13:38:01.906]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [13:38:00.896] 
  [13:38:01.906]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [13:38:00.896] 
  [13:38:01.907]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [13:38:00.897]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:38:01.907]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [13:38:00.969] getGlobalsAndPackages() ...
  [13:38:01.907]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [13:38:00.970] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.908]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [13:38:00.971] Resolving globals: FALSE
  [13:38:01.908]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [13:38:00.973] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [13:38:01.909]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [13:38:00.973] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [13:38:01.909]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [13:38:00.974] 
  [13:38:01.910]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [13:38:00.974] getGlobalsAndPackages() ... DONE
  [13:38:01.910]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [13:38:00.995] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [13:38:01.911]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [13:38:00.996] Packages needed by future strategies (n = 0): <none>
  [13:38:01.911]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [13:38:01.002] {
  [13:38:01.002]     {
  [13:38:01.002]         ...future.startTime <- base::Sys.time()
  [13:38:01.002]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:38:01.002]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:38:01.002]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:38:01.002]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:38:01.002]             future.resolve.recursive = NULL, width = 80L)
  [13:38:01.002]         {
  [13:38:01.002]             {
  [13:38:01.002]                 {
  [13:38:01.002]                   has_future <- base::requireNamespace("future", 
  [13:38:01.002]                     quietly = TRUE)
  [13:38:01.002]                   version <- if (has_future) 
  [13:38:01.002]                     utils::packageVersion("future")
  [13:38:01.002]                   else NULL
  [13:38:01.002]                   if (!has_future || version < "1.8.0") {
  [13:38:01.002]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:38:01.002]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:38:01.002]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:38:01.002]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:38:01.002]                         "release", "version")], collapse = " "), 
  [13:38:01.002]                       hostname = base::Sys.info()[["nodename"]])
  [13:38:01.002]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:38:01.002]                       info)
  [13:38:01.002]                     info <- base::paste(info, collapse = "; ")
  [13:38:01.002]                     if (!has_future) {
  [13:38:01.002]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:38:01.002]                         info)
  [13:38:01.002]                     }
  [13:38:01.002]                     else {
  [13:38:01.002]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:38:01.002]                         info, version)
  [13:38:01.002]                     }
  [13:38:01.002]                     base::stop(msg)
  [13:38:01.002]                   }
  [13:38:01.002]                 }
  [13:38:01.002]                 base::local({
  [13:38:01.002]                   for (pkg in c("doFuture", "utils")) {
  [13:38:01.002]                     base::loadNamespace(pkg)
  [13:38:01.002]                     base::library(pkg, character.only = TRUE)
  [13:38:01.002]                   }
  [13:38:01.002]                 })
  [13:38:01.002]             }
  [13:38:01.002]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [13:38:01.002]         }
  [13:38:01.002]     }
  [13:38:01.002]     if (base::is.na(TRUE)) {
  [13:38:01.002]     }
  [13:38:01.002]     else {
  [13:38:01.002]         if (TRUE) {
  [13:38:01.002]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:38:01.002]                 open = "w")
  [13:38:01.002]         }
  [13:38:01.002]         else {
  [13:38:01.002]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:38:01.002]                 windows = "NUL", "/dev/null"), open = "w")
  [13:38:01.002]         }
  [13:38:01.002]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:38:01.002]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:38:01.002]             base::sink(type = "output", split = FALSE)
  [13:38:01.002]             base::close(...future.stdout)
  [13:38:01.002]         }, add = TRUE)
  [13:38:01.002]     }
  [13:38:01.002]     ...future.frame <- base::sys.nframe()
  [13:38:01.002]     ...future.conditions <- base::list()
  [13:38:01.002]     ...future.rng <- base::globalenv()$.Random.seed
  [13:38:01.002]     ...future.result <- base::tryCatch({
  [13:38:01.002]         base::withCallingHandlers({
  [13:38:01.002]             ...future.value <- base::withVisible(base::local({
  [13:38:01.002]                 ...future.sendCondition <- local({
  [13:38:01.002]                   sendCondition <- NULL
  [13:38:01.002]                   function(frame = 1L) {
  [13:38:01.002]                     if (is.function(sendCondition)) 
  [13:38:01.002]                       return(sendCondition)
  [13:38:01.002]                     ns <- getNamespace("parallel")
  [13:38:01.002]                     if (exists("sendData", mode = "function", 
  [13:38:01.002]                       envir = ns)) {
  [13:38:01.002]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:38:01.002]                         envir = ns)
  [13:38:01.002]                       envir <- sys.frame(frame)
  [13:38:01.002]                       master <- NULL
  [13:38:01.002]                       while (!identical(envir, .GlobalEnv) && 
  [13:38:01.002]                         !identical(envir, emptyenv())) {
  [13:38:01.002]                         if (exists("master", mode = "list", envir = envir, 
  [13:38:01.002]                           inherits = FALSE)) {
  [13:38:01.002]                           master <- get("master", mode = "list", 
  [13:38:01.002]                             envir = envir, inherits = FALSE)
  [13:38:01.002]                           if (inherits(master, "SOCKnode")) {
  [13:38:01.002]                             sendCondition <<- function(cond) {
  [13:38:01.002]                               data <- list(type = "VALUE", value = cond, 
  [13:38:01.002]                                 success = TRUE)
  [13:38:01.002]                               parallel_sendData(master, data)
  [13:38:01.002]                             }
  [13:38:01.002]                             return(sendCondition)
  [13:38:01.002]                           }
  [13:38:01.002]                         }
  [13:38:01.002]                         frame <- frame + 1L
  [13:38:01.002]                         envir <- sys.frame(frame)
  [13:38:01.002]                       }
  [13:38:01.002]                     }
  [13:38:01.002]                     sendCondition <<- function(cond) NULL
  [13:38:01.002]                   }
  [13:38:01.002]                 })
  [13:38:01.002]                 withCallingHandlers({
  [13:38:01.002]                   {
  [13:38:01.002]                     doFuture::registerDoFuture()
  [13:38:01.002]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:38:01.002]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:38:01.002]                       b <- NULL
  [13:38:01.002]                       ...future.env <- environment()
  [13:38:01.002]                       local({
  [13:38:01.002]                         for (name in names(...future.x_jj)) {
  [13:38:01.002]                           assign(name, ...future.x_jj[[name]], 
  [13:38:01.002]                             envir = ...future.env, inherits = FALSE)
  [13:38:01.002]                         }
  [13:38:01.002]                       })
  [13:38:01.002]                       tryCatch({
  [13:38:01.002]                         plan_list <- future::plan("next")
  [13:38:01.002]                         message(capture.output(print(plan_list)))
  [13:38:01.002]                         stopifnot(inherits(plan_list, "future"))
  [13:38:01.002]                         default <- getOption("future.plan", "sequential")
  [13:38:01.002]                         if (is.function(default)) 
  [13:38:01.002]                           default <- class(default)
  [13:38:01.002]                         stopifnot(inherits(plan_list, default))
  [13:38:01.002]                         plan_b <- future::plan("list")
  [13:38:01.002]                         str(plan_b)
  [13:38:01.002]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [13:38:01.002]                           inherits(plan_b[[1]], default))
  [13:38:01.002]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [13:38:01.002]                       }, error = identity)
  [13:38:01.002]                     })
  [13:38:01.002]                   }
  [13:38:01.002]                 }, immediateCondition = function(cond) {
  [13:38:01.002]                   sendCondition <- ...future.sendCondition()
  [13:38:01.002]                   sendCondition(cond)
  [13:38:01.002]                   muffleCondition <- function (cond) 
  [13:38:01.002]                   {
  [13:38:01.002]                     inherits <- base::inherits
  [13:38:01.002]                     invokeRestart <- base::invokeRestart
  [13:38:01.002]                     muffled <- FALSE
  [13:38:01.002]                     if (inherits(cond, "message")) {
  [13:38:01.002]                       invokeRestart("muffleMessage")
  [13:38:01.002]                       muffled <- TRUE
  [13:38:01.002]                     }
  [13:38:01.002]                     else if (inherits(cond, "warning")) {
  [13:38:01.002]                       invokeRestart("muffleWarning")
  [13:38:01.002]                       muffled <- TRUE
  [13:38:01.002]                     }
  [13:38:01.002]                     else if (inherits(cond, "condition")) {
  [13:38:01.002]                       computeRestarts <- base::computeRestarts
  [13:38:01.002]                       grepl <- base::grepl
  [13:38:01.002]                       is.null <- base::is.null
  [13:38:01.002]                       restarts <- computeRestarts(cond)
  [13:38:01.002]                       for (restart in restarts) {
  [13:38:01.002]                         name <- restart$name
  [13:38:01.002]                         if (is.null(name)) 
  [13:38:01.002]                           next
  [13:38:01.002]                         if (!grepl("^muffle", name)) 
  [13:38:01.002]                           next
  [13:38:01.002]                         invokeRestart(restart)
  [13:38:01.002]                         muffled <- TRUE
  [13:38:01.002]                         break
  [13:38:01.002]                       }
  [13:38:01.002]                     }
  [13:38:01.002]                     invisible(muffled)
  [13:38:01.002]                   }
  [13:38:01.002]                   muffleCondition(cond)
  [13:38:01.002]                 })
  [13:38:01.002]             }))
  [13:38:01.002]             future::FutureResult(value = ...future.value$value, 
  [13:38:01.002]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:01.002]                   ...future.rng), started = ...future.startTime, 
  [13:38:01.002]                 version = "1.8")
  [13:38:01.002]         }, condition = base::local({
  [13:38:01.002]             c <- base::c
  [13:38:01.002]             inherits <- base::inherits
  [13:38:01.002]             invokeRestart <- base::invokeRestart
  [13:38:01.002]             length <- base::length
  [13:38:01.002]             list <- base::list
  [13:38:01.002]             seq.int <- base::seq.int
  [13:38:01.002]             signalCondition <- base::signalCondition
  [13:38:01.002]             sys.calls <- base::sys.calls
  [13:38:01.002]             Sys.time <- base::Sys.time
  [13:38:01.002]             `[[` <- base::`[[`
  [13:38:01.002]             `+` <- base::`+`
  [13:38:01.002]             `<<-` <- base::`<<-`
  [13:38:01.002]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:38:01.002]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:38:01.002]                   3L)]
  [13:38:01.002]             }
  [13:38:01.002]             function(cond) {
  [13:38:01.002]                 if (inherits(cond, "error")) {
  [13:38:01.002]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:01.002]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:38:01.002]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:38:01.002]                   signalCondition(cond)
  [13:38:01.002]                 }
  [13:38:01.002]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:38:01.002]                 ))) {
  [13:38:01.002]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:38:01.002]                   ...future.conditions[[length(...future.conditions) + 
  [13:38:01.002]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:38:01.002]                   if (!signal) {
  [13:38:01.002]                     muffleCondition <- function (cond) 
  [13:38:01.002]                     {
  [13:38:01.002]                       inherits <- base::inherits
  [13:38:01.002]                       invokeRestart <- base::invokeRestart
  [13:38:01.002]                       muffled <- FALSE
  [13:38:01.002]                       if (inherits(cond, "message")) {
  [13:38:01.002]                         invokeRestart("muffleMessage")
  [13:38:01.002]                         muffled <- TRUE
  [13:38:01.002]                       }
  [13:38:01.002]                       else if (inherits(cond, "warning")) {
  [13:38:01.002]                         invokeRestart("muffleWarning")
  [13:38:01.002]                         muffled <- TRUE
  [13:38:01.002]                       }
  [13:38:01.002]                       else if (inherits(cond, "condition")) {
  [13:38:01.002]                         computeRestarts <- base::computeRestarts
  [13:38:01.002]                         grepl <- base::grepl
  [13:38:01.002]                         is.null <- base::is.null
  [13:38:01.002]                         restarts <- computeRestarts(cond)
  [13:38:01.002]                         for (restart in restarts) {
  [13:38:01.002]                           name <- restart$name
  [13:38:01.002]                           if (is.null(name)) 
  [13:38:01.002]                             next
  [13:38:01.002]                           if (!grepl("^muffle", name)) 
  [13:38:01.002]                             next
  [13:38:01.002]                           invokeRestart(restart)
  [13:38:01.002]                           muffled <- TRUE
  [13:38:01.002]                           break
  [13:38:01.002]                         }
  [13:38:01.002]                       }
  [13:38:01.002]                       invisible(muffled)
  [13:38:01.002]                     }
  [13:38:01.002]                     muffleCondition(cond)
  [13:38:01.002]                   }
  [13:38:01.002]                 }
  [13:38:01.002]             }
  [13:38:01.002]         }))
  [13:38:01.002]     }, error = function(ex) {
  [13:38:01.002]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:38:01.002]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:38:01.002]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:38:01.002]     }, finally = {
  [13:38:01.002]         {
  [13:38:01.002]             NULL
  [13:38:01.002]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:38:01.002]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:38:01.002]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:38:01.002]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:38:01.002]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:38:01.002]                 ...) 
  [13:38:01.002]             {
  [13:38:01.002]                 if (substitute) 
  [13:38:01.002]                   expr <- substitute(expr)
  [13:38:01.002]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:38:01.002]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:38:01.002]                   globals = globals, persistent = persistent, 
  [13:38:01.002]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:38:01.002]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:38:01.002]                   label = label, ...)
  [13:38:01.002]                 if (!future$lazy) 
  [13:38:01.002]                   future <- run(future)
  [13:38:01.002]                 invisible(future)
  [13:38:01.002]             }), .cleanup = FALSE, .init = FALSE)
  [13:38:01.002]         }
  [13:38:01.002]         base::options(...future.oldOptions)
  [13:38:01.002]     })
  [13:38:01.002]     Sys.time
  [13:38:01.002]     if (base::is.na(TRUE)) {
  [13:38:01.002]     }
  [13:38:01.002]     else {
  [13:38:01.002]         base::sink(type = "output", split = FALSE)
  [13:38:01.002]         if (TRUE) {
  [13:38:01.002]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:38:01.002]         }
  [13:38:01.002]         else {
  [13:38:01.002]             ...future.result["stdout"] <- base::list(NULL)
  [13:38:01.002]         }
  [13:38:01.002]         base::close(...future.stdout)
  [13:38:01.002]         ...future.stdout <- NULL
  [13:38:01.002]     }
  [13:38:01.002]     ...future.result$conditions <- ...future.conditions
  [13:38:01.002]     ...future.result
  [13:38:01.002] }
  [13:38:01.912]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [13:38:01.015] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [13:38:01.912]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [13:38:01.016] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [13:38:01.912]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [13:38:01.031] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [13:38:01.913]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [13:38:01.031] Exporting 'a' (56 bytes) to cluster node #2 ...
  [13:38:01.913]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [13:38:01.033] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [13:38:01.914]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [13:38:01.033] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [13:38:01.914]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [13:38:01.075] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [13:38:01.915]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [13:38:01.076] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [13:38:01.915]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [13:38:01.077] ClusterFuture started
  [13:38:01.916]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [13:38:01.078] Chunk #2 of 2 ... DONE
  [13:38:01.916]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [13:38:01.078] Launching 2 futures (chunks) ... DONE
  [13:38:01.917]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [13:38:01.079] - resolving futures
  [13:38:01.917]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [13:38:01.079]   - gathering results & relaying conditions (except errors)
  [13:38:01.917]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [13:38:01.080] resolve() on list ...
  [13:38:01.918]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [13:38:01.080]  recursive: 0
  [13:38:01.918]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [13:38:01.081]  length: 2
  [13:38:01.919]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [13:38:01.081] 
  [13:38:01.919]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [13:38:01.587] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:01.920]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [13:38:01.588] - Validating connection of ClusterFuture
  [13:38:01.920]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [13:38:01.589] - received message: FutureResult
  [13:38:01.921]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [13:38:01.589] - Received FutureResult
  [13:38:01.921]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [13:38:01.589] - Erased future from FutureRegistry
  [13:38:01.922]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [13:38:01.590] result() for ClusterFuture ...
  [13:38:01.922]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [13:38:01.590] - result already collected: FutureResult
  [13:38:01.923]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [13:38:01.591] result() for ClusterFuture ... done
  [13:38:01.923]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [13:38:01.591] signalConditions() ...
  [13:38:01.923]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [13:38:01.592]  - include = 'immediateCondition'
  [13:38:01.924]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [13:38:01.592]  - exclude = 
  [13:38:01.924]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [13:38:01.593]  - resignal = FALSE
  [13:38:01.925]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [13:38:01.593]  - Number of conditions: 1
  [13:38:01.925]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [13:38:01.593] signalConditions() ... done
  [13:38:01.926]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [13:38:01.594] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:01.926]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [13:38:01.594] Future #1
  [13:38:01.927]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [13:38:01.595] result() for ClusterFuture ...
  [13:38:01.927]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [13:38:01.595] - result already collected: FutureResult
  [13:38:01.927]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [13:38:01.596] result() for ClusterFuture ... done
  [13:38:01.928]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [13:38:01.596] result() for ClusterFuture ...
  [13:38:01.928]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [13:38:01.597] - result already collected: FutureResult
  [13:38:01.929]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [13:38:01.597] result() for ClusterFuture ... done
  [13:38:01.929]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [13:38:01.598] signalConditions() ...
  [13:38:01.930]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [13:38:01.598]  - include = 'immediateCondition'
  [13:38:01.930]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [13:38:01.611]  - exclude = 
  [13:38:01.931]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [13:38:01.611]  - resignal = FALSE
  [13:38:01.931]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [13:38:01.612]  - Number of conditions: 1
  [13:38:01.932]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [13:38:01.612] signalConditions() ... done
  [13:38:01.938]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [13:38:01.613] signalConditionsASAP(ClusterFuture, pos=1) ...
  [13:38:01.939]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [13:38:01.613] - nx: 2
  [13:38:01.939]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [13:38:01.614] - relay: TRUE
  [13:38:01.940]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [13:38:01.620] - stdout: TRUE
  [13:38:01.940]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [13:38:01.620] - signal: TRUE
  [13:38:01.941]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [13:38:01.621] - resignal: FALSE
  [13:38:01.941]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [13:38:01.621] - force: FALSE
  [13:38:01.942]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [13:38:01.622] - relayed: [n=2] FALSE, FALSE
  [13:38:01.942]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [13:38:01.622] - queued futures: [n=2] FALSE, FALSE
  [13:38:01.943]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [13:38:01.624]  - until=1
  [13:38:01.943]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [13:38:01.624]  - relaying element #1
  [13:38:01.944]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [13:38:01.625] result() for ClusterFuture ...
  [13:38:01.944]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [13:38:01.625] - result already collected: FutureResult
  [13:38:01.944]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [13:38:01.626] result() for ClusterFuture ... done
  [13:38:01.945]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [13:38:01.627] result() for ClusterFuture ...
  [13:38:01.945]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [13:38:01.627] - result already collected: FutureResult
  [13:38:01.946]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [13:38:01.628] result() for ClusterFuture ... done
  [13:38:01.946]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [13:38:01.628] signalConditions() ...
  [13:38:01.947]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [13:38:01.629]  - include = 'immediateCondition'
  [13:38:01.947]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [13:38:01.629]  - exclude = 
  [13:38:01.948]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [13:38:01.630]  - resignal = FALSE
  [13:38:01.948]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [13:38:01.630]  - Number of conditions: 1
  [13:38:01.949]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [13:38:01.644] signalConditions() ... done
  [13:38:01.949]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [13:38:01.644] result() for ClusterFuture ...
  [13:38:01.950]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [13:38:01.645] - result already collected: FutureResult
  [13:38:01.950]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [13:38:01.645] result() for ClusterFuture ... done
  [13:38:01.951]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [13:38:01.646] signalConditions() ...
  [13:38:01.951]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [13:38:01.646]  - include = 'immediateCondition'
  [13:38:01.952]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [13:38:01.647]  - exclude = 
  [13:38:01.952]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [13:38:01.647]  - resignal = FALSE
  [13:38:01.953]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [13:38:01.648]  - Number of conditions: 1
  [13:38:01.953]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [13:38:01.648] signalConditions() ... done
  [13:38:01.954]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [13:38:01.649] result() for ClusterFuture ...
  [13:38:01.954]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [13:38:01.649] - result already collected: FutureResult
  [13:38:01.955]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [13:38:01.650] result() for ClusterFuture ... done
  [13:38:01.955]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [13:38:01.650] signalConditions() ...
  [13:38:01.956]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [13:38:01.651]  - include = 'condition'
  [13:38:01.956]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [13:38:01.652]  - exclude = 'immediateCondition'
  [13:38:01.956]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [13:38:01.652]  - resignal = FALSE
  [13:38:01.957]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [13:38:01.653]  - Number of conditions: 1
  [13:38:01.957]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [13:38:01.653]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:38:01.958]  - Condition #238: '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
  [13:38:01.958]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [13:38:01.654] signalConditions() ... done
  [13:38:01.959]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [13:38:01.655] - relayed: [n=2] TRUE, FALSE
  [13:38:01.959]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [13:38:01.655] - queued futures: [n=2] TRUE, FALSE
  [13:38:01.960]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [13:38:01.656] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [13:38:01.960]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [13:38:01.656]  length: 1 (resolved future 1)
  [13:38:01.961]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [13:38:01.658] receiveMessageFromWorker() for ClusterFuture ...
  [13:38:01.961]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [13:38:01.659] - Validating connection of ClusterFuture
  [13:38:01.961]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [13:38:01.660] - received message: FutureResult
  [13:38:01.962]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [13:38:01.660] - Received FutureResult
  [13:38:01.962]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [13:38:01.661] - Erased future from FutureRegistry
  [13:38:01.963]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [13:38:01.661] result() for ClusterFuture ...
  [13:38:01.963]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [13:38:01.662] - result already collected: FutureResult
  [13:38:01.964]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [13:38:01.662] result() for ClusterFuture ... done
  [13:38:01.964]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [13:38:01.663] signalConditions() ...
  [13:38:01.965]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [13:38:01.663]  - include = 'immediateCondition'
  [13:38:01.965]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [13:38:01.664]  - exclude = 
  [13:38:01.966]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [13:38:01.664]  - resignal = FALSE
  [13:38:01.966]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [13:38:01.665]  - Number of conditions: 2
  [13:38:01.966]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [13:38:01.665] signalConditions() ... done
  [13:38:01.967]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [13:38:01.666] receiveMessageFromWorker() for ClusterFuture ... done
  [13:38:01.967]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [13:38:01.666] Future #2
  [13:38:01.968]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [13:38:01.667] result() for ClusterFuture ...
  [13:38:01.968]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [13:38:01.667] - result already collected: FutureResult
  [13:38:01.969]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [13:38:01.668] result() for ClusterFuture ... done
  [13:38:01.969]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [13:38:01.668] result() for ClusterFuture ...
  [13:38:01.970]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [13:38:01.669] - result already collected: FutureResult
  [13:38:01.970]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [13:38:01.669] result() for ClusterFuture ... done
  [13:38:01.971]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [13:38:01.670] signalConditions() ...
  [13:38:01.971]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [13:38:01.670]  - include = 'immediateCondition'
  [13:38:01.971]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [13:38:01.671]  - exclude = 
  [13:38:01.972]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [13:38:01.671]  - resignal = FALSE
  [13:38:01.972]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [13:38:01.672]  - Number of conditions: 2
  [13:38:01.973]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [13:38:01.672] signalConditions() ... done
  [13:38:01.973]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [13:38:01.673] signalConditionsASAP(ClusterFuture, pos=2) ...
  [13:38:01.974]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [13:38:01.673] - nx: 2
  [13:38:01.974]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [13:38:01.674] - relay: TRUE
  [13:38:01.975]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [13:38:01.674] - stdout: TRUE
  [13:38:01.975]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [13:38:01.675] - signal: TRUE
  [13:38:01.976]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [13:38:01.675] - resignal: FALSE
  [13:38:01.976]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [13:38:01.676] - force: FALSE
  [13:38:01.977]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [13:38:01.676] - relayed: [n=2] TRUE, FALSE
  [13:38:01.977]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [13:38:01.677] - queued futures: [n=2] TRUE, FALSE
  [13:38:01.977]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [13:38:01.677]  - until=2
  [13:38:01.978]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [13:38:01.678]  - relaying element #2
  [13:38:01.978]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [13:38:01.678] result() for ClusterFuture ...
  [13:38:01.979]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [13:38:01.679] - result already collected: FutureResult
  [13:38:01.979]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [13:38:01.679] result() for ClusterFuture ... done
  [13:38:01.980]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [13:38:01.680] result() for ClusterFuture ...
  [13:38:01.980]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [13:38:01.680] - result already collected: FutureResult
  [13:38:01.981]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [13:38:01.681] result() for ClusterFuture ... done
  [13:38:01.981]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [13:38:01.681] signalConditions() ...
  [13:38:01.981]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [13:38:01.682]  - include = 'immediateCondition'
  [13:38:01.982]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [13:38:01.682]  - exclude = 
  [13:38:01.982]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [13:38:01.683]  - resignal = FALSE
  [13:38:01.983]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [13:38:01.683]  - Number of conditions: 2
  [13:38:01.983]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [13:38:01.684] signalConditions() ... done
  [13:38:01.984]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [13:38:01.684] result() for ClusterFuture ...
  [13:38:01.984]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [13:38:01.685] - result already collected: FutureResult
  [13:38:01.985]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [13:38:01.685] result() for ClusterFuture ... done
  [13:38:01.985]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [13:38:01.686] signalConditions() ...
  [13:38:01.985]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [13:38:01.686]  - include = 'immediateCondition'
  [13:38:01.991]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [13:38:01.687]  - exclude = 
  [13:38:01.992]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [13:38:01.687]  - resignal = FALSE
  [13:38:01.992]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [13:38:01.688]  - Number of conditions: 2
  [13:38:01.993]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [13:38:01.694] signalConditions() ... done
  [13:38:01.993]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [13:38:01.695] result() for ClusterFuture ...
  [13:38:01.994]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [13:38:01.713] - result already collected: FutureResult
  [13:38:01.994]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [13:38:01.714] result() for ClusterFuture ... done
  [13:38:01.995]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [13:38:01.715] signalConditions() ...
  [13:38:01.995]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [13:38:01.715]  - include = 'condition'
  [13:38:01.996]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [13:38:01.716]  - exclude = 'immediateCondition'
  [13:38:01.996]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [13:38:01.716]  - resignal = FALSE
  [13:38:01.997]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [13:38:01.717]  - Number of conditions: 2
  [13:38:01.997]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [13:38:01.717]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [13:38:01.998]  - Condition #313: '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
  [13:38:01.998]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [13:38:01.718]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [13:38:01.999]  - Condition #315: '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
  [13:38:01.999]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [13:38:01.719] signalConditions() ... done
  [13:38:02.000]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [13:38:01.719] - relayed: [n=2] TRUE, TRUE
  [13:38:02.000]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [13:38:01.720] - queued futures: [n=2] TRUE, TRUE
  [13:38:02.001]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [13:38:01.720] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [13:38:02.001]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [13:38:01.721]  length: 0 (resolved future 2)
  [13:38:02.002]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [13:38:01.722] Relaying remaining futures
  [13:38:02.002]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [13:38:01.722] signalConditionsASAP(NULL, pos=0) ...
  [13:38:02.003]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [13:38:01.723] - nx: 2
  [13:38:02.003]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [13:38:01.723] - relay: TRUE
  [13:38:02.004]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [13:38:01.734] - stdout: TRUE
  [13:38:02.004]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [13:38:01.734] - signal: TRUE
  [13:38:02.005]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [13:38:01.735] - resignal: FALSE
  [13:38:02.005]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [13:38:01.735] - force: FALSE
  [13:38:02.006]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [13:38:01.736] - relayed: [n=2] TRUE, TRUE
  [13:38:02.006]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [13:38:01.736] - queued futures: [n=2] TRUE, TRUE
  [13:38:02.007]  - Condition #331: 'simpleMessage', 'message', 'condition'
   - flush all
  [13:38:02.007]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [13:38:01.737] - relayed: [n=2] TRUE, TRUE
  [13:38:02.008]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [13:38:01.738] - queued futures: [n=2] TRUE, TRUE
  [13:38:02.008]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [13:38:01.738] signalConditionsASAP(NULL, pos=0) ... done
  [13:38:02.009]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [13:38:01.739] resolve() on list ... DONE
  [13:38:02.009]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [13:38:01.739] - collecting values of futures
  [13:38:02.010]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [13:38:01.740] result() for ClusterFuture ...
  [13:38:02.010]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [13:38:01.740] - result already collected: FutureResult
  [13:38:02.011]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [13:38:01.741] result() for ClusterFuture ... done
  [13:38:02.011]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [13:38:01.741] result() for ClusterFuture ...
  [13:38:02.012]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [13:38:01.742] - result already collected: FutureResult
  [13:38:02.012]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [13:38:01.742] result() for ClusterFuture ... done
  [13:38:02.012]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [13:38:01.743] signalConditions() ...
  [13:38:02.013]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [13:38:01.743]  - include = 'immediateCondition'
  [13:38:02.013]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [13:38:01.754]  - exclude = 
  [13:38:02.014]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [13:38:01.754]  - resignal = FALSE
  [13:38:02.014]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [13:38:01.755]  - Number of conditions: 1
  [13:38:02.015]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [13:38:01.755] signalConditions() ... done
  [13:38:02.015]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [13:38:01.756] result() for ClusterFuture ...
  [13:38:02.016]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [13:38:01.757] - result already collected: FutureResult
  [13:38:02.016]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [13:38:01.757] result() for ClusterFuture ... done
  [13:38:02.017]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [13:38:01.758] result() for ClusterFuture ...
  [13:38:02.017]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [13:38:01.758] - result already collected: FutureResult
  [13:38:02.017]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [13:38:01.759] result() for ClusterFuture ... done
  [13:38:02.018]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [13:38:01.759] signalConditions() ...
  [13:38:02.018]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [13:38:01.760]  - include = 'immediateCondition'
  [13:38:02.019]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [13:38:01.760]  - exclude = 
  [13:38:02.019]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [13:38:01.760]  - resignal = FALSE
  [13:38:02.020]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [13:38:01.761]  - Number of conditions: 2
  [13:38:02.020]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [13:38:01.761] signalConditions() ... done
  [13:38:02.021]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [13:38:01.762] - accumulating results
  [13:38:02.021]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [13:38:01.773] - processing errors (handler = 'stop')
  [13:38:02.022]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [13:38:01.774] - extracting results
  [13:38:02.022]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [13:38:01.775] doFuture() ... DONE
  [13:38:02.023]  - Condition #365: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [13:38:02.026] signalConditions() ... done
  [13:38:02.026] - relayed: [n=1] TRUE
  [13:38:02.026] - queued futures: [n=1] TRUE
  [13:38:02.027] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:38:02.027]  length: 0 (resolved future 1)
  [13:38:02.028] Relaying remaining futures
  [13:38:02.028] signalConditionsASAP(NULL, pos=0) ...
  [13:38:02.028] - nx: 1
  [13:38:02.028] - relay: TRUE
  [13:38:02.029] - stdout: TRUE
  [13:38:02.029] - signal: TRUE
  [13:38:02.029] - resignal: FALSE
  [13:38:02.030] - force: FALSE
  [13:38:02.030] - relayed: [n=1] TRUE
  [13:38:02.030] - queued futures: [n=1] TRUE
   - flush all
  [13:38:02.031] - relayed: [n=1] TRUE
  [13:38:02.031] - queued futures: [n=1] TRUE
  [13:38:02.032] signalConditionsASAP(NULL, pos=0) ... done
  [13:38:02.032] resolve() on list ... DONE
  [13:38:02.032] - collecting values of futures
  [13:38:02.033] signalConditions() ...
  [13:38:02.033]  - include = 'immediateCondition'
  [13:38:02.033]  - exclude = 
  [13:38:02.033]  - resignal = FALSE
  [13:38:02.034]  - Number of conditions: 365
  [13:38:02.035] signalConditions() ... done
  [13:38:02.036] - accumulating results
  [13:38:02.037] - processing errors (handler = 'stop')
  Error in { : 
    task 1 failed - "Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 37038 cannot be opened' (which suggests that this port is either already occupied by another process or blocked by the firewall on your local machine)
   * The localhost socket connection that failed to connect to the R worker used port 37038 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:21594:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLfcXs7/future.parent=21594.545a4e04ea87.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=37038 OU
  Calls: %dopar% -> <Anonymous>
  Execution halted