Running ‘DEPRECATED.R’
  Running ‘cluster-missing-doFuture-pkg.R’
  Running ‘doRNG,dopar.R’ [4s/41s]
  Running ‘doRNG,dorng.R’ [9s/46s]
  Running ‘foreach,errors.R’ [10s/122s]
  Running ‘foreach,globals.R’ [12s/123s]
  Running ‘foreach,nested.R’ [12s/162s]
  Running ‘foreach,nested_dopar.R’ [19s/121s]
  Running ‘foreach.R’ [16s/58s]
  Running ‘future.BatchJobs.R’ [39s/39s]
  Running ‘future.batchtools.R’ [38s/38s]
  Running ‘options.R’ [4s/24s]
  Running ‘registerDoFuture.R’ [3s/39s]
  Running ‘times.R’ [4s/41s]
  Running ‘zzz_opt-in,NMF.R’
  Running ‘zzz_opt-in,TSP.R’
  Running ‘zzz_opt-in,caret.R’
  Running ‘zzz_opt-in,foreach.R’
  Running ‘zzz_opt-in,glmnet.R’
  Running ‘zzz_opt-in,plyr.R’
Running the tests in ‘tests/foreach,nested_dopar.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [14:16:44.982] plan(): Setting new future strategy stack:
  [14:16:44.983] List of future strategies:
  [14:16:44.983] 1. sequential:
  [14:16:44.983]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:44.983]    - tweaked: FALSE
  [14:16:44.983]    - call: future::plan(future::sequential)
  [14:16:44.986] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested %dopar% ...")
  *** doFuture - nested %dopar% ...
  > 
  > registerDoFuture()
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ...")
  *** doFuture - nested %dopar%  and tricky globals ...
  > 
  > ## This works ...
  > x <- foreach(j = 1) %dopar% { j }
  [14:16:44.993] doFuture() ...
  [14:16:44.998] - dummy globals (as locals): [1] 'j'
  [14:16:45.000] - R expression:
  [14:16:45.001] {
  [14:16:45.001]     doFuture::registerDoFuture()
  [14:16:45.001]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.001]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.001]         j <- NULL
  [14:16:45.001]         ...future.env <- environment()
  [14:16:45.001]         local({
  [14:16:45.001]             for (name in names(...future.x_jj)) {
  [14:16:45.001]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.001]                   inherits = FALSE)
  [14:16:45.001]             }
  [14:16:45.001]         })
  [14:16:45.001]         tryCatch({
  [14:16:45.001]             j
  [14:16:45.001]         }, error = identity)
  [14:16:45.001]     })
  [14:16:45.001] }
  [14:16:45.002] - identifying globals and packages ...
  [14:16:45.005] getGlobalsAndPackages() ...
  [14:16:45.006] Searching for globals...
  [14:16:45.055] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:16:45.056] Searching for globals ... DONE
  [14:16:45.057] Resolving globals: FALSE
  [14:16:45.060] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:16:45.061] - globals: [1] '...future.x_ii'
  [14:16:45.062] 
  [14:16:45.062] getGlobalsAndPackages() ... DONE
  [14:16:45.063] List of 1
  [14:16:45.063]  $ ...future.x_ii: NULL
  [14:16:45.063]  - attr(*, "where")=List of 1
  [14:16:45.063]   ..$ ...future.x_ii:<environment: 0x36d0920> 
  [14:16:45.063]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.063]  - attr(*, "resolved")= logi FALSE
  [14:16:45.063]  - attr(*, "total_size")= num 0
  [14:16:45.080]   - R expression:
  [14:16:45.080] {
  [14:16:45.080]     doFuture::registerDoFuture()
  [14:16:45.080]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.080]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.080]         j <- NULL
  [14:16:45.080]         ...future.env <- environment()
  [14:16:45.080]         local({
  [14:16:45.080]             for (name in names(...future.x_jj)) {
  [14:16:45.080]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.080]                   inherits = FALSE)
  [14:16:45.080]             }
  [14:16:45.080]         })
  [14:16:45.080]         tryCatch({
  [14:16:45.080]             j
  [14:16:45.080]         }, error = identity)
  [14:16:45.080]     })
  [14:16:45.080] }
  [14:16:45.082]   - globals: [1] '...future.x_ii'
  [14:16:45.082] List of 1
  [14:16:45.082]  $ ...future.x_ii: NULL
  [14:16:45.082]  - attr(*, "where")=List of 1
  [14:16:45.082]   ..$ ...future.x_ii:<environment: 0x36d0920> 
  [14:16:45.082]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.082]  - attr(*, "resolved")= logi FALSE
  [14:16:45.082]  - attr(*, "total_size")= num 0
  [14:16:45.091]   - packages: [1] 'doFuture'
  [14:16:45.092] - identifying globals and packages ... DONE
  [14:16:45.093] Number of chunks: 1
  [14:16:45.094] Number of futures (= number of chunks): 1
  [14:16:45.096] Launching 1 futures (chunks) ...
  [14:16:45.096] Chunk #1 of 1 ...
  [14:16:45.096]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:45.097] getGlobalsAndPackages() ...
  [14:16:45.097] Searching for globals...
  [14:16:45.099] 
  [14:16:45.099] Searching for globals ... DONE
  [14:16:45.099] - globals: [0] <none>
  [14:16:45.100] getGlobalsAndPackages() ... DONE
  [14:16:45.100] 
  [14:16:45.101] 
  [14:16:45.101]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:45.102] getGlobalsAndPackages() ...
  [14:16:45.103] - globals passed as-is: [1] '...future.x_ii'
  [14:16:45.103] Resolving globals: FALSE
  [14:16:45.105] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:16:45.105] - globals: [1] '...future.x_ii'
  [14:16:45.106] 
  [14:16:45.106] getGlobalsAndPackages() ... DONE
  [14:16:45.111] Packages needed by the future expression (n = 1): 'doFuture'
  [14:16:45.112] Packages needed by future strategies (n = 0): <none>
  [14:16:45.121] {
  [14:16:45.121]     {
  [14:16:45.121]         ...future.startTime <- base::Sys.time()
  [14:16:45.121]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:45.121]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:45.121]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:45.121]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:45.121]             future.resolve.recursive = NULL, width = 80L)
  [14:16:45.121]         {
  [14:16:45.121]             {
  [14:16:45.121]                 {
  [14:16:45.121]                   base::local({
  [14:16:45.121]                     has_future <- base::requireNamespace("future", 
  [14:16:45.121]                       quietly = TRUE)
  [14:16:45.121]                     version <- if (has_future) 
  [14:16:45.121]                       utils::packageVersion("future")
  [14:16:45.121]                     else NULL
  [14:16:45.121]                     if (!has_future || version < "1.8.0") {
  [14:16:45.121]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:45.121]                         "", base::R.version$version.string), 
  [14:16:45.121]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:45.121]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:45.121]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:45.121]                           "release", "version")], collapse = " "), 
  [14:16:45.121]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:45.121]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:45.121]                         info)
  [14:16:45.121]                       info <- base::paste(info, collapse = "; ")
  [14:16:45.121]                       if (!has_future) {
  [14:16:45.121]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:45.121]                           info)
  [14:16:45.121]                       }
  [14:16:45.121]                       else {
  [14:16:45.121]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:45.121]                           info, version)
  [14:16:45.121]                       }
  [14:16:45.121]                       base::stop(msg)
  [14:16:45.121]                     }
  [14:16:45.121]                   })
  [14:16:45.121]                 }
  [14:16:45.121]                 base::local({
  [14:16:45.121]                   for (pkg in "doFuture") {
  [14:16:45.121]                     base::loadNamespace(pkg)
  [14:16:45.121]                     base::library(pkg, character.only = TRUE)
  [14:16:45.121]                   }
  [14:16:45.121]                 })
  [14:16:45.121]             }
  [14:16:45.121]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:45.121]         }
  [14:16:45.121]     }
  [14:16:45.121]     if (base::is.na(TRUE)) {
  [14:16:45.121]     }
  [14:16:45.121]     else {
  [14:16:45.121]         if (TRUE) {
  [14:16:45.121]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:45.121]                 open = "w")
  [14:16:45.121]         }
  [14:16:45.121]         else {
  [14:16:45.121]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:45.121]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:45.121]         }
  [14:16:45.121]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:45.121]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:45.121]             base::sink(type = "output", split = FALSE)
  [14:16:45.121]             base::close(...future.stdout)
  [14:16:45.121]         }, add = TRUE)
  [14:16:45.121]     }
  [14:16:45.121]     ...future.frame <- base::sys.nframe()
  [14:16:45.121]     ...future.conditions <- base::list()
  [14:16:45.121]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:45.121]     ...future.result <- base::tryCatch({
  [14:16:45.121]         base::withCallingHandlers({
  [14:16:45.121]             ...future.value <- base::withVisible(base::local({
  [14:16:45.121]                 doFuture::registerDoFuture()
  [14:16:45.121]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.121]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.121]                   j <- NULL
  [14:16:45.121]                   ...future.env <- environment()
  [14:16:45.121]                   local({
  [14:16:45.121]                     for (name in names(...future.x_jj)) {
  [14:16:45.121]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.121]                         inherits = FALSE)
  [14:16:45.121]                     }
  [14:16:45.121]                   })
  [14:16:45.121]                   tryCatch({
  [14:16:45.121]                     j
  [14:16:45.121]                   }, error = identity)
  [14:16:45.121]                 })
  [14:16:45.121]             }))
  [14:16:45.121]             future::FutureResult(value = ...future.value$value, 
  [14:16:45.121]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.121]                   ...future.rng), started = ...future.startTime, 
  [14:16:45.121]                 version = "1.8")
  [14:16:45.121]         }, condition = base::local({
  [14:16:45.121]             c <- base::c
  [14:16:45.121]             inherits <- base::inherits
  [14:16:45.121]             invokeRestart <- base::invokeRestart
  [14:16:45.121]             length <- base::length
  [14:16:45.121]             list <- base::list
  [14:16:45.121]             seq.int <- base::seq.int
  [14:16:45.121]             signalCondition <- base::signalCondition
  [14:16:45.121]             sys.calls <- base::sys.calls
  [14:16:45.121]             Sys.time <- base::Sys.time
  [14:16:45.121]             `[[` <- base::`[[`
  [14:16:45.121]             `+` <- base::`+`
  [14:16:45.121]             `<<-` <- base::`<<-`
  [14:16:45.121]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:45.121]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:45.121]                   3L)]
  [14:16:45.121]             }
  [14:16:45.121]             function(cond) {
  [14:16:45.121]                 if (inherits(cond, "error")) {
  [14:16:45.121]                   sessionInformation <- function() {
  [14:16:45.121]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:45.121]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:45.121]                       search = base::search(), system = base::Sys.info())
  [14:16:45.121]                   }
  [14:16:45.121]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.121]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:45.121]                     cond$call), session = sessionInformation(), 
  [14:16:45.121]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:45.121]                   signalCondition(cond)
  [14:16:45.121]                 }
  [14:16:45.121]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:45.121]                 ))) {
  [14:16:45.121]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:45.121]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.121]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:45.121]                   if (!signal) {
  [14:16:45.121]                     muffleCondition <- function (cond) 
  [14:16:45.121]                     {
  [14:16:45.121]                       inherits <- base::inherits
  [14:16:45.121]                       invokeRestart <- base::invokeRestart
  [14:16:45.121]                       muffled <- FALSE
  [14:16:45.121]                       if (inherits(cond, "message")) {
  [14:16:45.121]                         invokeRestart("muffleMessage")
  [14:16:45.121]                         muffled <- TRUE
  [14:16:45.121]                       }
  [14:16:45.121]                       else if (inherits(cond, "warning")) {
  [14:16:45.121]                         invokeRestart("muffleWarning")
  [14:16:45.121]                         muffled <- TRUE
  [14:16:45.121]                       }
  [14:16:45.121]                       else if (inherits(cond, "condition")) {
  [14:16:45.121]                         computeRestarts <- base::computeRestarts
  [14:16:45.121]                         grepl <- base::grepl
  [14:16:45.121]                         is.null <- base::is.null
  [14:16:45.121]                         restarts <- computeRestarts(cond)
  [14:16:45.121]                         for (restart in restarts) {
  [14:16:45.121]                           name <- restart$name
  [14:16:45.121]                           if (is.null(name)) 
  [14:16:45.121]                             next
  [14:16:45.121]                           if (!grepl("^muffle", name)) 
  [14:16:45.121]                             next
  [14:16:45.121]                           invokeRestart(restart)
  [14:16:45.121]                           muffled <- TRUE
  [14:16:45.121]                           break
  [14:16:45.121]                         }
  [14:16:45.121]                       }
  [14:16:45.121]                       invisible(muffled)
  [14:16:45.121]                     }
  [14:16:45.121]                     muffleCondition(cond)
  [14:16:45.121]                   }
  [14:16:45.121]                 }
  [14:16:45.121]             }
  [14:16:45.121]         }))
  [14:16:45.121]     }, error = function(ex) {
  [14:16:45.121]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:45.121]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.121]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:45.121]     }, finally = {
  [14:16:45.121]         {
  [14:16:45.121]             NULL
  [14:16:45.121]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:16:45.121]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:45.121]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:45.121]                 label = NULL, ...) 
  [14:16:45.121]             {
  [14:16:45.121]                 if (substitute) 
  [14:16:45.121]                   expr <- substitute(expr)
  [14:16:45.121]                 local <- as.logical(local)
  [14:16:45.121]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.121]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.121]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.121]                   label = label, ...)
  [14:16:45.121]                 if (!future$lazy) 
  [14:16:45.121]                   future <- run(future)
  [14:16:45.121]                 invisible(future)
  [14:16:45.121]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:45.121]         }
  [14:16:45.121]         base::options(...future.oldOptions)
  [14:16:45.121]     })
  [14:16:45.121]     Sys.time
  [14:16:45.121]     if (base::is.na(TRUE)) {
  [14:16:45.121]     }
  [14:16:45.121]     else {
  [14:16:45.121]         base::sink(type = "output", split = FALSE)
  [14:16:45.121]         if (TRUE) {
  [14:16:45.121]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:45.121]         }
  [14:16:45.121]         else {
  [14:16:45.121]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:45.121]         }
  [14:16:45.121]         base::close(...future.stdout)
  [14:16:45.121]         ...future.stdout <- NULL
  [14:16:45.121]     }
  [14:16:45.121]     ...future.result$conditions <- ...future.conditions
  [14:16:45.121]     ...future.result
  [14:16:45.121] }
  [14:16:45.131] plan(): Setting new future strategy stack:
  [14:16:45.131] List of future strategies:
  [14:16:45.131] 1. sequential:
  [14:16:45.131]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.131]    - tweaked: FALSE
  [14:16:45.131]    - call: NULL
  [14:16:45.133] plan(): nbrOfWorkers() = 1
  [14:16:45.135] plan(): Setting new future strategy stack:
  [14:16:45.136] List of future strategies:
  [14:16:45.136] 1. sequential:
  [14:16:45.136]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.136]    - tweaked: FALSE
  [14:16:45.136]    - call: future::plan(future::sequential)
  [14:16:45.137] plan(): nbrOfWorkers() = 1
  [14:16:45.138] SequentialFuture started (and completed)
  [14:16:45.140] Chunk #1 of 1 ... DONE
  [14:16:45.140] Launching 1 futures (chunks) ... DONE
  [14:16:45.141] - resolving futures
  [14:16:45.141]   - gathering results & relaying conditions (except errors)
  [14:16:45.142] resolve() on list ...
  [14:16:45.143]  recursive: 0
  [14:16:45.144]  length: 1
  [14:16:45.144] 
  [14:16:45.145] Future #1
  [14:16:45.146] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:45.146] - nx: 1
  [14:16:45.147] - relay: TRUE
  [14:16:45.147] - stdout: TRUE
  [14:16:45.148] - signal: TRUE
  [14:16:45.148] - resignal: FALSE
  [14:16:45.149] - force: FALSE
  [14:16:45.149] - relayed: [n=1] FALSE
  [14:16:45.149] - queued futures: [n=1] FALSE
  [14:16:45.150]  - until=1
  [14:16:45.150]  - relaying element #1
  [14:16:45.151] - relayed: [n=1] TRUE
  [14:16:45.152] - queued futures: [n=1] TRUE
  [14:16:45.152] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:45.153]  length: 0 (resolved future 1)
  [14:16:45.153] Relaying remaining futures
  [14:16:45.154] signalConditionsASAP(NULL, pos=0) ...
  [14:16:45.154] - nx: 1
  [14:16:45.155] - relay: TRUE
  [14:16:45.155] - stdout: TRUE
  [14:16:45.155] - signal: TRUE
  [14:16:45.156] - resignal: FALSE
  [14:16:45.156] - force: FALSE
  [14:16:45.157] - relayed: [n=1] TRUE
  [14:16:45.157] - queued futures: [n=1] TRUE
   - flush all
  [14:16:45.158] - relayed: [n=1] TRUE
  [14:16:45.158] - queued futures: [n=1] TRUE
  [14:16:45.159] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:45.159] resolve() on list ... DONE
  [14:16:45.159] - collecting values of futures
  [14:16:45.160] - accumulating results
  [14:16:45.163] - processing errors (handler = 'stop')
  [14:16:45.164] - extracting results
  [14:16:45.164] doFuture() ... DONE
  > str(x)
  List of 1
   $ : num 1
  > rm(list = "x")
  > 
  > ## ... but this would give a "globals-not-found" error in
  > ## doFuture (<= 0.4.0) because 'j' was interpreted as global variable
  > x <- foreach(i = 1, .packages = "foreach") %dopar% {
  +   foreach(j = 1) %dopar% { j }
  + }
  [14:16:45.168] doFuture() ...
  [14:16:45.169] - dummy globals (as locals): [1] 'i'
  [14:16:45.171] - R expression:
  [14:16:45.171] {
  [14:16:45.171]     doFuture::registerDoFuture()
  [14:16:45.171]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.171]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.171]         i <- NULL
  [14:16:45.171]         ...future.env <- environment()
  [14:16:45.171]         local({
  [14:16:45.171]             for (name in names(...future.x_jj)) {
  [14:16:45.171]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.171]                   inherits = FALSE)
  [14:16:45.171]             }
  [14:16:45.171]         })
  [14:16:45.171]         tryCatch({
  [14:16:45.171]             foreach(j = 1) %dopar% {
  [14:16:45.171]                 j
  [14:16:45.171]             }
  [14:16:45.171]         }, error = identity)
  [14:16:45.171]     })
  [14:16:45.171] }
  [14:16:45.172] - identifying globals and packages ...
  [14:16:45.173] getGlobalsAndPackages() ...
  [14:16:45.173] Searching for globals...
  [14:16:45.198] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [14:16:45.199] Searching for globals ... DONE
  [14:16:45.199] Resolving globals: FALSE
  [14:16:45.202] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:16:45.202] - globals: [1] '...future.x_ii'
  [14:16:45.203] - packages: [1] 'foreach'
  [14:16:45.203] getGlobalsAndPackages() ... DONE
  [14:16:45.204] List of 1
  [14:16:45.204]  $ ...future.x_ii: NULL
  [14:16:45.204]  - attr(*, "where")=List of 1
  [14:16:45.204]   ..$ ...future.x_ii:<environment: 0x3c68b58> 
  [14:16:45.204]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.204]  - attr(*, "resolved")= logi FALSE
  [14:16:45.204]  - attr(*, "total_size")= num 0
  [14:16:45.213]   - R expression:
  [14:16:45.214] {
  [14:16:45.214]     doFuture::registerDoFuture()
  [14:16:45.214]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.214]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.214]         i <- NULL
  [14:16:45.214]         ...future.env <- environment()
  [14:16:45.214]         local({
  [14:16:45.214]             for (name in names(...future.x_jj)) {
  [14:16:45.214]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.214]                   inherits = FALSE)
  [14:16:45.214]             }
  [14:16:45.214]         })
  [14:16:45.214]         tryCatch({
  [14:16:45.214]             foreach(j = 1) %dopar% {
  [14:16:45.214]                 j
  [14:16:45.214]             }
  [14:16:45.214]         }, error = identity)
  [14:16:45.214]     })
  [14:16:45.214] }
  [14:16:45.215]   - globals: [1] '...future.x_ii'
  [14:16:45.215] List of 1
  [14:16:45.215]  $ ...future.x_ii: NULL
  [14:16:45.215]  - attr(*, "where")=List of 1
  [14:16:45.215]   ..$ ...future.x_ii:<environment: 0x3c68b58> 
  [14:16:45.215]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.215]  - attr(*, "resolved")= logi FALSE
  [14:16:45.215]  - attr(*, "total_size")= num 0
  [14:16:45.225]   - packages: [2] 'doFuture', 'foreach'
  [14:16:45.225] - identifying globals and packages ... DONE
  [14:16:45.226] Number of chunks: 1
  [14:16:45.226] Number of futures (= number of chunks): 1
  [14:16:45.227] Launching 1 futures (chunks) ...
  [14:16:45.228] Chunk #1 of 1 ...
  [14:16:45.228]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:45.228] getGlobalsAndPackages() ...
  [14:16:45.229] Searching for globals...
  [14:16:45.230] 
  [14:16:45.231] Searching for globals ... DONE
  [14:16:45.231] - globals: [0] <none>
  [14:16:45.231] getGlobalsAndPackages() ... DONE
  [14:16:45.232] 
  [14:16:45.232] 
  [14:16:45.233]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:45.233] getGlobalsAndPackages() ...
  [14:16:45.234] - globals passed as-is: [1] '...future.x_ii'
  [14:16:45.234] Resolving globals: FALSE
  [14:16:45.235] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:16:45.236] - globals: [1] '...future.x_ii'
  [14:16:45.237] 
  [14:16:45.237] getGlobalsAndPackages() ... DONE
  [14:16:45.240] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [14:16:45.241] Packages needed by future strategies (n = 0): <none>
  [14:16:45.249] {
  [14:16:45.249]     {
  [14:16:45.249]         ...future.startTime <- base::Sys.time()
  [14:16:45.249]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:45.249]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:45.249]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:45.249]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:45.249]             future.resolve.recursive = NULL, width = 80L)
  [14:16:45.249]         {
  [14:16:45.249]             {
  [14:16:45.249]                 {
  [14:16:45.249]                   base::local({
  [14:16:45.249]                     has_future <- base::requireNamespace("future", 
  [14:16:45.249]                       quietly = TRUE)
  [14:16:45.249]                     version <- if (has_future) 
  [14:16:45.249]                       utils::packageVersion("future")
  [14:16:45.249]                     else NULL
  [14:16:45.249]                     if (!has_future || version < "1.8.0") {
  [14:16:45.249]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:45.249]                         "", base::R.version$version.string), 
  [14:16:45.249]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:45.249]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:45.249]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:45.249]                           "release", "version")], collapse = " "), 
  [14:16:45.249]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:45.249]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:45.249]                         info)
  [14:16:45.249]                       info <- base::paste(info, collapse = "; ")
  [14:16:45.249]                       if (!has_future) {
  [14:16:45.249]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:45.249]                           info)
  [14:16:45.249]                       }
  [14:16:45.249]                       else {
  [14:16:45.249]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:45.249]                           info, version)
  [14:16:45.249]                       }
  [14:16:45.249]                       base::stop(msg)
  [14:16:45.249]                     }
  [14:16:45.249]                   })
  [14:16:45.249]                 }
  [14:16:45.249]                 base::local({
  [14:16:45.249]                   for (pkg in c("doFuture", "foreach")) {
  [14:16:45.249]                     base::loadNamespace(pkg)
  [14:16:45.249]                     base::library(pkg, character.only = TRUE)
  [14:16:45.249]                   }
  [14:16:45.249]                 })
  [14:16:45.249]             }
  [14:16:45.249]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:45.249]         }
  [14:16:45.249]     }
  [14:16:45.249]     if (base::is.na(TRUE)) {
  [14:16:45.249]     }
  [14:16:45.249]     else {
  [14:16:45.249]         if (TRUE) {
  [14:16:45.249]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:45.249]                 open = "w")
  [14:16:45.249]         }
  [14:16:45.249]         else {
  [14:16:45.249]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:45.249]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:45.249]         }
  [14:16:45.249]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:45.249]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:45.249]             base::sink(type = "output", split = FALSE)
  [14:16:45.249]             base::close(...future.stdout)
  [14:16:45.249]         }, add = TRUE)
  [14:16:45.249]     }
  [14:16:45.249]     ...future.frame <- base::sys.nframe()
  [14:16:45.249]     ...future.conditions <- base::list()
  [14:16:45.249]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:45.249]     ...future.result <- base::tryCatch({
  [14:16:45.249]         base::withCallingHandlers({
  [14:16:45.249]             ...future.value <- base::withVisible(base::local({
  [14:16:45.249]                 doFuture::registerDoFuture()
  [14:16:45.249]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.249]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.249]                   i <- NULL
  [14:16:45.249]                   ...future.env <- environment()
  [14:16:45.249]                   local({
  [14:16:45.249]                     for (name in names(...future.x_jj)) {
  [14:16:45.249]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.249]                         inherits = FALSE)
  [14:16:45.249]                     }
  [14:16:45.249]                   })
  [14:16:45.249]                   tryCatch({
  [14:16:45.249]                     foreach(j = 1) %dopar% {
  [14:16:45.249]                       j
  [14:16:45.249]                     }
  [14:16:45.249]                   }, error = identity)
  [14:16:45.249]                 })
  [14:16:45.249]             }))
  [14:16:45.249]             future::FutureResult(value = ...future.value$value, 
  [14:16:45.249]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.249]                   ...future.rng), started = ...future.startTime, 
  [14:16:45.249]                 version = "1.8")
  [14:16:45.249]         }, condition = base::local({
  [14:16:45.249]             c <- base::c
  [14:16:45.249]             inherits <- base::inherits
  [14:16:45.249]             invokeRestart <- base::invokeRestart
  [14:16:45.249]             length <- base::length
  [14:16:45.249]             list <- base::list
  [14:16:45.249]             seq.int <- base::seq.int
  [14:16:45.249]             signalCondition <- base::signalCondition
  [14:16:45.249]             sys.calls <- base::sys.calls
  [14:16:45.249]             Sys.time <- base::Sys.time
  [14:16:45.249]             `[[` <- base::`[[`
  [14:16:45.249]             `+` <- base::`+`
  [14:16:45.249]             `<<-` <- base::`<<-`
  [14:16:45.249]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:45.249]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:45.249]                   3L)]
  [14:16:45.249]             }
  [14:16:45.249]             function(cond) {
  [14:16:45.249]                 if (inherits(cond, "error")) {
  [14:16:45.249]                   sessionInformation <- function() {
  [14:16:45.249]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:45.249]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:45.249]                       search = base::search(), system = base::Sys.info())
  [14:16:45.249]                   }
  [14:16:45.249]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.249]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:45.249]                     cond$call), session = sessionInformation(), 
  [14:16:45.249]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:45.249]                   signalCondition(cond)
  [14:16:45.249]                 }
  [14:16:45.249]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:45.249]                 ))) {
  [14:16:45.249]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:45.249]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.249]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:45.249]                   if (!signal) {
  [14:16:45.249]                     muffleCondition <- function (cond) 
  [14:16:45.249]                     {
  [14:16:45.249]                       inherits <- base::inherits
  [14:16:45.249]                       invokeRestart <- base::invokeRestart
  [14:16:45.249]                       muffled <- FALSE
  [14:16:45.249]                       if (inherits(cond, "message")) {
  [14:16:45.249]                         invokeRestart("muffleMessage")
  [14:16:45.249]                         muffled <- TRUE
  [14:16:45.249]                       }
  [14:16:45.249]                       else if (inherits(cond, "warning")) {
  [14:16:45.249]                         invokeRestart("muffleWarning")
  [14:16:45.249]                         muffled <- TRUE
  [14:16:45.249]                       }
  [14:16:45.249]                       else if (inherits(cond, "condition")) {
  [14:16:45.249]                         computeRestarts <- base::computeRestarts
  [14:16:45.249]                         grepl <- base::grepl
  [14:16:45.249]                         is.null <- base::is.null
  [14:16:45.249]                         restarts <- computeRestarts(cond)
  [14:16:45.249]                         for (restart in restarts) {
  [14:16:45.249]                           name <- restart$name
  [14:16:45.249]                           if (is.null(name)) 
  [14:16:45.249]                             next
  [14:16:45.249]                           if (!grepl("^muffle", name)) 
  [14:16:45.249]                             next
  [14:16:45.249]                           invokeRestart(restart)
  [14:16:45.249]                           muffled <- TRUE
  [14:16:45.249]                           break
  [14:16:45.249]                         }
  [14:16:45.249]                       }
  [14:16:45.249]                       invisible(muffled)
  [14:16:45.249]                     }
  [14:16:45.249]                     muffleCondition(cond)
  [14:16:45.249]                   }
  [14:16:45.249]                 }
  [14:16:45.249]             }
  [14:16:45.249]         }))
  [14:16:45.249]     }, error = function(ex) {
  [14:16:45.249]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:45.249]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.249]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:45.249]     }, finally = {
  [14:16:45.249]         {
  [14:16:45.249]             NULL
  [14:16:45.249]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:16:45.249]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:45.249]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:45.249]                 label = NULL, ...) 
  [14:16:45.249]             {
  [14:16:45.249]                 if (substitute) 
  [14:16:45.249]                   expr <- substitute(expr)
  [14:16:45.249]                 local <- as.logical(local)
  [14:16:45.249]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.249]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.249]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.249]                   label = label, ...)
  [14:16:45.249]                 if (!future$lazy) 
  [14:16:45.249]                   future <- run(future)
  [14:16:45.249]                 invisible(future)
  [14:16:45.249]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:45.249]         }
  [14:16:45.249]         base::options(...future.oldOptions)
  [14:16:45.249]     })
  [14:16:45.249]     Sys.time
  [14:16:45.249]     if (base::is.na(TRUE)) {
  [14:16:45.249]     }
  [14:16:45.249]     else {
  [14:16:45.249]         base::sink(type = "output", split = FALSE)
  [14:16:45.249]         if (TRUE) {
  [14:16:45.249]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:45.249]         }
  [14:16:45.249]         else {
  [14:16:45.249]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:45.249]         }
  [14:16:45.249]         base::close(...future.stdout)
  [14:16:45.249]         ...future.stdout <- NULL
  [14:16:45.249]     }
  [14:16:45.249]     ...future.result$conditions <- ...future.conditions
  [14:16:45.249]     ...future.result
  [14:16:45.249] }
  [14:16:45.259] plan(): Setting new future strategy stack:
  [14:16:45.260] List of future strategies:
  [14:16:45.260] 1. sequential:
  [14:16:45.260]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.260]    - tweaked: FALSE
  [14:16:45.260]    - call: NULL
  [14:16:45.261] plan(): nbrOfWorkers() = 1
  [14:16:45.410] plan(): Setting new future strategy stack:
  [14:16:45.411] List of future strategies:
  [14:16:45.411] 1. sequential:
  [14:16:45.411]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.411]    - tweaked: FALSE
  [14:16:45.411]    - call: future::plan(future::sequential)
  [14:16:45.413] plan(): nbrOfWorkers() = 1
  [14:16:45.414] SequentialFuture started (and completed)
  [14:16:45.414] signalConditions() ...
  [14:16:45.414]  - include = 'immediateCondition'
  [14:16:45.415]  - exclude = 
  [14:16:45.415]  - resignal = FALSE
  [14:16:45.416]  - Number of conditions: 96
  [14:16:45.417] signalConditions() ... done
  [14:16:45.417] Chunk #1 of 1 ... DONE
  [14:16:45.418] Launching 1 futures (chunks) ... DONE
  [14:16:45.418] - resolving futures
  [14:16:45.419]   - gathering results & relaying conditions (except errors)
  [14:16:45.419] resolve() on list ...
  [14:16:45.419]  recursive: 0
  [14:16:45.420]  length: 1
  [14:16:45.420] 
  [14:16:45.421] Future #1
  [14:16:45.421] signalConditions() ...
  [14:16:45.422]  - include = 'immediateCondition'
  [14:16:45.422]  - exclude = 
  [14:16:45.423]  - resignal = FALSE
  [14:16:45.423]  - Number of conditions: 96
  [14:16:45.424] signalConditions() ... done
  [14:16:45.424] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:45.425] - nx: 1
  [14:16:45.425] - relay: TRUE
  [14:16:45.426] - stdout: TRUE
  [14:16:45.426] - signal: TRUE
  [14:16:45.426] - resignal: FALSE
  [14:16:45.427] - force: FALSE
  [14:16:45.427] - relayed: [n=1] FALSE
  [14:16:45.428] - queued futures: [n=1] FALSE
  [14:16:45.428]  - until=1
  [14:16:45.429]  - relaying element #1
  [14:16:45.429] signalConditions() ...
  [14:16:45.430]  - include = 'immediateCondition'
  [14:16:45.430]  - exclude = 
  [14:16:45.431]  - resignal = FALSE
  [14:16:45.431]  - Number of conditions: 96
  [14:16:45.432] signalConditions() ... done
  [14:16:45.432] signalConditions() ...
  [14:16:45.433]  - include = 'immediateCondition'
  [14:16:45.433]  - exclude = 
  [14:16:45.434]  - resignal = FALSE
  [14:16:45.434]  - Number of conditions: 96
  [14:16:45.435] signalConditions() ... done
  [14:16:45.436] signalConditions() ...
  [14:16:45.436]  - include = 'condition'
  [14:16:45.436]  - exclude = 'immediateCondition'
  [14:16:45.437]  - resignal = FALSE
  [14:16:45.437]  - Number of conditions: 96
  [14:16:45.438]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:45.263] doFuture() ...
  [14:16:45.438]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:45.266] - dummy globals (as locals): [1] 'j'
  [14:16:45.439]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:45.267] - R expression:
  [14:16:45.440]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:16:45.268] {
  [14:16:45.268]     doFuture::registerDoFuture()
  [14:16:45.268]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.268]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.268]         j <- NULL
  [14:16:45.268]         ...future.env <- environment()
  [14:16:45.268]         local({
  [14:16:45.268]             for (name in names(...future.x_jj)) {
  [14:16:45.268]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.268]                   inherits = FALSE)
  [14:16:45.268]             }
  [14:16:45.268]         })
  [14:16:45.268]         tryCatch({
  [14:16:45.268]             j
  [14:16:45.268]         }, error = identity)
  [14:16:45.268]     })
  [14:16:45.268] }
  [14:16:45.440]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:16:45.270] - identifying globals and packages ...
  [14:16:45.441]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:16:45.271] getGlobalsAndPackages() ...
  [14:16:45.442]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:16:45.272] Searching for globals...
  [14:16:45.442]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:16:45.293] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [14:16:45.443]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:16:45.294] Searching for globals ... DONE
  [14:16:45.443]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:16:45.294] Resolving globals: FALSE
  [14:16:45.444]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:16:45.297] The total size of the 1 globals is 0 bytes (0 bytes)
  [14:16:45.445]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:16:45.297] - globals: [1] '...future.x_ii'
  [14:16:45.445]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:16:45.298] 
  [14:16:45.446]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:16:45.299] getGlobalsAndPackages() ... DONE
  [14:16:45.447]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:16:45.300] List of 1
  [14:16:45.300]  $ ...future.x_ii: NULL
  [14:16:45.300]  - attr(*, "where")=List of 1
  [14:16:45.300]   ..$ ...future.x_ii:<environment: 0x37b78d8> 
  [14:16:45.300]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.300]  - attr(*, "resolved")= logi FALSE
  [14:16:45.300]  - attr(*, "total_size")= num 0
  [14:16:45.447]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:16:45.310]   - R expression:
  [14:16:45.448]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:16:45.310] {
  [14:16:45.310]     doFuture::registerDoFuture()
  [14:16:45.310]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.310]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.310]         j <- NULL
  [14:16:45.310]         ...future.env <- environment()
  [14:16:45.310]         local({
  [14:16:45.310]             for (name in names(...future.x_jj)) {
  [14:16:45.310]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.310]                   inherits = FALSE)
  [14:16:45.310]             }
  [14:16:45.310]         })
  [14:16:45.310]         tryCatch({
  [14:16:45.310]             j
  [14:16:45.310]         }, error = identity)
  [14:16:45.310]     })
  [14:16:45.310] }
  [14:16:45.448]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:16:45.312]   - globals: [1] '...future.x_ii'
  [14:16:45.449]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:16:45.312] List of 1
  [14:16:45.312]  $ ...future.x_ii: NULL
  [14:16:45.312]  - attr(*, "where")=List of 1
  [14:16:45.312]   ..$ ...future.x_ii:<environment: 0x37b78d8> 
  [14:16:45.312]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.312]  - attr(*, "resolved")= logi FALSE
  [14:16:45.312]  - attr(*, "total_size")= num 0
  [14:16:45.450]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:16:45.322]   - packages: [1] 'doFuture'
  [14:16:45.450]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:16:45.323] - identifying globals and packages ... DONE
  [14:16:45.451]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:16:45.323] Number of chunks: 1
  [14:16:45.452]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:16:45.324] Number of futures (= number of chunks): 1
  [14:16:45.452]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:16:45.326] Launching 1 futures (chunks) ...
  [14:16:45.453]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:16:45.326] Chunk #1 of 1 ...
  [14:16:45.454]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:16:45.327]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:45.454]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:16:45.328] getGlobalsAndPackages() ...
  [14:16:45.455]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:16:45.328] Searching for globals...
  [14:16:45.455]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:16:45.330] 
  [14:16:45.456]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:16:45.331] Searching for globals ... DONE
  [14:16:45.457]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:16:45.331] - globals: [0] <none>
  [14:16:45.457]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:16:45.332] getGlobalsAndPackages() ... DONE
  [14:16:45.458]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:16:45.333] 
  [14:16:45.459]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:16:45.333] 
  [14:16:45.459]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:16:45.334]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:45.460]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:16:45.335] getGlobalsAndPackages() ...
  [14:16:45.460]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:16:45.336] - globals passed as-is: [1] '...future.x_ii'
  [14:16:45.461]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:16:45.337] Resolving globals: FALSE
  [14:16:45.462]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:16:45.338] The total size of the 1 globals is 56 bytes (56 bytes)
  [14:16:45.462]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:16:45.339] - globals: [1] '...future.x_ii'
  [14:16:45.463]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:16:45.340] 
  [14:16:45.464]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:16:45.341] getGlobalsAndPackages() ... DONE
  [14:16:45.464]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:16:45.344] Packages needed by the future expression (n = 1): 'doFuture'
  [14:16:45.465]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:16:45.345] Packages needed by future strategies (n = 0): <none>
  [14:16:45.466]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:16:45.354] {
  [14:16:45.354]     {
  [14:16:45.354]         ...future.startTime <- base::Sys.time()
  [14:16:45.354]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:45.354]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:45.354]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:45.354]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:45.354]             future.resolve.recursive = NULL, width = 80L)
  [14:16:45.354]         {
  [14:16:45.354]             {
  [14:16:45.354]                 {
  [14:16:45.354]                   base::local({
  [14:16:45.354]                     has_future <- base::requireNamespace("future", 
  [14:16:45.354]                       quietly = TRUE)
  [14:16:45.354]                     version <- if (has_future) 
  [14:16:45.354]                       utils::packageVersion("future")
  [14:16:45.354]                     else NULL
  [14:16:45.354]                     if (!has_future || version < "1.8.0") {
  [14:16:45.354]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:45.354]                         "", base::R.version$version.string), 
  [14:16:45.354]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:45.354]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:45.354]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:45.354]                           "release", "version")], collapse = " "), 
  [14:16:45.354]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:45.354]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:45.354]                         info)
  [14:16:45.354]                       info <- base::paste(info, collapse = "; ")
  [14:16:45.354]                       if (!has_future) {
  [14:16:45.354]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:45.354]                           info)
  [14:16:45.354]                       }
  [14:16:45.354]                       else {
  [14:16:45.354]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:45.354]                           info, version)
  [14:16:45.354]                       }
  [14:16:45.354]                       base::stop(msg)
  [14:16:45.354]                     }
  [14:16:45.354]                   })
  [14:16:45.354]                 }
  [14:16:45.354]                 base::local({
  [14:16:45.354]                   for (pkg in "doFuture") {
  [14:16:45.354]                     base::loadNamespace(pkg)
  [14:16:45.354]                     base::library(pkg, character.only = TRUE)
  [14:16:45.354]                   }
  [14:16:45.354]                 })
  [14:16:45.354]             }
  [14:16:45.354]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:45.354]         }
  [14:16:45.354]     }
  [14:16:45.354]     if (base::is.na(TRUE)) {
  [14:16:45.354]     }
  [14:16:45.354]     else {
  [14:16:45.354]         if (TRUE) {
  [14:16:45.354]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:45.354]                 open = "w")
  [14:16:45.354]         }
  [14:16:45.354]         else {
  [14:16:45.354]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:45.354]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:45.354]         }
  [14:16:45.354]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:45.354]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:45.354]             base::sink(type = "output", split = FALSE)
  [14:16:45.354]             base::close(...future.stdout)
  [14:16:45.354]         }, add = TRUE)
  [14:16:45.354]     }
  [14:16:45.354]     ...future.frame <- base::sys.nframe()
  [14:16:45.354]     ...future.conditions <- base::list()
  [14:16:45.354]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:45.354]     ...future.result <- base::tryCatch({
  [14:16:45.354]         base::withCallingHandlers({
  [14:16:45.354]             ...future.value <- base::withVisible(base::local({
  [14:16:45.354]                 doFuture::registerDoFuture()
  [14:16:45.354]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.354]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.354]                   j <- NULL
  [14:16:45.354]                   ...future.env <- environment()
  [14:16:45.354]                   local({
  [14:16:45.354]                     for (name in names(...future.x_jj)) {
  [14:16:45.354]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.354]                         inherits = FALSE)
  [14:16:45.354]                     }
  [14:16:45.354]                   })
  [14:16:45.354]                   tryCatch({
  [14:16:45.354]                     j
  [14:16:45.354]                   }, error = identity)
  [14:16:45.354]                 })
  [14:16:45.354]             }))
  [14:16:45.354]             future::FutureResult(value = ...future.value$value, 
  [14:16:45.354]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.354]                   ...future.rng), started = ...future.startTime, 
  [14:16:45.354]                 version = "1.8")
  [14:16:45.354]         }, condition = base::local({
  [14:16:45.354]             c <- base::c
  [14:16:45.354]             inherits <- base::inherits
  [14:16:45.354]             invokeRestart <- base::invokeRestart
  [14:16:45.354]             length <- base::length
  [14:16:45.354]             list <- base::list
  [14:16:45.354]             seq.int <- base::seq.int
  [14:16:45.354]             signalCondition <- base::signalCondition
  [14:16:45.354]             sys.calls <- base::sys.calls
  [14:16:45.354]             Sys.time <- base::Sys.time
  [14:16:45.354]             `[[` <- base::`[[`
  [14:16:45.354]             `+` <- base::`+`
  [14:16:45.354]             `<<-` <- base::`<<-`
  [14:16:45.354]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:45.354]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:45.354]                   3L)]
  [14:16:45.354]             }
  [14:16:45.354]             function(cond) {
  [14:16:45.354]                 if (inherits(cond, "error")) {
  [14:16:45.354]                   sessionInformation <- function() {
  [14:16:45.354]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:45.354]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:45.354]                       search = base::search(), system = base::Sys.info())
  [14:16:45.354]                   }
  [14:16:45.354]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.354]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:45.354]                     cond$call), session = sessionInformation(), 
  [14:16:45.354]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:45.354]                   signalCondition(cond)
  [14:16:45.354]                 }
  [14:16:45.354]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:45.354]                 ))) {
  [14:16:45.354]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:45.354]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.354]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:45.354]                   if (!signal) {
  [14:16:45.354]                     muffleCondition <- function (cond) 
  [14:16:45.354]                     {
  [14:16:45.354]                       inherits <- base::inherits
  [14:16:45.354]                       invokeRestart <- base::invokeRestart
  [14:16:45.354]                       muffled <- FALSE
  [14:16:45.354]                       if (inherits(cond, "message")) {
  [14:16:45.354]                         invokeRestart("muffleMessage")
  [14:16:45.354]                         muffled <- TRUE
  [14:16:45.354]                       }
  [14:16:45.354]                       else if (inherits(cond, "warning")) {
  [14:16:45.354]                         invokeRestart("muffleWarning")
  [14:16:45.354]                         muffled <- TRUE
  [14:16:45.354]                       }
  [14:16:45.354]                       else if (inherits(cond, "condition")) {
  [14:16:45.354]                         computeRestarts <- base::computeRestarts
  [14:16:45.354]                         grepl <- base::grepl
  [14:16:45.354]                         is.null <- base::is.null
  [14:16:45.354]                         restarts <- computeRestarts(cond)
  [14:16:45.354]                         for (restart in restarts) {
  [14:16:45.354]                           name <- restart$name
  [14:16:45.354]                           if (is.null(name)) 
  [14:16:45.354]                             next
  [14:16:45.354]                           if (!grepl("^muffle", name)) 
  [14:16:45.354]                             next
  [14:16:45.354]                           invokeRestart(restart)
  [14:16:45.354]                           muffled <- TRUE
  [14:16:45.354]                           break
  [14:16:45.354]                         }
  [14:16:45.354]                       }
  [14:16:45.354]                       invisible(muffled)
  [14:16:45.354]                     }
  [14:16:45.354]                     muffleCondition(cond)
  [14:16:45.354]                   }
  [14:16:45.354]                 }
  [14:16:45.354]             }
  [14:16:45.354]         }))
  [14:16:45.354]     }, error = function(ex) {
  [14:16:45.354]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:45.354]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.354]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:45.354]     }, finally = {
  [14:16:45.354]         {
  [14:16:45.354]             NULL
  [14:16:45.354]             future::plan(list(function (expr, envir = parent.frame(), 
  [14:16:45.354]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:45.354]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:45.354]                 label = NULL, ...) 
  [14:16:45.354]             {
  [14:16:45.354]                 if (substitute) 
  [14:16:45.354]                   expr <- substitute(expr)
  [14:16:45.354]                 local <- as.logical(local)
  [14:16:45.354]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.354]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.354]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.354]                   label = label, ...)
  [14:16:45.354]                 if (!future$lazy) 
  [14:16:45.354]                   future <- run(future)
  [14:16:45.354]                 invisible(future)
  [14:16:45.354]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:45.354]         }
  [14:16:45.354]         base::options(...future.oldOptions)
  [14:16:45.354]     })
  [14:16:45.354]     Sys.time
  [14:16:45.354]     if (base::is.na(TRUE)) {
  [14:16:45.354]     }
  [14:16:45.354]     else {
  [14:16:45.354]         base::sink(type = "output", split = FALSE)
  [14:16:45.354]         if (TRUE) {
  [14:16:45.354]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:45.354]         }
  [14:16:45.354]         else {
  [14:16:45.354]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:45.354]         }
  [14:16:45.354]         base::close(...future.stdout)
  [14:16:45.354]         ...future.stdout <- NULL
  [14:16:45.354]     }
  [14:16:45.354]     ...future.result$conditions <- ...future.conditions
  [14:16:45.354]     ...future.result
  [14:16:45.354] }
  [14:16:45.466]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:16:45.363] plan(): Setting new future strategy stack:
  [14:16:45.467]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:16:45.364] List of future strategies:
  [14:16:45.364] 1. sequential:
  [14:16:45.364]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.364]    - tweaked: FALSE
  [14:16:45.364]    - call: NULL
  [14:16:45.467]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:16:45.366] plan(): nbrOfWorkers() = 1
  [14:16:45.468]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:16:45.368] plan(): Setting new future strategy stack:
  [14:16:45.469]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:16:45.369] List of future strategies:
  [14:16:45.369] 1. sequential:
  [14:16:45.369]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.369]    - tweaked: FALSE
  [14:16:45.369]    - call: NULL
  [14:16:45.469]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:16:45.371] plan(): nbrOfWorkers() = 1
  [14:16:45.470]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:16:45.372] SequentialFuture started (and completed)
  [14:16:45.470]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:16:45.373] Chunk #1 of 1 ... DONE
  [14:16:45.471]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:16:45.374] Launching 1 futures (chunks) ... DONE
  [14:16:45.472]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:16:45.374] - resolving futures
  [14:16:45.472]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:16:45.375]   - gathering results & relaying conditions (except errors)
  [14:16:45.473]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:16:45.376] resolve() on list ...
  [14:16:45.474]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:16:45.376]  recursive: 0
  [14:16:45.474]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:16:45.377]  length: 1
  [14:16:45.475]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:16:45.378] 
  [14:16:45.475]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:16:45.379] Future #1
  [14:16:45.476]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:16:45.380] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:45.477]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:16:45.380] - nx: 1
  [14:16:45.477]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:16:45.381] - relay: TRUE
  [14:16:45.478]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:16:45.382] - stdout: TRUE
  [14:16:45.479]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:16:45.382] - signal: TRUE
  [14:16:45.479]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:16:45.383] - resignal: FALSE
  [14:16:45.480]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:16:45.384] - force: FALSE
  [14:16:45.480]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:16:45.385] - relayed: [n=1] FALSE
  [14:16:45.481]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:16:45.385] - queued futures: [n=1] FALSE
  [14:16:45.482]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:16:45.386]  - until=1
  [14:16:45.482]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:16:45.387]  - relaying element #1
  [14:16:45.483]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:16:45.388] - relayed: [n=1] TRUE
  [14:16:45.484]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:16:45.389] - queued futures: [n=1] TRUE
  [14:16:45.484]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:16:45.389] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:45.485]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:16:45.390]  length: 0 (resolved future 1)
  [14:16:45.485]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:16:45.391] Relaying remaining futures
  [14:16:45.486]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:16:45.392] signalConditionsASAP(NULL, pos=0) ...
  [14:16:45.487]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:16:45.392] - nx: 1
  [14:16:45.487]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:16:45.393] - relay: TRUE
  [14:16:45.488]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:16:45.394] - stdout: TRUE
  [14:16:45.489]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:16:45.394] - signal: TRUE
  [14:16:45.489]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:16:45.395] - resignal: FALSE
  [14:16:45.490]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:16:45.396] - force: FALSE
  [14:16:45.490]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:16:45.396] - relayed: [n=1] TRUE
  [14:16:45.491]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:16:45.397] - queued futures: [n=1] TRUE
  [14:16:45.492]  - Condition #87: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:16:45.492]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:16:45.399] - relayed: [n=1] TRUE
  [14:16:45.493]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:16:45.399] - queued futures: [n=1] TRUE
  [14:16:45.494]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:16:45.400] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:45.494]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:16:45.401] resolve() on list ... DONE
  [14:16:45.495]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:16:45.405] - collecting values of futures
  [14:16:45.495]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:16:45.406] - accumulating results
  [14:16:45.496]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:16:45.408] - processing errors (handler = 'stop')
  [14:16:45.497]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:16:45.409] - extracting results
  [14:16:45.497]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:16:45.409] doFuture() ... DONE
  [14:16:45.498] signalConditions() ... done
  [14:16:45.499] - relayed: [n=1] TRUE
  [14:16:45.499] - queued futures: [n=1] TRUE
  [14:16:45.499] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:45.500]  length: 0 (resolved future 1)
  [14:16:45.500] Relaying remaining futures
  [14:16:45.501] signalConditionsASAP(NULL, pos=0) ...
  [14:16:45.501] - nx: 1
  [14:16:45.502] - relay: TRUE
  [14:16:45.502] - stdout: TRUE
  [14:16:45.502] - signal: TRUE
  [14:16:45.503] - resignal: FALSE
  [14:16:45.503] - force: FALSE
  [14:16:45.504] - relayed: [n=1] TRUE
  [14:16:45.504] - queued futures: [n=1] TRUE
   - flush all
  [14:16:45.505] - relayed: [n=1] TRUE
  [14:16:45.505] - queued futures: [n=1] TRUE
  [14:16:45.506] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:45.506] resolve() on list ... DONE
  [14:16:45.507] - collecting values of futures
  [14:16:45.507] signalConditions() ...
  [14:16:45.508]  - include = 'immediateCondition'
  [14:16:45.508]  - exclude = 
  [14:16:45.508]  - resignal = FALSE
  [14:16:45.509]  - Number of conditions: 96
  [14:16:45.510] signalConditions() ... done
  [14:16:45.510] - accumulating results
  [14:16:45.512] - processing errors (handler = 'stop')
  [14:16:45.512] - extracting results
  [14:16:45.512] doFuture() ... DONE
  > str(x)
  List of 1
   $ :List of 1
    ..$ : num 1
  > rm(list = "x")
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ... DONE")
  *** doFuture - nested %dopar%  and tricky globals ... DONE
  > 
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  + 
  +     as <- 1:2
  +     bs <- 3:1
  + 
  +     stopifnot(!exists("a", inherits = FALSE), !exists("b", inherits = FALSE))
  + 
  +     message("foreach() - level 1 ...")
  +     x <- foreach(a = as, .export = c("bs", "strategy2"),
  +                  .packages = "foreach") %dopar% {
  +       plan_list <- future::plan("next")
  +       stopifnot(inherits(plan_list, strategy2))
  +       plan_a <- future::plan("list")
  +       str(plan_a)
  +       stopifnot(inherits(plan_a[[1]], strategy2))
  + 
  +       message("foreach() - level 2 ...")
  +       y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% {
  +         plan_list <- future::plan("next")
  +         message(capture.output(print(plan_list)))
  + 	
  +         stopifnot(inherits(plan_list, "future"))
  +         ## future.plan can be either a string or a future function
  +         default <- getOption("future.plan", "sequential")
  +         if (is.function(default)) default <- class(default)
  +         stopifnot(inherits(plan_list, default))
  + 
  +         plan_b <- future::plan("list")
  +         str(plan_b)
  +         stopifnot(
  + 	  inherits(plan_b[[1]], "future"),
  +           inherits(plan_b[[1]], default)
  + 	)
  + 
  +         list(a = a, plan_a = plan_a,
  +              b = b, plan_b = plan_b)
  +       }
  +       message("foreach() - level 2 ... DONE")
  + 
  +       y
  +     }
  +     message("foreach() - level 1 ... DONE")
  + 
  +     local({
  +       stopifnot(length(x) == length(as))
  +       for (aa in seq_along(as)) {
  +         x_aa <- x[[aa]]
  +         stopifnot(length(x_aa) == length(bs))
  +         a <- as[aa]
  +         for (bb in seq_along(bs)) {
  +           x_aa_bb <- x_aa[[bb]]
  +           b <- bs[bb]
  +           stopifnot(
  +             length(x_aa_bb) == 4L,
  +             all(names(x_aa_bb) == c("a", "plan_a", "b", "plan_b")),
  +             x_aa_bb$a == a,
  +             x_aa_bb$b == b,
  +             inherits(x_aa_bb$plan_a[[1]], strategy2),
  +             inherits(x_aa_bb$plan_b[[1]], "future"),
  +             inherits(x_aa_bb$plan_b[[1]],
  +                      getOption("future.plan", "sequential"))
  +           )
  +         }
  +       }
  +     })
  + 
  +     ## Cleanup in order make sure none of these variables exist as
  +     ## proxies for missing globals of the name names
  +     rm(list = c("as", "bs", "x"))
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [14:16:45.692] plan(): Setting new future strategy stack:
  [14:16:45.692] List of future strategies:
  [14:16:45.692] 1. sequential:
  [14:16:45.692]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.692]    - tweaked: FALSE
  [14:16:45.692]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:45.692] 2. sequential:
  [14:16:45.692]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.692]    - tweaked: FALSE
  [14:16:45.692]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:45.739] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:16:45.741] doFuture() ...
  [14:16:45.743] - dummy globals (as locals): [1] 'a'
  [14:16:45.744] - R expression:
  [14:16:45.745] {
  [14:16:45.745]     doFuture::registerDoFuture()
  [14:16:45.745]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.745]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.745]         a <- NULL
  [14:16:45.745]         ...future.env <- environment()
  [14:16:45.745]         local({
  [14:16:45.745]             for (name in names(...future.x_jj)) {
  [14:16:45.745]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.745]                   inherits = FALSE)
  [14:16:45.745]             }
  [14:16:45.745]         })
  [14:16:45.745]         tryCatch({
  [14:16:45.745]             plan_list <- future::plan("next")
  [14:16:45.745]             stopifnot(inherits(plan_list, strategy2))
  [14:16:45.745]             plan_a <- future::plan("list")
  [14:16:45.745]             str(plan_a)
  [14:16:45.745]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:45.745]             message("foreach() - level 2 ...")
  [14:16:45.745]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:45.745]                 {
  [14:16:45.745]                   plan_list <- future::plan("next")
  [14:16:45.745]                   message(capture.output(print(plan_list)))
  [14:16:45.745]                   stopifnot(inherits(plan_list, "future"))
  [14:16:45.745]                   default <- getOption("future.plan", "sequential")
  [14:16:45.745]                   if (is.function(default)) 
  [14:16:45.745]                     default <- class(default)
  [14:16:45.745]                   stopifnot(inherits(plan_list, default))
  [14:16:45.745]                   plan_b <- future::plan("list")
  [14:16:45.745]                   str(plan_b)
  [14:16:45.745]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:45.745]                     inherits(plan_b[[1]], default))
  [14:16:45.745]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:45.745]                 }
  [14:16:45.745]             message("foreach() - level 2 ... DONE")
  [14:16:45.745]             y
  [14:16:45.745]         }, error = identity)
  [14:16:45.745]     })
  [14:16:45.745] }
  [14:16:45.747] - identifying globals and packages ...
  [14:16:45.748] getGlobalsAndPackages() ...
  [14:16:45.749] Searching for globals...
  [14:16:45.796] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:16:45.797] Searching for globals ... DONE
  [14:16:45.798] Resolving globals: FALSE
  [14:16:45.802] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:16:45.803] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:45.803] - packages: [2] 'utils', 'foreach'
  [14:16:45.804] getGlobalsAndPackages() ... DONE
  [14:16:45.804] List of 3
  [14:16:45.804]  $ ...future.x_ii: NULL
  [14:16:45.804]  $ strategy2     : chr "sequential"
  [14:16:45.804]  $ bs            : int [1:3] 3 2 1
  [14:16:45.804]  - attr(*, "where")=List of 3
  [14:16:45.804]   ..$ ...future.x_ii:<environment: 0x190c650> 
  [14:16:45.804]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:45.804]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:45.804]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.804]  - attr(*, "resolved")= logi FALSE
  [14:16:45.804]  - attr(*, "total_size")= num 184
  [14:16:45.823]   - R expression:
  [14:16:45.823] {
  [14:16:45.823]     doFuture::registerDoFuture()
  [14:16:45.823]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.823]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.823]         a <- NULL
  [14:16:45.823]         ...future.env <- environment()
  [14:16:45.823]         local({
  [14:16:45.823]             for (name in names(...future.x_jj)) {
  [14:16:45.823]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.823]                   inherits = FALSE)
  [14:16:45.823]             }
  [14:16:45.823]         })
  [14:16:45.823]         tryCatch({
  [14:16:45.823]             plan_list <- future::plan("next")
  [14:16:45.823]             stopifnot(inherits(plan_list, strategy2))
  [14:16:45.823]             plan_a <- future::plan("list")
  [14:16:45.823]             str(plan_a)
  [14:16:45.823]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:45.823]             message("foreach() - level 2 ...")
  [14:16:45.823]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:45.823]                 {
  [14:16:45.823]                   plan_list <- future::plan("next")
  [14:16:45.823]                   message(capture.output(print(plan_list)))
  [14:16:45.823]                   stopifnot(inherits(plan_list, "future"))
  [14:16:45.823]                   default <- getOption("future.plan", "sequential")
  [14:16:45.823]                   if (is.function(default)) 
  [14:16:45.823]                     default <- class(default)
  [14:16:45.823]                   stopifnot(inherits(plan_list, default))
  [14:16:45.823]                   plan_b <- future::plan("list")
  [14:16:45.823]                   str(plan_b)
  [14:16:45.823]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:45.823]                     inherits(plan_b[[1]], default))
  [14:16:45.823]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:45.823]                 }
  [14:16:45.823]             message("foreach() - level 2 ... DONE")
  [14:16:45.823]             y
  [14:16:45.823]         }, error = identity)
  [14:16:45.823]     })
  [14:16:45.823] }
  [14:16:45.825]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:45.826] List of 3
  [14:16:45.826]  $ ...future.x_ii: NULL
  [14:16:45.826]  $ strategy2     : chr "sequential"
  [14:16:45.826]  $ bs            : int [1:3] 3 2 1
  [14:16:45.826]  - attr(*, "where")=List of 3
  [14:16:45.826]   ..$ ...future.x_ii:<environment: 0x190c650> 
  [14:16:45.826]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:45.826]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:45.826]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.826]  - attr(*, "resolved")= logi FALSE
  [14:16:45.826]  - attr(*, "total_size")= num 184
  [14:16:45.841]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:16:45.841] - identifying globals and packages ... DONE
  [14:16:45.842] Number of chunks: 1
  [14:16:45.842] Number of futures (= number of chunks): 1
  [14:16:45.844] Launching 1 futures (chunks) ...
  [14:16:45.844] Chunk #1 of 1 ...
  [14:16:45.844]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:45.845] getGlobalsAndPackages() ...
  [14:16:45.845] Searching for globals...
  [14:16:45.847] 
  [14:16:45.847] Searching for globals ... DONE
  [14:16:45.848] - globals: [0] <none>
  [14:16:45.848] getGlobalsAndPackages() ... DONE
  [14:16:45.849] 
  [14:16:45.849] 
  [14:16:45.850]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:45.850] getGlobalsAndPackages() ...
  [14:16:45.851] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:45.851] Resolving globals: FALSE
  [14:16:45.853] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:16:45.854] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:45.854] 
  [14:16:45.855] getGlobalsAndPackages() ... DONE
  [14:16:45.858] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:16:45.859] Packages needed by future strategies (n = 1): 'future'
  [14:16:45.869] {
  [14:16:45.869]     {
  [14:16:45.869]         ...future.startTime <- base::Sys.time()
  [14:16:45.869]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:45.869]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:45.869]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:45.869]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:45.869]             future.resolve.recursive = NULL, width = 80L)
  [14:16:45.869]         {
  [14:16:45.869]             {
  [14:16:45.869]                 {
  [14:16:45.869]                   base::local({
  [14:16:45.869]                     has_future <- base::requireNamespace("future", 
  [14:16:45.869]                       quietly = TRUE)
  [14:16:45.869]                     version <- if (has_future) 
  [14:16:45.869]                       utils::packageVersion("future")
  [14:16:45.869]                     else NULL
  [14:16:45.869]                     if (!has_future || version < "1.8.0") {
  [14:16:45.869]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:45.869]                         "", base::R.version$version.string), 
  [14:16:45.869]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:45.869]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:45.869]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:45.869]                           "release", "version")], collapse = " "), 
  [14:16:45.869]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:45.869]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:45.869]                         info)
  [14:16:45.869]                       info <- base::paste(info, collapse = "; ")
  [14:16:45.869]                       if (!has_future) {
  [14:16:45.869]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:45.869]                           info)
  [14:16:45.869]                       }
  [14:16:45.869]                       else {
  [14:16:45.869]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:45.869]                           info, version)
  [14:16:45.869]                       }
  [14:16:45.869]                       base::stop(msg)
  [14:16:45.869]                     }
  [14:16:45.869]                   })
  [14:16:45.869]                 }
  [14:16:45.869]                 base::local({
  [14:16:45.869]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:16:45.869]                   "future")) {
  [14:16:45.869]                     base::loadNamespace(pkg)
  [14:16:45.869]                     base::library(pkg, character.only = TRUE)
  [14:16:45.869]                   }
  [14:16:45.869]                 })
  [14:16:45.869]             }
  [14:16:45.869]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:45.869]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:45.869]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:45.869]                 label = NULL, ...) 
  [14:16:45.869]             {
  [14:16:45.869]                 if (substitute) 
  [14:16:45.869]                   expr <- substitute(expr)
  [14:16:45.869]                 local <- as.logical(local)
  [14:16:45.869]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.869]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.869]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.869]                   label = label, ...)
  [14:16:45.869]                 if (!future$lazy) 
  [14:16:45.869]                   future <- run(future)
  [14:16:45.869]                 invisible(future)
  [14:16:45.869]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:45.869]         }
  [14:16:45.869]     }
  [14:16:45.869]     if (base::is.na(TRUE)) {
  [14:16:45.869]     }
  [14:16:45.869]     else {
  [14:16:45.869]         if (TRUE) {
  [14:16:45.869]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:45.869]                 open = "w")
  [14:16:45.869]         }
  [14:16:45.869]         else {
  [14:16:45.869]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:45.869]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:45.869]         }
  [14:16:45.869]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:45.869]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:45.869]             base::sink(type = "output", split = FALSE)
  [14:16:45.869]             base::close(...future.stdout)
  [14:16:45.869]         }, add = TRUE)
  [14:16:45.869]     }
  [14:16:45.869]     ...future.frame <- base::sys.nframe()
  [14:16:45.869]     ...future.conditions <- base::list()
  [14:16:45.869]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:45.869]     ...future.result <- base::tryCatch({
  [14:16:45.869]         base::withCallingHandlers({
  [14:16:45.869]             ...future.value <- base::withVisible(base::local({
  [14:16:45.869]                 doFuture::registerDoFuture()
  [14:16:45.869]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.869]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.869]                   a <- NULL
  [14:16:45.869]                   ...future.env <- environment()
  [14:16:45.869]                   local({
  [14:16:45.869]                     for (name in names(...future.x_jj)) {
  [14:16:45.869]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.869]                         inherits = FALSE)
  [14:16:45.869]                     }
  [14:16:45.869]                   })
  [14:16:45.869]                   tryCatch({
  [14:16:45.869]                     plan_list <- future::plan("next")
  [14:16:45.869]                     stopifnot(inherits(plan_list, strategy2))
  [14:16:45.869]                     plan_a <- future::plan("list")
  [14:16:45.869]                     str(plan_a)
  [14:16:45.869]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:45.869]                     message("foreach() - level 2 ...")
  [14:16:45.869]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:45.869]                       {
  [14:16:45.869]                         plan_list <- future::plan("next")
  [14:16:45.869]                         message(capture.output(print(plan_list)))
  [14:16:45.869]                         stopifnot(inherits(plan_list, "future"))
  [14:16:45.869]                         default <- getOption("future.plan", "sequential")
  [14:16:45.869]                         if (is.function(default)) 
  [14:16:45.869]                           default <- class(default)
  [14:16:45.869]                         stopifnot(inherits(plan_list, default))
  [14:16:45.869]                         plan_b <- future::plan("list")
  [14:16:45.869]                         str(plan_b)
  [14:16:45.869]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:45.869]                           inherits(plan_b[[1]], default))
  [14:16:45.869]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:45.869]                       }
  [14:16:45.869]                     message("foreach() - level 2 ... DONE")
  [14:16:45.869]                     y
  [14:16:45.869]                   }, error = identity)
  [14:16:45.869]                 })
  [14:16:45.869]             }))
  [14:16:45.869]             future::FutureResult(value = ...future.value$value, 
  [14:16:45.869]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.869]                   ...future.rng), started = ...future.startTime, 
  [14:16:45.869]                 version = "1.8")
  [14:16:45.869]         }, condition = base::local({
  [14:16:45.869]             c <- base::c
  [14:16:45.869]             inherits <- base::inherits
  [14:16:45.869]             invokeRestart <- base::invokeRestart
  [14:16:45.869]             length <- base::length
  [14:16:45.869]             list <- base::list
  [14:16:45.869]             seq.int <- base::seq.int
  [14:16:45.869]             signalCondition <- base::signalCondition
  [14:16:45.869]             sys.calls <- base::sys.calls
  [14:16:45.869]             Sys.time <- base::Sys.time
  [14:16:45.869]             `[[` <- base::`[[`
  [14:16:45.869]             `+` <- base::`+`
  [14:16:45.869]             `<<-` <- base::`<<-`
  [14:16:45.869]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:45.869]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:45.869]                   3L)]
  [14:16:45.869]             }
  [14:16:45.869]             function(cond) {
  [14:16:45.869]                 if (inherits(cond, "error")) {
  [14:16:45.869]                   sessionInformation <- function() {
  [14:16:45.869]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:45.869]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:45.869]                       search = base::search(), system = base::Sys.info())
  [14:16:45.869]                   }
  [14:16:45.869]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.869]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:45.869]                     cond$call), session = sessionInformation(), 
  [14:16:45.869]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:45.869]                   signalCondition(cond)
  [14:16:45.869]                 }
  [14:16:45.869]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:45.869]                 ))) {
  [14:16:45.869]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:45.869]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:45.869]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:45.869]                   if (!signal) {
  [14:16:45.869]                     muffleCondition <- function (cond) 
  [14:16:45.869]                     {
  [14:16:45.869]                       inherits <- base::inherits
  [14:16:45.869]                       invokeRestart <- base::invokeRestart
  [14:16:45.869]                       muffled <- FALSE
  [14:16:45.869]                       if (inherits(cond, "message")) {
  [14:16:45.869]                         invokeRestart("muffleMessage")
  [14:16:45.869]                         muffled <- TRUE
  [14:16:45.869]                       }
  [14:16:45.869]                       else if (inherits(cond, "warning")) {
  [14:16:45.869]                         invokeRestart("muffleWarning")
  [14:16:45.869]                         muffled <- TRUE
  [14:16:45.869]                       }
  [14:16:45.869]                       else if (inherits(cond, "condition")) {
  [14:16:45.869]                         computeRestarts <- base::computeRestarts
  [14:16:45.869]                         grepl <- base::grepl
  [14:16:45.869]                         is.null <- base::is.null
  [14:16:45.869]                         restarts <- computeRestarts(cond)
  [14:16:45.869]                         for (restart in restarts) {
  [14:16:45.869]                           name <- restart$name
  [14:16:45.869]                           if (is.null(name)) 
  [14:16:45.869]                             next
  [14:16:45.869]                           if (!grepl("^muffle", name)) 
  [14:16:45.869]                             next
  [14:16:45.869]                           invokeRestart(restart)
  [14:16:45.869]                           muffled <- TRUE
  [14:16:45.869]                           break
  [14:16:45.869]                         }
  [14:16:45.869]                       }
  [14:16:45.869]                       invisible(muffled)
  [14:16:45.869]                     }
  [14:16:45.869]                     muffleCondition(cond)
  [14:16:45.869]                   }
  [14:16:45.869]                 }
  [14:16:45.869]             }
  [14:16:45.869]         }))
  [14:16:45.869]     }, error = function(ex) {
  [14:16:45.869]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:45.869]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:45.869]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:45.869]     }, finally = {
  [14:16:45.869]         {
  [14:16:45.869]             NULL
  [14:16:45.869]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:16:45.869]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:45.869]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:45.869]                 label = NULL, ...) 
  [14:16:45.869]             {
  [14:16:45.869]                 if (substitute) 
  [14:16:45.869]                   expr <- substitute(expr)
  [14:16:45.869]                 local <- as.logical(local)
  [14:16:45.869]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.869]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.869]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.869]                   label = label, ...)
  [14:16:45.869]                 if (!future$lazy) 
  [14:16:45.869]                   future <- run(future)
  [14:16:45.869]                 invisible(future)
  [14:16:45.869]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:16:45.869]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:16:45.869]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:45.869]             {
  [14:16:45.869]                 if (substitute) 
  [14:16:45.869]                   expr <- substitute(expr)
  [14:16:45.869]                 local <- as.logical(local)
  [14:16:45.869]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:45.869]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:45.869]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:45.869]                   label = label, ...)
  [14:16:45.869]                 if (!future$lazy) 
  [14:16:45.869]                   future <- run(future)
  [14:16:45.869]                 invisible(future)
  [14:16:45.869]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:45.869]         }
  [14:16:45.869]         base::options(...future.oldOptions)
  [14:16:45.869]     })
  [14:16:45.869]     Sys.time
  [14:16:45.869]     if (base::is.na(TRUE)) {
  [14:16:45.869]     }
  [14:16:45.869]     else {
  [14:16:45.869]         base::sink(type = "output", split = FALSE)
  [14:16:45.869]         if (TRUE) {
  [14:16:45.869]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:45.869]         }
  [14:16:45.869]         else {
  [14:16:45.869]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:45.869]         }
  [14:16:45.869]         base::close(...future.stdout)
  [14:16:45.869]         ...future.stdout <- NULL
  [14:16:45.869]     }
  [14:16:45.869]     ...future.result$conditions <- ...future.conditions
  [14:16:45.869]     ...future.result
  [14:16:45.869] }
  [14:16:45.882] plan(): Setting new future strategy stack:
  [14:16:45.883] List of future strategies:
  [14:16:45.883] 1. sequential:
  [14:16:45.883]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:45.883]    - tweaked: FALSE
  [14:16:45.883]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:45.884] plan(): nbrOfWorkers() = 1
  [14:16:46.546] plan(): Setting new future strategy stack:
  [14:16:46.546] List of future strategies:
  [14:16:46.546] 1. sequential:
  [14:16:46.546]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.546]    - tweaked: FALSE
  [14:16:46.546]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.546] 2. sequential:
  [14:16:46.546]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.546]    - tweaked: FALSE
  [14:16:46.546]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.548] plan(): nbrOfWorkers() = 1
  [14:16:46.549] SequentialFuture started (and completed)
  [14:16:46.550] signalConditions() ...
  [14:16:46.554]  - include = 'immediateCondition'
  [14:16:46.555]  - exclude = 
  [14:16:46.555]  - resignal = FALSE
  [14:16:46.556]  - Number of conditions: 280
  [14:16:46.557] signalConditions() ... done
  [14:16:46.558] Chunk #1 of 1 ... DONE
  [14:16:46.558] Launching 1 futures (chunks) ... DONE
  [14:16:46.559] - resolving futures
  [14:16:46.559]   - gathering results & relaying conditions (except errors)
  [14:16:46.560] resolve() on list ...
  [14:16:46.560]  recursive: 0
  [14:16:46.560]  length: 1
  [14:16:46.561] 
  [14:16:46.561] Future #1
  [14:16:46.562] signalConditions() ...
  [14:16:46.562]  - include = 'immediateCondition'
  [14:16:46.563]  - exclude = 
  [14:16:46.563]  - resignal = FALSE
  [14:16:46.564]  - Number of conditions: 280
  [14:16:46.565] signalConditions() ... done
  [14:16:46.566] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:46.566] - nx: 1
  [14:16:46.567] - relay: TRUE
  [14:16:46.567] - stdout: TRUE
  [14:16:46.568] - signal: TRUE
  [14:16:46.568] - resignal: FALSE
  [14:16:46.569] - force: FALSE
  [14:16:46.569] - relayed: [n=1] FALSE
  [14:16:46.569] - queued futures: [n=1] FALSE
  [14:16:46.570]  - until=1
  [14:16:46.570]  - relaying element #1
  [14:16:46.571] signalConditions() ...
  [14:16:46.571]  - include = 'immediateCondition'
  [14:16:46.572]  - exclude = 
  [14:16:46.572]  - resignal = FALSE
  [14:16:46.573]  - Number of conditions: 280
  [14:16:46.575] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:46.575] signalConditions() ...
  [14:16:46.576]  - include = 'immediateCondition'
  [14:16:46.576]  - exclude = 
  [14:16:46.577]  - resignal = FALSE
  [14:16:46.577]  - Number of conditions: 280
  [14:16:46.579] signalConditions() ... done
  [14:16:46.579] signalConditions() ...
  [14:16:46.580]  - include = 'condition'
  [14:16:46.580]  - exclude = 'immediateCondition'
  [14:16:46.581]  - resignal = FALSE
  [14:16:46.581]  - Number of conditions: 280
  [14:16:46.582]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:16:46.582]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:45.894] doFuture() ...
  [14:16:46.583]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:45.897] - dummy globals (as locals): [1] 'b'
  [14:16:46.584]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:16:45.899] - R expression:
  [14:16:46.584]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:16:45.900] {
  [14:16:45.900]     doFuture::registerDoFuture()
  [14:16:45.900]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.900]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.900]         b <- NULL
  [14:16:45.900]         ...future.env <- environment()
  [14:16:45.900]         local({
  [14:16:45.900]             for (name in names(...future.x_jj)) {
  [14:16:45.900]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.900]                   inherits = FALSE)
  [14:16:45.900]             }
  [14:16:45.900]         })
  [14:16:45.900]         tryCatch({
  [14:16:45.900]             plan_list <- future::plan("next")
  [14:16:45.900]             message(capture.output(print(plan_list)))
  [14:16:45.900]             stopifnot(inherits(plan_list, "future"))
  [14:16:45.900]             default <- getOption("future.plan", "sequential")
  [14:16:45.900]             if (is.function(default)) 
  [14:16:45.900]                 default <- class(default)
  [14:16:45.900]             stopifnot(inherits(plan_list, default))
  [14:16:45.900]             plan_b <- future::plan("list")
  [14:16:45.900]             str(plan_b)
  [14:16:45.900]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:45.900]                 default))
  [14:16:45.900]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:45.900]         }, error = identity)
  [14:16:45.900]     })
  [14:16:45.900] }
  [14:16:46.585]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:16:45.902] - identifying globals and packages ...
  [14:16:46.585]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:16:45.903] getGlobalsAndPackages() ...
  [14:16:46.586]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:16:45.903] Searching for globals...
  [14:16:46.587]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:16:45.943] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:16:46.587]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:16:45.945] Searching for globals ... DONE
  [14:16:46.588]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:16:45.945] Resolving globals: FALSE
  [14:16:46.588]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:16:45.950] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:16:46.589]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:16:45.952] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.589]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:16:45.953] - packages: [1] 'utils'
  [14:16:46.590]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:16:45.953] getGlobalsAndPackages() ... DONE
  [14:16:46.591]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:16:45.954] List of 3
  [14:16:45.954]  $ ...future.x_ii: NULL
  [14:16:45.954]  $ a             : int 1
  [14:16:45.954]  $ plan_a        :List of 1
  [14:16:45.954]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:45.954]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:16:45.954]     ...)  
  [14:16:45.954]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:16:45.954]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:45.954]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:45.954]  - attr(*, "where")=List of 3
  [14:16:45.954]   ..$ ...future.x_ii:<environment: 0x345a500> 
  [14:16:45.954]   ..$ a             :<environment: 0x3244030> 
  [14:16:45.954]   ..$ plan_a        :<environment: 0x3244030> 
  [14:16:45.954]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.954]  - attr(*, "resolved")= logi FALSE
  [14:16:45.954]  - attr(*, "total_size")= num 40624
  [14:16:46.591]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:16:45.977]   - R expression:
  [14:16:46.592]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:16:45.978] {
  [14:16:45.978]     doFuture::registerDoFuture()
  [14:16:45.978]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:45.978]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:45.978]         b <- NULL
  [14:16:45.978]         ...future.env <- environment()
  [14:16:45.978]         local({
  [14:16:45.978]             for (name in names(...future.x_jj)) {
  [14:16:45.978]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:45.978]                   inherits = FALSE)
  [14:16:45.978]             }
  [14:16:45.978]         })
  [14:16:45.978]         tryCatch({
  [14:16:45.978]             plan_list <- future::plan("next")
  [14:16:45.978]             message(capture.output(print(plan_list)))
  [14:16:45.978]             stopifnot(inherits(plan_list, "future"))
  [14:16:45.978]             default <- getOption("future.plan", "sequential")
  [14:16:45.978]             if (is.function(default)) 
  [14:16:45.978]                 default <- class(default)
  [14:16:45.978]             stopifnot(inherits(plan_list, default))
  [14:16:45.978]             plan_b <- future::plan("list")
  [14:16:45.978]             str(plan_b)
  [14:16:45.978]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:45.978]                 default))
  [14:16:45.978]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:45.978]         }, error = identity)
  [14:16:45.978]     })
  [14:16:45.978] }
  [14:16:46.593]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:16:45.980]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.593]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:16:45.981] List of 3
  [14:16:45.981]  $ ...future.x_ii: NULL
  [14:16:45.981]  $ a             : int 1
  [14:16:45.981]  $ plan_a        :List of 1
  [14:16:45.981]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:45.981]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:16:45.981]     ...)  
  [14:16:45.981]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:16:45.981]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:45.981]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:45.981]  - attr(*, "where")=List of 3
  [14:16:45.981]   ..$ ...future.x_ii:<environment: 0x345a500> 
  [14:16:45.981]   ..$ a             :<environment: 0x3244030> 
  [14:16:45.981]   ..$ plan_a        :<environment: 0x3244030> 
  [14:16:45.981]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:45.981]  - attr(*, "resolved")= logi FALSE
  [14:16:45.981]  - attr(*, "total_size")= num 40624
  [14:16:46.594]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:16:46.001]   - packages: [2] 'doFuture', 'utils'
  [14:16:46.595]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:16:46.002] - identifying globals and packages ... DONE
  [14:16:46.595]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:16:46.003] Number of chunks: 1
  [14:16:46.596]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:16:46.004] Number of futures (= number of chunks): 1
  [14:16:46.596]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:16:46.006] Launching 1 futures (chunks) ...
  [14:16:46.597]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:16:46.007] Chunk #1 of 1 ...
  [14:16:46.598]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:16:46.007]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:46.598]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:16:46.008] getGlobalsAndPackages() ...
  [14:16:46.599]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:16:46.009] Searching for globals...
  [14:16:46.600]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:16:46.011] 
  [14:16:46.600]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:16:46.013] Searching for globals ... DONE
  [14:16:46.601]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:16:46.014] - globals: [0] <none>
  [14:16:46.602]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:16:46.014] getGlobalsAndPackages() ... DONE
  [14:16:46.602]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:16:46.015] 
  [14:16:46.603]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:16:46.016] 
  [14:16:46.603]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:16:46.017]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:46.604]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:16:46.018] getGlobalsAndPackages() ...
  [14:16:46.605]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:16:46.019] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.605]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:16:46.020] Resolving globals: FALSE
  [14:16:46.606]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:16:46.023] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:16:46.607]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:16:46.024] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.607]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:16:46.025] 
  [14:16:46.608]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:16:46.026] getGlobalsAndPackages() ... DONE
  [14:16:46.608]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:16:46.030] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:46.609]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:16:46.037] Packages needed by future strategies (n = 0): <none>
  [14:16:46.610]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:16:46.046] {
  [14:16:46.046]     {
  [14:16:46.046]         ...future.startTime <- base::Sys.time()
  [14:16:46.046]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:46.046]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:46.046]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:46.046]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:46.046]             future.resolve.recursive = NULL, width = 80L)
  [14:16:46.046]         {
  [14:16:46.046]             {
  [14:16:46.046]                 {
  [14:16:46.046]                   base::local({
  [14:16:46.046]                     has_future <- base::requireNamespace("future", 
  [14:16:46.046]                       quietly = TRUE)
  [14:16:46.046]                     version <- if (has_future) 
  [14:16:46.046]                       utils::packageVersion("future")
  [14:16:46.046]                     else NULL
  [14:16:46.046]                     if (!has_future || version < "1.8.0") {
  [14:16:46.046]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:46.046]                         "", base::R.version$version.string), 
  [14:16:46.046]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:46.046]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:46.046]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:46.046]                           "release", "version")], collapse = " "), 
  [14:16:46.046]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:46.046]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:46.046]                         info)
  [14:16:46.046]                       info <- base::paste(info, collapse = "; ")
  [14:16:46.046]                       if (!has_future) {
  [14:16:46.046]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:46.046]                           info)
  [14:16:46.046]                       }
  [14:16:46.046]                       else {
  [14:16:46.046]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:46.046]                           info, version)
  [14:16:46.046]                       }
  [14:16:46.046]                       base::stop(msg)
  [14:16:46.046]                     }
  [14:16:46.046]                   })
  [14:16:46.046]                 }
  [14:16:46.046]                 base::local({
  [14:16:46.046]                   for (pkg in c("doFuture", "utils")) {
  [14:16:46.046]                     base::loadNamespace(pkg)
  [14:16:46.046]                     base::library(pkg, character.only = TRUE)
  [14:16:46.046]                   }
  [14:16:46.046]                 })
  [14:16:46.046]             }
  [14:16:46.046]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:46.046]         }
  [14:16:46.046]     }
  [14:16:46.046]     if (base::is.na(TRUE)) {
  [14:16:46.046]     }
  [14:16:46.046]     else {
  [14:16:46.046]         if (TRUE) {
  [14:16:46.046]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:46.046]                 open = "w")
  [14:16:46.046]         }
  [14:16:46.046]         else {
  [14:16:46.046]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:46.046]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:46.046]         }
  [14:16:46.046]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:46.046]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:46.046]             base::sink(type = "output", split = FALSE)
  [14:16:46.046]             base::close(...future.stdout)
  [14:16:46.046]         }, add = TRUE)
  [14:16:46.046]     }
  [14:16:46.046]     ...future.frame <- base::sys.nframe()
  [14:16:46.046]     ...future.conditions <- base::list()
  [14:16:46.046]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:46.046]     ...future.result <- base::tryCatch({
  [14:16:46.046]         base::withCallingHandlers({
  [14:16:46.046]             ...future.value <- base::withVisible(base::local({
  [14:16:46.046]                 doFuture::registerDoFuture()
  [14:16:46.046]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.046]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.046]                   b <- NULL
  [14:16:46.046]                   ...future.env <- environment()
  [14:16:46.046]                   local({
  [14:16:46.046]                     for (name in names(...future.x_jj)) {
  [14:16:46.046]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.046]                         inherits = FALSE)
  [14:16:46.046]                     }
  [14:16:46.046]                   })
  [14:16:46.046]                   tryCatch({
  [14:16:46.046]                     plan_list <- future::plan("next")
  [14:16:46.046]                     message(capture.output(print(plan_list)))
  [14:16:46.046]                     stopifnot(inherits(plan_list, "future"))
  [14:16:46.046]                     default <- getOption("future.plan", "sequential")
  [14:16:46.046]                     if (is.function(default)) 
  [14:16:46.046]                       default <- class(default)
  [14:16:46.046]                     stopifnot(inherits(plan_list, default))
  [14:16:46.046]                     plan_b <- future::plan("list")
  [14:16:46.046]                     str(plan_b)
  [14:16:46.046]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:46.046]                       inherits(plan_b[[1]], default))
  [14:16:46.046]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.046]                   }, error = identity)
  [14:16:46.046]                 })
  [14:16:46.046]             }))
  [14:16:46.046]             future::FutureResult(value = ...future.value$value, 
  [14:16:46.046]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.046]                   ...future.rng), started = ...future.startTime, 
  [14:16:46.046]                 version = "1.8")
  [14:16:46.046]         }, condition = base::local({
  [14:16:46.046]             c <- base::c
  [14:16:46.046]             inherits <- base::inherits
  [14:16:46.046]             invokeRestart <- base::invokeRestart
  [14:16:46.046]             length <- base::length
  [14:16:46.046]             list <- base::list
  [14:16:46.046]             seq.int <- base::seq.int
  [14:16:46.046]             signalCondition <- base::signalCondition
  [14:16:46.046]             sys.calls <- base::sys.calls
  [14:16:46.046]             Sys.time <- base::Sys.time
  [14:16:46.046]             `[[` <- base::`[[`
  [14:16:46.046]             `+` <- base::`+`
  [14:16:46.046]             `<<-` <- base::`<<-`
  [14:16:46.046]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:46.046]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:46.046]                   3L)]
  [14:16:46.046]             }
  [14:16:46.046]             function(cond) {
  [14:16:46.046]                 if (inherits(cond, "error")) {
  [14:16:46.046]                   sessionInformation <- function() {
  [14:16:46.046]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:46.046]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:46.046]                       search = base::search(), system = base::Sys.info())
  [14:16:46.046]                   }
  [14:16:46.046]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.046]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:46.046]                     cond$call), session = sessionInformation(), 
  [14:16:46.046]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:46.046]                   signalCondition(cond)
  [14:16:46.046]                 }
  [14:16:46.046]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:46.046]                 ))) {
  [14:16:46.046]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:46.046]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.046]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:46.046]                   if (!signal) {
  [14:16:46.046]                     muffleCondition <- function (cond) 
  [14:16:46.046]                     {
  [14:16:46.046]                       inherits <- base::inherits
  [14:16:46.046]                       invokeRestart <- base::invokeRestart
  [14:16:46.046]                       muffled <- FALSE
  [14:16:46.046]                       if (inherits(cond, "message")) {
  [14:16:46.046]                         invokeRestart("muffleMessage")
  [14:16:46.046]                         muffled <- TRUE
  [14:16:46.046]                       }
  [14:16:46.046]                       else if (inherits(cond, "warning")) {
  [14:16:46.046]                         invokeRestart("muffleWarning")
  [14:16:46.046]                         muffled <- TRUE
  [14:16:46.046]                       }
  [14:16:46.046]                       else if (inherits(cond, "condition")) {
  [14:16:46.046]                         computeRestarts <- base::computeRestarts
  [14:16:46.046]                         grepl <- base::grepl
  [14:16:46.046]                         is.null <- base::is.null
  [14:16:46.046]                         restarts <- computeRestarts(cond)
  [14:16:46.046]                         for (restart in restarts) {
  [14:16:46.046]                           name <- restart$name
  [14:16:46.046]                           if (is.null(name)) 
  [14:16:46.046]                             next
  [14:16:46.046]                           if (!grepl("^muffle", name)) 
  [14:16:46.046]                             next
  [14:16:46.046]                           invokeRestart(restart)
  [14:16:46.046]                           muffled <- TRUE
  [14:16:46.046]                           break
  [14:16:46.046]                         }
  [14:16:46.046]                       }
  [14:16:46.046]                       invisible(muffled)
  [14:16:46.046]                     }
  [14:16:46.046]                     muffleCondition(cond)
  [14:16:46.046]                   }
  [14:16:46.046]                 }
  [14:16:46.046]             }
  [14:16:46.046]         }))
  [14:16:46.046]     }, error = function(ex) {
  [14:16:46.046]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:46.046]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.046]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:46.046]     }, finally = {
  [14:16:46.046]         {
  [14:16:46.046]             NULL
  [14:16:46.046]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:46.046]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:46.046]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:46.046]                 label = NULL, ...) 
  [14:16:46.046]             {
  [14:16:46.046]                 if (substitute) 
  [14:16:46.046]                   expr <- substitute(expr)
  [14:16:46.046]                 local <- as.logical(local)
  [14:16:46.046]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:46.046]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:46.046]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:46.046]                   label = label, ...)
  [14:16:46.046]                 if (!future$lazy) 
  [14:16:46.046]                   future <- run(future)
  [14:16:46.046]                 invisible(future)
  [14:16:46.046]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:46.046]         }
  [14:16:46.046]         base::options(...future.oldOptions)
  [14:16:46.046]     })
  [14:16:46.046]     Sys.time
  [14:16:46.046]     if (base::is.na(TRUE)) {
  [14:16:46.046]     }
  [14:16:46.046]     else {
  [14:16:46.046]         base::sink(type = "output", split = FALSE)
  [14:16:46.046]         if (TRUE) {
  [14:16:46.046]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:46.046]         }
  [14:16:46.046]         else {
  [14:16:46.046]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:46.046]         }
  [14:16:46.046]         base::close(...future.stdout)
  [14:16:46.046]         ...future.stdout <- NULL
  [14:16:46.046]     }
  [14:16:46.046]     ...future.result$conditions <- ...future.conditions
  [14:16:46.046]     ...future.result
  [14:16:46.046] }
  [14:16:46.610]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:16:46.058] plan(): Setting new future strategy stack:
  [14:16:46.611]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:16:46.059] List of future strategies:
  [14:16:46.059] 1. sequential:
  [14:16:46.059]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.059]    - tweaked: FALSE
  [14:16:46.059]    - call: NULL
  [14:16:46.611]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:16:46.061] plan(): nbrOfWorkers() = 1
  [14:16:46.612]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:16:46.133] plan(): Setting new future strategy stack:
  [14:16:46.613]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:16:46.134] List of future strategies:
  [14:16:46.134] 1. sequential:
  [14:16:46.134]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.134]    - tweaked: FALSE
  [14:16:46.134]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.613]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:16:46.136] plan(): nbrOfWorkers() = 1
  [14:16:46.614]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:16:46.137] SequentialFuture started (and completed)
  [14:16:46.615]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:16:46.138] signalConditions() ...
  [14:16:46.615]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:16:46.139]  - include = 'immediateCondition'
  [14:16:46.616]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:16:46.140]  - exclude = 
  [14:16:46.616]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:16:46.140]  - resignal = FALSE
  [14:16:46.617]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:16:46.141]  - Number of conditions: 3
  [14:16:46.618]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:16:46.142] signalConditions() ... done
  [14:16:46.618]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:16:46.143] Chunk #1 of 1 ... DONE
  [14:16:46.619]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:16:46.143] Launching 1 futures (chunks) ... DONE
  [14:16:46.619]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:16:46.144] - resolving futures
  [14:16:46.620]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:16:46.145]   - gathering results & relaying conditions (except errors)
  [14:16:46.621]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:16:46.146] resolve() on list ...
  [14:16:46.621]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:16:46.146]  recursive: 0
  [14:16:46.622]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:16:46.147]  length: 1
  [14:16:46.623]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:16:46.148] 
  [14:16:46.623]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:16:46.149] Future #1
  [14:16:46.624]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:16:46.149] signalConditions() ...
  [14:16:46.624]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:16:46.150]  - include = 'immediateCondition'
  [14:16:46.625]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:16:46.151]  - exclude = 
  [14:16:46.626]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:16:46.152]  - resignal = FALSE
  [14:16:46.626]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:16:46.152]  - Number of conditions: 3
  [14:16:46.627]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:16:46.153] signalConditions() ... done
  [14:16:46.628]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:16:46.154] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:46.628]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:16:46.155] - nx: 1
  [14:16:46.629]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:16:46.155] - relay: TRUE
  [14:16:46.629]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:16:46.156] - stdout: TRUE
  [14:16:46.630]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:16:46.157] - signal: TRUE
  [14:16:46.631]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:16:46.158] - resignal: FALSE
  [14:16:46.631]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:16:46.158] - force: FALSE
  [14:16:46.632]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:16:46.159] - relayed: [n=1] FALSE
  [14:16:46.633]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:16:46.160] - queued futures: [n=1] FALSE
  [14:16:46.633]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:16:46.161]  - until=1
  [14:16:46.634]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:16:46.162]  - relaying element #1
  [14:16:46.634]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:16:46.162] signalConditions() ...
  [14:16:46.635]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:16:46.163]  - include = 'immediateCondition'
  [14:16:46.636]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:16:46.164]  - exclude = 
  [14:16:46.636]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:16:46.165]  - resignal = FALSE
  [14:16:46.637]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:16:46.166]  - Number of conditions: 3
  [14:16:46.637]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:16:46.166] signalConditions() ... done
  [14:16:46.638]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:16:46.167] signalConditions() ...
  [14:16:46.638]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:16:46.168]  - include = 'immediateCondition'
  [14:16:46.639]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:16:46.169]  - exclude = 
  [14:16:46.640]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:16:46.170]  - resignal = FALSE
  [14:16:46.640]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:16:46.171]  - Number of conditions: 3
  [14:16:46.641]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:16:46.171] signalConditions() ... done
  [14:16:46.641]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:16:46.172] signalConditions() ...
  [14:16:46.642]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:16:46.173]  - include = 'condition'
  [14:16:46.643]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:16:46.174]  - exclude = 'immediateCondition'
  [14:16:46.643]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:16:46.175]  - resignal = FALSE
  [14:16:46.644]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:16:46.175]  - Number of conditions: 3
  [14:16:46.645]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:16:46.176]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:46.645]  - Condition #104: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.646]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:16:46.177]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:46.646]  - Condition #106: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.647]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:16:46.178]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:46.648]  - Condition #108: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.648]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:16:46.179] signalConditions() ... done
  [14:16:46.649]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:16:46.180] - relayed: [n=1] TRUE
  [14:16:46.650]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:16:46.181] - queued futures: [n=1] TRUE
  [14:16:46.650]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:16:46.182] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:46.651]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:16:46.182]  length: 0 (resolved future 1)
  [14:16:46.652]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:16:46.183] Relaying remaining futures
  [14:16:46.652]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:16:46.184] signalConditionsASAP(NULL, pos=0) ...
  [14:16:46.653]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:16:46.185] - nx: 1
  [14:16:46.653]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:16:46.185] - relay: TRUE
  [14:16:46.654]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:16:46.186] - stdout: TRUE
  [14:16:46.655]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:16:46.187] - signal: TRUE
  [14:16:46.655]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:16:46.187] - resignal: FALSE
  [14:16:46.659]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:16:46.188] - force: FALSE
  [14:16:46.660]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:16:46.189] - relayed: [n=1] TRUE
  [14:16:46.661]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:16:46.190] - queued futures: [n=1] TRUE
  [14:16:46.662]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:16:46.662]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:16:46.191] - relayed: [n=1] TRUE
  [14:16:46.663]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:16:46.192] - queued futures: [n=1] TRUE
  [14:16:46.663]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:16:46.193] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:46.664]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:16:46.193] resolve() on list ... DONE
  [14:16:46.665]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:16:46.194] - collecting values of futures
  [14:16:46.665]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:16:46.195] signalConditions() ...
  [14:16:46.666]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:16:46.196]  - include = 'immediateCondition'
  [14:16:46.667]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:16:46.196]  - exclude = 
  [14:16:46.667]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:16:46.197]  - resignal = FALSE
  [14:16:46.668]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:16:46.198]  - Number of conditions: 3
  [14:16:46.668]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:16:46.199] signalConditions() ... done
  [14:16:46.669]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:16:46.200] - accumulating results
  [14:16:46.670]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:16:46.202] - processing errors (handler = 'stop')
  [14:16:46.670]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:16:46.203] - extracting results
  [14:16:46.671]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:16:46.203] doFuture() ... DONE
  [14:16:46.671]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:16:46.672]  - Condition #141: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:16:46.673]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:16:46.283] doFuture() ...
  [14:16:46.673]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:16:46.286] - dummy globals (as locals): [1] 'b'
  [14:16:46.674]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:16:46.288] - R expression:
  [14:16:46.675]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:16:46.289] {
  [14:16:46.289]     doFuture::registerDoFuture()
  [14:16:46.289]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.289]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.289]         b <- NULL
  [14:16:46.289]         ...future.env <- environment()
  [14:16:46.289]         local({
  [14:16:46.289]             for (name in names(...future.x_jj)) {
  [14:16:46.289]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.289]                   inherits = FALSE)
  [14:16:46.289]             }
  [14:16:46.289]         })
  [14:16:46.289]         tryCatch({
  [14:16:46.289]             plan_list <- future::plan("next")
  [14:16:46.289]             message(capture.output(print(plan_list)))
  [14:16:46.289]             stopifnot(inherits(plan_list, "future"))
  [14:16:46.289]             default <- getOption("future.plan", "sequential")
  [14:16:46.289]             if (is.function(default)) 
  [14:16:46.289]                 default <- class(default)
  [14:16:46.289]             stopifnot(inherits(plan_list, default))
  [14:16:46.289]             plan_b <- future::plan("list")
  [14:16:46.289]             str(plan_b)
  [14:16:46.289]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:46.289]                 default))
  [14:16:46.289]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.289]         }, error = identity)
  [14:16:46.289]     })
  [14:16:46.289] }
  [14:16:46.675]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:16:46.292] - identifying globals and packages ...
  [14:16:46.676]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:16:46.293] getGlobalsAndPackages() ...
  [14:16:46.676]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:16:46.294] Searching for globals...
  [14:16:46.677]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:16:46.338] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:16:46.678]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:16:46.339] Searching for globals ... DONE
  [14:16:46.678]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:16:46.340] Resolving globals: FALSE
  [14:16:46.679]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:16:46.345] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:16:46.680]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:16:46.346] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.680]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:16:46.347] - packages: [1] 'utils'
  [14:16:46.681]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:16:46.348] getGlobalsAndPackages() ... DONE
  [14:16:46.681]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:16:46.349] List of 3
  [14:16:46.349]  $ ...future.x_ii: NULL
  [14:16:46.349]  $ a             : int 2
  [14:16:46.349]  $ plan_a        :List of 1
  [14:16:46.349]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:46.349]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:16:46.349]     ...)  
  [14:16:46.349]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:16:46.349]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:46.349]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:46.349]  - attr(*, "where")=List of 3
  [14:16:46.349]   ..$ ...future.x_ii:<environment: 0x3377438> 
  [14:16:46.349]   ..$ a             :<environment: 0x3306560> 
  [14:16:46.349]   ..$ plan_a        :<environment: 0x3306560> 
  [14:16:46.349]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:46.349]  - attr(*, "resolved")= logi FALSE
  [14:16:46.349]  - attr(*, "total_size")= num 40624
  [14:16:46.682]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:16:46.373]   - R expression:
  [14:16:46.683]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:16:46.374] {
  [14:16:46.374]     doFuture::registerDoFuture()
  [14:16:46.374]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.374]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.374]         b <- NULL
  [14:16:46.374]         ...future.env <- environment()
  [14:16:46.374]         local({
  [14:16:46.374]             for (name in names(...future.x_jj)) {
  [14:16:46.374]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.374]                   inherits = FALSE)
  [14:16:46.374]             }
  [14:16:46.374]         })
  [14:16:46.374]         tryCatch({
  [14:16:46.374]             plan_list <- future::plan("next")
  [14:16:46.374]             message(capture.output(print(plan_list)))
  [14:16:46.374]             stopifnot(inherits(plan_list, "future"))
  [14:16:46.374]             default <- getOption("future.plan", "sequential")
  [14:16:46.374]             if (is.function(default)) 
  [14:16:46.374]                 default <- class(default)
  [14:16:46.374]             stopifnot(inherits(plan_list, default))
  [14:16:46.374]             plan_b <- future::plan("list")
  [14:16:46.374]             str(plan_b)
  [14:16:46.374]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:46.374]                 default))
  [14:16:46.374]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.374]         }, error = identity)
  [14:16:46.374]     })
  [14:16:46.374] }
  [14:16:46.683]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:16:46.376]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.684]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:16:46.376] List of 3
  [14:16:46.376]  $ ...future.x_ii: NULL
  [14:16:46.376]  $ a             : int 2
  [14:16:46.376]  $ plan_a        :List of 1
  [14:16:46.376]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:46.376]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:16:46.376]     ...)  
  [14:16:46.376]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:16:46.376]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:46.376]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:46.376]  - attr(*, "where")=List of 3
  [14:16:46.376]   ..$ ...future.x_ii:<environment: 0x3377438> 
  [14:16:46.376]   ..$ a             :<environment: 0x3306560> 
  [14:16:46.376]   ..$ plan_a        :<environment: 0x3306560> 
  [14:16:46.376]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:46.376]  - attr(*, "resolved")= logi FALSE
  [14:16:46.376]  - attr(*, "total_size")= num 40624
  [14:16:46.685]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:16:46.397]   - packages: [2] 'doFuture', 'utils'
  [14:16:46.685]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:16:46.398] - identifying globals and packages ... DONE
  [14:16:46.686]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:16:46.399] Number of chunks: 1
  [14:16:46.686]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:16:46.399] Number of futures (= number of chunks): 1
  [14:16:46.687]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:16:46.401] Launching 1 futures (chunks) ...
  [14:16:46.688]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:16:46.402] Chunk #1 of 1 ...
  [14:16:46.688]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:16:46.402]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:46.689]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:16:46.403] getGlobalsAndPackages() ...
  [14:16:46.689]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:16:46.404] Searching for globals...
  [14:16:46.690]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:16:46.406] 
  [14:16:46.691]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:16:46.407] Searching for globals ... DONE
  [14:16:46.691]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:16:46.407] - globals: [0] <none>
  [14:16:46.692]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:16:46.408] getGlobalsAndPackages() ... DONE
  [14:16:46.692]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:16:46.409] 
  [14:16:46.693]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:16:46.410] 
  [14:16:46.693]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:16:46.410]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:46.694]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:16:46.411] getGlobalsAndPackages() ...
  [14:16:46.695]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:16:46.412] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.695]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:16:46.413] Resolving globals: FALSE
  [14:16:46.696]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:16:46.415] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:16:46.696]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:16:46.416] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:46.697]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:16:46.417] 
  [14:16:46.697]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:16:46.418] getGlobalsAndPackages() ... DONE
  [14:16:46.698]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:16:46.422] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:46.698]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:16:46.423] Packages needed by future strategies (n = 0): <none>
  [14:16:46.699]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:16:46.436] {
  [14:16:46.436]     {
  [14:16:46.436]         ...future.startTime <- base::Sys.time()
  [14:16:46.436]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:46.436]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:46.436]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:46.436]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:46.436]             future.resolve.recursive = NULL, width = 80L)
  [14:16:46.436]         {
  [14:16:46.436]             {
  [14:16:46.436]                 {
  [14:16:46.436]                   base::local({
  [14:16:46.436]                     has_future <- base::requireNamespace("future", 
  [14:16:46.436]                       quietly = TRUE)
  [14:16:46.436]                     version <- if (has_future) 
  [14:16:46.436]                       utils::packageVersion("future")
  [14:16:46.436]                     else NULL
  [14:16:46.436]                     if (!has_future || version < "1.8.0") {
  [14:16:46.436]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:46.436]                         "", base::R.version$version.string), 
  [14:16:46.436]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:46.436]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:46.436]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:46.436]                           "release", "version")], collapse = " "), 
  [14:16:46.436]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:46.436]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:46.436]                         info)
  [14:16:46.436]                       info <- base::paste(info, collapse = "; ")
  [14:16:46.436]                       if (!has_future) {
  [14:16:46.436]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:46.436]                           info)
  [14:16:46.436]                       }
  [14:16:46.436]                       else {
  [14:16:46.436]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:46.436]                           info, version)
  [14:16:46.436]                       }
  [14:16:46.436]                       base::stop(msg)
  [14:16:46.436]                     }
  [14:16:46.436]                   })
  [14:16:46.436]                 }
  [14:16:46.436]                 base::local({
  [14:16:46.436]                   for (pkg in c("doFuture", "utils")) {
  [14:16:46.436]                     base::loadNamespace(pkg)
  [14:16:46.436]                     base::library(pkg, character.only = TRUE)
  [14:16:46.436]                   }
  [14:16:46.436]                 })
  [14:16:46.436]             }
  [14:16:46.436]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:46.436]         }
  [14:16:46.436]     }
  [14:16:46.436]     if (base::is.na(TRUE)) {
  [14:16:46.436]     }
  [14:16:46.436]     else {
  [14:16:46.436]         if (TRUE) {
  [14:16:46.436]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:46.436]                 open = "w")
  [14:16:46.436]         }
  [14:16:46.436]         else {
  [14:16:46.436]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:46.436]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:46.436]         }
  [14:16:46.436]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:46.436]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:46.436]             base::sink(type = "output", split = FALSE)
  [14:16:46.436]             base::close(...future.stdout)
  [14:16:46.436]         }, add = TRUE)
  [14:16:46.436]     }
  [14:16:46.436]     ...future.frame <- base::sys.nframe()
  [14:16:46.436]     ...future.conditions <- base::list()
  [14:16:46.436]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:46.436]     ...future.result <- base::tryCatch({
  [14:16:46.436]         base::withCallingHandlers({
  [14:16:46.436]             ...future.value <- base::withVisible(base::local({
  [14:16:46.436]                 doFuture::registerDoFuture()
  [14:16:46.436]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.436]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.436]                   b <- NULL
  [14:16:46.436]                   ...future.env <- environment()
  [14:16:46.436]                   local({
  [14:16:46.436]                     for (name in names(...future.x_jj)) {
  [14:16:46.436]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.436]                         inherits = FALSE)
  [14:16:46.436]                     }
  [14:16:46.436]                   })
  [14:16:46.436]                   tryCatch({
  [14:16:46.436]                     plan_list <- future::plan("next")
  [14:16:46.436]                     message(capture.output(print(plan_list)))
  [14:16:46.436]                     stopifnot(inherits(plan_list, "future"))
  [14:16:46.436]                     default <- getOption("future.plan", "sequential")
  [14:16:46.436]                     if (is.function(default)) 
  [14:16:46.436]                       default <- class(default)
  [14:16:46.436]                     stopifnot(inherits(plan_list, default))
  [14:16:46.436]                     plan_b <- future::plan("list")
  [14:16:46.436]                     str(plan_b)
  [14:16:46.436]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:46.436]                       inherits(plan_b[[1]], default))
  [14:16:46.436]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.436]                   }, error = identity)
  [14:16:46.436]                 })
  [14:16:46.436]             }))
  [14:16:46.436]             future::FutureResult(value = ...future.value$value, 
  [14:16:46.436]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.436]                   ...future.rng), started = ...future.startTime, 
  [14:16:46.436]                 version = "1.8")
  [14:16:46.436]         }, condition = base::local({
  [14:16:46.436]             c <- base::c
  [14:16:46.436]             inherits <- base::inherits
  [14:16:46.436]             invokeRestart <- base::invokeRestart
  [14:16:46.436]             length <- base::length
  [14:16:46.436]             list <- base::list
  [14:16:46.436]             seq.int <- base::seq.int
  [14:16:46.436]             signalCondition <- base::signalCondition
  [14:16:46.436]             sys.calls <- base::sys.calls
  [14:16:46.436]             Sys.time <- base::Sys.time
  [14:16:46.436]             `[[` <- base::`[[`
  [14:16:46.436]             `+` <- base::`+`
  [14:16:46.436]             `<<-` <- base::`<<-`
  [14:16:46.436]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:46.436]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:46.436]                   3L)]
  [14:16:46.436]             }
  [14:16:46.436]             function(cond) {
  [14:16:46.436]                 if (inherits(cond, "error")) {
  [14:16:46.436]                   sessionInformation <- function() {
  [14:16:46.436]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:46.436]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:46.436]                       search = base::search(), system = base::Sys.info())
  [14:16:46.436]                   }
  [14:16:46.436]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.436]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:46.436]                     cond$call), session = sessionInformation(), 
  [14:16:46.436]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:46.436]                   signalCondition(cond)
  [14:16:46.436]                 }
  [14:16:46.436]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:46.436]                 ))) {
  [14:16:46.436]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:46.436]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.436]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:46.436]                   if (!signal) {
  [14:16:46.436]                     muffleCondition <- function (cond) 
  [14:16:46.436]                     {
  [14:16:46.436]                       inherits <- base::inherits
  [14:16:46.436]                       invokeRestart <- base::invokeRestart
  [14:16:46.436]                       muffled <- FALSE
  [14:16:46.436]                       if (inherits(cond, "message")) {
  [14:16:46.436]                         invokeRestart("muffleMessage")
  [14:16:46.436]                         muffled <- TRUE
  [14:16:46.436]                       }
  [14:16:46.436]                       else if (inherits(cond, "warning")) {
  [14:16:46.436]                         invokeRestart("muffleWarning")
  [14:16:46.436]                         muffled <- TRUE
  [14:16:46.436]                       }
  [14:16:46.436]                       else if (inherits(cond, "condition")) {
  [14:16:46.436]                         computeRestarts <- base::computeRestarts
  [14:16:46.436]                         grepl <- base::grepl
  [14:16:46.436]                         is.null <- base::is.null
  [14:16:46.436]                         restarts <- computeRestarts(cond)
  [14:16:46.436]                         for (restart in restarts) {
  [14:16:46.436]                           name <- restart$name
  [14:16:46.436]                           if (is.null(name)) 
  [14:16:46.436]                             next
  [14:16:46.436]                           if (!grepl("^muffle", name)) 
  [14:16:46.436]                             next
  [14:16:46.436]                           invokeRestart(restart)
  [14:16:46.436]                           muffled <- TRUE
  [14:16:46.436]                           break
  [14:16:46.436]                         }
  [14:16:46.436]                       }
  [14:16:46.436]                       invisible(muffled)
  [14:16:46.436]                     }
  [14:16:46.436]                     muffleCondition(cond)
  [14:16:46.436]                   }
  [14:16:46.436]                 }
  [14:16:46.436]             }
  [14:16:46.436]         }))
  [14:16:46.436]     }, error = function(ex) {
  [14:16:46.436]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:46.436]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.436]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:46.436]     }, finally = {
  [14:16:46.436]         {
  [14:16:46.436]             NULL
  [14:16:46.436]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:46.436]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:46.436]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:46.436]                 label = NULL, ...) 
  [14:16:46.436]             {
  [14:16:46.436]                 if (substitute) 
  [14:16:46.436]                   expr <- substitute(expr)
  [14:16:46.436]                 local <- as.logical(local)
  [14:16:46.436]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:46.436]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:46.436]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:46.436]                   label = label, ...)
  [14:16:46.436]                 if (!future$lazy) 
  [14:16:46.436]                   future <- run(future)
  [14:16:46.436]                 invisible(future)
  [14:16:46.436]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:46.436]         }
  [14:16:46.436]         base::options(...future.oldOptions)
  [14:16:46.436]     })
  [14:16:46.436]     Sys.time
  [14:16:46.436]     if (base::is.na(TRUE)) {
  [14:16:46.436]     }
  [14:16:46.436]     else {
  [14:16:46.436]         base::sink(type = "output", split = FALSE)
  [14:16:46.436]         if (TRUE) {
  [14:16:46.436]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:46.436]         }
  [14:16:46.436]         else {
  [14:16:46.436]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:46.436]         }
  [14:16:46.436]         base::close(...future.stdout)
  [14:16:46.436]         ...future.stdout <- NULL
  [14:16:46.436]     }
  [14:16:46.436]     ...future.result$conditions <- ...future.conditions
  [14:16:46.436]     ...future.result
  [14:16:46.436] }
  [14:16:46.700]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:16:46.448] plan(): Setting new future strategy stack:
  [14:16:46.700]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:16:46.449] List of future strategies:
  [14:16:46.449] 1. sequential:
  [14:16:46.449]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.449]    - tweaked: FALSE
  [14:16:46.449]    - call: NULL
  [14:16:46.701]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:16:46.451] plan(): nbrOfWorkers() = 1
  [14:16:46.701]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:16:46.473] plan(): Setting new future strategy stack:
  [14:16:46.702]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:16:46.474] List of future strategies:
  [14:16:46.474] 1. sequential:
  [14:16:46.474]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.474]    - tweaked: FALSE
  [14:16:46.474]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.702]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:16:46.475] plan(): nbrOfWorkers() = 1
  [14:16:46.703]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:16:46.476] SequentialFuture started (and completed)
  [14:16:46.704]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:16:46.477] signalConditions() ...
  [14:16:46.704]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:16:46.478]  - include = 'immediateCondition'
  [14:16:46.705]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:16:46.479]  - exclude = 
  [14:16:46.705]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:16:46.480]  - resignal = FALSE
  [14:16:46.706]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:16:46.480]  - Number of conditions: 3
  [14:16:46.706]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:16:46.481] signalConditions() ... done
  [14:16:46.707]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:16:46.482] Chunk #1 of 1 ... DONE
  [14:16:46.708]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:16:46.483] Launching 1 futures (chunks) ... DONE
  [14:16:46.708]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:16:46.484] - resolving futures
  [14:16:46.709]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:16:46.484]   - gathering results & relaying conditions (except errors)
  [14:16:46.710]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:16:46.485] resolve() on list ...
  [14:16:46.710]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:16:46.486]  recursive: 0
  [14:16:46.711]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:16:46.487]  length: 1
  [14:16:46.711]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:16:46.487] 
  [14:16:46.712]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:16:46.488] Future #1
  [14:16:46.713]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:16:46.489] signalConditions() ...
  [14:16:46.713]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:16:46.490]  - include = 'immediateCondition'
  [14:16:46.714]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:16:46.491]  - exclude = 
  [14:16:46.715]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:16:46.492]  - resignal = FALSE
  [14:16:46.715]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:16:46.492]  - Number of conditions: 3
  [14:16:46.716]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:16:46.493] signalConditions() ... done
  [14:16:46.716]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:16:46.494] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:46.717]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:16:46.495] - nx: 1
  [14:16:46.718]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:16:46.496] - relay: TRUE
  [14:16:46.718]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:16:46.496] - stdout: TRUE
  [14:16:46.719]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:16:46.497] - signal: TRUE
  [14:16:46.720]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:16:46.498] - resignal: FALSE
  [14:16:46.720]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:16:46.499] - force: FALSE
  [14:16:46.721]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:16:46.499] - relayed: [n=1] FALSE
  [14:16:46.721]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:16:46.500] - queued futures: [n=1] FALSE
  [14:16:46.722]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:16:46.501]  - until=1
  [14:16:46.723]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:16:46.502]  - relaying element #1
  [14:16:46.723]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:16:46.503] signalConditions() ...
  [14:16:46.724]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:16:46.503]  - include = 'immediateCondition'
  [14:16:46.725]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:16:46.504]  - exclude = 
  [14:16:46.725]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:16:46.505]  - resignal = FALSE
  [14:16:46.726]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:16:46.506]  - Number of conditions: 3
  [14:16:46.727]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:16:46.507] signalConditions() ... done
  [14:16:46.727]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:16:46.508] signalConditions() ...
  [14:16:46.728]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:16:46.509]  - include = 'immediateCondition'
  [14:16:46.728]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:16:46.509]  - exclude = 
  [14:16:46.729]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:16:46.510]  - resignal = FALSE
  [14:16:46.730]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:16:46.511]  - Number of conditions: 3
  [14:16:46.730]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:16:46.512] signalConditions() ... done
  [14:16:46.731]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:16:46.513] signalConditions() ...
  [14:16:46.731]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:16:46.514]  - include = 'condition'
  [14:16:46.732]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:16:46.514]  - exclude = 'immediateCondition'
  [14:16:46.733]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:16:46.515]  - resignal = FALSE
  [14:16:46.733]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:16:46.516]  - Number of conditions: 3
  [14:16:46.734]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:16:46.517]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:46.735]  - Condition #244: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.735]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:16:46.518]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:46.736]  - Condition #246: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.736]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:16:46.519]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:46.737]  - Condition #248: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:46.738]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:16:46.520] signalConditions() ... done
  [14:16:46.738]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:16:46.521] - relayed: [n=1] TRUE
  [14:16:46.739]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:16:46.522] - queued futures: [n=1] TRUE
  [14:16:46.739]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:16:46.523] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:46.740]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:16:46.524]  length: 0 (resolved future 1)
  [14:16:46.740]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:16:46.525] Relaying remaining futures
  [14:16:46.741]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:16:46.525] signalConditionsASAP(NULL, pos=0) ...
  [14:16:46.742]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:16:46.526] - nx: 1
  [14:16:46.742]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:16:46.527] - relay: TRUE
  [14:16:46.743]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:16:46.528] - stdout: TRUE
  [14:16:46.743]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:16:46.528] - signal: TRUE
  [14:16:46.744]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:16:46.529] - resignal: FALSE
  [14:16:46.744]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:16:46.530] - force: FALSE
  [14:16:46.745]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:16:46.531] - relayed: [n=1] TRUE
  [14:16:46.746]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:16:46.531] - queued futures: [n=1] TRUE
  [14:16:46.746]  - Condition #264: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:16:46.747]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:16:46.533] - relayed: [n=1] TRUE
  [14:16:46.747]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:16:46.534] - queued futures: [n=1] TRUE
  [14:16:46.748]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:16:46.535] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:46.748]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:16:46.535] resolve() on list ... DONE
  [14:16:46.749]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:16:46.536] - collecting values of futures
  [14:16:46.750]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:16:46.537] signalConditions() ...
  [14:16:46.750]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:16:46.538]  - include = 'immediateCondition'
  [14:16:46.751]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:16:46.538]  - exclude = 
  [14:16:46.752]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:16:46.539]  - resignal = FALSE
  [14:16:46.752]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:16:46.540]  - Number of conditions: 3
  [14:16:46.753]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:16:46.541] signalConditions() ... done
  [14:16:46.753]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:16:46.542] - accumulating results
  [14:16:46.754]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:16:46.543] - processing errors (handler = 'stop')
  [14:16:46.755]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:16:46.544] - extracting results
  [14:16:46.755]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:16:46.545] doFuture() ... DONE
  [14:16:46.756]  - Condition #280: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:16:46.757] signalConditions() ... done
  [14:16:46.757] - relayed: [n=1] TRUE
  [14:16:46.762] - queued futures: [n=1] TRUE
  [14:16:46.762] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:46.762]  length: 0 (resolved future 1)
  [14:16:46.763] Relaying remaining futures
  [14:16:46.763] signalConditionsASAP(NULL, pos=0) ...
  [14:16:46.764] - nx: 1
  [14:16:46.764] - relay: TRUE
  [14:16:46.764] - stdout: TRUE
  [14:16:46.765] - signal: TRUE
  [14:16:46.765] - resignal: FALSE
  [14:16:46.766] - force: FALSE
  [14:16:46.766] - relayed: [n=1] TRUE
  [14:16:46.767] - queued futures: [n=1] TRUE
   - flush all
  [14:16:46.767] - relayed: [n=1] TRUE
  [14:16:46.768] - queued futures: [n=1] TRUE
  [14:16:46.768] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:46.769] resolve() on list ... DONE
  [14:16:46.769] - collecting values of futures
  [14:16:46.770] signalConditions() ...
  [14:16:46.770]  - include = 'immediateCondition'
  [14:16:46.771]  - exclude = 
  [14:16:46.771]  - resignal = FALSE
  [14:16:46.771]  - Number of conditions: 280
  [14:16:46.772] signalConditions() ... done
  [14:16:46.773] - accumulating results
  [14:16:46.774] - processing errors (handler = 'stop')
  [14:16:46.775] - extracting results
  [14:16:46.775] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [14:16:46.777] plan(): Setting new future strategy stack:
  [14:16:46.778] List of future strategies:
  [14:16:46.778] 1. sequential:
  [14:16:46.778]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:46.778]    - tweaked: FALSE
  [14:16:46.778]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.778] 2. multicore:
  [14:16:46.778]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:16:46.778]    - tweaked: FALSE
  [14:16:46.778]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.780] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:16:46.781] doFuture() ...
  [14:16:46.783] - dummy globals (as locals): [1] 'a'
  [14:16:46.784] - R expression:
  [14:16:46.784] {
  [14:16:46.784]     doFuture::registerDoFuture()
  [14:16:46.784]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.784]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.784]         a <- NULL
  [14:16:46.784]         ...future.env <- environment()
  [14:16:46.784]         local({
  [14:16:46.784]             for (name in names(...future.x_jj)) {
  [14:16:46.784]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.784]                   inherits = FALSE)
  [14:16:46.784]             }
  [14:16:46.784]         })
  [14:16:46.784]         tryCatch({
  [14:16:46.784]             plan_list <- future::plan("next")
  [14:16:46.784]             stopifnot(inherits(plan_list, strategy2))
  [14:16:46.784]             plan_a <- future::plan("list")
  [14:16:46.784]             str(plan_a)
  [14:16:46.784]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:46.784]             message("foreach() - level 2 ...")
  [14:16:46.784]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:46.784]                 {
  [14:16:46.784]                   plan_list <- future::plan("next")
  [14:16:46.784]                   message(capture.output(print(plan_list)))
  [14:16:46.784]                   stopifnot(inherits(plan_list, "future"))
  [14:16:46.784]                   default <- getOption("future.plan", "sequential")
  [14:16:46.784]                   if (is.function(default)) 
  [14:16:46.784]                     default <- class(default)
  [14:16:46.784]                   stopifnot(inherits(plan_list, default))
  [14:16:46.784]                   plan_b <- future::plan("list")
  [14:16:46.784]                   str(plan_b)
  [14:16:46.784]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:46.784]                     inherits(plan_b[[1]], default))
  [14:16:46.784]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.784]                 }
  [14:16:46.784]             message("foreach() - level 2 ... DONE")
  [14:16:46.784]             y
  [14:16:46.784]         }, error = identity)
  [14:16:46.784]     })
  [14:16:46.784] }
  [14:16:46.787] - identifying globals and packages ...
  [14:16:46.787] getGlobalsAndPackages() ...
  [14:16:46.788] Searching for globals...
  [14:16:46.832] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:16:46.833] Searching for globals ... DONE
  [14:16:46.833] Resolving globals: FALSE
  [14:16:46.837] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:16:46.838] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:46.838] - packages: [2] 'utils', 'foreach'
  [14:16:46.839] getGlobalsAndPackages() ... DONE
  [14:16:46.839] List of 3
  [14:16:46.839]  $ ...future.x_ii: NULL
  [14:16:46.839]  $ strategy2     : chr "multicore"
  [14:16:46.839]  $ bs            : int [1:3] 3 2 1
  [14:16:46.839]  - attr(*, "where")=List of 3
  [14:16:46.839]   ..$ ...future.x_ii:<environment: 0x13e3fa8> 
  [14:16:46.839]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:46.839]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:46.839]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:46.839]  - attr(*, "resolved")= logi FALSE
  [14:16:46.839]  - attr(*, "total_size")= num 184
  [14:16:46.858]   - R expression:
  [14:16:46.858] {
  [14:16:46.858]     doFuture::registerDoFuture()
  [14:16:46.858]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.858]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.858]         a <- NULL
  [14:16:46.858]         ...future.env <- environment()
  [14:16:46.858]         local({
  [14:16:46.858]             for (name in names(...future.x_jj)) {
  [14:16:46.858]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.858]                   inherits = FALSE)
  [14:16:46.858]             }
  [14:16:46.858]         })
  [14:16:46.858]         tryCatch({
  [14:16:46.858]             plan_list <- future::plan("next")
  [14:16:46.858]             stopifnot(inherits(plan_list, strategy2))
  [14:16:46.858]             plan_a <- future::plan("list")
  [14:16:46.858]             str(plan_a)
  [14:16:46.858]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:46.858]             message("foreach() - level 2 ...")
  [14:16:46.858]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:46.858]                 {
  [14:16:46.858]                   plan_list <- future::plan("next")
  [14:16:46.858]                   message(capture.output(print(plan_list)))
  [14:16:46.858]                   stopifnot(inherits(plan_list, "future"))
  [14:16:46.858]                   default <- getOption("future.plan", "sequential")
  [14:16:46.858]                   if (is.function(default)) 
  [14:16:46.858]                     default <- class(default)
  [14:16:46.858]                   stopifnot(inherits(plan_list, default))
  [14:16:46.858]                   plan_b <- future::plan("list")
  [14:16:46.858]                   str(plan_b)
  [14:16:46.858]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:46.858]                     inherits(plan_b[[1]], default))
  [14:16:46.858]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.858]                 }
  [14:16:46.858]             message("foreach() - level 2 ... DONE")
  [14:16:46.858]             y
  [14:16:46.858]         }, error = identity)
  [14:16:46.858]     })
  [14:16:46.858] }
  [14:16:46.860]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:46.861] List of 3
  [14:16:46.861]  $ ...future.x_ii: NULL
  [14:16:46.861]  $ strategy2     : chr "multicore"
  [14:16:46.861]  $ bs            : int [1:3] 3 2 1
  [14:16:46.861]  - attr(*, "where")=List of 3
  [14:16:46.861]   ..$ ...future.x_ii:<environment: 0x13e3fa8> 
  [14:16:46.861]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:46.861]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:46.861]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:46.861]  - attr(*, "resolved")= logi FALSE
  [14:16:46.861]  - attr(*, "total_size")= num 184
  [14:16:46.875]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:16:46.876] - identifying globals and packages ... DONE
  [14:16:46.876] Number of chunks: 1
  [14:16:46.877] Number of futures (= number of chunks): 1
  [14:16:46.878] Launching 1 futures (chunks) ...
  [14:16:46.878] Chunk #1 of 1 ...
  [14:16:46.879]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:46.879] getGlobalsAndPackages() ...
  [14:16:46.880] Searching for globals...
  [14:16:46.881] 
  [14:16:46.881] Searching for globals ... DONE
  [14:16:46.882] - globals: [0] <none>
  [14:16:46.882] getGlobalsAndPackages() ... DONE
  [14:16:46.883] 
  [14:16:46.883] 
  [14:16:46.883]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:46.884] getGlobalsAndPackages() ...
  [14:16:46.885] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:46.885] Resolving globals: FALSE
  [14:16:46.887] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:16:46.887] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:46.888] 
  [14:16:46.888] getGlobalsAndPackages() ... DONE
  [14:16:46.891] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:16:46.892] Packages needed by future strategies (n = 1): 'future'
  [14:16:46.901] {
  [14:16:46.901]     {
  [14:16:46.901]         ...future.startTime <- base::Sys.time()
  [14:16:46.901]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:46.901]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:46.901]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:46.901]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:46.901]             future.resolve.recursive = NULL, width = 80L)
  [14:16:46.901]         {
  [14:16:46.901]             {
  [14:16:46.901]                 {
  [14:16:46.901]                   base::local({
  [14:16:46.901]                     has_future <- base::requireNamespace("future", 
  [14:16:46.901]                       quietly = TRUE)
  [14:16:46.901]                     version <- if (has_future) 
  [14:16:46.901]                       utils::packageVersion("future")
  [14:16:46.901]                     else NULL
  [14:16:46.901]                     if (!has_future || version < "1.8.0") {
  [14:16:46.901]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:46.901]                         "", base::R.version$version.string), 
  [14:16:46.901]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:46.901]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:46.901]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:46.901]                           "release", "version")], collapse = " "), 
  [14:16:46.901]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:46.901]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:46.901]                         info)
  [14:16:46.901]                       info <- base::paste(info, collapse = "; ")
  [14:16:46.901]                       if (!has_future) {
  [14:16:46.901]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:46.901]                           info)
  [14:16:46.901]                       }
  [14:16:46.901]                       else {
  [14:16:46.901]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:46.901]                           info, version)
  [14:16:46.901]                       }
  [14:16:46.901]                       base::stop(msg)
  [14:16:46.901]                     }
  [14:16:46.901]                   })
  [14:16:46.901]                 }
  [14:16:46.901]                 base::local({
  [14:16:46.901]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:16:46.901]                   "future")) {
  [14:16:46.901]                     base::loadNamespace(pkg)
  [14:16:46.901]                     base::library(pkg, character.only = TRUE)
  [14:16:46.901]                   }
  [14:16:46.901]                 })
  [14:16:46.901]             }
  [14:16:46.901]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:46.901]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:46.901]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:46.901]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:46.901]             {
  [14:16:46.901]                 if (substitute) 
  [14:16:46.901]                   expr <- substitute(expr)
  [14:16:46.901]                 if (is.function(workers)) 
  [14:16:46.901]                   workers <- workers()
  [14:16:46.901]                 workers <- as.integer(workers)
  [14:16:46.901]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:46.901]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:46.901]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:46.901]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:46.901]                     local = TRUE, label = label, ...))
  [14:16:46.901]                 }
  [14:16:46.901]                 oopts <- options(mc.cores = workers)
  [14:16:46.901]                 on.exit(options(oopts))
  [14:16:46.901]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:46.901]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:46.901]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:46.901]                   label = label, ...)
  [14:16:46.901]                 if (!future$lazy) 
  [14:16:46.901]                   future <- run(future)
  [14:16:46.901]                 invisible(future)
  [14:16:46.901]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:46.901]         }
  [14:16:46.901]     }
  [14:16:46.901]     if (base::is.na(TRUE)) {
  [14:16:46.901]     }
  [14:16:46.901]     else {
  [14:16:46.901]         if (TRUE) {
  [14:16:46.901]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:46.901]                 open = "w")
  [14:16:46.901]         }
  [14:16:46.901]         else {
  [14:16:46.901]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:46.901]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:46.901]         }
  [14:16:46.901]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:46.901]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:46.901]             base::sink(type = "output", split = FALSE)
  [14:16:46.901]             base::close(...future.stdout)
  [14:16:46.901]         }, add = TRUE)
  [14:16:46.901]     }
  [14:16:46.901]     ...future.frame <- base::sys.nframe()
  [14:16:46.901]     ...future.conditions <- base::list()
  [14:16:46.901]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:46.901]     ...future.result <- base::tryCatch({
  [14:16:46.901]         base::withCallingHandlers({
  [14:16:46.901]             ...future.value <- base::withVisible(base::local({
  [14:16:46.901]                 doFuture::registerDoFuture()
  [14:16:46.901]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.901]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.901]                   a <- NULL
  [14:16:46.901]                   ...future.env <- environment()
  [14:16:46.901]                   local({
  [14:16:46.901]                     for (name in names(...future.x_jj)) {
  [14:16:46.901]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.901]                         inherits = FALSE)
  [14:16:46.901]                     }
  [14:16:46.901]                   })
  [14:16:46.901]                   tryCatch({
  [14:16:46.901]                     plan_list <- future::plan("next")
  [14:16:46.901]                     stopifnot(inherits(plan_list, strategy2))
  [14:16:46.901]                     plan_a <- future::plan("list")
  [14:16:46.901]                     str(plan_a)
  [14:16:46.901]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:46.901]                     message("foreach() - level 2 ...")
  [14:16:46.901]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:46.901]                       {
  [14:16:46.901]                         plan_list <- future::plan("next")
  [14:16:46.901]                         message(capture.output(print(plan_list)))
  [14:16:46.901]                         stopifnot(inherits(plan_list, "future"))
  [14:16:46.901]                         default <- getOption("future.plan", "sequential")
  [14:16:46.901]                         if (is.function(default)) 
  [14:16:46.901]                           default <- class(default)
  [14:16:46.901]                         stopifnot(inherits(plan_list, default))
  [14:16:46.901]                         plan_b <- future::plan("list")
  [14:16:46.901]                         str(plan_b)
  [14:16:46.901]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:46.901]                           inherits(plan_b[[1]], default))
  [14:16:46.901]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.901]                       }
  [14:16:46.901]                     message("foreach() - level 2 ... DONE")
  [14:16:46.901]                     y
  [14:16:46.901]                   }, error = identity)
  [14:16:46.901]                 })
  [14:16:46.901]             }))
  [14:16:46.901]             future::FutureResult(value = ...future.value$value, 
  [14:16:46.901]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.901]                   ...future.rng), started = ...future.startTime, 
  [14:16:46.901]                 version = "1.8")
  [14:16:46.901]         }, condition = base::local({
  [14:16:46.901]             c <- base::c
  [14:16:46.901]             inherits <- base::inherits
  [14:16:46.901]             invokeRestart <- base::invokeRestart
  [14:16:46.901]             length <- base::length
  [14:16:46.901]             list <- base::list
  [14:16:46.901]             seq.int <- base::seq.int
  [14:16:46.901]             signalCondition <- base::signalCondition
  [14:16:46.901]             sys.calls <- base::sys.calls
  [14:16:46.901]             Sys.time <- base::Sys.time
  [14:16:46.901]             `[[` <- base::`[[`
  [14:16:46.901]             `+` <- base::`+`
  [14:16:46.901]             `<<-` <- base::`<<-`
  [14:16:46.901]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:46.901]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:46.901]                   3L)]
  [14:16:46.901]             }
  [14:16:46.901]             function(cond) {
  [14:16:46.901]                 if (inherits(cond, "error")) {
  [14:16:46.901]                   sessionInformation <- function() {
  [14:16:46.901]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:46.901]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:46.901]                       search = base::search(), system = base::Sys.info())
  [14:16:46.901]                   }
  [14:16:46.901]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.901]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:46.901]                     cond$call), session = sessionInformation(), 
  [14:16:46.901]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:46.901]                   signalCondition(cond)
  [14:16:46.901]                 }
  [14:16:46.901]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:46.901]                 ))) {
  [14:16:46.901]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:46.901]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:46.901]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:46.901]                   if (!signal) {
  [14:16:46.901]                     muffleCondition <- function (cond) 
  [14:16:46.901]                     {
  [14:16:46.901]                       inherits <- base::inherits
  [14:16:46.901]                       invokeRestart <- base::invokeRestart
  [14:16:46.901]                       muffled <- FALSE
  [14:16:46.901]                       if (inherits(cond, "message")) {
  [14:16:46.901]                         invokeRestart("muffleMessage")
  [14:16:46.901]                         muffled <- TRUE
  [14:16:46.901]                       }
  [14:16:46.901]                       else if (inherits(cond, "warning")) {
  [14:16:46.901]                         invokeRestart("muffleWarning")
  [14:16:46.901]                         muffled <- TRUE
  [14:16:46.901]                       }
  [14:16:46.901]                       else if (inherits(cond, "condition")) {
  [14:16:46.901]                         computeRestarts <- base::computeRestarts
  [14:16:46.901]                         grepl <- base::grepl
  [14:16:46.901]                         is.null <- base::is.null
  [14:16:46.901]                         restarts <- computeRestarts(cond)
  [14:16:46.901]                         for (restart in restarts) {
  [14:16:46.901]                           name <- restart$name
  [14:16:46.901]                           if (is.null(name)) 
  [14:16:46.901]                             next
  [14:16:46.901]                           if (!grepl("^muffle", name)) 
  [14:16:46.901]                             next
  [14:16:46.901]                           invokeRestart(restart)
  [14:16:46.901]                           muffled <- TRUE
  [14:16:46.901]                           break
  [14:16:46.901]                         }
  [14:16:46.901]                       }
  [14:16:46.901]                       invisible(muffled)
  [14:16:46.901]                     }
  [14:16:46.901]                     muffleCondition(cond)
  [14:16:46.901]                   }
  [14:16:46.901]                 }
  [14:16:46.901]             }
  [14:16:46.901]         }))
  [14:16:46.901]     }, error = function(ex) {
  [14:16:46.901]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:46.901]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:46.901]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:46.901]     }, finally = {
  [14:16:46.901]         {
  [14:16:46.901]             NULL
  [14:16:46.901]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:16:46.901]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:46.901]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:46.901]                 label = NULL, ...) 
  [14:16:46.901]             {
  [14:16:46.901]                 if (substitute) 
  [14:16:46.901]                   expr <- substitute(expr)
  [14:16:46.901]                 local <- as.logical(local)
  [14:16:46.901]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:46.901]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:46.901]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:46.901]                   label = label, ...)
  [14:16:46.901]                 if (!future$lazy) 
  [14:16:46.901]                   future <- run(future)
  [14:16:46.901]                 invisible(future)
  [14:16:46.901]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:16:46.901]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:46.901]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:46.901]             {
  [14:16:46.901]                 if (substitute) 
  [14:16:46.901]                   expr <- substitute(expr)
  [14:16:46.901]                 if (is.function(workers)) 
  [14:16:46.901]                   workers <- workers()
  [14:16:46.901]                 workers <- as.integer(workers)
  [14:16:46.901]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:46.901]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:46.901]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:46.901]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:46.901]                     local = TRUE, label = label, ...))
  [14:16:46.901]                 }
  [14:16:46.901]                 oopts <- options(mc.cores = workers)
  [14:16:46.901]                 on.exit(options(oopts))
  [14:16:46.901]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:46.901]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:46.901]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:46.901]                   label = label, ...)
  [14:16:46.901]                 if (!future$lazy) 
  [14:16:46.901]                   future <- run(future)
  [14:16:46.901]                 invisible(future)
  [14:16:46.901]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:46.901]         }
  [14:16:46.901]         base::options(...future.oldOptions)
  [14:16:46.901]     })
  [14:16:46.901]     Sys.time
  [14:16:46.901]     if (base::is.na(TRUE)) {
  [14:16:46.901]     }
  [14:16:46.901]     else {
  [14:16:46.901]         base::sink(type = "output", split = FALSE)
  [14:16:46.901]         if (TRUE) {
  [14:16:46.901]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:46.901]         }
  [14:16:46.901]         else {
  [14:16:46.901]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:46.901]         }
  [14:16:46.901]         base::close(...future.stdout)
  [14:16:46.901]         ...future.stdout <- NULL
  [14:16:46.901]     }
  [14:16:46.901]     ...future.result$conditions <- ...future.conditions
  [14:16:46.901]     ...future.result
  [14:16:46.901] }
  [14:16:46.914] plan(): Setting new future strategy stack:
  [14:16:46.915] List of future strategies:
  [14:16:46.915] 1. multicore:
  [14:16:46.915]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:16:46.915]    - tweaked: FALSE
  [14:16:46.915]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:46.937] plan(): nbrOfWorkers() = 2
  [14:16:47.747] plan(): Setting new future strategy stack:
  [14:16:47.748] List of future strategies:
  [14:16:47.748] 1. sequential:
  [14:16:47.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:47.748]    - tweaked: FALSE
  [14:16:47.748]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:47.748] 2. multicore:
  [14:16:47.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:16:47.748]    - tweaked: FALSE
  [14:16:47.748]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:47.750] plan(): nbrOfWorkers() = 1
  [14:16:47.751] SequentialFuture started (and completed)
  [14:16:47.752] signalConditions() ...
  [14:16:47.753]  - include = 'immediateCondition'
  [14:16:47.753]  - exclude = 
  [14:16:47.754]  - resignal = FALSE
  [14:16:47.754]  - Number of conditions: 422
  [14:16:47.757] signalConditions() ... done
  [14:16:47.757] Chunk #1 of 1 ... DONE
  [14:16:47.758] Launching 1 futures (chunks) ... DONE
  [14:16:47.758] - resolving futures
  [14:16:47.759]   - gathering results & relaying conditions (except errors)
  [14:16:47.759] resolve() on list ...
  [14:16:47.759]  recursive: 0
  [14:16:47.760]  length: 1
  [14:16:47.760] 
  [14:16:47.761] Future #1
  [14:16:47.762] signalConditions() ...
  [14:16:47.762]  - include = 'immediateCondition'
  [14:16:47.763]  - exclude = 
  [14:16:47.763]  - resignal = FALSE
  [14:16:47.764]  - Number of conditions: 422
  [14:16:47.766] signalConditions() ... done
  [14:16:47.767] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:16:47.767] - nx: 1
  [14:16:47.767] - relay: TRUE
  [14:16:47.768] - stdout: TRUE
  [14:16:47.768] - signal: TRUE
  [14:16:47.769] - resignal: FALSE
  [14:16:47.769] - force: FALSE
  [14:16:47.770] - relayed: [n=1] FALSE
  [14:16:47.770] - queued futures: [n=1] FALSE
  [14:16:47.771]  - until=1
  [14:16:47.771]  - relaying element #1
  [14:16:47.772] signalConditions() ...
  [14:16:47.772]  - include = 'immediateCondition'
  [14:16:47.773]  - exclude = 
  [14:16:47.773]  - resignal = FALSE
  [14:16:47.774]  - Number of conditions: 422
  [14:16:47.776] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:47.777] signalConditions() ...
  [14:16:47.777]  - include = 'immediateCondition'
  [14:16:47.778]  - exclude = 
  [14:16:47.778]  - resignal = FALSE
  [14:16:47.779]  - Number of conditions: 422
  [14:16:47.781] signalConditions() ... done
  [14:16:47.785] signalConditions() ...
  [14:16:47.786]  - include = 'condition'
  [14:16:47.786]  - exclude = 'immediateCondition'
  [14:16:47.787]  - resignal = FALSE
  [14:16:47.787]  - Number of conditions: 422
  [14:16:47.787]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:16:47.788]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:46.945] doFuture() ...
  [14:16:47.789]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:46.947] - dummy globals (as locals): [1] 'b'
  [14:16:47.789]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:16:46.950] - R expression:
  [14:16:47.790]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:16:46.950] {
  [14:16:46.950]     doFuture::registerDoFuture()
  [14:16:46.950]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:46.950]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:46.950]         b <- NULL
  [14:16:46.950]         ...future.env <- environment()
  [14:16:46.950]         local({
  [14:16:46.950]             for (name in names(...future.x_jj)) {
  [14:16:46.950]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:46.950]                   inherits = FALSE)
  [14:16:46.950]             }
  [14:16:46.950]         })
  [14:16:46.950]         tryCatch({
  [14:16:46.950]             plan_list <- future::plan("next")
  [14:16:46.950]             message(capture.output(print(plan_list)))
  [14:16:46.950]             stopifnot(inherits(plan_list, "future"))
  [14:16:46.950]             default <- getOption("future.plan", "sequential")
  [14:16:46.950]             if (is.function(default)) 
  [14:16:46.950]                 default <- class(default)
  [14:16:46.950]             stopifnot(inherits(plan_list, default))
  [14:16:46.950]             plan_b <- future::plan("list")
  [14:16:46.950]             str(plan_b)
  [14:16:46.950]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:46.950]                 default))
  [14:16:46.950]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:46.950]         }, error = identity)
  [14:16:46.950]     })
  [14:16:46.950] }
  [14:16:47.791]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:16:46.952] - identifying globals and packages ...
  [14:16:47.791]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:16:46.953] getGlobalsAndPackages() ...
  [14:16:47.792]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:16:46.954] Searching for globals...
  [14:16:47.792]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:16:46.988] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:16:47.793]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:16:46.989] Searching for globals ... DONE
  [14:16:47.794]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:16:46.990] Resolving globals: FALSE
  [14:16:47.794]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:16:46.993] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:16:47.795]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:16:46.994] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.795]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:16:46.995] - packages: [1] 'utils'
  [14:16:47.796]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:16:46.996] getGlobalsAndPackages() ... DONE
  [14:16:47.796]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:16:46.997] List of 3
  [14:16:46.997]  $ ...future.x_ii: NULL
  [14:16:46.997]  $ a             : int 1
  [14:16:46.997]  $ plan_a        :List of 1
  [14:16:46.997]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:46.997]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:46.997]     earlySignal = FALSE, label = NULL, ...)  
  [14:16:46.997]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:16:46.997]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:46.997]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:46.997]  - attr(*, "where")=List of 3
  [14:16:46.997]   ..$ ...future.x_ii:<environment: 0x3837158> 
  [14:16:46.997]   ..$ a             :<environment: 0x3509dc0> 
  [14:16:46.997]   ..$ plan_a        :<environment: 0x3509dc0> 
  [14:16:46.997]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:46.997]  - attr(*, "resolved")= logi FALSE
  [14:16:46.997]  - attr(*, "total_size")= num 76816
  [14:16:47.797]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:16:47.017]   - R expression:
  [14:16:47.798]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:16:47.018] {
  [14:16:47.018]     doFuture::registerDoFuture()
  [14:16:47.018]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.018]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.018]         b <- NULL
  [14:16:47.018]         ...future.env <- environment()
  [14:16:47.018]         local({
  [14:16:47.018]             for (name in names(...future.x_jj)) {
  [14:16:47.018]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.018]                   inherits = FALSE)
  [14:16:47.018]             }
  [14:16:47.018]         })
  [14:16:47.018]         tryCatch({
  [14:16:47.018]             plan_list <- future::plan("next")
  [14:16:47.018]             message(capture.output(print(plan_list)))
  [14:16:47.018]             stopifnot(inherits(plan_list, "future"))
  [14:16:47.018]             default <- getOption("future.plan", "sequential")
  [14:16:47.018]             if (is.function(default)) 
  [14:16:47.018]                 default <- class(default)
  [14:16:47.018]             stopifnot(inherits(plan_list, default))
  [14:16:47.018]             plan_b <- future::plan("list")
  [14:16:47.018]             str(plan_b)
  [14:16:47.018]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:47.018]                 default))
  [14:16:47.018]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.018]         }, error = identity)
  [14:16:47.018]     })
  [14:16:47.018] }
  [14:16:47.798]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:16:47.020]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.799]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:16:47.020] List of 3
  [14:16:47.020]  $ ...future.x_ii: NULL
  [14:16:47.020]  $ a             : int 1
  [14:16:47.020]  $ plan_a        :List of 1
  [14:16:47.020]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:47.020]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.020]     earlySignal = FALSE, label = NULL, ...)  
  [14:16:47.020]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:16:47.020]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:47.020]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:47.020]  - attr(*, "where")=List of 3
  [14:16:47.020]   ..$ ...future.x_ii:<environment: 0x3837158> 
  [14:16:47.020]   ..$ a             :<environment: 0x3509dc0> 
  [14:16:47.020]   ..$ plan_a        :<environment: 0x3509dc0> 
  [14:16:47.020]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:47.020]  - attr(*, "resolved")= logi FALSE
  [14:16:47.020]  - attr(*, "total_size")= num 76816
  [14:16:47.800]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:16:47.091]   - packages: [2] 'doFuture', 'utils'
  [14:16:47.800]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:16:47.092] - identifying globals and packages ... DONE
  [14:16:47.801]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:16:47.097] Number of chunks: 2
  [14:16:47.802]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:16:47.098] Number of futures (= number of chunks): 2
  [14:16:47.802]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:16:47.100] Launching 2 futures (chunks) ...
  [14:16:47.803]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:16:47.101] Chunk #1 of 2 ...
  [14:16:47.803]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:16:47.101]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:47.804]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:16:47.102] getGlobalsAndPackages() ...
  [14:16:47.805]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:16:47.103] Searching for globals...
  [14:16:47.805]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:16:47.105] 
  [14:16:47.806]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:16:47.105] Searching for globals ... DONE
  [14:16:47.807]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:16:47.106] - globals: [0] <none>
  [14:16:47.807]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:16:47.107] getGlobalsAndPackages() ... DONE
  [14:16:47.808]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:16:47.108] 
  [14:16:47.809]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:16:47.108] 
  [14:16:47.809]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:16:47.109]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:47.810]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:16:47.111] getGlobalsAndPackages() ...
  [14:16:47.811]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:16:47.112] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.811]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:16:47.113] Resolving globals: FALSE
  [14:16:47.812]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:16:47.116] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [14:16:47.812]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:16:47.117] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.813]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:16:47.118] 
  [14:16:47.814]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:16:47.118] getGlobalsAndPackages() ... DONE
  [14:16:47.814]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:16:47.124] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:47.815]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:16:47.125] Packages needed by future strategies (n = 0): <none>
  [14:16:47.816]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:16:47.135] {
  [14:16:47.135]     {
  [14:16:47.135]         ...future.startTime <- base::Sys.time()
  [14:16:47.135]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:47.135]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:47.135]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:47.135]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:47.135]             future.resolve.recursive = NULL, width = 80L)
  [14:16:47.135]         {
  [14:16:47.135]             {
  [14:16:47.135]                 {
  [14:16:47.135]                   {
  [14:16:47.135]                     base::local({
  [14:16:47.135]                       has_future <- base::requireNamespace("future", 
  [14:16:47.135]                         quietly = TRUE)
  [14:16:47.135]                       version <- if (has_future) 
  [14:16:47.135]                         utils::packageVersion("future")
  [14:16:47.135]                       else NULL
  [14:16:47.135]                       if (!has_future || version < "1.8.0") {
  [14:16:47.135]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:16:47.135]                           "", base::R.version$version.string), 
  [14:16:47.135]                           platform = base::sprintf("%s (%s-bit)", 
  [14:16:47.135]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:47.135]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:47.135]                             "release", "version")], collapse = " "), 
  [14:16:47.135]                           hostname = base::Sys.info()[["nodename"]])
  [14:16:47.135]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:47.135]                           info)
  [14:16:47.135]                         info <- base::paste(info, collapse = "; ")
  [14:16:47.135]                         if (!has_future) {
  [14:16:47.135]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:47.135]                             info)
  [14:16:47.135]                         }
  [14:16:47.135]                         else {
  [14:16:47.135]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:47.135]                             info, version)
  [14:16:47.135]                         }
  [14:16:47.135]                         base::stop(msg)
  [14:16:47.135]                       }
  [14:16:47.135]                     })
  [14:16:47.135]                   }
  [14:16:47.135]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:16:47.135]                   base::options(mc.cores = 1L)
  [14:16:47.135]                 }
  [14:16:47.135]                 base::local({
  [14:16:47.135]                   for (pkg in c("doFuture", "utils")) {
  [14:16:47.135]                     base::loadNamespace(pkg)
  [14:16:47.135]                     base::library(pkg, character.only = TRUE)
  [14:16:47.135]                   }
  [14:16:47.135]                 })
  [14:16:47.135]             }
  [14:16:47.135]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:47.135]         }
  [14:16:47.135]     }
  [14:16:47.135]     if (base::is.na(TRUE)) {
  [14:16:47.135]     }
  [14:16:47.135]     else {
  [14:16:47.135]         if (TRUE) {
  [14:16:47.135]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:47.135]                 open = "w")
  [14:16:47.135]         }
  [14:16:47.135]         else {
  [14:16:47.135]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:47.135]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:47.135]         }
  [14:16:47.135]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:47.135]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:47.135]             base::sink(type = "output", split = FALSE)
  [14:16:47.135]             base::close(...future.stdout)
  [14:16:47.135]         }, add = TRUE)
  [14:16:47.135]     }
  [14:16:47.135]     ...future.frame <- base::sys.nframe()
  [14:16:47.135]     ...future.conditions <- base::list()
  [14:16:47.135]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:47.135]     ...future.result <- base::tryCatch({
  [14:16:47.135]         base::withCallingHandlers({
  [14:16:47.135]             ...future.value <- base::withVisible(base::local({
  [14:16:47.135]                 doFuture::registerDoFuture()
  [14:16:47.135]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.135]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.135]                   b <- NULL
  [14:16:47.135]                   ...future.env <- environment()
  [14:16:47.135]                   local({
  [14:16:47.135]                     for (name in names(...future.x_jj)) {
  [14:16:47.135]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.135]                         inherits = FALSE)
  [14:16:47.135]                     }
  [14:16:47.135]                   })
  [14:16:47.135]                   tryCatch({
  [14:16:47.135]                     plan_list <- future::plan("next")
  [14:16:47.135]                     message(capture.output(print(plan_list)))
  [14:16:47.135]                     stopifnot(inherits(plan_list, "future"))
  [14:16:47.135]                     default <- getOption("future.plan", "sequential")
  [14:16:47.135]                     if (is.function(default)) 
  [14:16:47.135]                       default <- class(default)
  [14:16:47.135]                     stopifnot(inherits(plan_list, default))
  [14:16:47.135]                     plan_b <- future::plan("list")
  [14:16:47.135]                     str(plan_b)
  [14:16:47.135]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:47.135]                       inherits(plan_b[[1]], default))
  [14:16:47.135]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.135]                   }, error = identity)
  [14:16:47.135]                 })
  [14:16:47.135]             }))
  [14:16:47.135]             future::FutureResult(value = ...future.value$value, 
  [14:16:47.135]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.135]                   ...future.rng), started = ...future.startTime, 
  [14:16:47.135]                 version = "1.8")
  [14:16:47.135]         }, condition = base::local({
  [14:16:47.135]             c <- base::c
  [14:16:47.135]             inherits <- base::inherits
  [14:16:47.135]             invokeRestart <- base::invokeRestart
  [14:16:47.135]             length <- base::length
  [14:16:47.135]             list <- base::list
  [14:16:47.135]             seq.int <- base::seq.int
  [14:16:47.135]             signalCondition <- base::signalCondition
  [14:16:47.135]             sys.calls <- base::sys.calls
  [14:16:47.135]             Sys.time <- base::Sys.time
  [14:16:47.135]             `[[` <- base::`[[`
  [14:16:47.135]             `+` <- base::`+`
  [14:16:47.135]             `<<-` <- base::`<<-`
  [14:16:47.135]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:47.135]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:47.135]                   3L)]
  [14:16:47.135]             }
  [14:16:47.135]             function(cond) {
  [14:16:47.135]                 if (inherits(cond, "error")) {
  [14:16:47.135]                   sessionInformation <- function() {
  [14:16:47.135]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:47.135]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:47.135]                       search = base::search(), system = base::Sys.info())
  [14:16:47.135]                   }
  [14:16:47.135]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.135]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:47.135]                     cond$call), session = sessionInformation(), 
  [14:16:47.135]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:47.135]                   signalCondition(cond)
  [14:16:47.135]                 }
  [14:16:47.135]                 else if (inherits(cond, "condition")) {
  [14:16:47.135]                   signal <- FALSE && inherits(cond, character(0))
  [14:16:47.135]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.135]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:47.135]                   if (!signal) {
  [14:16:47.135]                     muffleCondition <- function (cond) 
  [14:16:47.135]                     {
  [14:16:47.135]                       inherits <- base::inherits
  [14:16:47.135]                       invokeRestart <- base::invokeRestart
  [14:16:47.135]                       muffled <- FALSE
  [14:16:47.135]                       if (inherits(cond, "message")) {
  [14:16:47.135]                         invokeRestart("muffleMessage")
  [14:16:47.135]                         muffled <- TRUE
  [14:16:47.135]                       }
  [14:16:47.135]                       else if (inherits(cond, "warning")) {
  [14:16:47.135]                         invokeRestart("muffleWarning")
  [14:16:47.135]                         muffled <- TRUE
  [14:16:47.135]                       }
  [14:16:47.135]                       else if (inherits(cond, "condition")) {
  [14:16:47.135]                         computeRestarts <- base::computeRestarts
  [14:16:47.135]                         grepl <- base::grepl
  [14:16:47.135]                         is.null <- base::is.null
  [14:16:47.135]                         restarts <- computeRestarts(cond)
  [14:16:47.135]                         for (restart in restarts) {
  [14:16:47.135]                           name <- restart$name
  [14:16:47.135]                           if (is.null(name)) 
  [14:16:47.135]                             next
  [14:16:47.135]                           if (!grepl("^muffle", name)) 
  [14:16:47.135]                             next
  [14:16:47.135]                           invokeRestart(restart)
  [14:16:47.135]                           muffled <- TRUE
  [14:16:47.135]                           break
  [14:16:47.135]                         }
  [14:16:47.135]                       }
  [14:16:47.135]                       invisible(muffled)
  [14:16:47.135]                     }
  [14:16:47.135]                     muffleCondition(cond)
  [14:16:47.135]                   }
  [14:16:47.135]                 }
  [14:16:47.135]             }
  [14:16:47.135]         }))
  [14:16:47.135]     }, error = function(ex) {
  [14:16:47.135]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:47.135]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.135]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:47.135]     }, finally = {
  [14:16:47.135]         {
  [14:16:47.135]             {
  [14:16:47.135]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:16:47.135]             }
  [14:16:47.135]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:47.135]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:47.135]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.135]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:47.135]             {
  [14:16:47.135]                 if (substitute) 
  [14:16:47.135]                   expr <- substitute(expr)
  [14:16:47.135]                 if (is.function(workers)) 
  [14:16:47.135]                   workers <- workers()
  [14:16:47.135]                 workers <- as.integer(workers)
  [14:16:47.135]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:47.135]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:47.135]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:47.135]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:47.135]                     local = TRUE, label = label, ...))
  [14:16:47.135]                 }
  [14:16:47.135]                 oopts <- options(mc.cores = workers)
  [14:16:47.135]                 on.exit(options(oopts))
  [14:16:47.135]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:47.135]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:47.135]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:47.135]                   label = label, ...)
  [14:16:47.135]                 if (!future$lazy) 
  [14:16:47.135]                   future <- run(future)
  [14:16:47.135]                 invisible(future)
  [14:16:47.135]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:47.135]         }
  [14:16:47.135]         base::options(...future.oldOptions)
  [14:16:47.135]     })
  [14:16:47.135]     Sys.time
  [14:16:47.135]     if (base::is.na(TRUE)) {
  [14:16:47.135]     }
  [14:16:47.135]     else {
  [14:16:47.135]         base::sink(type = "output", split = FALSE)
  [14:16:47.135]         if (TRUE) {
  [14:16:47.135]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:47.135]         }
  [14:16:47.135]         else {
  [14:16:47.135]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:47.135]         }
  [14:16:47.135]         base::close(...future.stdout)
  [14:16:47.135]         ...future.stdout <- NULL
  [14:16:47.135]     }
  [14:16:47.135]     ...future.result$conditions <- ...future.conditions
  [14:16:47.135]     ...future.result
  [14:16:47.135] }
  [14:16:47.816]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:16:47.145] requestCore(): workers = 2
  [14:16:47.817]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:16:47.153] MulticoreFuture started
  [14:16:47.818]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:16:47.156] Chunk #1 of 2 ... DONE
  [14:16:47.818]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:16:47.157] Chunk #2 of 2 ...
  [14:16:47.819]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:16:47.158]  - Finding globals in 'args_list' chunk #2 ...
  [14:16:47.819]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:16:47.159] getGlobalsAndPackages() ...
  [14:16:47.820]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:16:47.160] Searching for globals...
  [14:16:47.821]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:16:47.163] 
  [14:16:47.821]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:16:47.165] Searching for globals ... DONE
  [14:16:47.822]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:16:47.166] - globals: [0] <none>
  [14:16:47.822]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:16:47.167] getGlobalsAndPackages() ... DONE
  [14:16:47.823]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:16:47.168] 
  [14:16:47.824]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:16:47.168] 
  [14:16:47.824]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:16:47.169]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:16:47.825]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:16:47.172] getGlobalsAndPackages() ...
  [14:16:47.825]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:16:47.173] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.826]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:16:47.174] Resolving globals: FALSE
  [14:16:47.827]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:16:47.178] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [14:16:47.827]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:16:47.179] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.828]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:16:47.180] 
  [14:16:47.828]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:16:47.181] getGlobalsAndPackages() ... DONE
  [14:16:47.829]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:16:47.186] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:47.830]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:16:47.187] Packages needed by future strategies (n = 0): <none>
  [14:16:47.830]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:16:47.201] {
  [14:16:47.201]     {
  [14:16:47.201]         ...future.startTime <- base::Sys.time()
  [14:16:47.201]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:47.201]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:47.201]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:47.201]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:47.201]             future.resolve.recursive = NULL, width = 80L)
  [14:16:47.201]         {
  [14:16:47.201]             {
  [14:16:47.201]                 {
  [14:16:47.201]                   {
  [14:16:47.201]                     base::local({
  [14:16:47.201]                       has_future <- base::requireNamespace("future", 
  [14:16:47.201]                         quietly = TRUE)
  [14:16:47.201]                       version <- if (has_future) 
  [14:16:47.201]                         utils::packageVersion("future")
  [14:16:47.201]                       else NULL
  [14:16:47.201]                       if (!has_future || version < "1.8.0") {
  [14:16:47.201]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:16:47.201]                           "", base::R.version$version.string), 
  [14:16:47.201]                           platform = base::sprintf("%s (%s-bit)", 
  [14:16:47.201]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:47.201]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:47.201]                             "release", "version")], collapse = " "), 
  [14:16:47.201]                           hostname = base::Sys.info()[["nodename"]])
  [14:16:47.201]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:47.201]                           info)
  [14:16:47.201]                         info <- base::paste(info, collapse = "; ")
  [14:16:47.201]                         if (!has_future) {
  [14:16:47.201]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:47.201]                             info)
  [14:16:47.201]                         }
  [14:16:47.201]                         else {
  [14:16:47.201]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:47.201]                             info, version)
  [14:16:47.201]                         }
  [14:16:47.201]                         base::stop(msg)
  [14:16:47.201]                       }
  [14:16:47.201]                     })
  [14:16:47.201]                   }
  [14:16:47.201]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:16:47.201]                   base::options(mc.cores = 1L)
  [14:16:47.201]                 }
  [14:16:47.201]                 base::local({
  [14:16:47.201]                   for (pkg in c("doFuture", "utils")) {
  [14:16:47.201]                     base::loadNamespace(pkg)
  [14:16:47.201]                     base::library(pkg, character.only = TRUE)
  [14:16:47.201]                   }
  [14:16:47.201]                 })
  [14:16:47.201]             }
  [14:16:47.201]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:47.201]         }
  [14:16:47.201]     }
  [14:16:47.201]     if (base::is.na(TRUE)) {
  [14:16:47.201]     }
  [14:16:47.201]     else {
  [14:16:47.201]         if (TRUE) {
  [14:16:47.201]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:47.201]                 open = "w")
  [14:16:47.201]         }
  [14:16:47.201]         else {
  [14:16:47.201]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:47.201]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:47.201]         }
  [14:16:47.201]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:47.201]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:47.201]             base::sink(type = "output", split = FALSE)
  [14:16:47.201]             base::close(...future.stdout)
  [14:16:47.201]         }, add = TRUE)
  [14:16:47.201]     }
  [14:16:47.201]     ...future.frame <- base::sys.nframe()
  [14:16:47.201]     ...future.conditions <- base::list()
  [14:16:47.201]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:47.201]     ...future.result <- base::tryCatch({
  [14:16:47.201]         base::withCallingHandlers({
  [14:16:47.201]             ...future.value <- base::withVisible(base::local({
  [14:16:47.201]                 doFuture::registerDoFuture()
  [14:16:47.201]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.201]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.201]                   b <- NULL
  [14:16:47.201]                   ...future.env <- environment()
  [14:16:47.201]                   local({
  [14:16:47.201]                     for (name in names(...future.x_jj)) {
  [14:16:47.201]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.201]                         inherits = FALSE)
  [14:16:47.201]                     }
  [14:16:47.201]                   })
  [14:16:47.201]                   tryCatch({
  [14:16:47.201]                     plan_list <- future::plan("next")
  [14:16:47.201]                     message(capture.output(print(plan_list)))
  [14:16:47.201]                     stopifnot(inherits(plan_list, "future"))
  [14:16:47.201]                     default <- getOption("future.plan", "sequential")
  [14:16:47.201]                     if (is.function(default)) 
  [14:16:47.201]                       default <- class(default)
  [14:16:47.201]                     stopifnot(inherits(plan_list, default))
  [14:16:47.201]                     plan_b <- future::plan("list")
  [14:16:47.201]                     str(plan_b)
  [14:16:47.201]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:47.201]                       inherits(plan_b[[1]], default))
  [14:16:47.201]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.201]                   }, error = identity)
  [14:16:47.201]                 })
  [14:16:47.201]             }))
  [14:16:47.201]             future::FutureResult(value = ...future.value$value, 
  [14:16:47.201]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.201]                   ...future.rng), started = ...future.startTime, 
  [14:16:47.201]                 version = "1.8")
  [14:16:47.201]         }, condition = base::local({
  [14:16:47.201]             c <- base::c
  [14:16:47.201]             inherits <- base::inherits
  [14:16:47.201]             invokeRestart <- base::invokeRestart
  [14:16:47.201]             length <- base::length
  [14:16:47.201]             list <- base::list
  [14:16:47.201]             seq.int <- base::seq.int
  [14:16:47.201]             signalCondition <- base::signalCondition
  [14:16:47.201]             sys.calls <- base::sys.calls
  [14:16:47.201]             Sys.time <- base::Sys.time
  [14:16:47.201]             `[[` <- base::`[[`
  [14:16:47.201]             `+` <- base::`+`
  [14:16:47.201]             `<<-` <- base::`<<-`
  [14:16:47.201]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:47.201]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:47.201]                   3L)]
  [14:16:47.201]             }
  [14:16:47.201]             function(cond) {
  [14:16:47.201]                 if (inherits(cond, "error")) {
  [14:16:47.201]                   sessionInformation <- function() {
  [14:16:47.201]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:47.201]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:47.201]                       search = base::search(), system = base::Sys.info())
  [14:16:47.201]                   }
  [14:16:47.201]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.201]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:47.201]                     cond$call), session = sessionInformation(), 
  [14:16:47.201]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:47.201]                   signalCondition(cond)
  [14:16:47.201]                 }
  [14:16:47.201]                 else if (inherits(cond, "condition")) {
  [14:16:47.201]                   signal <- FALSE && inherits(cond, character(0))
  [14:16:47.201]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.201]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:47.201]                   if (!signal) {
  [14:16:47.201]                     muffleCondition <- function (cond) 
  [14:16:47.201]                     {
  [14:16:47.201]                       inherits <- base::inherits
  [14:16:47.201]                       invokeRestart <- base::invokeRestart
  [14:16:47.201]                       muffled <- FALSE
  [14:16:47.201]                       if (inherits(cond, "message")) {
  [14:16:47.201]                         invokeRestart("muffleMessage")
  [14:16:47.201]                         muffled <- TRUE
  [14:16:47.201]                       }
  [14:16:47.201]                       else if (inherits(cond, "warning")) {
  [14:16:47.201]                         invokeRestart("muffleWarning")
  [14:16:47.201]                         muffled <- TRUE
  [14:16:47.201]                       }
  [14:16:47.201]                       else if (inherits(cond, "condition")) {
  [14:16:47.201]                         computeRestarts <- base::computeRestarts
  [14:16:47.201]                         grepl <- base::grepl
  [14:16:47.201]                         is.null <- base::is.null
  [14:16:47.201]                         restarts <- computeRestarts(cond)
  [14:16:47.201]                         for (restart in restarts) {
  [14:16:47.201]                           name <- restart$name
  [14:16:47.201]                           if (is.null(name)) 
  [14:16:47.201]                             next
  [14:16:47.201]                           if (!grepl("^muffle", name)) 
  [14:16:47.201]                             next
  [14:16:47.201]                           invokeRestart(restart)
  [14:16:47.201]                           muffled <- TRUE
  [14:16:47.201]                           break
  [14:16:47.201]                         }
  [14:16:47.201]                       }
  [14:16:47.201]                       invisible(muffled)
  [14:16:47.201]                     }
  [14:16:47.201]                     muffleCondition(cond)
  [14:16:47.201]                   }
  [14:16:47.201]                 }
  [14:16:47.201]             }
  [14:16:47.201]         }))
  [14:16:47.201]     }, error = function(ex) {
  [14:16:47.201]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:47.201]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.201]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:47.201]     }, finally = {
  [14:16:47.201]         {
  [14:16:47.201]             {
  [14:16:47.201]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:16:47.201]             }
  [14:16:47.201]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:47.201]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:47.201]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.201]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:47.201]             {
  [14:16:47.201]                 if (substitute) 
  [14:16:47.201]                   expr <- substitute(expr)
  [14:16:47.201]                 if (is.function(workers)) 
  [14:16:47.201]                   workers <- workers()
  [14:16:47.201]                 workers <- as.integer(workers)
  [14:16:47.201]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:47.201]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:47.201]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:47.201]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:47.201]                     local = TRUE, label = label, ...))
  [14:16:47.201]                 }
  [14:16:47.201]                 oopts <- options(mc.cores = workers)
  [14:16:47.201]                 on.exit(options(oopts))
  [14:16:47.201]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:47.201]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:47.201]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:47.201]                   label = label, ...)
  [14:16:47.201]                 if (!future$lazy) 
  [14:16:47.201]                   future <- run(future)
  [14:16:47.201]                 invisible(future)
  [14:16:47.201]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:47.201]         }
  [14:16:47.201]         base::options(...future.oldOptions)
  [14:16:47.201]     })
  [14:16:47.201]     Sys.time
  [14:16:47.201]     if (base::is.na(TRUE)) {
  [14:16:47.201]     }
  [14:16:47.201]     else {
  [14:16:47.201]         base::sink(type = "output", split = FALSE)
  [14:16:47.201]         if (TRUE) {
  [14:16:47.201]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:47.201]         }
  [14:16:47.201]         else {
  [14:16:47.201]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:47.201]         }
  [14:16:47.201]         base::close(...future.stdout)
  [14:16:47.201]         ...future.stdout <- NULL
  [14:16:47.201]     }
  [14:16:47.201]     ...future.result$conditions <- ...future.conditions
  [14:16:47.201]     ...future.result
  [14:16:47.201] }
  [14:16:47.831]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:16:47.213] requestCore(): workers = 2
  [14:16:47.831]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:16:47.231] MulticoreFuture started
  [14:16:47.832]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:16:47.233] Chunk #2 of 2 ... DONE
  [14:16:47.832]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:16:47.235] Launching 2 futures (chunks) ... DONE
  [14:16:47.833]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:16:47.236] - resolving futures
  [14:16:47.833]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:16:47.237]   - gathering results & relaying conditions (except errors)
  [14:16:47.834]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:16:47.238] resolve() on list ...
  [14:16:47.835]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:16:47.239]  recursive: 0
  [14:16:47.835]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:16:47.240]  length: 2
  [14:16:47.836]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:16:47.241] 
  [14:16:47.836]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:16:47.246] Future #1
  [14:16:47.837]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:16:47.269] signalConditions() ...
  [14:16:47.838]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:16:47.271]  - include = 'immediateCondition'
  [14:16:47.838]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:16:47.272]  - exclude = 
  [14:16:47.839]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:16:47.273]  - resignal = FALSE
  [14:16:47.840]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:16:47.274]  - Number of conditions: 1
  [14:16:47.840]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:16:47.275] signalConditions() ... done
  [14:16:47.841]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:16:47.276] signalConditions() ...
  [14:16:47.841]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:16:47.277]  - include = 'immediateCondition'
  [14:16:47.842]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:16:47.279]  - exclude = 
  [14:16:47.843]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:16:47.280]  - resignal = FALSE
  [14:16:47.843]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:16:47.281]  - Number of conditions: 1
  [14:16:47.844]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:16:47.282] signalConditions() ... done
  [14:16:47.845]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:16:47.283] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:16:47.845]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:16:47.283] - nx: 2
  [14:16:47.846]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:16:47.284] - relay: TRUE
  [14:16:47.846]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:16:47.285] - stdout: TRUE
  [14:16:47.847]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:16:47.286] - signal: TRUE
  [14:16:47.848]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:16:47.287] - resignal: FALSE
  [14:16:47.848]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:16:47.287] - force: FALSE
  [14:16:47.849]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:16:47.288] - relayed: [n=2] FALSE, FALSE
  [14:16:47.850]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:16:47.289] - queued futures: [n=2] FALSE, FALSE
  [14:16:47.850]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:16:47.290]  - until=1
  [14:16:47.851]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:16:47.290]  - relaying element #1
  [14:16:47.851]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:16:47.291] signalConditions() ...
  [14:16:47.852]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:16:47.292]  - include = 'immediateCondition'
  [14:16:47.853]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:16:47.293]  - exclude = 
  [14:16:47.853]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:16:47.294]  - resignal = FALSE
  [14:16:47.854]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:16:47.295]  - Number of conditions: 1
  [14:16:47.855]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:16:47.296] signalConditions() ... done
  [14:16:47.855]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:16:47.297] signalConditions() ...
  [14:16:47.856]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:16:47.297]  - include = 'immediateCondition'
  [14:16:47.857]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:16:47.298]  - exclude = 
  [14:16:47.857]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:16:47.299]  - resignal = FALSE
  [14:16:47.858]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:16:47.300]  - Number of conditions: 1
  [14:16:47.858]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:16:47.301] signalConditions() ... done
  [14:16:47.859]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:16:47.302] signalConditions() ...
  [14:16:47.859]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:16:47.302]  - include = 'condition'
  [14:16:47.860]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:16:47.303]  - exclude = 'immediateCondition'
  [14:16:47.861]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:16:47.304]  - resignal = FALSE
  [14:16:47.861]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:16:47.305]  - Number of conditions: 1
  [14:16:47.862]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:16:47.305]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:47.863]  - Condition #123: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:47.863]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:16:47.306] signalConditions() ... done
  [14:16:47.864]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:16:47.307] - relayed: [n=2] TRUE, FALSE
  [14:16:47.865]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:16:47.308] - queued futures: [n=2] TRUE, FALSE
  [14:16:47.865]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:16:47.308] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:16:47.866]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:16:47.309]  length: 1 (resolved future 1)
  [14:16:47.867]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:16:47.311] Future #2
  [14:16:47.867]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:16:47.314] signalConditions() ...
  [14:16:47.868]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:16:47.315]  - include = 'immediateCondition'
  [14:16:47.869]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:16:47.315]  - exclude = 
  [14:16:47.869]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:16:47.316]  - resignal = FALSE
  [14:16:47.870]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:16:47.316]  - Number of conditions: 2
  [14:16:47.870]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:16:47.317] signalConditions() ... done
  [14:16:47.871]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:16:47.317] signalConditions() ...
  [14:16:47.872]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:16:47.318]  - include = 'immediateCondition'
  [14:16:47.872]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:16:47.318]  - exclude = 
  [14:16:47.873]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:16:47.319]  - resignal = FALSE
  [14:16:47.874]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:16:47.319]  - Number of conditions: 2
  [14:16:47.874]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:16:47.320] signalConditions() ... done
  [14:16:47.875]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:16:47.320] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:16:47.876]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:16:47.321] - nx: 2
  [14:16:47.876]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:16:47.321] - relay: TRUE
  [14:16:47.877]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:16:47.322] - stdout: TRUE
  [14:16:47.878]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:16:47.322] - signal: TRUE
  [14:16:47.878]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:16:47.323] - resignal: FALSE
  [14:16:47.879]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:16:47.323] - force: FALSE
  [14:16:47.879]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:16:47.324] - relayed: [n=2] TRUE, FALSE
  [14:16:47.880]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:16:47.325] - queued futures: [n=2] TRUE, FALSE
  [14:16:47.881]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:16:47.326]  - until=2
  [14:16:47.881]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:16:47.326]  - relaying element #2
  [14:16:47.882]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:16:47.327] signalConditions() ...
  [14:16:47.882]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:16:47.328]  - include = 'immediateCondition'
  [14:16:47.883]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:16:47.329]  - exclude = 
  [14:16:47.883]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:16:47.330]  - resignal = FALSE
  [14:16:47.884]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:16:47.331]  - Number of conditions: 2
  [14:16:47.888]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:16:47.331] signalConditions() ... done
  [14:16:47.889]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:16:47.332] signalConditions() ...
  [14:16:47.890]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:16:47.333]  - include = 'immediateCondition'
  [14:16:47.890]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:16:47.334]  - exclude = 
  [14:16:47.891]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:16:47.335]  - resignal = FALSE
  [14:16:47.892]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:16:47.335]  - Number of conditions: 2
  [14:16:47.892]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:16:47.336] signalConditions() ... done
  [14:16:47.893]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:16:47.337] signalConditions() ...
  [14:16:47.893]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:16:47.338]  - include = 'condition'
  [14:16:47.894]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:16:47.338]  - exclude = 'immediateCondition'
  [14:16:47.895]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:16:47.339]  - resignal = FALSE
  [14:16:47.895]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:16:47.340]  - Number of conditions: 2
  [14:16:47.896]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:16:47.340]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:47.897]  - Condition #171: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:47.897]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:16:47.341]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:47.898]  - Condition #173: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:47.898]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:16:47.342] signalConditions() ... done
  [14:16:47.899]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:16:47.343] - relayed: [n=2] TRUE, TRUE
  [14:16:47.900]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:16:47.344] - queued futures: [n=2] TRUE, TRUE
  [14:16:47.900]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:16:47.344] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:16:47.901]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:16:47.345]  length: 0 (resolved future 2)
  [14:16:47.901]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:16:47.346] Relaying remaining futures
  [14:16:47.902]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:16:47.346] signalConditionsASAP(NULL, pos=0) ...
  [14:16:47.902]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:16:47.346] - nx: 2
  [14:16:47.903]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:16:47.347] - relay: TRUE
  [14:16:47.904]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:16:47.347] - stdout: TRUE
  [14:16:47.904]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:16:47.348] - signal: TRUE
  [14:16:47.905]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:16:47.349] - resignal: FALSE
  [14:16:47.906]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [14:16:47.350] - force: FALSE
  [14:16:47.906]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:16:47.350] - relayed: [n=2] TRUE, TRUE
  [14:16:47.907]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:16:47.351] - queued futures: [n=2] TRUE, TRUE
  [14:16:47.908]  - Condition #189: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:16:47.908]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:16:47.352] - relayed: [n=2] TRUE, TRUE
  [14:16:47.909]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:16:47.353] - queued futures: [n=2] TRUE, TRUE
  [14:16:47.910]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:16:47.354] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:47.910]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:16:47.355] resolve() on list ... DONE
  [14:16:47.911]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:16:47.355] - collecting values of futures
  [14:16:47.912]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:16:47.356] signalConditions() ...
  [14:16:47.912]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:16:47.357]  - include = 'immediateCondition'
  [14:16:47.913]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:16:47.358]  - exclude = 
  [14:16:47.913]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:16:47.359]  - resignal = FALSE
  [14:16:47.914]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:16:47.359]  - Number of conditions: 1
  [14:16:47.915]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:16:47.360] signalConditions() ... done
  [14:16:47.915]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:16:47.361] signalConditions() ...
  [14:16:47.916]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:16:47.362]  - include = 'immediateCondition'
  [14:16:47.917]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:16:47.362]  - exclude = 
  [14:16:47.917]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:16:47.363]  - resignal = FALSE
  [14:16:47.918]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:16:47.364]  - Number of conditions: 2
  [14:16:47.919]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:16:47.365] signalConditions() ... done
  [14:16:47.919]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:16:47.366] - accumulating results
  [14:16:47.920]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:16:47.367] - processing errors (handler = 'stop')
  [14:16:47.921]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:16:47.368] - extracting results
  [14:16:47.921]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:16:47.369] doFuture() ... DONE
  [14:16:47.922]  - Condition #211: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:16:47.923]  - Condition #212: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:16:47.923]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:16:47.378] doFuture() ...
  [14:16:47.924]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:16:47.381] - dummy globals (as locals): [1] 'b'
  [14:16:47.925]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:16:47.383] - R expression:
  [14:16:47.925]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:16:47.384] {
  [14:16:47.384]     doFuture::registerDoFuture()
  [14:16:47.384]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.384]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.384]         b <- NULL
  [14:16:47.384]         ...future.env <- environment()
  [14:16:47.384]         local({
  [14:16:47.384]             for (name in names(...future.x_jj)) {
  [14:16:47.384]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.384]                   inherits = FALSE)
  [14:16:47.384]             }
  [14:16:47.384]         })
  [14:16:47.384]         tryCatch({
  [14:16:47.384]             plan_list <- future::plan("next")
  [14:16:47.384]             message(capture.output(print(plan_list)))
  [14:16:47.384]             stopifnot(inherits(plan_list, "future"))
  [14:16:47.384]             default <- getOption("future.plan", "sequential")
  [14:16:47.384]             if (is.function(default)) 
  [14:16:47.384]                 default <- class(default)
  [14:16:47.384]             stopifnot(inherits(plan_list, default))
  [14:16:47.384]             plan_b <- future::plan("list")
  [14:16:47.384]             str(plan_b)
  [14:16:47.384]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:47.384]                 default))
  [14:16:47.384]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.384]         }, error = identity)
  [14:16:47.384]     })
  [14:16:47.384] }
  [14:16:47.926]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:16:47.386] - identifying globals and packages ...
  [14:16:47.927]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:16:47.387] getGlobalsAndPackages() ...
  [14:16:47.927]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:16:47.387] Searching for globals...
  [14:16:47.928]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:16:47.430] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:16:47.928]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:16:47.431] Searching for globals ... DONE
  [14:16:47.929]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:16:47.432] Resolving globals: FALSE
  [14:16:47.930]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:16:47.436] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:16:47.930]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:16:47.437] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.931]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:16:47.438] - packages: [1] 'utils'
  [14:16:47.932]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:16:47.438] getGlobalsAndPackages() ... DONE
  [14:16:47.932]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:16:47.439] List of 3
  [14:16:47.439]  $ ...future.x_ii: NULL
  [14:16:47.439]  $ a             : int 2
  [14:16:47.439]  $ plan_a        :List of 1
  [14:16:47.439]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:47.439]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.439]     earlySignal = FALSE, label = NULL, ...)  
  [14:16:47.439]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:16:47.439]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:47.439]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:47.439]  - attr(*, "where")=List of 3
  [14:16:47.439]   ..$ ...future.x_ii:<environment: 0x393ced0> 
  [14:16:47.439]   ..$ a             :<environment: 0x35b0188> 
  [14:16:47.439]   ..$ plan_a        :<environment: 0x35b0188> 
  [14:16:47.439]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:47.439]  - attr(*, "resolved")= logi FALSE
  [14:16:47.439]  - attr(*, "total_size")= num 76816
  [14:16:47.933]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:16:47.458]   - R expression:
  [14:16:47.934]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:16:47.459] {
  [14:16:47.459]     doFuture::registerDoFuture()
  [14:16:47.459]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.459]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.459]         b <- NULL
  [14:16:47.459]         ...future.env <- environment()
  [14:16:47.459]         local({
  [14:16:47.459]             for (name in names(...future.x_jj)) {
  [14:16:47.459]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.459]                   inherits = FALSE)
  [14:16:47.459]             }
  [14:16:47.459]         })
  [14:16:47.459]         tryCatch({
  [14:16:47.459]             plan_list <- future::plan("next")
  [14:16:47.459]             message(capture.output(print(plan_list)))
  [14:16:47.459]             stopifnot(inherits(plan_list, "future"))
  [14:16:47.459]             default <- getOption("future.plan", "sequential")
  [14:16:47.459]             if (is.function(default)) 
  [14:16:47.459]                 default <- class(default)
  [14:16:47.459]             stopifnot(inherits(plan_list, default))
  [14:16:47.459]             plan_b <- future::plan("list")
  [14:16:47.459]             str(plan_b)
  [14:16:47.459]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:47.459]                 default))
  [14:16:47.459]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.459]         }, error = identity)
  [14:16:47.459]     })
  [14:16:47.459] }
  [14:16:47.934]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:16:47.461]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.935]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:16:47.461] List of 3
  [14:16:47.461]  $ ...future.x_ii: NULL
  [14:16:47.461]  $ a             : int 2
  [14:16:47.461]  $ plan_a        :List of 1
  [14:16:47.461]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:47.461]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.461]     earlySignal = FALSE, label = NULL, ...)  
  [14:16:47.461]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:16:47.461]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:47.461]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:47.461]  - attr(*, "where")=List of 3
  [14:16:47.461]   ..$ ...future.x_ii:<environment: 0x393ced0> 
  [14:16:47.461]   ..$ a             :<environment: 0x35b0188> 
  [14:16:47.461]   ..$ plan_a        :<environment: 0x35b0188> 
  [14:16:47.461]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:47.461]  - attr(*, "resolved")= logi FALSE
  [14:16:47.461]  - attr(*, "total_size")= num 76816
  [14:16:47.936]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:16:47.486]   - packages: [2] 'doFuture', 'utils'
  [14:16:47.936]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:16:47.487] - identifying globals and packages ... DONE
  [14:16:47.937]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:16:47.489] Number of chunks: 2
  [14:16:47.937]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:16:47.490] Number of futures (= number of chunks): 2
  [14:16:47.938]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:16:47.491] Launching 2 futures (chunks) ...
  [14:16:47.939]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:16:47.492] Chunk #1 of 2 ...
  [14:16:47.939]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:16:47.493]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:47.940]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:16:47.493] getGlobalsAndPackages() ...
  [14:16:47.941]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:16:47.494] Searching for globals...
  [14:16:47.941]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:16:47.496] 
  [14:16:47.942]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:16:47.496] Searching for globals ... DONE
  [14:16:47.943]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:16:47.497] - globals: [0] <none>
  [14:16:47.943]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:16:47.498] getGlobalsAndPackages() ... DONE
  [14:16:47.944]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:16:47.498] 
  [14:16:47.945]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:16:47.499] 
  [14:16:47.945]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:16:47.500]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:47.946]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:16:47.502] getGlobalsAndPackages() ...
  [14:16:47.947]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:16:47.502] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.947]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:16:47.503] Resolving globals: FALSE
  [14:16:47.948]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:16:47.506] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [14:16:47.949]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:16:47.506] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.949]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:16:47.507] 
  [14:16:47.950]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:16:47.508] getGlobalsAndPackages() ... DONE
  [14:16:47.951]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:16:47.512] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:47.951]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:16:47.513] Packages needed by future strategies (n = 0): <none>
  [14:16:47.952]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:16:47.521] {
  [14:16:47.521]     {
  [14:16:47.521]         ...future.startTime <- base::Sys.time()
  [14:16:47.521]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:47.521]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:47.521]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:47.521]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:47.521]             future.resolve.recursive = NULL, width = 80L)
  [14:16:47.521]         {
  [14:16:47.521]             {
  [14:16:47.521]                 {
  [14:16:47.521]                   {
  [14:16:47.521]                     base::local({
  [14:16:47.521]                       has_future <- base::requireNamespace("future", 
  [14:16:47.521]                         quietly = TRUE)
  [14:16:47.521]                       version <- if (has_future) 
  [14:16:47.521]                         utils::packageVersion("future")
  [14:16:47.521]                       else NULL
  [14:16:47.521]                       if (!has_future || version < "1.8.0") {
  [14:16:47.521]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:16:47.521]                           "", base::R.version$version.string), 
  [14:16:47.521]                           platform = base::sprintf("%s (%s-bit)", 
  [14:16:47.521]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:47.521]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:47.521]                             "release", "version")], collapse = " "), 
  [14:16:47.521]                           hostname = base::Sys.info()[["nodename"]])
  [14:16:47.521]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:47.521]                           info)
  [14:16:47.521]                         info <- base::paste(info, collapse = "; ")
  [14:16:47.521]                         if (!has_future) {
  [14:16:47.521]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:47.521]                             info)
  [14:16:47.521]                         }
  [14:16:47.521]                         else {
  [14:16:47.521]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:47.521]                             info, version)
  [14:16:47.521]                         }
  [14:16:47.521]                         base::stop(msg)
  [14:16:47.521]                       }
  [14:16:47.521]                     })
  [14:16:47.521]                   }
  [14:16:47.521]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:16:47.521]                   base::options(mc.cores = 1L)
  [14:16:47.521]                 }
  [14:16:47.521]                 base::local({
  [14:16:47.521]                   for (pkg in c("doFuture", "utils")) {
  [14:16:47.521]                     base::loadNamespace(pkg)
  [14:16:47.521]                     base::library(pkg, character.only = TRUE)
  [14:16:47.521]                   }
  [14:16:47.521]                 })
  [14:16:47.521]             }
  [14:16:47.521]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:47.521]         }
  [14:16:47.521]     }
  [14:16:47.521]     if (base::is.na(TRUE)) {
  [14:16:47.521]     }
  [14:16:47.521]     else {
  [14:16:47.521]         if (TRUE) {
  [14:16:47.521]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:47.521]                 open = "w")
  [14:16:47.521]         }
  [14:16:47.521]         else {
  [14:16:47.521]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:47.521]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:47.521]         }
  [14:16:47.521]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:47.521]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:47.521]             base::sink(type = "output", split = FALSE)
  [14:16:47.521]             base::close(...future.stdout)
  [14:16:47.521]         }, add = TRUE)
  [14:16:47.521]     }
  [14:16:47.521]     ...future.frame <- base::sys.nframe()
  [14:16:47.521]     ...future.conditions <- base::list()
  [14:16:47.521]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:47.521]     ...future.result <- base::tryCatch({
  [14:16:47.521]         base::withCallingHandlers({
  [14:16:47.521]             ...future.value <- base::withVisible(base::local({
  [14:16:47.521]                 doFuture::registerDoFuture()
  [14:16:47.521]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.521]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.521]                   b <- NULL
  [14:16:47.521]                   ...future.env <- environment()
  [14:16:47.521]                   local({
  [14:16:47.521]                     for (name in names(...future.x_jj)) {
  [14:16:47.521]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.521]                         inherits = FALSE)
  [14:16:47.521]                     }
  [14:16:47.521]                   })
  [14:16:47.521]                   tryCatch({
  [14:16:47.521]                     plan_list <- future::plan("next")
  [14:16:47.521]                     message(capture.output(print(plan_list)))
  [14:16:47.521]                     stopifnot(inherits(plan_list, "future"))
  [14:16:47.521]                     default <- getOption("future.plan", "sequential")
  [14:16:47.521]                     if (is.function(default)) 
  [14:16:47.521]                       default <- class(default)
  [14:16:47.521]                     stopifnot(inherits(plan_list, default))
  [14:16:47.521]                     plan_b <- future::plan("list")
  [14:16:47.521]                     str(plan_b)
  [14:16:47.521]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:47.521]                       inherits(plan_b[[1]], default))
  [14:16:47.521]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.521]                   }, error = identity)
  [14:16:47.521]                 })
  [14:16:47.521]             }))
  [14:16:47.521]             future::FutureResult(value = ...future.value$value, 
  [14:16:47.521]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.521]                   ...future.rng), started = ...future.startTime, 
  [14:16:47.521]                 version = "1.8")
  [14:16:47.521]         }, condition = base::local({
  [14:16:47.521]             c <- base::c
  [14:16:47.521]             inherits <- base::inherits
  [14:16:47.521]             invokeRestart <- base::invokeRestart
  [14:16:47.521]             length <- base::length
  [14:16:47.521]             list <- base::list
  [14:16:47.521]             seq.int <- base::seq.int
  [14:16:47.521]             signalCondition <- base::signalCondition
  [14:16:47.521]             sys.calls <- base::sys.calls
  [14:16:47.521]             Sys.time <- base::Sys.time
  [14:16:47.521]             `[[` <- base::`[[`
  [14:16:47.521]             `+` <- base::`+`
  [14:16:47.521]             `<<-` <- base::`<<-`
  [14:16:47.521]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:47.521]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:47.521]                   3L)]
  [14:16:47.521]             }
  [14:16:47.521]             function(cond) {
  [14:16:47.521]                 if (inherits(cond, "error")) {
  [14:16:47.521]                   sessionInformation <- function() {
  [14:16:47.521]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:47.521]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:47.521]                       search = base::search(), system = base::Sys.info())
  [14:16:47.521]                   }
  [14:16:47.521]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.521]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:47.521]                     cond$call), session = sessionInformation(), 
  [14:16:47.521]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:47.521]                   signalCondition(cond)
  [14:16:47.521]                 }
  [14:16:47.521]                 else if (inherits(cond, "condition")) {
  [14:16:47.521]                   signal <- FALSE && inherits(cond, character(0))
  [14:16:47.521]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.521]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:47.521]                   if (!signal) {
  [14:16:47.521]                     muffleCondition <- function (cond) 
  [14:16:47.521]                     {
  [14:16:47.521]                       inherits <- base::inherits
  [14:16:47.521]                       invokeRestart <- base::invokeRestart
  [14:16:47.521]                       muffled <- FALSE
  [14:16:47.521]                       if (inherits(cond, "message")) {
  [14:16:47.521]                         invokeRestart("muffleMessage")
  [14:16:47.521]                         muffled <- TRUE
  [14:16:47.521]                       }
  [14:16:47.521]                       else if (inherits(cond, "warning")) {
  [14:16:47.521]                         invokeRestart("muffleWarning")
  [14:16:47.521]                         muffled <- TRUE
  [14:16:47.521]                       }
  [14:16:47.521]                       else if (inherits(cond, "condition")) {
  [14:16:47.521]                         computeRestarts <- base::computeRestarts
  [14:16:47.521]                         grepl <- base::grepl
  [14:16:47.521]                         is.null <- base::is.null
  [14:16:47.521]                         restarts <- computeRestarts(cond)
  [14:16:47.521]                         for (restart in restarts) {
  [14:16:47.521]                           name <- restart$name
  [14:16:47.521]                           if (is.null(name)) 
  [14:16:47.521]                             next
  [14:16:47.521]                           if (!grepl("^muffle", name)) 
  [14:16:47.521]                             next
  [14:16:47.521]                           invokeRestart(restart)
  [14:16:47.521]                           muffled <- TRUE
  [14:16:47.521]                           break
  [14:16:47.521]                         }
  [14:16:47.521]                       }
  [14:16:47.521]                       invisible(muffled)
  [14:16:47.521]                     }
  [14:16:47.521]                     muffleCondition(cond)
  [14:16:47.521]                   }
  [14:16:47.521]                 }
  [14:16:47.521]             }
  [14:16:47.521]         }))
  [14:16:47.521]     }, error = function(ex) {
  [14:16:47.521]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:47.521]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.521]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:47.521]     }, finally = {
  [14:16:47.521]         {
  [14:16:47.521]             {
  [14:16:47.521]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:16:47.521]             }
  [14:16:47.521]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:47.521]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:47.521]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.521]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:47.521]             {
  [14:16:47.521]                 if (substitute) 
  [14:16:47.521]                   expr <- substitute(expr)
  [14:16:47.521]                 if (is.function(workers)) 
  [14:16:47.521]                   workers <- workers()
  [14:16:47.521]                 workers <- as.integer(workers)
  [14:16:47.521]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:47.521]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:47.521]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:47.521]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:47.521]                     local = TRUE, label = label, ...))
  [14:16:47.521]                 }
  [14:16:47.521]                 oopts <- options(mc.cores = workers)
  [14:16:47.521]                 on.exit(options(oopts))
  [14:16:47.521]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:47.521]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:47.521]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:47.521]                   label = label, ...)
  [14:16:47.521]                 if (!future$lazy) 
  [14:16:47.521]                   future <- run(future)
  [14:16:47.521]                 invisible(future)
  [14:16:47.521]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:47.521]         }
  [14:16:47.521]         base::options(...future.oldOptions)
  [14:16:47.521]     })
  [14:16:47.521]     Sys.time
  [14:16:47.521]     if (base::is.na(TRUE)) {
  [14:16:47.521]     }
  [14:16:47.521]     else {
  [14:16:47.521]         base::sink(type = "output", split = FALSE)
  [14:16:47.521]         if (TRUE) {
  [14:16:47.521]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:47.521]         }
  [14:16:47.521]         else {
  [14:16:47.521]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:47.521]         }
  [14:16:47.521]         base::close(...future.stdout)
  [14:16:47.521]         ...future.stdout <- NULL
  [14:16:47.521]     }
  [14:16:47.521]     ...future.result$conditions <- ...future.conditions
  [14:16:47.521]     ...future.result
  [14:16:47.521] }
  [14:16:47.952]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:16:47.531] requestCore(): workers = 2
  [14:16:47.953]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:16:47.536] MulticoreFuture started
  [14:16:47.954]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:16:47.539] Chunk #1 of 2 ... DONE
  [14:16:47.954]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [14:16:47.540] Chunk #2 of 2 ...
  [14:16:47.955]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:16:47.541]  - Finding globals in 'args_list' chunk #2 ...
  [14:16:47.955]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [14:16:47.542] getGlobalsAndPackages() ...
  [14:16:47.956]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:16:47.543] Searching for globals...
  [14:16:47.956]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:16:47.546] 
  [14:16:47.957]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:16:47.547] Searching for globals ... DONE
  [14:16:47.958]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:16:47.548] - globals: [0] <none>
  [14:16:47.958]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:16:47.549] getGlobalsAndPackages() ... DONE
  [14:16:47.959]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:16:47.551] 
  [14:16:47.959]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:16:47.551] 
  [14:16:47.960]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:16:47.552]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:16:47.960]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:16:47.555] getGlobalsAndPackages() ...
  [14:16:47.961]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:16:47.556] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.962]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:16:47.557] Resolving globals: FALSE
  [14:16:47.962]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:16:47.561] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [14:16:47.963]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:16:47.562] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:16:47.963]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:16:47.563] 
  [14:16:47.964]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:16:47.564] getGlobalsAndPackages() ... DONE
  [14:16:47.964]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [14:16:47.569] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:16:47.965]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:16:47.571] Packages needed by future strategies (n = 0): <none>
  [14:16:47.966]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:16:47.583] {
  [14:16:47.583]     {
  [14:16:47.583]         ...future.startTime <- base::Sys.time()
  [14:16:47.583]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:47.583]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:47.583]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:47.583]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:47.583]             future.resolve.recursive = NULL, width = 80L)
  [14:16:47.583]         {
  [14:16:47.583]             {
  [14:16:47.583]                 {
  [14:16:47.583]                   {
  [14:16:47.583]                     base::local({
  [14:16:47.583]                       has_future <- base::requireNamespace("future", 
  [14:16:47.583]                         quietly = TRUE)
  [14:16:47.583]                       version <- if (has_future) 
  [14:16:47.583]                         utils::packageVersion("future")
  [14:16:47.583]                       else NULL
  [14:16:47.583]                       if (!has_future || version < "1.8.0") {
  [14:16:47.583]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:16:47.583]                           "", base::R.version$version.string), 
  [14:16:47.583]                           platform = base::sprintf("%s (%s-bit)", 
  [14:16:47.583]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:47.583]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:47.583]                             "release", "version")], collapse = " "), 
  [14:16:47.583]                           hostname = base::Sys.info()[["nodename"]])
  [14:16:47.583]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:47.583]                           info)
  [14:16:47.583]                         info <- base::paste(info, collapse = "; ")
  [14:16:47.583]                         if (!has_future) {
  [14:16:47.583]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:47.583]                             info)
  [14:16:47.583]                         }
  [14:16:47.583]                         else {
  [14:16:47.583]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:47.583]                             info, version)
  [14:16:47.583]                         }
  [14:16:47.583]                         base::stop(msg)
  [14:16:47.583]                       }
  [14:16:47.583]                     })
  [14:16:47.583]                   }
  [14:16:47.583]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:16:47.583]                   base::options(mc.cores = 1L)
  [14:16:47.583]                 }
  [14:16:47.583]                 base::local({
  [14:16:47.583]                   for (pkg in c("doFuture", "utils")) {
  [14:16:47.583]                     base::loadNamespace(pkg)
  [14:16:47.583]                     base::library(pkg, character.only = TRUE)
  [14:16:47.583]                   }
  [14:16:47.583]                 })
  [14:16:47.583]             }
  [14:16:47.583]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:16:47.583]         }
  [14:16:47.583]     }
  [14:16:47.583]     if (base::is.na(TRUE)) {
  [14:16:47.583]     }
  [14:16:47.583]     else {
  [14:16:47.583]         if (TRUE) {
  [14:16:47.583]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:47.583]                 open = "w")
  [14:16:47.583]         }
  [14:16:47.583]         else {
  [14:16:47.583]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:47.583]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:47.583]         }
  [14:16:47.583]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:47.583]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:47.583]             base::sink(type = "output", split = FALSE)
  [14:16:47.583]             base::close(...future.stdout)
  [14:16:47.583]         }, add = TRUE)
  [14:16:47.583]     }
  [14:16:47.583]     ...future.frame <- base::sys.nframe()
  [14:16:47.583]     ...future.conditions <- base::list()
  [14:16:47.583]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:47.583]     ...future.result <- base::tryCatch({
  [14:16:47.583]         base::withCallingHandlers({
  [14:16:47.583]             ...future.value <- base::withVisible(base::local({
  [14:16:47.583]                 doFuture::registerDoFuture()
  [14:16:47.583]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:47.583]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:47.583]                   b <- NULL
  [14:16:47.583]                   ...future.env <- environment()
  [14:16:47.583]                   local({
  [14:16:47.583]                     for (name in names(...future.x_jj)) {
  [14:16:47.583]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:47.583]                         inherits = FALSE)
  [14:16:47.583]                     }
  [14:16:47.583]                   })
  [14:16:47.583]                   tryCatch({
  [14:16:47.583]                     plan_list <- future::plan("next")
  [14:16:47.583]                     message(capture.output(print(plan_list)))
  [14:16:47.583]                     stopifnot(inherits(plan_list, "future"))
  [14:16:47.583]                     default <- getOption("future.plan", "sequential")
  [14:16:47.583]                     if (is.function(default)) 
  [14:16:47.583]                       default <- class(default)
  [14:16:47.583]                     stopifnot(inherits(plan_list, default))
  [14:16:47.583]                     plan_b <- future::plan("list")
  [14:16:47.583]                     str(plan_b)
  [14:16:47.583]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:47.583]                       inherits(plan_b[[1]], default))
  [14:16:47.583]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:47.583]                   }, error = identity)
  [14:16:47.583]                 })
  [14:16:47.583]             }))
  [14:16:47.583]             future::FutureResult(value = ...future.value$value, 
  [14:16:47.583]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.583]                   ...future.rng), started = ...future.startTime, 
  [14:16:47.583]                 version = "1.8")
  [14:16:47.583]         }, condition = base::local({
  [14:16:47.583]             c <- base::c
  [14:16:47.583]             inherits <- base::inherits
  [14:16:47.583]             invokeRestart <- base::invokeRestart
  [14:16:47.583]             length <- base::length
  [14:16:47.583]             list <- base::list
  [14:16:47.583]             seq.int <- base::seq.int
  [14:16:47.583]             signalCondition <- base::signalCondition
  [14:16:47.583]             sys.calls <- base::sys.calls
  [14:16:47.583]             Sys.time <- base::Sys.time
  [14:16:47.583]             `[[` <- base::`[[`
  [14:16:47.583]             `+` <- base::`+`
  [14:16:47.583]             `<<-` <- base::`<<-`
  [14:16:47.583]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:47.583]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:47.583]                   3L)]
  [14:16:47.583]             }
  [14:16:47.583]             function(cond) {
  [14:16:47.583]                 if (inherits(cond, "error")) {
  [14:16:47.583]                   sessionInformation <- function() {
  [14:16:47.583]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:47.583]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:47.583]                       search = base::search(), system = base::Sys.info())
  [14:16:47.583]                   }
  [14:16:47.583]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.583]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:47.583]                     cond$call), session = sessionInformation(), 
  [14:16:47.583]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:47.583]                   signalCondition(cond)
  [14:16:47.583]                 }
  [14:16:47.583]                 else if (inherits(cond, "condition")) {
  [14:16:47.583]                   signal <- FALSE && inherits(cond, character(0))
  [14:16:47.583]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:47.583]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:47.583]                   if (!signal) {
  [14:16:47.583]                     muffleCondition <- function (cond) 
  [14:16:47.583]                     {
  [14:16:47.583]                       inherits <- base::inherits
  [14:16:47.583]                       invokeRestart <- base::invokeRestart
  [14:16:47.583]                       muffled <- FALSE
  [14:16:47.583]                       if (inherits(cond, "message")) {
  [14:16:47.583]                         invokeRestart("muffleMessage")
  [14:16:47.583]                         muffled <- TRUE
  [14:16:47.583]                       }
  [14:16:47.583]                       else if (inherits(cond, "warning")) {
  [14:16:47.583]                         invokeRestart("muffleWarning")
  [14:16:47.583]                         muffled <- TRUE
  [14:16:47.583]                       }
  [14:16:47.583]                       else if (inherits(cond, "condition")) {
  [14:16:47.583]                         computeRestarts <- base::computeRestarts
  [14:16:47.583]                         grepl <- base::grepl
  [14:16:47.583]                         is.null <- base::is.null
  [14:16:47.583]                         restarts <- computeRestarts(cond)
  [14:16:47.583]                         for (restart in restarts) {
  [14:16:47.583]                           name <- restart$name
  [14:16:47.583]                           if (is.null(name)) 
  [14:16:47.583]                             next
  [14:16:47.583]                           if (!grepl("^muffle", name)) 
  [14:16:47.583]                             next
  [14:16:47.583]                           invokeRestart(restart)
  [14:16:47.583]                           muffled <- TRUE
  [14:16:47.583]                           break
  [14:16:47.583]                         }
  [14:16:47.583]                       }
  [14:16:47.583]                       invisible(muffled)
  [14:16:47.583]                     }
  [14:16:47.583]                     muffleCondition(cond)
  [14:16:47.583]                   }
  [14:16:47.583]                 }
  [14:16:47.583]             }
  [14:16:47.583]         }))
  [14:16:47.583]     }, error = function(ex) {
  [14:16:47.583]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:47.583]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:47.583]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:47.583]     }, finally = {
  [14:16:47.583]         {
  [14:16:47.583]             {
  [14:16:47.583]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:16:47.583]             }
  [14:16:47.583]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:47.583]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:47.583]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:16:47.583]                 earlySignal = FALSE, label = NULL, ...) 
  [14:16:47.583]             {
  [14:16:47.583]                 if (substitute) 
  [14:16:47.583]                   expr <- substitute(expr)
  [14:16:47.583]                 if (is.function(workers)) 
  [14:16:47.583]                   workers <- workers()
  [14:16:47.583]                 workers <- as.integer(workers)
  [14:16:47.583]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:16:47.583]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:16:47.583]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:47.583]                     lazy = lazy, seed = seed, globals = globals, 
  [14:16:47.583]                     local = TRUE, label = label, ...))
  [14:16:47.583]                 }
  [14:16:47.583]                 oopts <- options(mc.cores = workers)
  [14:16:47.583]                 on.exit(options(oopts))
  [14:16:47.583]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:16:47.583]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:47.583]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:16:47.583]                   label = label, ...)
  [14:16:47.583]                 if (!future$lazy) 
  [14:16:47.583]                   future <- run(future)
  [14:16:47.583]                 invisible(future)
  [14:16:47.583]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:47.583]         }
  [14:16:47.583]         base::options(...future.oldOptions)
  [14:16:47.583]     })
  [14:16:47.583]     Sys.time
  [14:16:47.583]     if (base::is.na(TRUE)) {
  [14:16:47.583]     }
  [14:16:47.583]     else {
  [14:16:47.583]         base::sink(type = "output", split = FALSE)
  [14:16:47.583]         if (TRUE) {
  [14:16:47.583]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:47.583]         }
  [14:16:47.583]         else {
  [14:16:47.583]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:47.583]         }
  [14:16:47.583]         base::close(...future.stdout)
  [14:16:47.583]         ...future.stdout <- NULL
  [14:16:47.583]     }
  [14:16:47.583]     ...future.result$conditions <- ...future.conditions
  [14:16:47.583]     ...future.result
  [14:16:47.583] }
  [14:16:47.966]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:16:47.596] requestCore(): workers = 2
  [14:16:47.967]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:16:47.601] MulticoreFuture started
  [14:16:47.967]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:16:47.603] Chunk #2 of 2 ... DONE
  [14:16:47.968]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:16:47.605] Launching 2 futures (chunks) ... DONE
  [14:16:47.968]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:16:47.605] - resolving futures
  [14:16:47.969]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:16:47.607]   - gathering results & relaying conditions (except errors)
  [14:16:47.970]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:16:47.608] resolve() on list ...
  [14:16:47.970]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:16:47.609]  recursive: 0
  [14:16:47.971]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:16:47.610]  length: 2
  [14:16:47.971]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:16:47.611] 
  [14:16:47.972]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:16:47.613] Future #1
  [14:16:47.972]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:16:47.617] signalConditions() ...
  [14:16:47.973]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:16:47.618]  - include = 'immediateCondition'
  [14:16:47.974]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:16:47.619]  - exclude = 
  [14:16:47.974]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:16:47.620]  - resignal = FALSE
  [14:16:47.975]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:16:47.621]  - Number of conditions: 1
  [14:16:47.975]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:16:47.622] signalConditions() ... done
  [14:16:47.976]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:16:47.623] signalConditions() ...
  [14:16:47.976]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:16:47.624]  - include = 'immediateCondition'
  [14:16:47.977]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:16:47.625]  - exclude = 
  [14:16:47.978]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:16:47.626]  - resignal = FALSE
  [14:16:47.978]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:16:47.627]  - Number of conditions: 1
  [14:16:47.979]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:16:47.628] signalConditions() ... done
  [14:16:47.979]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:16:47.629] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:16:47.980]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:16:47.630] - nx: 2
  [14:16:47.980]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:16:47.631] - relay: TRUE
  [14:16:47.981]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:16:47.632] - stdout: TRUE
  [14:16:47.981]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:16:47.632] - signal: TRUE
  [14:16:47.982]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:16:47.633] - resignal: FALSE
  [14:16:47.982]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:16:47.643] - force: FALSE
  [14:16:47.983]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:16:47.644] - relayed: [n=2] FALSE, FALSE
  [14:16:47.983]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [14:16:47.645] - queued futures: [n=2] FALSE, FALSE
  [14:16:47.984]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [14:16:47.647]  - until=1
  [14:16:47.985]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:16:47.648]  - relaying element #1
  [14:16:47.985]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:16:47.650] signalConditions() ...
  [14:16:47.989]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:16:47.651]  - include = 'immediateCondition'
  [14:16:47.990]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:16:47.653]  - exclude = 
  [14:16:47.991]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:16:47.654]  - resignal = FALSE
  [14:16:47.992]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:16:47.655]  - Number of conditions: 1
  [14:16:47.992]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:16:47.656] signalConditions() ... done
  [14:16:47.993]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:16:47.658] signalConditions() ...
  [14:16:47.994]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:16:47.659]  - include = 'immediateCondition'
  [14:16:47.995]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:16:47.660]  - exclude = 
  [14:16:47.995]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:16:47.661]  - resignal = FALSE
  [14:16:47.996]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:16:47.662]  - Number of conditions: 1
  [14:16:47.997]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:16:47.663] signalConditions() ... done
  [14:16:47.997]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:16:47.664] signalConditions() ...
  [14:16:47.998]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:16:47.665]  - include = 'condition'
  [14:16:47.999]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:16:47.666]  - exclude = 'immediateCondition'
  [14:16:48.000]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:16:47.667]  - resignal = FALSE
  [14:16:48.000]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:16:47.668]  - Number of conditions: 1
  [14:16:48.001]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:16:47.668]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:48.002]  - Condition #334: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:48.002]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:16:47.670] signalConditions() ... done
  [14:16:48.003]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:16:47.671] - relayed: [n=2] TRUE, FALSE
  [14:16:48.004]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:16:47.671] - queued futures: [n=2] TRUE, FALSE
  [14:16:48.004]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:16:47.672] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:16:48.005]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:16:47.673]  length: 1 (resolved future 1)
  [14:16:48.006]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:16:47.675] Future #2
  [14:16:48.006]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:16:47.678] signalConditions() ...
  [14:16:48.007]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:16:47.679]  - include = 'immediateCondition'
  [14:16:48.007]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:16:47.680]  - exclude = 
  [14:16:48.008]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:16:47.681]  - resignal = FALSE
  [14:16:48.009]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:16:47.682]  - Number of conditions: 2
  [14:16:48.009]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:16:47.683] signalConditions() ... done
  [14:16:48.010]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:16:47.684] signalConditions() ...
  [14:16:48.011]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:16:47.684]  - include = 'immediateCondition'
  [14:16:48.011]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:16:47.685]  - exclude = 
  [14:16:48.012]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:16:47.686]  - resignal = FALSE
  [14:16:48.013]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:16:47.687]  - Number of conditions: 2
  [14:16:48.013]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:16:47.688] signalConditions() ... done
  [14:16:48.014]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:16:47.689] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:16:48.015]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:16:47.690] - nx: 2
  [14:16:48.015]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:16:47.690] - relay: TRUE
  [14:16:48.016]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:16:47.691] - stdout: TRUE
  [14:16:48.016]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:16:47.692] - signal: TRUE
  [14:16:48.017]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:16:47.693] - resignal: FALSE
  [14:16:48.017]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:16:47.694] - force: FALSE
  [14:16:48.018]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:16:47.694] - relayed: [n=2] TRUE, FALSE
  [14:16:48.018]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:16:47.695] - queued futures: [n=2] TRUE, FALSE
  [14:16:48.019]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:16:47.696]  - until=2
  [14:16:48.020]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:16:47.697]  - relaying element #2
  [14:16:48.020]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:16:47.698] signalConditions() ...
  [14:16:48.021]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:16:47.699]  - include = 'immediateCondition'
  [14:16:48.021]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:16:47.700]  - exclude = 
  [14:16:48.022]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:16:47.700]  - resignal = FALSE
  [14:16:48.022]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:16:47.701]  - Number of conditions: 2
  [14:16:48.023]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:16:47.702] signalConditions() ... done
  [14:16:48.024]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:16:47.703] signalConditions() ...
  [14:16:48.024]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:16:47.704]  - include = 'immediateCondition'
  [14:16:48.025]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:16:47.705]  - exclude = 
  [14:16:48.025]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:16:47.705]  - resignal = FALSE
  [14:16:48.026]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:16:47.706]  - Number of conditions: 2
  [14:16:48.026]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:16:47.707] signalConditions() ... done
  [14:16:48.027]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:16:47.708] signalConditions() ...
  [14:16:48.027]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:16:47.709]  - include = 'condition'
  [14:16:48.028]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:16:47.709]  - exclude = 'immediateCondition'
  [14:16:48.028]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:16:47.710]  - resignal = FALSE
  [14:16:48.029]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:16:47.711]  - Number of conditions: 2
  [14:16:48.030]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:16:47.712]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:16:48.030]  - Condition #382: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:48.031]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:16:47.713]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:48.031]  - Condition #384: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:16:48.032]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:16:47.714] signalConditions() ... done
  [14:16:48.032]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:16:47.715] - relayed: [n=2] TRUE, TRUE
  [14:16:48.033]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:16:47.716] - queued futures: [n=2] TRUE, TRUE
  [14:16:48.033]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:16:47.717] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [14:16:48.034]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:16:47.718]  length: 0 (resolved future 2)
  [14:16:48.034]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:16:47.718] Relaying remaining futures
  [14:16:48.035]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:16:47.719] signalConditionsASAP(NULL, pos=0) ...
  [14:16:48.036]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:16:47.720] - nx: 2
  [14:16:48.036]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:16:47.721] - relay: TRUE
  [14:16:48.037]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:16:47.722] - stdout: TRUE
  [14:16:48.037]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:16:47.722] - signal: TRUE
  [14:16:48.038]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:16:47.723] - resignal: FALSE
  [14:16:48.038]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:16:47.724] - force: FALSE
  [14:16:48.039]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:16:47.725] - relayed: [n=2] TRUE, TRUE
  [14:16:48.039]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:16:47.725] - queued futures: [n=2] TRUE, TRUE
  [14:16:48.040]  - Condition #400: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:16:48.040]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:16:47.727] - relayed: [n=2] TRUE, TRUE
  [14:16:48.041]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:16:47.728] - queued futures: [n=2] TRUE, TRUE
  [14:16:48.042]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:16:47.729] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:48.042]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:16:47.729] resolve() on list ... DONE
  [14:16:48.043]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:16:47.730] - collecting values of futures
  [14:16:48.043]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:16:47.731] signalConditions() ...
  [14:16:48.044]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:16:47.732]  - include = 'immediateCondition'
  [14:16:48.044]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:16:47.733]  - exclude = 
  [14:16:48.045]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:16:47.734]  - resignal = FALSE
  [14:16:48.046]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:16:47.734]  - Number of conditions: 1
  [14:16:48.046]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:16:47.735] signalConditions() ... done
  [14:16:48.047]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:16:47.736] signalConditions() ...
  [14:16:48.047]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:16:47.737]  - include = 'immediateCondition'
  [14:16:48.048]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:16:47.738]  - exclude = 
  [14:16:48.049]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:16:47.739]  - resignal = FALSE
  [14:16:48.049]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:16:47.740]  - Number of conditions: 2
  [14:16:48.050]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:16:47.740] signalConditions() ... done
  [14:16:48.051]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:16:47.741] - accumulating results
  [14:16:48.051]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:16:47.744] - processing errors (handler = 'stop')
  [14:16:48.052]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:16:47.745] - extracting results
  [14:16:48.052]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:16:47.745] doFuture() ... DONE
  [14:16:48.053]  - Condition #422: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:16:48.054] signalConditions() ... done
  [14:16:48.055] - relayed: [n=1] TRUE
  [14:16:48.055] - queued futures: [n=1] TRUE
  [14:16:48.056] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:16:48.056]  length: 0 (resolved future 1)
  [14:16:48.057] Relaying remaining futures
  [14:16:48.057] signalConditionsASAP(NULL, pos=0) ...
  [14:16:48.058] - nx: 1
  [14:16:48.058] - relay: TRUE
  [14:16:48.058] - stdout: TRUE
  [14:16:48.059] - signal: TRUE
  [14:16:48.059] - resignal: FALSE
  [14:16:48.060] - force: FALSE
  [14:16:48.060] - relayed: [n=1] TRUE
  [14:16:48.061] - queued futures: [n=1] TRUE
   - flush all
  [14:16:48.061] - relayed: [n=1] TRUE
  [14:16:48.062] - queued futures: [n=1] TRUE
  [14:16:48.062] signalConditionsASAP(NULL, pos=0) ... done
  [14:16:48.063] resolve() on list ... DONE
  [14:16:48.063] - collecting values of futures
  [14:16:48.064] signalConditions() ...
  [14:16:48.064]  - include = 'immediateCondition'
  [14:16:48.065]  - exclude = 
  [14:16:48.065]  - resignal = FALSE
  [14:16:48.065]  - Number of conditions: 422
  [14:16:48.067] signalConditions() ... done
  [14:16:48.067] - accumulating results
  [14:16:48.069] - processing errors (handler = 'stop')
  [14:16:48.069] - extracting results
  [14:16:48.070] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [14:16:48.072] plan(): Setting new future strategy stack:
  [14:16:48.072] List of future strategies:
  [14:16:48.072] 1. sequential:
  [14:16:48.072]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:16:48.072]    - tweaked: FALSE
  [14:16:48.072]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:48.072] 2. multisession:
  [14:16:48.072]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:16:48.072]    - tweaked: FALSE
  [14:16:48.072]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:48.074] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:16:48.075] doFuture() ...
  [14:16:48.077] - dummy globals (as locals): [1] 'a'
  [14:16:48.079] - R expression:
  [14:16:48.079] {
  [14:16:48.079]     doFuture::registerDoFuture()
  [14:16:48.079]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:48.079]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:48.079]         a <- NULL
  [14:16:48.079]         ...future.env <- environment()
  [14:16:48.079]         local({
  [14:16:48.079]             for (name in names(...future.x_jj)) {
  [14:16:48.079]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:48.079]                   inherits = FALSE)
  [14:16:48.079]             }
  [14:16:48.079]         })
  [14:16:48.079]         tryCatch({
  [14:16:48.079]             plan_list <- future::plan("next")
  [14:16:48.079]             stopifnot(inherits(plan_list, strategy2))
  [14:16:48.079]             plan_a <- future::plan("list")
  [14:16:48.079]             str(plan_a)
  [14:16:48.079]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:48.079]             message("foreach() - level 2 ...")
  [14:16:48.079]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:48.079]                 {
  [14:16:48.079]                   plan_list <- future::plan("next")
  [14:16:48.079]                   message(capture.output(print(plan_list)))
  [14:16:48.079]                   stopifnot(inherits(plan_list, "future"))
  [14:16:48.079]                   default <- getOption("future.plan", "sequential")
  [14:16:48.079]                   if (is.function(default)) 
  [14:16:48.079]                     default <- class(default)
  [14:16:48.079]                   stopifnot(inherits(plan_list, default))
  [14:16:48.079]                   plan_b <- future::plan("list")
  [14:16:48.079]                   str(plan_b)
  [14:16:48.079]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:48.079]                     inherits(plan_b[[1]], default))
  [14:16:48.079]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:48.079]                 }
  [14:16:48.079]             message("foreach() - level 2 ... DONE")
  [14:16:48.079]             y
  [14:16:48.079]         }, error = identity)
  [14:16:48.079]     })
  [14:16:48.079] }
  [14:16:48.081] - identifying globals and packages ...
  [14:16:48.082] getGlobalsAndPackages() ...
  [14:16:48.082] Searching for globals...
  [14:16:48.133] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:16:48.133] Searching for globals ... DONE
  [14:16:48.134] Resolving globals: FALSE
  [14:16:48.138] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:16:48.139] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:48.139] - packages: [2] 'utils', 'foreach'
  [14:16:48.140] getGlobalsAndPackages() ... DONE
  [14:16:48.140] List of 3
  [14:16:48.140]  $ ...future.x_ii: NULL
  [14:16:48.140]  $ strategy2     : chr "multisession"
  [14:16:48.140]  $ bs            : int [1:3] 3 2 1
  [14:16:48.140]  - attr(*, "where")=List of 3
  [14:16:48.140]   ..$ ...future.x_ii:<environment: 0x374c328> 
  [14:16:48.140]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:48.140]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:48.140]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:48.140]  - attr(*, "resolved")= logi FALSE
  [14:16:48.140]  - attr(*, "total_size")= num 184
  [14:16:48.156]   - R expression:
  [14:16:48.157] {
  [14:16:48.157]     doFuture::registerDoFuture()
  [14:16:48.157]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:48.157]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:48.157]         a <- NULL
  [14:16:48.157]         ...future.env <- environment()
  [14:16:48.157]         local({
  [14:16:48.157]             for (name in names(...future.x_jj)) {
  [14:16:48.157]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:48.157]                   inherits = FALSE)
  [14:16:48.157]             }
  [14:16:48.157]         })
  [14:16:48.157]         tryCatch({
  [14:16:48.157]             plan_list <- future::plan("next")
  [14:16:48.157]             stopifnot(inherits(plan_list, strategy2))
  [14:16:48.157]             plan_a <- future::plan("list")
  [14:16:48.157]             str(plan_a)
  [14:16:48.157]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:48.157]             message("foreach() - level 2 ...")
  [14:16:48.157]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:48.157]                 {
  [14:16:48.157]                   plan_list <- future::plan("next")
  [14:16:48.157]                   message(capture.output(print(plan_list)))
  [14:16:48.157]                   stopifnot(inherits(plan_list, "future"))
  [14:16:48.157]                   default <- getOption("future.plan", "sequential")
  [14:16:48.157]                   if (is.function(default)) 
  [14:16:48.157]                     default <- class(default)
  [14:16:48.157]                   stopifnot(inherits(plan_list, default))
  [14:16:48.157]                   plan_b <- future::plan("list")
  [14:16:48.157]                   str(plan_b)
  [14:16:48.157]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:48.157]                     inherits(plan_b[[1]], default))
  [14:16:48.157]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:48.157]                 }
  [14:16:48.157]             message("foreach() - level 2 ... DONE")
  [14:16:48.157]             y
  [14:16:48.157]         }, error = identity)
  [14:16:48.157]     })
  [14:16:48.157] }
  [14:16:48.159]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:48.159] List of 3
  [14:16:48.159]  $ ...future.x_ii: NULL
  [14:16:48.159]  $ strategy2     : chr "multisession"
  [14:16:48.159]  $ bs            : int [1:3] 3 2 1
  [14:16:48.159]  - attr(*, "where")=List of 3
  [14:16:48.159]   ..$ ...future.x_ii:<environment: 0x374c328> 
  [14:16:48.159]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:16:48.159]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:16:48.159]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:48.159]  - attr(*, "resolved")= logi FALSE
  [14:16:48.159]  - attr(*, "total_size")= num 184
  [14:16:48.179]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:16:48.180] - identifying globals and packages ... DONE
  [14:16:48.180] Number of chunks: 1
  [14:16:48.181] Number of futures (= number of chunks): 1
  [14:16:48.182] Launching 1 futures (chunks) ...
  [14:16:48.183] Chunk #1 of 1 ...
  [14:16:48.183]  - Finding globals in 'args_list' chunk #1 ...
  [14:16:48.184] getGlobalsAndPackages() ...
  [14:16:48.184] Searching for globals...
  [14:16:48.185] 
  [14:16:48.186] Searching for globals ... DONE
  [14:16:48.186] - globals: [0] <none>
  [14:16:48.187] getGlobalsAndPackages() ... DONE
  [14:16:48.187] 
  [14:16:48.187] 
  [14:16:48.188]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:16:48.189] getGlobalsAndPackages() ...
  [14:16:48.189] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:48.190] Resolving globals: FALSE
  [14:16:48.191] The total size of the 3 globals is 296 bytes (296 bytes)
  [14:16:48.192] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:16:48.192] 
  [14:16:48.193] getGlobalsAndPackages() ... DONE
  [14:16:48.196] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:16:48.197] Packages needed by future strategies (n = 1): 'future'
  [14:16:48.206] {
  [14:16:48.206]     {
  [14:16:48.206]         ...future.startTime <- base::Sys.time()
  [14:16:48.206]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:16:48.206]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:16:48.206]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:16:48.206]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:16:48.206]             future.resolve.recursive = NULL, width = 80L)
  [14:16:48.206]         {
  [14:16:48.206]             {
  [14:16:48.206]                 {
  [14:16:48.206]                   base::local({
  [14:16:48.206]                     has_future <- base::requireNamespace("future", 
  [14:16:48.206]                       quietly = TRUE)
  [14:16:48.206]                     version <- if (has_future) 
  [14:16:48.206]                       utils::packageVersion("future")
  [14:16:48.206]                     else NULL
  [14:16:48.206]                     if (!has_future || version < "1.8.0") {
  [14:16:48.206]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:16:48.206]                         "", base::R.version$version.string), 
  [14:16:48.206]                         platform = base::sprintf("%s (%s-bit)", 
  [14:16:48.206]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:16:48.206]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:16:48.206]                           "release", "version")], collapse = " "), 
  [14:16:48.206]                         hostname = base::Sys.info()[["nodename"]])
  [14:16:48.206]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:16:48.206]                         info)
  [14:16:48.206]                       info <- base::paste(info, collapse = "; ")
  [14:16:48.206]                       if (!has_future) {
  [14:16:48.206]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:16:48.206]                           info)
  [14:16:48.206]                       }
  [14:16:48.206]                       else {
  [14:16:48.206]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:16:48.206]                           info, version)
  [14:16:48.206]                       }
  [14:16:48.206]                       base::stop(msg)
  [14:16:48.206]                     }
  [14:16:48.206]                   })
  [14:16:48.206]                 }
  [14:16:48.206]                 base::local({
  [14:16:48.206]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:16:48.206]                   "future")) {
  [14:16:48.206]                     base::loadNamespace(pkg)
  [14:16:48.206]                     base::library(pkg, character.only = TRUE)
  [14:16:48.206]                   }
  [14:16:48.206]                 })
  [14:16:48.206]             }
  [14:16:48.206]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:16:48.206]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:48.206]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:16:48.206]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:16:48.206]                 ...) 
  [14:16:48.206]             {
  [14:16:48.206]                 if (substitute) 
  [14:16:48.206]                   expr <- substitute(expr)
  [14:16:48.206]                 if (is.function(workers)) 
  [14:16:48.206]                   workers <- workers()
  [14:16:48.206]                 workers <- as.integer(workers)
  [14:16:48.206]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:16:48.206]                   workers >= 1)
  [14:16:48.206]                 if (workers == 1L) {
  [14:16:48.206]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:48.206]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:16:48.206]                     local = TRUE, label = label, ...))
  [14:16:48.206]                 }
  [14:16:48.206]                 workers <- ClusterRegistry("start", workers = workers)
  [14:16:48.206]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:16:48.206]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:48.206]                   globals = globals, persistent = persistent, 
  [14:16:48.206]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:16:48.206]                   label = label, ...)
  [14:16:48.206]                 if (!future$lazy) 
  [14:16:48.206]                   future <- run(future)
  [14:16:48.206]                 invisible(future)
  [14:16:48.206]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:48.206]         }
  [14:16:48.206]     }
  [14:16:48.206]     if (base::is.na(TRUE)) {
  [14:16:48.206]     }
  [14:16:48.206]     else {
  [14:16:48.206]         if (TRUE) {
  [14:16:48.206]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:16:48.206]                 open = "w")
  [14:16:48.206]         }
  [14:16:48.206]         else {
  [14:16:48.206]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:16:48.206]                 windows = "NUL", "/dev/null"), open = "w")
  [14:16:48.206]         }
  [14:16:48.206]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:16:48.206]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:16:48.206]             base::sink(type = "output", split = FALSE)
  [14:16:48.206]             base::close(...future.stdout)
  [14:16:48.206]         }, add = TRUE)
  [14:16:48.206]     }
  [14:16:48.206]     ...future.frame <- base::sys.nframe()
  [14:16:48.206]     ...future.conditions <- base::list()
  [14:16:48.206]     ...future.rng <- base::globalenv()$.Random.seed
  [14:16:48.206]     ...future.result <- base::tryCatch({
  [14:16:48.206]         base::withCallingHandlers({
  [14:16:48.206]             ...future.value <- base::withVisible(base::local({
  [14:16:48.206]                 doFuture::registerDoFuture()
  [14:16:48.206]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:48.206]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:48.206]                   a <- NULL
  [14:16:48.206]                   ...future.env <- environment()
  [14:16:48.206]                   local({
  [14:16:48.206]                     for (name in names(...future.x_jj)) {
  [14:16:48.206]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:48.206]                         inherits = FALSE)
  [14:16:48.206]                     }
  [14:16:48.206]                   })
  [14:16:48.206]                   tryCatch({
  [14:16:48.206]                     plan_list <- future::plan("next")
  [14:16:48.206]                     stopifnot(inherits(plan_list, strategy2))
  [14:16:48.206]                     plan_a <- future::plan("list")
  [14:16:48.206]                     str(plan_a)
  [14:16:48.206]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:16:48.206]                     message("foreach() - level 2 ...")
  [14:16:48.206]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:16:48.206]                       {
  [14:16:48.206]                         plan_list <- future::plan("next")
  [14:16:48.206]                         message(capture.output(print(plan_list)))
  [14:16:48.206]                         stopifnot(inherits(plan_list, "future"))
  [14:16:48.206]                         default <- getOption("future.plan", "sequential")
  [14:16:48.206]                         if (is.function(default)) 
  [14:16:48.206]                           default <- class(default)
  [14:16:48.206]                         stopifnot(inherits(plan_list, default))
  [14:16:48.206]                         plan_b <- future::plan("list")
  [14:16:48.206]                         str(plan_b)
  [14:16:48.206]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:16:48.206]                           inherits(plan_b[[1]], default))
  [14:16:48.206]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:48.206]                       }
  [14:16:48.206]                     message("foreach() - level 2 ... DONE")
  [14:16:48.206]                     y
  [14:16:48.206]                   }, error = identity)
  [14:16:48.206]                 })
  [14:16:48.206]             }))
  [14:16:48.206]             future::FutureResult(value = ...future.value$value, 
  [14:16:48.206]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:48.206]                   ...future.rng), started = ...future.startTime, 
  [14:16:48.206]                 version = "1.8")
  [14:16:48.206]         }, condition = base::local({
  [14:16:48.206]             c <- base::c
  [14:16:48.206]             inherits <- base::inherits
  [14:16:48.206]             invokeRestart <- base::invokeRestart
  [14:16:48.206]             length <- base::length
  [14:16:48.206]             list <- base::list
  [14:16:48.206]             seq.int <- base::seq.int
  [14:16:48.206]             signalCondition <- base::signalCondition
  [14:16:48.206]             sys.calls <- base::sys.calls
  [14:16:48.206]             Sys.time <- base::Sys.time
  [14:16:48.206]             `[[` <- base::`[[`
  [14:16:48.206]             `+` <- base::`+`
  [14:16:48.206]             `<<-` <- base::`<<-`
  [14:16:48.206]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:16:48.206]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:16:48.206]                   3L)]
  [14:16:48.206]             }
  [14:16:48.206]             function(cond) {
  [14:16:48.206]                 if (inherits(cond, "error")) {
  [14:16:48.206]                   sessionInformation <- function() {
  [14:16:48.206]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:16:48.206]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:16:48.206]                       search = base::search(), system = base::Sys.info())
  [14:16:48.206]                   }
  [14:16:48.206]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:48.206]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:16:48.206]                     cond$call), session = sessionInformation(), 
  [14:16:48.206]                     timestamp = Sys.time(), signaled = 0L)
  [14:16:48.206]                   signalCondition(cond)
  [14:16:48.206]                 }
  [14:16:48.206]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:16:48.206]                 ))) {
  [14:16:48.206]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:16:48.206]                   ...future.conditions[[length(...future.conditions) + 
  [14:16:48.206]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:16:48.206]                   if (!signal) {
  [14:16:48.206]                     muffleCondition <- function (cond) 
  [14:16:48.206]                     {
  [14:16:48.206]                       inherits <- base::inherits
  [14:16:48.206]                       invokeRestart <- base::invokeRestart
  [14:16:48.206]                       muffled <- FALSE
  [14:16:48.206]                       if (inherits(cond, "message")) {
  [14:16:48.206]                         invokeRestart("muffleMessage")
  [14:16:48.206]                         muffled <- TRUE
  [14:16:48.206]                       }
  [14:16:48.206]                       else if (inherits(cond, "warning")) {
  [14:16:48.206]                         invokeRestart("muffleWarning")
  [14:16:48.206]                         muffled <- TRUE
  [14:16:48.206]                       }
  [14:16:48.206]                       else if (inherits(cond, "condition")) {
  [14:16:48.206]                         computeRestarts <- base::computeRestarts
  [14:16:48.206]                         grepl <- base::grepl
  [14:16:48.206]                         is.null <- base::is.null
  [14:16:48.206]                         restarts <- computeRestarts(cond)
  [14:16:48.206]                         for (restart in restarts) {
  [14:16:48.206]                           name <- restart$name
  [14:16:48.206]                           if (is.null(name)) 
  [14:16:48.206]                             next
  [14:16:48.206]                           if (!grepl("^muffle", name)) 
  [14:16:48.206]                             next
  [14:16:48.206]                           invokeRestart(restart)
  [14:16:48.206]                           muffled <- TRUE
  [14:16:48.206]                           break
  [14:16:48.206]                         }
  [14:16:48.206]                       }
  [14:16:48.206]                       invisible(muffled)
  [14:16:48.206]                     }
  [14:16:48.206]                     muffleCondition(cond)
  [14:16:48.206]                   }
  [14:16:48.206]                 }
  [14:16:48.206]             }
  [14:16:48.206]         }))
  [14:16:48.206]     }, error = function(ex) {
  [14:16:48.206]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:16:48.206]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:16:48.206]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:16:48.206]     }, finally = {
  [14:16:48.206]         {
  [14:16:48.206]             NULL
  [14:16:48.206]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:16:48.206]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:16:48.206]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:16:48.206]                 label = NULL, ...) 
  [14:16:48.206]             {
  [14:16:48.206]                 if (substitute) 
  [14:16:48.206]                   expr <- substitute(expr)
  [14:16:48.206]                 local <- as.logical(local)
  [14:16:48.206]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:16:48.206]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:48.206]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:16:48.206]                   label = label, ...)
  [14:16:48.206]                 if (!future$lazy) 
  [14:16:48.206]                   future <- run(future)
  [14:16:48.206]                 invisible(future)
  [14:16:48.206]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:16:48.206]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:16:48.206]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:16:48.206]                 label = NULL, ...) 
  [14:16:48.206]             {
  [14:16:48.206]                 if (substitute) 
  [14:16:48.206]                   expr <- substitute(expr)
  [14:16:48.206]                 if (is.function(workers)) 
  [14:16:48.206]                   workers <- workers()
  [14:16:48.206]                 workers <- as.integer(workers)
  [14:16:48.206]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:16:48.206]                   workers >= 1)
  [14:16:48.206]                 if (workers == 1L) {
  [14:16:48.206]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:16:48.206]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:16:48.206]                     local = TRUE, label = label, ...))
  [14:16:48.206]                 }
  [14:16:48.206]                 workers <- ClusterRegistry("start", workers = workers)
  [14:16:48.206]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:16:48.206]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:16:48.206]                   globals = globals, persistent = persistent, 
  [14:16:48.206]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:16:48.206]                   label = label, ...)
  [14:16:48.206]                 if (!future$lazy) 
  [14:16:48.206]                   future <- run(future)
  [14:16:48.206]                 invisible(future)
  [14:16:48.206]             }), .cleanup = FALSE, .init = FALSE)
  [14:16:48.206]         }
  [14:16:48.206]         base::options(...future.oldOptions)
  [14:16:48.206]     })
  [14:16:48.206]     Sys.time
  [14:16:48.206]     if (base::is.na(TRUE)) {
  [14:16:48.206]     }
  [14:16:48.206]     else {
  [14:16:48.206]         base::sink(type = "output", split = FALSE)
  [14:16:48.206]         if (TRUE) {
  [14:16:48.206]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:16:48.206]         }
  [14:16:48.206]         else {
  [14:16:48.206]             ...future.result["stdout"] <- base::list(NULL)
  [14:16:48.206]         }
  [14:16:48.206]         base::close(...future.stdout)
  [14:16:48.206]         ...future.stdout <- NULL
  [14:16:48.206]     }
  [14:16:48.206]     ...future.result$conditions <- ...future.conditions
  [14:16:48.206]     ...future.result
  [14:16:48.206] }
  [14:16:48.221] plan(): Setting new future strategy stack:
  [14:16:48.221] List of future strategies:
  [14:16:48.221] 1. multisession:
  [14:16:48.221]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:16:48.221]    - tweaked: FALSE
  [14:16:48.221]    - call: plan(list(a = strategy1, b = strategy2))
  [14:16:48.224] plan(): nbrOfWorkers() = 2
  [14:17:08.345] plan(): Setting new future strategy stack:
  [14:17:08.346] List of future strategies:
  [14:17:08.346] 1. sequential:
  [14:17:08.346]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:08.346]    - tweaked: FALSE
  [14:17:08.346]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:08.346] 2. multisession:
  [14:17:08.346]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:08.346]    - tweaked: FALSE
  [14:17:08.346]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:08.348] plan(): nbrOfWorkers() = 1
  [14:17:08.350] SequentialFuture started (and completed)
  [14:17:08.351] signalConditions() ...
  [14:17:08.351]  - include = 'immediateCondition'
  [14:17:08.358]  - exclude = 
  [14:17:08.359]  - resignal = FALSE
  [14:17:08.359]  - Number of conditions: 604
  [14:17:08.362] signalConditions() ... done
  [14:17:08.363] Chunk #1 of 1 ... DONE
  [14:17:08.363] Launching 1 futures (chunks) ... DONE
  [14:17:08.364] - resolving futures
  [14:17:08.364]   - gathering results & relaying conditions (except errors)
  [14:17:08.365] resolve() on list ...
  [14:17:08.365]  recursive: 0
  [14:17:08.365]  length: 1
  [14:17:08.366] 
  [14:17:08.366] Future #1
  [14:17:08.367] signalConditions() ...
  [14:17:08.367]  - include = 'immediateCondition'
  [14:17:08.368]  - exclude = 
  [14:17:08.368]  - resignal = FALSE
  [14:17:08.369]  - Number of conditions: 604
  [14:17:08.372] signalConditions() ... done
  [14:17:08.373] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:08.373] - nx: 1
  [14:17:08.374] - relay: TRUE
  [14:17:08.374] - stdout: TRUE
  [14:17:08.375] - signal: TRUE
  [14:17:08.375] - resignal: FALSE
  [14:17:08.375] - force: FALSE
  [14:17:08.376] - relayed: [n=1] FALSE
  [14:17:08.376] - queued futures: [n=1] FALSE
  [14:17:08.377]  - until=1
  [14:17:08.377]  - relaying element #1
  [14:17:08.378] signalConditions() ...
  [14:17:08.378]  - include = 'immediateCondition'
  [14:17:08.379]  - exclude = 
  [14:17:08.379]  - resignal = FALSE
  [14:17:08.380]  - Number of conditions: 604
  [14:17:08.383] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:08.384] signalConditions() ...
  [14:17:08.384]  - include = 'immediateCondition'
  [14:17:08.385]  - exclude = 
  [14:17:08.385]  - resignal = FALSE
  [14:17:08.385]  - Number of conditions: 604
  [14:17:08.388] signalConditions() ... done
  [14:17:08.389] signalConditions() ...
  [14:17:08.389]  - include = 'condition'
  [14:17:08.390]  - exclude = 'immediateCondition'
  [14:17:08.390]  - resignal = FALSE
  [14:17:08.391]  - Number of conditions: 604
  [14:17:08.391]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:08.392]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:16:48.235] doFuture() ...
  [14:17:08.393]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:16:48.238] - dummy globals (as locals): [1] 'b'
  [14:17:08.393]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:16:48.239] - R expression:
  [14:17:08.394]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:16:48.240] {
  [14:16:48.240]     doFuture::registerDoFuture()
  [14:16:48.240]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:48.240]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:48.240]         b <- NULL
  [14:16:48.240]         ...future.env <- environment()
  [14:16:48.240]         local({
  [14:16:48.240]             for (name in names(...future.x_jj)) {
  [14:16:48.240]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:48.240]                   inherits = FALSE)
  [14:16:48.240]             }
  [14:16:48.240]         })
  [14:16:48.240]         tryCatch({
  [14:16:48.240]             plan_list <- future::plan("next")
  [14:16:48.240]             message(capture.output(print(plan_list)))
  [14:16:48.240]             stopifnot(inherits(plan_list, "future"))
  [14:16:48.240]             default <- getOption("future.plan", "sequential")
  [14:16:48.240]             if (is.function(default)) 
  [14:16:48.240]                 default <- class(default)
  [14:16:48.240]             stopifnot(inherits(plan_list, default))
  [14:16:48.240]             plan_b <- future::plan("list")
  [14:16:48.240]             str(plan_b)
  [14:16:48.240]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:48.240]                 default))
  [14:16:48.240]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:48.240]         }, error = identity)
  [14:16:48.240]     })
  [14:16:48.240] }
  [14:17:08.395]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:16:48.242] - identifying globals and packages ...
  [14:17:08.395]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:16:48.243] getGlobalsAndPackages() ...
  [14:17:08.396]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:16:48.243] Searching for globals...
  [14:17:08.397]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:16:48.286] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:08.397]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:16:48.287] Searching for globals ... DONE
  [14:17:08.398]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:16:48.288] Resolving globals: FALSE
  [14:17:08.399]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:16:48.292] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:17:08.399]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:16:48.293] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.400]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:16:48.294] - packages: [1] 'utils'
  [14:17:08.401]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:16:48.295] getGlobalsAndPackages() ... DONE
  [14:17:08.401]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:16:48.296] List of 3
  [14:16:48.296]  $ ...future.x_ii: NULL
  [14:16:48.296]  $ a             : int 1
  [14:16:48.296]  $ plan_a        :List of 1
  [14:16:48.296]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:48.296]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:16:48.296]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:16:48.296]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:16:48.296]   .. ..- attr(*, "init")= logi TRUE
  [14:16:48.296]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:48.296]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:48.296]  - attr(*, "where")=List of 3
  [14:16:48.296]   ..$ ...future.x_ii:<environment: 0x32674d0> 
  [14:16:48.296]   ..$ a             :<environment: 0x24f6808> 
  [14:16:48.296]   ..$ plan_a        :<environment: 0x24f6808> 
  [14:16:48.296]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:48.296]  - attr(*, "resolved")= logi FALSE
  [14:16:48.296]  - attr(*, "total_size")= num 83544
  [14:17:08.402]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:16:48.318]   - R expression:
  [14:17:08.403]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:16:48.318] {
  [14:16:48.318]     doFuture::registerDoFuture()
  [14:16:48.318]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:16:48.318]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:16:48.318]         b <- NULL
  [14:16:48.318]         ...future.env <- environment()
  [14:16:48.318]         local({
  [14:16:48.318]             for (name in names(...future.x_jj)) {
  [14:16:48.318]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:16:48.318]                   inherits = FALSE)
  [14:16:48.318]             }
  [14:16:48.318]         })
  [14:16:48.318]         tryCatch({
  [14:16:48.318]             plan_list <- future::plan("next")
  [14:16:48.318]             message(capture.output(print(plan_list)))
  [14:16:48.318]             stopifnot(inherits(plan_list, "future"))
  [14:16:48.318]             default <- getOption("future.plan", "sequential")
  [14:16:48.318]             if (is.function(default)) 
  [14:16:48.318]                 default <- class(default)
  [14:16:48.318]             stopifnot(inherits(plan_list, default))
  [14:16:48.318]             plan_b <- future::plan("list")
  [14:16:48.318]             str(plan_b)
  [14:16:48.318]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:16:48.318]                 default))
  [14:16:48.318]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:16:48.318]         }, error = identity)
  [14:16:48.318]     })
  [14:16:48.318] }
  [14:17:08.403]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:16:48.321]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.404]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:16:48.322] List of 3
  [14:16:48.322]  $ ...future.x_ii: NULL
  [14:16:48.322]  $ a             : int 1
  [14:16:48.322]  $ plan_a        :List of 1
  [14:16:48.322]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:16:48.322]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:16:48.322]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:16:48.322]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:16:48.322]   .. ..- attr(*, "init")= logi TRUE
  [14:16:48.322]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:16:48.322]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:16:48.322]  - attr(*, "where")=List of 3
  [14:16:48.322]   ..$ ...future.x_ii:<environment: 0x32674d0> 
  [14:16:48.322]   ..$ a             :<environment: 0x24f6808> 
  [14:16:48.322]   ..$ plan_a        :<environment: 0x24f6808> 
  [14:16:48.322]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:16:48.322]  - attr(*, "resolved")= logi FALSE
  [14:16:48.322]  - attr(*, "total_size")= num 83544
  [14:17:08.405]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:16:48.341]   - packages: [2] 'doFuture', 'utils'
  [14:17:08.405]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:16:48.341] - identifying globals and packages ... DONE
  [14:17:08.406]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:16:48.344] Number of chunks: 2
  [14:17:08.407]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:16:48.345] Number of futures (= number of chunks): 2
  [14:17:08.407]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:16:48.346] Launching 2 futures (chunks) ...
  [14:17:08.408]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:16:48.347] Chunk #1 of 2 ...
  [14:17:08.408]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:16:48.347]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:08.409]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:16:48.348] getGlobalsAndPackages() ...
  [14:17:08.410]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:16:48.349] Searching for globals...
  [14:17:08.410]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:16:48.351] 
  [14:17:08.411]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:16:48.351] Searching for globals ... DONE
  [14:17:08.412]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:16:48.352] - globals: [0] <none>
  [14:17:08.412]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:16:48.353] getGlobalsAndPackages() ... DONE
  [14:17:08.413]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:16:48.357] 
  [14:17:08.414]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:16:48.358] 
  [14:17:08.414]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:16:48.359]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:08.415]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:17:08.416]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 23594
  [14:17:08.416]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [14:17:08.417]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:17:08.418]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid')"'
  [14:17:08.418]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:17:08.419]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e034aacb7.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=23594 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:17:08.419]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:17:08.420]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [14:17:08.420]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [14:17:08.421]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:17:08.421]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [14:17:08.422]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [14:17:08.423]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:17:08.423]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid')"'
  [14:17:08.424]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:17:08.424]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03412f881.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=23594 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:17:08.425]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:17:08.425]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [14:17:08.426]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [14:17:08.426]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:17:08.427]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [14:17:08.428]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:17:07.015] getGlobalsAndPackages() ...
  [14:17:08.433]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:17:07.016] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.434]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:17:07.017] Resolving globals: FALSE
  [14:17:08.435]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:17:07.019] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [14:17:08.436]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:17:07.020] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.436]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:17:07.021] 
  [14:17:08.437]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:17:07.022] getGlobalsAndPackages() ... DONE
  [14:17:08.438]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:07.044] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:08.439]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:07.045] Packages needed by future strategies (n = 0): <none>
  [14:17:08.439]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:07.055] {
  [14:17:07.055]     {
  [14:17:07.055]         ...future.startTime <- base::Sys.time()
  [14:17:07.055]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:07.055]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:07.055]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:07.055]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:07.055]             future.resolve.recursive = NULL, width = 80L)
  [14:17:07.055]         {
  [14:17:07.055]             {
  [14:17:07.055]                 {
  [14:17:07.055]                   {
  [14:17:07.055]                     base::local({
  [14:17:07.055]                       has_future <- base::requireNamespace("future", 
  [14:17:07.055]                         quietly = TRUE)
  [14:17:07.055]                       version <- if (has_future) 
  [14:17:07.055]                         utils::packageVersion("future")
  [14:17:07.055]                       else NULL
  [14:17:07.055]                       if (!has_future || version < "1.8.0") {
  [14:17:07.055]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:07.055]                           "", base::R.version$version.string), 
  [14:17:07.055]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:07.055]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:07.055]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:07.055]                             "release", "version")], collapse = " "), 
  [14:17:07.055]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:07.055]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:07.055]                           info)
  [14:17:07.055]                         info <- base::paste(info, collapse = "; ")
  [14:17:07.055]                         if (!has_future) {
  [14:17:07.055]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:07.055]                             info)
  [14:17:07.055]                         }
  [14:17:07.055]                         else {
  [14:17:07.055]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:07.055]                             info, version)
  [14:17:07.055]                         }
  [14:17:07.055]                         base::stop(msg)
  [14:17:07.055]                       }
  [14:17:07.055]                     })
  [14:17:07.055]                   }
  [14:17:07.055]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:07.055]                   base::options(mc.cores = 1L)
  [14:17:07.055]                 }
  [14:17:07.055]                 base::local({
  [14:17:07.055]                   for (pkg in c("doFuture", "utils")) {
  [14:17:07.055]                     base::loadNamespace(pkg)
  [14:17:07.055]                     base::library(pkg, character.only = TRUE)
  [14:17:07.055]                   }
  [14:17:07.055]                 })
  [14:17:07.055]             }
  [14:17:07.055]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:07.055]         }
  [14:17:07.055]     }
  [14:17:07.055]     if (base::is.na(TRUE)) {
  [14:17:07.055]     }
  [14:17:07.055]     else {
  [14:17:07.055]         if (TRUE) {
  [14:17:07.055]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:07.055]                 open = "w")
  [14:17:07.055]         }
  [14:17:07.055]         else {
  [14:17:07.055]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:07.055]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:07.055]         }
  [14:17:07.055]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:07.055]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:07.055]             base::sink(type = "output", split = FALSE)
  [14:17:07.055]             base::close(...future.stdout)
  [14:17:07.055]         }, add = TRUE)
  [14:17:07.055]     }
  [14:17:07.055]     ...future.frame <- base::sys.nframe()
  [14:17:07.055]     ...future.conditions <- base::list()
  [14:17:07.055]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:07.055]     ...future.result <- base::tryCatch({
  [14:17:07.055]         base::withCallingHandlers({
  [14:17:07.055]             ...future.value <- base::withVisible(base::local({
  [14:17:07.055]                 ...future.sendCondition <- local({
  [14:17:07.055]                   sendCondition <- NULL
  [14:17:07.055]                   function(frame = 1L) {
  [14:17:07.055]                     if (is.function(sendCondition)) 
  [14:17:07.055]                       return(sendCondition)
  [14:17:07.055]                     ns <- getNamespace("parallel")
  [14:17:07.055]                     if (exists("sendData", mode = "function", 
  [14:17:07.055]                       envir = ns)) {
  [14:17:07.055]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:07.055]                         envir = ns)
  [14:17:07.055]                       envir <- sys.frame(frame)
  [14:17:07.055]                       master <- NULL
  [14:17:07.055]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:07.055]                         !identical(envir, emptyenv())) {
  [14:17:07.055]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:07.055]                           inherits = FALSE)) {
  [14:17:07.055]                           master <- get("master", mode = "list", 
  [14:17:07.055]                             envir = envir, inherits = FALSE)
  [14:17:07.055]                           if (inherits(master, "SOCKnode")) {
  [14:17:07.055]                             sendCondition <<- function(cond) {
  [14:17:07.055]                               data <- list(type = "VALUE", value = cond, 
  [14:17:07.055]                                 success = TRUE)
  [14:17:07.055]                               parallel_sendData(master, data)
  [14:17:07.055]                             }
  [14:17:07.055]                             return(sendCondition)
  [14:17:07.055]                           }
  [14:17:07.055]                         }
  [14:17:07.055]                         frame <- frame + 1L
  [14:17:07.055]                         envir <- sys.frame(frame)
  [14:17:07.055]                       }
  [14:17:07.055]                     }
  [14:17:07.055]                     sendCondition <<- function(cond) NULL
  [14:17:07.055]                   }
  [14:17:07.055]                 })
  [14:17:07.055]                 withCallingHandlers({
  [14:17:07.055]                   {
  [14:17:07.055]                     doFuture::registerDoFuture()
  [14:17:07.055]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:07.055]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:07.055]                       b <- NULL
  [14:17:07.055]                       ...future.env <- environment()
  [14:17:07.055]                       local({
  [14:17:07.055]                         for (name in names(...future.x_jj)) {
  [14:17:07.055]                           assign(name, ...future.x_jj[[name]], 
  [14:17:07.055]                             envir = ...future.env, inherits = FALSE)
  [14:17:07.055]                         }
  [14:17:07.055]                       })
  [14:17:07.055]                       tryCatch({
  [14:17:07.055]                         plan_list <- future::plan("next")
  [14:17:07.055]                         message(capture.output(print(plan_list)))
  [14:17:07.055]                         stopifnot(inherits(plan_list, "future"))
  [14:17:07.055]                         default <- getOption("future.plan", "sequential")
  [14:17:07.055]                         if (is.function(default)) 
  [14:17:07.055]                           default <- class(default)
  [14:17:07.055]                         stopifnot(inherits(plan_list, default))
  [14:17:07.055]                         plan_b <- future::plan("list")
  [14:17:07.055]                         str(plan_b)
  [14:17:07.055]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:07.055]                           inherits(plan_b[[1]], default))
  [14:17:07.055]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:07.055]                       }, error = identity)
  [14:17:07.055]                     })
  [14:17:07.055]                   }
  [14:17:07.055]                 }, immediateCondition = function(cond) {
  [14:17:07.055]                   sendCondition <- ...future.sendCondition()
  [14:17:07.055]                   sendCondition(cond)
  [14:17:07.055]                   muffleCondition <- function (cond) 
  [14:17:07.055]                   {
  [14:17:07.055]                     inherits <- base::inherits
  [14:17:07.055]                     invokeRestart <- base::invokeRestart
  [14:17:07.055]                     muffled <- FALSE
  [14:17:07.055]                     if (inherits(cond, "message")) {
  [14:17:07.055]                       invokeRestart("muffleMessage")
  [14:17:07.055]                       muffled <- TRUE
  [14:17:07.055]                     }
  [14:17:07.055]                     else if (inherits(cond, "warning")) {
  [14:17:07.055]                       invokeRestart("muffleWarning")
  [14:17:07.055]                       muffled <- TRUE
  [14:17:07.055]                     }
  [14:17:07.055]                     else if (inherits(cond, "condition")) {
  [14:17:07.055]                       computeRestarts <- base::computeRestarts
  [14:17:07.055]                       grepl <- base::grepl
  [14:17:07.055]                       is.null <- base::is.null
  [14:17:07.055]                       restarts <- computeRestarts(cond)
  [14:17:07.055]                       for (restart in restarts) {
  [14:17:07.055]                         name <- restart$name
  [14:17:07.055]                         if (is.null(name)) 
  [14:17:07.055]                           next
  [14:17:07.055]                         if (!grepl("^muffle", name)) 
  [14:17:07.055]                           next
  [14:17:07.055]                         invokeRestart(restart)
  [14:17:07.055]                         muffled <- TRUE
  [14:17:07.055]                         break
  [14:17:07.055]                       }
  [14:17:07.055]                     }
  [14:17:07.055]                     invisible(muffled)
  [14:17:07.055]                   }
  [14:17:07.055]                   muffleCondition(cond)
  [14:17:07.055]                 })
  [14:17:07.055]             }))
  [14:17:07.055]             future::FutureResult(value = ...future.value$value, 
  [14:17:07.055]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.055]                   ...future.rng), started = ...future.startTime, 
  [14:17:07.055]                 version = "1.8")
  [14:17:07.055]         }, condition = base::local({
  [14:17:07.055]             c <- base::c
  [14:17:07.055]             inherits <- base::inherits
  [14:17:07.055]             invokeRestart <- base::invokeRestart
  [14:17:07.055]             length <- base::length
  [14:17:07.055]             list <- base::list
  [14:17:07.055]             seq.int <- base::seq.int
  [14:17:07.055]             signalCondition <- base::signalCondition
  [14:17:07.055]             sys.calls <- base::sys.calls
  [14:17:07.055]             Sys.time <- base::Sys.time
  [14:17:07.055]             `[[` <- base::`[[`
  [14:17:07.055]             `+` <- base::`+`
  [14:17:07.055]             `<<-` <- base::`<<-`
  [14:17:07.055]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:07.055]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:07.055]                   3L)]
  [14:17:07.055]             }
  [14:17:07.055]             function(cond) {
  [14:17:07.055]                 if (inherits(cond, "error")) {
  [14:17:07.055]                   sessionInformation <- function() {
  [14:17:07.055]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:07.055]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:07.055]                       search = base::search(), system = base::Sys.info())
  [14:17:07.055]                   }
  [14:17:07.055]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.055]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:07.055]                     cond$call), session = sessionInformation(), 
  [14:17:07.055]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:07.055]                   signalCondition(cond)
  [14:17:07.055]                 }
  [14:17:07.055]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:07.055]                 ))) {
  [14:17:07.055]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:07.055]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.055]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:07.055]                   if (!signal) {
  [14:17:07.055]                     muffleCondition <- function (cond) 
  [14:17:07.055]                     {
  [14:17:07.055]                       inherits <- base::inherits
  [14:17:07.055]                       invokeRestart <- base::invokeRestart
  [14:17:07.055]                       muffled <- FALSE
  [14:17:07.055]                       if (inherits(cond, "message")) {
  [14:17:07.055]                         invokeRestart("muffleMessage")
  [14:17:07.055]                         muffled <- TRUE
  [14:17:07.055]                       }
  [14:17:07.055]                       else if (inherits(cond, "warning")) {
  [14:17:07.055]                         invokeRestart("muffleWarning")
  [14:17:07.055]                         muffled <- TRUE
  [14:17:07.055]                       }
  [14:17:07.055]                       else if (inherits(cond, "condition")) {
  [14:17:07.055]                         computeRestarts <- base::computeRestarts
  [14:17:07.055]                         grepl <- base::grepl
  [14:17:07.055]                         is.null <- base::is.null
  [14:17:07.055]                         restarts <- computeRestarts(cond)
  [14:17:07.055]                         for (restart in restarts) {
  [14:17:07.055]                           name <- restart$name
  [14:17:07.055]                           if (is.null(name)) 
  [14:17:07.055]                             next
  [14:17:07.055]                           if (!grepl("^muffle", name)) 
  [14:17:07.055]                             next
  [14:17:07.055]                           invokeRestart(restart)
  [14:17:07.055]                           muffled <- TRUE
  [14:17:07.055]                           break
  [14:17:07.055]                         }
  [14:17:07.055]                       }
  [14:17:07.055]                       invisible(muffled)
  [14:17:07.055]                     }
  [14:17:07.055]                     muffleCondition(cond)
  [14:17:07.055]                   }
  [14:17:07.055]                 }
  [14:17:07.055]             }
  [14:17:07.055]         }))
  [14:17:07.055]     }, error = function(ex) {
  [14:17:07.055]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:07.055]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.055]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:07.055]     }, finally = {
  [14:17:07.055]         {
  [14:17:07.055]             {
  [14:17:07.055]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:07.055]             }
  [14:17:07.055]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:07.055]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:07.055]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:07.055]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:07.055]                 ...) 
  [14:17:07.055]             {
  [14:17:07.055]                 if (substitute) 
  [14:17:07.055]                   expr <- substitute(expr)
  [14:17:07.055]                 if (is.function(workers)) 
  [14:17:07.055]                   workers <- workers()
  [14:17:07.055]                 workers <- as.integer(workers)
  [14:17:07.055]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:07.055]                   workers >= 1)
  [14:17:07.055]                 if (workers == 1L) {
  [14:17:07.055]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:07.055]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:07.055]                     local = TRUE, label = label, ...))
  [14:17:07.055]                 }
  [14:17:07.055]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:07.055]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:07.055]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:07.055]                   globals = globals, persistent = persistent, 
  [14:17:07.055]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:07.055]                   label = label, ...)
  [14:17:07.055]                 if (!future$lazy) 
  [14:17:07.055]                   future <- run(future)
  [14:17:07.055]                 invisible(future)
  [14:17:07.055]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:07.055]         }
  [14:17:07.055]         base::options(...future.oldOptions)
  [14:17:07.055]     })
  [14:17:07.055]     Sys.time
  [14:17:07.055]     if (base::is.na(TRUE)) {
  [14:17:07.055]     }
  [14:17:07.055]     else {
  [14:17:07.055]         base::sink(type = "output", split = FALSE)
  [14:17:07.055]         if (TRUE) {
  [14:17:07.055]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:07.055]         }
  [14:17:07.055]         else {
  [14:17:07.055]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:07.055]         }
  [14:17:07.055]         base::close(...future.stdout)
  [14:17:07.055]         ...future.stdout <- NULL
  [14:17:07.055]     }
  [14:17:07.055]     ...future.result$conditions <- ...future.conditions
  [14:17:07.055]     ...future.result
  [14:17:07.055] }
  [14:17:08.440]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:07.069] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [14:17:08.441]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:07.070] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:17:08.441]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:07.072] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:17:08.442]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:07.073] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:17:08.443]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:07.074] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:17:08.443]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:07.076] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [14:17:08.444]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:07.119] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [14:17:08.445]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:07.120] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [14:17:08.445]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:07.123] MultisessionFuture started
  [14:17:08.446]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:07.124] Chunk #1 of 2 ... DONE
  [14:17:08.446]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:07.124] Chunk #2 of 2 ...
  [14:17:08.447]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:07.125]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:08.448]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:07.126] getGlobalsAndPackages() ...
  [14:17:08.448]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:07.127] Searching for globals...
  [14:17:08.449]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:07.128] 
  [14:17:08.450]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:07.129] Searching for globals ... DONE
  [14:17:08.450]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:07.130] - globals: [0] <none>
  [14:17:08.451]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:07.131] getGlobalsAndPackages() ... DONE
  [14:17:08.452]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:07.131] 
  [14:17:08.452]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:07.132] 
  [14:17:08.453]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:07.133]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:08.453]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:07.134] getGlobalsAndPackages() ...
  [14:17:08.454]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:07.135] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.455]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:07.136] Resolving globals: FALSE
  [14:17:08.455]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:07.139] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [14:17:08.456]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:07.139] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.457]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:07.140] 
  [14:17:08.457]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:07.141] getGlobalsAndPackages() ... DONE
  [14:17:08.458]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:07.180] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:08.458]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:07.183] Packages needed by future strategies (n = 0): <none>
  [14:17:08.459]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:07.203] {
  [14:17:07.203]     {
  [14:17:07.203]         ...future.startTime <- base::Sys.time()
  [14:17:07.203]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:07.203]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:07.203]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:07.203]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:07.203]             future.resolve.recursive = NULL, width = 80L)
  [14:17:07.203]         {
  [14:17:07.203]             {
  [14:17:07.203]                 {
  [14:17:07.203]                   {
  [14:17:07.203]                     base::local({
  [14:17:07.203]                       has_future <- base::requireNamespace("future", 
  [14:17:07.203]                         quietly = TRUE)
  [14:17:07.203]                       version <- if (has_future) 
  [14:17:07.203]                         utils::packageVersion("future")
  [14:17:07.203]                       else NULL
  [14:17:07.203]                       if (!has_future || version < "1.8.0") {
  [14:17:07.203]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:07.203]                           "", base::R.version$version.string), 
  [14:17:07.203]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:07.203]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:07.203]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:07.203]                             "release", "version")], collapse = " "), 
  [14:17:07.203]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:07.203]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:07.203]                           info)
  [14:17:07.203]                         info <- base::paste(info, collapse = "; ")
  [14:17:07.203]                         if (!has_future) {
  [14:17:07.203]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:07.203]                             info)
  [14:17:07.203]                         }
  [14:17:07.203]                         else {
  [14:17:07.203]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:07.203]                             info, version)
  [14:17:07.203]                         }
  [14:17:07.203]                         base::stop(msg)
  [14:17:07.203]                       }
  [14:17:07.203]                     })
  [14:17:07.203]                   }
  [14:17:07.203]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:07.203]                   base::options(mc.cores = 1L)
  [14:17:07.203]                 }
  [14:17:07.203]                 base::local({
  [14:17:07.203]                   for (pkg in c("doFuture", "utils")) {
  [14:17:07.203]                     base::loadNamespace(pkg)
  [14:17:07.203]                     base::library(pkg, character.only = TRUE)
  [14:17:07.203]                   }
  [14:17:07.203]                 })
  [14:17:07.203]             }
  [14:17:07.203]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:07.203]         }
  [14:17:07.203]     }
  [14:17:07.203]     if (base::is.na(TRUE)) {
  [14:17:07.203]     }
  [14:17:07.203]     else {
  [14:17:07.203]         if (TRUE) {
  [14:17:07.203]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:07.203]                 open = "w")
  [14:17:07.203]         }
  [14:17:07.203]         else {
  [14:17:07.203]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:07.203]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:07.203]         }
  [14:17:07.203]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:07.203]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:07.203]             base::sink(type = "output", split = FALSE)
  [14:17:07.203]             base::close(...future.stdout)
  [14:17:07.203]         }, add = TRUE)
  [14:17:07.203]     }
  [14:17:07.203]     ...future.frame <- base::sys.nframe()
  [14:17:07.203]     ...future.conditions <- base::list()
  [14:17:07.203]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:07.203]     ...future.result <- base::tryCatch({
  [14:17:07.203]         base::withCallingHandlers({
  [14:17:07.203]             ...future.value <- base::withVisible(base::local({
  [14:17:07.203]                 ...future.sendCondition <- local({
  [14:17:07.203]                   sendCondition <- NULL
  [14:17:07.203]                   function(frame = 1L) {
  [14:17:07.203]                     if (is.function(sendCondition)) 
  [14:17:07.203]                       return(sendCondition)
  [14:17:07.203]                     ns <- getNamespace("parallel")
  [14:17:07.203]                     if (exists("sendData", mode = "function", 
  [14:17:07.203]                       envir = ns)) {
  [14:17:07.203]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:07.203]                         envir = ns)
  [14:17:07.203]                       envir <- sys.frame(frame)
  [14:17:07.203]                       master <- NULL
  [14:17:07.203]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:07.203]                         !identical(envir, emptyenv())) {
  [14:17:07.203]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:07.203]                           inherits = FALSE)) {
  [14:17:07.203]                           master <- get("master", mode = "list", 
  [14:17:07.203]                             envir = envir, inherits = FALSE)
  [14:17:07.203]                           if (inherits(master, "SOCKnode")) {
  [14:17:07.203]                             sendCondition <<- function(cond) {
  [14:17:07.203]                               data <- list(type = "VALUE", value = cond, 
  [14:17:07.203]                                 success = TRUE)
  [14:17:07.203]                               parallel_sendData(master, data)
  [14:17:07.203]                             }
  [14:17:07.203]                             return(sendCondition)
  [14:17:07.203]                           }
  [14:17:07.203]                         }
  [14:17:07.203]                         frame <- frame + 1L
  [14:17:07.203]                         envir <- sys.frame(frame)
  [14:17:07.203]                       }
  [14:17:07.203]                     }
  [14:17:07.203]                     sendCondition <<- function(cond) NULL
  [14:17:07.203]                   }
  [14:17:07.203]                 })
  [14:17:07.203]                 withCallingHandlers({
  [14:17:07.203]                   {
  [14:17:07.203]                     doFuture::registerDoFuture()
  [14:17:07.203]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:07.203]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:07.203]                       b <- NULL
  [14:17:07.203]                       ...future.env <- environment()
  [14:17:07.203]                       local({
  [14:17:07.203]                         for (name in names(...future.x_jj)) {
  [14:17:07.203]                           assign(name, ...future.x_jj[[name]], 
  [14:17:07.203]                             envir = ...future.env, inherits = FALSE)
  [14:17:07.203]                         }
  [14:17:07.203]                       })
  [14:17:07.203]                       tryCatch({
  [14:17:07.203]                         plan_list <- future::plan("next")
  [14:17:07.203]                         message(capture.output(print(plan_list)))
  [14:17:07.203]                         stopifnot(inherits(plan_list, "future"))
  [14:17:07.203]                         default <- getOption("future.plan", "sequential")
  [14:17:07.203]                         if (is.function(default)) 
  [14:17:07.203]                           default <- class(default)
  [14:17:07.203]                         stopifnot(inherits(plan_list, default))
  [14:17:07.203]                         plan_b <- future::plan("list")
  [14:17:07.203]                         str(plan_b)
  [14:17:07.203]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:07.203]                           inherits(plan_b[[1]], default))
  [14:17:07.203]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:07.203]                       }, error = identity)
  [14:17:07.203]                     })
  [14:17:07.203]                   }
  [14:17:07.203]                 }, immediateCondition = function(cond) {
  [14:17:07.203]                   sendCondition <- ...future.sendCondition()
  [14:17:07.203]                   sendCondition(cond)
  [14:17:07.203]                   muffleCondition <- function (cond) 
  [14:17:07.203]                   {
  [14:17:07.203]                     inherits <- base::inherits
  [14:17:07.203]                     invokeRestart <- base::invokeRestart
  [14:17:07.203]                     muffled <- FALSE
  [14:17:07.203]                     if (inherits(cond, "message")) {
  [14:17:07.203]                       invokeRestart("muffleMessage")
  [14:17:07.203]                       muffled <- TRUE
  [14:17:07.203]                     }
  [14:17:07.203]                     else if (inherits(cond, "warning")) {
  [14:17:07.203]                       invokeRestart("muffleWarning")
  [14:17:07.203]                       muffled <- TRUE
  [14:17:07.203]                     }
  [14:17:07.203]                     else if (inherits(cond, "condition")) {
  [14:17:07.203]                       computeRestarts <- base::computeRestarts
  [14:17:07.203]                       grepl <- base::grepl
  [14:17:07.203]                       is.null <- base::is.null
  [14:17:07.203]                       restarts <- computeRestarts(cond)
  [14:17:07.203]                       for (restart in restarts) {
  [14:17:07.203]                         name <- restart$name
  [14:17:07.203]                         if (is.null(name)) 
  [14:17:07.203]                           next
  [14:17:07.203]                         if (!grepl("^muffle", name)) 
  [14:17:07.203]                           next
  [14:17:07.203]                         invokeRestart(restart)
  [14:17:07.203]                         muffled <- TRUE
  [14:17:07.203]                         break
  [14:17:07.203]                       }
  [14:17:07.203]                     }
  [14:17:07.203]                     invisible(muffled)
  [14:17:07.203]                   }
  [14:17:07.203]                   muffleCondition(cond)
  [14:17:07.203]                 })
  [14:17:07.203]             }))
  [14:17:07.203]             future::FutureResult(value = ...future.value$value, 
  [14:17:07.203]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.203]                   ...future.rng), started = ...future.startTime, 
  [14:17:07.203]                 version = "1.8")
  [14:17:07.203]         }, condition = base::local({
  [14:17:07.203]             c <- base::c
  [14:17:07.203]             inherits <- base::inherits
  [14:17:07.203]             invokeRestart <- base::invokeRestart
  [14:17:07.203]             length <- base::length
  [14:17:07.203]             list <- base::list
  [14:17:07.203]             seq.int <- base::seq.int
  [14:17:07.203]             signalCondition <- base::signalCondition
  [14:17:07.203]             sys.calls <- base::sys.calls
  [14:17:07.203]             Sys.time <- base::Sys.time
  [14:17:07.203]             `[[` <- base::`[[`
  [14:17:07.203]             `+` <- base::`+`
  [14:17:07.203]             `<<-` <- base::`<<-`
  [14:17:07.203]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:07.203]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:07.203]                   3L)]
  [14:17:07.203]             }
  [14:17:07.203]             function(cond) {
  [14:17:07.203]                 if (inherits(cond, "error")) {
  [14:17:07.203]                   sessionInformation <- function() {
  [14:17:07.203]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:07.203]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:07.203]                       search = base::search(), system = base::Sys.info())
  [14:17:07.203]                   }
  [14:17:07.203]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.203]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:07.203]                     cond$call), session = sessionInformation(), 
  [14:17:07.203]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:07.203]                   signalCondition(cond)
  [14:17:07.203]                 }
  [14:17:07.203]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:07.203]                 ))) {
  [14:17:07.203]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:07.203]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.203]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:07.203]                   if (!signal) {
  [14:17:07.203]                     muffleCondition <- function (cond) 
  [14:17:07.203]                     {
  [14:17:07.203]                       inherits <- base::inherits
  [14:17:07.203]                       invokeRestart <- base::invokeRestart
  [14:17:07.203]                       muffled <- FALSE
  [14:17:07.203]                       if (inherits(cond, "message")) {
  [14:17:07.203]                         invokeRestart("muffleMessage")
  [14:17:07.203]                         muffled <- TRUE
  [14:17:07.203]                       }
  [14:17:07.203]                       else if (inherits(cond, "warning")) {
  [14:17:07.203]                         invokeRestart("muffleWarning")
  [14:17:07.203]                         muffled <- TRUE
  [14:17:07.203]                       }
  [14:17:07.203]                       else if (inherits(cond, "condition")) {
  [14:17:07.203]                         computeRestarts <- base::computeRestarts
  [14:17:07.203]                         grepl <- base::grepl
  [14:17:07.203]                         is.null <- base::is.null
  [14:17:07.203]                         restarts <- computeRestarts(cond)
  [14:17:07.203]                         for (restart in restarts) {
  [14:17:07.203]                           name <- restart$name
  [14:17:07.203]                           if (is.null(name)) 
  [14:17:07.203]                             next
  [14:17:07.203]                           if (!grepl("^muffle", name)) 
  [14:17:07.203]                             next
  [14:17:07.203]                           invokeRestart(restart)
  [14:17:07.203]                           muffled <- TRUE
  [14:17:07.203]                           break
  [14:17:07.203]                         }
  [14:17:07.203]                       }
  [14:17:07.203]                       invisible(muffled)
  [14:17:07.203]                     }
  [14:17:07.203]                     muffleCondition(cond)
  [14:17:07.203]                   }
  [14:17:07.203]                 }
  [14:17:07.203]             }
  [14:17:07.203]         }))
  [14:17:07.203]     }, error = function(ex) {
  [14:17:07.203]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:07.203]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.203]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:07.203]     }, finally = {
  [14:17:07.203]         {
  [14:17:07.203]             {
  [14:17:07.203]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:07.203]             }
  [14:17:07.203]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:07.203]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:07.203]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:07.203]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:07.203]                 ...) 
  [14:17:07.203]             {
  [14:17:07.203]                 if (substitute) 
  [14:17:07.203]                   expr <- substitute(expr)
  [14:17:07.203]                 if (is.function(workers)) 
  [14:17:07.203]                   workers <- workers()
  [14:17:07.203]                 workers <- as.integer(workers)
  [14:17:07.203]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:07.203]                   workers >= 1)
  [14:17:07.203]                 if (workers == 1L) {
  [14:17:07.203]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:07.203]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:07.203]                     local = TRUE, label = label, ...))
  [14:17:07.203]                 }
  [14:17:07.203]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:07.203]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:07.203]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:07.203]                   globals = globals, persistent = persistent, 
  [14:17:07.203]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:07.203]                   label = label, ...)
  [14:17:07.203]                 if (!future$lazy) 
  [14:17:07.203]                   future <- run(future)
  [14:17:07.203]                 invisible(future)
  [14:17:07.203]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:07.203]         }
  [14:17:07.203]         base::options(...future.oldOptions)
  [14:17:07.203]     })
  [14:17:07.203]     Sys.time
  [14:17:07.203]     if (base::is.na(TRUE)) {
  [14:17:07.203]     }
  [14:17:07.203]     else {
  [14:17:07.203]         base::sink(type = "output", split = FALSE)
  [14:17:07.203]         if (TRUE) {
  [14:17:07.203]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:07.203]         }
  [14:17:07.203]         else {
  [14:17:07.203]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:07.203]         }
  [14:17:07.203]         base::close(...future.stdout)
  [14:17:07.203]         ...future.stdout <- NULL
  [14:17:07.203]     }
  [14:17:07.203]     ...future.result$conditions <- ...future.conditions
  [14:17:07.203]     ...future.result
  [14:17:07.203] }
  [14:17:08.460]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:07.232] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [14:17:08.460]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:07.233] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:17:08.461]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:07.239] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:17:08.462]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:07.239] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:17:08.462]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:17:07.241] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:17:08.463]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:07.242] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [14:17:08.464]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:17:07.285] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [14:17:08.464]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:07.286] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [14:17:08.465]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:17:07.288] MultisessionFuture started
  [14:17:08.466]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:07.295] Chunk #2 of 2 ... DONE
  [14:17:08.466]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:07.296] Launching 2 futures (chunks) ... DONE
  [14:17:08.467]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:07.297] - resolving futures
  [14:17:08.467]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:07.297]   - gathering results & relaying conditions (except errors)
  [14:17:08.468]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:07.298] resolve() on list ...
  [14:17:08.469]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:07.299]  recursive: 0
  [14:17:08.469]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:07.303]  length: 2
  [14:17:08.470]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:07.303] 
  [14:17:08.471]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:07.463] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:08.471]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:07.464] - Validating connection of MultisessionFuture
  [14:17:08.472]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:07.503] - received message: FutureResult
  [14:17:08.473]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:07.504] - Received FutureResult
  [14:17:08.473]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:07.505] - Erased future from FutureRegistry
  [14:17:08.474]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:07.506] result() for ClusterFuture ...
  [14:17:08.474]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:07.506] - result already collected: FutureResult
  [14:17:08.475]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:17:07.507] result() for ClusterFuture ... done
  [14:17:08.476]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:07.508] signalConditions() ...
  [14:17:08.476]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:07.509]  - include = 'immediateCondition'
  [14:17:08.477]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:07.510]  - exclude = 
  [14:17:08.478]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:07.510]  - resignal = FALSE
  [14:17:08.478]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:07.511]  - Number of conditions: 1
  [14:17:08.479]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:07.512] signalConditions() ... done
  [14:17:08.480]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:07.513] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:08.480]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:07.513] Future #1
  [14:17:08.481]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:07.514] result() for ClusterFuture ...
  [14:17:08.481]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:07.515] - result already collected: FutureResult
  [14:17:08.482]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:07.515] result() for ClusterFuture ... done
  [14:17:08.483]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:07.516] result() for ClusterFuture ...
  [14:17:08.483]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:07.517] - result already collected: FutureResult
  [14:17:08.484]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:07.518] result() for ClusterFuture ... done
  [14:17:08.485]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:07.518] signalConditions() ...
  [14:17:08.485]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:17:07.519]  - include = 'immediateCondition'
  [14:17:08.486]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:17:07.520]  - exclude = 
  [14:17:08.486]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:17:07.520]  - resignal = FALSE
  [14:17:08.487]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:17:07.521]  - Number of conditions: 1
  [14:17:08.488]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:17:07.522] signalConditions() ... done
  [14:17:08.488]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:17:07.523] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:17:08.489]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:17:07.523] - nx: 2
  [14:17:08.490]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:17:07.524] - relay: TRUE
  [14:17:08.490]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:17:07.525] - stdout: TRUE
  [14:17:08.491]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:17:07.525] - signal: TRUE
  [14:17:08.492]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:17:07.526] - resignal: FALSE
  [14:17:08.492]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:17:07.527] - force: FALSE
  [14:17:08.493]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:17:07.527] - relayed: [n=2] FALSE, FALSE
  [14:17:08.493]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:17:07.528] - queued futures: [n=2] FALSE, FALSE
  [14:17:08.494]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:17:07.529]  - until=1
  [14:17:08.495]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:17:07.529]  - relaying element #1
  [14:17:08.495]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:17:07.530] result() for ClusterFuture ...
  [14:17:08.496]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:17:07.531] - result already collected: FutureResult
  [14:17:08.497]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:17:07.532] result() for ClusterFuture ... done
  [14:17:08.497]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:17:07.532] result() for ClusterFuture ...
  [14:17:08.498]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:17:07.533] - result already collected: FutureResult
  [14:17:08.499]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:17:07.534] result() for ClusterFuture ... done
  [14:17:08.499]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:17:07.535] signalConditions() ...
  [14:17:08.500]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:17:07.535]  - include = 'immediateCondition'
  [14:17:08.501]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:17:07.536]  - exclude = 
  [14:17:08.501]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:17:07.537]  - resignal = FALSE
  [14:17:08.502]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:17:07.537]  - Number of conditions: 1
  [14:17:08.503]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:17:07.538] signalConditions() ... done
  [14:17:08.503]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:17:07.539] result() for ClusterFuture ...
  [14:17:08.504]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:17:07.540] - result already collected: FutureResult
  [14:17:08.504]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:17:07.540] result() for ClusterFuture ... done
  [14:17:08.505]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:17:07.541] signalConditions() ...
  [14:17:08.525]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:17:07.542]  - include = 'immediateCondition'
  [14:17:08.525]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:17:07.542]  - exclude = 
  [14:17:08.526]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:17:07.543]  - resignal = FALSE
  [14:17:08.527]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:17:07.544]  - Number of conditions: 1
  [14:17:08.527]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:17:07.545] signalConditions() ... done
  [14:17:08.528]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:17:07.545] result() for ClusterFuture ...
  [14:17:08.529]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:17:07.546] - result already collected: FutureResult
  [14:17:08.529]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:17:07.547] result() for ClusterFuture ... done
  [14:17:08.530]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:17:07.547] signalConditions() ...
  [14:17:08.531]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:17:07.548]  - include = 'condition'
  [14:17:08.531]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:17:07.549]  - exclude = 'immediateCondition'
  [14:17:08.532]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:17:07.549]  - resignal = FALSE
  [14:17:08.533]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:17:07.550]  - Number of conditions: 1
  [14:17:08.533]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:17:07.550]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:08.534]  - 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
  [14:17:08.535]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:17:07.551] signalConditions() ... done
  [14:17:08.535]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:17:07.552] - relayed: [n=2] TRUE, FALSE
  [14:17:08.536]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:17:07.553] - queued futures: [n=2] TRUE, FALSE
  [14:17:08.537]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:17:07.553] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:17:08.537]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:17:07.554]  length: 1 (resolved future 1)
  [14:17:08.538]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:17:07.625] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:08.539]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:17:07.626] - Validating connection of MultisessionFuture
  [14:17:08.540]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:17:07.666] - received message: FutureResult
  [14:17:08.540]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:17:07.667] - Received FutureResult
  [14:17:08.541]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:17:07.668] - Erased future from FutureRegistry
  [14:17:08.542]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:17:07.668] result() for ClusterFuture ...
  [14:17:08.542]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:17:07.669] - result already collected: FutureResult
  [14:17:08.543]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:17:07.670] result() for ClusterFuture ... done
  [14:17:08.543]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:17:07.671] signalConditions() ...
  [14:17:08.544]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:17:07.672]  - include = 'immediateCondition'
  [14:17:08.545]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:17:07.673]  - exclude = 
  [14:17:08.545]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:17:07.673]  - resignal = FALSE
  [14:17:08.546]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:17:07.674]  - Number of conditions: 2
  [14:17:08.546]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:17:07.675] signalConditions() ... done
  [14:17:08.547]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:17:07.676] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:08.548]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:17:07.676] Future #2
  [14:17:08.548]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:17:07.677] result() for ClusterFuture ...
  [14:17:08.549]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:17:07.678] - result already collected: FutureResult
  [14:17:08.550]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:17:07.679] result() for ClusterFuture ... done
  [14:17:08.550]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:17:07.680] result() for ClusterFuture ...
  [14:17:08.551]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:17:07.680] - result already collected: FutureResult
  [14:17:08.552]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:17:07.681] result() for ClusterFuture ... done
  [14:17:08.552]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:17:07.682] signalConditions() ...
  [14:17:08.553]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:17:07.683]  - include = 'immediateCondition'
  [14:17:08.553]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:17:07.684]  - exclude = 
  [14:17:08.554]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:17:07.684]  - resignal = FALSE
  [14:17:08.555]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:17:07.685]  - Number of conditions: 2
  [14:17:08.555]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:17:07.686] signalConditions() ... done
  [14:17:08.556]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:17:07.687] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:17:08.557]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:17:07.687] - nx: 2
  [14:17:08.557]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:17:07.688] - relay: TRUE
  [14:17:08.558]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:17:07.689] - stdout: TRUE
  [14:17:08.558]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:17:07.690] - signal: TRUE
  [14:17:08.559]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:17:07.690] - resignal: FALSE
  [14:17:08.560]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:17:07.691] - force: FALSE
  [14:17:08.560]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:17:07.692] - relayed: [n=2] TRUE, FALSE
  [14:17:08.561]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:17:07.693] - queued futures: [n=2] TRUE, FALSE
  [14:17:08.562]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:17:07.693]  - until=2
  [14:17:08.562]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:17:07.694]  - relaying element #2
  [14:17:08.563]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:17:07.695] result() for ClusterFuture ...
  [14:17:08.563]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:17:07.696] - result already collected: FutureResult
  [14:17:08.564]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:17:07.697] result() for ClusterFuture ... done
  [14:17:08.565]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:17:07.698] result() for ClusterFuture ...
  [14:17:08.565]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:17:07.699] - result already collected: FutureResult
  [14:17:08.566]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:17:07.699] result() for ClusterFuture ... done
  [14:17:08.567]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:17:07.700] signalConditions() ...
  [14:17:08.567]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:17:07.701]  - include = 'immediateCondition'
  [14:17:08.568]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:17:07.702]  - exclude = 
  [14:17:08.568]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:17:07.703]  - resignal = FALSE
  [14:17:08.569]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:17:07.704]  - Number of conditions: 2
  [14:17:08.570]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:17:07.705] signalConditions() ... done
  [14:17:08.570]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:17:07.706] result() for ClusterFuture ...
  [14:17:08.571]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:17:07.707] - result already collected: FutureResult
  [14:17:08.572]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:17:07.707] result() for ClusterFuture ... done
  [14:17:08.572]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:17:07.708] signalConditions() ...
  [14:17:08.573]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:17:07.709]  - include = 'immediateCondition'
  [14:17:08.574]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:17:07.710]  - exclude = 
  [14:17:08.574]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:17:07.711]  - resignal = FALSE
  [14:17:08.575]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:17:07.711]  - Number of conditions: 2
  [14:17:08.576]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:17:07.712] signalConditions() ... done
  [14:17:08.576]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:17:07.713] result() for ClusterFuture ...
  [14:17:08.577]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:17:07.714] - result already collected: FutureResult
  [14:17:08.578]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:17:07.714] result() for ClusterFuture ... done
  [14:17:08.579]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:17:07.715] signalConditions() ...
  [14:17:08.579]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:17:07.716]  - include = 'condition'
  [14:17:08.580]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:17:07.717]  - exclude = 'immediateCondition'
  [14:17:08.580]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:17:07.718]  - resignal = FALSE
  [14:17:08.581]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:17:07.718]  - Number of conditions: 2
  [14:17:08.582]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:17:07.719]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:08.582]  - 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
  [14:17:08.583]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:17:07.720]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:08.584]  - 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
  [14:17:08.584]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:17:07.721] signalConditions() ... done
  [14:17:08.585]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:17:07.722] - relayed: [n=2] TRUE, TRUE
  [14:17:08.586]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:17:07.723] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.586]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:17:07.723] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:17:08.587]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:17:07.724]  length: 0 (resolved future 2)
  [14:17:08.588]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:17:07.725] Relaying remaining futures
  [14:17:08.588]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:17:07.726] signalConditionsASAP(NULL, pos=0) ...
  [14:17:08.589]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:17:07.726] - nx: 2
  [14:17:08.590]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:17:07.727] - relay: TRUE
  [14:17:08.590]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:17:07.728] - stdout: TRUE
  [14:17:08.591]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:17:07.728] - signal: TRUE
  [14:17:08.591]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:17:07.729] - resignal: FALSE
  [14:17:08.592]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:17:07.730] - force: FALSE
  [14:17:08.593]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:17:07.730] - relayed: [n=2] TRUE, TRUE
  [14:17:08.593]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:17:07.731] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.594]  - Condition #279: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:08.595]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:17:07.733] - relayed: [n=2] TRUE, TRUE
  [14:17:08.595]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:17:07.733] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.596]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:17:07.734] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:08.597]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:17:07.735] resolve() on list ... DONE
  [14:17:08.597]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:17:07.736] - collecting values of futures
  [14:17:08.598]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:17:07.736] result() for ClusterFuture ...
  [14:17:08.599]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:17:07.737] - result already collected: FutureResult
  [14:17:08.599]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:17:07.738] result() for ClusterFuture ... done
  [14:17:08.600]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:17:07.739] result() for ClusterFuture ...
  [14:17:08.601]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:17:07.739] - result already collected: FutureResult
  [14:17:08.601]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:17:07.740] result() for ClusterFuture ... done
  [14:17:08.602]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:17:07.741] signalConditions() ...
  [14:17:08.603]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:17:07.742]  - include = 'immediateCondition'
  [14:17:08.603]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:17:07.742]  - exclude = 
  [14:17:08.604]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:17:07.743]  - resignal = FALSE
  [14:17:08.610]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:17:07.744]  - Number of conditions: 1
  [14:17:08.611]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:17:07.745] signalConditions() ... done
  [14:17:08.611]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:17:07.746] result() for ClusterFuture ...
  [14:17:08.612]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:17:07.746] - result already collected: FutureResult
  [14:17:08.613]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:17:07.747] result() for ClusterFuture ... done
  [14:17:08.613]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:17:07.748] result() for ClusterFuture ...
  [14:17:08.614]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:17:07.749] - result already collected: FutureResult
  [14:17:08.615]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:17:07.749] result() for ClusterFuture ... done
  [14:17:08.615]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:17:07.750] signalConditions() ...
  [14:17:08.616]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:17:07.751]  - include = 'immediateCondition'
  [14:17:08.617]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:17:07.752]  - exclude = 
  [14:17:08.617]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:17:07.752]  - resignal = FALSE
  [14:17:08.618]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:17:07.753]  - Number of conditions: 2
  [14:17:08.618]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:17:07.754] signalConditions() ... done
  [14:17:08.619]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:17:07.755] - accumulating results
  [14:17:08.620]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:17:07.757] - processing errors (handler = 'stop')
  [14:17:08.620]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:17:07.758] - extracting results
  [14:17:08.621]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:17:07.758] doFuture() ... DONE
  [14:17:08.622]  - Condition #313: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:08.622]  - Condition #314: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:08.623]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:17:07.774] doFuture() ...
  [14:17:08.624]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:17:07.777] - dummy globals (as locals): [1] 'b'
  [14:17:08.624]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:17:07.779] - R expression:
  [14:17:08.625]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:17:07.780] {
  [14:17:07.780]     doFuture::registerDoFuture()
  [14:17:07.780]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:07.780]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:07.780]         b <- NULL
  [14:17:07.780]         ...future.env <- environment()
  [14:17:07.780]         local({
  [14:17:07.780]             for (name in names(...future.x_jj)) {
  [14:17:07.780]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:07.780]                   inherits = FALSE)
  [14:17:07.780]             }
  [14:17:07.780]         })
  [14:17:07.780]         tryCatch({
  [14:17:07.780]             plan_list <- future::plan("next")
  [14:17:07.780]             message(capture.output(print(plan_list)))
  [14:17:07.780]             stopifnot(inherits(plan_list, "future"))
  [14:17:07.780]             default <- getOption("future.plan", "sequential")
  [14:17:07.780]             if (is.function(default)) 
  [14:17:07.780]                 default <- class(default)
  [14:17:07.780]             stopifnot(inherits(plan_list, default))
  [14:17:07.780]             plan_b <- future::plan("list")
  [14:17:07.780]             str(plan_b)
  [14:17:07.780]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:07.780]                 default))
  [14:17:07.780]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:07.780]         }, error = identity)
  [14:17:07.780]     })
  [14:17:07.780] }
  [14:17:08.626]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:17:07.782] - identifying globals and packages ...
  [14:17:08.627]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:17:07.783] getGlobalsAndPackages() ...
  [14:17:08.627]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:17:07.784] Searching for globals...
  [14:17:08.628]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:17:07.819] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:08.629]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:17:07.820] Searching for globals ... DONE
  [14:17:08.629]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:17:07.821] Resolving globals: FALSE
  [14:17:08.630]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:17:07.830] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:17:08.631]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:17:07.832] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.631]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:17:07.833] - packages: [1] 'utils'
  [14:17:08.632]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:17:07.834] getGlobalsAndPackages() ... DONE
  [14:17:08.633]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:17:07.835] List of 3
  [14:17:07.835]  $ ...future.x_ii: NULL
  [14:17:07.835]  $ a             : int 2
  [14:17:07.835]  $ plan_a        :List of 1
  [14:17:07.835]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:07.835]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:07.835]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:17:07.835]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:17:07.835]   .. ..- attr(*, "init")= logi TRUE
  [14:17:07.835]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:07.835]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:07.835]  - attr(*, "where")=List of 3
  [14:17:07.835]   ..$ ...future.x_ii:<environment: 0x19a99d0> 
  [14:17:07.835]   ..$ a             :<environment: 0x366bbe0> 
  [14:17:07.835]   ..$ plan_a        :<environment: 0x366bbe0> 
  [14:17:07.835]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:07.835]  - attr(*, "resolved")= logi FALSE
  [14:17:07.835]  - attr(*, "total_size")= num 83544
  [14:17:08.633]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:17:07.856]   - R expression:
  [14:17:08.634]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:17:07.857] {
  [14:17:07.857]     doFuture::registerDoFuture()
  [14:17:07.857]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:07.857]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:07.857]         b <- NULL
  [14:17:07.857]         ...future.env <- environment()
  [14:17:07.857]         local({
  [14:17:07.857]             for (name in names(...future.x_jj)) {
  [14:17:07.857]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:07.857]                   inherits = FALSE)
  [14:17:07.857]             }
  [14:17:07.857]         })
  [14:17:07.857]         tryCatch({
  [14:17:07.857]             plan_list <- future::plan("next")
  [14:17:07.857]             message(capture.output(print(plan_list)))
  [14:17:07.857]             stopifnot(inherits(plan_list, "future"))
  [14:17:07.857]             default <- getOption("future.plan", "sequential")
  [14:17:07.857]             if (is.function(default)) 
  [14:17:07.857]                 default <- class(default)
  [14:17:07.857]             stopifnot(inherits(plan_list, default))
  [14:17:07.857]             plan_b <- future::plan("list")
  [14:17:07.857]             str(plan_b)
  [14:17:07.857]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:07.857]                 default))
  [14:17:07.857]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:07.857]         }, error = identity)
  [14:17:07.857]     })
  [14:17:07.857] }
  [14:17:08.635]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:17:07.859]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.635]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:17:07.860] List of 3
  [14:17:07.860]  $ ...future.x_ii: NULL
  [14:17:07.860]  $ a             : int 2
  [14:17:07.860]  $ plan_a        :List of 1
  [14:17:07.860]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:07.860]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:07.860]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:17:07.860]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:17:07.860]   .. ..- attr(*, "init")= logi TRUE
  [14:17:07.860]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:07.860]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:07.860]  - attr(*, "where")=List of 3
  [14:17:07.860]   ..$ ...future.x_ii:<environment: 0x19a99d0> 
  [14:17:07.860]   ..$ a             :<environment: 0x366bbe0> 
  [14:17:07.860]   ..$ plan_a        :<environment: 0x366bbe0> 
  [14:17:07.860]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:07.860]  - attr(*, "resolved")= logi FALSE
  [14:17:07.860]  - attr(*, "total_size")= num 83544
  [14:17:08.636]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:17:07.882]   - packages: [2] 'doFuture', 'utils'
  [14:17:08.637]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:17:07.882] - identifying globals and packages ... DONE
  [14:17:08.637]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:17:07.884] Number of chunks: 2
  [14:17:08.638]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:17:07.885] Number of futures (= number of chunks): 2
  [14:17:08.639]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:17:07.886] Launching 2 futures (chunks) ...
  [14:17:08.639]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:17:07.887] Chunk #1 of 2 ...
  [14:17:08.640]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:17:07.888]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:08.640]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:17:07.888] getGlobalsAndPackages() ...
  [14:17:08.641]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:17:07.889] Searching for globals...
  [14:17:08.642]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:17:07.890] 
  [14:17:08.642]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:17:07.891] Searching for globals ... DONE
  [14:17:08.643]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:17:07.892] - globals: [0] <none>
  [14:17:08.643]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:17:07.892] getGlobalsAndPackages() ... DONE
  [14:17:08.644]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:17:07.893] 
  [14:17:08.644]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:17:07.893] 
  [14:17:08.647]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:17:07.894]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:08.647]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:17:07.896] getGlobalsAndPackages() ...
  [14:17:08.648]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:17:07.901] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.649]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:17:07.902] Resolving globals: FALSE
  [14:17:08.649]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:17:07.905] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [14:17:08.650]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:17:07.906] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.650]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:17:07.906] 
  [14:17:08.651]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:17:07.907] getGlobalsAndPackages() ... DONE
  [14:17:08.652]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:17:07.921] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:08.652]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:17:07.922] Packages needed by future strategies (n = 0): <none>
  [14:17:08.653]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:17:07.929] {
  [14:17:07.929]     {
  [14:17:07.929]         ...future.startTime <- base::Sys.time()
  [14:17:07.929]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:07.929]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:07.929]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:07.929]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:07.929]             future.resolve.recursive = NULL, width = 80L)
  [14:17:07.929]         {
  [14:17:07.929]             {
  [14:17:07.929]                 {
  [14:17:07.929]                   {
  [14:17:07.929]                     base::local({
  [14:17:07.929]                       has_future <- base::requireNamespace("future", 
  [14:17:07.929]                         quietly = TRUE)
  [14:17:07.929]                       version <- if (has_future) 
  [14:17:07.929]                         utils::packageVersion("future")
  [14:17:07.929]                       else NULL
  [14:17:07.929]                       if (!has_future || version < "1.8.0") {
  [14:17:07.929]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:07.929]                           "", base::R.version$version.string), 
  [14:17:07.929]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:07.929]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:07.929]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:07.929]                             "release", "version")], collapse = " "), 
  [14:17:07.929]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:07.929]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:07.929]                           info)
  [14:17:07.929]                         info <- base::paste(info, collapse = "; ")
  [14:17:07.929]                         if (!has_future) {
  [14:17:07.929]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:07.929]                             info)
  [14:17:07.929]                         }
  [14:17:07.929]                         else {
  [14:17:07.929]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:07.929]                             info, version)
  [14:17:07.929]                         }
  [14:17:07.929]                         base::stop(msg)
  [14:17:07.929]                       }
  [14:17:07.929]                     })
  [14:17:07.929]                   }
  [14:17:07.929]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:07.929]                   base::options(mc.cores = 1L)
  [14:17:07.929]                 }
  [14:17:07.929]                 base::local({
  [14:17:07.929]                   for (pkg in c("doFuture", "utils")) {
  [14:17:07.929]                     base::loadNamespace(pkg)
  [14:17:07.929]                     base::library(pkg, character.only = TRUE)
  [14:17:07.929]                   }
  [14:17:07.929]                 })
  [14:17:07.929]             }
  [14:17:07.929]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:07.929]         }
  [14:17:07.929]     }
  [14:17:07.929]     if (base::is.na(TRUE)) {
  [14:17:07.929]     }
  [14:17:07.929]     else {
  [14:17:07.929]         if (TRUE) {
  [14:17:07.929]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:07.929]                 open = "w")
  [14:17:07.929]         }
  [14:17:07.929]         else {
  [14:17:07.929]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:07.929]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:07.929]         }
  [14:17:07.929]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:07.929]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:07.929]             base::sink(type = "output", split = FALSE)
  [14:17:07.929]             base::close(...future.stdout)
  [14:17:07.929]         }, add = TRUE)
  [14:17:07.929]     }
  [14:17:07.929]     ...future.frame <- base::sys.nframe()
  [14:17:07.929]     ...future.conditions <- base::list()
  [14:17:07.929]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:07.929]     ...future.result <- base::tryCatch({
  [14:17:07.929]         base::withCallingHandlers({
  [14:17:07.929]             ...future.value <- base::withVisible(base::local({
  [14:17:07.929]                 ...future.sendCondition <- local({
  [14:17:07.929]                   sendCondition <- NULL
  [14:17:07.929]                   function(frame = 1L) {
  [14:17:07.929]                     if (is.function(sendCondition)) 
  [14:17:07.929]                       return(sendCondition)
  [14:17:07.929]                     ns <- getNamespace("parallel")
  [14:17:07.929]                     if (exists("sendData", mode = "function", 
  [14:17:07.929]                       envir = ns)) {
  [14:17:07.929]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:07.929]                         envir = ns)
  [14:17:07.929]                       envir <- sys.frame(frame)
  [14:17:07.929]                       master <- NULL
  [14:17:07.929]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:07.929]                         !identical(envir, emptyenv())) {
  [14:17:07.929]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:07.929]                           inherits = FALSE)) {
  [14:17:07.929]                           master <- get("master", mode = "list", 
  [14:17:07.929]                             envir = envir, inherits = FALSE)
  [14:17:07.929]                           if (inherits(master, "SOCKnode")) {
  [14:17:07.929]                             sendCondition <<- function(cond) {
  [14:17:07.929]                               data <- list(type = "VALUE", value = cond, 
  [14:17:07.929]                                 success = TRUE)
  [14:17:07.929]                               parallel_sendData(master, data)
  [14:17:07.929]                             }
  [14:17:07.929]                             return(sendCondition)
  [14:17:07.929]                           }
  [14:17:07.929]                         }
  [14:17:07.929]                         frame <- frame + 1L
  [14:17:07.929]                         envir <- sys.frame(frame)
  [14:17:07.929]                       }
  [14:17:07.929]                     }
  [14:17:07.929]                     sendCondition <<- function(cond) NULL
  [14:17:07.929]                   }
  [14:17:07.929]                 })
  [14:17:07.929]                 withCallingHandlers({
  [14:17:07.929]                   {
  [14:17:07.929]                     doFuture::registerDoFuture()
  [14:17:07.929]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:07.929]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:07.929]                       b <- NULL
  [14:17:07.929]                       ...future.env <- environment()
  [14:17:07.929]                       local({
  [14:17:07.929]                         for (name in names(...future.x_jj)) {
  [14:17:07.929]                           assign(name, ...future.x_jj[[name]], 
  [14:17:07.929]                             envir = ...future.env, inherits = FALSE)
  [14:17:07.929]                         }
  [14:17:07.929]                       })
  [14:17:07.929]                       tryCatch({
  [14:17:07.929]                         plan_list <- future::plan("next")
  [14:17:07.929]                         message(capture.output(print(plan_list)))
  [14:17:07.929]                         stopifnot(inherits(plan_list, "future"))
  [14:17:07.929]                         default <- getOption("future.plan", "sequential")
  [14:17:07.929]                         if (is.function(default)) 
  [14:17:07.929]                           default <- class(default)
  [14:17:07.929]                         stopifnot(inherits(plan_list, default))
  [14:17:07.929]                         plan_b <- future::plan("list")
  [14:17:07.929]                         str(plan_b)
  [14:17:07.929]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:07.929]                           inherits(plan_b[[1]], default))
  [14:17:07.929]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:07.929]                       }, error = identity)
  [14:17:07.929]                     })
  [14:17:07.929]                   }
  [14:17:07.929]                 }, immediateCondition = function(cond) {
  [14:17:07.929]                   sendCondition <- ...future.sendCondition()
  [14:17:07.929]                   sendCondition(cond)
  [14:17:07.929]                   muffleCondition <- function (cond) 
  [14:17:07.929]                   {
  [14:17:07.929]                     inherits <- base::inherits
  [14:17:07.929]                     invokeRestart <- base::invokeRestart
  [14:17:07.929]                     muffled <- FALSE
  [14:17:07.929]                     if (inherits(cond, "message")) {
  [14:17:07.929]                       invokeRestart("muffleMessage")
  [14:17:07.929]                       muffled <- TRUE
  [14:17:07.929]                     }
  [14:17:07.929]                     else if (inherits(cond, "warning")) {
  [14:17:07.929]                       invokeRestart("muffleWarning")
  [14:17:07.929]                       muffled <- TRUE
  [14:17:07.929]                     }
  [14:17:07.929]                     else if (inherits(cond, "condition")) {
  [14:17:07.929]                       computeRestarts <- base::computeRestarts
  [14:17:07.929]                       grepl <- base::grepl
  [14:17:07.929]                       is.null <- base::is.null
  [14:17:07.929]                       restarts <- computeRestarts(cond)
  [14:17:07.929]                       for (restart in restarts) {
  [14:17:07.929]                         name <- restart$name
  [14:17:07.929]                         if (is.null(name)) 
  [14:17:07.929]                           next
  [14:17:07.929]                         if (!grepl("^muffle", name)) 
  [14:17:07.929]                           next
  [14:17:07.929]                         invokeRestart(restart)
  [14:17:07.929]                         muffled <- TRUE
  [14:17:07.929]                         break
  [14:17:07.929]                       }
  [14:17:07.929]                     }
  [14:17:07.929]                     invisible(muffled)
  [14:17:07.929]                   }
  [14:17:07.929]                   muffleCondition(cond)
  [14:17:07.929]                 })
  [14:17:07.929]             }))
  [14:17:07.929]             future::FutureResult(value = ...future.value$value, 
  [14:17:07.929]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.929]                   ...future.rng), started = ...future.startTime, 
  [14:17:07.929]                 version = "1.8")
  [14:17:07.929]         }, condition = base::local({
  [14:17:07.929]             c <- base::c
  [14:17:07.929]             inherits <- base::inherits
  [14:17:07.929]             invokeRestart <- base::invokeRestart
  [14:17:07.929]             length <- base::length
  [14:17:07.929]             list <- base::list
  [14:17:07.929]             seq.int <- base::seq.int
  [14:17:07.929]             signalCondition <- base::signalCondition
  [14:17:07.929]             sys.calls <- base::sys.calls
  [14:17:07.929]             Sys.time <- base::Sys.time
  [14:17:07.929]             `[[` <- base::`[[`
  [14:17:07.929]             `+` <- base::`+`
  [14:17:07.929]             `<<-` <- base::`<<-`
  [14:17:07.929]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:07.929]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:07.929]                   3L)]
  [14:17:07.929]             }
  [14:17:07.929]             function(cond) {
  [14:17:07.929]                 if (inherits(cond, "error")) {
  [14:17:07.929]                   sessionInformation <- function() {
  [14:17:07.929]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:07.929]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:07.929]                       search = base::search(), system = base::Sys.info())
  [14:17:07.929]                   }
  [14:17:07.929]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.929]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:07.929]                     cond$call), session = sessionInformation(), 
  [14:17:07.929]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:07.929]                   signalCondition(cond)
  [14:17:07.929]                 }
  [14:17:07.929]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:07.929]                 ))) {
  [14:17:07.929]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:07.929]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:07.929]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:07.929]                   if (!signal) {
  [14:17:07.929]                     muffleCondition <- function (cond) 
  [14:17:07.929]                     {
  [14:17:07.929]                       inherits <- base::inherits
  [14:17:07.929]                       invokeRestart <- base::invokeRestart
  [14:17:07.929]                       muffled <- FALSE
  [14:17:07.929]                       if (inherits(cond, "message")) {
  [14:17:07.929]                         invokeRestart("muffleMessage")
  [14:17:07.929]                         muffled <- TRUE
  [14:17:07.929]                       }
  [14:17:07.929]                       else if (inherits(cond, "warning")) {
  [14:17:07.929]                         invokeRestart("muffleWarning")
  [14:17:07.929]                         muffled <- TRUE
  [14:17:07.929]                       }
  [14:17:07.929]                       else if (inherits(cond, "condition")) {
  [14:17:07.929]                         computeRestarts <- base::computeRestarts
  [14:17:07.929]                         grepl <- base::grepl
  [14:17:07.929]                         is.null <- base::is.null
  [14:17:07.929]                         restarts <- computeRestarts(cond)
  [14:17:07.929]                         for (restart in restarts) {
  [14:17:07.929]                           name <- restart$name
  [14:17:07.929]                           if (is.null(name)) 
  [14:17:07.929]                             next
  [14:17:07.929]                           if (!grepl("^muffle", name)) 
  [14:17:07.929]                             next
  [14:17:07.929]                           invokeRestart(restart)
  [14:17:07.929]                           muffled <- TRUE
  [14:17:07.929]                           break
  [14:17:07.929]                         }
  [14:17:07.929]                       }
  [14:17:07.929]                       invisible(muffled)
  [14:17:07.929]                     }
  [14:17:07.929]                     muffleCondition(cond)
  [14:17:07.929]                   }
  [14:17:07.929]                 }
  [14:17:07.929]             }
  [14:17:07.929]         }))
  [14:17:07.929]     }, error = function(ex) {
  [14:17:07.929]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:07.929]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:07.929]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:07.929]     }, finally = {
  [14:17:07.929]         {
  [14:17:07.929]             {
  [14:17:07.929]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:07.929]             }
  [14:17:07.929]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:07.929]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:07.929]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:07.929]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:07.929]                 ...) 
  [14:17:07.929]             {
  [14:17:07.929]                 if (substitute) 
  [14:17:07.929]                   expr <- substitute(expr)
  [14:17:07.929]                 if (is.function(workers)) 
  [14:17:07.929]                   workers <- workers()
  [14:17:07.929]                 workers <- as.integer(workers)
  [14:17:07.929]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:07.929]                   workers >= 1)
  [14:17:07.929]                 if (workers == 1L) {
  [14:17:07.929]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:07.929]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:07.929]                     local = TRUE, label = label, ...))
  [14:17:07.929]                 }
  [14:17:07.929]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:07.929]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:07.929]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:07.929]                   globals = globals, persistent = persistent, 
  [14:17:07.929]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:07.929]                   label = label, ...)
  [14:17:07.929]                 if (!future$lazy) 
  [14:17:07.929]                   future <- run(future)
  [14:17:07.929]                 invisible(future)
  [14:17:07.929]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:07.929]         }
  [14:17:07.929]         base::options(...future.oldOptions)
  [14:17:07.929]     })
  [14:17:07.929]     Sys.time
  [14:17:07.929]     if (base::is.na(TRUE)) {
  [14:17:07.929]     }
  [14:17:07.929]     else {
  [14:17:07.929]         base::sink(type = "output", split = FALSE)
  [14:17:07.929]         if (TRUE) {
  [14:17:07.929]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:07.929]         }
  [14:17:07.929]         else {
  [14:17:07.929]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:07.929]         }
  [14:17:07.929]         base::close(...future.stdout)
  [14:17:07.929]         ...future.stdout <- NULL
  [14:17:07.929]     }
  [14:17:07.929]     ...future.result$conditions <- ...future.conditions
  [14:17:07.929]     ...future.result
  [14:17:07.929] }
  [14:17:08.653]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:17:07.941] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [14:17:08.654]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:17:07.942] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:17:08.655]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:17:07.945] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:17:08.655]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:17:07.946] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:17:08.656]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:17:07.948] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:17:08.657]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:17:07.950] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [14:17:08.657]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:17:07.993] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [14:17:08.658]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:17:07.994] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [14:17:08.659]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:17:07.996] MultisessionFuture started
  [14:17:08.659]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:17:07.997] Chunk #1 of 2 ... DONE
  [14:17:08.660]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:17:07.997] Chunk #2 of 2 ...
  [14:17:08.661]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:17:07.998]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:08.661]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:17:07.999] getGlobalsAndPackages() ...
  [14:17:08.662]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:17:07.999] Searching for globals...
  [14:17:08.663]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:17:08.015] 
  [14:17:08.663]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:17:08.016] Searching for globals ... DONE
  [14:17:08.664]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:17:08.017] - globals: [0] <none>
  [14:17:08.665]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:17:08.019] getGlobalsAndPackages() ... DONE
  [14:17:08.665]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:17:08.020] 
  [14:17:08.666]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:17:08.021] 
  [14:17:08.666]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:17:08.025]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:08.667]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:17:08.026] getGlobalsAndPackages() ...
  [14:17:08.668]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:17:08.030] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.668]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:17:08.031] Resolving globals: FALSE
  [14:17:08.669]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:17:08.037] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [14:17:08.670]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:17:08.041] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:08.670]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:17:08.042] 
  [14:17:08.671]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:17:08.043] getGlobalsAndPackages() ... DONE
  [14:17:08.672]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:17:08.065] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:08.672]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:17:08.066] Packages needed by future strategies (n = 0): <none>
  [14:17:08.673]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:17:08.079] {
  [14:17:08.079]     {
  [14:17:08.079]         ...future.startTime <- base::Sys.time()
  [14:17:08.079]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:08.079]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:08.079]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:08.079]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:08.079]             future.resolve.recursive = NULL, width = 80L)
  [14:17:08.079]         {
  [14:17:08.079]             {
  [14:17:08.079]                 {
  [14:17:08.079]                   {
  [14:17:08.079]                     base::local({
  [14:17:08.079]                       has_future <- base::requireNamespace("future", 
  [14:17:08.079]                         quietly = TRUE)
  [14:17:08.079]                       version <- if (has_future) 
  [14:17:08.079]                         utils::packageVersion("future")
  [14:17:08.079]                       else NULL
  [14:17:08.079]                       if (!has_future || version < "1.8.0") {
  [14:17:08.079]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:08.079]                           "", base::R.version$version.string), 
  [14:17:08.079]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:08.079]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:08.079]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:08.079]                             "release", "version")], collapse = " "), 
  [14:17:08.079]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:08.079]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:08.079]                           info)
  [14:17:08.079]                         info <- base::paste(info, collapse = "; ")
  [14:17:08.079]                         if (!has_future) {
  [14:17:08.079]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:08.079]                             info)
  [14:17:08.079]                         }
  [14:17:08.079]                         else {
  [14:17:08.079]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:08.079]                             info, version)
  [14:17:08.079]                         }
  [14:17:08.079]                         base::stop(msg)
  [14:17:08.079]                       }
  [14:17:08.079]                     })
  [14:17:08.079]                   }
  [14:17:08.079]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:08.079]                   base::options(mc.cores = 1L)
  [14:17:08.079]                 }
  [14:17:08.079]                 base::local({
  [14:17:08.079]                   for (pkg in c("doFuture", "utils")) {
  [14:17:08.079]                     base::loadNamespace(pkg)
  [14:17:08.079]                     base::library(pkg, character.only = TRUE)
  [14:17:08.079]                   }
  [14:17:08.079]                 })
  [14:17:08.079]             }
  [14:17:08.079]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:08.079]         }
  [14:17:08.079]     }
  [14:17:08.079]     if (base::is.na(TRUE)) {
  [14:17:08.079]     }
  [14:17:08.079]     else {
  [14:17:08.079]         if (TRUE) {
  [14:17:08.079]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:08.079]                 open = "w")
  [14:17:08.079]         }
  [14:17:08.079]         else {
  [14:17:08.079]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:08.079]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:08.079]         }
  [14:17:08.079]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:08.079]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:08.079]             base::sink(type = "output", split = FALSE)
  [14:17:08.079]             base::close(...future.stdout)
  [14:17:08.079]         }, add = TRUE)
  [14:17:08.079]     }
  [14:17:08.079]     ...future.frame <- base::sys.nframe()
  [14:17:08.079]     ...future.conditions <- base::list()
  [14:17:08.079]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:08.079]     ...future.result <- base::tryCatch({
  [14:17:08.079]         base::withCallingHandlers({
  [14:17:08.079]             ...future.value <- base::withVisible(base::local({
  [14:17:08.079]                 ...future.sendCondition <- local({
  [14:17:08.079]                   sendCondition <- NULL
  [14:17:08.079]                   function(frame = 1L) {
  [14:17:08.079]                     if (is.function(sendCondition)) 
  [14:17:08.079]                       return(sendCondition)
  [14:17:08.079]                     ns <- getNamespace("parallel")
  [14:17:08.079]                     if (exists("sendData", mode = "function", 
  [14:17:08.079]                       envir = ns)) {
  [14:17:08.079]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:08.079]                         envir = ns)
  [14:17:08.079]                       envir <- sys.frame(frame)
  [14:17:08.079]                       master <- NULL
  [14:17:08.079]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:08.079]                         !identical(envir, emptyenv())) {
  [14:17:08.079]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:08.079]                           inherits = FALSE)) {
  [14:17:08.079]                           master <- get("master", mode = "list", 
  [14:17:08.079]                             envir = envir, inherits = FALSE)
  [14:17:08.079]                           if (inherits(master, "SOCKnode")) {
  [14:17:08.079]                             sendCondition <<- function(cond) {
  [14:17:08.079]                               data <- list(type = "VALUE", value = cond, 
  [14:17:08.079]                                 success = TRUE)
  [14:17:08.079]                               parallel_sendData(master, data)
  [14:17:08.079]                             }
  [14:17:08.079]                             return(sendCondition)
  [14:17:08.079]                           }
  [14:17:08.079]                         }
  [14:17:08.079]                         frame <- frame + 1L
  [14:17:08.079]                         envir <- sys.frame(frame)
  [14:17:08.079]                       }
  [14:17:08.079]                     }
  [14:17:08.079]                     sendCondition <<- function(cond) NULL
  [14:17:08.079]                   }
  [14:17:08.079]                 })
  [14:17:08.079]                 withCallingHandlers({
  [14:17:08.079]                   {
  [14:17:08.079]                     doFuture::registerDoFuture()
  [14:17:08.079]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:08.079]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:08.079]                       b <- NULL
  [14:17:08.079]                       ...future.env <- environment()
  [14:17:08.079]                       local({
  [14:17:08.079]                         for (name in names(...future.x_jj)) {
  [14:17:08.079]                           assign(name, ...future.x_jj[[name]], 
  [14:17:08.079]                             envir = ...future.env, inherits = FALSE)
  [14:17:08.079]                         }
  [14:17:08.079]                       })
  [14:17:08.079]                       tryCatch({
  [14:17:08.079]                         plan_list <- future::plan("next")
  [14:17:08.079]                         message(capture.output(print(plan_list)))
  [14:17:08.079]                         stopifnot(inherits(plan_list, "future"))
  [14:17:08.079]                         default <- getOption("future.plan", "sequential")
  [14:17:08.079]                         if (is.function(default)) 
  [14:17:08.079]                           default <- class(default)
  [14:17:08.079]                         stopifnot(inherits(plan_list, default))
  [14:17:08.079]                         plan_b <- future::plan("list")
  [14:17:08.079]                         str(plan_b)
  [14:17:08.079]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:08.079]                           inherits(plan_b[[1]], default))
  [14:17:08.079]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:08.079]                       }, error = identity)
  [14:17:08.079]                     })
  [14:17:08.079]                   }
  [14:17:08.079]                 }, immediateCondition = function(cond) {
  [14:17:08.079]                   sendCondition <- ...future.sendCondition()
  [14:17:08.079]                   sendCondition(cond)
  [14:17:08.079]                   muffleCondition <- function (cond) 
  [14:17:08.079]                   {
  [14:17:08.079]                     inherits <- base::inherits
  [14:17:08.079]                     invokeRestart <- base::invokeRestart
  [14:17:08.079]                     muffled <- FALSE
  [14:17:08.079]                     if (inherits(cond, "message")) {
  [14:17:08.079]                       invokeRestart("muffleMessage")
  [14:17:08.079]                       muffled <- TRUE
  [14:17:08.079]                     }
  [14:17:08.079]                     else if (inherits(cond, "warning")) {
  [14:17:08.079]                       invokeRestart("muffleWarning")
  [14:17:08.079]                       muffled <- TRUE
  [14:17:08.079]                     }
  [14:17:08.079]                     else if (inherits(cond, "condition")) {
  [14:17:08.079]                       computeRestarts <- base::computeRestarts
  [14:17:08.079]                       grepl <- base::grepl
  [14:17:08.079]                       is.null <- base::is.null
  [14:17:08.079]                       restarts <- computeRestarts(cond)
  [14:17:08.079]                       for (restart in restarts) {
  [14:17:08.079]                         name <- restart$name
  [14:17:08.079]                         if (is.null(name)) 
  [14:17:08.079]                           next
  [14:17:08.079]                         if (!grepl("^muffle", name)) 
  [14:17:08.079]                           next
  [14:17:08.079]                         invokeRestart(restart)
  [14:17:08.079]                         muffled <- TRUE
  [14:17:08.079]                         break
  [14:17:08.079]                       }
  [14:17:08.079]                     }
  [14:17:08.079]                     invisible(muffled)
  [14:17:08.079]                   }
  [14:17:08.079]                   muffleCondition(cond)
  [14:17:08.079]                 })
  [14:17:08.079]             }))
  [14:17:08.079]             future::FutureResult(value = ...future.value$value, 
  [14:17:08.079]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:08.079]                   ...future.rng), started = ...future.startTime, 
  [14:17:08.079]                 version = "1.8")
  [14:17:08.079]         }, condition = base::local({
  [14:17:08.079]             c <- base::c
  [14:17:08.079]             inherits <- base::inherits
  [14:17:08.079]             invokeRestart <- base::invokeRestart
  [14:17:08.079]             length <- base::length
  [14:17:08.079]             list <- base::list
  [14:17:08.079]             seq.int <- base::seq.int
  [14:17:08.079]             signalCondition <- base::signalCondition
  [14:17:08.079]             sys.calls <- base::sys.calls
  [14:17:08.079]             Sys.time <- base::Sys.time
  [14:17:08.079]             `[[` <- base::`[[`
  [14:17:08.079]             `+` <- base::`+`
  [14:17:08.079]             `<<-` <- base::`<<-`
  [14:17:08.079]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:08.079]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:08.079]                   3L)]
  [14:17:08.079]             }
  [14:17:08.079]             function(cond) {
  [14:17:08.079]                 if (inherits(cond, "error")) {
  [14:17:08.079]                   sessionInformation <- function() {
  [14:17:08.079]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:08.079]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:08.079]                       search = base::search(), system = base::Sys.info())
  [14:17:08.079]                   }
  [14:17:08.079]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:08.079]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:08.079]                     cond$call), session = sessionInformation(), 
  [14:17:08.079]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:08.079]                   signalCondition(cond)
  [14:17:08.079]                 }
  [14:17:08.079]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:08.079]                 ))) {
  [14:17:08.079]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:08.079]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:08.079]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:08.079]                   if (!signal) {
  [14:17:08.079]                     muffleCondition <- function (cond) 
  [14:17:08.079]                     {
  [14:17:08.079]                       inherits <- base::inherits
  [14:17:08.079]                       invokeRestart <- base::invokeRestart
  [14:17:08.079]                       muffled <- FALSE
  [14:17:08.079]                       if (inherits(cond, "message")) {
  [14:17:08.079]                         invokeRestart("muffleMessage")
  [14:17:08.079]                         muffled <- TRUE
  [14:17:08.079]                       }
  [14:17:08.079]                       else if (inherits(cond, "warning")) {
  [14:17:08.079]                         invokeRestart("muffleWarning")
  [14:17:08.079]                         muffled <- TRUE
  [14:17:08.079]                       }
  [14:17:08.079]                       else if (inherits(cond, "condition")) {
  [14:17:08.079]                         computeRestarts <- base::computeRestarts
  [14:17:08.079]                         grepl <- base::grepl
  [14:17:08.079]                         is.null <- base::is.null
  [14:17:08.079]                         restarts <- computeRestarts(cond)
  [14:17:08.079]                         for (restart in restarts) {
  [14:17:08.079]                           name <- restart$name
  [14:17:08.079]                           if (is.null(name)) 
  [14:17:08.079]                             next
  [14:17:08.079]                           if (!grepl("^muffle", name)) 
  [14:17:08.079]                             next
  [14:17:08.079]                           invokeRestart(restart)
  [14:17:08.079]                           muffled <- TRUE
  [14:17:08.079]                           break
  [14:17:08.079]                         }
  [14:17:08.079]                       }
  [14:17:08.079]                       invisible(muffled)
  [14:17:08.079]                     }
  [14:17:08.079]                     muffleCondition(cond)
  [14:17:08.079]                   }
  [14:17:08.079]                 }
  [14:17:08.079]             }
  [14:17:08.079]         }))
  [14:17:08.079]     }, error = function(ex) {
  [14:17:08.079]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:08.079]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:08.079]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:08.079]     }, finally = {
  [14:17:08.079]         {
  [14:17:08.079]             {
  [14:17:08.079]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:08.079]             }
  [14:17:08.079]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:08.079]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:08.079]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:08.079]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:08.079]                 ...) 
  [14:17:08.079]             {
  [14:17:08.079]                 if (substitute) 
  [14:17:08.079]                   expr <- substitute(expr)
  [14:17:08.079]                 if (is.function(workers)) 
  [14:17:08.079]                   workers <- workers()
  [14:17:08.079]                 workers <- as.integer(workers)
  [14:17:08.079]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:08.079]                   workers >= 1)
  [14:17:08.079]                 if (workers == 1L) {
  [14:17:08.079]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:08.079]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:08.079]                     local = TRUE, label = label, ...))
  [14:17:08.079]                 }
  [14:17:08.079]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:08.079]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:08.079]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:08.079]                   globals = globals, persistent = persistent, 
  [14:17:08.079]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:08.079]                   label = label, ...)
  [14:17:08.079]                 if (!future$lazy) 
  [14:17:08.079]                   future <- run(future)
  [14:17:08.079]                 invisible(future)
  [14:17:08.079]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:08.079]         }
  [14:17:08.079]         base::options(...future.oldOptions)
  [14:17:08.079]     })
  [14:17:08.079]     Sys.time
  [14:17:08.079]     if (base::is.na(TRUE)) {
  [14:17:08.079]     }
  [14:17:08.079]     else {
  [14:17:08.079]         base::sink(type = "output", split = FALSE)
  [14:17:08.079]         if (TRUE) {
  [14:17:08.079]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:08.079]         }
  [14:17:08.079]         else {
  [14:17:08.079]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:08.079]         }
  [14:17:08.079]         base::close(...future.stdout)
  [14:17:08.079]         ...future.stdout <- NULL
  [14:17:08.079]     }
  [14:17:08.079]     ...future.result$conditions <- ...future.conditions
  [14:17:08.079]     ...future.result
  [14:17:08.079] }
  [14:17:08.674]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:17:08.092] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [14:17:08.674]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:17:08.094] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:17:08.675]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:17:08.095] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:17:08.676]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:17:08.096] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:17:08.676]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:17:08.098] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:17:08.677]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:17:08.099] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [14:17:08.677]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:17:08.142] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [14:17:08.678]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:17:08.143] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [14:17:08.679]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:17:08.145] MultisessionFuture started
  [14:17:08.679]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:17:08.146] Chunk #2 of 2 ... DONE
  [14:17:08.680]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:17:08.147] Launching 2 futures (chunks) ... DONE
  [14:17:08.681]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:17:08.148] - resolving futures
  [14:17:08.681]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:17:08.149]   - gathering results & relaying conditions (except errors)
  [14:17:08.682]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:17:08.149] resolve() on list ...
  [14:17:08.683]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:17:08.150]  recursive: 0
  [14:17:08.683]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:17:08.153]  length: 2
  [14:17:08.684]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:17:08.154] 
  [14:17:08.685]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:17:08.157] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:08.685]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:17:08.158] - Validating connection of MultisessionFuture
  [14:17:08.686]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:17:08.159] - received message: FutureResult
  [14:17:08.686]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:17:08.160] - Received FutureResult
  [14:17:08.687]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:17:08.161] - Erased future from FutureRegistry
  [14:17:08.688]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:17:08.161] result() for ClusterFuture ...
  [14:17:08.688]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:17:08.162] - result already collected: FutureResult
  [14:17:08.689]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:17:08.163] result() for ClusterFuture ... done
  [14:17:08.690]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:17:08.164] signalConditions() ...
  [14:17:08.690]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:17:08.165]  - include = 'immediateCondition'
  [14:17:08.696]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:17:08.166]  - exclude = 
  [14:17:08.696]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:17:08.166]  - resignal = FALSE
  [14:17:08.697]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:17:08.167]  - Number of conditions: 1
  [14:17:08.698]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:17:08.168] signalConditions() ... done
  [14:17:08.699]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:17:08.169] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:08.699]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:17:08.170] Future #1
  [14:17:08.700]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:17:08.171] result() for ClusterFuture ...
  [14:17:08.701]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:17:08.171] - result already collected: FutureResult
  [14:17:08.701]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:17:08.172] result() for ClusterFuture ... done
  [14:17:08.702]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:17:08.173] result() for ClusterFuture ...
  [14:17:08.703]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:17:08.174] - result already collected: FutureResult
  [14:17:08.703]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:17:08.174] result() for ClusterFuture ... done
  [14:17:08.704]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:17:08.175] signalConditions() ...
  [14:17:08.705]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:17:08.176]  - include = 'immediateCondition'
  [14:17:08.705]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:17:08.177]  - exclude = 
  [14:17:08.706]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:17:08.178]  - resignal = FALSE
  [14:17:08.707]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:17:08.178]  - Number of conditions: 1
  [14:17:08.707]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:17:08.179] signalConditions() ... done
  [14:17:08.708]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:17:08.180] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [14:17:08.709]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:17:08.181] - nx: 2
  [14:17:08.709]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:17:08.182] - relay: TRUE
  [14:17:08.710]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:17:08.182] - stdout: TRUE
  [14:17:08.711]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:17:08.183] - signal: TRUE
  [14:17:08.711]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:17:08.184] - resignal: FALSE
  [14:17:08.712]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:17:08.185] - force: FALSE
  [14:17:08.713]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:17:08.185] - relayed: [n=2] FALSE, FALSE
  [14:17:08.713]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:17:08.186] - queued futures: [n=2] FALSE, FALSE
  [14:17:08.714]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:17:08.200]  - until=1
  [14:17:08.715]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:17:08.201]  - relaying element #1
  [14:17:08.715]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:17:08.205] result() for ClusterFuture ...
  [14:17:08.716]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:17:08.206] - result already collected: FutureResult
  [14:17:08.717]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:17:08.206] result() for ClusterFuture ... done
  [14:17:08.717]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:17:08.207] result() for ClusterFuture ...
  [14:17:08.718]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:17:08.211] - result already collected: FutureResult
  [14:17:08.719]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:17:08.212] result() for ClusterFuture ... done
  [14:17:08.719]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:17:08.213] signalConditions() ...
  [14:17:08.720]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:17:08.216]  - include = 'immediateCondition'
  [14:17:08.721]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:17:08.217]  - exclude = 
  [14:17:08.721]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:17:08.217]  - resignal = FALSE
  [14:17:08.722]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:17:08.218]  - Number of conditions: 1
  [14:17:08.722]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:17:08.219] signalConditions() ... done
  [14:17:08.723]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:17:08.220] result() for ClusterFuture ...
  [14:17:08.724]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:17:08.220] - result already collected: FutureResult
  [14:17:08.724]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:17:08.221] result() for ClusterFuture ... done
  [14:17:08.725]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:17:08.222] signalConditions() ...
  [14:17:08.726]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:17:08.222]  - include = 'immediateCondition'
  [14:17:08.726]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:17:08.223]  - exclude = 
  [14:17:08.727]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:17:08.224]  - resignal = FALSE
  [14:17:08.728]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:17:08.224]  - Number of conditions: 1
  [14:17:08.728]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:17:08.225] signalConditions() ... done
  [14:17:08.729]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:17:08.226] result() for ClusterFuture ...
  [14:17:08.730]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:17:08.226] - result already collected: FutureResult
  [14:17:08.730]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:17:08.227] result() for ClusterFuture ... done
  [14:17:08.731]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:17:08.228] signalConditions() ...
  [14:17:08.732]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:17:08.229]  - include = 'condition'
  [14:17:08.732]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:17:08.229]  - exclude = 'immediateCondition'
  [14:17:08.733]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:17:08.230]  - resignal = FALSE
  [14:17:08.734]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:17:08.231]  - Number of conditions: 1
  [14:17:08.734]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:17:08.231]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:08.735]  - 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
  [14:17:08.736]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [14:17:08.232] signalConditions() ... done
  [14:17:08.736]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:17:08.233] - relayed: [n=2] TRUE, FALSE
  [14:17:08.737]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:17:08.234] - queued futures: [n=2] TRUE, FALSE
  [14:17:08.737]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:17:08.235] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [14:17:08.738]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:17:08.236]  length: 1 (resolved future 1)
  [14:17:08.739]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:17:08.238] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:08.739]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:17:08.239] - Validating connection of MultisessionFuture
  [14:17:08.740]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:17:08.241] - received message: FutureResult
  [14:17:08.740]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:17:08.242] - Received FutureResult
  [14:17:08.741]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:17:08.242] - Erased future from FutureRegistry
  [14:17:08.741]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:17:08.243] result() for ClusterFuture ...
  [14:17:08.742]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:17:08.244] - result already collected: FutureResult
  [14:17:08.742]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:17:08.245] result() for ClusterFuture ... done
  [14:17:08.743]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:17:08.246] signalConditions() ...
  [14:17:08.744]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:17:08.246]  - include = 'immediateCondition'
  [14:17:08.744]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:17:08.247]  - exclude = 
  [14:17:08.745]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:17:08.248]  - resignal = FALSE
  [14:17:08.745]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:17:08.254]  - Number of conditions: 2
  [14:17:08.746]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:17:08.255] signalConditions() ... done
  [14:17:08.746]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:17:08.256] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:08.747]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:17:08.257] Future #2
  [14:17:08.747]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:17:08.258] result() for ClusterFuture ...
  [14:17:08.748]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:17:08.258] - result already collected: FutureResult
  [14:17:08.749]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:17:08.259] result() for ClusterFuture ... done
  [14:17:08.749]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:17:08.260] result() for ClusterFuture ...
  [14:17:08.750]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:17:08.261] - result already collected: FutureResult
  [14:17:08.751]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:17:08.262] result() for ClusterFuture ... done
  [14:17:08.751]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:17:08.263] signalConditions() ...
  [14:17:08.752]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:17:08.263]  - include = 'immediateCondition'
  [14:17:08.752]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:17:08.264]  - exclude = 
  [14:17:08.753]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:17:08.265]  - resignal = FALSE
  [14:17:08.754]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:17:08.266]  - Number of conditions: 2
  [14:17:08.754]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:17:08.267] signalConditions() ... done
  [14:17:08.755]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:17:08.267] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [14:17:08.756]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:17:08.268] - nx: 2
  [14:17:08.756]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:17:08.269] - relay: TRUE
  [14:17:08.757]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:17:08.270] - stdout: TRUE
  [14:17:08.757]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:17:08.270] - signal: TRUE
  [14:17:08.758]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:17:08.271] - resignal: FALSE
  [14:17:08.759]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:17:08.272] - force: FALSE
  [14:17:08.759]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:17:08.273] - relayed: [n=2] TRUE, FALSE
  [14:17:08.760]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:17:08.273] - queued futures: [n=2] TRUE, FALSE
  [14:17:08.760]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:17:08.274]  - until=2
  [14:17:08.761]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:17:08.275]  - relaying element #2
  [14:17:08.762]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:17:08.276] result() for ClusterFuture ...
  [14:17:08.762]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:17:08.277] - result already collected: FutureResult
  [14:17:08.763]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:17:08.278] result() for ClusterFuture ... done
  [14:17:08.764]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:17:08.278] result() for ClusterFuture ...
  [14:17:08.764]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:17:08.279] - result already collected: FutureResult
  [14:17:08.765]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:17:08.280] result() for ClusterFuture ... done
  [14:17:08.766]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:17:08.281] signalConditions() ...
  [14:17:08.766]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:17:08.282]  - include = 'immediateCondition'
  [14:17:08.767]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:17:08.283]  - exclude = 
  [14:17:08.768]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:17:08.283]  - resignal = FALSE
  [14:17:08.768]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:17:08.284]  - Number of conditions: 2
  [14:17:08.769]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:17:08.285] signalConditions() ... done
  [14:17:08.770]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:17:08.286] result() for ClusterFuture ...
  [14:17:08.770]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:17:08.287] - result already collected: FutureResult
  [14:17:08.771]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:17:08.288] result() for ClusterFuture ... done
  [14:17:08.772]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:17:08.288] signalConditions() ...
  [14:17:08.772]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:17:08.289]  - include = 'immediateCondition'
  [14:17:08.773]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:17:08.290]  - exclude = 
  [14:17:08.779]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:17:08.291]  - resignal = FALSE
  [14:17:08.780]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:17:08.291]  - Number of conditions: 2
  [14:17:08.780]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:17:08.292] signalConditions() ... done
  [14:17:08.781]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:17:08.293] result() for ClusterFuture ...
  [14:17:08.782]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:17:08.294] - result already collected: FutureResult
  [14:17:08.782]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:17:08.295] result() for ClusterFuture ... done
  [14:17:08.783]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:17:08.296] signalConditions() ...
  [14:17:08.784]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:17:08.296]  - include = 'condition'
  [14:17:08.784]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:17:08.297]  - exclude = 'immediateCondition'
  [14:17:08.785]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:17:08.298]  - resignal = FALSE
  [14:17:08.786]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:17:08.299]  - Number of conditions: 2
  [14:17:08.786]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:17:08.300]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:08.787]  - 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
  [14:17:08.788]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [14:17:08.301]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:08.788]  - 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
  [14:17:08.789]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [14:17:08.302] signalConditions() ... done
  [14:17:08.790]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:17:08.303] - relayed: [n=2] TRUE, TRUE
  [14:17:08.790]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:17:08.304] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.791]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:17:08.305] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [14:17:08.792]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:17:08.306]  length: 0 (resolved future 2)
  [14:17:08.793]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:17:08.306] Relaying remaining futures
  [14:17:08.793]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:17:08.307] signalConditionsASAP(NULL, pos=0) ...
  [14:17:08.794]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:17:08.308] - nx: 2
  [14:17:08.795]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:17:08.309] - relay: TRUE
  [14:17:08.795]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:17:08.310] - stdout: TRUE
  [14:17:08.796]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:17:08.310] - signal: TRUE
  [14:17:08.796]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:17:08.311] - resignal: FALSE
  [14:17:08.797]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:17:08.312] - force: FALSE
  [14:17:08.798]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:17:08.313] - relayed: [n=2] TRUE, TRUE
  [14:17:08.798]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:17:08.313] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.799]  - Condition #570: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:08.800]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [14:17:08.315] - relayed: [n=2] TRUE, TRUE
  [14:17:08.800]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:17:08.316] - queued futures: [n=2] TRUE, TRUE
  [14:17:08.801]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:17:08.317] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:08.802]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:17:08.317] resolve() on list ... DONE
  [14:17:08.803]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:17:08.318] - collecting values of futures
  [14:17:08.803]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:17:08.319] result() for ClusterFuture ...
  [14:17:08.804]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:17:08.320] - result already collected: FutureResult
  [14:17:08.805]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:17:08.320] result() for ClusterFuture ... done
  [14:17:08.805]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:17:08.321] result() for ClusterFuture ...
  [14:17:08.806]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:17:08.322] - result already collected: FutureResult
  [14:17:08.807]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:17:08.323] result() for ClusterFuture ... done
  [14:17:08.807]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:17:08.324] signalConditions() ...
  [14:17:08.808]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:17:08.325]  - include = 'immediateCondition'
  [14:17:08.809]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:17:08.326]  - exclude = 
  [14:17:08.809]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:17:08.326]  - resignal = FALSE
  [14:17:08.810]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:17:08.327]  - Number of conditions: 1
  [14:17:08.810]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:17:08.328] signalConditions() ... done
  [14:17:08.811]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:17:08.329] result() for ClusterFuture ...
  [14:17:08.812]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:17:08.330] - result already collected: FutureResult
  [14:17:08.812]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:17:08.330] result() for ClusterFuture ... done
  [14:17:08.813]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:17:08.331] result() for ClusterFuture ...
  [14:17:08.814]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:17:08.332] - result already collected: FutureResult
  [14:17:08.814]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:17:08.333] result() for ClusterFuture ... done
  [14:17:08.815]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:17:08.334] signalConditions() ...
  [14:17:08.816]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:17:08.335]  - include = 'immediateCondition'
  [14:17:08.816]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:17:08.335]  - exclude = 
  [14:17:08.817]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:17:08.336]  - resignal = FALSE
  [14:17:08.818]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:17:08.337]  - Number of conditions: 2
  [14:17:08.818]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:17:08.338] signalConditions() ... done
  [14:17:08.819]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:17:08.339] - accumulating results
  [14:17:08.819]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:17:08.341] - processing errors (handler = 'stop')
  [14:17:08.820]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:17:08.343] - extracting results
  [14:17:08.821]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:17:08.343] doFuture() ... DONE
  [14:17:08.821]  - Condition #604: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:08.823] signalConditions() ... done
  [14:17:08.823] - relayed: [n=1] TRUE
  [14:17:08.824] - queued futures: [n=1] TRUE
  [14:17:08.824] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:08.825]  length: 0 (resolved future 1)
  [14:17:08.825] Relaying remaining futures
  [14:17:08.826] signalConditionsASAP(NULL, pos=0) ...
  [14:17:08.826] - nx: 1
  [14:17:08.826] - relay: TRUE
  [14:17:08.827] - stdout: TRUE
  [14:17:08.827] - signal: TRUE
  [14:17:08.828] - resignal: FALSE
  [14:17:08.828] - force: FALSE
  [14:17:08.829] - relayed: [n=1] TRUE
  [14:17:08.829] - queued futures: [n=1] TRUE
   - flush all
  [14:17:08.830] - relayed: [n=1] TRUE
  [14:17:08.830] - queued futures: [n=1] TRUE
  [14:17:08.831] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:08.831] resolve() on list ... DONE
  [14:17:08.832] - collecting values of futures
  [14:17:08.832] signalConditions() ...
  [14:17:08.833]  - include = 'immediateCondition'
  [14:17:08.833]  - exclude = 
  [14:17:08.834]  - resignal = FALSE
  [14:17:08.834]  - Number of conditions: 604
  [14:17:08.835] signalConditions() ... done
  [14:17:08.836] - accumulating results
  [14:17:08.837] - processing errors (handler = 'stop')
  [14:17:08.838] - extracting results
  [14:17:08.838] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [14:17:08.840] plan(): Setting new future strategy stack:
  [14:17:08.841] List of future strategies:
  [14:17:08.841] 1. sequential:
  [14:17:08.841]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:08.841]    - tweaked: FALSE
  [14:17:08.841]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:08.841] 2. cluster:
  [14:17:08.841]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:08.841]    - tweaked: FALSE
  [14:17:08.841]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:08.845] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [14:17:08.846] doFuture() ...
  [14:17:08.848] - dummy globals (as locals): [1] 'a'
  [14:17:08.849] - R expression:
  [14:17:08.850] {
  [14:17:08.850]     doFuture::registerDoFuture()
  [14:17:08.850]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:08.850]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:08.850]         a <- NULL
  [14:17:08.850]         ...future.env <- environment()
  [14:17:08.850]         local({
  [14:17:08.850]             for (name in names(...future.x_jj)) {
  [14:17:08.850]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:08.850]                   inherits = FALSE)
  [14:17:08.850]             }
  [14:17:08.850]         })
  [14:17:08.850]         tryCatch({
  [14:17:08.850]             plan_list <- future::plan("next")
  [14:17:08.850]             stopifnot(inherits(plan_list, strategy2))
  [14:17:08.850]             plan_a <- future::plan("list")
  [14:17:08.850]             str(plan_a)
  [14:17:08.850]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:08.850]             message("foreach() - level 2 ...")
  [14:17:08.850]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:08.850]                 {
  [14:17:08.850]                   plan_list <- future::plan("next")
  [14:17:08.850]                   message(capture.output(print(plan_list)))
  [14:17:08.850]                   stopifnot(inherits(plan_list, "future"))
  [14:17:08.850]                   default <- getOption("future.plan", "sequential")
  [14:17:08.850]                   if (is.function(default)) 
  [14:17:08.850]                     default <- class(default)
  [14:17:08.850]                   stopifnot(inherits(plan_list, default))
  [14:17:08.850]                   plan_b <- future::plan("list")
  [14:17:08.850]                   str(plan_b)
  [14:17:08.850]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:08.850]                     inherits(plan_b[[1]], default))
  [14:17:08.850]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:08.850]                 }
  [14:17:08.850]             message("foreach() - level 2 ... DONE")
  [14:17:08.850]             y
  [14:17:08.850]         }, error = identity)
  [14:17:08.850]     })
  [14:17:08.850] }
  [14:17:08.859] - identifying globals and packages ...
  [14:17:08.864] getGlobalsAndPackages() ...
  [14:17:08.865] Searching for globals...
  [14:17:08.918] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:17:08.919] Searching for globals ... DONE
  [14:17:08.920] Resolving globals: FALSE
  [14:17:08.923] The total size of the 3 globals is 176 bytes (176 bytes)
  [14:17:08.924] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:08.925] - packages: [2] 'utils', 'foreach'
  [14:17:08.925] getGlobalsAndPackages() ... DONE
  [14:17:08.926] List of 3
  [14:17:08.926]  $ ...future.x_ii: NULL
  [14:17:08.926]  $ strategy2     : chr "cluster"
  [14:17:08.926]  $ bs            : int [1:3] 3 2 1
  [14:17:08.926]  - attr(*, "where")=List of 3
  [14:17:08.926]   ..$ ...future.x_ii:<environment: 0x33a6df8> 
  [14:17:08.926]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:08.926]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:08.926]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:08.926]  - attr(*, "resolved")= logi FALSE
  [14:17:08.926]  - attr(*, "total_size")= num 176
  [14:17:08.946]   - R expression:
  [14:17:08.946] {
  [14:17:08.946]     doFuture::registerDoFuture()
  [14:17:08.946]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:08.946]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:08.946]         a <- NULL
  [14:17:08.946]         ...future.env <- environment()
  [14:17:08.946]         local({
  [14:17:08.946]             for (name in names(...future.x_jj)) {
  [14:17:08.946]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:08.946]                   inherits = FALSE)
  [14:17:08.946]             }
  [14:17:08.946]         })
  [14:17:08.946]         tryCatch({
  [14:17:08.946]             plan_list <- future::plan("next")
  [14:17:08.946]             stopifnot(inherits(plan_list, strategy2))
  [14:17:08.946]             plan_a <- future::plan("list")
  [14:17:08.946]             str(plan_a)
  [14:17:08.946]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:08.946]             message("foreach() - level 2 ...")
  [14:17:08.946]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:08.946]                 {
  [14:17:08.946]                   plan_list <- future::plan("next")
  [14:17:08.946]                   message(capture.output(print(plan_list)))
  [14:17:08.946]                   stopifnot(inherits(plan_list, "future"))
  [14:17:08.946]                   default <- getOption("future.plan", "sequential")
  [14:17:08.946]                   if (is.function(default)) 
  [14:17:08.946]                     default <- class(default)
  [14:17:08.946]                   stopifnot(inherits(plan_list, default))
  [14:17:08.946]                   plan_b <- future::plan("list")
  [14:17:08.946]                   str(plan_b)
  [14:17:08.946]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:08.946]                     inherits(plan_b[[1]], default))
  [14:17:08.946]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:08.946]                 }
  [14:17:08.946]             message("foreach() - level 2 ... DONE")
  [14:17:08.946]             y
  [14:17:08.946]         }, error = identity)
  [14:17:08.946]     })
  [14:17:08.946] }
  [14:17:08.949]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:08.949] List of 3
  [14:17:08.949]  $ ...future.x_ii: NULL
  [14:17:08.949]  $ strategy2     : chr "cluster"
  [14:17:08.949]  $ bs            : int [1:3] 3 2 1
  [14:17:08.949]  - attr(*, "where")=List of 3
  [14:17:08.949]   ..$ ...future.x_ii:<environment: 0x33a6df8> 
  [14:17:08.949]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:08.949]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:08.949]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:08.949]  - attr(*, "resolved")= logi FALSE
  [14:17:08.949]  - attr(*, "total_size")= num 176
  [14:17:08.964]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:17:08.964] - identifying globals and packages ... DONE
  [14:17:08.965] Number of chunks: 1
  [14:17:08.965] Number of futures (= number of chunks): 1
  [14:17:08.967] Launching 1 futures (chunks) ...
  [14:17:08.967] Chunk #1 of 1 ...
  [14:17:08.967]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:08.968] getGlobalsAndPackages() ...
  [14:17:08.968] Searching for globals...
  [14:17:08.970] 
  [14:17:08.970] Searching for globals ... DONE
  [14:17:08.971] - globals: [0] <none>
  [14:17:08.971] getGlobalsAndPackages() ... DONE
  [14:17:08.971] 
  [14:17:08.972] 
  [14:17:08.972]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:08.973] getGlobalsAndPackages() ...
  [14:17:08.973] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:08.974] Resolving globals: FALSE
  [14:17:08.975] The total size of the 3 globals is 288 bytes (288 bytes)
  [14:17:08.976] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:08.976] 
  [14:17:08.977] getGlobalsAndPackages() ... DONE
  [14:17:08.980] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:08.981] Packages needed by future strategies (n = 1): 'future'
  [14:17:08.990] {
  [14:17:08.990]     {
  [14:17:08.990]         ...future.startTime <- base::Sys.time()
  [14:17:08.990]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:08.990]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:08.990]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:08.990]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:08.990]             future.resolve.recursive = NULL, width = 80L)
  [14:17:08.990]         {
  [14:17:08.990]             {
  [14:17:08.990]                 {
  [14:17:08.990]                   base::local({
  [14:17:08.990]                     has_future <- base::requireNamespace("future", 
  [14:17:08.990]                       quietly = TRUE)
  [14:17:08.990]                     version <- if (has_future) 
  [14:17:08.990]                       utils::packageVersion("future")
  [14:17:08.990]                     else NULL
  [14:17:08.990]                     if (!has_future || version < "1.8.0") {
  [14:17:08.990]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:08.990]                         "", base::R.version$version.string), 
  [14:17:08.990]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:08.990]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:08.990]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:08.990]                           "release", "version")], collapse = " "), 
  [14:17:08.990]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:08.990]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:08.990]                         info)
  [14:17:08.990]                       info <- base::paste(info, collapse = "; ")
  [14:17:08.990]                       if (!has_future) {
  [14:17:08.990]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:08.990]                           info)
  [14:17:08.990]                       }
  [14:17:08.990]                       else {
  [14:17:08.990]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:08.990]                           info, version)
  [14:17:08.990]                       }
  [14:17:08.990]                       base::stop(msg)
  [14:17:08.990]                     }
  [14:17:08.990]                   })
  [14:17:08.990]                 }
  [14:17:08.990]                 base::local({
  [14:17:08.990]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:08.990]                   "future")) {
  [14:17:08.990]                     base::loadNamespace(pkg)
  [14:17:08.990]                     base::library(pkg, character.only = TRUE)
  [14:17:08.990]                   }
  [14:17:08.990]                 })
  [14:17:08.990]             }
  [14:17:08.990]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:08.990]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:08.990]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:08.990]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:17:08.990]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:08.990]                 ...) 
  [14:17:08.990]             {
  [14:17:08.990]                 if (substitute) 
  [14:17:08.990]                   expr <- substitute(expr)
  [14:17:08.990]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:08.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:08.990]                   globals = globals, persistent = persistent, 
  [14:17:08.990]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:08.990]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:08.990]                   label = label, ...)
  [14:17:08.990]                 if (!future$lazy) 
  [14:17:08.990]                   future <- run(future)
  [14:17:08.990]                 invisible(future)
  [14:17:08.990]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:08.990]         }
  [14:17:08.990]     }
  [14:17:08.990]     if (base::is.na(TRUE)) {
  [14:17:08.990]     }
  [14:17:08.990]     else {
  [14:17:08.990]         if (TRUE) {
  [14:17:08.990]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:08.990]                 open = "w")
  [14:17:08.990]         }
  [14:17:08.990]         else {
  [14:17:08.990]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:08.990]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:08.990]         }
  [14:17:08.990]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:08.990]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:08.990]             base::sink(type = "output", split = FALSE)
  [14:17:08.990]             base::close(...future.stdout)
  [14:17:08.990]         }, add = TRUE)
  [14:17:08.990]     }
  [14:17:08.990]     ...future.frame <- base::sys.nframe()
  [14:17:08.990]     ...future.conditions <- base::list()
  [14:17:08.990]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:08.990]     ...future.result <- base::tryCatch({
  [14:17:08.990]         base::withCallingHandlers({
  [14:17:08.990]             ...future.value <- base::withVisible(base::local({
  [14:17:08.990]                 doFuture::registerDoFuture()
  [14:17:08.990]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:08.990]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:08.990]                   a <- NULL
  [14:17:08.990]                   ...future.env <- environment()
  [14:17:08.990]                   local({
  [14:17:08.990]                     for (name in names(...future.x_jj)) {
  [14:17:08.990]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:08.990]                         inherits = FALSE)
  [14:17:08.990]                     }
  [14:17:08.990]                   })
  [14:17:08.990]                   tryCatch({
  [14:17:08.990]                     plan_list <- future::plan("next")
  [14:17:08.990]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:08.990]                     plan_a <- future::plan("list")
  [14:17:08.990]                     str(plan_a)
  [14:17:08.990]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:08.990]                     message("foreach() - level 2 ...")
  [14:17:08.990]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:08.990]                       {
  [14:17:08.990]                         plan_list <- future::plan("next")
  [14:17:08.990]                         message(capture.output(print(plan_list)))
  [14:17:08.990]                         stopifnot(inherits(plan_list, "future"))
  [14:17:08.990]                         default <- getOption("future.plan", "sequential")
  [14:17:08.990]                         if (is.function(default)) 
  [14:17:08.990]                           default <- class(default)
  [14:17:08.990]                         stopifnot(inherits(plan_list, default))
  [14:17:08.990]                         plan_b <- future::plan("list")
  [14:17:08.990]                         str(plan_b)
  [14:17:08.990]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:08.990]                           inherits(plan_b[[1]], default))
  [14:17:08.990]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:08.990]                       }
  [14:17:08.990]                     message("foreach() - level 2 ... DONE")
  [14:17:08.990]                     y
  [14:17:08.990]                   }, error = identity)
  [14:17:08.990]                 })
  [14:17:08.990]             }))
  [14:17:08.990]             future::FutureResult(value = ...future.value$value, 
  [14:17:08.990]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:08.990]                   ...future.rng), started = ...future.startTime, 
  [14:17:08.990]                 version = "1.8")
  [14:17:08.990]         }, condition = base::local({
  [14:17:08.990]             c <- base::c
  [14:17:08.990]             inherits <- base::inherits
  [14:17:08.990]             invokeRestart <- base::invokeRestart
  [14:17:08.990]             length <- base::length
  [14:17:08.990]             list <- base::list
  [14:17:08.990]             seq.int <- base::seq.int
  [14:17:08.990]             signalCondition <- base::signalCondition
  [14:17:08.990]             sys.calls <- base::sys.calls
  [14:17:08.990]             Sys.time <- base::Sys.time
  [14:17:08.990]             `[[` <- base::`[[`
  [14:17:08.990]             `+` <- base::`+`
  [14:17:08.990]             `<<-` <- base::`<<-`
  [14:17:08.990]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:08.990]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:08.990]                   3L)]
  [14:17:08.990]             }
  [14:17:08.990]             function(cond) {
  [14:17:08.990]                 if (inherits(cond, "error")) {
  [14:17:08.990]                   sessionInformation <- function() {
  [14:17:08.990]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:08.990]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:08.990]                       search = base::search(), system = base::Sys.info())
  [14:17:08.990]                   }
  [14:17:08.990]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:08.990]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:08.990]                     cond$call), session = sessionInformation(), 
  [14:17:08.990]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:08.990]                   signalCondition(cond)
  [14:17:08.990]                 }
  [14:17:08.990]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:08.990]                 ))) {
  [14:17:08.990]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:08.990]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:08.990]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:08.990]                   if (!signal) {
  [14:17:08.990]                     muffleCondition <- function (cond) 
  [14:17:08.990]                     {
  [14:17:08.990]                       inherits <- base::inherits
  [14:17:08.990]                       invokeRestart <- base::invokeRestart
  [14:17:08.990]                       muffled <- FALSE
  [14:17:08.990]                       if (inherits(cond, "message")) {
  [14:17:08.990]                         invokeRestart("muffleMessage")
  [14:17:08.990]                         muffled <- TRUE
  [14:17:08.990]                       }
  [14:17:08.990]                       else if (inherits(cond, "warning")) {
  [14:17:08.990]                         invokeRestart("muffleWarning")
  [14:17:08.990]                         muffled <- TRUE
  [14:17:08.990]                       }
  [14:17:08.990]                       else if (inherits(cond, "condition")) {
  [14:17:08.990]                         computeRestarts <- base::computeRestarts
  [14:17:08.990]                         grepl <- base::grepl
  [14:17:08.990]                         is.null <- base::is.null
  [14:17:08.990]                         restarts <- computeRestarts(cond)
  [14:17:08.990]                         for (restart in restarts) {
  [14:17:08.990]                           name <- restart$name
  [14:17:08.990]                           if (is.null(name)) 
  [14:17:08.990]                             next
  [14:17:08.990]                           if (!grepl("^muffle", name)) 
  [14:17:08.990]                             next
  [14:17:08.990]                           invokeRestart(restart)
  [14:17:08.990]                           muffled <- TRUE
  [14:17:08.990]                           break
  [14:17:08.990]                         }
  [14:17:08.990]                       }
  [14:17:08.990]                       invisible(muffled)
  [14:17:08.990]                     }
  [14:17:08.990]                     muffleCondition(cond)
  [14:17:08.990]                   }
  [14:17:08.990]                 }
  [14:17:08.990]             }
  [14:17:08.990]         }))
  [14:17:08.990]     }, error = function(ex) {
  [14:17:08.990]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:08.990]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:08.990]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:08.990]     }, finally = {
  [14:17:08.990]         {
  [14:17:08.990]             NULL
  [14:17:08.990]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:08.990]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:08.990]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:17:08.990]                 label = NULL, ...) 
  [14:17:08.990]             {
  [14:17:08.990]                 if (substitute) 
  [14:17:08.990]                   expr <- substitute(expr)
  [14:17:08.990]                 local <- as.logical(local)
  [14:17:08.990]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:08.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:08.990]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:08.990]                   label = label, ...)
  [14:17:08.990]                 if (!future$lazy) 
  [14:17:08.990]                   future <- run(future)
  [14:17:08.990]                 invisible(future)
  [14:17:08.990]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:08.990]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:17:08.990]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [14:17:08.990]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:17:08.990]                 label = NULL, ...) 
  [14:17:08.990]             {
  [14:17:08.990]                 if (substitute) 
  [14:17:08.990]                   expr <- substitute(expr)
  [14:17:08.990]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:08.990]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:08.990]                   globals = globals, persistent = persistent, 
  [14:17:08.990]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:08.990]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:08.990]                   label = label, ...)
  [14:17:08.990]                 if (!future$lazy) 
  [14:17:08.990]                   future <- run(future)
  [14:17:08.990]                 invisible(future)
  [14:17:08.990]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:08.990]         }
  [14:17:08.990]         base::options(...future.oldOptions)
  [14:17:08.990]     })
  [14:17:08.990]     Sys.time
  [14:17:08.990]     if (base::is.na(TRUE)) {
  [14:17:08.990]     }
  [14:17:08.990]     else {
  [14:17:08.990]         base::sink(type = "output", split = FALSE)
  [14:17:08.990]         if (TRUE) {
  [14:17:08.990]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:08.990]         }
  [14:17:08.990]         else {
  [14:17:08.990]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:08.990]         }
  [14:17:08.990]         base::close(...future.stdout)
  [14:17:08.990]         ...future.stdout <- NULL
  [14:17:08.990]     }
  [14:17:08.990]     ...future.result$conditions <- ...future.conditions
  [14:17:08.990]     ...future.result
  [14:17:08.990] }
  [14:17:09.003] plan(): Setting new future strategy stack:
  [14:17:09.003] List of future strategies:
  [14:17:09.003] 1. cluster:
  [14:17:09.003]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:09.003]    - tweaked: FALSE
  [14:17:09.003]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:09.007] plan(): nbrOfWorkers() = 2
  [14:17:29.385] plan(): Setting new future strategy stack:
  [14:17:29.386] List of future strategies:
  [14:17:29.386] 1. sequential:
  [14:17:29.386]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:29.386]    - tweaked: FALSE
  [14:17:29.386]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:29.386] 2. cluster:
  [14:17:29.386]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:29.386]    - tweaked: FALSE
  [14:17:29.386]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:29.388] plan(): nbrOfWorkers() = 1
  [14:17:29.390] SequentialFuture started (and completed)
  [14:17:29.390] signalConditions() ...
  [14:17:29.391]  - include = 'immediateCondition'
  [14:17:29.391]  - exclude = 
  [14:17:29.392]  - resignal = FALSE
  [14:17:29.392]  - Number of conditions: 604
  [14:17:29.395] signalConditions() ... done
  [14:17:29.396] Chunk #1 of 1 ... DONE
  [14:17:29.396] Launching 1 futures (chunks) ... DONE
  [14:17:29.396] - resolving futures
  [14:17:29.397]   - gathering results & relaying conditions (except errors)
  [14:17:29.397] resolve() on list ...
  [14:17:29.398]  recursive: 0
  [14:17:29.398]  length: 1
  [14:17:29.398] 
  [14:17:29.399] Future #1
  [14:17:29.399] signalConditions() ...
  [14:17:29.400]  - include = 'immediateCondition'
  [14:17:29.400]  - exclude = 
  [14:17:29.401]  - resignal = FALSE
  [14:17:29.401]  - Number of conditions: 604
  [14:17:29.404] signalConditions() ... done
  [14:17:29.405] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:29.405] - nx: 1
  [14:17:29.406] - relay: TRUE
  [14:17:29.406] - stdout: TRUE
  [14:17:29.406] - signal: TRUE
  [14:17:29.407] - resignal: FALSE
  [14:17:29.485] - force: FALSE
  [14:17:29.486] - relayed: [n=1] FALSE
  [14:17:29.486] - queued futures: [n=1] FALSE
  [14:17:29.487]  - until=1
  [14:17:29.487]  - relaying element #1
  [14:17:29.488] signalConditions() ...
  [14:17:29.488]  - include = 'immediateCondition'
  [14:17:29.489]  - exclude = 
  [14:17:29.489]  - resignal = FALSE
  [14:17:29.490]  - Number of conditions: 604
  [14:17:29.492] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:29.493] signalConditions() ...
  [14:17:29.494]  - include = 'immediateCondition'
  [14:17:29.494]  - exclude = 
  [14:17:29.495]  - resignal = FALSE
  [14:17:29.495]  - Number of conditions: 604
  [14:17:29.498] signalConditions() ... done
  [14:17:29.498] signalConditions() ...
  [14:17:29.499]  - include = 'condition'
  [14:17:29.499]  - exclude = 'immediateCondition'
  [14:17:29.500]  - resignal = FALSE
  [14:17:29.500]  - Number of conditions: 604
  [14:17:29.500]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:29.501]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:09.024] doFuture() ...
  [14:17:29.502]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:09.027] - dummy globals (as locals): [1] 'b'
  [14:17:29.502]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:09.029] - R expression:
  [14:17:29.503]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:09.030] {
  [14:17:09.030]     doFuture::registerDoFuture()
  [14:17:09.030]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:09.030]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:09.030]         b <- NULL
  [14:17:09.030]         ...future.env <- environment()
  [14:17:09.030]         local({
  [14:17:09.030]             for (name in names(...future.x_jj)) {
  [14:17:09.030]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:09.030]                   inherits = FALSE)
  [14:17:09.030]             }
  [14:17:09.030]         })
  [14:17:09.030]         tryCatch({
  [14:17:09.030]             plan_list <- future::plan("next")
  [14:17:09.030]             message(capture.output(print(plan_list)))
  [14:17:09.030]             stopifnot(inherits(plan_list, "future"))
  [14:17:09.030]             default <- getOption("future.plan", "sequential")
  [14:17:09.030]             if (is.function(default)) 
  [14:17:09.030]                 default <- class(default)
  [14:17:09.030]             stopifnot(inherits(plan_list, default))
  [14:17:09.030]             plan_b <- future::plan("list")
  [14:17:09.030]             str(plan_b)
  [14:17:09.030]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:09.030]                 default))
  [14:17:09.030]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:09.030]         }, error = identity)
  [14:17:09.030]     })
  [14:17:09.030] }
  [14:17:29.504]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:09.032] - identifying globals and packages ...
  [14:17:29.504]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:09.033] getGlobalsAndPackages() ...
  [14:17:29.505]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:09.034] Searching for globals...
  [14:17:29.505]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:09.071] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:29.506]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:09.072] Searching for globals ... DONE
  [14:17:29.507]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:09.073] Resolving globals: FALSE
  [14:17:29.507]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:09.082] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [14:17:29.508]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:09.083] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.508]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:09.084] - packages: [1] 'utils'
  [14:17:29.509]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:09.085] getGlobalsAndPackages() ... DONE
  [14:17:29.510]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:09.086] List of 3
  [14:17:09.086]  $ ...future.x_ii: NULL
  [14:17:09.086]  $ a             : int 1
  [14:17:09.086]  $ plan_a        :List of 1
  [14:17:09.086]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:09.086]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:09.086]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:17:09.086]     label = NULL, ...)  
  [14:17:09.086]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:17:09.086]   .. ..- attr(*, "init")= logi TRUE
  [14:17:09.086]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:09.086]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:09.086]  - attr(*, "where")=List of 3
  [14:17:09.086]   ..$ ...future.x_ii:<environment: 0x13fa2e8> 
  [14:17:09.086]   ..$ a             :<environment: 0x34566f0> 
  [14:17:09.086]   ..$ plan_a        :<environment: 0x34566f0> 
  [14:17:09.086]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:09.086]  - attr(*, "resolved")= logi FALSE
  [14:17:09.086]  - attr(*, "total_size")= num 66056
  [14:17:29.510]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:09.111]   - R expression:
  [14:17:29.511]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:09.111] {
  [14:17:09.111]     doFuture::registerDoFuture()
  [14:17:09.111]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:09.111]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:09.111]         b <- NULL
  [14:17:09.111]         ...future.env <- environment()
  [14:17:09.111]         local({
  [14:17:09.111]             for (name in names(...future.x_jj)) {
  [14:17:09.111]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:09.111]                   inherits = FALSE)
  [14:17:09.111]             }
  [14:17:09.111]         })
  [14:17:09.111]         tryCatch({
  [14:17:09.111]             plan_list <- future::plan("next")
  [14:17:09.111]             message(capture.output(print(plan_list)))
  [14:17:09.111]             stopifnot(inherits(plan_list, "future"))
  [14:17:09.111]             default <- getOption("future.plan", "sequential")
  [14:17:09.111]             if (is.function(default)) 
  [14:17:09.111]                 default <- class(default)
  [14:17:09.111]             stopifnot(inherits(plan_list, default))
  [14:17:09.111]             plan_b <- future::plan("list")
  [14:17:09.111]             str(plan_b)
  [14:17:09.111]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:09.111]                 default))
  [14:17:09.111]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:09.111]         }, error = identity)
  [14:17:09.111]     })
  [14:17:09.111] }
  [14:17:29.511]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:09.113]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.512]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:09.114] List of 3
  [14:17:09.114]  $ ...future.x_ii: NULL
  [14:17:09.114]  $ a             : int 1
  [14:17:09.114]  $ plan_a        :List of 1
  [14:17:09.114]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:09.114]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:09.114]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:17:09.114]     label = NULL, ...)  
  [14:17:09.114]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:17:09.114]   .. ..- attr(*, "init")= logi TRUE
  [14:17:09.114]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:09.114]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:09.114]  - attr(*, "where")=List of 3
  [14:17:09.114]   ..$ ...future.x_ii:<environment: 0x13fa2e8> 
  [14:17:09.114]   ..$ a             :<environment: 0x34566f0> 
  [14:17:09.114]   ..$ plan_a        :<environment: 0x34566f0> 
  [14:17:09.114]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:09.114]  - attr(*, "resolved")= logi FALSE
  [14:17:09.114]  - attr(*, "total_size")= num 66056
  [14:17:29.512]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:17:09.136]   - packages: [2] 'doFuture', 'utils'
  [14:17:29.513]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:17:09.137] - identifying globals and packages ... DONE
  [14:17:29.514]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:17:09.140] Number of chunks: 2
  [14:17:29.514]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:17:09.141] Number of futures (= number of chunks): 2
  [14:17:29.515]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:17:09.142] Launching 2 futures (chunks) ...
  [14:17:29.515]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:17:09.143] Chunk #1 of 2 ...
  [14:17:29.516]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:17:09.144]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:29.517]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:17:09.145] getGlobalsAndPackages() ...
  [14:17:29.517]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:17:09.145] Searching for globals...
  [14:17:29.518]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:17:09.147] 
  [14:17:29.518]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:17:09.148] Searching for globals ... DONE
  [14:17:29.519]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:17:09.148] - globals: [0] <none>
  [14:17:29.520]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:17:09.149] getGlobalsAndPackages() ... DONE
  [14:17:29.520]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:17:09.150] 
  [14:17:29.521]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:17:09.151] 
  [14:17:29.521]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:17:09.157]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:29.522]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:17:09.158] getGlobalsAndPackages() ...
  [14:17:29.522]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:17:09.159] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.523]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:17:09.160] Resolving globals: FALSE
  [14:17:29.524]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:17:09.162] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [14:17:29.524]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:17:09.163] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.525]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:17:09.164] 
  [14:17:29.525]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:17:09.165] getGlobalsAndPackages() ... DONE
  [14:17:29.526]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [14:17:29.527]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 30497
  [14:17:29.527]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [14:17:29.528]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:17:29.528]  - Condition #48: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid')"'
  [14:17:29.529]  - Condition #49: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:17:29.530]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e03110e250d.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=30497 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:17:29.530]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:17:29.531]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [14:17:29.531]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [14:17:29.532]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:17:29.533]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [14:17:29.533]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [14:17:29.534]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [14:17:29.534]  - Condition #58: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/data/gannet/ripley/R/R-devel/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid')"'
  [14:17:29.535]  - Condition #59: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [14:17:29.536]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/data/gannet/ripley/R/R-devel/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:687619:gannet.stats.ox.ac.uk:ripley' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpbwHFwL/working_dir/Rtmp7SSAWH/future.parent=687619.a7e035a8d2a7c.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=30497 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [14:17:29.536]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [14:17:29.537]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [14:17:29.538]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [14:17:29.538]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [14:17:29.539]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [14:17:29.540]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:28.099] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:29.540]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:28.100] Packages needed by future strategies (n = 0): <none>
  [14:17:29.541]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:28.108] {
  [14:17:28.108]     {
  [14:17:28.108]         ...future.startTime <- base::Sys.time()
  [14:17:28.108]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:28.108]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:28.108]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:28.108]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:28.108]             future.resolve.recursive = NULL, width = 80L)
  [14:17:28.108]         {
  [14:17:28.108]             {
  [14:17:28.108]                 {
  [14:17:28.108]                   base::local({
  [14:17:28.108]                     has_future <- base::requireNamespace("future", 
  [14:17:28.108]                       quietly = TRUE)
  [14:17:28.108]                     version <- if (has_future) 
  [14:17:28.108]                       utils::packageVersion("future")
  [14:17:28.108]                     else NULL
  [14:17:28.108]                     if (!has_future || version < "1.8.0") {
  [14:17:28.108]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:28.108]                         "", base::R.version$version.string), 
  [14:17:28.108]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:28.108]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:28.108]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:28.108]                           "release", "version")], collapse = " "), 
  [14:17:28.108]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:28.108]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:28.108]                         info)
  [14:17:28.108]                       info <- base::paste(info, collapse = "; ")
  [14:17:28.108]                       if (!has_future) {
  [14:17:28.108]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:28.108]                           info)
  [14:17:28.108]                       }
  [14:17:28.108]                       else {
  [14:17:28.108]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:28.108]                           info, version)
  [14:17:28.108]                       }
  [14:17:28.108]                       base::stop(msg)
  [14:17:28.108]                     }
  [14:17:28.108]                   })
  [14:17:28.108]                 }
  [14:17:28.108]                 base::local({
  [14:17:28.108]                   for (pkg in c("doFuture", "utils")) {
  [14:17:28.108]                     base::loadNamespace(pkg)
  [14:17:28.108]                     base::library(pkg, character.only = TRUE)
  [14:17:28.108]                   }
  [14:17:28.108]                 })
  [14:17:28.108]             }
  [14:17:28.108]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:28.108]         }
  [14:17:28.108]     }
  [14:17:28.108]     if (base::is.na(TRUE)) {
  [14:17:28.108]     }
  [14:17:28.108]     else {
  [14:17:28.108]         if (TRUE) {
  [14:17:28.108]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:28.108]                 open = "w")
  [14:17:28.108]         }
  [14:17:28.108]         else {
  [14:17:28.108]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:28.108]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:28.108]         }
  [14:17:28.108]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:28.108]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:28.108]             base::sink(type = "output", split = FALSE)
  [14:17:28.108]             base::close(...future.stdout)
  [14:17:28.108]         }, add = TRUE)
  [14:17:28.108]     }
  [14:17:28.108]     ...future.frame <- base::sys.nframe()
  [14:17:28.108]     ...future.conditions <- base::list()
  [14:17:28.108]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:28.108]     ...future.result <- base::tryCatch({
  [14:17:28.108]         base::withCallingHandlers({
  [14:17:28.108]             ...future.value <- base::withVisible(base::local({
  [14:17:28.108]                 ...future.sendCondition <- local({
  [14:17:28.108]                   sendCondition <- NULL
  [14:17:28.108]                   function(frame = 1L) {
  [14:17:28.108]                     if (is.function(sendCondition)) 
  [14:17:28.108]                       return(sendCondition)
  [14:17:28.108]                     ns <- getNamespace("parallel")
  [14:17:28.108]                     if (exists("sendData", mode = "function", 
  [14:17:28.108]                       envir = ns)) {
  [14:17:28.108]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:28.108]                         envir = ns)
  [14:17:28.108]                       envir <- sys.frame(frame)
  [14:17:28.108]                       master <- NULL
  [14:17:28.108]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:28.108]                         !identical(envir, emptyenv())) {
  [14:17:28.108]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:28.108]                           inherits = FALSE)) {
  [14:17:28.108]                           master <- get("master", mode = "list", 
  [14:17:28.108]                             envir = envir, inherits = FALSE)
  [14:17:28.108]                           if (inherits(master, "SOCKnode")) {
  [14:17:28.108]                             sendCondition <<- function(cond) {
  [14:17:28.108]                               data <- list(type = "VALUE", value = cond, 
  [14:17:28.108]                                 success = TRUE)
  [14:17:28.108]                               parallel_sendData(master, data)
  [14:17:28.108]                             }
  [14:17:28.108]                             return(sendCondition)
  [14:17:28.108]                           }
  [14:17:28.108]                         }
  [14:17:28.108]                         frame <- frame + 1L
  [14:17:28.108]                         envir <- sys.frame(frame)
  [14:17:28.108]                       }
  [14:17:28.108]                     }
  [14:17:28.108]                     sendCondition <<- function(cond) NULL
  [14:17:28.108]                   }
  [14:17:28.108]                 })
  [14:17:28.108]                 withCallingHandlers({
  [14:17:28.108]                   {
  [14:17:28.108]                     doFuture::registerDoFuture()
  [14:17:28.108]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:28.108]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:28.108]                       b <- NULL
  [14:17:28.108]                       ...future.env <- environment()
  [14:17:28.108]                       local({
  [14:17:28.108]                         for (name in names(...future.x_jj)) {
  [14:17:28.108]                           assign(name, ...future.x_jj[[name]], 
  [14:17:28.108]                             envir = ...future.env, inherits = FALSE)
  [14:17:28.108]                         }
  [14:17:28.108]                       })
  [14:17:28.108]                       tryCatch({
  [14:17:28.108]                         plan_list <- future::plan("next")
  [14:17:28.108]                         message(capture.output(print(plan_list)))
  [14:17:28.108]                         stopifnot(inherits(plan_list, "future"))
  [14:17:28.108]                         default <- getOption("future.plan", "sequential")
  [14:17:28.108]                         if (is.function(default)) 
  [14:17:28.108]                           default <- class(default)
  [14:17:28.108]                         stopifnot(inherits(plan_list, default))
  [14:17:28.108]                         plan_b <- future::plan("list")
  [14:17:28.108]                         str(plan_b)
  [14:17:28.108]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:28.108]                           inherits(plan_b[[1]], default))
  [14:17:28.108]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:28.108]                       }, error = identity)
  [14:17:28.108]                     })
  [14:17:28.108]                   }
  [14:17:28.108]                 }, immediateCondition = function(cond) {
  [14:17:28.108]                   sendCondition <- ...future.sendCondition()
  [14:17:28.108]                   sendCondition(cond)
  [14:17:28.108]                   muffleCondition <- function (cond) 
  [14:17:28.108]                   {
  [14:17:28.108]                     inherits <- base::inherits
  [14:17:28.108]                     invokeRestart <- base::invokeRestart
  [14:17:28.108]                     muffled <- FALSE
  [14:17:28.108]                     if (inherits(cond, "message")) {
  [14:17:28.108]                       invokeRestart("muffleMessage")
  [14:17:28.108]                       muffled <- TRUE
  [14:17:28.108]                     }
  [14:17:28.108]                     else if (inherits(cond, "warning")) {
  [14:17:28.108]                       invokeRestart("muffleWarning")
  [14:17:28.108]                       muffled <- TRUE
  [14:17:28.108]                     }
  [14:17:28.108]                     else if (inherits(cond, "condition")) {
  [14:17:28.108]                       computeRestarts <- base::computeRestarts
  [14:17:28.108]                       grepl <- base::grepl
  [14:17:28.108]                       is.null <- base::is.null
  [14:17:28.108]                       restarts <- computeRestarts(cond)
  [14:17:28.108]                       for (restart in restarts) {
  [14:17:28.108]                         name <- restart$name
  [14:17:28.108]                         if (is.null(name)) 
  [14:17:28.108]                           next
  [14:17:28.108]                         if (!grepl("^muffle", name)) 
  [14:17:28.108]                           next
  [14:17:28.108]                         invokeRestart(restart)
  [14:17:28.108]                         muffled <- TRUE
  [14:17:28.108]                         break
  [14:17:28.108]                       }
  [14:17:28.108]                     }
  [14:17:28.108]                     invisible(muffled)
  [14:17:28.108]                   }
  [14:17:28.108]                   muffleCondition(cond)
  [14:17:28.108]                 })
  [14:17:28.108]             }))
  [14:17:28.108]             future::FutureResult(value = ...future.value$value, 
  [14:17:28.108]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.108]                   ...future.rng), started = ...future.startTime, 
  [14:17:28.108]                 version = "1.8")
  [14:17:28.108]         }, condition = base::local({
  [14:17:28.108]             c <- base::c
  [14:17:28.108]             inherits <- base::inherits
  [14:17:28.108]             invokeRestart <- base::invokeRestart
  [14:17:28.108]             length <- base::length
  [14:17:28.108]             list <- base::list
  [14:17:28.108]             seq.int <- base::seq.int
  [14:17:28.108]             signalCondition <- base::signalCondition
  [14:17:28.108]             sys.calls <- base::sys.calls
  [14:17:28.108]             Sys.time <- base::Sys.time
  [14:17:28.108]             `[[` <- base::`[[`
  [14:17:28.108]             `+` <- base::`+`
  [14:17:28.108]             `<<-` <- base::`<<-`
  [14:17:28.108]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:28.108]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:28.108]                   3L)]
  [14:17:28.108]             }
  [14:17:28.108]             function(cond) {
  [14:17:28.108]                 if (inherits(cond, "error")) {
  [14:17:28.108]                   sessionInformation <- function() {
  [14:17:28.108]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:28.108]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:28.108]                       search = base::search(), system = base::Sys.info())
  [14:17:28.108]                   }
  [14:17:28.108]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.108]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:28.108]                     cond$call), session = sessionInformation(), 
  [14:17:28.108]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:28.108]                   signalCondition(cond)
  [14:17:28.108]                 }
  [14:17:28.108]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:28.108]                 ))) {
  [14:17:28.108]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:28.108]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.108]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:28.108]                   if (!signal) {
  [14:17:28.108]                     muffleCondition <- function (cond) 
  [14:17:28.108]                     {
  [14:17:28.108]                       inherits <- base::inherits
  [14:17:28.108]                       invokeRestart <- base::invokeRestart
  [14:17:28.108]                       muffled <- FALSE
  [14:17:28.108]                       if (inherits(cond, "message")) {
  [14:17:28.108]                         invokeRestart("muffleMessage")
  [14:17:28.108]                         muffled <- TRUE
  [14:17:28.108]                       }
  [14:17:28.108]                       else if (inherits(cond, "warning")) {
  [14:17:28.108]                         invokeRestart("muffleWarning")
  [14:17:28.108]                         muffled <- TRUE
  [14:17:28.108]                       }
  [14:17:28.108]                       else if (inherits(cond, "condition")) {
  [14:17:28.108]                         computeRestarts <- base::computeRestarts
  [14:17:28.108]                         grepl <- base::grepl
  [14:17:28.108]                         is.null <- base::is.null
  [14:17:28.108]                         restarts <- computeRestarts(cond)
  [14:17:28.108]                         for (restart in restarts) {
  [14:17:28.108]                           name <- restart$name
  [14:17:28.108]                           if (is.null(name)) 
  [14:17:28.108]                             next
  [14:17:28.108]                           if (!grepl("^muffle", name)) 
  [14:17:28.108]                             next
  [14:17:28.108]                           invokeRestart(restart)
  [14:17:28.108]                           muffled <- TRUE
  [14:17:28.108]                           break
  [14:17:28.108]                         }
  [14:17:28.108]                       }
  [14:17:28.108]                       invisible(muffled)
  [14:17:28.108]                     }
  [14:17:28.108]                     muffleCondition(cond)
  [14:17:28.108]                   }
  [14:17:28.108]                 }
  [14:17:28.108]             }
  [14:17:28.108]         }))
  [14:17:28.108]     }, error = function(ex) {
  [14:17:28.108]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:28.108]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.108]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:28.108]     }, finally = {
  [14:17:28.108]         {
  [14:17:28.108]             NULL
  [14:17:28.108]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:28.108]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:28.108]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:28.108]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:17:28.108]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:28.108]                 ...) 
  [14:17:28.108]             {
  [14:17:28.108]                 if (substitute) 
  [14:17:28.108]                   expr <- substitute(expr)
  [14:17:28.108]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:28.108]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:28.108]                   globals = globals, persistent = persistent, 
  [14:17:28.108]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:28.108]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:28.108]                   label = label, ...)
  [14:17:28.108]                 if (!future$lazy) 
  [14:17:28.108]                   future <- run(future)
  [14:17:28.108]                 invisible(future)
  [14:17:28.108]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:28.108]         }
  [14:17:28.108]         base::options(...future.oldOptions)
  [14:17:28.108]     })
  [14:17:28.108]     Sys.time
  [14:17:28.108]     if (base::is.na(TRUE)) {
  [14:17:28.108]     }
  [14:17:28.108]     else {
  [14:17:28.108]         base::sink(type = "output", split = FALSE)
  [14:17:28.108]         if (TRUE) {
  [14:17:28.108]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:28.108]         }
  [14:17:28.108]         else {
  [14:17:28.108]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:28.108]         }
  [14:17:28.108]         base::close(...future.stdout)
  [14:17:28.108]         ...future.stdout <- NULL
  [14:17:28.108]     }
  [14:17:28.108]     ...future.result$conditions <- ...future.conditions
  [14:17:28.108]     ...future.result
  [14:17:28.108] }
  [14:17:29.542]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:28.119] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [14:17:29.542]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:28.120] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:17:29.543]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:28.122] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:17:29.544]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:28.123] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:17:29.544]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:28.124] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:17:29.545]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:28.126] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [14:17:29.546]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:28.168] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [14:17:29.546]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:28.169] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [14:17:29.547]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:28.171] ClusterFuture started
  [14:17:29.547]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:28.172] Chunk #1 of 2 ... DONE
  [14:17:29.548]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:28.173] Chunk #2 of 2 ...
  [14:17:29.549]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:28.174]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:29.549]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:28.174] getGlobalsAndPackages() ...
  [14:17:29.550]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:28.175] Searching for globals...
  [14:17:29.550]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:28.177] 
  [14:17:29.551]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:28.177] Searching for globals ... DONE
  [14:17:29.551]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:28.178] - globals: [0] <none>
  [14:17:29.552]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:28.179] getGlobalsAndPackages() ... DONE
  [14:17:29.552]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:28.180] 
  [14:17:29.553]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:28.180] 
  [14:17:29.553]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:28.181]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:29.554]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:28.184] getGlobalsAndPackages() ...
  [14:17:29.554]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:28.185] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.555]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:28.186] Resolving globals: FALSE
  [14:17:29.555]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:28.188] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [14:17:29.556]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:28.189] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.557]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:28.189] 
  [14:17:29.557]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:28.190] getGlobalsAndPackages() ... DONE
  [14:17:29.558]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:28.219] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:29.558]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:28.220] Packages needed by future strategies (n = 0): <none>
  [14:17:29.559]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:28.228] {
  [14:17:28.228]     {
  [14:17:28.228]         ...future.startTime <- base::Sys.time()
  [14:17:28.228]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:28.228]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:28.228]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:28.228]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:28.228]             future.resolve.recursive = NULL, width = 80L)
  [14:17:28.228]         {
  [14:17:28.228]             {
  [14:17:28.228]                 {
  [14:17:28.228]                   base::local({
  [14:17:28.228]                     has_future <- base::requireNamespace("future", 
  [14:17:28.228]                       quietly = TRUE)
  [14:17:28.228]                     version <- if (has_future) 
  [14:17:28.228]                       utils::packageVersion("future")
  [14:17:28.228]                     else NULL
  [14:17:28.228]                     if (!has_future || version < "1.8.0") {
  [14:17:28.228]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:28.228]                         "", base::R.version$version.string), 
  [14:17:28.228]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:28.228]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:28.228]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:28.228]                           "release", "version")], collapse = " "), 
  [14:17:28.228]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:28.228]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:28.228]                         info)
  [14:17:28.228]                       info <- base::paste(info, collapse = "; ")
  [14:17:28.228]                       if (!has_future) {
  [14:17:28.228]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:28.228]                           info)
  [14:17:28.228]                       }
  [14:17:28.228]                       else {
  [14:17:28.228]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:28.228]                           info, version)
  [14:17:28.228]                       }
  [14:17:28.228]                       base::stop(msg)
  [14:17:28.228]                     }
  [14:17:28.228]                   })
  [14:17:28.228]                 }
  [14:17:28.228]                 base::local({
  [14:17:28.228]                   for (pkg in c("doFuture", "utils")) {
  [14:17:28.228]                     base::loadNamespace(pkg)
  [14:17:28.228]                     base::library(pkg, character.only = TRUE)
  [14:17:28.228]                   }
  [14:17:28.228]                 })
  [14:17:28.228]             }
  [14:17:28.228]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:28.228]         }
  [14:17:28.228]     }
  [14:17:28.228]     if (base::is.na(TRUE)) {
  [14:17:28.228]     }
  [14:17:28.228]     else {
  [14:17:28.228]         if (TRUE) {
  [14:17:28.228]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:28.228]                 open = "w")
  [14:17:28.228]         }
  [14:17:28.228]         else {
  [14:17:28.228]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:28.228]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:28.228]         }
  [14:17:28.228]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:28.228]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:28.228]             base::sink(type = "output", split = FALSE)
  [14:17:28.228]             base::close(...future.stdout)
  [14:17:28.228]         }, add = TRUE)
  [14:17:28.228]     }
  [14:17:28.228]     ...future.frame <- base::sys.nframe()
  [14:17:28.228]     ...future.conditions <- base::list()
  [14:17:28.228]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:28.228]     ...future.result <- base::tryCatch({
  [14:17:28.228]         base::withCallingHandlers({
  [14:17:28.228]             ...future.value <- base::withVisible(base::local({
  [14:17:28.228]                 ...future.sendCondition <- local({
  [14:17:28.228]                   sendCondition <- NULL
  [14:17:28.228]                   function(frame = 1L) {
  [14:17:28.228]                     if (is.function(sendCondition)) 
  [14:17:28.228]                       return(sendCondition)
  [14:17:28.228]                     ns <- getNamespace("parallel")
  [14:17:28.228]                     if (exists("sendData", mode = "function", 
  [14:17:28.228]                       envir = ns)) {
  [14:17:28.228]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:28.228]                         envir = ns)
  [14:17:28.228]                       envir <- sys.frame(frame)
  [14:17:28.228]                       master <- NULL
  [14:17:28.228]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:28.228]                         !identical(envir, emptyenv())) {
  [14:17:28.228]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:28.228]                           inherits = FALSE)) {
  [14:17:28.228]                           master <- get("master", mode = "list", 
  [14:17:28.228]                             envir = envir, inherits = FALSE)
  [14:17:28.228]                           if (inherits(master, "SOCKnode")) {
  [14:17:28.228]                             sendCondition <<- function(cond) {
  [14:17:28.228]                               data <- list(type = "VALUE", value = cond, 
  [14:17:28.228]                                 success = TRUE)
  [14:17:28.228]                               parallel_sendData(master, data)
  [14:17:28.228]                             }
  [14:17:28.228]                             return(sendCondition)
  [14:17:28.228]                           }
  [14:17:28.228]                         }
  [14:17:28.228]                         frame <- frame + 1L
  [14:17:28.228]                         envir <- sys.frame(frame)
  [14:17:28.228]                       }
  [14:17:28.228]                     }
  [14:17:28.228]                     sendCondition <<- function(cond) NULL
  [14:17:28.228]                   }
  [14:17:28.228]                 })
  [14:17:28.228]                 withCallingHandlers({
  [14:17:28.228]                   {
  [14:17:28.228]                     doFuture::registerDoFuture()
  [14:17:28.228]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:28.228]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:28.228]                       b <- NULL
  [14:17:28.228]                       ...future.env <- environment()
  [14:17:28.228]                       local({
  [14:17:28.228]                         for (name in names(...future.x_jj)) {
  [14:17:28.228]                           assign(name, ...future.x_jj[[name]], 
  [14:17:28.228]                             envir = ...future.env, inherits = FALSE)
  [14:17:28.228]                         }
  [14:17:28.228]                       })
  [14:17:28.228]                       tryCatch({
  [14:17:28.228]                         plan_list <- future::plan("next")
  [14:17:28.228]                         message(capture.output(print(plan_list)))
  [14:17:28.228]                         stopifnot(inherits(plan_list, "future"))
  [14:17:28.228]                         default <- getOption("future.plan", "sequential")
  [14:17:28.228]                         if (is.function(default)) 
  [14:17:28.228]                           default <- class(default)
  [14:17:28.228]                         stopifnot(inherits(plan_list, default))
  [14:17:28.228]                         plan_b <- future::plan("list")
  [14:17:28.228]                         str(plan_b)
  [14:17:28.228]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:28.228]                           inherits(plan_b[[1]], default))
  [14:17:28.228]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:28.228]                       }, error = identity)
  [14:17:28.228]                     })
  [14:17:28.228]                   }
  [14:17:28.228]                 }, immediateCondition = function(cond) {
  [14:17:28.228]                   sendCondition <- ...future.sendCondition()
  [14:17:28.228]                   sendCondition(cond)
  [14:17:28.228]                   muffleCondition <- function (cond) 
  [14:17:28.228]                   {
  [14:17:28.228]                     inherits <- base::inherits
  [14:17:28.228]                     invokeRestart <- base::invokeRestart
  [14:17:28.228]                     muffled <- FALSE
  [14:17:28.228]                     if (inherits(cond, "message")) {
  [14:17:28.228]                       invokeRestart("muffleMessage")
  [14:17:28.228]                       muffled <- TRUE
  [14:17:28.228]                     }
  [14:17:28.228]                     else if (inherits(cond, "warning")) {
  [14:17:28.228]                       invokeRestart("muffleWarning")
  [14:17:28.228]                       muffled <- TRUE
  [14:17:28.228]                     }
  [14:17:28.228]                     else if (inherits(cond, "condition")) {
  [14:17:28.228]                       computeRestarts <- base::computeRestarts
  [14:17:28.228]                       grepl <- base::grepl
  [14:17:28.228]                       is.null <- base::is.null
  [14:17:28.228]                       restarts <- computeRestarts(cond)
  [14:17:28.228]                       for (restart in restarts) {
  [14:17:28.228]                         name <- restart$name
  [14:17:28.228]                         if (is.null(name)) 
  [14:17:28.228]                           next
  [14:17:28.228]                         if (!grepl("^muffle", name)) 
  [14:17:28.228]                           next
  [14:17:28.228]                         invokeRestart(restart)
  [14:17:28.228]                         muffled <- TRUE
  [14:17:28.228]                         break
  [14:17:28.228]                       }
  [14:17:28.228]                     }
  [14:17:28.228]                     invisible(muffled)
  [14:17:28.228]                   }
  [14:17:28.228]                   muffleCondition(cond)
  [14:17:28.228]                 })
  [14:17:28.228]             }))
  [14:17:28.228]             future::FutureResult(value = ...future.value$value, 
  [14:17:28.228]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.228]                   ...future.rng), started = ...future.startTime, 
  [14:17:28.228]                 version = "1.8")
  [14:17:28.228]         }, condition = base::local({
  [14:17:28.228]             c <- base::c
  [14:17:28.228]             inherits <- base::inherits
  [14:17:28.228]             invokeRestart <- base::invokeRestart
  [14:17:28.228]             length <- base::length
  [14:17:28.228]             list <- base::list
  [14:17:28.228]             seq.int <- base::seq.int
  [14:17:28.228]             signalCondition <- base::signalCondition
  [14:17:28.228]             sys.calls <- base::sys.calls
  [14:17:28.228]             Sys.time <- base::Sys.time
  [14:17:28.228]             `[[` <- base::`[[`
  [14:17:28.228]             `+` <- base::`+`
  [14:17:28.228]             `<<-` <- base::`<<-`
  [14:17:28.228]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:28.228]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:28.228]                   3L)]
  [14:17:28.228]             }
  [14:17:28.228]             function(cond) {
  [14:17:28.228]                 if (inherits(cond, "error")) {
  [14:17:28.228]                   sessionInformation <- function() {
  [14:17:28.228]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:28.228]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:28.228]                       search = base::search(), system = base::Sys.info())
  [14:17:28.228]                   }
  [14:17:28.228]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.228]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:28.228]                     cond$call), session = sessionInformation(), 
  [14:17:28.228]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:28.228]                   signalCondition(cond)
  [14:17:28.228]                 }
  [14:17:28.228]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:28.228]                 ))) {
  [14:17:28.228]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:28.228]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.228]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:28.228]                   if (!signal) {
  [14:17:28.228]                     muffleCondition <- function (cond) 
  [14:17:28.228]                     {
  [14:17:28.228]                       inherits <- base::inherits
  [14:17:28.228]                       invokeRestart <- base::invokeRestart
  [14:17:28.228]                       muffled <- FALSE
  [14:17:28.228]                       if (inherits(cond, "message")) {
  [14:17:28.228]                         invokeRestart("muffleMessage")
  [14:17:28.228]                         muffled <- TRUE
  [14:17:28.228]                       }
  [14:17:28.228]                       else if (inherits(cond, "warning")) {
  [14:17:28.228]                         invokeRestart("muffleWarning")
  [14:17:28.228]                         muffled <- TRUE
  [14:17:28.228]                       }
  [14:17:28.228]                       else if (inherits(cond, "condition")) {
  [14:17:28.228]                         computeRestarts <- base::computeRestarts
  [14:17:28.228]                         grepl <- base::grepl
  [14:17:28.228]                         is.null <- base::is.null
  [14:17:28.228]                         restarts <- computeRestarts(cond)
  [14:17:28.228]                         for (restart in restarts) {
  [14:17:28.228]                           name <- restart$name
  [14:17:28.228]                           if (is.null(name)) 
  [14:17:28.228]                             next
  [14:17:28.228]                           if (!grepl("^muffle", name)) 
  [14:17:28.228]                             next
  [14:17:28.228]                           invokeRestart(restart)
  [14:17:28.228]                           muffled <- TRUE
  [14:17:28.228]                           break
  [14:17:28.228]                         }
  [14:17:28.228]                       }
  [14:17:28.228]                       invisible(muffled)
  [14:17:28.228]                     }
  [14:17:28.228]                     muffleCondition(cond)
  [14:17:28.228]                   }
  [14:17:28.228]                 }
  [14:17:28.228]             }
  [14:17:28.228]         }))
  [14:17:28.228]     }, error = function(ex) {
  [14:17:28.228]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:28.228]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.228]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:28.228]     }, finally = {
  [14:17:28.228]         {
  [14:17:28.228]             NULL
  [14:17:28.228]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:28.228]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:28.228]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:28.228]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:17:28.228]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:28.228]                 ...) 
  [14:17:28.228]             {
  [14:17:28.228]                 if (substitute) 
  [14:17:28.228]                   expr <- substitute(expr)
  [14:17:28.228]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:28.228]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:28.228]                   globals = globals, persistent = persistent, 
  [14:17:28.228]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:28.228]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:28.228]                   label = label, ...)
  [14:17:28.228]                 if (!future$lazy) 
  [14:17:28.228]                   future <- run(future)
  [14:17:28.228]                 invisible(future)
  [14:17:28.228]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:28.228]         }
  [14:17:28.228]         base::options(...future.oldOptions)
  [14:17:28.228]     })
  [14:17:28.228]     Sys.time
  [14:17:28.228]     if (base::is.na(TRUE)) {
  [14:17:28.228]     }
  [14:17:28.228]     else {
  [14:17:28.228]         base::sink(type = "output", split = FALSE)
  [14:17:28.228]         if (TRUE) {
  [14:17:28.228]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:28.228]         }
  [14:17:28.228]         else {
  [14:17:28.228]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:28.228]         }
  [14:17:28.228]         base::close(...future.stdout)
  [14:17:28.228]         ...future.stdout <- NULL
  [14:17:28.228]     }
  [14:17:28.228]     ...future.result$conditions <- ...future.conditions
  [14:17:28.228]     ...future.result
  [14:17:28.228] }
  [14:17:29.559]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:28.242] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [14:17:29.560]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:28.243] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:17:29.560]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:28.244] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:17:29.561]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:28.245] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:17:29.561]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [14:17:28.247] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:17:29.562]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:28.248] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [14:17:29.562]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [14:17:28.290] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [14:17:29.563]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:28.291] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [14:17:29.563]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [14:17:28.293] ClusterFuture started
  [14:17:29.564]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:28.294] Chunk #2 of 2 ... DONE
  [14:17:29.565]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:28.295] Launching 2 futures (chunks) ... DONE
  [14:17:29.565]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:28.296] - resolving futures
  [14:17:29.566]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:28.296]   - gathering results & relaying conditions (except errors)
  [14:17:29.567]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:28.297] resolve() on list ...
  [14:17:29.568]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:28.298]  recursive: 0
  [14:17:29.568]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:28.298]  length: 2
  [14:17:29.569]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:28.299] 
  [14:17:29.569]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:28.461] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:29.570]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:28.463] - Validating connection of ClusterFuture
  [14:17:29.570]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:28.503] - received message: FutureResult
  [14:17:29.571]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:28.504] - Received FutureResult
  [14:17:29.572]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:28.505] - Erased future from FutureRegistry
  [14:17:29.572]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:28.506] result() for ClusterFuture ...
  [14:17:29.573]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:28.507] - result already collected: FutureResult
  [14:17:29.573]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [14:17:28.508] result() for ClusterFuture ... done
  [14:17:29.574]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:28.509] signalConditions() ...
  [14:17:29.574]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:28.513]  - include = 'immediateCondition'
  [14:17:29.575]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:28.514]  - exclude = 
  [14:17:29.576]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:28.514]  - resignal = FALSE
  [14:17:29.576]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:28.515]  - Number of conditions: 1
  [14:17:29.577]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:28.516] signalConditions() ... done
  [14:17:29.578]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:28.517] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:29.578]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:28.518] Future #1
  [14:17:29.579]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:28.519] result() for ClusterFuture ...
  [14:17:29.579]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:28.519] - result already collected: FutureResult
  [14:17:29.580]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:28.520] result() for ClusterFuture ... done
  [14:17:29.581]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:28.521] result() for ClusterFuture ...
  [14:17:29.581]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:28.522] - result already collected: FutureResult
  [14:17:29.582]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:28.523] result() for ClusterFuture ... done
  [14:17:29.582]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:28.523] signalConditions() ...
  [14:17:29.583]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [14:17:28.524]  - include = 'immediateCondition'
  [14:17:29.583]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [14:17:28.525]  - exclude = 
  [14:17:29.584]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [14:17:28.526]  - resignal = FALSE
  [14:17:29.585]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [14:17:28.526]  - Number of conditions: 1
  [14:17:29.585]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [14:17:28.527] signalConditions() ... done
  [14:17:29.586]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [14:17:28.528] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:17:29.586]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [14:17:28.529] - nx: 2
  [14:17:29.587]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [14:17:28.530] - relay: TRUE
  [14:17:29.588]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [14:17:28.534] - stdout: TRUE
  [14:17:29.588]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [14:17:28.534] - signal: TRUE
  [14:17:29.589]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [14:17:28.535] - resignal: FALSE
  [14:17:29.589]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [14:17:28.536] - force: FALSE
  [14:17:29.590]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [14:17:28.537] - relayed: [n=2] FALSE, FALSE
  [14:17:29.591]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [14:17:28.538] - queued futures: [n=2] FALSE, FALSE
  [14:17:29.591]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [14:17:28.539]  - until=1
  [14:17:29.592]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [14:17:28.539]  - relaying element #1
  [14:17:29.592]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [14:17:28.540] result() for ClusterFuture ...
  [14:17:29.593]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [14:17:28.541] - result already collected: FutureResult
  [14:17:29.594]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [14:17:28.542] result() for ClusterFuture ... done
  [14:17:29.594]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [14:17:28.543] result() for ClusterFuture ...
  [14:17:29.595]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [14:17:28.544] - result already collected: FutureResult
  [14:17:29.596]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [14:17:28.544] result() for ClusterFuture ... done
  [14:17:29.596]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [14:17:28.545] signalConditions() ...
  [14:17:29.597]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [14:17:28.546]  - include = 'immediateCondition'
  [14:17:29.597]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [14:17:28.547]  - exclude = 
  [14:17:29.598]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [14:17:28.548]  - resignal = FALSE
  [14:17:29.599]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [14:17:28.549]  - Number of conditions: 1
  [14:17:29.599]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [14:17:28.549] signalConditions() ... done
  [14:17:29.600]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [14:17:28.556] result() for ClusterFuture ...
  [14:17:29.600]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [14:17:28.557] - result already collected: FutureResult
  [14:17:29.601]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [14:17:28.558] result() for ClusterFuture ... done
  [14:17:29.602]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [14:17:28.559] signalConditions() ...
  [14:17:29.602]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [14:17:28.560]  - include = 'immediateCondition'
  [14:17:29.603]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [14:17:28.560]  - exclude = 
  [14:17:29.604]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [14:17:28.561]  - resignal = FALSE
  [14:17:29.604]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [14:17:28.562]  - Number of conditions: 1
  [14:17:29.605]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [14:17:28.563] signalConditions() ... done
  [14:17:29.605]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [14:17:28.564] result() for ClusterFuture ...
  [14:17:29.606]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [14:17:28.564] - result already collected: FutureResult
  [14:17:29.607]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [14:17:28.565] result() for ClusterFuture ... done
  [14:17:29.607]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [14:17:28.566] signalConditions() ...
  [14:17:29.608]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [14:17:28.567]  - include = 'condition'
  [14:17:29.609]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [14:17:28.568]  - exclude = 'immediateCondition'
  [14:17:29.609]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [14:17:28.569]  - resignal = FALSE
  [14:17:29.610]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [14:17:28.570]  - Number of conditions: 1
  [14:17:29.610]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [14:17:28.571]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:29.611]  - 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
  [14:17:29.612]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [14:17:28.572] signalConditions() ... done
  [14:17:29.612]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [14:17:28.573] - relayed: [n=2] TRUE, FALSE
  [14:17:29.613]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [14:17:28.573] - queued futures: [n=2] TRUE, FALSE
  [14:17:29.613]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [14:17:28.574] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:17:29.614]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [14:17:28.575]  length: 1 (resolved future 1)
  [14:17:29.615]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [14:17:28.685] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:29.615]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [14:17:28.686] - Validating connection of ClusterFuture
  [14:17:29.616]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [14:17:28.688] - received message: FutureResult
  [14:17:29.616]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [14:17:28.688] - Received FutureResult
  [14:17:29.617]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [14:17:28.689] - Erased future from FutureRegistry
  [14:17:29.618]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [14:17:28.690] result() for ClusterFuture ...
  [14:17:29.618]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [14:17:28.691] - result already collected: FutureResult
  [14:17:29.619]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [14:17:28.692] result() for ClusterFuture ... done
  [14:17:29.620]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [14:17:28.693] signalConditions() ...
  [14:17:29.620]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [14:17:28.693]  - include = 'immediateCondition'
  [14:17:29.621]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [14:17:28.694]  - exclude = 
  [14:17:29.621]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [14:17:28.695]  - resignal = FALSE
  [14:17:29.622]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [14:17:28.696]  - Number of conditions: 2
  [14:17:29.623]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [14:17:28.697] signalConditions() ... done
  [14:17:29.623]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [14:17:28.697] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:29.624]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [14:17:28.698] Future #2
  [14:17:29.625]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [14:17:28.699] result() for ClusterFuture ...
  [14:17:29.625]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [14:17:28.700] - result already collected: FutureResult
  [14:17:29.626]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [14:17:28.700] result() for ClusterFuture ... done
  [14:17:29.627]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [14:17:28.701] result() for ClusterFuture ...
  [14:17:29.627]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [14:17:28.702] - result already collected: FutureResult
  [14:17:29.628]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [14:17:28.703] result() for ClusterFuture ... done
  [14:17:29.629]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [14:17:28.704] signalConditions() ...
  [14:17:29.629]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [14:17:28.704]  - include = 'immediateCondition'
  [14:17:29.630]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [14:17:28.705]  - exclude = 
  [14:17:29.631]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [14:17:28.706]  - resignal = FALSE
  [14:17:29.631]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [14:17:28.707]  - Number of conditions: 2
  [14:17:29.632]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [14:17:28.707] signalConditions() ... done
  [14:17:29.633]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [14:17:28.708] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:17:29.633]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [14:17:28.709] - nx: 2
  [14:17:29.634]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [14:17:28.710] - relay: TRUE
  [14:17:29.635]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [14:17:28.710] - stdout: TRUE
  [14:17:29.635]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [14:17:28.711] - signal: TRUE
  [14:17:29.636]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [14:17:28.712] - resignal: FALSE
  [14:17:29.637]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [14:17:28.712] - force: FALSE
  [14:17:29.637]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [14:17:28.713] - relayed: [n=2] TRUE, FALSE
  [14:17:29.638]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [14:17:28.714] - queued futures: [n=2] TRUE, FALSE
  [14:17:29.639]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [14:17:28.715]  - until=2
  [14:17:29.639]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [14:17:28.715]  - relaying element #2
  [14:17:29.640]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [14:17:28.716] result() for ClusterFuture ...
  [14:17:29.641]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [14:17:28.717] - result already collected: FutureResult
  [14:17:29.641]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [14:17:28.717] result() for ClusterFuture ... done
  [14:17:29.642]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [14:17:28.718] result() for ClusterFuture ...
  [14:17:29.642]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [14:17:28.719] - result already collected: FutureResult
  [14:17:29.643]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [14:17:28.720] result() for ClusterFuture ... done
  [14:17:29.644]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [14:17:28.721] signalConditions() ...
  [14:17:29.644]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [14:17:28.721]  - include = 'immediateCondition'
  [14:17:29.645]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [14:17:28.722]  - exclude = 
  [14:17:29.646]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [14:17:28.723]  - resignal = FALSE
  [14:17:29.647]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [14:17:28.724]  - Number of conditions: 2
  [14:17:29.647]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [14:17:28.725] signalConditions() ... done
  [14:17:29.648]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [14:17:28.726] result() for ClusterFuture ...
  [14:17:29.649]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [14:17:28.726] - result already collected: FutureResult
  [14:17:29.649]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [14:17:28.727] result() for ClusterFuture ... done
  [14:17:29.650]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [14:17:28.728] signalConditions() ...
  [14:17:29.651]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [14:17:28.729]  - include = 'immediateCondition'
  [14:17:29.651]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [14:17:28.730]  - exclude = 
  [14:17:29.652]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [14:17:28.730]  - resignal = FALSE
  [14:17:29.653]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [14:17:28.731]  - Number of conditions: 2
  [14:17:29.653]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [14:17:28.732] signalConditions() ... done
  [14:17:29.654]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [14:17:28.733] result() for ClusterFuture ...
  [14:17:29.655]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [14:17:28.733] - result already collected: FutureResult
  [14:17:29.655]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [14:17:28.734] result() for ClusterFuture ... done
  [14:17:29.656]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [14:17:28.735] signalConditions() ...
  [14:17:29.657]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [14:17:28.736]  - include = 'condition'
  [14:17:29.657]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [14:17:28.736]  - exclude = 'immediateCondition'
  [14:17:29.658]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [14:17:28.737]  - resignal = FALSE
  [14:17:29.658]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [14:17:28.738]  - Number of conditions: 2
  [14:17:29.659]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [14:17:28.739]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:29.660]  - 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
  [14:17:29.661]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [14:17:28.739]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:29.661]  - 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
  [14:17:29.662]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [14:17:28.741] signalConditions() ... done
  [14:17:29.662]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [14:17:28.741] - relayed: [n=2] TRUE, TRUE
  [14:17:29.663]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [14:17:28.742] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.664]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [14:17:28.743] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [14:17:29.664]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [14:17:28.744]  length: 0 (resolved future 2)
  [14:17:29.665]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [14:17:28.744] Relaying remaining futures
  [14:17:29.666]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [14:17:28.745] signalConditionsASAP(NULL, pos=0) ...
  [14:17:29.666]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [14:17:28.746] - nx: 2
  [14:17:29.667]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [14:17:28.746] - relay: TRUE
  [14:17:29.668]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [14:17:28.747] - stdout: TRUE
  [14:17:29.668]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [14:17:28.748] - signal: TRUE
  [14:17:29.669]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [14:17:28.749] - resignal: FALSE
  [14:17:29.670]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [14:17:28.750] - force: FALSE
  [14:17:29.670]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [14:17:28.750] - relayed: [n=2] TRUE, TRUE
  [14:17:29.671]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [14:17:28.751] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.672]  - Condition #279: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:29.672]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [14:17:28.752] - relayed: [n=2] TRUE, TRUE
  [14:17:29.673]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [14:17:28.758] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.673]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [14:17:28.760] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:29.674]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [14:17:28.760] resolve() on list ... DONE
  [14:17:29.675]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [14:17:28.761] - collecting values of futures
  [14:17:29.676]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [14:17:28.762] result() for ClusterFuture ...
  [14:17:29.676]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [14:17:28.762] - result already collected: FutureResult
  [14:17:29.677]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [14:17:28.763] result() for ClusterFuture ... done
  [14:17:29.678]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [14:17:28.764] result() for ClusterFuture ...
  [14:17:29.678]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [14:17:28.765] - result already collected: FutureResult
  [14:17:29.679]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [14:17:28.766] result() for ClusterFuture ... done
  [14:17:29.680]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [14:17:28.766] signalConditions() ...
  [14:17:29.680]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [14:17:28.767]  - include = 'immediateCondition'
  [14:17:29.681]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [14:17:28.768]  - exclude = 
  [14:17:29.682]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [14:17:28.769]  - resignal = FALSE
  [14:17:29.683]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [14:17:28.769]  - Number of conditions: 1
  [14:17:29.683]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [14:17:28.770] signalConditions() ... done
  [14:17:29.684]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [14:17:28.771] result() for ClusterFuture ...
  [14:17:29.685]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [14:17:28.772] - result already collected: FutureResult
  [14:17:29.685]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [14:17:28.773] result() for ClusterFuture ... done
  [14:17:29.686]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [14:17:28.773] result() for ClusterFuture ...
  [14:17:29.687]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [14:17:28.774] - result already collected: FutureResult
  [14:17:29.688]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [14:17:28.775] result() for ClusterFuture ... done
  [14:17:29.688]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [14:17:28.776] signalConditions() ...
  [14:17:29.689]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [14:17:28.776]  - include = 'immediateCondition'
  [14:17:29.690]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [14:17:28.777]  - exclude = 
  [14:17:29.690]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [14:17:28.778]  - resignal = FALSE
  [14:17:29.691]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [14:17:28.778]  - Number of conditions: 2
  [14:17:29.692]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [14:17:28.779] signalConditions() ... done
  [14:17:29.693]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [14:17:28.780] - accumulating results
  [14:17:29.693]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [14:17:28.782] - processing errors (handler = 'stop')
  [14:17:29.694]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [14:17:28.783] - extracting results
  [14:17:29.695]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [14:17:28.783] doFuture() ... DONE
  [14:17:29.695]  - Condition #313: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:29.696]  - Condition #314: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:29.697]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [14:17:28.793] doFuture() ...
  [14:17:29.698]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [14:17:28.795] - dummy globals (as locals): [1] 'b'
  [14:17:29.698]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [14:17:28.797] - R expression:
  [14:17:29.699]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [14:17:28.798] {
  [14:17:28.798]     doFuture::registerDoFuture()
  [14:17:28.798]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:28.798]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:28.798]         b <- NULL
  [14:17:28.798]         ...future.env <- environment()
  [14:17:28.798]         local({
  [14:17:28.798]             for (name in names(...future.x_jj)) {
  [14:17:28.798]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:28.798]                   inherits = FALSE)
  [14:17:28.798]             }
  [14:17:28.798]         })
  [14:17:28.798]         tryCatch({
  [14:17:28.798]             plan_list <- future::plan("next")
  [14:17:28.798]             message(capture.output(print(plan_list)))
  [14:17:28.798]             stopifnot(inherits(plan_list, "future"))
  [14:17:28.798]             default <- getOption("future.plan", "sequential")
  [14:17:28.798]             if (is.function(default)) 
  [14:17:28.798]                 default <- class(default)
  [14:17:28.798]             stopifnot(inherits(plan_list, default))
  [14:17:28.798]             plan_b <- future::plan("list")
  [14:17:28.798]             str(plan_b)
  [14:17:28.798]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:28.798]                 default))
  [14:17:28.798]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:28.798]         }, error = identity)
  [14:17:28.798]     })
  [14:17:28.798] }
  [14:17:29.700]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [14:17:28.800] - identifying globals and packages ...
  [14:17:29.700]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [14:17:28.801] getGlobalsAndPackages() ...
  [14:17:29.701]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [14:17:28.801] Searching for globals...
  [14:17:29.702]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [14:17:28.842] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:29.702]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [14:17:28.843] Searching for globals ... DONE
  [14:17:29.703]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [14:17:28.844] Resolving globals: FALSE
  [14:17:29.704]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [14:17:28.847] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [14:17:29.705]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [14:17:28.848] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.705]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [14:17:28.849] - packages: [1] 'utils'
  [14:17:29.706]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [14:17:28.850] getGlobalsAndPackages() ... DONE
  [14:17:29.707]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [14:17:28.851] List of 3
  [14:17:28.851]  $ ...future.x_ii: NULL
  [14:17:28.851]  $ a             : int 2
  [14:17:28.851]  $ plan_a        :List of 1
  [14:17:28.851]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:28.851]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:28.851]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:17:28.851]     label = NULL, ...)  
  [14:17:28.851]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:17:28.851]   .. ..- attr(*, "init")= logi TRUE
  [14:17:28.851]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:28.851]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:28.851]  - attr(*, "where")=List of 3
  [14:17:28.851]   ..$ ...future.x_ii:<environment: 0x25e9250> 
  [14:17:28.851]   ..$ a             :<environment: 0x19fd2e0> 
  [14:17:28.851]   ..$ plan_a        :<environment: 0x19fd2e0> 
  [14:17:28.851]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:28.851]  - attr(*, "resolved")= logi FALSE
  [14:17:28.851]  - attr(*, "total_size")= num 66056
  [14:17:29.707]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [14:17:28.870]   - R expression:
  [14:17:29.708]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [14:17:28.870] {
  [14:17:28.870]     doFuture::registerDoFuture()
  [14:17:28.870]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:28.870]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:28.870]         b <- NULL
  [14:17:28.870]         ...future.env <- environment()
  [14:17:28.870]         local({
  [14:17:28.870]             for (name in names(...future.x_jj)) {
  [14:17:28.870]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:28.870]                   inherits = FALSE)
  [14:17:28.870]             }
  [14:17:28.870]         })
  [14:17:28.870]         tryCatch({
  [14:17:28.870]             plan_list <- future::plan("next")
  [14:17:28.870]             message(capture.output(print(plan_list)))
  [14:17:28.870]             stopifnot(inherits(plan_list, "future"))
  [14:17:28.870]             default <- getOption("future.plan", "sequential")
  [14:17:28.870]             if (is.function(default)) 
  [14:17:28.870]                 default <- class(default)
  [14:17:28.870]             stopifnot(inherits(plan_list, default))
  [14:17:28.870]             plan_b <- future::plan("list")
  [14:17:28.870]             str(plan_b)
  [14:17:28.870]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:28.870]                 default))
  [14:17:28.870]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:28.870]         }, error = identity)
  [14:17:28.870]     })
  [14:17:28.870] }
  [14:17:29.709]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [14:17:28.872]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.709]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [14:17:28.873] List of 3
  [14:17:28.873]  $ ...future.x_ii: NULL
  [14:17:28.873]  $ a             : int 2
  [14:17:28.873]  $ plan_a        :List of 1
  [14:17:28.873]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:28.873]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:28.873]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [14:17:28.873]     label = NULL, ...)  
  [14:17:28.873]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [14:17:28.873]   .. ..- attr(*, "init")= logi TRUE
  [14:17:28.873]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:28.873]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:28.873]  - attr(*, "where")=List of 3
  [14:17:28.873]   ..$ ...future.x_ii:<environment: 0x25e9250> 
  [14:17:28.873]   ..$ a             :<environment: 0x19fd2e0> 
  [14:17:28.873]   ..$ plan_a        :<environment: 0x19fd2e0> 
  [14:17:28.873]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:28.873]  - attr(*, "resolved")= logi FALSE
  [14:17:28.873]  - attr(*, "total_size")= num 66056
  [14:17:29.710]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [14:17:28.902]   - packages: [2] 'doFuture', 'utils'
  [14:17:29.711]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [14:17:28.903] - identifying globals and packages ... DONE
  [14:17:29.711]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [14:17:28.905] Number of chunks: 2
  [14:17:29.712]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [14:17:28.906] Number of futures (= number of chunks): 2
  [14:17:29.713]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [14:17:28.907] Launching 2 futures (chunks) ...
  [14:17:29.713]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [14:17:28.908] Chunk #1 of 2 ...
  [14:17:29.714]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [14:17:28.909]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:29.715]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [14:17:28.909] getGlobalsAndPackages() ...
  [14:17:29.715]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [14:17:28.910] Searching for globals...
  [14:17:29.716]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [14:17:28.911] 
  [14:17:29.717]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [14:17:28.912] Searching for globals ... DONE
  [14:17:29.718]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [14:17:28.913] - globals: [0] <none>
  [14:17:29.718]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [14:17:28.913] getGlobalsAndPackages() ... DONE
  [14:17:29.719]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [14:17:28.914] 
  [14:17:29.720]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [14:17:28.914] 
  [14:17:29.720]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [14:17:28.915]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:29.721]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [14:17:28.916] getGlobalsAndPackages() ...
  [14:17:29.722]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [14:17:28.917] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.722]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [14:17:28.917] Resolving globals: FALSE
  [14:17:29.723]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [14:17:28.919] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [14:17:29.724]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [14:17:28.920] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.724]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [14:17:28.921] 
  [14:17:29.725]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [14:17:28.921] getGlobalsAndPackages() ... DONE
  [14:17:29.726]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [14:17:28.938] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:29.726]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [14:17:28.939] Packages needed by future strategies (n = 0): <none>
  [14:17:29.727]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [14:17:28.948] {
  [14:17:28.948]     {
  [14:17:28.948]         ...future.startTime <- base::Sys.time()
  [14:17:28.948]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:28.948]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:28.948]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:28.948]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:28.948]             future.resolve.recursive = NULL, width = 80L)
  [14:17:28.948]         {
  [14:17:28.948]             {
  [14:17:28.948]                 {
  [14:17:28.948]                   base::local({
  [14:17:28.948]                     has_future <- base::requireNamespace("future", 
  [14:17:28.948]                       quietly = TRUE)
  [14:17:28.948]                     version <- if (has_future) 
  [14:17:28.948]                       utils::packageVersion("future")
  [14:17:28.948]                     else NULL
  [14:17:28.948]                     if (!has_future || version < "1.8.0") {
  [14:17:28.948]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:28.948]                         "", base::R.version$version.string), 
  [14:17:28.948]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:28.948]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:28.948]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:28.948]                           "release", "version")], collapse = " "), 
  [14:17:28.948]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:28.948]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:28.948]                         info)
  [14:17:28.948]                       info <- base::paste(info, collapse = "; ")
  [14:17:28.948]                       if (!has_future) {
  [14:17:28.948]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:28.948]                           info)
  [14:17:28.948]                       }
  [14:17:28.948]                       else {
  [14:17:28.948]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:28.948]                           info, version)
  [14:17:28.948]                       }
  [14:17:28.948]                       base::stop(msg)
  [14:17:28.948]                     }
  [14:17:28.948]                   })
  [14:17:28.948]                 }
  [14:17:28.948]                 base::local({
  [14:17:28.948]                   for (pkg in c("doFuture", "utils")) {
  [14:17:28.948]                     base::loadNamespace(pkg)
  [14:17:28.948]                     base::library(pkg, character.only = TRUE)
  [14:17:28.948]                   }
  [14:17:28.948]                 })
  [14:17:28.948]             }
  [14:17:28.948]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:28.948]         }
  [14:17:28.948]     }
  [14:17:28.948]     if (base::is.na(TRUE)) {
  [14:17:28.948]     }
  [14:17:28.948]     else {
  [14:17:28.948]         if (TRUE) {
  [14:17:28.948]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:28.948]                 open = "w")
  [14:17:28.948]         }
  [14:17:28.948]         else {
  [14:17:28.948]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:28.948]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:28.948]         }
  [14:17:28.948]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:28.948]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:28.948]             base::sink(type = "output", split = FALSE)
  [14:17:28.948]             base::close(...future.stdout)
  [14:17:28.948]         }, add = TRUE)
  [14:17:28.948]     }
  [14:17:28.948]     ...future.frame <- base::sys.nframe()
  [14:17:28.948]     ...future.conditions <- base::list()
  [14:17:28.948]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:28.948]     ...future.result <- base::tryCatch({
  [14:17:28.948]         base::withCallingHandlers({
  [14:17:28.948]             ...future.value <- base::withVisible(base::local({
  [14:17:28.948]                 ...future.sendCondition <- local({
  [14:17:28.948]                   sendCondition <- NULL
  [14:17:28.948]                   function(frame = 1L) {
  [14:17:28.948]                     if (is.function(sendCondition)) 
  [14:17:28.948]                       return(sendCondition)
  [14:17:28.948]                     ns <- getNamespace("parallel")
  [14:17:28.948]                     if (exists("sendData", mode = "function", 
  [14:17:28.948]                       envir = ns)) {
  [14:17:28.948]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:28.948]                         envir = ns)
  [14:17:28.948]                       envir <- sys.frame(frame)
  [14:17:28.948]                       master <- NULL
  [14:17:28.948]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:28.948]                         !identical(envir, emptyenv())) {
  [14:17:28.948]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:28.948]                           inherits = FALSE)) {
  [14:17:28.948]                           master <- get("master", mode = "list", 
  [14:17:28.948]                             envir = envir, inherits = FALSE)
  [14:17:28.948]                           if (inherits(master, "SOCKnode")) {
  [14:17:28.948]                             sendCondition <<- function(cond) {
  [14:17:28.948]                               data <- list(type = "VALUE", value = cond, 
  [14:17:28.948]                                 success = TRUE)
  [14:17:28.948]                               parallel_sendData(master, data)
  [14:17:28.948]                             }
  [14:17:28.948]                             return(sendCondition)
  [14:17:28.948]                           }
  [14:17:28.948]                         }
  [14:17:28.948]                         frame <- frame + 1L
  [14:17:28.948]                         envir <- sys.frame(frame)
  [14:17:28.948]                       }
  [14:17:28.948]                     }
  [14:17:28.948]                     sendCondition <<- function(cond) NULL
  [14:17:28.948]                   }
  [14:17:28.948]                 })
  [14:17:28.948]                 withCallingHandlers({
  [14:17:28.948]                   {
  [14:17:28.948]                     doFuture::registerDoFuture()
  [14:17:28.948]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:28.948]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:28.948]                       b <- NULL
  [14:17:28.948]                       ...future.env <- environment()
  [14:17:28.948]                       local({
  [14:17:28.948]                         for (name in names(...future.x_jj)) {
  [14:17:28.948]                           assign(name, ...future.x_jj[[name]], 
  [14:17:28.948]                             envir = ...future.env, inherits = FALSE)
  [14:17:28.948]                         }
  [14:17:28.948]                       })
  [14:17:28.948]                       tryCatch({
  [14:17:28.948]                         plan_list <- future::plan("next")
  [14:17:28.948]                         message(capture.output(print(plan_list)))
  [14:17:28.948]                         stopifnot(inherits(plan_list, "future"))
  [14:17:28.948]                         default <- getOption("future.plan", "sequential")
  [14:17:28.948]                         if (is.function(default)) 
  [14:17:28.948]                           default <- class(default)
  [14:17:28.948]                         stopifnot(inherits(plan_list, default))
  [14:17:28.948]                         plan_b <- future::plan("list")
  [14:17:28.948]                         str(plan_b)
  [14:17:28.948]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:28.948]                           inherits(plan_b[[1]], default))
  [14:17:28.948]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:28.948]                       }, error = identity)
  [14:17:28.948]                     })
  [14:17:28.948]                   }
  [14:17:28.948]                 }, immediateCondition = function(cond) {
  [14:17:28.948]                   sendCondition <- ...future.sendCondition()
  [14:17:28.948]                   sendCondition(cond)
  [14:17:28.948]                   muffleCondition <- function (cond) 
  [14:17:28.948]                   {
  [14:17:28.948]                     inherits <- base::inherits
  [14:17:28.948]                     invokeRestart <- base::invokeRestart
  [14:17:28.948]                     muffled <- FALSE
  [14:17:28.948]                     if (inherits(cond, "message")) {
  [14:17:28.948]                       invokeRestart("muffleMessage")
  [14:17:28.948]                       muffled <- TRUE
  [14:17:28.948]                     }
  [14:17:28.948]                     else if (inherits(cond, "warning")) {
  [14:17:28.948]                       invokeRestart("muffleWarning")
  [14:17:28.948]                       muffled <- TRUE
  [14:17:28.948]                     }
  [14:17:28.948]                     else if (inherits(cond, "condition")) {
  [14:17:28.948]                       computeRestarts <- base::computeRestarts
  [14:17:28.948]                       grepl <- base::grepl
  [14:17:28.948]                       is.null <- base::is.null
  [14:17:28.948]                       restarts <- computeRestarts(cond)
  [14:17:28.948]                       for (restart in restarts) {
  [14:17:28.948]                         name <- restart$name
  [14:17:28.948]                         if (is.null(name)) 
  [14:17:28.948]                           next
  [14:17:28.948]                         if (!grepl("^muffle", name)) 
  [14:17:28.948]                           next
  [14:17:28.948]                         invokeRestart(restart)
  [14:17:28.948]                         muffled <- TRUE
  [14:17:28.948]                         break
  [14:17:28.948]                       }
  [14:17:28.948]                     }
  [14:17:28.948]                     invisible(muffled)
  [14:17:28.948]                   }
  [14:17:28.948]                   muffleCondition(cond)
  [14:17:28.948]                 })
  [14:17:28.948]             }))
  [14:17:28.948]             future::FutureResult(value = ...future.value$value, 
  [14:17:28.948]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.948]                   ...future.rng), started = ...future.startTime, 
  [14:17:28.948]                 version = "1.8")
  [14:17:28.948]         }, condition = base::local({
  [14:17:28.948]             c <- base::c
  [14:17:28.948]             inherits <- base::inherits
  [14:17:28.948]             invokeRestart <- base::invokeRestart
  [14:17:28.948]             length <- base::length
  [14:17:28.948]             list <- base::list
  [14:17:28.948]             seq.int <- base::seq.int
  [14:17:28.948]             signalCondition <- base::signalCondition
  [14:17:28.948]             sys.calls <- base::sys.calls
  [14:17:28.948]             Sys.time <- base::Sys.time
  [14:17:28.948]             `[[` <- base::`[[`
  [14:17:28.948]             `+` <- base::`+`
  [14:17:28.948]             `<<-` <- base::`<<-`
  [14:17:28.948]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:28.948]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:28.948]                   3L)]
  [14:17:28.948]             }
  [14:17:28.948]             function(cond) {
  [14:17:28.948]                 if (inherits(cond, "error")) {
  [14:17:28.948]                   sessionInformation <- function() {
  [14:17:28.948]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:28.948]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:28.948]                       search = base::search(), system = base::Sys.info())
  [14:17:28.948]                   }
  [14:17:28.948]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.948]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:28.948]                     cond$call), session = sessionInformation(), 
  [14:17:28.948]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:28.948]                   signalCondition(cond)
  [14:17:28.948]                 }
  [14:17:28.948]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:28.948]                 ))) {
  [14:17:28.948]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:28.948]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:28.948]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:28.948]                   if (!signal) {
  [14:17:28.948]                     muffleCondition <- function (cond) 
  [14:17:28.948]                     {
  [14:17:28.948]                       inherits <- base::inherits
  [14:17:28.948]                       invokeRestart <- base::invokeRestart
  [14:17:28.948]                       muffled <- FALSE
  [14:17:28.948]                       if (inherits(cond, "message")) {
  [14:17:28.948]                         invokeRestart("muffleMessage")
  [14:17:28.948]                         muffled <- TRUE
  [14:17:28.948]                       }
  [14:17:28.948]                       else if (inherits(cond, "warning")) {
  [14:17:28.948]                         invokeRestart("muffleWarning")
  [14:17:28.948]                         muffled <- TRUE
  [14:17:28.948]                       }
  [14:17:28.948]                       else if (inherits(cond, "condition")) {
  [14:17:28.948]                         computeRestarts <- base::computeRestarts
  [14:17:28.948]                         grepl <- base::grepl
  [14:17:28.948]                         is.null <- base::is.null
  [14:17:28.948]                         restarts <- computeRestarts(cond)
  [14:17:28.948]                         for (restart in restarts) {
  [14:17:28.948]                           name <- restart$name
  [14:17:28.948]                           if (is.null(name)) 
  [14:17:28.948]                             next
  [14:17:28.948]                           if (!grepl("^muffle", name)) 
  [14:17:28.948]                             next
  [14:17:28.948]                           invokeRestart(restart)
  [14:17:28.948]                           muffled <- TRUE
  [14:17:28.948]                           break
  [14:17:28.948]                         }
  [14:17:28.948]                       }
  [14:17:28.948]                       invisible(muffled)
  [14:17:28.948]                     }
  [14:17:28.948]                     muffleCondition(cond)
  [14:17:28.948]                   }
  [14:17:28.948]                 }
  [14:17:28.948]             }
  [14:17:28.948]         }))
  [14:17:28.948]     }, error = function(ex) {
  [14:17:28.948]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:28.948]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:28.948]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:28.948]     }, finally = {
  [14:17:28.948]         {
  [14:17:28.948]             NULL
  [14:17:28.948]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:28.948]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:28.948]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:28.948]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:17:28.948]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:28.948]                 ...) 
  [14:17:28.948]             {
  [14:17:28.948]                 if (substitute) 
  [14:17:28.948]                   expr <- substitute(expr)
  [14:17:28.948]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:28.948]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:28.948]                   globals = globals, persistent = persistent, 
  [14:17:28.948]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:28.948]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:28.948]                   label = label, ...)
  [14:17:28.948]                 if (!future$lazy) 
  [14:17:28.948]                   future <- run(future)
  [14:17:28.948]                 invisible(future)
  [14:17:28.948]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:28.948]         }
  [14:17:28.948]         base::options(...future.oldOptions)
  [14:17:28.948]     })
  [14:17:28.948]     Sys.time
  [14:17:28.948]     if (base::is.na(TRUE)) {
  [14:17:28.948]     }
  [14:17:28.948]     else {
  [14:17:28.948]         base::sink(type = "output", split = FALSE)
  [14:17:28.948]         if (TRUE) {
  [14:17:28.948]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:28.948]         }
  [14:17:28.948]         else {
  [14:17:28.948]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:28.948]         }
  [14:17:28.948]         base::close(...future.stdout)
  [14:17:28.948]         ...future.stdout <- NULL
  [14:17:28.948]     }
  [14:17:28.948]     ...future.result$conditions <- ...future.conditions
  [14:17:28.948]     ...future.result
  [14:17:28.948] }
  [14:17:29.727]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [14:17:28.961] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [14:17:29.728]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [14:17:28.962] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [14:17:29.729]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [14:17:28.964] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [14:17:29.729]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [14:17:28.971] Exporting 'a' (56 bytes) to cluster node #1 ...
  [14:17:29.730]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [14:17:28.973] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [14:17:29.731]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [14:17:28.974] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [14:17:29.731]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [14:17:29.017] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [14:17:29.732]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [14:17:29.018] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [14:17:29.733]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [14:17:29.021] ClusterFuture started
  [14:17:29.733]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [14:17:29.022] Chunk #1 of 2 ... DONE
  [14:17:29.734]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [14:17:29.023] Chunk #2 of 2 ...
  [14:17:29.735]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [14:17:29.025]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:29.735]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [14:17:29.026] getGlobalsAndPackages() ...
  [14:17:29.736]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [14:17:29.027] Searching for globals...
  [14:17:29.737]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [14:17:29.029] 
  [14:17:29.737]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [14:17:29.030] Searching for globals ... DONE
  [14:17:29.738]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [14:17:29.031] - globals: [0] <none>
  [14:17:29.739]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [14:17:29.031] getGlobalsAndPackages() ... DONE
  [14:17:29.739]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [14:17:29.032] 
  [14:17:29.740]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [14:17:29.033] 
  [14:17:29.741]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [14:17:29.034]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:29.741]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [14:17:29.035] getGlobalsAndPackages() ...
  [14:17:29.742]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [14:17:29.037] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.743]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [14:17:29.038] Resolving globals: FALSE
  [14:17:29.743]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [14:17:29.041] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [14:17:29.744]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [14:17:29.042] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:29.745]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [14:17:29.043] 
  [14:17:29.745]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [14:17:29.044] getGlobalsAndPackages() ... DONE
  [14:17:29.746]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [14:17:29.076] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:29.747]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [14:17:29.077] Packages needed by future strategies (n = 0): <none>
  [14:17:29.747]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [14:17:29.098] {
  [14:17:29.098]     {
  [14:17:29.098]         ...future.startTime <- base::Sys.time()
  [14:17:29.098]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:29.098]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:29.098]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:29.098]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:29.098]             future.resolve.recursive = NULL, width = 80L)
  [14:17:29.098]         {
  [14:17:29.098]             {
  [14:17:29.098]                 {
  [14:17:29.098]                   base::local({
  [14:17:29.098]                     has_future <- base::requireNamespace("future", 
  [14:17:29.098]                       quietly = TRUE)
  [14:17:29.098]                     version <- if (has_future) 
  [14:17:29.098]                       utils::packageVersion("future")
  [14:17:29.098]                     else NULL
  [14:17:29.098]                     if (!has_future || version < "1.8.0") {
  [14:17:29.098]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:29.098]                         "", base::R.version$version.string), 
  [14:17:29.098]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:29.098]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:29.098]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:29.098]                           "release", "version")], collapse = " "), 
  [14:17:29.098]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:29.098]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:29.098]                         info)
  [14:17:29.098]                       info <- base::paste(info, collapse = "; ")
  [14:17:29.098]                       if (!has_future) {
  [14:17:29.098]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:29.098]                           info)
  [14:17:29.098]                       }
  [14:17:29.098]                       else {
  [14:17:29.098]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:29.098]                           info, version)
  [14:17:29.098]                       }
  [14:17:29.098]                       base::stop(msg)
  [14:17:29.098]                     }
  [14:17:29.098]                   })
  [14:17:29.098]                 }
  [14:17:29.098]                 base::local({
  [14:17:29.098]                   for (pkg in c("doFuture", "utils")) {
  [14:17:29.098]                     base::loadNamespace(pkg)
  [14:17:29.098]                     base::library(pkg, character.only = TRUE)
  [14:17:29.098]                   }
  [14:17:29.098]                 })
  [14:17:29.098]             }
  [14:17:29.098]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:29.098]         }
  [14:17:29.098]     }
  [14:17:29.098]     if (base::is.na(TRUE)) {
  [14:17:29.098]     }
  [14:17:29.098]     else {
  [14:17:29.098]         if (TRUE) {
  [14:17:29.098]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:29.098]                 open = "w")
  [14:17:29.098]         }
  [14:17:29.098]         else {
  [14:17:29.098]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:29.098]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:29.098]         }
  [14:17:29.098]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:29.098]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:29.098]             base::sink(type = "output", split = FALSE)
  [14:17:29.098]             base::close(...future.stdout)
  [14:17:29.098]         }, add = TRUE)
  [14:17:29.098]     }
  [14:17:29.098]     ...future.frame <- base::sys.nframe()
  [14:17:29.098]     ...future.conditions <- base::list()
  [14:17:29.098]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:29.098]     ...future.result <- base::tryCatch({
  [14:17:29.098]         base::withCallingHandlers({
  [14:17:29.098]             ...future.value <- base::withVisible(base::local({
  [14:17:29.098]                 ...future.sendCondition <- local({
  [14:17:29.098]                   sendCondition <- NULL
  [14:17:29.098]                   function(frame = 1L) {
  [14:17:29.098]                     if (is.function(sendCondition)) 
  [14:17:29.098]                       return(sendCondition)
  [14:17:29.098]                     ns <- getNamespace("parallel")
  [14:17:29.098]                     if (exists("sendData", mode = "function", 
  [14:17:29.098]                       envir = ns)) {
  [14:17:29.098]                       parallel_sendData <- get("sendData", mode = "function", 
  [14:17:29.098]                         envir = ns)
  [14:17:29.098]                       envir <- sys.frame(frame)
  [14:17:29.098]                       master <- NULL
  [14:17:29.098]                       while (!identical(envir, .GlobalEnv) && 
  [14:17:29.098]                         !identical(envir, emptyenv())) {
  [14:17:29.098]                         if (exists("master", mode = "list", envir = envir, 
  [14:17:29.098]                           inherits = FALSE)) {
  [14:17:29.098]                           master <- get("master", mode = "list", 
  [14:17:29.098]                             envir = envir, inherits = FALSE)
  [14:17:29.098]                           if (inherits(master, "SOCKnode")) {
  [14:17:29.098]                             sendCondition <<- function(cond) {
  [14:17:29.098]                               data <- list(type = "VALUE", value = cond, 
  [14:17:29.098]                                 success = TRUE)
  [14:17:29.098]                               parallel_sendData(master, data)
  [14:17:29.098]                             }
  [14:17:29.098]                             return(sendCondition)
  [14:17:29.098]                           }
  [14:17:29.098]                         }
  [14:17:29.098]                         frame <- frame + 1L
  [14:17:29.098]                         envir <- sys.frame(frame)
  [14:17:29.098]                       }
  [14:17:29.098]                     }
  [14:17:29.098]                     sendCondition <<- function(cond) NULL
  [14:17:29.098]                   }
  [14:17:29.098]                 })
  [14:17:29.098]                 withCallingHandlers({
  [14:17:29.098]                   {
  [14:17:29.098]                     doFuture::registerDoFuture()
  [14:17:29.098]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:29.098]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:29.098]                       b <- NULL
  [14:17:29.098]                       ...future.env <- environment()
  [14:17:29.098]                       local({
  [14:17:29.098]                         for (name in names(...future.x_jj)) {
  [14:17:29.098]                           assign(name, ...future.x_jj[[name]], 
  [14:17:29.098]                             envir = ...future.env, inherits = FALSE)
  [14:17:29.098]                         }
  [14:17:29.098]                       })
  [14:17:29.098]                       tryCatch({
  [14:17:29.098]                         plan_list <- future::plan("next")
  [14:17:29.098]                         message(capture.output(print(plan_list)))
  [14:17:29.098]                         stopifnot(inherits(plan_list, "future"))
  [14:17:29.098]                         default <- getOption("future.plan", "sequential")
  [14:17:29.098]                         if (is.function(default)) 
  [14:17:29.098]                           default <- class(default)
  [14:17:29.098]                         stopifnot(inherits(plan_list, default))
  [14:17:29.098]                         plan_b <- future::plan("list")
  [14:17:29.098]                         str(plan_b)
  [14:17:29.098]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:29.098]                           inherits(plan_b[[1]], default))
  [14:17:29.098]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:29.098]                       }, error = identity)
  [14:17:29.098]                     })
  [14:17:29.098]                   }
  [14:17:29.098]                 }, immediateCondition = function(cond) {
  [14:17:29.098]                   sendCondition <- ...future.sendCondition()
  [14:17:29.098]                   sendCondition(cond)
  [14:17:29.098]                   muffleCondition <- function (cond) 
  [14:17:29.098]                   {
  [14:17:29.098]                     inherits <- base::inherits
  [14:17:29.098]                     invokeRestart <- base::invokeRestart
  [14:17:29.098]                     muffled <- FALSE
  [14:17:29.098]                     if (inherits(cond, "message")) {
  [14:17:29.098]                       invokeRestart("muffleMessage")
  [14:17:29.098]                       muffled <- TRUE
  [14:17:29.098]                     }
  [14:17:29.098]                     else if (inherits(cond, "warning")) {
  [14:17:29.098]                       invokeRestart("muffleWarning")
  [14:17:29.098]                       muffled <- TRUE
  [14:17:29.098]                     }
  [14:17:29.098]                     else if (inherits(cond, "condition")) {
  [14:17:29.098]                       computeRestarts <- base::computeRestarts
  [14:17:29.098]                       grepl <- base::grepl
  [14:17:29.098]                       is.null <- base::is.null
  [14:17:29.098]                       restarts <- computeRestarts(cond)
  [14:17:29.098]                       for (restart in restarts) {
  [14:17:29.098]                         name <- restart$name
  [14:17:29.098]                         if (is.null(name)) 
  [14:17:29.098]                           next
  [14:17:29.098]                         if (!grepl("^muffle", name)) 
  [14:17:29.098]                           next
  [14:17:29.098]                         invokeRestart(restart)
  [14:17:29.098]                         muffled <- TRUE
  [14:17:29.098]                         break
  [14:17:29.098]                       }
  [14:17:29.098]                     }
  [14:17:29.098]                     invisible(muffled)
  [14:17:29.098]                   }
  [14:17:29.098]                   muffleCondition(cond)
  [14:17:29.098]                 })
  [14:17:29.098]             }))
  [14:17:29.098]             future::FutureResult(value = ...future.value$value, 
  [14:17:29.098]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:29.098]                   ...future.rng), started = ...future.startTime, 
  [14:17:29.098]                 version = "1.8")
  [14:17:29.098]         }, condition = base::local({
  [14:17:29.098]             c <- base::c
  [14:17:29.098]             inherits <- base::inherits
  [14:17:29.098]             invokeRestart <- base::invokeRestart
  [14:17:29.098]             length <- base::length
  [14:17:29.098]             list <- base::list
  [14:17:29.098]             seq.int <- base::seq.int
  [14:17:29.098]             signalCondition <- base::signalCondition
  [14:17:29.098]             sys.calls <- base::sys.calls
  [14:17:29.098]             Sys.time <- base::Sys.time
  [14:17:29.098]             `[[` <- base::`[[`
  [14:17:29.098]             `+` <- base::`+`
  [14:17:29.098]             `<<-` <- base::`<<-`
  [14:17:29.098]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:29.098]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:29.098]                   3L)]
  [14:17:29.098]             }
  [14:17:29.098]             function(cond) {
  [14:17:29.098]                 if (inherits(cond, "error")) {
  [14:17:29.098]                   sessionInformation <- function() {
  [14:17:29.098]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:29.098]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:29.098]                       search = base::search(), system = base::Sys.info())
  [14:17:29.098]                   }
  [14:17:29.098]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:29.098]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:29.098]                     cond$call), session = sessionInformation(), 
  [14:17:29.098]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:29.098]                   signalCondition(cond)
  [14:17:29.098]                 }
  [14:17:29.098]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:29.098]                 ))) {
  [14:17:29.098]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:29.098]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:29.098]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:29.098]                   if (!signal) {
  [14:17:29.098]                     muffleCondition <- function (cond) 
  [14:17:29.098]                     {
  [14:17:29.098]                       inherits <- base::inherits
  [14:17:29.098]                       invokeRestart <- base::invokeRestart
  [14:17:29.098]                       muffled <- FALSE
  [14:17:29.098]                       if (inherits(cond, "message")) {
  [14:17:29.098]                         invokeRestart("muffleMessage")
  [14:17:29.098]                         muffled <- TRUE
  [14:17:29.098]                       }
  [14:17:29.098]                       else if (inherits(cond, "warning")) {
  [14:17:29.098]                         invokeRestart("muffleWarning")
  [14:17:29.098]                         muffled <- TRUE
  [14:17:29.098]                       }
  [14:17:29.098]                       else if (inherits(cond, "condition")) {
  [14:17:29.098]                         computeRestarts <- base::computeRestarts
  [14:17:29.098]                         grepl <- base::grepl
  [14:17:29.098]                         is.null <- base::is.null
  [14:17:29.098]                         restarts <- computeRestarts(cond)
  [14:17:29.098]                         for (restart in restarts) {
  [14:17:29.098]                           name <- restart$name
  [14:17:29.098]                           if (is.null(name)) 
  [14:17:29.098]                             next
  [14:17:29.098]                           if (!grepl("^muffle", name)) 
  [14:17:29.098]                             next
  [14:17:29.098]                           invokeRestart(restart)
  [14:17:29.098]                           muffled <- TRUE
  [14:17:29.098]                           break
  [14:17:29.098]                         }
  [14:17:29.098]                       }
  [14:17:29.098]                       invisible(muffled)
  [14:17:29.098]                     }
  [14:17:29.098]                     muffleCondition(cond)
  [14:17:29.098]                   }
  [14:17:29.098]                 }
  [14:17:29.098]             }
  [14:17:29.098]         }))
  [14:17:29.098]     }, error = function(ex) {
  [14:17:29.098]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:29.098]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:29.098]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:29.098]     }, finally = {
  [14:17:29.098]         {
  [14:17:29.098]             NULL
  [14:17:29.098]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:29.098]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:29.098]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [14:17:29.098]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [14:17:29.098]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:29.098]                 ...) 
  [14:17:29.098]             {
  [14:17:29.098]                 if (substitute) 
  [14:17:29.098]                   expr <- substitute(expr)
  [14:17:29.098]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [14:17:29.098]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:29.098]                   globals = globals, persistent = persistent, 
  [14:17:29.098]                   workers = workers, user = user, revtunnel = revtunnel, 
  [14:17:29.098]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [14:17:29.098]                   label = label, ...)
  [14:17:29.098]                 if (!future$lazy) 
  [14:17:29.098]                   future <- run(future)
  [14:17:29.098]                 invisible(future)
  [14:17:29.098]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:29.098]         }
  [14:17:29.098]         base::options(...future.oldOptions)
  [14:17:29.098]     })
  [14:17:29.098]     Sys.time
  [14:17:29.098]     if (base::is.na(TRUE)) {
  [14:17:29.098]     }
  [14:17:29.098]     else {
  [14:17:29.098]         base::sink(type = "output", split = FALSE)
  [14:17:29.098]         if (TRUE) {
  [14:17:29.098]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:29.098]         }
  [14:17:29.098]         else {
  [14:17:29.098]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:29.098]         }
  [14:17:29.098]         base::close(...future.stdout)
  [14:17:29.098]         ...future.stdout <- NULL
  [14:17:29.098]     }
  [14:17:29.098]     ...future.result$conditions <- ...future.conditions
  [14:17:29.098]     ...future.result
  [14:17:29.098] }
  [14:17:29.748]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [14:17:29.126] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [14:17:29.749]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [14:17:29.127] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [14:17:29.749]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [14:17:29.131] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [14:17:29.750]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [14:17:29.132] Exporting 'a' (56 bytes) to cluster node #2 ...
  [14:17:29.751]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [14:17:29.136] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [14:17:29.752]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [14:17:29.140] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [14:17:29.752]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [14:17:29.184] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [14:17:29.753]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [14:17:29.185] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [14:17:29.754]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [14:17:29.187] ClusterFuture started
  [14:17:29.754]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [14:17:29.188] Chunk #2 of 2 ... DONE
  [14:17:29.755]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [14:17:29.188] Launching 2 futures (chunks) ... DONE
  [14:17:29.756]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [14:17:29.189] - resolving futures
  [14:17:29.757]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [14:17:29.190]   - gathering results & relaying conditions (except errors)
  [14:17:29.757]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [14:17:29.190] resolve() on list ...
  [14:17:29.758]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [14:17:29.191]  recursive: 0
  [14:17:29.759]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [14:17:29.192]  length: 2
  [14:17:29.759]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [14:17:29.192] 
  [14:17:29.760]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [14:17:29.195] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:29.761]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [14:17:29.196] - Validating connection of ClusterFuture
  [14:17:29.761]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [14:17:29.197] - received message: FutureResult
  [14:17:29.762]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [14:17:29.198] - Received FutureResult
  [14:17:29.762]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [14:17:29.198] - Erased future from FutureRegistry
  [14:17:29.763]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [14:17:29.199] result() for ClusterFuture ...
  [14:17:29.764]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [14:17:29.200] - result already collected: FutureResult
  [14:17:29.764]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [14:17:29.201] result() for ClusterFuture ... done
  [14:17:29.765]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [14:17:29.201] signalConditions() ...
  [14:17:29.766]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [14:17:29.202]  - include = 'immediateCondition'
  [14:17:29.766]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [14:17:29.203]  - exclude = 
  [14:17:29.767]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [14:17:29.203]  - resignal = FALSE
  [14:17:29.768]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [14:17:29.204]  - Number of conditions: 1
  [14:17:29.768]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [14:17:29.211] signalConditions() ... done
  [14:17:29.769]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [14:17:29.212] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:29.770]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [14:17:29.213] Future #1
  [14:17:29.770]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [14:17:29.214] result() for ClusterFuture ...
  [14:17:29.771]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [14:17:29.214] - result already collected: FutureResult
  [14:17:29.772]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [14:17:29.215] result() for ClusterFuture ... done
  [14:17:29.773]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [14:17:29.216] result() for ClusterFuture ...
  [14:17:29.773]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [14:17:29.217] - result already collected: FutureResult
  [14:17:29.774]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [14:17:29.218] result() for ClusterFuture ... done
  [14:17:29.775]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [14:17:29.219] signalConditions() ...
  [14:17:29.775]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [14:17:29.219]  - include = 'immediateCondition'
  [14:17:29.776]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [14:17:29.220]  - exclude = 
  [14:17:29.777]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [14:17:29.221]  - resignal = FALSE
  [14:17:29.777]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [14:17:29.222]  - Number of conditions: 1
  [14:17:29.778]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [14:17:29.223] signalConditions() ... done
  [14:17:29.779]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [14:17:29.224] signalConditionsASAP(ClusterFuture, pos=1) ...
  [14:17:29.779]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [14:17:29.224] - nx: 2
  [14:17:29.780]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [14:17:29.225] - relay: TRUE
  [14:17:29.781]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [14:17:29.226] - stdout: TRUE
  [14:17:29.782]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [14:17:29.227] - signal: TRUE
  [14:17:29.782]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [14:17:29.227] - resignal: FALSE
  [14:17:29.783]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [14:17:29.228] - force: FALSE
  [14:17:29.784]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [14:17:29.229] - relayed: [n=2] FALSE, FALSE
  [14:17:29.784]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [14:17:29.230] - queued futures: [n=2] FALSE, FALSE
  [14:17:29.785]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [14:17:29.230]  - until=1
  [14:17:29.786]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [14:17:29.231]  - relaying element #1
  [14:17:29.786]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [14:17:29.232] result() for ClusterFuture ...
  [14:17:29.787]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [14:17:29.233] - result already collected: FutureResult
  [14:17:29.788]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [14:17:29.234] result() for ClusterFuture ... done
  [14:17:29.788]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [14:17:29.234] result() for ClusterFuture ...
  [14:17:29.789]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [14:17:29.235] - result already collected: FutureResult
  [14:17:29.790]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [14:17:29.236] result() for ClusterFuture ... done
  [14:17:29.796]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [14:17:29.237] signalConditions() ...
  [14:17:29.797]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [14:17:29.237]  - include = 'immediateCondition'
  [14:17:29.797]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [14:17:29.238]  - exclude = 
  [14:17:29.798]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [14:17:29.239]  - resignal = FALSE
  [14:17:29.799]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [14:17:29.240]  - Number of conditions: 1
  [14:17:29.799]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [14:17:29.240] signalConditions() ... done
  [14:17:29.800]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [14:17:29.241] result() for ClusterFuture ...
  [14:17:29.801]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [14:17:29.242] - result already collected: FutureResult
  [14:17:29.801]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [14:17:29.243] result() for ClusterFuture ... done
  [14:17:29.802]  - Condition #462: 'simpleMessage', 'message', 'condition'
  [14:17:29.243] signalConditions() ...
  [14:17:29.803]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [14:17:29.244]  - include = 'immediateCondition'
  [14:17:29.803]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [14:17:29.245]  - exclude = 
  [14:17:29.804]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [14:17:29.246]  - resignal = FALSE
  [14:17:29.805]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [14:17:29.247]  - Number of conditions: 1
  [14:17:29.805]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [14:17:29.247] signalConditions() ... done
  [14:17:29.806]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [14:17:29.248] result() for ClusterFuture ...
  [14:17:29.807]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [14:17:29.249] - result already collected: FutureResult
  [14:17:29.807]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [14:17:29.250] result() for ClusterFuture ... done
  [14:17:29.808]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [14:17:29.251] signalConditions() ...
  [14:17:29.809]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [14:17:29.251]  - include = 'condition'
  [14:17:29.809]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [14:17:29.252]  - exclude = 'immediateCondition'
  [14:17:29.810]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [14:17:29.253]  - resignal = FALSE
  [14:17:29.811]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [14:17:29.254]  - Number of conditions: 1
  [14:17:29.811]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [14:17:29.255]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:29.812]  - 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
  [14:17:29.813]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [14:17:29.256] signalConditions() ... done
  [14:17:29.813]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [14:17:29.256] - relayed: [n=2] TRUE, FALSE
  [14:17:29.814]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [14:17:29.257] - queued futures: [n=2] TRUE, FALSE
  [14:17:29.815]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [14:17:29.258] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [14:17:29.815]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [14:17:29.259]  length: 1 (resolved future 1)
  [14:17:29.816]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [14:17:29.261] receiveMessageFromWorker() for ClusterFuture ...
  [14:17:29.817]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [14:17:29.262] - Validating connection of ClusterFuture
  [14:17:29.817]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [14:17:29.282] - received message: FutureResult
  [14:17:29.818]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [14:17:29.283] - Received FutureResult
  [14:17:29.818]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [14:17:29.284] - Erased future from FutureRegistry
  [14:17:29.819]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [14:17:29.285] result() for ClusterFuture ...
  [14:17:29.820]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [14:17:29.286] - result already collected: FutureResult
  [14:17:29.820]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [14:17:29.286] result() for ClusterFuture ... done
  [14:17:29.821]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [14:17:29.287] signalConditions() ...
  [14:17:29.821]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [14:17:29.288]  - include = 'immediateCondition'
  [14:17:29.822]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [14:17:29.289]  - exclude = 
  [14:17:29.822]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [14:17:29.290]  - resignal = FALSE
  [14:17:29.823]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [14:17:29.290]  - Number of conditions: 2
  [14:17:29.824]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [14:17:29.293] signalConditions() ... done
  [14:17:29.824]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [14:17:29.294] receiveMessageFromWorker() for ClusterFuture ... done
  [14:17:29.825]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [14:17:29.295] Future #2
  [14:17:29.826]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [14:17:29.296] result() for ClusterFuture ...
  [14:17:29.826]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [14:17:29.296] - result already collected: FutureResult
  [14:17:29.827]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [14:17:29.297] result() for ClusterFuture ... done
  [14:17:29.828]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [14:17:29.298] result() for ClusterFuture ...
  [14:17:29.828]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [14:17:29.299] - result already collected: FutureResult
  [14:17:29.829]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [14:17:29.299] result() for ClusterFuture ... done
  [14:17:29.829]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [14:17:29.300] signalConditions() ...
  [14:17:29.830]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [14:17:29.301]  - include = 'immediateCondition'
  [14:17:29.831]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [14:17:29.302]  - exclude = 
  [14:17:29.831]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [14:17:29.303]  - resignal = FALSE
  [14:17:29.832]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [14:17:29.303]  - Number of conditions: 2
  [14:17:29.832]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [14:17:29.304] signalConditions() ... done
  [14:17:29.833]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [14:17:29.305] signalConditionsASAP(ClusterFuture, pos=2) ...
  [14:17:29.834]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [14:17:29.306] - nx: 2
  [14:17:29.834]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [14:17:29.307] - relay: TRUE
  [14:17:29.835]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [14:17:29.307] - stdout: TRUE
  [14:17:29.836]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [14:17:29.308] - signal: TRUE
  [14:17:29.836]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [14:17:29.309] - resignal: FALSE
  [14:17:29.837]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [14:17:29.310] - force: FALSE
  [14:17:29.838]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [14:17:29.310] - relayed: [n=2] TRUE, FALSE
  [14:17:29.838]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [14:17:29.311] - queued futures: [n=2] TRUE, FALSE
  [14:17:29.839]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [14:17:29.312]  - until=2
  [14:17:29.839]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [14:17:29.313]  - relaying element #2
  [14:17:29.840]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [14:17:29.314] result() for ClusterFuture ...
  [14:17:29.841]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [14:17:29.315] - result already collected: FutureResult
  [14:17:29.841]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [14:17:29.315] result() for ClusterFuture ... done
  [14:17:29.842]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [14:17:29.316] result() for ClusterFuture ...
  [14:17:29.842]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [14:17:29.317] - result already collected: FutureResult
  [14:17:29.843]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [14:17:29.318] result() for ClusterFuture ... done
  [14:17:29.844]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [14:17:29.319] signalConditions() ...
  [14:17:29.844]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [14:17:29.319]  - include = 'immediateCondition'
  [14:17:29.845]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [14:17:29.326]  - exclude = 
  [14:17:29.846]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [14:17:29.327]  - resignal = FALSE
  [14:17:29.846]  - Condition #532: 'simpleMessage', 'message', 'condition'
  [14:17:29.328]  - Number of conditions: 2
  [14:17:29.847]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [14:17:29.329] signalConditions() ... done
  [14:17:29.847]  - Condition #534: 'simpleMessage', 'message', 'condition'
  [14:17:29.330] result() for ClusterFuture ...
  [14:17:29.848]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [14:17:29.331] - result already collected: FutureResult
  [14:17:29.849]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [14:17:29.332] result() for ClusterFuture ... done
  [14:17:29.849]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [14:17:29.332] signalConditions() ...
  [14:17:29.850]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [14:17:29.333]  - include = 'immediateCondition'
  [14:17:29.851]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [14:17:29.333]  - exclude = 
  [14:17:29.851]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [14:17:29.334]  - resignal = FALSE
  [14:17:29.852]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [14:17:29.335]  - Number of conditions: 2
  [14:17:29.853]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [14:17:29.336] signalConditions() ... done
  [14:17:29.853]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [14:17:29.337] result() for ClusterFuture ...
  [14:17:29.854]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [14:17:29.337] - result already collected: FutureResult
  [14:17:29.855]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [14:17:29.338] result() for ClusterFuture ... done
  [14:17:29.855]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [14:17:29.339] signalConditions() ...
  [14:17:29.856]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [14:17:29.340]  - include = 'condition'
  [14:17:29.856]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [14:17:29.340]  - exclude = 'immediateCondition'
  [14:17:29.857]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [14:17:29.341]  - resignal = FALSE
  [14:17:29.858]  - Condition #550: 'simpleMessage', 'message', 'condition'
  [14:17:29.342]  - Number of conditions: 2
  [14:17:29.858]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [14:17:29.343]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:29.859]  - 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
  [14:17:29.860]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [14:17:29.344]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:29.860]  - 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
  [14:17:29.861]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [14:17:29.345] signalConditions() ... done
  [14:17:29.861]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [14:17:29.346] - relayed: [n=2] TRUE, TRUE
  [14:17:29.862]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [14:17:29.347] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.863]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [14:17:29.347] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [14:17:29.863]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [14:17:29.348]  length: 0 (resolved future 2)
  [14:17:29.864]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [14:17:29.349] Relaying remaining futures
  [14:17:29.864]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [14:17:29.349] signalConditionsASAP(NULL, pos=0) ...
  [14:17:29.865]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [14:17:29.350] - nx: 2
  [14:17:29.866]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [14:17:29.351] - relay: TRUE
  [14:17:29.866]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [14:17:29.352] - stdout: TRUE
  [14:17:29.867]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [14:17:29.352] - signal: TRUE
  [14:17:29.867]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [14:17:29.353] - resignal: FALSE
  [14:17:29.868]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [14:17:29.354] - force: FALSE
  [14:17:29.869]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [14:17:29.355] - relayed: [n=2] TRUE, TRUE
  [14:17:29.869]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [14:17:29.355] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.870]  - Condition #570: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:29.870]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [14:17:29.357] - relayed: [n=2] TRUE, TRUE
  [14:17:29.871]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [14:17:29.358] - queued futures: [n=2] TRUE, TRUE
  [14:17:29.871]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [14:17:29.358] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:29.872]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [14:17:29.359] resolve() on list ... DONE
  [14:17:29.872]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [14:17:29.360] - collecting values of futures
  [14:17:29.873]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [14:17:29.361] result() for ClusterFuture ...
  [14:17:29.873]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [14:17:29.362] - result already collected: FutureResult
  [14:17:29.874]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [14:17:29.363] result() for ClusterFuture ... done
  [14:17:29.874]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [14:17:29.364] result() for ClusterFuture ...
  [14:17:29.875]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [14:17:29.365] - result already collected: FutureResult
  [14:17:29.876]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [14:17:29.365] result() for ClusterFuture ... done
  [14:17:29.876]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [14:17:29.366] signalConditions() ...
  [14:17:29.877]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [14:17:29.367]  - include = 'immediateCondition'
  [14:17:29.877]  - Condition #584: 'simpleMessage', 'message', 'condition'
  [14:17:29.368]  - exclude = 
  [14:17:29.878]  - Condition #585: 'simpleMessage', 'message', 'condition'
  [14:17:29.368]  - resignal = FALSE
  [14:17:29.878]  - Condition #586: 'simpleMessage', 'message', 'condition'
  [14:17:29.369]  - Number of conditions: 1
  [14:17:29.879]  - Condition #587: 'simpleMessage', 'message', 'condition'
  [14:17:29.370] signalConditions() ... done
  [14:17:29.880]  - Condition #588: 'simpleMessage', 'message', 'condition'
  [14:17:29.371] result() for ClusterFuture ...
  [14:17:29.880]  - Condition #589: 'simpleMessage', 'message', 'condition'
  [14:17:29.371] - result already collected: FutureResult
  [14:17:29.881]  - Condition #590: 'simpleMessage', 'message', 'condition'
  [14:17:29.372] result() for ClusterFuture ... done
  [14:17:29.882]  - Condition #591: 'simpleMessage', 'message', 'condition'
  [14:17:29.373] result() for ClusterFuture ...
  [14:17:29.882]  - Condition #592: 'simpleMessage', 'message', 'condition'
  [14:17:29.374] - result already collected: FutureResult
  [14:17:29.883]  - Condition #593: 'simpleMessage', 'message', 'condition'
  [14:17:29.374] result() for ClusterFuture ... done
  [14:17:29.884]  - Condition #594: 'simpleMessage', 'message', 'condition'
  [14:17:29.376] signalConditions() ...
  [14:17:29.884]  - Condition #595: 'simpleMessage', 'message', 'condition'
  [14:17:29.376]  - include = 'immediateCondition'
  [14:17:29.885]  - Condition #596: 'simpleMessage', 'message', 'condition'
  [14:17:29.377]  - exclude = 
  [14:17:29.885]  - Condition #597: 'simpleMessage', 'message', 'condition'
  [14:17:29.378]  - resignal = FALSE
  [14:17:29.886]  - Condition #598: 'simpleMessage', 'message', 'condition'
  [14:17:29.379]  - Number of conditions: 2
  [14:17:29.886]  - Condition #599: 'simpleMessage', 'message', 'condition'
  [14:17:29.380] signalConditions() ... done
  [14:17:29.887]  - Condition #600: 'simpleMessage', 'message', 'condition'
  [14:17:29.380] - accumulating results
  [14:17:29.888]  - Condition #601: 'simpleMessage', 'message', 'condition'
  [14:17:29.382] - processing errors (handler = 'stop')
  [14:17:29.888]  - Condition #602: 'simpleMessage', 'message', 'condition'
  [14:17:29.383] - extracting results
  [14:17:29.889]  - Condition #603: 'simpleMessage', 'message', 'condition'
  [14:17:29.384] doFuture() ... DONE
  [14:17:29.889]  - Condition #604: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:29.891] signalConditions() ... done
  [14:17:29.892] - relayed: [n=1] TRUE
  [14:17:29.893] - queued futures: [n=1] TRUE
  [14:17:29.893] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:29.894]  length: 0 (resolved future 1)
  [14:17:29.894] Relaying remaining futures
  [14:17:29.895] signalConditionsASAP(NULL, pos=0) ...
  [14:17:29.895] - nx: 1
  [14:17:29.895] - relay: TRUE
  [14:17:29.896] - stdout: TRUE
  [14:17:29.896] - signal: TRUE
  [14:17:29.897] - resignal: FALSE
  [14:17:29.897] - force: FALSE
  [14:17:29.897] - relayed: [n=1] TRUE
  [14:17:29.898] - queued futures: [n=1] TRUE
   - flush all
  [14:17:29.899] - relayed: [n=1] TRUE
  [14:17:29.899] - queued futures: [n=1] TRUE
  [14:17:29.900] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:29.900] resolve() on list ... DONE
  [14:17:29.900] - collecting values of futures
  [14:17:29.901] signalConditions() ...
  [14:17:29.901]  - include = 'immediateCondition'
  [14:17:29.902]  - exclude = 
  [14:17:29.902]  - resignal = FALSE
  [14:17:29.903]  - Number of conditions: 604
  [14:17:29.904] signalConditions() ... done
  [14:17:29.905] - accumulating results
  [14:17:29.907] - processing errors (handler = 'stop')
  [14:17:29.907] - extracting results
  [14:17:29.907] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [14:17:29.909] plan(): Setting new future strategy stack:
  [14:17:29.911] List of future strategies:
  [14:17:29.911] 1. multicore:
  [14:17:29.911]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:29.911]    - tweaked: FALSE
  [14:17:29.911]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:29.911] 2. sequential:
  [14:17:29.911]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:29.911]    - tweaked: FALSE
  [14:17:29.911]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:29.915] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:17:29.916] doFuture() ...
  [14:17:29.919] - dummy globals (as locals): [1] 'a'
  [14:17:29.920] - R expression:
  [14:17:29.920] {
  [14:17:29.920]     doFuture::registerDoFuture()
  [14:17:29.920]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:29.920]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:29.920]         a <- NULL
  [14:17:29.920]         ...future.env <- environment()
  [14:17:29.920]         local({
  [14:17:29.920]             for (name in names(...future.x_jj)) {
  [14:17:29.920]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:29.920]                   inherits = FALSE)
  [14:17:29.920]             }
  [14:17:29.920]         })
  [14:17:29.920]         tryCatch({
  [14:17:29.920]             plan_list <- future::plan("next")
  [14:17:29.920]             stopifnot(inherits(plan_list, strategy2))
  [14:17:29.920]             plan_a <- future::plan("list")
  [14:17:29.920]             str(plan_a)
  [14:17:29.920]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:29.920]             message("foreach() - level 2 ...")
  [14:17:29.920]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:29.920]                 {
  [14:17:29.920]                   plan_list <- future::plan("next")
  [14:17:29.920]                   message(capture.output(print(plan_list)))
  [14:17:29.920]                   stopifnot(inherits(plan_list, "future"))
  [14:17:29.920]                   default <- getOption("future.plan", "sequential")
  [14:17:29.920]                   if (is.function(default)) 
  [14:17:29.920]                     default <- class(default)
  [14:17:29.920]                   stopifnot(inherits(plan_list, default))
  [14:17:29.920]                   plan_b <- future::plan("list")
  [14:17:29.920]                   str(plan_b)
  [14:17:29.920]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:29.920]                     inherits(plan_b[[1]], default))
  [14:17:29.920]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:29.920]                 }
  [14:17:29.920]             message("foreach() - level 2 ... DONE")
  [14:17:29.920]             y
  [14:17:29.920]         }, error = identity)
  [14:17:29.920]     })
  [14:17:29.920] }
  [14:17:29.922] - identifying globals and packages ...
  [14:17:29.923] getGlobalsAndPackages() ...
  [14:17:29.923] Searching for globals...
  [14:17:29.965] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:17:29.966] Searching for globals ... DONE
  [14:17:29.967] Resolving globals: FALSE
  [14:17:29.970] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:17:29.971] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:29.972] - packages: [2] 'utils', 'foreach'
  [14:17:29.972] getGlobalsAndPackages() ... DONE
  [14:17:29.973] List of 3
  [14:17:29.973]  $ ...future.x_ii: NULL
  [14:17:29.973]  $ strategy2     : chr "sequential"
  [14:17:29.973]  $ bs            : int [1:3] 3 2 1
  [14:17:29.973]  - attr(*, "where")=List of 3
  [14:17:29.973]   ..$ ...future.x_ii:<environment: 0x41dc630> 
  [14:17:29.973]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:29.973]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:29.973]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:29.973]  - attr(*, "resolved")= logi FALSE
  [14:17:29.973]  - attr(*, "total_size")= num 184
  [14:17:29.989]   - R expression:
  [14:17:29.989] {
  [14:17:29.989]     doFuture::registerDoFuture()
  [14:17:29.989]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:29.989]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:29.989]         a <- NULL
  [14:17:29.989]         ...future.env <- environment()
  [14:17:29.989]         local({
  [14:17:29.989]             for (name in names(...future.x_jj)) {
  [14:17:29.989]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:29.989]                   inherits = FALSE)
  [14:17:29.989]             }
  [14:17:29.989]         })
  [14:17:29.989]         tryCatch({
  [14:17:29.989]             plan_list <- future::plan("next")
  [14:17:29.989]             stopifnot(inherits(plan_list, strategy2))
  [14:17:29.989]             plan_a <- future::plan("list")
  [14:17:29.989]             str(plan_a)
  [14:17:29.989]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:29.989]             message("foreach() - level 2 ...")
  [14:17:29.989]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:29.989]                 {
  [14:17:29.989]                   plan_list <- future::plan("next")
  [14:17:29.989]                   message(capture.output(print(plan_list)))
  [14:17:29.989]                   stopifnot(inherits(plan_list, "future"))
  [14:17:29.989]                   default <- getOption("future.plan", "sequential")
  [14:17:29.989]                   if (is.function(default)) 
  [14:17:29.989]                     default <- class(default)
  [14:17:29.989]                   stopifnot(inherits(plan_list, default))
  [14:17:29.989]                   plan_b <- future::plan("list")
  [14:17:29.989]                   str(plan_b)
  [14:17:29.989]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:29.989]                     inherits(plan_b[[1]], default))
  [14:17:29.989]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:29.989]                 }
  [14:17:29.989]             message("foreach() - level 2 ... DONE")
  [14:17:29.989]             y
  [14:17:29.989]         }, error = identity)
  [14:17:29.989]     })
  [14:17:29.989] }
  [14:17:29.991]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:29.992] List of 3
  [14:17:29.992]  $ ...future.x_ii: NULL
  [14:17:29.992]  $ strategy2     : chr "sequential"
  [14:17:29.992]  $ bs            : int [1:3] 3 2 1
  [14:17:29.992]  - attr(*, "where")=List of 3
  [14:17:29.992]   ..$ ...future.x_ii:<environment: 0x41dc630> 
  [14:17:29.992]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:29.992]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:29.992]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:29.992]  - attr(*, "resolved")= logi FALSE
  [14:17:29.992]  - attr(*, "total_size")= num 184
  [14:17:30.007]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:17:30.008] - identifying globals and packages ... DONE
  [14:17:30.010] Number of chunks: 2
  [14:17:30.011] Number of futures (= number of chunks): 2
  [14:17:30.012] Launching 2 futures (chunks) ...
  [14:17:30.012] Chunk #1 of 2 ...
  [14:17:30.013]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:30.013] getGlobalsAndPackages() ...
  [14:17:30.014] Searching for globals...
  [14:17:30.015] 
  [14:17:30.015] Searching for globals ... DONE
  [14:17:30.016] - globals: [0] <none>
  [14:17:30.016] getGlobalsAndPackages() ... DONE
  [14:17:30.017] 
  [14:17:30.017] 
  [14:17:30.017]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:30.019] getGlobalsAndPackages() ...
  [14:17:30.019] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.020] Resolving globals: FALSE
  [14:17:30.021] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:30.021] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.022] 
  [14:17:30.022] getGlobalsAndPackages() ... DONE
  [14:17:30.026] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:30.026] Packages needed by future strategies (n = 1): 'future'
  [14:17:30.035] {
  [14:17:30.035]     {
  [14:17:30.035]         ...future.startTime <- base::Sys.time()
  [14:17:30.035]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:30.035]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:30.035]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:30.035]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:30.035]             future.resolve.recursive = NULL, width = 80L)
  [14:17:30.035]         {
  [14:17:30.035]             {
  [14:17:30.035]                 {
  [14:17:30.035]                   {
  [14:17:30.035]                     base::local({
  [14:17:30.035]                       has_future <- base::requireNamespace("future", 
  [14:17:30.035]                         quietly = TRUE)
  [14:17:30.035]                       version <- if (has_future) 
  [14:17:30.035]                         utils::packageVersion("future")
  [14:17:30.035]                       else NULL
  [14:17:30.035]                       if (!has_future || version < "1.8.0") {
  [14:17:30.035]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:30.035]                           "", base::R.version$version.string), 
  [14:17:30.035]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:30.035]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:30.035]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:30.035]                             "release", "version")], collapse = " "), 
  [14:17:30.035]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:30.035]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:30.035]                           info)
  [14:17:30.035]                         info <- base::paste(info, collapse = "; ")
  [14:17:30.035]                         if (!has_future) {
  [14:17:30.035]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:30.035]                             info)
  [14:17:30.035]                         }
  [14:17:30.035]                         else {
  [14:17:30.035]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:30.035]                             info, version)
  [14:17:30.035]                         }
  [14:17:30.035]                         base::stop(msg)
  [14:17:30.035]                       }
  [14:17:30.035]                     })
  [14:17:30.035]                   }
  [14:17:30.035]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:30.035]                   base::options(mc.cores = 1L)
  [14:17:30.035]                 }
  [14:17:30.035]                 base::local({
  [14:17:30.035]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:30.035]                   "future")) {
  [14:17:30.035]                     base::loadNamespace(pkg)
  [14:17:30.035]                     base::library(pkg, character.only = TRUE)
  [14:17:30.035]                   }
  [14:17:30.035]                 })
  [14:17:30.035]             }
  [14:17:30.035]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:30.035]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.035]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:17:30.035]                 label = NULL, ...) 
  [14:17:30.035]             {
  [14:17:30.035]                 if (substitute) 
  [14:17:30.035]                   expr <- substitute(expr)
  [14:17:30.035]                 local <- as.logical(local)
  [14:17:30.035]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.035]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.035]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.035]                   label = label, ...)
  [14:17:30.035]                 if (!future$lazy) 
  [14:17:30.035]                   future <- run(future)
  [14:17:30.035]                 invisible(future)
  [14:17:30.035]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.035]         }
  [14:17:30.035]     }
  [14:17:30.035]     if (base::is.na(TRUE)) {
  [14:17:30.035]     }
  [14:17:30.035]     else {
  [14:17:30.035]         if (TRUE) {
  [14:17:30.035]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:30.035]                 open = "w")
  [14:17:30.035]         }
  [14:17:30.035]         else {
  [14:17:30.035]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:30.035]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:30.035]         }
  [14:17:30.035]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:30.035]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:30.035]             base::sink(type = "output", split = FALSE)
  [14:17:30.035]             base::close(...future.stdout)
  [14:17:30.035]         }, add = TRUE)
  [14:17:30.035]     }
  [14:17:30.035]     ...future.frame <- base::sys.nframe()
  [14:17:30.035]     ...future.conditions <- base::list()
  [14:17:30.035]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:30.035]     ...future.result <- base::tryCatch({
  [14:17:30.035]         base::withCallingHandlers({
  [14:17:30.035]             ...future.value <- base::withVisible(base::local({
  [14:17:30.035]                 doFuture::registerDoFuture()
  [14:17:30.035]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.035]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.035]                   a <- NULL
  [14:17:30.035]                   ...future.env <- environment()
  [14:17:30.035]                   local({
  [14:17:30.035]                     for (name in names(...future.x_jj)) {
  [14:17:30.035]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.035]                         inherits = FALSE)
  [14:17:30.035]                     }
  [14:17:30.035]                   })
  [14:17:30.035]                   tryCatch({
  [14:17:30.035]                     plan_list <- future::plan("next")
  [14:17:30.035]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:30.035]                     plan_a <- future::plan("list")
  [14:17:30.035]                     str(plan_a)
  [14:17:30.035]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:30.035]                     message("foreach() - level 2 ...")
  [14:17:30.035]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:30.035]                       {
  [14:17:30.035]                         plan_list <- future::plan("next")
  [14:17:30.035]                         message(capture.output(print(plan_list)))
  [14:17:30.035]                         stopifnot(inherits(plan_list, "future"))
  [14:17:30.035]                         default <- getOption("future.plan", "sequential")
  [14:17:30.035]                         if (is.function(default)) 
  [14:17:30.035]                           default <- class(default)
  [14:17:30.035]                         stopifnot(inherits(plan_list, default))
  [14:17:30.035]                         plan_b <- future::plan("list")
  [14:17:30.035]                         str(plan_b)
  [14:17:30.035]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.035]                           inherits(plan_b[[1]], default))
  [14:17:30.035]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.035]                       }
  [14:17:30.035]                     message("foreach() - level 2 ... DONE")
  [14:17:30.035]                     y
  [14:17:30.035]                   }, error = identity)
  [14:17:30.035]                 })
  [14:17:30.035]             }))
  [14:17:30.035]             future::FutureResult(value = ...future.value$value, 
  [14:17:30.035]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.035]                   ...future.rng), started = ...future.startTime, 
  [14:17:30.035]                 version = "1.8")
  [14:17:30.035]         }, condition = base::local({
  [14:17:30.035]             c <- base::c
  [14:17:30.035]             inherits <- base::inherits
  [14:17:30.035]             invokeRestart <- base::invokeRestart
  [14:17:30.035]             length <- base::length
  [14:17:30.035]             list <- base::list
  [14:17:30.035]             seq.int <- base::seq.int
  [14:17:30.035]             signalCondition <- base::signalCondition
  [14:17:30.035]             sys.calls <- base::sys.calls
  [14:17:30.035]             Sys.time <- base::Sys.time
  [14:17:30.035]             `[[` <- base::`[[`
  [14:17:30.035]             `+` <- base::`+`
  [14:17:30.035]             `<<-` <- base::`<<-`
  [14:17:30.035]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:30.035]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:30.035]                   3L)]
  [14:17:30.035]             }
  [14:17:30.035]             function(cond) {
  [14:17:30.035]                 if (inherits(cond, "error")) {
  [14:17:30.035]                   sessionInformation <- function() {
  [14:17:30.035]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:30.035]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:30.035]                       search = base::search(), system = base::Sys.info())
  [14:17:30.035]                   }
  [14:17:30.035]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.035]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:30.035]                     cond$call), session = sessionInformation(), 
  [14:17:30.035]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:30.035]                   signalCondition(cond)
  [14:17:30.035]                 }
  [14:17:30.035]                 else if (inherits(cond, "condition")) {
  [14:17:30.035]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:30.035]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.035]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:30.035]                   if (!signal) {
  [14:17:30.035]                     muffleCondition <- function (cond) 
  [14:17:30.035]                     {
  [14:17:30.035]                       inherits <- base::inherits
  [14:17:30.035]                       invokeRestart <- base::invokeRestart
  [14:17:30.035]                       muffled <- FALSE
  [14:17:30.035]                       if (inherits(cond, "message")) {
  [14:17:30.035]                         invokeRestart("muffleMessage")
  [14:17:30.035]                         muffled <- TRUE
  [14:17:30.035]                       }
  [14:17:30.035]                       else if (inherits(cond, "warning")) {
  [14:17:30.035]                         invokeRestart("muffleWarning")
  [14:17:30.035]                         muffled <- TRUE
  [14:17:30.035]                       }
  [14:17:30.035]                       else if (inherits(cond, "condition")) {
  [14:17:30.035]                         computeRestarts <- base::computeRestarts
  [14:17:30.035]                         grepl <- base::grepl
  [14:17:30.035]                         is.null <- base::is.null
  [14:17:30.035]                         restarts <- computeRestarts(cond)
  [14:17:30.035]                         for (restart in restarts) {
  [14:17:30.035]                           name <- restart$name
  [14:17:30.035]                           if (is.null(name)) 
  [14:17:30.035]                             next
  [14:17:30.035]                           if (!grepl("^muffle", name)) 
  [14:17:30.035]                             next
  [14:17:30.035]                           invokeRestart(restart)
  [14:17:30.035]                           muffled <- TRUE
  [14:17:30.035]                           break
  [14:17:30.035]                         }
  [14:17:30.035]                       }
  [14:17:30.035]                       invisible(muffled)
  [14:17:30.035]                     }
  [14:17:30.035]                     muffleCondition(cond)
  [14:17:30.035]                   }
  [14:17:30.035]                 }
  [14:17:30.035]             }
  [14:17:30.035]         }))
  [14:17:30.035]     }, error = function(ex) {
  [14:17:30.035]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:30.035]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.035]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:30.035]     }, finally = {
  [14:17:30.035]         {
  [14:17:30.035]             {
  [14:17:30.035]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:30.035]             }
  [14:17:30.035]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:30.035]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.035]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:30.035]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.035]             {
  [14:17:30.035]                 if (substitute) 
  [14:17:30.035]                   expr <- substitute(expr)
  [14:17:30.035]                 if (is.function(workers)) 
  [14:17:30.035]                   workers <- workers()
  [14:17:30.035]                 workers <- as.integer(workers)
  [14:17:30.035]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:30.035]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:30.035]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:30.035]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:30.035]                     local = TRUE, label = label, ...))
  [14:17:30.035]                 }
  [14:17:30.035]                 oopts <- options(mc.cores = workers)
  [14:17:30.035]                 on.exit(options(oopts))
  [14:17:30.035]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:30.035]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.035]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:30.035]                   label = label, ...)
  [14:17:30.035]                 if (!future$lazy) 
  [14:17:30.035]                   future <- run(future)
  [14:17:30.035]                 invisible(future)
  [14:17:30.035]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:30.035]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:17:30.035]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.035]             {
  [14:17:30.035]                 if (substitute) 
  [14:17:30.035]                   expr <- substitute(expr)
  [14:17:30.035]                 local <- as.logical(local)
  [14:17:30.035]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.035]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.035]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.035]                   label = label, ...)
  [14:17:30.035]                 if (!future$lazy) 
  [14:17:30.035]                   future <- run(future)
  [14:17:30.035]                 invisible(future)
  [14:17:30.035]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.035]         }
  [14:17:30.035]         base::options(...future.oldOptions)
  [14:17:30.035]     })
  [14:17:30.035]     Sys.time
  [14:17:30.035]     if (base::is.na(TRUE)) {
  [14:17:30.035]     }
  [14:17:30.035]     else {
  [14:17:30.035]         base::sink(type = "output", split = FALSE)
  [14:17:30.035]         if (TRUE) {
  [14:17:30.035]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:30.035]         }
  [14:17:30.035]         else {
  [14:17:30.035]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:30.035]         }
  [14:17:30.035]         base::close(...future.stdout)
  [14:17:30.035]         ...future.stdout <- NULL
  [14:17:30.035]     }
  [14:17:30.035]     ...future.result$conditions <- ...future.conditions
  [14:17:30.035]     ...future.result
  [14:17:30.035] }
  [14:17:30.046] requestCore(): workers = 2
  [14:17:30.051] MulticoreFuture started
  [14:17:30.053] Chunk #1 of 2 ... DONE
  [14:17:30.053] Chunk #2 of 2 ...
  [14:17:30.054]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:30.054] getGlobalsAndPackages() ...
  [14:17:30.055] Searching for globals...
  [14:17:30.057] 
  [14:17:30.057] Searching for globals ... DONE
  [14:17:30.058] - globals: [0] <none>
  [14:17:30.058] getGlobalsAndPackages() ... DONE
  [14:17:30.059] 
  [14:17:30.059] 
  [14:17:30.060]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:30.062] plan(): Setting new future strategy stack:
  [14:17:30.063] getGlobalsAndPackages() ...
  [14:17:30.063] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.064] Resolving globals: FALSE
  [14:17:30.063] List of future strategies:
  [14:17:30.063] 1. sequential:
  [14:17:30.063]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.063]    - tweaked: FALSE
  [14:17:30.063]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.065] plan(): nbrOfWorkers() = 1
  [14:17:30.066] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:30.067] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.067] 
  [14:17:30.068] getGlobalsAndPackages() ... DONE
  [14:17:30.072] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:30.073] Packages needed by future strategies (n = 1): 'future'
  [14:17:30.096] {
  [14:17:30.096]     {
  [14:17:30.096]         ...future.startTime <- base::Sys.time()
  [14:17:30.096]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:30.096]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:30.096]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:30.096]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:30.096]             future.resolve.recursive = NULL, width = 80L)
  [14:17:30.096]         {
  [14:17:30.096]             {
  [14:17:30.096]                 {
  [14:17:30.096]                   {
  [14:17:30.096]                     base::local({
  [14:17:30.096]                       has_future <- base::requireNamespace("future", 
  [14:17:30.096]                         quietly = TRUE)
  [14:17:30.096]                       version <- if (has_future) 
  [14:17:30.096]                         utils::packageVersion("future")
  [14:17:30.096]                       else NULL
  [14:17:30.096]                       if (!has_future || version < "1.8.0") {
  [14:17:30.096]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:30.096]                           "", base::R.version$version.string), 
  [14:17:30.096]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:30.096]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:30.096]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:30.096]                             "release", "version")], collapse = " "), 
  [14:17:30.096]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:30.096]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:30.096]                           info)
  [14:17:30.096]                         info <- base::paste(info, collapse = "; ")
  [14:17:30.096]                         if (!has_future) {
  [14:17:30.096]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:30.096]                             info)
  [14:17:30.096]                         }
  [14:17:30.096]                         else {
  [14:17:30.096]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:30.096]                             info, version)
  [14:17:30.096]                         }
  [14:17:30.096]                         base::stop(msg)
  [14:17:30.096]                       }
  [14:17:30.096]                     })
  [14:17:30.096]                   }
  [14:17:30.096]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:30.096]                   base::options(mc.cores = 1L)
  [14:17:30.096]                 }
  [14:17:30.096]                 base::local({
  [14:17:30.096]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:30.096]                   "future")) {
  [14:17:30.096]                     base::loadNamespace(pkg)
  [14:17:30.096]                     base::library(pkg, character.only = TRUE)
  [14:17:30.096]                   }
  [14:17:30.096]                 })
  [14:17:30.096]             }
  [14:17:30.096]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:30.096]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.096]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:17:30.096]                 label = NULL, ...) 
  [14:17:30.096]             {
  [14:17:30.096]                 if (substitute) 
  [14:17:30.096]                   expr <- substitute(expr)
  [14:17:30.096]                 local <- as.logical(local)
  [14:17:30.096]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.096]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.096]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.096]                   label = label, ...)
  [14:17:30.096]                 if (!future$lazy) 
  [14:17:30.096]                   future <- run(future)
  [14:17:30.096]                 invisible(future)
  [14:17:30.096]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.096]         }
  [14:17:30.096]     }
  [14:17:30.096]     if (base::is.na(TRUE)) {
  [14:17:30.096]     }
  [14:17:30.096]     else {
  [14:17:30.096]         if (TRUE) {
  [14:17:30.096]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:30.096]                 open = "w")
  [14:17:30.096]         }
  [14:17:30.096]         else {
  [14:17:30.096]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:30.096]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:30.096]         }
  [14:17:30.096]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:30.096]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:30.096]             base::sink(type = "output", split = FALSE)
  [14:17:30.096]             base::close(...future.stdout)
  [14:17:30.096]         }, add = TRUE)
  [14:17:30.096]     }
  [14:17:30.096]     ...future.frame <- base::sys.nframe()
  [14:17:30.096]     ...future.conditions <- base::list()
  [14:17:30.096]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:30.096]     ...future.result <- base::tryCatch({
  [14:17:30.096]         base::withCallingHandlers({
  [14:17:30.096]             ...future.value <- base::withVisible(base::local({
  [14:17:30.096]                 doFuture::registerDoFuture()
  [14:17:30.096]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.096]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.096]                   a <- NULL
  [14:17:30.096]                   ...future.env <- environment()
  [14:17:30.096]                   local({
  [14:17:30.096]                     for (name in names(...future.x_jj)) {
  [14:17:30.096]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.096]                         inherits = FALSE)
  [14:17:30.096]                     }
  [14:17:30.096]                   })
  [14:17:30.096]                   tryCatch({
  [14:17:30.096]                     plan_list <- future::plan("next")
  [14:17:30.096]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:30.096]                     plan_a <- future::plan("list")
  [14:17:30.096]                     str(plan_a)
  [14:17:30.096]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:30.096]                     message("foreach() - level 2 ...")
  [14:17:30.096]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:30.096]                       {
  [14:17:30.096]                         plan_list <- future::plan("next")
  [14:17:30.096]                         message(capture.output(print(plan_list)))
  [14:17:30.096]                         stopifnot(inherits(plan_list, "future"))
  [14:17:30.096]                         default <- getOption("future.plan", "sequential")
  [14:17:30.096]                         if (is.function(default)) 
  [14:17:30.096]                           default <- class(default)
  [14:17:30.096]                         stopifnot(inherits(plan_list, default))
  [14:17:30.096]                         plan_b <- future::plan("list")
  [14:17:30.096]                         str(plan_b)
  [14:17:30.096]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.096]                           inherits(plan_b[[1]], default))
  [14:17:30.096]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.096]                       }
  [14:17:30.096]                     message("foreach() - level 2 ... DONE")
  [14:17:30.096]                     y
  [14:17:30.096]                   }, error = identity)
  [14:17:30.096]                 })
  [14:17:30.096]             }))
  [14:17:30.096]             future::FutureResult(value = ...future.value$value, 
  [14:17:30.096]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.096]                   ...future.rng), started = ...future.startTime, 
  [14:17:30.096]                 version = "1.8")
  [14:17:30.096]         }, condition = base::local({
  [14:17:30.096]             c <- base::c
  [14:17:30.096]             inherits <- base::inherits
  [14:17:30.096]             invokeRestart <- base::invokeRestart
  [14:17:30.096]             length <- base::length
  [14:17:30.096]             list <- base::list
  [14:17:30.096]             seq.int <- base::seq.int
  [14:17:30.096]             signalCondition <- base::signalCondition
  [14:17:30.096]             sys.calls <- base::sys.calls
  [14:17:30.096]             Sys.time <- base::Sys.time
  [14:17:30.096]             `[[` <- base::`[[`
  [14:17:30.096]             `+` <- base::`+`
  [14:17:30.096]             `<<-` <- base::`<<-`
  [14:17:30.096]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:30.096]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:30.096]                   3L)]
  [14:17:30.096]             }
  [14:17:30.096]             function(cond) {
  [14:17:30.096]                 if (inherits(cond, "error")) {
  [14:17:30.096]                   sessionInformation <- function() {
  [14:17:30.096]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:30.096]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:30.096]                       search = base::search(), system = base::Sys.info())
  [14:17:30.096]                   }
  [14:17:30.096]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.096]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:30.096]                     cond$call), session = sessionInformation(), 
  [14:17:30.096]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:30.096]                   signalCondition(cond)
  [14:17:30.096]                 }
  [14:17:30.096]                 else if (inherits(cond, "condition")) {
  [14:17:30.096]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:30.096]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.096]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:30.096]                   if (!signal) {
  [14:17:30.096]                     muffleCondition <- function (cond) 
  [14:17:30.096]                     {
  [14:17:30.096]                       inherits <- base::inherits
  [14:17:30.096]                       invokeRestart <- base::invokeRestart
  [14:17:30.096]                       muffled <- FALSE
  [14:17:30.096]                       if (inherits(cond, "message")) {
  [14:17:30.096]                         invokeRestart("muffleMessage")
  [14:17:30.096]                         muffled <- TRUE
  [14:17:30.096]                       }
  [14:17:30.096]                       else if (inherits(cond, "warning")) {
  [14:17:30.096]                         invokeRestart("muffleWarning")
  [14:17:30.096]                         muffled <- TRUE
  [14:17:30.096]                       }
  [14:17:30.096]                       else if (inherits(cond, "condition")) {
  [14:17:30.096]                         computeRestarts <- base::computeRestarts
  [14:17:30.096]                         grepl <- base::grepl
  [14:17:30.096]                         is.null <- base::is.null
  [14:17:30.096]                         restarts <- computeRestarts(cond)
  [14:17:30.096]                         for (restart in restarts) {
  [14:17:30.096]                           name <- restart$name
  [14:17:30.096]                           if (is.null(name)) 
  [14:17:30.096]                             next
  [14:17:30.096]                           if (!grepl("^muffle", name)) 
  [14:17:30.096]                             next
  [14:17:30.096]                           invokeRestart(restart)
  [14:17:30.096]                           muffled <- TRUE
  [14:17:30.096]                           break
  [14:17:30.096]                         }
  [14:17:30.096]                       }
  [14:17:30.096]                       invisible(muffled)
  [14:17:30.096]                     }
  [14:17:30.096]                     muffleCondition(cond)
  [14:17:30.096]                   }
  [14:17:30.096]                 }
  [14:17:30.096]             }
  [14:17:30.096]         }))
  [14:17:30.096]     }, error = function(ex) {
  [14:17:30.096]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:30.096]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.096]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:30.096]     }, finally = {
  [14:17:30.096]         {
  [14:17:30.096]             {
  [14:17:30.096]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:30.096]             }
  [14:17:30.096]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:30.096]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.096]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:30.096]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.096]             {
  [14:17:30.096]                 if (substitute) 
  [14:17:30.096]                   expr <- substitute(expr)
  [14:17:30.096]                 if (is.function(workers)) 
  [14:17:30.096]                   workers <- workers()
  [14:17:30.096]                 workers <- as.integer(workers)
  [14:17:30.096]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:30.096]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:30.096]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:30.096]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:30.096]                     local = TRUE, label = label, ...))
  [14:17:30.096]                 }
  [14:17:30.096]                 oopts <- options(mc.cores = workers)
  [14:17:30.096]                 on.exit(options(oopts))
  [14:17:30.096]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:30.096]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.096]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:30.096]                   label = label, ...)
  [14:17:30.096]                 if (!future$lazy) 
  [14:17:30.096]                   future <- run(future)
  [14:17:30.096]                 invisible(future)
  [14:17:30.096]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:30.096]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [14:17:30.096]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.096]             {
  [14:17:30.096]                 if (substitute) 
  [14:17:30.096]                   expr <- substitute(expr)
  [14:17:30.096]                 local <- as.logical(local)
  [14:17:30.096]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.096]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.096]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.096]                   label = label, ...)
  [14:17:30.096]                 if (!future$lazy) 
  [14:17:30.096]                   future <- run(future)
  [14:17:30.096]                 invisible(future)
  [14:17:30.096]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.096]         }
  [14:17:30.096]         base::options(...future.oldOptions)
  [14:17:30.096]     })
  [14:17:30.096]     Sys.time
  [14:17:30.096]     if (base::is.na(TRUE)) {
  [14:17:30.096]     }
  [14:17:30.096]     else {
  [14:17:30.096]         base::sink(type = "output", split = FALSE)
  [14:17:30.096]         if (TRUE) {
  [14:17:30.096]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:30.096]         }
  [14:17:30.096]         else {
  [14:17:30.096]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:30.096]         }
  [14:17:30.096]         base::close(...future.stdout)
  [14:17:30.096]         ...future.stdout <- NULL
  [14:17:30.096]     }
  [14:17:30.096]     ...future.result$conditions <- ...future.conditions
  [14:17:30.096]     ...future.result
  [14:17:30.096] }
  [14:17:30.107] requestCore(): workers = 2
  [14:17:30.114] MulticoreFuture started
  [14:17:30.116] Chunk #2 of 2 ... DONE
  [14:17:30.117] Launching 2 futures (chunks) ... DONE
  [14:17:30.117] - resolving futures
  [14:17:30.118]   - gathering results & relaying conditions (except errors)
  [14:17:30.119] resolve() on list ...
  [14:17:30.119]  recursive: 0
  [14:17:30.120]  length: 2
  [14:17:30.120] 
  [14:17:30.132] plan(): Setting new future strategy stack:
  [14:17:30.133] List of future strategies:
  [14:17:30.133] 1. sequential:
  [14:17:30.133]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.133]    - tweaked: FALSE
  [14:17:30.133]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.136] plan(): nbrOfWorkers() = 1
  [14:17:30.399] plan(): Setting new future strategy stack:
  [14:17:30.400] List of future strategies:
  [14:17:30.400] 1. multicore:
  [14:17:30.400]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:30.400]    - tweaked: FALSE
  [14:17:30.400]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.400] 2. sequential:
  [14:17:30.400]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.400]    - tweaked: FALSE
  [14:17:30.400]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.403] plan(): nbrOfWorkers() = 2
  [14:17:30.455] plan(): Setting new future strategy stack:
  [14:17:30.456] List of future strategies:
  [14:17:30.456] 1. multicore:
  [14:17:30.456]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:30.456]    - tweaked: FALSE
  [14:17:30.456]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.456] 2. sequential:
  [14:17:30.456]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.456]    - tweaked: FALSE
  [14:17:30.456]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.459] plan(): nbrOfWorkers() = 2
  [14:17:30.462] Future #2
  [14:17:30.468] signalConditions() ...
  [14:17:30.468]  - include = 'immediateCondition'
  [14:17:30.469]  - exclude = 
  [14:17:30.470]  - resignal = FALSE
  [14:17:30.470]  - Number of conditions: 140
  [14:17:30.471] signalConditions() ... done
  [14:17:30.472] signalConditions() ...
  [14:17:30.473]  - include = 'immediateCondition'
  [14:17:30.473]  - exclude = 
  [14:17:30.474]  - resignal = FALSE
  [14:17:30.474]  - Number of conditions: 140
  [14:17:30.477] signalConditions() ... done
  [14:17:30.478] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:17:30.478] - nx: 2
  [14:17:30.479] - relay: TRUE
  [14:17:30.479] - stdout: TRUE
  [14:17:30.483] - signal: TRUE
  [14:17:30.484] - resignal: FALSE
  [14:17:30.484] - force: FALSE
  [14:17:30.489] - relayed: [n=2] FALSE, FALSE
  [14:17:30.490] - queued futures: [n=2] FALSE, FALSE
  [14:17:30.490]  - until=1
  [14:17:30.491]  - relaying element #1
  [14:17:30.491] - relayed: [n=2] FALSE, FALSE
  [14:17:30.493] - queued futures: [n=2] FALSE, TRUE
  [14:17:30.493] signalConditionsASAP(NULL, pos=2) ... done
  [14:17:30.494]  length: 1 (resolved future 2)
  [14:17:30.595] Future #1
  [14:17:30.600] signalConditions() ...
  [14:17:30.600]  - include = 'immediateCondition'
  [14:17:30.601]  - exclude = 
  [14:17:30.601]  - resignal = FALSE
  [14:17:30.607]  - Number of conditions: 140
  [14:17:30.609] signalConditions() ... done
  [14:17:30.609] signalConditions() ...
  [14:17:30.615]  - include = 'immediateCondition'
  [14:17:30.616]  - exclude = 
  [14:17:30.616]  - resignal = FALSE
  [14:17:30.618]  - Number of conditions: 140
  [14:17:30.619] signalConditions() ... done
  [14:17:30.620] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:17:30.621] - nx: 2
  [14:17:30.621] - relay: TRUE
  [14:17:30.621] - stdout: TRUE
  [14:17:30.622] - signal: TRUE
  [14:17:30.622] - resignal: FALSE
  [14:17:30.623] - force: FALSE
  [14:17:30.623] - relayed: [n=2] FALSE, FALSE
  [14:17:30.624] - queued futures: [n=2] FALSE, TRUE
  [14:17:30.624]  - until=1
  [14:17:30.625]  - relaying element #1
  [14:17:30.626] signalConditions() ...
  [14:17:30.626]  - include = 'immediateCondition'
  [14:17:30.627]  - exclude = 
  [14:17:30.627]  - resignal = FALSE
  [14:17:30.628]  - Number of conditions: 140
  [14:17:30.629] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.630] signalConditions() ...
  [14:17:30.630]  - include = 'immediateCondition'
  [14:17:30.631]  - exclude = 
  [14:17:30.631]  - resignal = FALSE
  [14:17:30.632]  - Number of conditions: 140
  [14:17:30.633] signalConditions() ... done
  [14:17:30.633] signalConditions() ...
  [14:17:30.634]  - include = 'condition'
  [14:17:30.634]  - exclude = 'immediateCondition'
  [14:17:30.635]  - resignal = FALSE
  [14:17:30.635]  - Number of conditions: 140
  [14:17:30.636]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:30.637]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:30.077] doFuture() ...
  [14:17:30.637]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:30.081] - dummy globals (as locals): [1] 'b'
  [14:17:30.638]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:30.083] - R expression:
  [14:17:30.639]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:30.084] {
  [14:17:30.084]     doFuture::registerDoFuture()
  [14:17:30.084]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.084]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.084]         b <- NULL
  [14:17:30.084]         ...future.env <- environment()
  [14:17:30.084]         local({
  [14:17:30.084]             for (name in names(...future.x_jj)) {
  [14:17:30.084]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.084]                   inherits = FALSE)
  [14:17:30.084]             }
  [14:17:30.084]         })
  [14:17:30.084]         tryCatch({
  [14:17:30.084]             plan_list <- future::plan("next")
  [14:17:30.084]             message(capture.output(print(plan_list)))
  [14:17:30.084]             stopifnot(inherits(plan_list, "future"))
  [14:17:30.084]             default <- getOption("future.plan", "sequential")
  [14:17:30.084]             if (is.function(default)) 
  [14:17:30.084]                 default <- class(default)
  [14:17:30.084]             stopifnot(inherits(plan_list, default))
  [14:17:30.084]             plan_b <- future::plan("list")
  [14:17:30.084]             str(plan_b)
  [14:17:30.084]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:30.084]                 default))
  [14:17:30.084]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.084]         }, error = identity)
  [14:17:30.084]     })
  [14:17:30.084] }
  [14:17:30.639]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:30.088] - identifying globals and packages ...
  [14:17:30.640]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:30.090] getGlobalsAndPackages() ...
  [14:17:30.641]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:30.091] Searching for globals...
  [14:17:30.642]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:30.149] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:30.642]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:30.151] Searching for globals ... DONE
  [14:17:30.643]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:30.152] Resolving globals: FALSE
  [14:17:30.644]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:30.157] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:17:30.644]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:30.158] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.645]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:30.159] - packages: [1] 'utils'
  [14:17:30.646]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:30.160] getGlobalsAndPackages() ... DONE
  [14:17:30.646]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:30.161] List of 3
  [14:17:30.161]  $ ...future.x_ii: NULL
  [14:17:30.161]  $ a             : int 1
  [14:17:30.161]  $ plan_a        :List of 1
  [14:17:30.161]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:30.161]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:17:30.161]     ...)  
  [14:17:30.161]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:17:30.161]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:30.161]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.161]  - attr(*, "where")=List of 3
  [14:17:30.161]   ..$ ...future.x_ii:<environment: 0x5898d58> 
  [14:17:30.161]   ..$ a             :<environment: 0x5701bb0> 
  [14:17:30.161]   ..$ plan_a        :<environment: 0x5701bb0> 
  [14:17:30.161]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.161]  - attr(*, "resolved")= logi FALSE
  [14:17:30.161]  - attr(*, "total_size")= num 40624
  [14:17:30.647]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:30.190]   - R expression:
  [14:17:30.648]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:30.191] {
  [14:17:30.191]     doFuture::registerDoFuture()
  [14:17:30.191]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.191]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.191]         b <- NULL
  [14:17:30.191]         ...future.env <- environment()
  [14:17:30.191]         local({
  [14:17:30.191]             for (name in names(...future.x_jj)) {
  [14:17:30.191]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.191]                   inherits = FALSE)
  [14:17:30.191]             }
  [14:17:30.191]         })
  [14:17:30.191]         tryCatch({
  [14:17:30.191]             plan_list <- future::plan("next")
  [14:17:30.191]             message(capture.output(print(plan_list)))
  [14:17:30.191]             stopifnot(inherits(plan_list, "future"))
  [14:17:30.191]             default <- getOption("future.plan", "sequential")
  [14:17:30.191]             if (is.function(default)) 
  [14:17:30.191]                 default <- class(default)
  [14:17:30.191]             stopifnot(inherits(plan_list, default))
  [14:17:30.191]             plan_b <- future::plan("list")
  [14:17:30.191]             str(plan_b)
  [14:17:30.191]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:30.191]                 default))
  [14:17:30.191]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.191]         }, error = identity)
  [14:17:30.191]     })
  [14:17:30.191] }
  [14:17:30.649]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:30.194]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.649]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:30.195] List of 3
  [14:17:30.195]  $ ...future.x_ii: NULL
  [14:17:30.195]  $ a             : int 1
  [14:17:30.195]  $ plan_a        :List of 1
  [14:17:30.195]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:30.195]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:17:30.195]     ...)  
  [14:17:30.195]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:17:30.195]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:30.195]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.195]  - attr(*, "where")=List of 3
  [14:17:30.195]   ..$ ...future.x_ii:<environment: 0x5898d58> 
  [14:17:30.195]   ..$ a             :<environment: 0x5701bb0> 
  [14:17:30.195]   ..$ plan_a        :<environment: 0x5701bb0> 
  [14:17:30.195]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.195]  - attr(*, "resolved")= logi FALSE
  [14:17:30.195]  - attr(*, "total_size")= num 40624
  [14:17:30.650]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:17:30.225]   - packages: [2] 'doFuture', 'utils'
  [14:17:30.651]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:17:30.226] - identifying globals and packages ... DONE
  [14:17:30.651]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:17:30.227] Number of chunks: 1
  [14:17:30.652]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:17:30.228] Number of futures (= number of chunks): 1
  [14:17:30.653]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:17:30.230] Launching 1 futures (chunks) ...
  [14:17:30.654]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:17:30.231] Chunk #1 of 1 ...
  [14:17:30.654]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:17:30.232]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:30.655]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:17:30.233] getGlobalsAndPackages() ...
  [14:17:30.656]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:17:30.236] Searching for globals...
  [14:17:30.656]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:17:30.238] 
  [14:17:30.657]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:17:30.239] Searching for globals ... DONE
  [14:17:30.659]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:17:30.240] - globals: [0] <none>
  [14:17:30.660]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:17:30.241] getGlobalsAndPackages() ... DONE
  [14:17:30.660]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:17:30.242] 
  [14:17:30.661]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:17:30.243] 
  [14:17:30.662]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:17:30.244]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:30.662]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:17:30.245] getGlobalsAndPackages() ...
  [14:17:30.663]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:17:30.246] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.664]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:17:30.247] Resolving globals: FALSE
  [14:17:30.665]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:17:30.250] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:17:30.665]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:17:30.251] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.666]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:17:30.252] 
  [14:17:30.667]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:17:30.253] getGlobalsAndPackages() ... DONE
  [14:17:30.667]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:17:30.258] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:30.668]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:17:30.259] Packages needed by future strategies (n = 0): <none>
  [14:17:30.669]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:17:30.271] {
  [14:17:30.271]     {
  [14:17:30.271]         ...future.startTime <- base::Sys.time()
  [14:17:30.271]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:30.271]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:30.271]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:30.271]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:30.271]             future.resolve.recursive = NULL, width = 80L)
  [14:17:30.271]         {
  [14:17:30.271]             {
  [14:17:30.271]                 {
  [14:17:30.271]                   base::local({
  [14:17:30.271]                     has_future <- base::requireNamespace("future", 
  [14:17:30.271]                       quietly = TRUE)
  [14:17:30.271]                     version <- if (has_future) 
  [14:17:30.271]                       utils::packageVersion("future")
  [14:17:30.271]                     else NULL
  [14:17:30.271]                     if (!has_future || version < "1.8.0") {
  [14:17:30.271]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:30.271]                         "", base::R.version$version.string), 
  [14:17:30.271]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:30.271]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:30.271]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:30.271]                           "release", "version")], collapse = " "), 
  [14:17:30.271]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:30.271]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:30.271]                         info)
  [14:17:30.271]                       info <- base::paste(info, collapse = "; ")
  [14:17:30.271]                       if (!has_future) {
  [14:17:30.271]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:30.271]                           info)
  [14:17:30.271]                       }
  [14:17:30.271]                       else {
  [14:17:30.271]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:30.271]                           info, version)
  [14:17:30.271]                       }
  [14:17:30.271]                       base::stop(msg)
  [14:17:30.271]                     }
  [14:17:30.271]                   })
  [14:17:30.271]                 }
  [14:17:30.271]                 base::local({
  [14:17:30.271]                   for (pkg in c("doFuture", "utils")) {
  [14:17:30.271]                     base::loadNamespace(pkg)
  [14:17:30.271]                     base::library(pkg, character.only = TRUE)
  [14:17:30.271]                   }
  [14:17:30.271]                 })
  [14:17:30.271]             }
  [14:17:30.271]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:30.271]         }
  [14:17:30.271]     }
  [14:17:30.271]     if (base::is.na(TRUE)) {
  [14:17:30.271]     }
  [14:17:30.271]     else {
  [14:17:30.271]         if (TRUE) {
  [14:17:30.271]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:30.271]                 open = "w")
  [14:17:30.271]         }
  [14:17:30.271]         else {
  [14:17:30.271]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:30.271]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:30.271]         }
  [14:17:30.271]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:30.271]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:30.271]             base::sink(type = "output", split = FALSE)
  [14:17:30.271]             base::close(...future.stdout)
  [14:17:30.271]         }, add = TRUE)
  [14:17:30.271]     }
  [14:17:30.271]     ...future.frame <- base::sys.nframe()
  [14:17:30.271]     ...future.conditions <- base::list()
  [14:17:30.271]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:30.271]     ...future.result <- base::tryCatch({
  [14:17:30.271]         base::withCallingHandlers({
  [14:17:30.271]             ...future.value <- base::withVisible(base::local({
  [14:17:30.271]                 doFuture::registerDoFuture()
  [14:17:30.271]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.271]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.271]                   b <- NULL
  [14:17:30.271]                   ...future.env <- environment()
  [14:17:30.271]                   local({
  [14:17:30.271]                     for (name in names(...future.x_jj)) {
  [14:17:30.271]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.271]                         inherits = FALSE)
  [14:17:30.271]                     }
  [14:17:30.271]                   })
  [14:17:30.271]                   tryCatch({
  [14:17:30.271]                     plan_list <- future::plan("next")
  [14:17:30.271]                     message(capture.output(print(plan_list)))
  [14:17:30.271]                     stopifnot(inherits(plan_list, "future"))
  [14:17:30.271]                     default <- getOption("future.plan", "sequential")
  [14:17:30.271]                     if (is.function(default)) 
  [14:17:30.271]                       default <- class(default)
  [14:17:30.271]                     stopifnot(inherits(plan_list, default))
  [14:17:30.271]                     plan_b <- future::plan("list")
  [14:17:30.271]                     str(plan_b)
  [14:17:30.271]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.271]                       inherits(plan_b[[1]], default))
  [14:17:30.271]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.271]                   }, error = identity)
  [14:17:30.271]                 })
  [14:17:30.271]             }))
  [14:17:30.271]             future::FutureResult(value = ...future.value$value, 
  [14:17:30.271]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.271]                   ...future.rng), started = ...future.startTime, 
  [14:17:30.271]                 version = "1.8")
  [14:17:30.271]         }, condition = base::local({
  [14:17:30.271]             c <- base::c
  [14:17:30.271]             inherits <- base::inherits
  [14:17:30.271]             invokeRestart <- base::invokeRestart
  [14:17:30.271]             length <- base::length
  [14:17:30.271]             list <- base::list
  [14:17:30.271]             seq.int <- base::seq.int
  [14:17:30.271]             signalCondition <- base::signalCondition
  [14:17:30.271]             sys.calls <- base::sys.calls
  [14:17:30.271]             Sys.time <- base::Sys.time
  [14:17:30.271]             `[[` <- base::`[[`
  [14:17:30.271]             `+` <- base::`+`
  [14:17:30.271]             `<<-` <- base::`<<-`
  [14:17:30.271]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:30.271]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:30.271]                   3L)]
  [14:17:30.271]             }
  [14:17:30.271]             function(cond) {
  [14:17:30.271]                 if (inherits(cond, "error")) {
  [14:17:30.271]                   sessionInformation <- function() {
  [14:17:30.271]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:30.271]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:30.271]                       search = base::search(), system = base::Sys.info())
  [14:17:30.271]                   }
  [14:17:30.271]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.271]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:30.271]                     cond$call), session = sessionInformation(), 
  [14:17:30.271]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:30.271]                   signalCondition(cond)
  [14:17:30.271]                 }
  [14:17:30.271]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:30.271]                 ))) {
  [14:17:30.271]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:30.271]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.271]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:30.271]                   if (!signal) {
  [14:17:30.271]                     muffleCondition <- function (cond) 
  [14:17:30.271]                     {
  [14:17:30.271]                       inherits <- base::inherits
  [14:17:30.271]                       invokeRestart <- base::invokeRestart
  [14:17:30.271]                       muffled <- FALSE
  [14:17:30.271]                       if (inherits(cond, "message")) {
  [14:17:30.271]                         invokeRestart("muffleMessage")
  [14:17:30.271]                         muffled <- TRUE
  [14:17:30.271]                       }
  [14:17:30.271]                       else if (inherits(cond, "warning")) {
  [14:17:30.271]                         invokeRestart("muffleWarning")
  [14:17:30.271]                         muffled <- TRUE
  [14:17:30.271]                       }
  [14:17:30.271]                       else if (inherits(cond, "condition")) {
  [14:17:30.271]                         computeRestarts <- base::computeRestarts
  [14:17:30.271]                         grepl <- base::grepl
  [14:17:30.271]                         is.null <- base::is.null
  [14:17:30.271]                         restarts <- computeRestarts(cond)
  [14:17:30.271]                         for (restart in restarts) {
  [14:17:30.271]                           name <- restart$name
  [14:17:30.271]                           if (is.null(name)) 
  [14:17:30.271]                             next
  [14:17:30.271]                           if (!grepl("^muffle", name)) 
  [14:17:30.271]                             next
  [14:17:30.271]                           invokeRestart(restart)
  [14:17:30.271]                           muffled <- TRUE
  [14:17:30.271]                           break
  [14:17:30.271]                         }
  [14:17:30.271]                       }
  [14:17:30.271]                       invisible(muffled)
  [14:17:30.271]                     }
  [14:17:30.271]                     muffleCondition(cond)
  [14:17:30.271]                   }
  [14:17:30.271]                 }
  [14:17:30.271]             }
  [14:17:30.271]         }))
  [14:17:30.271]     }, error = function(ex) {
  [14:17:30.271]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:30.271]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.271]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:30.271]     }, finally = {
  [14:17:30.271]         {
  [14:17:30.271]             NULL
  [14:17:30.271]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:30.271]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.271]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:17:30.271]                 label = NULL, ...) 
  [14:17:30.271]             {
  [14:17:30.271]                 if (substitute) 
  [14:17:30.271]                   expr <- substitute(expr)
  [14:17:30.271]                 local <- as.logical(local)
  [14:17:30.271]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.271]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.271]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.271]                   label = label, ...)
  [14:17:30.271]                 if (!future$lazy) 
  [14:17:30.271]                   future <- run(future)
  [14:17:30.271]                 invisible(future)
  [14:17:30.271]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.271]         }
  [14:17:30.271]         base::options(...future.oldOptions)
  [14:17:30.271]     })
  [14:17:30.271]     Sys.time
  [14:17:30.271]     if (base::is.na(TRUE)) {
  [14:17:30.271]     }
  [14:17:30.271]     else {
  [14:17:30.271]         base::sink(type = "output", split = FALSE)
  [14:17:30.271]         if (TRUE) {
  [14:17:30.271]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:30.271]         }
  [14:17:30.271]         else {
  [14:17:30.271]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:30.271]         }
  [14:17:30.271]         base::close(...future.stdout)
  [14:17:30.271]         ...future.stdout <- NULL
  [14:17:30.271]     }
  [14:17:30.271]     ...future.result$conditions <- ...future.conditions
  [14:17:30.271]     ...future.result
  [14:17:30.271] }
  [14:17:30.670]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:17:30.284] plan(): Setting new future strategy stack:
  [14:17:30.670]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:17:30.285] List of future strategies:
  [14:17:30.285] 1. sequential:
  [14:17:30.285]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.285]    - tweaked: FALSE
  [14:17:30.285]    - call: NULL
  [14:17:30.671]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:17:30.287] plan(): nbrOfWorkers() = 1
  [14:17:30.672]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:17:30.312] plan(): Setting new future strategy stack:
  [14:17:30.672]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:17:30.313] List of future strategies:
  [14:17:30.313] 1. sequential:
  [14:17:30.313]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.313]    - tweaked: FALSE
  [14:17:30.313]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.673]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:17:30.315] plan(): nbrOfWorkers() = 1
  [14:17:30.674]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:17:30.317] SequentialFuture started (and completed)
  [14:17:30.675]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:17:30.318] signalConditions() ...
  [14:17:30.675]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:17:30.319]  - include = 'immediateCondition'
  [14:17:30.676]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:17:30.320]  - exclude = 
  [14:17:30.676]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:17:30.321]  - resignal = FALSE
  [14:17:30.677]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:17:30.323]  - Number of conditions: 3
  [14:17:30.678]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:17:30.324] signalConditions() ... done
  [14:17:30.678]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:17:30.325] Chunk #1 of 1 ... DONE
  [14:17:30.679]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:17:30.326] Launching 1 futures (chunks) ... DONE
  [14:17:30.679]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:17:30.327] - resolving futures
  [14:17:30.680]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:17:30.327]   - gathering results & relaying conditions (except errors)
  [14:17:30.680]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:17:30.328] resolve() on list ...
  [14:17:30.681]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:17:30.329]  recursive: 0
  [14:17:30.682]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:30.330]  length: 1
  [14:17:30.682]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:30.331] 
  [14:17:30.683]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:30.332] Future #1
  [14:17:30.683]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:30.333] signalConditions() ...
  [14:17:30.684]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:30.334]  - include = 'immediateCondition'
  [14:17:30.685]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:30.335]  - exclude = 
  [14:17:30.685]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:30.336]  - resignal = FALSE
  [14:17:30.686]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:30.336]  - Number of conditions: 3
  [14:17:30.686]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:30.337] signalConditions() ... done
  [14:17:30.687]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:30.338] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:30.688]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:30.339] - nx: 1
  [14:17:30.689]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:30.340] - relay: TRUE
  [14:17:30.689]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:30.341] - stdout: TRUE
  [14:17:30.690]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:30.342] - signal: TRUE
  [14:17:30.691]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:30.343] - resignal: FALSE
  [14:17:30.692]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:30.344] - force: FALSE
  [14:17:30.692]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:30.344] - relayed: [n=1] FALSE
  [14:17:30.693]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:30.345] - queued futures: [n=1] FALSE
  [14:17:30.694]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:30.346]  - until=1
  [14:17:30.695]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:30.347]  - relaying element #1
  [14:17:30.695]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:30.348] signalConditions() ...
  [14:17:30.696]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:30.349]  - include = 'immediateCondition'
  [14:17:30.697]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:30.350]  - exclude = 
  [14:17:30.698]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:30.351]  - resignal = FALSE
  [14:17:30.698]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:30.352]  - Number of conditions: 3
  [14:17:30.699]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:30.353] signalConditions() ... done
  [14:17:30.700]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:30.354] signalConditions() ...
  [14:17:30.700]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:30.355]  - include = 'immediateCondition'
  [14:17:30.702]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:30.356]  - exclude = 
  [14:17:30.703]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:30.357]  - resignal = FALSE
  [14:17:30.704]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:30.358]  - Number of conditions: 3
  [14:17:30.705]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:30.359] signalConditions() ... done
  [14:17:30.705]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:30.360] signalConditions() ...
  [14:17:30.706]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:30.361]  - include = 'condition'
  [14:17:30.707]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:30.362]  - exclude = 'immediateCondition'
  [14:17:30.707]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:30.362]  - resignal = FALSE
  [14:17:30.708]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:30.363]  - Number of conditions: 3
  [14:17:30.709]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:30.364]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:30.710]  - Condition #104: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.710]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:30.366]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:30.711]  - Condition #106: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.712]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:30.367]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:30.713]  - Condition #108: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.713]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:30.368] signalConditions() ... done
  [14:17:30.714]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:30.369] - relayed: [n=1] TRUE
  [14:17:30.715]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:30.370] - queued futures: [n=1] TRUE
  [14:17:30.715]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:30.371] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:30.716]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:30.372]  length: 0 (resolved future 1)
  [14:17:30.716]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:30.373] Relaying remaining futures
  [14:17:30.717]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:30.374] signalConditionsASAP(NULL, pos=0) ...
  [14:17:30.718]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:30.375] - nx: 1
  [14:17:30.718]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:30.375] - relay: TRUE
  [14:17:30.719]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:30.376] - stdout: TRUE
  [14:17:30.720]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:30.377] - signal: TRUE
  [14:17:30.720]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:30.378] - resignal: FALSE
  [14:17:30.721]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:30.379] - force: FALSE
  [14:17:30.722]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:30.380] - relayed: [n=1] TRUE
  [14:17:30.722]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:30.381] - queued futures: [n=1] TRUE
  [14:17:30.723]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:30.724]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:30.382] - relayed: [n=1] TRUE
  [14:17:30.724]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:30.383] - queued futures: [n=1] TRUE
  [14:17:30.725]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:30.384] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:30.725]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:30.385] resolve() on list ... DONE
  [14:17:30.726]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:30.386] - collecting values of futures
  [14:17:30.727]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:30.387] signalConditions() ...
  [14:17:30.728]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:30.388]  - include = 'immediateCondition'
  [14:17:30.728]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:30.389]  - exclude = 
  [14:17:30.729]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:30.390]  - resignal = FALSE
  [14:17:30.730]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:30.390]  - Number of conditions: 3
  [14:17:30.730]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:30.391] signalConditions() ... done
  [14:17:30.731]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:30.393] - accumulating results
  [14:17:30.731]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:30.395] - processing errors (handler = 'stop')
  [14:17:30.732]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:30.396] - extracting results
  [14:17:30.733]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:30.397] doFuture() ... DONE
  [14:17:30.733]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:30.734] signalConditions() ... done
  [14:17:30.735] - relayed: [n=2] TRUE, FALSE
  [14:17:30.735] - queued futures: [n=2] TRUE, TRUE
  [14:17:30.735] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:17:30.736]  length: 0 (resolved future 1)
  [14:17:30.736] Relaying remaining futures
  [14:17:30.737] signalConditionsASAP(NULL, pos=0) ...
  [14:17:30.737] - nx: 2
  [14:17:30.738] - relay: TRUE
  [14:17:30.738] - stdout: TRUE
  [14:17:30.738] - signal: TRUE
  [14:17:30.739] - resignal: FALSE
  [14:17:30.739] - force: FALSE
  [14:17:30.740] - relayed: [n=2] TRUE, FALSE
  [14:17:30.740] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:17:30.741]  - relaying element #2
  [14:17:30.741] signalConditions() ...
  [14:17:30.742]  - include = 'immediateCondition'
  [14:17:30.742]  - exclude = 
  [14:17:30.743]  - resignal = FALSE
  [14:17:30.743]  - Number of conditions: 140
  [14:17:30.744] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.745] signalConditions() ...
  [14:17:30.745]  - include = 'immediateCondition'
  [14:17:30.746]  - exclude = 
  [14:17:30.746]  - resignal = FALSE
  [14:17:30.747]  - Number of conditions: 140
  [14:17:30.747] signalConditions() ... done
  [14:17:30.748] signalConditions() ...
  [14:17:30.748]  - include = 'condition'
  [14:17:30.749]  - exclude = 'immediateCondition'
  [14:17:30.749]  - resignal = FALSE
  [14:17:30.750]  - Number of conditions: 140
  [14:17:30.750]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:30.751]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:30.150] doFuture() ...
  [14:17:30.752]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:30.154] - dummy globals (as locals): [1] 'b'
  [14:17:30.752]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:30.157] - R expression:
  [14:17:30.753]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:30.158] {
  [14:17:30.158]     doFuture::registerDoFuture()
  [14:17:30.158]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.158]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.158]         b <- NULL
  [14:17:30.158]         ...future.env <- environment()
  [14:17:30.158]         local({
  [14:17:30.158]             for (name in names(...future.x_jj)) {
  [14:17:30.158]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.158]                   inherits = FALSE)
  [14:17:30.158]             }
  [14:17:30.158]         })
  [14:17:30.158]         tryCatch({
  [14:17:30.158]             plan_list <- future::plan("next")
  [14:17:30.158]             message(capture.output(print(plan_list)))
  [14:17:30.158]             stopifnot(inherits(plan_list, "future"))
  [14:17:30.158]             default <- getOption("future.plan", "sequential")
  [14:17:30.158]             if (is.function(default)) 
  [14:17:30.158]                 default <- class(default)
  [14:17:30.158]             stopifnot(inherits(plan_list, default))
  [14:17:30.158]             plan_b <- future::plan("list")
  [14:17:30.158]             str(plan_b)
  [14:17:30.158]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:30.158]                 default))
  [14:17:30.158]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.158]         }, error = identity)
  [14:17:30.158]     })
  [14:17:30.158] }
  [14:17:30.754]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:30.160] - identifying globals and packages ...
  [14:17:30.754]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:30.161] getGlobalsAndPackages() ...
  [14:17:30.755]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:30.162] Searching for globals...
  [14:17:30.756]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:30.212] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:30.756]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:30.214] Searching for globals ... DONE
  [14:17:30.757]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:30.215] Resolving globals: FALSE
  [14:17:30.757]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:30.221] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [14:17:30.758]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:30.223] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.759]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:30.225] - packages: [1] 'utils'
  [14:17:30.760]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:30.226] getGlobalsAndPackages() ... DONE
  [14:17:30.760]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:30.227] List of 3
  [14:17:30.227]  $ ...future.x_ii: NULL
  [14:17:30.227]  $ a             : int 2
  [14:17:30.227]  $ plan_a        :List of 1
  [14:17:30.227]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:30.227]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:17:30.227]     ...)  
  [14:17:30.227]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:17:30.227]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:30.227]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.227]  - attr(*, "where")=List of 3
  [14:17:30.227]   ..$ ...future.x_ii:<environment: 0x3789998> 
  [14:17:30.227]   ..$ a             :<environment: 0x3cc3a10> 
  [14:17:30.227]   ..$ plan_a        :<environment: 0x3cc3a10> 
  [14:17:30.227]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.227]  - attr(*, "resolved")= logi FALSE
  [14:17:30.227]  - attr(*, "total_size")= num 40624
  [14:17:30.761]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:30.254]   - R expression:
  [14:17:30.762]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:30.255] {
  [14:17:30.255]     doFuture::registerDoFuture()
  [14:17:30.255]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.255]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.255]         b <- NULL
  [14:17:30.255]         ...future.env <- environment()
  [14:17:30.255]         local({
  [14:17:30.255]             for (name in names(...future.x_jj)) {
  [14:17:30.255]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.255]                   inherits = FALSE)
  [14:17:30.255]             }
  [14:17:30.255]         })
  [14:17:30.255]         tryCatch({
  [14:17:30.255]             plan_list <- future::plan("next")
  [14:17:30.255]             message(capture.output(print(plan_list)))
  [14:17:30.255]             stopifnot(inherits(plan_list, "future"))
  [14:17:30.255]             default <- getOption("future.plan", "sequential")
  [14:17:30.255]             if (is.function(default)) 
  [14:17:30.255]                 default <- class(default)
  [14:17:30.255]             stopifnot(inherits(plan_list, default))
  [14:17:30.255]             plan_b <- future::plan("list")
  [14:17:30.255]             str(plan_b)
  [14:17:30.255]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:30.255]                 default))
  [14:17:30.255]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.255]         }, error = identity)
  [14:17:30.255]     })
  [14:17:30.255] }
  [14:17:30.762]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:30.258]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.763]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:30.259] List of 3
  [14:17:30.259]  $ ...future.x_ii: NULL
  [14:17:30.259]  $ a             : int 2
  [14:17:30.259]  $ plan_a        :List of 1
  [14:17:30.259]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:30.259]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [14:17:30.259]     ...)  
  [14:17:30.259]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [14:17:30.259]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:30.259]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:30.259]  - attr(*, "where")=List of 3
  [14:17:30.259]   ..$ ...future.x_ii:<environment: 0x3789998> 
  [14:17:30.259]   ..$ a             :<environment: 0x3cc3a10> 
  [14:17:30.259]   ..$ plan_a        :<environment: 0x3cc3a10> 
  [14:17:30.259]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.259]  - attr(*, "resolved")= logi FALSE
  [14:17:30.259]  - attr(*, "total_size")= num 40624
  [14:17:30.764]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:17:30.282]   - packages: [2] 'doFuture', 'utils'
  [14:17:30.764]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:17:30.283] - identifying globals and packages ... DONE
  [14:17:30.765]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:17:30.284] Number of chunks: 1
  [14:17:30.766]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:17:30.285] Number of futures (= number of chunks): 1
  [14:17:30.766]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:17:30.286] Launching 1 futures (chunks) ...
  [14:17:30.767]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:17:30.287] Chunk #1 of 1 ...
  [14:17:30.768]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:17:30.288]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:30.769]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:17:30.289] getGlobalsAndPackages() ...
  [14:17:30.769]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:17:30.290] Searching for globals...
  [14:17:30.770]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:17:30.292] 
  [14:17:30.770]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:17:30.293] Searching for globals ... DONE
  [14:17:30.771]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:17:30.294] - globals: [0] <none>
  [14:17:30.772]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:17:30.295] getGlobalsAndPackages() ... DONE
  [14:17:30.772]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:17:30.296] 
  [14:17:30.773]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:17:30.297] 
  [14:17:30.773]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:17:30.298]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:30.774]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:17:30.299] getGlobalsAndPackages() ...
  [14:17:30.774]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:17:30.300] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.775]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:17:30.301] Resolving globals: FALSE
  [14:17:30.775]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:17:30.304] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [14:17:30.776]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:17:30.305] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:30.777]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:17:30.306] 
  [14:17:30.777]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:17:30.307] getGlobalsAndPackages() ... DONE
  [14:17:30.778]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:17:30.313] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:30.779]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:17:30.314] Packages needed by future strategies (n = 0): <none>
  [14:17:30.779]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:17:30.326] {
  [14:17:30.326]     {
  [14:17:30.326]         ...future.startTime <- base::Sys.time()
  [14:17:30.326]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:30.326]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:30.326]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:30.326]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:30.326]             future.resolve.recursive = NULL, width = 80L)
  [14:17:30.326]         {
  [14:17:30.326]             {
  [14:17:30.326]                 {
  [14:17:30.326]                   base::local({
  [14:17:30.326]                     has_future <- base::requireNamespace("future", 
  [14:17:30.326]                       quietly = TRUE)
  [14:17:30.326]                     version <- if (has_future) 
  [14:17:30.326]                       utils::packageVersion("future")
  [14:17:30.326]                     else NULL
  [14:17:30.326]                     if (!has_future || version < "1.8.0") {
  [14:17:30.326]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:30.326]                         "", base::R.version$version.string), 
  [14:17:30.326]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:30.326]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:30.326]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:30.326]                           "release", "version")], collapse = " "), 
  [14:17:30.326]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:30.326]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:30.326]                         info)
  [14:17:30.326]                       info <- base::paste(info, collapse = "; ")
  [14:17:30.326]                       if (!has_future) {
  [14:17:30.326]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:30.326]                           info)
  [14:17:30.326]                       }
  [14:17:30.326]                       else {
  [14:17:30.326]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:30.326]                           info, version)
  [14:17:30.326]                       }
  [14:17:30.326]                       base::stop(msg)
  [14:17:30.326]                     }
  [14:17:30.326]                   })
  [14:17:30.326]                 }
  [14:17:30.326]                 base::local({
  [14:17:30.326]                   for (pkg in c("doFuture", "utils")) {
  [14:17:30.326]                     base::loadNamespace(pkg)
  [14:17:30.326]                     base::library(pkg, character.only = TRUE)
  [14:17:30.326]                   }
  [14:17:30.326]                 })
  [14:17:30.326]             }
  [14:17:30.326]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:30.326]         }
  [14:17:30.326]     }
  [14:17:30.326]     if (base::is.na(TRUE)) {
  [14:17:30.326]     }
  [14:17:30.326]     else {
  [14:17:30.326]         if (TRUE) {
  [14:17:30.326]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:30.326]                 open = "w")
  [14:17:30.326]         }
  [14:17:30.326]         else {
  [14:17:30.326]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:30.326]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:30.326]         }
  [14:17:30.326]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:30.326]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:30.326]             base::sink(type = "output", split = FALSE)
  [14:17:30.326]             base::close(...future.stdout)
  [14:17:30.326]         }, add = TRUE)
  [14:17:30.326]     }
  [14:17:30.326]     ...future.frame <- base::sys.nframe()
  [14:17:30.326]     ...future.conditions <- base::list()
  [14:17:30.326]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:30.326]     ...future.result <- base::tryCatch({
  [14:17:30.326]         base::withCallingHandlers({
  [14:17:30.326]             ...future.value <- base::withVisible(base::local({
  [14:17:30.326]                 doFuture::registerDoFuture()
  [14:17:30.326]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.326]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.326]                   b <- NULL
  [14:17:30.326]                   ...future.env <- environment()
  [14:17:30.326]                   local({
  [14:17:30.326]                     for (name in names(...future.x_jj)) {
  [14:17:30.326]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.326]                         inherits = FALSE)
  [14:17:30.326]                     }
  [14:17:30.326]                   })
  [14:17:30.326]                   tryCatch({
  [14:17:30.326]                     plan_list <- future::plan("next")
  [14:17:30.326]                     message(capture.output(print(plan_list)))
  [14:17:30.326]                     stopifnot(inherits(plan_list, "future"))
  [14:17:30.326]                     default <- getOption("future.plan", "sequential")
  [14:17:30.326]                     if (is.function(default)) 
  [14:17:30.326]                       default <- class(default)
  [14:17:30.326]                     stopifnot(inherits(plan_list, default))
  [14:17:30.326]                     plan_b <- future::plan("list")
  [14:17:30.326]                     str(plan_b)
  [14:17:30.326]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.326]                       inherits(plan_b[[1]], default))
  [14:17:30.326]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.326]                   }, error = identity)
  [14:17:30.326]                 })
  [14:17:30.326]             }))
  [14:17:30.326]             future::FutureResult(value = ...future.value$value, 
  [14:17:30.326]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.326]                   ...future.rng), started = ...future.startTime, 
  [14:17:30.326]                 version = "1.8")
  [14:17:30.326]         }, condition = base::local({
  [14:17:30.326]             c <- base::c
  [14:17:30.326]             inherits <- base::inherits
  [14:17:30.326]             invokeRestart <- base::invokeRestart
  [14:17:30.326]             length <- base::length
  [14:17:30.326]             list <- base::list
  [14:17:30.326]             seq.int <- base::seq.int
  [14:17:30.326]             signalCondition <- base::signalCondition
  [14:17:30.326]             sys.calls <- base::sys.calls
  [14:17:30.326]             Sys.time <- base::Sys.time
  [14:17:30.326]             `[[` <- base::`[[`
  [14:17:30.326]             `+` <- base::`+`
  [14:17:30.326]             `<<-` <- base::`<<-`
  [14:17:30.326]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:30.326]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:30.326]                   3L)]
  [14:17:30.326]             }
  [14:17:30.326]             function(cond) {
  [14:17:30.326]                 if (inherits(cond, "error")) {
  [14:17:30.326]                   sessionInformation <- function() {
  [14:17:30.326]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:30.326]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:30.326]                       search = base::search(), system = base::Sys.info())
  [14:17:30.326]                   }
  [14:17:30.326]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.326]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:30.326]                     cond$call), session = sessionInformation(), 
  [14:17:30.326]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:30.326]                   signalCondition(cond)
  [14:17:30.326]                 }
  [14:17:30.326]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:30.326]                 ))) {
  [14:17:30.326]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:30.326]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.326]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:30.326]                   if (!signal) {
  [14:17:30.326]                     muffleCondition <- function (cond) 
  [14:17:30.326]                     {
  [14:17:30.326]                       inherits <- base::inherits
  [14:17:30.326]                       invokeRestart <- base::invokeRestart
  [14:17:30.326]                       muffled <- FALSE
  [14:17:30.326]                       if (inherits(cond, "message")) {
  [14:17:30.326]                         invokeRestart("muffleMessage")
  [14:17:30.326]                         muffled <- TRUE
  [14:17:30.326]                       }
  [14:17:30.326]                       else if (inherits(cond, "warning")) {
  [14:17:30.326]                         invokeRestart("muffleWarning")
  [14:17:30.326]                         muffled <- TRUE
  [14:17:30.326]                       }
  [14:17:30.326]                       else if (inherits(cond, "condition")) {
  [14:17:30.326]                         computeRestarts <- base::computeRestarts
  [14:17:30.326]                         grepl <- base::grepl
  [14:17:30.326]                         is.null <- base::is.null
  [14:17:30.326]                         restarts <- computeRestarts(cond)
  [14:17:30.326]                         for (restart in restarts) {
  [14:17:30.326]                           name <- restart$name
  [14:17:30.326]                           if (is.null(name)) 
  [14:17:30.326]                             next
  [14:17:30.326]                           if (!grepl("^muffle", name)) 
  [14:17:30.326]                             next
  [14:17:30.326]                           invokeRestart(restart)
  [14:17:30.326]                           muffled <- TRUE
  [14:17:30.326]                           break
  [14:17:30.326]                         }
  [14:17:30.326]                       }
  [14:17:30.326]                       invisible(muffled)
  [14:17:30.326]                     }
  [14:17:30.326]                     muffleCondition(cond)
  [14:17:30.326]                   }
  [14:17:30.326]                 }
  [14:17:30.326]             }
  [14:17:30.326]         }))
  [14:17:30.326]     }, error = function(ex) {
  [14:17:30.326]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:30.326]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.326]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:30.326]     }, finally = {
  [14:17:30.326]         {
  [14:17:30.326]             NULL
  [14:17:30.326]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:30.326]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.326]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [14:17:30.326]                 label = NULL, ...) 
  [14:17:30.326]             {
  [14:17:30.326]                 if (substitute) 
  [14:17:30.326]                   expr <- substitute(expr)
  [14:17:30.326]                 local <- as.logical(local)
  [14:17:30.326]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [14:17:30.326]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.326]                   globals = globals, local = local, earlySignal = earlySignal, 
  [14:17:30.326]                   label = label, ...)
  [14:17:30.326]                 if (!future$lazy) 
  [14:17:30.326]                   future <- run(future)
  [14:17:30.326]                 invisible(future)
  [14:17:30.326]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.326]         }
  [14:17:30.326]         base::options(...future.oldOptions)
  [14:17:30.326]     })
  [14:17:30.326]     Sys.time
  [14:17:30.326]     if (base::is.na(TRUE)) {
  [14:17:30.326]     }
  [14:17:30.326]     else {
  [14:17:30.326]         base::sink(type = "output", split = FALSE)
  [14:17:30.326]         if (TRUE) {
  [14:17:30.326]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:30.326]         }
  [14:17:30.326]         else {
  [14:17:30.326]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:30.326]         }
  [14:17:30.326]         base::close(...future.stdout)
  [14:17:30.326]         ...future.stdout <- NULL
  [14:17:30.326]     }
  [14:17:30.326]     ...future.result$conditions <- ...future.conditions
  [14:17:30.326]     ...future.result
  [14:17:30.326] }
  [14:17:30.780]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:17:30.338] plan(): Setting new future strategy stack:
  [14:17:30.781]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:17:30.339] List of future strategies:
  [14:17:30.339] 1. sequential:
  [14:17:30.339]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.339]    - tweaked: FALSE
  [14:17:30.339]    - call: NULL
  [14:17:30.781]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:17:30.341] plan(): nbrOfWorkers() = 1
  [14:17:30.782]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:17:30.366] plan(): Setting new future strategy stack:
  [14:17:30.783]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:17:30.367] List of future strategies:
  [14:17:30.367] 1. sequential:
  [14:17:30.367]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:30.367]    - tweaked: FALSE
  [14:17:30.367]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.783]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:17:30.369] plan(): nbrOfWorkers() = 1
  [14:17:30.784]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:17:30.370] SequentialFuture started (and completed)
  [14:17:30.785]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:17:30.371] signalConditions() ...
  [14:17:30.785]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:17:30.372]  - include = 'immediateCondition'
  [14:17:30.786]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:17:30.373]  - exclude = 
  [14:17:30.787]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:17:30.374]  - resignal = FALSE
  [14:17:30.787]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:17:30.375]  - Number of conditions: 3
  [14:17:30.788]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:17:30.376] signalConditions() ... done
  [14:17:30.789]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:17:30.377] Chunk #1 of 1 ... DONE
  [14:17:30.790]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:17:30.378] Launching 1 futures (chunks) ... DONE
  [14:17:30.790]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:17:30.379] - resolving futures
  [14:17:30.791]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:17:30.379]   - gathering results & relaying conditions (except errors)
  [14:17:30.792]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:17:30.380] resolve() on list ...
  [14:17:30.792]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:17:30.381]  recursive: 0
  [14:17:30.793]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:30.382]  length: 1
  [14:17:30.794]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:30.383] 
  [14:17:30.794]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:30.384] Future #1
  [14:17:30.795]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:30.385] signalConditions() ...
  [14:17:30.796]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:30.386]  - include = 'immediateCondition'
  [14:17:30.796]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:30.387]  - exclude = 
  [14:17:30.797]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:30.388]  - resignal = FALSE
  [14:17:30.798]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:30.389]  - Number of conditions: 3
  [14:17:30.798]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:30.390] signalConditions() ... done
  [14:17:30.799]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:30.391] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:30.800]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:30.392] - nx: 1
  [14:17:30.800]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:30.392] - relay: TRUE
  [14:17:30.801]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:30.393] - stdout: TRUE
  [14:17:30.802]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:30.394] - signal: TRUE
  [14:17:30.802]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:30.395] - resignal: FALSE
  [14:17:30.803]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:30.396] - force: FALSE
  [14:17:30.804]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:30.397] - relayed: [n=1] FALSE
  [14:17:30.804]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:30.398] - queued futures: [n=1] FALSE
  [14:17:30.805]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:30.399]  - until=1
  [14:17:30.806]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:30.399]  - relaying element #1
  [14:17:30.806]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:30.400] signalConditions() ...
  [14:17:30.807]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:30.401]  - include = 'immediateCondition'
  [14:17:30.808]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:30.402]  - exclude = 
  [14:17:30.808]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:30.403]  - resignal = FALSE
  [14:17:30.809]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:30.404]  - Number of conditions: 3
  [14:17:30.810]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:30.405] signalConditions() ... done
  [14:17:30.810]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:30.406] signalConditions() ...
  [14:17:30.811]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:30.407]  - include = 'immediateCondition'
  [14:17:30.812]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:30.408]  - exclude = 
  [14:17:30.813]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:30.409]  - resignal = FALSE
  [14:17:30.813]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:30.410]  - Number of conditions: 3
  [14:17:30.814]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:30.411] signalConditions() ... done
  [14:17:30.815]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:30.412] signalConditions() ...
  [14:17:30.815]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:30.413]  - include = 'condition'
  [14:17:30.816]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:30.414]  - exclude = 'immediateCondition'
  [14:17:30.816]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:30.415]  - resignal = FALSE
  [14:17:30.817]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:30.416]  - Number of conditions: 3
  [14:17:30.818]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:30.417]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:30.818]  - Condition #104: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.819]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:30.419]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:30.820]  - Condition #106: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.821]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:30.420]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:30.821]  - Condition #108: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:30.822]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:30.422] signalConditions() ... done
  [14:17:30.823]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:30.422] - relayed: [n=1] TRUE
  [14:17:30.823]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:30.423] - queued futures: [n=1] TRUE
  [14:17:30.824]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:30.424] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:30.825]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:30.426]  length: 0 (resolved future 1)
  [14:17:30.825]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:30.427] Relaying remaining futures
  [14:17:30.826]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:30.427] signalConditionsASAP(NULL, pos=0) ...
  [14:17:30.827]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:30.428] - nx: 1
  [14:17:30.828]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:30.429] - relay: TRUE
  [14:17:30.828]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:30.430] - stdout: TRUE
  [14:17:30.829]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:30.431] - signal: TRUE
  [14:17:30.830]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:30.432] - resignal: FALSE
  [14:17:30.830]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:30.433] - force: FALSE
  [14:17:30.831]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:30.434] - relayed: [n=1] TRUE
  [14:17:30.832]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:30.435] - queued futures: [n=1] TRUE
  [14:17:30.832]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:30.833]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:30.437] - relayed: [n=1] TRUE
  [14:17:30.834]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:30.438] - queued futures: [n=1] TRUE
  [14:17:30.834]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:30.439] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:30.835]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:30.440] resolve() on list ... DONE
  [14:17:30.836]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:30.441] - collecting values of futures
  [14:17:30.836]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:30.442] signalConditions() ...
  [14:17:30.837]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:30.443]  - include = 'immediateCondition'
  [14:17:30.838]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:30.444]  - exclude = 
  [14:17:30.838]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:30.445]  - resignal = FALSE
  [14:17:30.839]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:30.446]  - Number of conditions: 3
  [14:17:30.840]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:30.447] signalConditions() ... done
  [14:17:30.841]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:30.448] - accumulating results
  [14:17:30.841]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:30.451] - processing errors (handler = 'stop')
  [14:17:30.842]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:30.452] - extracting results
  [14:17:30.843]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:30.453] doFuture() ... DONE
  [14:17:30.843]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:30.844] signalConditions() ... done
  [14:17:30.845] - relayed: [n=2] TRUE, TRUE
  [14:17:30.845] - queued futures: [n=2] TRUE, TRUE
  [14:17:30.846] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [14:17:30.846] resolve() on list ... DONE
  [14:17:30.847] - collecting values of futures
  [14:17:30.847] signalConditions() ...
  [14:17:30.848]  - include = 'immediateCondition'
  [14:17:30.848]  - exclude = 
  [14:17:30.849]  - resignal = FALSE
  [14:17:30.849]  - Number of conditions: 140
  [14:17:30.850] signalConditions() ... done
  [14:17:30.851] signalConditions() ...
  [14:17:30.851]  - include = 'immediateCondition'
  [14:17:30.852]  - exclude = 
  [14:17:30.852]  - resignal = FALSE
  [14:17:30.852]  - Number of conditions: 140
  [14:17:30.853] signalConditions() ... done
  [14:17:30.854] - accumulating results
  [14:17:30.855] - processing errors (handler = 'stop')
  [14:17:30.856] - extracting results
  [14:17:30.856] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [14:17:30.858] plan(): Setting new future strategy stack:
  [14:17:30.858] List of future strategies:
  [14:17:30.858] 1. multicore:
  [14:17:30.858]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:30.858]    - tweaked: FALSE
  [14:17:30.858]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.858] 2. multicore:
  [14:17:30.858]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:30.858]    - tweaked: FALSE
  [14:17:30.858]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:30.861] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:17:30.862] doFuture() ...
  [14:17:30.864] - dummy globals (as locals): [1] 'a'
  [14:17:30.866] - R expression:
  [14:17:30.866] {
  [14:17:30.866]     doFuture::registerDoFuture()
  [14:17:30.866]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.866]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.866]         a <- NULL
  [14:17:30.866]         ...future.env <- environment()
  [14:17:30.866]         local({
  [14:17:30.866]             for (name in names(...future.x_jj)) {
  [14:17:30.866]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.866]                   inherits = FALSE)
  [14:17:30.866]             }
  [14:17:30.866]         })
  [14:17:30.866]         tryCatch({
  [14:17:30.866]             plan_list <- future::plan("next")
  [14:17:30.866]             stopifnot(inherits(plan_list, strategy2))
  [14:17:30.866]             plan_a <- future::plan("list")
  [14:17:30.866]             str(plan_a)
  [14:17:30.866]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:30.866]             message("foreach() - level 2 ...")
  [14:17:30.866]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:30.866]                 {
  [14:17:30.866]                   plan_list <- future::plan("next")
  [14:17:30.866]                   message(capture.output(print(plan_list)))
  [14:17:30.866]                   stopifnot(inherits(plan_list, "future"))
  [14:17:30.866]                   default <- getOption("future.plan", "sequential")
  [14:17:30.866]                   if (is.function(default)) 
  [14:17:30.866]                     default <- class(default)
  [14:17:30.866]                   stopifnot(inherits(plan_list, default))
  [14:17:30.866]                   plan_b <- future::plan("list")
  [14:17:30.866]                   str(plan_b)
  [14:17:30.866]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.866]                     inherits(plan_b[[1]], default))
  [14:17:30.866]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.866]                 }
  [14:17:30.866]             message("foreach() - level 2 ... DONE")
  [14:17:30.866]             y
  [14:17:30.866]         }, error = identity)
  [14:17:30.866]     })
  [14:17:30.866] }
  [14:17:30.868] - identifying globals and packages ...
  [14:17:30.869] getGlobalsAndPackages() ...
  [14:17:30.870] Searching for globals...
  [14:17:30.917] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:17:30.917] Searching for globals ... DONE
  [14:17:30.918] Resolving globals: FALSE
  [14:17:30.921] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:17:30.922] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.922] - packages: [2] 'utils', 'foreach'
  [14:17:30.922] getGlobalsAndPackages() ... DONE
  [14:17:30.923] List of 3
  [14:17:30.923]  $ ...future.x_ii: NULL
  [14:17:30.923]  $ strategy2     : chr "multicore"
  [14:17:30.923]  $ bs            : int [1:3] 3 2 1
  [14:17:30.923]  - attr(*, "where")=List of 3
  [14:17:30.923]   ..$ ...future.x_ii:<environment: 0x5469d88> 
  [14:17:30.923]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:30.923]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:30.923]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.923]  - attr(*, "resolved")= logi FALSE
  [14:17:30.923]  - attr(*, "total_size")= num 184
  [14:17:30.936]   - R expression:
  [14:17:30.936] {
  [14:17:30.936]     doFuture::registerDoFuture()
  [14:17:30.936]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.936]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.936]         a <- NULL
  [14:17:30.936]         ...future.env <- environment()
  [14:17:30.936]         local({
  [14:17:30.936]             for (name in names(...future.x_jj)) {
  [14:17:30.936]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.936]                   inherits = FALSE)
  [14:17:30.936]             }
  [14:17:30.936]         })
  [14:17:30.936]         tryCatch({
  [14:17:30.936]             plan_list <- future::plan("next")
  [14:17:30.936]             stopifnot(inherits(plan_list, strategy2))
  [14:17:30.936]             plan_a <- future::plan("list")
  [14:17:30.936]             str(plan_a)
  [14:17:30.936]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:30.936]             message("foreach() - level 2 ...")
  [14:17:30.936]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:30.936]                 {
  [14:17:30.936]                   plan_list <- future::plan("next")
  [14:17:30.936]                   message(capture.output(print(plan_list)))
  [14:17:30.936]                   stopifnot(inherits(plan_list, "future"))
  [14:17:30.936]                   default <- getOption("future.plan", "sequential")
  [14:17:30.936]                   if (is.function(default)) 
  [14:17:30.936]                     default <- class(default)
  [14:17:30.936]                   stopifnot(inherits(plan_list, default))
  [14:17:30.936]                   plan_b <- future::plan("list")
  [14:17:30.936]                   str(plan_b)
  [14:17:30.936]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.936]                     inherits(plan_b[[1]], default))
  [14:17:30.936]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.936]                 }
  [14:17:30.936]             message("foreach() - level 2 ... DONE")
  [14:17:30.936]             y
  [14:17:30.936]         }, error = identity)
  [14:17:30.936]     })
  [14:17:30.936] }
  [14:17:30.938]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.938] List of 3
  [14:17:30.938]  $ ...future.x_ii: NULL
  [14:17:30.938]  $ strategy2     : chr "multicore"
  [14:17:30.938]  $ bs            : int [1:3] 3 2 1
  [14:17:30.938]  - attr(*, "where")=List of 3
  [14:17:30.938]   ..$ ...future.x_ii:<environment: 0x5469d88> 
  [14:17:30.938]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:30.938]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:30.938]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:30.938]  - attr(*, "resolved")= logi FALSE
  [14:17:30.938]  - attr(*, "total_size")= num 184
  [14:17:30.950]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:17:30.950] - identifying globals and packages ... DONE
  [14:17:30.952] Number of chunks: 2
  [14:17:30.953] Number of futures (= number of chunks): 2
  [14:17:30.953] Launching 2 futures (chunks) ...
  [14:17:30.954] Chunk #1 of 2 ...
  [14:17:30.954]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:30.955] getGlobalsAndPackages() ...
  [14:17:30.955] Searching for globals...
  [14:17:30.956] 
  [14:17:30.956] Searching for globals ... DONE
  [14:17:30.957] - globals: [0] <none>
  [14:17:30.957] getGlobalsAndPackages() ... DONE
  [14:17:30.957] 
  [14:17:30.958] 
  [14:17:30.958]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:30.959] getGlobalsAndPackages() ...
  [14:17:30.960] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.960] Resolving globals: FALSE
  [14:17:30.961] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:30.962] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:30.962] 
  [14:17:30.963] getGlobalsAndPackages() ... DONE
  [14:17:30.966] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:30.966] Packages needed by future strategies (n = 1): 'future'
  [14:17:30.975] {
  [14:17:30.975]     {
  [14:17:30.975]         ...future.startTime <- base::Sys.time()
  [14:17:30.975]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:30.975]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:30.975]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:30.975]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:30.975]             future.resolve.recursive = NULL, width = 80L)
  [14:17:30.975]         {
  [14:17:30.975]             {
  [14:17:30.975]                 {
  [14:17:30.975]                   {
  [14:17:30.975]                     base::local({
  [14:17:30.975]                       has_future <- base::requireNamespace("future", 
  [14:17:30.975]                         quietly = TRUE)
  [14:17:30.975]                       version <- if (has_future) 
  [14:17:30.975]                         utils::packageVersion("future")
  [14:17:30.975]                       else NULL
  [14:17:30.975]                       if (!has_future || version < "1.8.0") {
  [14:17:30.975]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:30.975]                           "", base::R.version$version.string), 
  [14:17:30.975]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:30.975]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:30.975]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:30.975]                             "release", "version")], collapse = " "), 
  [14:17:30.975]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:30.975]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:30.975]                           info)
  [14:17:30.975]                         info <- base::paste(info, collapse = "; ")
  [14:17:30.975]                         if (!has_future) {
  [14:17:30.975]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:30.975]                             info)
  [14:17:30.975]                         }
  [14:17:30.975]                         else {
  [14:17:30.975]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:30.975]                             info, version)
  [14:17:30.975]                         }
  [14:17:30.975]                         base::stop(msg)
  [14:17:30.975]                       }
  [14:17:30.975]                     })
  [14:17:30.975]                   }
  [14:17:30.975]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:30.975]                   base::options(mc.cores = 1L)
  [14:17:30.975]                 }
  [14:17:30.975]                 base::local({
  [14:17:30.975]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:30.975]                   "future")) {
  [14:17:30.975]                     base::loadNamespace(pkg)
  [14:17:30.975]                     base::library(pkg, character.only = TRUE)
  [14:17:30.975]                   }
  [14:17:30.975]                 })
  [14:17:30.975]             }
  [14:17:30.975]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:30.975]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.975]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:30.975]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.975]             {
  [14:17:30.975]                 if (substitute) 
  [14:17:30.975]                   expr <- substitute(expr)
  [14:17:30.975]                 if (is.function(workers)) 
  [14:17:30.975]                   workers <- workers()
  [14:17:30.975]                 workers <- as.integer(workers)
  [14:17:30.975]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:30.975]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:30.975]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:30.975]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:30.975]                     local = TRUE, label = label, ...))
  [14:17:30.975]                 }
  [14:17:30.975]                 oopts <- options(mc.cores = workers)
  [14:17:30.975]                 on.exit(options(oopts))
  [14:17:30.975]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:30.975]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.975]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:30.975]                   label = label, ...)
  [14:17:30.975]                 if (!future$lazy) 
  [14:17:30.975]                   future <- run(future)
  [14:17:30.975]                 invisible(future)
  [14:17:30.975]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.975]         }
  [14:17:30.975]     }
  [14:17:30.975]     if (base::is.na(TRUE)) {
  [14:17:30.975]     }
  [14:17:30.975]     else {
  [14:17:30.975]         if (TRUE) {
  [14:17:30.975]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:30.975]                 open = "w")
  [14:17:30.975]         }
  [14:17:30.975]         else {
  [14:17:30.975]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:30.975]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:30.975]         }
  [14:17:30.975]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:30.975]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:30.975]             base::sink(type = "output", split = FALSE)
  [14:17:30.975]             base::close(...future.stdout)
  [14:17:30.975]         }, add = TRUE)
  [14:17:30.975]     }
  [14:17:30.975]     ...future.frame <- base::sys.nframe()
  [14:17:30.975]     ...future.conditions <- base::list()
  [14:17:30.975]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:30.975]     ...future.result <- base::tryCatch({
  [14:17:30.975]         base::withCallingHandlers({
  [14:17:30.975]             ...future.value <- base::withVisible(base::local({
  [14:17:30.975]                 doFuture::registerDoFuture()
  [14:17:30.975]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:30.975]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:30.975]                   a <- NULL
  [14:17:30.975]                   ...future.env <- environment()
  [14:17:30.975]                   local({
  [14:17:30.975]                     for (name in names(...future.x_jj)) {
  [14:17:30.975]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:30.975]                         inherits = FALSE)
  [14:17:30.975]                     }
  [14:17:30.975]                   })
  [14:17:30.975]                   tryCatch({
  [14:17:30.975]                     plan_list <- future::plan("next")
  [14:17:30.975]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:30.975]                     plan_a <- future::plan("list")
  [14:17:30.975]                     str(plan_a)
  [14:17:30.975]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:30.975]                     message("foreach() - level 2 ...")
  [14:17:30.975]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:30.975]                       {
  [14:17:30.975]                         plan_list <- future::plan("next")
  [14:17:30.975]                         message(capture.output(print(plan_list)))
  [14:17:30.975]                         stopifnot(inherits(plan_list, "future"))
  [14:17:30.975]                         default <- getOption("future.plan", "sequential")
  [14:17:30.975]                         if (is.function(default)) 
  [14:17:30.975]                           default <- class(default)
  [14:17:30.975]                         stopifnot(inherits(plan_list, default))
  [14:17:30.975]                         plan_b <- future::plan("list")
  [14:17:30.975]                         str(plan_b)
  [14:17:30.975]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:30.975]                           inherits(plan_b[[1]], default))
  [14:17:30.975]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:30.975]                       }
  [14:17:30.975]                     message("foreach() - level 2 ... DONE")
  [14:17:30.975]                     y
  [14:17:30.975]                   }, error = identity)
  [14:17:30.975]                 })
  [14:17:30.975]             }))
  [14:17:30.975]             future::FutureResult(value = ...future.value$value, 
  [14:17:30.975]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.975]                   ...future.rng), started = ...future.startTime, 
  [14:17:30.975]                 version = "1.8")
  [14:17:30.975]         }, condition = base::local({
  [14:17:30.975]             c <- base::c
  [14:17:30.975]             inherits <- base::inherits
  [14:17:30.975]             invokeRestart <- base::invokeRestart
  [14:17:30.975]             length <- base::length
  [14:17:30.975]             list <- base::list
  [14:17:30.975]             seq.int <- base::seq.int
  [14:17:30.975]             signalCondition <- base::signalCondition
  [14:17:30.975]             sys.calls <- base::sys.calls
  [14:17:30.975]             Sys.time <- base::Sys.time
  [14:17:30.975]             `[[` <- base::`[[`
  [14:17:30.975]             `+` <- base::`+`
  [14:17:30.975]             `<<-` <- base::`<<-`
  [14:17:30.975]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:30.975]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:30.975]                   3L)]
  [14:17:30.975]             }
  [14:17:30.975]             function(cond) {
  [14:17:30.975]                 if (inherits(cond, "error")) {
  [14:17:30.975]                   sessionInformation <- function() {
  [14:17:30.975]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:30.975]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:30.975]                       search = base::search(), system = base::Sys.info())
  [14:17:30.975]                   }
  [14:17:30.975]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.975]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:30.975]                     cond$call), session = sessionInformation(), 
  [14:17:30.975]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:30.975]                   signalCondition(cond)
  [14:17:30.975]                 }
  [14:17:30.975]                 else if (inherits(cond, "condition")) {
  [14:17:30.975]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:30.975]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:30.975]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:30.975]                   if (!signal) {
  [14:17:30.975]                     muffleCondition <- function (cond) 
  [14:17:30.975]                     {
  [14:17:30.975]                       inherits <- base::inherits
  [14:17:30.975]                       invokeRestart <- base::invokeRestart
  [14:17:30.975]                       muffled <- FALSE
  [14:17:30.975]                       if (inherits(cond, "message")) {
  [14:17:30.975]                         invokeRestart("muffleMessage")
  [14:17:30.975]                         muffled <- TRUE
  [14:17:30.975]                       }
  [14:17:30.975]                       else if (inherits(cond, "warning")) {
  [14:17:30.975]                         invokeRestart("muffleWarning")
  [14:17:30.975]                         muffled <- TRUE
  [14:17:30.975]                       }
  [14:17:30.975]                       else if (inherits(cond, "condition")) {
  [14:17:30.975]                         computeRestarts <- base::computeRestarts
  [14:17:30.975]                         grepl <- base::grepl
  [14:17:30.975]                         is.null <- base::is.null
  [14:17:30.975]                         restarts <- computeRestarts(cond)
  [14:17:30.975]                         for (restart in restarts) {
  [14:17:30.975]                           name <- restart$name
  [14:17:30.975]                           if (is.null(name)) 
  [14:17:30.975]                             next
  [14:17:30.975]                           if (!grepl("^muffle", name)) 
  [14:17:30.975]                             next
  [14:17:30.975]                           invokeRestart(restart)
  [14:17:30.975]                           muffled <- TRUE
  [14:17:30.975]                           break
  [14:17:30.975]                         }
  [14:17:30.975]                       }
  [14:17:30.975]                       invisible(muffled)
  [14:17:30.975]                     }
  [14:17:30.975]                     muffleCondition(cond)
  [14:17:30.975]                   }
  [14:17:30.975]                 }
  [14:17:30.975]             }
  [14:17:30.975]         }))
  [14:17:30.975]     }, error = function(ex) {
  [14:17:30.975]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:30.975]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:30.975]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:30.975]     }, finally = {
  [14:17:30.975]         {
  [14:17:30.975]             {
  [14:17:30.975]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:30.975]             }
  [14:17:30.975]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:30.975]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:30.975]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:30.975]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.975]             {
  [14:17:30.975]                 if (substitute) 
  [14:17:30.975]                   expr <- substitute(expr)
  [14:17:30.975]                 if (is.function(workers)) 
  [14:17:30.975]                   workers <- workers()
  [14:17:30.975]                 workers <- as.integer(workers)
  [14:17:30.975]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:30.975]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:30.975]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:30.975]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:30.975]                     local = TRUE, label = label, ...))
  [14:17:30.975]                 }
  [14:17:30.975]                 oopts <- options(mc.cores = workers)
  [14:17:30.975]                 on.exit(options(oopts))
  [14:17:30.975]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:30.975]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.975]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:30.975]                   label = label, ...)
  [14:17:30.975]                 if (!future$lazy) 
  [14:17:30.975]                   future <- run(future)
  [14:17:30.975]                 invisible(future)
  [14:17:30.975]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:30.975]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:30.975]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:30.975]             {
  [14:17:30.975]                 if (substitute) 
  [14:17:30.975]                   expr <- substitute(expr)
  [14:17:30.975]                 if (is.function(workers)) 
  [14:17:30.975]                   workers <- workers()
  [14:17:30.975]                 workers <- as.integer(workers)
  [14:17:30.975]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:30.975]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:30.975]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:30.975]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:30.975]                     local = TRUE, label = label, ...))
  [14:17:30.975]                 }
  [14:17:30.975]                 oopts <- options(mc.cores = workers)
  [14:17:30.975]                 on.exit(options(oopts))
  [14:17:30.975]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:30.975]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:30.975]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:30.975]                   label = label, ...)
  [14:17:30.975]                 if (!future$lazy) 
  [14:17:30.975]                   future <- run(future)
  [14:17:30.975]                 invisible(future)
  [14:17:30.975]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:30.975]         }
  [14:17:30.975]         base::options(...future.oldOptions)
  [14:17:30.975]     })
  [14:17:30.975]     Sys.time
  [14:17:30.975]     if (base::is.na(TRUE)) {
  [14:17:30.975]     }
  [14:17:30.975]     else {
  [14:17:30.975]         base::sink(type = "output", split = FALSE)
  [14:17:30.975]         if (TRUE) {
  [14:17:30.975]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:30.975]         }
  [14:17:30.975]         else {
  [14:17:30.975]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:30.975]         }
  [14:17:30.975]         base::close(...future.stdout)
  [14:17:30.975]         ...future.stdout <- NULL
  [14:17:30.975]     }
  [14:17:30.975]     ...future.result$conditions <- ...future.conditions
  [14:17:30.975]     ...future.result
  [14:17:30.975] }
  [14:17:30.986] requestCore(): workers = 2
  [14:17:30.992] MulticoreFuture started
  [14:17:30.993] Chunk #1 of 2 ... DONE
  [14:17:30.994] Chunk #2 of 2 ...
  [14:17:30.995]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:30.995] getGlobalsAndPackages() ...
  [14:17:30.996] Searching for globals...
  [14:17:30.998] 
  [14:17:30.999] Searching for globals ... DONE
  [14:17:30.999] - globals: [0] <none>
  [14:17:31.000] getGlobalsAndPackages() ... DONE
  [14:17:31.000] 
  [14:17:31.001] 
  [14:17:31.002]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:31.002] plan(): Setting new future strategy stack:
  [14:17:31.004] getGlobalsAndPackages() ...
  [14:17:31.003] List of future strategies:
  [14:17:31.003] 1. multicore:
  [14:17:31.003]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.003]    - tweaked: FALSE
  [14:17:31.003]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.005] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.006] Resolving globals: FALSE
  [14:17:31.006] plan(): nbrOfWorkers() = 1
  [14:17:31.009] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:31.010] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.011] 
  [14:17:31.011] getGlobalsAndPackages() ... DONE
  [14:17:31.016] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:31.017] Packages needed by future strategies (n = 1): 'future'
  [14:17:31.029] {
  [14:17:31.029]     {
  [14:17:31.029]         ...future.startTime <- base::Sys.time()
  [14:17:31.029]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:31.029]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:31.029]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:31.029]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:31.029]             future.resolve.recursive = NULL, width = 80L)
  [14:17:31.029]         {
  [14:17:31.029]             {
  [14:17:31.029]                 {
  [14:17:31.029]                   {
  [14:17:31.029]                     base::local({
  [14:17:31.029]                       has_future <- base::requireNamespace("future", 
  [14:17:31.029]                         quietly = TRUE)
  [14:17:31.029]                       version <- if (has_future) 
  [14:17:31.029]                         utils::packageVersion("future")
  [14:17:31.029]                       else NULL
  [14:17:31.029]                       if (!has_future || version < "1.8.0") {
  [14:17:31.029]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:31.029]                           "", base::R.version$version.string), 
  [14:17:31.029]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:31.029]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:31.029]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:31.029]                             "release", "version")], collapse = " "), 
  [14:17:31.029]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:31.029]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:31.029]                           info)
  [14:17:31.029]                         info <- base::paste(info, collapse = "; ")
  [14:17:31.029]                         if (!has_future) {
  [14:17:31.029]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:31.029]                             info)
  [14:17:31.029]                         }
  [14:17:31.029]                         else {
  [14:17:31.029]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:31.029]                             info, version)
  [14:17:31.029]                         }
  [14:17:31.029]                         base::stop(msg)
  [14:17:31.029]                       }
  [14:17:31.029]                     })
  [14:17:31.029]                   }
  [14:17:31.029]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:31.029]                   base::options(mc.cores = 1L)
  [14:17:31.029]                 }
  [14:17:31.029]                 base::local({
  [14:17:31.029]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:31.029]                   "future")) {
  [14:17:31.029]                     base::loadNamespace(pkg)
  [14:17:31.029]                     base::library(pkg, character.only = TRUE)
  [14:17:31.029]                   }
  [14:17:31.029]                 })
  [14:17:31.029]             }
  [14:17:31.029]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:31.029]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.029]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.029]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.029]             {
  [14:17:31.029]                 if (substitute) 
  [14:17:31.029]                   expr <- substitute(expr)
  [14:17:31.029]                 if (is.function(workers)) 
  [14:17:31.029]                   workers <- workers()
  [14:17:31.029]                 workers <- as.integer(workers)
  [14:17:31.029]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.029]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.029]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.029]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.029]                     local = TRUE, label = label, ...))
  [14:17:31.029]                 }
  [14:17:31.029]                 oopts <- options(mc.cores = workers)
  [14:17:31.029]                 on.exit(options(oopts))
  [14:17:31.029]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.029]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.029]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.029]                   label = label, ...)
  [14:17:31.029]                 if (!future$lazy) 
  [14:17:31.029]                   future <- run(future)
  [14:17:31.029]                 invisible(future)
  [14:17:31.029]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.029]         }
  [14:17:31.029]     }
  [14:17:31.029]     if (base::is.na(TRUE)) {
  [14:17:31.029]     }
  [14:17:31.029]     else {
  [14:17:31.029]         if (TRUE) {
  [14:17:31.029]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:31.029]                 open = "w")
  [14:17:31.029]         }
  [14:17:31.029]         else {
  [14:17:31.029]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:31.029]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:31.029]         }
  [14:17:31.029]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:31.029]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:31.029]             base::sink(type = "output", split = FALSE)
  [14:17:31.029]             base::close(...future.stdout)
  [14:17:31.029]         }, add = TRUE)
  [14:17:31.029]     }
  [14:17:31.029]     ...future.frame <- base::sys.nframe()
  [14:17:31.029]     ...future.conditions <- base::list()
  [14:17:31.029]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:31.029]     ...future.result <- base::tryCatch({
  [14:17:31.029]         base::withCallingHandlers({
  [14:17:31.029]             ...future.value <- base::withVisible(base::local({
  [14:17:31.029]                 doFuture::registerDoFuture()
  [14:17:31.029]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.029]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.029]                   a <- NULL
  [14:17:31.029]                   ...future.env <- environment()
  [14:17:31.029]                   local({
  [14:17:31.029]                     for (name in names(...future.x_jj)) {
  [14:17:31.029]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.029]                         inherits = FALSE)
  [14:17:31.029]                     }
  [14:17:31.029]                   })
  [14:17:31.029]                   tryCatch({
  [14:17:31.029]                     plan_list <- future::plan("next")
  [14:17:31.029]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:31.029]                     plan_a <- future::plan("list")
  [14:17:31.029]                     str(plan_a)
  [14:17:31.029]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:31.029]                     message("foreach() - level 2 ...")
  [14:17:31.029]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:31.029]                       {
  [14:17:31.029]                         plan_list <- future::plan("next")
  [14:17:31.029]                         message(capture.output(print(plan_list)))
  [14:17:31.029]                         stopifnot(inherits(plan_list, "future"))
  [14:17:31.029]                         default <- getOption("future.plan", "sequential")
  [14:17:31.029]                         if (is.function(default)) 
  [14:17:31.029]                           default <- class(default)
  [14:17:31.029]                         stopifnot(inherits(plan_list, default))
  [14:17:31.029]                         plan_b <- future::plan("list")
  [14:17:31.029]                         str(plan_b)
  [14:17:31.029]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.029]                           inherits(plan_b[[1]], default))
  [14:17:31.029]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.029]                       }
  [14:17:31.029]                     message("foreach() - level 2 ... DONE")
  [14:17:31.029]                     y
  [14:17:31.029]                   }, error = identity)
  [14:17:31.029]                 })
  [14:17:31.029]             }))
  [14:17:31.029]             future::FutureResult(value = ...future.value$value, 
  [14:17:31.029]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.029]                   ...future.rng), started = ...future.startTime, 
  [14:17:31.029]                 version = "1.8")
  [14:17:31.029]         }, condition = base::local({
  [14:17:31.029]             c <- base::c
  [14:17:31.029]             inherits <- base::inherits
  [14:17:31.029]             invokeRestart <- base::invokeRestart
  [14:17:31.029]             length <- base::length
  [14:17:31.029]             list <- base::list
  [14:17:31.029]             seq.int <- base::seq.int
  [14:17:31.029]             signalCondition <- base::signalCondition
  [14:17:31.029]             sys.calls <- base::sys.calls
  [14:17:31.029]             Sys.time <- base::Sys.time
  [14:17:31.029]             `[[` <- base::`[[`
  [14:17:31.029]             `+` <- base::`+`
  [14:17:31.029]             `<<-` <- base::`<<-`
  [14:17:31.029]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:31.029]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:31.029]                   3L)]
  [14:17:31.029]             }
  [14:17:31.029]             function(cond) {
  [14:17:31.029]                 if (inherits(cond, "error")) {
  [14:17:31.029]                   sessionInformation <- function() {
  [14:17:31.029]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:31.029]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:31.029]                       search = base::search(), system = base::Sys.info())
  [14:17:31.029]                   }
  [14:17:31.029]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.029]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:31.029]                     cond$call), session = sessionInformation(), 
  [14:17:31.029]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:31.029]                   signalCondition(cond)
  [14:17:31.029]                 }
  [14:17:31.029]                 else if (inherits(cond, "condition")) {
  [14:17:31.029]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:31.029]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.029]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:31.029]                   if (!signal) {
  [14:17:31.029]                     muffleCondition <- function (cond) 
  [14:17:31.029]                     {
  [14:17:31.029]                       inherits <- base::inherits
  [14:17:31.029]                       invokeRestart <- base::invokeRestart
  [14:17:31.029]                       muffled <- FALSE
  [14:17:31.029]                       if (inherits(cond, "message")) {
  [14:17:31.029]                         invokeRestart("muffleMessage")
  [14:17:31.029]                         muffled <- TRUE
  [14:17:31.029]                       }
  [14:17:31.029]                       else if (inherits(cond, "warning")) {
  [14:17:31.029]                         invokeRestart("muffleWarning")
  [14:17:31.029]                         muffled <- TRUE
  [14:17:31.029]                       }
  [14:17:31.029]                       else if (inherits(cond, "condition")) {
  [14:17:31.029]                         computeRestarts <- base::computeRestarts
  [14:17:31.029]                         grepl <- base::grepl
  [14:17:31.029]                         is.null <- base::is.null
  [14:17:31.029]                         restarts <- computeRestarts(cond)
  [14:17:31.029]                         for (restart in restarts) {
  [14:17:31.029]                           name <- restart$name
  [14:17:31.029]                           if (is.null(name)) 
  [14:17:31.029]                             next
  [14:17:31.029]                           if (!grepl("^muffle", name)) 
  [14:17:31.029]                             next
  [14:17:31.029]                           invokeRestart(restart)
  [14:17:31.029]                           muffled <- TRUE
  [14:17:31.029]                           break
  [14:17:31.029]                         }
  [14:17:31.029]                       }
  [14:17:31.029]                       invisible(muffled)
  [14:17:31.029]                     }
  [14:17:31.029]                     muffleCondition(cond)
  [14:17:31.029]                   }
  [14:17:31.029]                 }
  [14:17:31.029]             }
  [14:17:31.029]         }))
  [14:17:31.029]     }, error = function(ex) {
  [14:17:31.029]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:31.029]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.029]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:31.029]     }, finally = {
  [14:17:31.029]         {
  [14:17:31.029]             {
  [14:17:31.029]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:31.029]             }
  [14:17:31.029]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:31.029]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.029]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.029]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.029]             {
  [14:17:31.029]                 if (substitute) 
  [14:17:31.029]                   expr <- substitute(expr)
  [14:17:31.029]                 if (is.function(workers)) 
  [14:17:31.029]                   workers <- workers()
  [14:17:31.029]                 workers <- as.integer(workers)
  [14:17:31.029]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.029]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.029]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.029]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.029]                     local = TRUE, label = label, ...))
  [14:17:31.029]                 }
  [14:17:31.029]                 oopts <- options(mc.cores = workers)
  [14:17:31.029]                 on.exit(options(oopts))
  [14:17:31.029]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.029]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.029]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.029]                   label = label, ...)
  [14:17:31.029]                 if (!future$lazy) 
  [14:17:31.029]                   future <- run(future)
  [14:17:31.029]                 invisible(future)
  [14:17:31.029]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:31.029]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.029]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.029]             {
  [14:17:31.029]                 if (substitute) 
  [14:17:31.029]                   expr <- substitute(expr)
  [14:17:31.029]                 if (is.function(workers)) 
  [14:17:31.029]                   workers <- workers()
  [14:17:31.029]                 workers <- as.integer(workers)
  [14:17:31.029]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.029]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.029]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.029]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.029]                     local = TRUE, label = label, ...))
  [14:17:31.029]                 }
  [14:17:31.029]                 oopts <- options(mc.cores = workers)
  [14:17:31.029]                 on.exit(options(oopts))
  [14:17:31.029]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.029]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.029]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.029]                   label = label, ...)
  [14:17:31.029]                 if (!future$lazy) 
  [14:17:31.029]                   future <- run(future)
  [14:17:31.029]                 invisible(future)
  [14:17:31.029]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.029]         }
  [14:17:31.029]         base::options(...future.oldOptions)
  [14:17:31.029]     })
  [14:17:31.029]     Sys.time
  [14:17:31.029]     if (base::is.na(TRUE)) {
  [14:17:31.029]     }
  [14:17:31.029]     else {
  [14:17:31.029]         base::sink(type = "output", split = FALSE)
  [14:17:31.029]         if (TRUE) {
  [14:17:31.029]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:31.029]         }
  [14:17:31.029]         else {
  [14:17:31.029]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:31.029]         }
  [14:17:31.029]         base::close(...future.stdout)
  [14:17:31.029]         ...future.stdout <- NULL
  [14:17:31.029]     }
  [14:17:31.029]     ...future.result$conditions <- ...future.conditions
  [14:17:31.029]     ...future.result
  [14:17:31.029] }
  [14:17:31.042] requestCore(): workers = 2
  [14:17:31.048] MulticoreFuture started
  [14:17:31.049] Chunk #2 of 2 ... DONE
  [14:17:31.050] Launching 2 futures (chunks) ... DONE
  [14:17:31.050] - resolving futures
  [14:17:31.051]   - gathering results & relaying conditions (except errors)
  [14:17:31.051] resolve() on list ...
  [14:17:31.052]  recursive: 0
  [14:17:31.053]  length: 2
  [14:17:31.053] 
  [14:17:31.063] plan(): Setting new future strategy stack:
  [14:17:31.065] List of future strategies:
  [14:17:31.065] 1. multicore:
  [14:17:31.065]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.065]    - tweaked: FALSE
  [14:17:31.065]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.069] plan(): nbrOfWorkers() = 1
  [14:17:31.340] plan(): Setting new future strategy stack:
  [14:17:31.341] List of future strategies:
  [14:17:31.341] 1. multicore:
  [14:17:31.341]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.341]    - tweaked: FALSE
  [14:17:31.341]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.341] 2. multicore:
  [14:17:31.341]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.341]    - tweaked: FALSE
  [14:17:31.341]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.345] plan(): nbrOfWorkers() = 2
  [14:17:31.427] plan(): Setting new future strategy stack:
  [14:17:31.427] List of future strategies:
  [14:17:31.427] 1. multicore:
  [14:17:31.427]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.427]    - tweaked: FALSE
  [14:17:31.427]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.427] 2. multicore:
  [14:17:31.427]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.427]    - tweaked: FALSE
  [14:17:31.427]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.431] plan(): nbrOfWorkers() = 2
  [14:17:31.434] Future #2
  [14:17:31.439] signalConditions() ...
  [14:17:31.440]  - include = 'immediateCondition'
  [14:17:31.440]  - exclude = 
  [14:17:31.441]  - resignal = FALSE
  [14:17:31.441]  - Number of conditions: 140
  [14:17:31.443] signalConditions() ... done
  [14:17:31.443] signalConditions() ...
  [14:17:31.444]  - include = 'immediateCondition'
  [14:17:31.444]  - exclude = 
  [14:17:31.445]  - resignal = FALSE
  [14:17:31.446]  - Number of conditions: 140
  [14:17:31.447] signalConditions() ... done
  [14:17:31.447] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:17:31.452] - nx: 2
  [14:17:31.452] - relay: TRUE
  [14:17:31.453] - stdout: TRUE
  [14:17:31.453] - signal: TRUE
  [14:17:31.456] - resignal: FALSE
  [14:17:31.456] - force: FALSE
  [14:17:31.457] - relayed: [n=2] FALSE, FALSE
  [14:17:31.457] - queued futures: [n=2] FALSE, FALSE
  [14:17:31.458]  - until=1
  [14:17:31.458]  - relaying element #1
  [14:17:31.459] - relayed: [n=2] FALSE, FALSE
  [14:17:31.459] - queued futures: [n=2] FALSE, TRUE
  [14:17:31.459] signalConditionsASAP(NULL, pos=2) ... done
  [14:17:31.460]  length: 1 (resolved future 2)
  [14:17:31.561] Future #1
  [14:17:31.566] signalConditions() ...
  [14:17:31.566]  - include = 'immediateCondition'
  [14:17:31.567]  - exclude = 
  [14:17:31.567]  - resignal = FALSE
  [14:17:31.568]  - Number of conditions: 140
  [14:17:31.569] signalConditions() ... done
  [14:17:31.569] signalConditions() ...
  [14:17:31.570]  - include = 'immediateCondition'
  [14:17:31.570]  - exclude = 
  [14:17:31.571]  - resignal = FALSE
  [14:17:31.571]  - Number of conditions: 140
  [14:17:31.572] signalConditions() ... done
  [14:17:31.573] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:17:31.573] - nx: 2
  [14:17:31.574] - relay: TRUE
  [14:17:31.574] - stdout: TRUE
  [14:17:31.575] - signal: TRUE
  [14:17:31.575] - resignal: FALSE
  [14:17:31.576] - force: FALSE
  [14:17:31.576] - relayed: [n=2] FALSE, FALSE
  [14:17:31.577] - queued futures: [n=2] FALSE, TRUE
  [14:17:31.577]  - until=1
  [14:17:31.578]  - relaying element #1
  [14:17:31.578] signalConditions() ...
  [14:17:31.579]  - include = 'immediateCondition'
  [14:17:31.579]  - exclude = 
  [14:17:31.580]  - resignal = FALSE
  [14:17:31.580]  - Number of conditions: 140
  [14:17:31.581] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.582] signalConditions() ...
  [14:17:31.583]  - include = 'immediateCondition'
  [14:17:31.583]  - exclude = 
  [14:17:31.584]  - resignal = FALSE
  [14:17:31.584]  - Number of conditions: 140
  [14:17:31.585] signalConditions() ... done
  [14:17:31.586] signalConditions() ...
  [14:17:31.586]  - include = 'condition'
  [14:17:31.586]  - exclude = 'immediateCondition'
  [14:17:31.587]  - resignal = FALSE
  [14:17:31.587]  - Number of conditions: 140
  [14:17:31.588]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:31.589]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:31.019] doFuture() ...
  [14:17:31.589]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:31.023] - dummy globals (as locals): [1] 'b'
  [14:17:31.590]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:31.026] - R expression:
  [14:17:31.592]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:31.026] {
  [14:17:31.026]     doFuture::registerDoFuture()
  [14:17:31.026]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.026]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.026]         b <- NULL
  [14:17:31.026]         ...future.env <- environment()
  [14:17:31.026]         local({
  [14:17:31.026]             for (name in names(...future.x_jj)) {
  [14:17:31.026]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.026]                   inherits = FALSE)
  [14:17:31.026]             }
  [14:17:31.026]         })
  [14:17:31.026]         tryCatch({
  [14:17:31.026]             plan_list <- future::plan("next")
  [14:17:31.026]             message(capture.output(print(plan_list)))
  [14:17:31.026]             stopifnot(inherits(plan_list, "future"))
  [14:17:31.026]             default <- getOption("future.plan", "sequential")
  [14:17:31.026]             if (is.function(default)) 
  [14:17:31.026]                 default <- class(default)
  [14:17:31.026]             stopifnot(inherits(plan_list, default))
  [14:17:31.026]             plan_b <- future::plan("list")
  [14:17:31.026]             str(plan_b)
  [14:17:31.026]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:31.026]                 default))
  [14:17:31.026]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.026]         }, error = identity)
  [14:17:31.026]     })
  [14:17:31.026] }
  [14:17:31.593]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:31.029] - identifying globals and packages ...
  [14:17:31.593]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:31.030] getGlobalsAndPackages() ...
  [14:17:31.594]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:31.031] Searching for globals...
  [14:17:31.595]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:31.079] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:31.595]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:31.081] Searching for globals ... DONE
  [14:17:31.596]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:31.082] Resolving globals: FALSE
  [14:17:31.597]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:31.087] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:17:31.597]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:31.089] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.598]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:31.090] - packages: [1] 'utils'
  [14:17:31.599]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:31.091] getGlobalsAndPackages() ... DONE
  [14:17:31.600]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:31.092] List of 3
  [14:17:31.092]  $ ...future.x_ii: NULL
  [14:17:31.092]  $ a             : int 1
  [14:17:31.092]  $ plan_a        :List of 1
  [14:17:31.092]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:31.092]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.092]     earlySignal = FALSE, label = NULL, ...)  
  [14:17:31.092]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:17:31.092]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:31.092]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.092]  - attr(*, "where")=List of 3
  [14:17:31.092]   ..$ ...future.x_ii:<environment: 0x490f580> 
  [14:17:31.092]   ..$ a             :<environment: 0x4787f08> 
  [14:17:31.092]   ..$ plan_a        :<environment: 0x4787f08> 
  [14:17:31.092]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.092]  - attr(*, "resolved")= logi FALSE
  [14:17:31.092]  - attr(*, "total_size")= num 76816
  [14:17:31.600]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:31.118]   - R expression:
  [14:17:31.601]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:31.119] {
  [14:17:31.119]     doFuture::registerDoFuture()
  [14:17:31.119]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.119]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.119]         b <- NULL
  [14:17:31.119]         ...future.env <- environment()
  [14:17:31.119]         local({
  [14:17:31.119]             for (name in names(...future.x_jj)) {
  [14:17:31.119]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.119]                   inherits = FALSE)
  [14:17:31.119]             }
  [14:17:31.119]         })
  [14:17:31.119]         tryCatch({
  [14:17:31.119]             plan_list <- future::plan("next")
  [14:17:31.119]             message(capture.output(print(plan_list)))
  [14:17:31.119]             stopifnot(inherits(plan_list, "future"))
  [14:17:31.119]             default <- getOption("future.plan", "sequential")
  [14:17:31.119]             if (is.function(default)) 
  [14:17:31.119]                 default <- class(default)
  [14:17:31.119]             stopifnot(inherits(plan_list, default))
  [14:17:31.119]             plan_b <- future::plan("list")
  [14:17:31.119]             str(plan_b)
  [14:17:31.119]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:31.119]                 default))
  [14:17:31.119]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.119]         }, error = identity)
  [14:17:31.119]     })
  [14:17:31.119] }
  [14:17:31.602]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:31.122]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.602]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:31.123] List of 3
  [14:17:31.123]  $ ...future.x_ii: NULL
  [14:17:31.123]  $ a             : int 1
  [14:17:31.123]  $ plan_a        :List of 1
  [14:17:31.123]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:31.123]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.123]     earlySignal = FALSE, label = NULL, ...)  
  [14:17:31.123]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:17:31.123]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:31.123]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.123]  - attr(*, "where")=List of 3
  [14:17:31.123]   ..$ ...future.x_ii:<environment: 0x490f580> 
  [14:17:31.123]   ..$ a             :<environment: 0x4787f08> 
  [14:17:31.123]   ..$ plan_a        :<environment: 0x4787f08> 
  [14:17:31.123]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.123]  - attr(*, "resolved")= logi FALSE
  [14:17:31.123]  - attr(*, "total_size")= num 76816
  [14:17:31.603]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:17:31.149]   - packages: [2] 'doFuture', 'utils'
  [14:17:31.604]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:17:31.150] - identifying globals and packages ... DONE
  [14:17:31.605]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:17:31.152] Number of chunks: 1
  [14:17:31.605]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:17:31.153] Number of futures (= number of chunks): 1
  [14:17:31.606]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:17:31.155] Launching 1 futures (chunks) ...
  [14:17:31.607]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:17:31.156] Chunk #1 of 1 ...
  [14:17:31.607]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:17:31.157]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:31.608]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:17:31.158] getGlobalsAndPackages() ...
  [14:17:31.608]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:17:31.159] Searching for globals...
  [14:17:31.609]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:17:31.161] 
  [14:17:31.610]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:17:31.162] Searching for globals ... DONE
  [14:17:31.610]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:17:31.163] - globals: [0] <none>
  [14:17:31.612]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:17:31.164] getGlobalsAndPackages() ... DONE
  [14:17:31.613]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:17:31.165] 
  [14:17:31.613]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:17:31.166] 
  [14:17:31.614]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:17:31.167]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:31.615]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:17:31.169] getGlobalsAndPackages() ...
  [14:17:31.615]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:17:31.170] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.616]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:17:31.171] Resolving globals: FALSE
  [14:17:31.617]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:17:31.174] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [14:17:31.617]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:17:31.175] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.618]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:17:31.176] 
  [14:17:31.619]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:17:31.177] getGlobalsAndPackages() ... DONE
  [14:17:31.619]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:17:31.182] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:31.620]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:17:31.183] Packages needed by future strategies (n = 0): <none>
  [14:17:31.621]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:17:31.193] {
  [14:17:31.193]     {
  [14:17:31.193]         ...future.startTime <- base::Sys.time()
  [14:17:31.193]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:31.193]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:31.193]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:31.193]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:31.193]             future.resolve.recursive = NULL, width = 80L)
  [14:17:31.193]         {
  [14:17:31.193]             {
  [14:17:31.193]                 {
  [14:17:31.193]                   base::local({
  [14:17:31.193]                     has_future <- base::requireNamespace("future", 
  [14:17:31.193]                       quietly = TRUE)
  [14:17:31.193]                     version <- if (has_future) 
  [14:17:31.193]                       utils::packageVersion("future")
  [14:17:31.193]                     else NULL
  [14:17:31.193]                     if (!has_future || version < "1.8.0") {
  [14:17:31.193]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:31.193]                         "", base::R.version$version.string), 
  [14:17:31.193]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:31.193]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:31.193]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:31.193]                           "release", "version")], collapse = " "), 
  [14:17:31.193]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:31.193]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:31.193]                         info)
  [14:17:31.193]                       info <- base::paste(info, collapse = "; ")
  [14:17:31.193]                       if (!has_future) {
  [14:17:31.193]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:31.193]                           info)
  [14:17:31.193]                       }
  [14:17:31.193]                       else {
  [14:17:31.193]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:31.193]                           info, version)
  [14:17:31.193]                       }
  [14:17:31.193]                       base::stop(msg)
  [14:17:31.193]                     }
  [14:17:31.193]                   })
  [14:17:31.193]                 }
  [14:17:31.193]                 base::local({
  [14:17:31.193]                   for (pkg in c("doFuture", "utils")) {
  [14:17:31.193]                     base::loadNamespace(pkg)
  [14:17:31.193]                     base::library(pkg, character.only = TRUE)
  [14:17:31.193]                   }
  [14:17:31.193]                 })
  [14:17:31.193]             }
  [14:17:31.193]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:31.193]         }
  [14:17:31.193]     }
  [14:17:31.193]     if (base::is.na(TRUE)) {
  [14:17:31.193]     }
  [14:17:31.193]     else {
  [14:17:31.193]         if (TRUE) {
  [14:17:31.193]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:31.193]                 open = "w")
  [14:17:31.193]         }
  [14:17:31.193]         else {
  [14:17:31.193]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:31.193]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:31.193]         }
  [14:17:31.193]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:31.193]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:31.193]             base::sink(type = "output", split = FALSE)
  [14:17:31.193]             base::close(...future.stdout)
  [14:17:31.193]         }, add = TRUE)
  [14:17:31.193]     }
  [14:17:31.193]     ...future.frame <- base::sys.nframe()
  [14:17:31.193]     ...future.conditions <- base::list()
  [14:17:31.193]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:31.193]     ...future.result <- base::tryCatch({
  [14:17:31.193]         base::withCallingHandlers({
  [14:17:31.193]             ...future.value <- base::withVisible(base::local({
  [14:17:31.193]                 doFuture::registerDoFuture()
  [14:17:31.193]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.193]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.193]                   b <- NULL
  [14:17:31.193]                   ...future.env <- environment()
  [14:17:31.193]                   local({
  [14:17:31.193]                     for (name in names(...future.x_jj)) {
  [14:17:31.193]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.193]                         inherits = FALSE)
  [14:17:31.193]                     }
  [14:17:31.193]                   })
  [14:17:31.193]                   tryCatch({
  [14:17:31.193]                     plan_list <- future::plan("next")
  [14:17:31.193]                     message(capture.output(print(plan_list)))
  [14:17:31.193]                     stopifnot(inherits(plan_list, "future"))
  [14:17:31.193]                     default <- getOption("future.plan", "sequential")
  [14:17:31.193]                     if (is.function(default)) 
  [14:17:31.193]                       default <- class(default)
  [14:17:31.193]                     stopifnot(inherits(plan_list, default))
  [14:17:31.193]                     plan_b <- future::plan("list")
  [14:17:31.193]                     str(plan_b)
  [14:17:31.193]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.193]                       inherits(plan_b[[1]], default))
  [14:17:31.193]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.193]                   }, error = identity)
  [14:17:31.193]                 })
  [14:17:31.193]             }))
  [14:17:31.193]             future::FutureResult(value = ...future.value$value, 
  [14:17:31.193]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.193]                   ...future.rng), started = ...future.startTime, 
  [14:17:31.193]                 version = "1.8")
  [14:17:31.193]         }, condition = base::local({
  [14:17:31.193]             c <- base::c
  [14:17:31.193]             inherits <- base::inherits
  [14:17:31.193]             invokeRestart <- base::invokeRestart
  [14:17:31.193]             length <- base::length
  [14:17:31.193]             list <- base::list
  [14:17:31.193]             seq.int <- base::seq.int
  [14:17:31.193]             signalCondition <- base::signalCondition
  [14:17:31.193]             sys.calls <- base::sys.calls
  [14:17:31.193]             Sys.time <- base::Sys.time
  [14:17:31.193]             `[[` <- base::`[[`
  [14:17:31.193]             `+` <- base::`+`
  [14:17:31.193]             `<<-` <- base::`<<-`
  [14:17:31.193]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:31.193]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:31.193]                   3L)]
  [14:17:31.193]             }
  [14:17:31.193]             function(cond) {
  [14:17:31.193]                 if (inherits(cond, "error")) {
  [14:17:31.193]                   sessionInformation <- function() {
  [14:17:31.193]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:31.193]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:31.193]                       search = base::search(), system = base::Sys.info())
  [14:17:31.193]                   }
  [14:17:31.193]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.193]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:31.193]                     cond$call), session = sessionInformation(), 
  [14:17:31.193]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:31.193]                   signalCondition(cond)
  [14:17:31.193]                 }
  [14:17:31.193]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:31.193]                 ))) {
  [14:17:31.193]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:31.193]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.193]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:31.193]                   if (!signal) {
  [14:17:31.193]                     muffleCondition <- function (cond) 
  [14:17:31.193]                     {
  [14:17:31.193]                       inherits <- base::inherits
  [14:17:31.193]                       invokeRestart <- base::invokeRestart
  [14:17:31.193]                       muffled <- FALSE
  [14:17:31.193]                       if (inherits(cond, "message")) {
  [14:17:31.193]                         invokeRestart("muffleMessage")
  [14:17:31.193]                         muffled <- TRUE
  [14:17:31.193]                       }
  [14:17:31.193]                       else if (inherits(cond, "warning")) {
  [14:17:31.193]                         invokeRestart("muffleWarning")
  [14:17:31.193]                         muffled <- TRUE
  [14:17:31.193]                       }
  [14:17:31.193]                       else if (inherits(cond, "condition")) {
  [14:17:31.193]                         computeRestarts <- base::computeRestarts
  [14:17:31.193]                         grepl <- base::grepl
  [14:17:31.193]                         is.null <- base::is.null
  [14:17:31.193]                         restarts <- computeRestarts(cond)
  [14:17:31.193]                         for (restart in restarts) {
  [14:17:31.193]                           name <- restart$name
  [14:17:31.193]                           if (is.null(name)) 
  [14:17:31.193]                             next
  [14:17:31.193]                           if (!grepl("^muffle", name)) 
  [14:17:31.193]                             next
  [14:17:31.193]                           invokeRestart(restart)
  [14:17:31.193]                           muffled <- TRUE
  [14:17:31.193]                           break
  [14:17:31.193]                         }
  [14:17:31.193]                       }
  [14:17:31.193]                       invisible(muffled)
  [14:17:31.193]                     }
  [14:17:31.193]                     muffleCondition(cond)
  [14:17:31.193]                   }
  [14:17:31.193]                 }
  [14:17:31.193]             }
  [14:17:31.193]         }))
  [14:17:31.193]     }, error = function(ex) {
  [14:17:31.193]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:31.193]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.193]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:31.193]     }, finally = {
  [14:17:31.193]         {
  [14:17:31.193]             NULL
  [14:17:31.193]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:31.193]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.193]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.193]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.193]             {
  [14:17:31.193]                 if (substitute) 
  [14:17:31.193]                   expr <- substitute(expr)
  [14:17:31.193]                 if (is.function(workers)) 
  [14:17:31.193]                   workers <- workers()
  [14:17:31.193]                 workers <- as.integer(workers)
  [14:17:31.193]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.193]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.193]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.193]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.193]                     local = TRUE, label = label, ...))
  [14:17:31.193]                 }
  [14:17:31.193]                 oopts <- options(mc.cores = workers)
  [14:17:31.193]                 on.exit(options(oopts))
  [14:17:31.193]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.193]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.193]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.193]                   label = label, ...)
  [14:17:31.193]                 if (!future$lazy) 
  [14:17:31.193]                   future <- run(future)
  [14:17:31.193]                 invisible(future)
  [14:17:31.193]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.193]         }
  [14:17:31.193]         base::options(...future.oldOptions)
  [14:17:31.193]     })
  [14:17:31.193]     Sys.time
  [14:17:31.193]     if (base::is.na(TRUE)) {
  [14:17:31.193]     }
  [14:17:31.193]     else {
  [14:17:31.193]         base::sink(type = "output", split = FALSE)
  [14:17:31.193]         if (TRUE) {
  [14:17:31.193]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:31.193]         }
  [14:17:31.193]         else {
  [14:17:31.193]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:31.193]         }
  [14:17:31.193]         base::close(...future.stdout)
  [14:17:31.193]         ...future.stdout <- NULL
  [14:17:31.193]     }
  [14:17:31.193]     ...future.result$conditions <- ...future.conditions
  [14:17:31.193]     ...future.result
  [14:17:31.193] }
  [14:17:31.621]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:17:31.214] plan(): Setting new future strategy stack:
  [14:17:31.622]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:17:31.215] List of future strategies:
  [14:17:31.215] 1. sequential:
  [14:17:31.215]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:31.215]    - tweaked: FALSE
  [14:17:31.215]    - call: NULL
  [14:17:31.623]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:17:31.217] plan(): nbrOfWorkers() = 1
  [14:17:31.624]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:17:31.244] plan(): Setting new future strategy stack:
  [14:17:31.624]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:17:31.245] List of future strategies:
  [14:17:31.245] 1. multicore:
  [14:17:31.245]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.245]    - tweaked: FALSE
  [14:17:31.245]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.625]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:17:31.249] plan(): nbrOfWorkers() = 1
  [14:17:31.626]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:17:31.250] SequentialFuture started (and completed)
  [14:17:31.627]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:17:31.251] signalConditions() ...
  [14:17:31.628]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:17:31.252]  - include = 'immediateCondition'
  [14:17:31.628]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:17:31.253]  - exclude = 
  [14:17:31.629]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:17:31.254]  - resignal = FALSE
  [14:17:31.630]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:17:31.255]  - Number of conditions: 3
  [14:17:31.630]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:17:31.257] signalConditions() ... done
  [14:17:31.631]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:17:31.258] Chunk #1 of 1 ... DONE
  [14:17:31.632]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:17:31.259] Launching 1 futures (chunks) ... DONE
  [14:17:31.632]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:17:31.260] - resolving futures
  [14:17:31.633]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:17:31.260]   - gathering results & relaying conditions (except errors)
  [14:17:31.634]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:17:31.262] resolve() on list ...
  [14:17:31.634]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:17:31.262]  recursive: 0
  [14:17:31.635]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:31.264]  length: 1
  [14:17:31.635]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:31.264] 
  [14:17:31.636]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:31.266] Future #1
  [14:17:31.637]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:31.267] signalConditions() ...
  [14:17:31.637]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:31.268]  - include = 'immediateCondition'
  [14:17:31.638]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:31.269]  - exclude = 
  [14:17:31.639]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:31.270]  - resignal = FALSE
  [14:17:31.639]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:31.271]  - Number of conditions: 3
  [14:17:31.640]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:31.272] signalConditions() ... done
  [14:17:31.641]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:31.273] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:31.642]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:31.274] - nx: 1
  [14:17:31.643]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:31.275] - relay: TRUE
  [14:17:31.643]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:31.276] - stdout: TRUE
  [14:17:31.644]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:31.277] - signal: TRUE
  [14:17:31.645]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:31.278] - resignal: FALSE
  [14:17:31.645]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:31.279] - force: FALSE
  [14:17:31.646]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:31.280] - relayed: [n=1] FALSE
  [14:17:31.647]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:31.281] - queued futures: [n=1] FALSE
  [14:17:31.647]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:31.282]  - until=1
  [14:17:31.648]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:31.283]  - relaying element #1
  [14:17:31.649]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:31.284] signalConditions() ...
  [14:17:31.649]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:31.285]  - include = 'immediateCondition'
  [14:17:31.650]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:31.286]  - exclude = 
  [14:17:31.651]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:31.287]  - resignal = FALSE
  [14:17:31.652]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:31.288]  - Number of conditions: 3
  [14:17:31.652]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:31.289] signalConditions() ... done
  [14:17:31.653]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:31.290] signalConditions() ...
  [14:17:31.654]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:31.291]  - include = 'immediateCondition'
  [14:17:31.654]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:31.292]  - exclude = 
  [14:17:31.655]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:31.293]  - resignal = FALSE
  [14:17:31.656]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:31.294]  - Number of conditions: 3
  [14:17:31.657]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:31.295] signalConditions() ... done
  [14:17:31.657]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:31.297] signalConditions() ...
  [14:17:31.658]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:31.297]  - include = 'condition'
  [14:17:31.659]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:31.298]  - exclude = 'immediateCondition'
  [14:17:31.659]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:31.299]  - resignal = FALSE
  [14:17:31.660]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:31.301]  - Number of conditions: 3
  [14:17:31.661]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:31.301]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:31.661]  - Condition #104: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.662]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:31.303]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:31.663]  - Condition #106: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.663]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:31.304]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:31.664]  - Condition #108: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.665]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:31.306] signalConditions() ... done
  [14:17:31.665]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:31.307] - relayed: [n=1] TRUE
  [14:17:31.666]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:31.308] - queued futures: [n=1] TRUE
  [14:17:31.667]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:31.309] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:31.667]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:31.310]  length: 0 (resolved future 1)
  [14:17:31.668]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:31.311] Relaying remaining futures
  [14:17:31.669]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:31.312] signalConditionsASAP(NULL, pos=0) ...
  [14:17:31.670]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:31.313] - nx: 1
  [14:17:31.670]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:31.314] - relay: TRUE
  [14:17:31.671]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:31.315] - stdout: TRUE
  [14:17:31.672]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:31.316] - signal: TRUE
  [14:17:31.673]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:31.317] - resignal: FALSE
  [14:17:31.673]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:31.318] - force: FALSE
  [14:17:31.674]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:31.319] - relayed: [n=1] TRUE
  [14:17:31.675]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:31.320] - queued futures: [n=1] TRUE
  [14:17:31.676]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:31.676]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:31.322] - relayed: [n=1] TRUE
  [14:17:31.677]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:31.323] - queued futures: [n=1] TRUE
  [14:17:31.678]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:31.324] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:31.679]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:31.325] resolve() on list ... DONE
  [14:17:31.679]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:31.326] - collecting values of futures
  [14:17:31.680]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:31.327] signalConditions() ...
  [14:17:31.681]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:31.328]  - include = 'immediateCondition'
  [14:17:31.681]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:31.329]  - exclude = 
  [14:17:31.682]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:31.330]  - resignal = FALSE
  [14:17:31.683]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:31.331]  - Number of conditions: 3
  [14:17:31.684]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:31.332] signalConditions() ... done
  [14:17:31.685]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:31.333] - accumulating results
  [14:17:31.686]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:31.336] - processing errors (handler = 'stop')
  [14:17:31.686]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:31.337] - extracting results
  [14:17:31.687]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:31.338] doFuture() ... DONE
  [14:17:31.688]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:31.689] signalConditions() ... done
  [14:17:31.689] - relayed: [n=2] TRUE, FALSE
  [14:17:31.690] - queued futures: [n=2] TRUE, TRUE
  [14:17:31.690] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [14:17:31.690]  length: 0 (resolved future 1)
  [14:17:31.691] Relaying remaining futures
  [14:17:31.691] signalConditionsASAP(NULL, pos=0) ...
  [14:17:31.691] - nx: 2
  [14:17:31.692] - relay: TRUE
  [14:17:31.692] - stdout: TRUE
  [14:17:31.692] - signal: TRUE
  [14:17:31.693] - resignal: FALSE
  [14:17:31.693] - force: FALSE
  [14:17:31.693] - relayed: [n=2] TRUE, FALSE
  [14:17:31.693] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [14:17:31.694]  - relaying element #2
  [14:17:31.694] signalConditions() ...
  [14:17:31.695]  - include = 'immediateCondition'
  [14:17:31.695]  - exclude = 
  [14:17:31.696]  - resignal = FALSE
  [14:17:31.696]  - Number of conditions: 140
  [14:17:31.697] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
      earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.698] signalConditions() ...
  [14:17:31.698]  - include = 'immediateCondition'
  [14:17:31.698]  - exclude = 
  [14:17:31.699]  - resignal = FALSE
  [14:17:31.699]  - Number of conditions: 140
  [14:17:31.699] signalConditions() ... done
  [14:17:31.700] signalConditions() ...
  [14:17:31.700]  - include = 'condition'
  [14:17:31.700]  - exclude = 'immediateCondition'
  [14:17:31.701]  - resignal = FALSE
  [14:17:31.701]  - Number of conditions: 140
  [14:17:31.702]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:31.702]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:31.083] doFuture() ...
  [14:17:31.703]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:31.088] - dummy globals (as locals): [1] 'b'
  [14:17:31.704]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:31.090] - R expression:
  [14:17:31.704]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:31.091] {
  [14:17:31.091]     doFuture::registerDoFuture()
  [14:17:31.091]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.091]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.091]         b <- NULL
  [14:17:31.091]         ...future.env <- environment()
  [14:17:31.091]         local({
  [14:17:31.091]             for (name in names(...future.x_jj)) {
  [14:17:31.091]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.091]                   inherits = FALSE)
  [14:17:31.091]             }
  [14:17:31.091]         })
  [14:17:31.091]         tryCatch({
  [14:17:31.091]             plan_list <- future::plan("next")
  [14:17:31.091]             message(capture.output(print(plan_list)))
  [14:17:31.091]             stopifnot(inherits(plan_list, "future"))
  [14:17:31.091]             default <- getOption("future.plan", "sequential")
  [14:17:31.091]             if (is.function(default)) 
  [14:17:31.091]                 default <- class(default)
  [14:17:31.091]             stopifnot(inherits(plan_list, default))
  [14:17:31.091]             plan_b <- future::plan("list")
  [14:17:31.091]             str(plan_b)
  [14:17:31.091]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:31.091]                 default))
  [14:17:31.091]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.091]         }, error = identity)
  [14:17:31.091]     })
  [14:17:31.091] }
  [14:17:31.705]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:31.093] - identifying globals and packages ...
  [14:17:31.706]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:31.095] getGlobalsAndPackages() ...
  [14:17:31.706]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:31.095] Searching for globals...
  [14:17:31.716]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:31.148] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:31.716]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:31.149] Searching for globals ... DONE
  [14:17:31.717]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:31.150] Resolving globals: FALSE
  [14:17:31.718]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:31.156] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [14:17:31.719]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:31.157] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.719]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:31.159] - packages: [1] 'utils'
  [14:17:31.720]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:31.160] getGlobalsAndPackages() ... DONE
  [14:17:31.721]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:31.161] List of 3
  [14:17:31.161]  $ ...future.x_ii: NULL
  [14:17:31.161]  $ a             : int 2
  [14:17:31.161]  $ plan_a        :List of 1
  [14:17:31.161]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:31.161]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.161]     earlySignal = FALSE, label = NULL, ...)  
  [14:17:31.161]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:17:31.161]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:31.161]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.161]  - attr(*, "where")=List of 3
  [14:17:31.161]   ..$ ...future.x_ii:<environment: 0x4c24628> 
  [14:17:31.161]   ..$ a             :<environment: 0x4a9d368> 
  [14:17:31.161]   ..$ plan_a        :<environment: 0x4a9d368> 
  [14:17:31.161]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.161]  - attr(*, "resolved")= logi FALSE
  [14:17:31.161]  - attr(*, "total_size")= num 76816
  [14:17:31.721]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:31.188]   - R expression:
  [14:17:31.722]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:31.189] {
  [14:17:31.189]     doFuture::registerDoFuture()
  [14:17:31.189]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.189]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.189]         b <- NULL
  [14:17:31.189]         ...future.env <- environment()
  [14:17:31.189]         local({
  [14:17:31.189]             for (name in names(...future.x_jj)) {
  [14:17:31.189]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.189]                   inherits = FALSE)
  [14:17:31.189]             }
  [14:17:31.189]         })
  [14:17:31.189]         tryCatch({
  [14:17:31.189]             plan_list <- future::plan("next")
  [14:17:31.189]             message(capture.output(print(plan_list)))
  [14:17:31.189]             stopifnot(inherits(plan_list, "future"))
  [14:17:31.189]             default <- getOption("future.plan", "sequential")
  [14:17:31.189]             if (is.function(default)) 
  [14:17:31.189]                 default <- class(default)
  [14:17:31.189]             stopifnot(inherits(plan_list, default))
  [14:17:31.189]             plan_b <- future::plan("list")
  [14:17:31.189]             str(plan_b)
  [14:17:31.189]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:31.189]                 default))
  [14:17:31.189]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.189]         }, error = identity)
  [14:17:31.189]     })
  [14:17:31.189] }
  [14:17:31.723]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:31.192]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.724]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:31.193] List of 3
  [14:17:31.193]  $ ...future.x_ii: NULL
  [14:17:31.193]  $ a             : int 2
  [14:17:31.193]  $ plan_a        :List of 1
  [14:17:31.193]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:31.193]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.193]     earlySignal = FALSE, label = NULL, ...)  
  [14:17:31.193]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [14:17:31.193]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:31.193]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:31.193]  - attr(*, "where")=List of 3
  [14:17:31.193]   ..$ ...future.x_ii:<environment: 0x4c24628> 
  [14:17:31.193]   ..$ a             :<environment: 0x4a9d368> 
  [14:17:31.193]   ..$ plan_a        :<environment: 0x4a9d368> 
  [14:17:31.193]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.193]  - attr(*, "resolved")= logi FALSE
  [14:17:31.193]  - attr(*, "total_size")= num 76816
  [14:17:31.724]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [14:17:31.219]   - packages: [2] 'doFuture', 'utils'
  [14:17:31.725]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [14:17:31.221] - identifying globals and packages ... DONE
  [14:17:31.726]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [14:17:31.223] Number of chunks: 1
  [14:17:31.726]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [14:17:31.224] Number of futures (= number of chunks): 1
  [14:17:31.727]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [14:17:31.226] Launching 1 futures (chunks) ...
  [14:17:31.728]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [14:17:31.227] Chunk #1 of 1 ...
  [14:17:31.728]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [14:17:31.228]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:31.729]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [14:17:31.229] getGlobalsAndPackages() ...
  [14:17:31.730]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [14:17:31.230] Searching for globals...
  [14:17:31.730]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [14:17:31.232] 
  [14:17:31.731]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [14:17:31.233] Searching for globals ... DONE
  [14:17:31.732]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [14:17:31.234] - globals: [0] <none>
  [14:17:31.733]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [14:17:31.235] getGlobalsAndPackages() ... DONE
  [14:17:31.733]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [14:17:31.236] 
  [14:17:31.734]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [14:17:31.249] 
  [14:17:31.735]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [14:17:31.250]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:31.735]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [14:17:31.252] getGlobalsAndPackages() ...
  [14:17:31.736]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [14:17:31.253] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.737]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [14:17:31.255] Resolving globals: FALSE
  [14:17:31.737]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [14:17:31.258] The total size of the 3 globals is 75.18 KiB (76984 bytes)
  [14:17:31.738]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [14:17:31.259] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:31.739]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [14:17:31.260] 
  [14:17:31.739]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [14:17:31.261] getGlobalsAndPackages() ... DONE
  [14:17:31.740]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [14:17:31.268] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [14:17:31.741]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [14:17:31.269] Packages needed by future strategies (n = 0): <none>
  [14:17:31.741]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [14:17:31.283] {
  [14:17:31.283]     {
  [14:17:31.283]         ...future.startTime <- base::Sys.time()
  [14:17:31.283]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:31.283]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:31.283]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:31.283]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:31.283]             future.resolve.recursive = NULL, width = 80L)
  [14:17:31.283]         {
  [14:17:31.283]             {
  [14:17:31.283]                 {
  [14:17:31.283]                   base::local({
  [14:17:31.283]                     has_future <- base::requireNamespace("future", 
  [14:17:31.283]                       quietly = TRUE)
  [14:17:31.283]                     version <- if (has_future) 
  [14:17:31.283]                       utils::packageVersion("future")
  [14:17:31.283]                     else NULL
  [14:17:31.283]                     if (!has_future || version < "1.8.0") {
  [14:17:31.283]                       info <- base::c(r_version = base::gsub("R version ", 
  [14:17:31.283]                         "", base::R.version$version.string), 
  [14:17:31.283]                         platform = base::sprintf("%s (%s-bit)", 
  [14:17:31.283]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:31.283]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:31.283]                           "release", "version")], collapse = " "), 
  [14:17:31.283]                         hostname = base::Sys.info()[["nodename"]])
  [14:17:31.283]                       info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:31.283]                         info)
  [14:17:31.283]                       info <- base::paste(info, collapse = "; ")
  [14:17:31.283]                       if (!has_future) {
  [14:17:31.283]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:31.283]                           info)
  [14:17:31.283]                       }
  [14:17:31.283]                       else {
  [14:17:31.283]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:31.283]                           info, version)
  [14:17:31.283]                       }
  [14:17:31.283]                       base::stop(msg)
  [14:17:31.283]                     }
  [14:17:31.283]                   })
  [14:17:31.283]                 }
  [14:17:31.283]                 base::local({
  [14:17:31.283]                   for (pkg in c("doFuture", "utils")) {
  [14:17:31.283]                     base::loadNamespace(pkg)
  [14:17:31.283]                     base::library(pkg, character.only = TRUE)
  [14:17:31.283]                   }
  [14:17:31.283]                 })
  [14:17:31.283]             }
  [14:17:31.283]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [14:17:31.283]         }
  [14:17:31.283]     }
  [14:17:31.283]     if (base::is.na(TRUE)) {
  [14:17:31.283]     }
  [14:17:31.283]     else {
  [14:17:31.283]         if (TRUE) {
  [14:17:31.283]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:31.283]                 open = "w")
  [14:17:31.283]         }
  [14:17:31.283]         else {
  [14:17:31.283]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:31.283]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:31.283]         }
  [14:17:31.283]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:31.283]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:31.283]             base::sink(type = "output", split = FALSE)
  [14:17:31.283]             base::close(...future.stdout)
  [14:17:31.283]         }, add = TRUE)
  [14:17:31.283]     }
  [14:17:31.283]     ...future.frame <- base::sys.nframe()
  [14:17:31.283]     ...future.conditions <- base::list()
  [14:17:31.283]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:31.283]     ...future.result <- base::tryCatch({
  [14:17:31.283]         base::withCallingHandlers({
  [14:17:31.283]             ...future.value <- base::withVisible(base::local({
  [14:17:31.283]                 doFuture::registerDoFuture()
  [14:17:31.283]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.283]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.283]                   b <- NULL
  [14:17:31.283]                   ...future.env <- environment()
  [14:17:31.283]                   local({
  [14:17:31.283]                     for (name in names(...future.x_jj)) {
  [14:17:31.283]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.283]                         inherits = FALSE)
  [14:17:31.283]                     }
  [14:17:31.283]                   })
  [14:17:31.283]                   tryCatch({
  [14:17:31.283]                     plan_list <- future::plan("next")
  [14:17:31.283]                     message(capture.output(print(plan_list)))
  [14:17:31.283]                     stopifnot(inherits(plan_list, "future"))
  [14:17:31.283]                     default <- getOption("future.plan", "sequential")
  [14:17:31.283]                     if (is.function(default)) 
  [14:17:31.283]                       default <- class(default)
  [14:17:31.283]                     stopifnot(inherits(plan_list, default))
  [14:17:31.283]                     plan_b <- future::plan("list")
  [14:17:31.283]                     str(plan_b)
  [14:17:31.283]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.283]                       inherits(plan_b[[1]], default))
  [14:17:31.283]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.283]                   }, error = identity)
  [14:17:31.283]                 })
  [14:17:31.283]             }))
  [14:17:31.283]             future::FutureResult(value = ...future.value$value, 
  [14:17:31.283]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.283]                   ...future.rng), started = ...future.startTime, 
  [14:17:31.283]                 version = "1.8")
  [14:17:31.283]         }, condition = base::local({
  [14:17:31.283]             c <- base::c
  [14:17:31.283]             inherits <- base::inherits
  [14:17:31.283]             invokeRestart <- base::invokeRestart
  [14:17:31.283]             length <- base::length
  [14:17:31.283]             list <- base::list
  [14:17:31.283]             seq.int <- base::seq.int
  [14:17:31.283]             signalCondition <- base::signalCondition
  [14:17:31.283]             sys.calls <- base::sys.calls
  [14:17:31.283]             Sys.time <- base::Sys.time
  [14:17:31.283]             `[[` <- base::`[[`
  [14:17:31.283]             `+` <- base::`+`
  [14:17:31.283]             `<<-` <- base::`<<-`
  [14:17:31.283]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:31.283]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:31.283]                   3L)]
  [14:17:31.283]             }
  [14:17:31.283]             function(cond) {
  [14:17:31.283]                 if (inherits(cond, "error")) {
  [14:17:31.283]                   sessionInformation <- function() {
  [14:17:31.283]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:31.283]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:31.283]                       search = base::search(), system = base::Sys.info())
  [14:17:31.283]                   }
  [14:17:31.283]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.283]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:31.283]                     cond$call), session = sessionInformation(), 
  [14:17:31.283]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:31.283]                   signalCondition(cond)
  [14:17:31.283]                 }
  [14:17:31.283]                 else if (inherits(cond, c("condition", "immediateCondition"
  [14:17:31.283]                 ))) {
  [14:17:31.283]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [14:17:31.283]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.283]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:31.283]                   if (!signal) {
  [14:17:31.283]                     muffleCondition <- function (cond) 
  [14:17:31.283]                     {
  [14:17:31.283]                       inherits <- base::inherits
  [14:17:31.283]                       invokeRestart <- base::invokeRestart
  [14:17:31.283]                       muffled <- FALSE
  [14:17:31.283]                       if (inherits(cond, "message")) {
  [14:17:31.283]                         invokeRestart("muffleMessage")
  [14:17:31.283]                         muffled <- TRUE
  [14:17:31.283]                       }
  [14:17:31.283]                       else if (inherits(cond, "warning")) {
  [14:17:31.283]                         invokeRestart("muffleWarning")
  [14:17:31.283]                         muffled <- TRUE
  [14:17:31.283]                       }
  [14:17:31.283]                       else if (inherits(cond, "condition")) {
  [14:17:31.283]                         computeRestarts <- base::computeRestarts
  [14:17:31.283]                         grepl <- base::grepl
  [14:17:31.283]                         is.null <- base::is.null
  [14:17:31.283]                         restarts <- computeRestarts(cond)
  [14:17:31.283]                         for (restart in restarts) {
  [14:17:31.283]                           name <- restart$name
  [14:17:31.283]                           if (is.null(name)) 
  [14:17:31.283]                             next
  [14:17:31.283]                           if (!grepl("^muffle", name)) 
  [14:17:31.283]                             next
  [14:17:31.283]                           invokeRestart(restart)
  [14:17:31.283]                           muffled <- TRUE
  [14:17:31.283]                           break
  [14:17:31.283]                         }
  [14:17:31.283]                       }
  [14:17:31.283]                       invisible(muffled)
  [14:17:31.283]                     }
  [14:17:31.283]                     muffleCondition(cond)
  [14:17:31.283]                   }
  [14:17:31.283]                 }
  [14:17:31.283]             }
  [14:17:31.283]         }))
  [14:17:31.283]     }, error = function(ex) {
  [14:17:31.283]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:31.283]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.283]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:31.283]     }, finally = {
  [14:17:31.283]         {
  [14:17:31.283]             NULL
  [14:17:31.283]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:31.283]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.283]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.283]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.283]             {
  [14:17:31.283]                 if (substitute) 
  [14:17:31.283]                   expr <- substitute(expr)
  [14:17:31.283]                 if (is.function(workers)) 
  [14:17:31.283]                   workers <- workers()
  [14:17:31.283]                 workers <- as.integer(workers)
  [14:17:31.283]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.283]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.283]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.283]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.283]                     local = TRUE, label = label, ...))
  [14:17:31.283]                 }
  [14:17:31.283]                 oopts <- options(mc.cores = workers)
  [14:17:31.283]                 on.exit(options(oopts))
  [14:17:31.283]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.283]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.283]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.283]                   label = label, ...)
  [14:17:31.283]                 if (!future$lazy) 
  [14:17:31.283]                   future <- run(future)
  [14:17:31.283]                 invisible(future)
  [14:17:31.283]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.283]         }
  [14:17:31.283]         base::options(...future.oldOptions)
  [14:17:31.283]     })
  [14:17:31.283]     Sys.time
  [14:17:31.283]     if (base::is.na(TRUE)) {
  [14:17:31.283]     }
  [14:17:31.283]     else {
  [14:17:31.283]         base::sink(type = "output", split = FALSE)
  [14:17:31.283]         if (TRUE) {
  [14:17:31.283]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:31.283]         }
  [14:17:31.283]         else {
  [14:17:31.283]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:31.283]         }
  [14:17:31.283]         base::close(...future.stdout)
  [14:17:31.283]         ...future.stdout <- NULL
  [14:17:31.283]     }
  [14:17:31.283]     ...future.result$conditions <- ...future.conditions
  [14:17:31.283]     ...future.result
  [14:17:31.283] }
  [14:17:31.742]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [14:17:31.296] plan(): Setting new future strategy stack:
  [14:17:31.743]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [14:17:31.298] List of future strategies:
  [14:17:31.298] 1. sequential:
  [14:17:31.298]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [14:17:31.298]    - tweaked: FALSE
  [14:17:31.298]    - call: NULL
  [14:17:31.743]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [14:17:31.300] plan(): nbrOfWorkers() = 1
  [14:17:31.744]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [14:17:31.329] plan(): Setting new future strategy stack:
  [14:17:31.745]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [14:17:31.330] List of future strategies:
  [14:17:31.330] 1. multicore:
  [14:17:31.330]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.330]    - tweaked: FALSE
  [14:17:31.330]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.745]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [14:17:31.333] plan(): nbrOfWorkers() = 1
  [14:17:31.746]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [14:17:31.335] SequentialFuture started (and completed)
  [14:17:31.747]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [14:17:31.336] signalConditions() ...
  [14:17:31.747]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [14:17:31.337]  - include = 'immediateCondition'
  [14:17:31.748]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [14:17:31.338]  - exclude = 
  [14:17:31.749]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [14:17:31.339]  - resignal = FALSE
  [14:17:31.750]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [14:17:31.340]  - Number of conditions: 3
  [14:17:31.750]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [14:17:31.341] signalConditions() ... done
  [14:17:31.751]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [14:17:31.343] Chunk #1 of 1 ... DONE
  [14:17:31.752]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [14:17:31.344] Launching 1 futures (chunks) ... DONE
  [14:17:31.752]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [14:17:31.345] - resolving futures
  [14:17:31.753]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [14:17:31.346]   - gathering results & relaying conditions (except errors)
  [14:17:31.754]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [14:17:31.347] resolve() on list ...
  [14:17:31.754]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [14:17:31.348]  recursive: 0
  [14:17:31.755]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [14:17:31.349]  length: 1
  [14:17:31.756]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [14:17:31.350] 
  [14:17:31.756]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [14:17:31.351] Future #1
  [14:17:31.757]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [14:17:31.352] signalConditions() ...
  [14:17:31.758]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [14:17:31.353]  - include = 'immediateCondition'
  [14:17:31.758]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [14:17:31.354]  - exclude = 
  [14:17:31.759]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [14:17:31.355]  - resignal = FALSE
  [14:17:31.760]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [14:17:31.356]  - Number of conditions: 3
  [14:17:31.760]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [14:17:31.358] signalConditions() ... done
  [14:17:31.761]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [14:17:31.359] signalConditionsASAP(SequentialFuture, pos=1) ...
  [14:17:31.762]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [14:17:31.360] - nx: 1
  [14:17:31.762]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [14:17:31.361] - relay: TRUE
  [14:17:31.763]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [14:17:31.362] - stdout: TRUE
  [14:17:31.764]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [14:17:31.362] - signal: TRUE
  [14:17:31.764]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [14:17:31.363] - resignal: FALSE
  [14:17:31.765]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [14:17:31.364] - force: FALSE
  [14:17:31.766]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [14:17:31.365] - relayed: [n=1] FALSE
  [14:17:31.766]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [14:17:31.366] - queued futures: [n=1] FALSE
  [14:17:31.767]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [14:17:31.367]  - until=1
  [14:17:31.768]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [14:17:31.368]  - relaying element #1
  [14:17:31.768]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [14:17:31.369] signalConditions() ...
  [14:17:31.769]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [14:17:31.370]  - include = 'immediateCondition'
  [14:17:31.769]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [14:17:31.371]  - exclude = 
  [14:17:31.770]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [14:17:31.372]  - resignal = FALSE
  [14:17:31.770]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [14:17:31.373]  - Number of conditions: 3
  [14:17:31.771]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [14:17:31.374] signalConditions() ... done
  [14:17:31.772]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [14:17:31.376] signalConditions() ...
  [14:17:31.772]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [14:17:31.377]  - include = 'immediateCondition'
  [14:17:31.773]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [14:17:31.378]  - exclude = 
  [14:17:31.773]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [14:17:31.379]  - resignal = FALSE
  [14:17:31.774]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [14:17:31.380]  - Number of conditions: 3
  [14:17:31.775]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [14:17:31.382] signalConditions() ... done
  [14:17:31.775]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [14:17:31.382] signalConditions() ...
  [14:17:31.776]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [14:17:31.383]  - include = 'condition'
  [14:17:31.777]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [14:17:31.385]  - exclude = 'immediateCondition'
  [14:17:31.777]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [14:17:31.386]  - resignal = FALSE
  [14:17:31.778]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [14:17:31.386]  - Number of conditions: 3
  [14:17:31.778]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [14:17:31.387]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [14:17:31.779]  - Condition #104: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.780]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [14:17:31.389]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:31.780]  - Condition #106: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.781]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [14:17:31.390]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:31.782]  - Condition #108: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [14:17:31.782]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [14:17:31.392] signalConditions() ... done
  [14:17:31.783]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [14:17:31.393] - relayed: [n=1] TRUE
  [14:17:31.784]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [14:17:31.394] - queued futures: [n=1] TRUE
  [14:17:31.784]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [14:17:31.395] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [14:17:31.785]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [14:17:31.396]  length: 0 (resolved future 1)
  [14:17:31.786]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [14:17:31.397] Relaying remaining futures
  [14:17:31.787]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [14:17:31.398] signalConditionsASAP(NULL, pos=0) ...
  [14:17:31.787]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [14:17:31.399] - nx: 1
  [14:17:31.788]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [14:17:31.400] - relay: TRUE
  [14:17:31.789]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [14:17:31.401] - stdout: TRUE
  [14:17:31.789]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [14:17:31.402] - signal: TRUE
  [14:17:31.790]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [14:17:31.403] - resignal: FALSE
  [14:17:31.791]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [14:17:31.404] - force: FALSE
  [14:17:31.791]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [14:17:31.405] - relayed: [n=1] TRUE
  [14:17:31.792]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [14:17:31.406] - queued futures: [n=1] TRUE
  [14:17:31.793]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [14:17:31.793]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [14:17:31.408] - relayed: [n=1] TRUE
  [14:17:31.794]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [14:17:31.409] - queued futures: [n=1] TRUE
  [14:17:31.795]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [14:17:31.411] signalConditionsASAP(NULL, pos=0) ... done
  [14:17:31.796]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [14:17:31.412] resolve() on list ... DONE
  [14:17:31.796]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [14:17:31.412] - collecting values of futures
  [14:17:31.797]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [14:17:31.414] signalConditions() ...
  [14:17:31.798]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [14:17:31.415]  - include = 'immediateCondition'
  [14:17:31.798]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [14:17:31.416]  - exclude = 
  [14:17:31.799]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [14:17:31.417]  - resignal = FALSE
  [14:17:31.800]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [14:17:31.418]  - Number of conditions: 3
  [14:17:31.801]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [14:17:31.419] signalConditions() ... done
  [14:17:31.801]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [14:17:31.420] - accumulating results
  [14:17:31.802]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [14:17:31.422] - processing errors (handler = 'stop')
  [14:17:31.803]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [14:17:31.423] - extracting results
  [14:17:31.803]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [14:17:31.424] doFuture() ... DONE
  [14:17:31.804]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [14:17:31.805] signalConditions() ... done
  [14:17:31.805] - relayed: [n=2] TRUE, TRUE
  [14:17:31.806] - queued futures: [n=2] TRUE, TRUE
  [14:17:31.806] signalConditionsASAP(MulticoreFuture, pos=0) ... done
  [14:17:31.806] resolve() on list ... DONE
  [14:17:31.807] - collecting values of futures
  [14:17:31.807] signalConditions() ...
  [14:17:31.807]  - include = 'immediateCondition'
  [14:17:31.808]  - exclude = 
  [14:17:31.808]  - resignal = FALSE
  [14:17:31.809]  - Number of conditions: 140
  [14:17:31.809] signalConditions() ... done
  [14:17:31.810] signalConditions() ...
  [14:17:31.811]  - include = 'immediateCondition'
  [14:17:31.811]  - exclude = 
  [14:17:31.812]  - resignal = FALSE
  [14:17:31.812]  - Number of conditions: 140
  [14:17:31.813] signalConditions() ... done
  [14:17:31.813] - accumulating results
  [14:17:31.815] - processing errors (handler = 'stop')
  [14:17:31.815] - extracting results
  [14:17:31.816] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [14:17:31.818] plan(): Setting new future strategy stack:
  [14:17:31.818] List of future strategies:
  [14:17:31.818] 1. multicore:
  [14:17:31.818]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:31.818]    - tweaked: FALSE
  [14:17:31.818]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.818] 2. multisession:
  [14:17:31.818]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:31.818]    - tweaked: FALSE
  [14:17:31.818]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.821] plan(): nbrOfWorkers() = 2
  foreach() - level 1 ...
  [14:17:31.821] doFuture() ...
  [14:17:31.823] - dummy globals (as locals): [1] 'a'
  [14:17:31.823] - R expression:
  [14:17:31.824] {
  [14:17:31.824]     doFuture::registerDoFuture()
  [14:17:31.824]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.824]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.824]         a <- NULL
  [14:17:31.824]         ...future.env <- environment()
  [14:17:31.824]         local({
  [14:17:31.824]             for (name in names(...future.x_jj)) {
  [14:17:31.824]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.824]                   inherits = FALSE)
  [14:17:31.824]             }
  [14:17:31.824]         })
  [14:17:31.824]         tryCatch({
  [14:17:31.824]             plan_list <- future::plan("next")
  [14:17:31.824]             stopifnot(inherits(plan_list, strategy2))
  [14:17:31.824]             plan_a <- future::plan("list")
  [14:17:31.824]             str(plan_a)
  [14:17:31.824]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:31.824]             message("foreach() - level 2 ...")
  [14:17:31.824]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:31.824]                 {
  [14:17:31.824]                   plan_list <- future::plan("next")
  [14:17:31.824]                   message(capture.output(print(plan_list)))
  [14:17:31.824]                   stopifnot(inherits(plan_list, "future"))
  [14:17:31.824]                   default <- getOption("future.plan", "sequential")
  [14:17:31.824]                   if (is.function(default)) 
  [14:17:31.824]                     default <- class(default)
  [14:17:31.824]                   stopifnot(inherits(plan_list, default))
  [14:17:31.824]                   plan_b <- future::plan("list")
  [14:17:31.824]                   str(plan_b)
  [14:17:31.824]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.824]                     inherits(plan_b[[1]], default))
  [14:17:31.824]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.824]                 }
  [14:17:31.824]             message("foreach() - level 2 ... DONE")
  [14:17:31.824]             y
  [14:17:31.824]         }, error = identity)
  [14:17:31.824]     })
  [14:17:31.824] }
  [14:17:31.825] - identifying globals and packages ...
  [14:17:31.826] getGlobalsAndPackages() ...
  [14:17:31.826] Searching for globals...
  [14:17:31.871] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [14:17:31.872] Searching for globals ... DONE
  [14:17:31.872] Resolving globals: FALSE
  [14:17:31.876] The total size of the 3 globals is 184 bytes (184 bytes)
  [14:17:31.876] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.877] - packages: [2] 'utils', 'foreach'
  [14:17:31.878] getGlobalsAndPackages() ... DONE
  [14:17:31.878] List of 3
  [14:17:31.878]  $ ...future.x_ii: NULL
  [14:17:31.878]  $ strategy2     : chr "multisession"
  [14:17:31.878]  $ bs            : int [1:3] 3 2 1
  [14:17:31.878]  - attr(*, "where")=List of 3
  [14:17:31.878]   ..$ ...future.x_ii:<environment: 0x1425730> 
  [14:17:31.878]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:31.878]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:31.878]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.878]  - attr(*, "resolved")= logi FALSE
  [14:17:31.878]  - attr(*, "total_size")= num 184
  [14:17:31.893]   - R expression:
  [14:17:31.893] {
  [14:17:31.893]     doFuture::registerDoFuture()
  [14:17:31.893]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.893]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.893]         a <- NULL
  [14:17:31.893]         ...future.env <- environment()
  [14:17:31.893]         local({
  [14:17:31.893]             for (name in names(...future.x_jj)) {
  [14:17:31.893]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.893]                   inherits = FALSE)
  [14:17:31.893]             }
  [14:17:31.893]         })
  [14:17:31.893]         tryCatch({
  [14:17:31.893]             plan_list <- future::plan("next")
  [14:17:31.893]             stopifnot(inherits(plan_list, strategy2))
  [14:17:31.893]             plan_a <- future::plan("list")
  [14:17:31.893]             str(plan_a)
  [14:17:31.893]             stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:31.893]             message("foreach() - level 2 ...")
  [14:17:31.893]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:31.893]                 {
  [14:17:31.893]                   plan_list <- future::plan("next")
  [14:17:31.893]                   message(capture.output(print(plan_list)))
  [14:17:31.893]                   stopifnot(inherits(plan_list, "future"))
  [14:17:31.893]                   default <- getOption("future.plan", "sequential")
  [14:17:31.893]                   if (is.function(default)) 
  [14:17:31.893]                     default <- class(default)
  [14:17:31.893]                   stopifnot(inherits(plan_list, default))
  [14:17:31.893]                   plan_b <- future::plan("list")
  [14:17:31.893]                   str(plan_b)
  [14:17:31.893]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.893]                     inherits(plan_b[[1]], default))
  [14:17:31.893]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.893]                 }
  [14:17:31.893]             message("foreach() - level 2 ... DONE")
  [14:17:31.893]             y
  [14:17:31.893]         }, error = identity)
  [14:17:31.893]     })
  [14:17:31.893] }
  [14:17:31.895]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.896] List of 3
  [14:17:31.896]  $ ...future.x_ii: NULL
  [14:17:31.896]  $ strategy2     : chr "multisession"
  [14:17:31.896]  $ bs            : int [1:3] 3 2 1
  [14:17:31.896]  - attr(*, "where")=List of 3
  [14:17:31.896]   ..$ ...future.x_ii:<environment: 0x1425730> 
  [14:17:31.896]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [14:17:31.896]   ..$ bs            :<environment: R_GlobalEnv> 
  [14:17:31.896]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:31.896]  - attr(*, "resolved")= logi FALSE
  [14:17:31.896]  - attr(*, "total_size")= num 184
  [14:17:31.909]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [14:17:31.910] - identifying globals and packages ... DONE
  [14:17:31.912] Number of chunks: 2
  [14:17:31.912] Number of futures (= number of chunks): 2
  [14:17:31.913] Launching 2 futures (chunks) ...
  [14:17:31.914] Chunk #1 of 2 ...
  [14:17:31.914]  - Finding globals in 'args_list' chunk #1 ...
  [14:17:31.914] getGlobalsAndPackages() ...
  [14:17:31.915] Searching for globals...
  [14:17:31.916] 
  [14:17:31.916] Searching for globals ... DONE
  [14:17:31.917] - globals: [0] <none>
  [14:17:31.917] getGlobalsAndPackages() ... DONE
  [14:17:31.917] 
  [14:17:31.918] 
  [14:17:31.918]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [14:17:31.920] getGlobalsAndPackages() ...
  [14:17:31.920] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.920] Resolving globals: FALSE
  [14:17:31.922] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:31.922] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.923] 
  [14:17:31.923] getGlobalsAndPackages() ... DONE
  [14:17:31.926] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:31.927] Packages needed by future strategies (n = 1): 'future'
  [14:17:31.936] {
  [14:17:31.936]     {
  [14:17:31.936]         ...future.startTime <- base::Sys.time()
  [14:17:31.936]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:31.936]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:31.936]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:31.936]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:31.936]             future.resolve.recursive = NULL, width = 80L)
  [14:17:31.936]         {
  [14:17:31.936]             {
  [14:17:31.936]                 {
  [14:17:31.936]                   {
  [14:17:31.936]                     base::local({
  [14:17:31.936]                       has_future <- base::requireNamespace("future", 
  [14:17:31.936]                         quietly = TRUE)
  [14:17:31.936]                       version <- if (has_future) 
  [14:17:31.936]                         utils::packageVersion("future")
  [14:17:31.936]                       else NULL
  [14:17:31.936]                       if (!has_future || version < "1.8.0") {
  [14:17:31.936]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:31.936]                           "", base::R.version$version.string), 
  [14:17:31.936]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:31.936]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:31.936]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:31.936]                             "release", "version")], collapse = " "), 
  [14:17:31.936]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:31.936]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:31.936]                           info)
  [14:17:31.936]                         info <- base::paste(info, collapse = "; ")
  [14:17:31.936]                         if (!has_future) {
  [14:17:31.936]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:31.936]                             info)
  [14:17:31.936]                         }
  [14:17:31.936]                         else {
  [14:17:31.936]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:31.936]                             info, version)
  [14:17:31.936]                         }
  [14:17:31.936]                         base::stop(msg)
  [14:17:31.936]                       }
  [14:17:31.936]                     })
  [14:17:31.936]                   }
  [14:17:31.936]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:31.936]                   base::options(mc.cores = 1L)
  [14:17:31.936]                 }
  [14:17:31.936]                 base::local({
  [14:17:31.936]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:31.936]                   "future")) {
  [14:17:31.936]                     base::loadNamespace(pkg)
  [14:17:31.936]                     base::library(pkg, character.only = TRUE)
  [14:17:31.936]                   }
  [14:17:31.936]                 })
  [14:17:31.936]             }
  [14:17:31.936]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:31.936]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.936]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:31.936]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:31.936]                 ...) 
  [14:17:31.936]             {
  [14:17:31.936]                 if (substitute) 
  [14:17:31.936]                   expr <- substitute(expr)
  [14:17:31.936]                 if (is.function(workers)) 
  [14:17:31.936]                   workers <- workers()
  [14:17:31.936]                 workers <- as.integer(workers)
  [14:17:31.936]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:31.936]                   workers >= 1)
  [14:17:31.936]                 if (workers == 1L) {
  [14:17:31.936]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.936]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:31.936]                     local = TRUE, label = label, ...))
  [14:17:31.936]                 }
  [14:17:31.936]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:31.936]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:31.936]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.936]                   globals = globals, persistent = persistent, 
  [14:17:31.936]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:31.936]                   label = label, ...)
  [14:17:31.936]                 if (!future$lazy) 
  [14:17:31.936]                   future <- run(future)
  [14:17:31.936]                 invisible(future)
  [14:17:31.936]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.936]         }
  [14:17:31.936]     }
  [14:17:31.936]     if (base::is.na(TRUE)) {
  [14:17:31.936]     }
  [14:17:31.936]     else {
  [14:17:31.936]         if (TRUE) {
  [14:17:31.936]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:31.936]                 open = "w")
  [14:17:31.936]         }
  [14:17:31.936]         else {
  [14:17:31.936]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:31.936]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:31.936]         }
  [14:17:31.936]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:31.936]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:31.936]             base::sink(type = "output", split = FALSE)
  [14:17:31.936]             base::close(...future.stdout)
  [14:17:31.936]         }, add = TRUE)
  [14:17:31.936]     }
  [14:17:31.936]     ...future.frame <- base::sys.nframe()
  [14:17:31.936]     ...future.conditions <- base::list()
  [14:17:31.936]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:31.936]     ...future.result <- base::tryCatch({
  [14:17:31.936]         base::withCallingHandlers({
  [14:17:31.936]             ...future.value <- base::withVisible(base::local({
  [14:17:31.936]                 doFuture::registerDoFuture()
  [14:17:31.936]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.936]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.936]                   a <- NULL
  [14:17:31.936]                   ...future.env <- environment()
  [14:17:31.936]                   local({
  [14:17:31.936]                     for (name in names(...future.x_jj)) {
  [14:17:31.936]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.936]                         inherits = FALSE)
  [14:17:31.936]                     }
  [14:17:31.936]                   })
  [14:17:31.936]                   tryCatch({
  [14:17:31.936]                     plan_list <- future::plan("next")
  [14:17:31.936]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:31.936]                     plan_a <- future::plan("list")
  [14:17:31.936]                     str(plan_a)
  [14:17:31.936]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:31.936]                     message("foreach() - level 2 ...")
  [14:17:31.936]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:31.936]                       {
  [14:17:31.936]                         plan_list <- future::plan("next")
  [14:17:31.936]                         message(capture.output(print(plan_list)))
  [14:17:31.936]                         stopifnot(inherits(plan_list, "future"))
  [14:17:31.936]                         default <- getOption("future.plan", "sequential")
  [14:17:31.936]                         if (is.function(default)) 
  [14:17:31.936]                           default <- class(default)
  [14:17:31.936]                         stopifnot(inherits(plan_list, default))
  [14:17:31.936]                         plan_b <- future::plan("list")
  [14:17:31.936]                         str(plan_b)
  [14:17:31.936]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.936]                           inherits(plan_b[[1]], default))
  [14:17:31.936]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.936]                       }
  [14:17:31.936]                     message("foreach() - level 2 ... DONE")
  [14:17:31.936]                     y
  [14:17:31.936]                   }, error = identity)
  [14:17:31.936]                 })
  [14:17:31.936]             }))
  [14:17:31.936]             future::FutureResult(value = ...future.value$value, 
  [14:17:31.936]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.936]                   ...future.rng), started = ...future.startTime, 
  [14:17:31.936]                 version = "1.8")
  [14:17:31.936]         }, condition = base::local({
  [14:17:31.936]             c <- base::c
  [14:17:31.936]             inherits <- base::inherits
  [14:17:31.936]             invokeRestart <- base::invokeRestart
  [14:17:31.936]             length <- base::length
  [14:17:31.936]             list <- base::list
  [14:17:31.936]             seq.int <- base::seq.int
  [14:17:31.936]             signalCondition <- base::signalCondition
  [14:17:31.936]             sys.calls <- base::sys.calls
  [14:17:31.936]             Sys.time <- base::Sys.time
  [14:17:31.936]             `[[` <- base::`[[`
  [14:17:31.936]             `+` <- base::`+`
  [14:17:31.936]             `<<-` <- base::`<<-`
  [14:17:31.936]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:31.936]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:31.936]                   3L)]
  [14:17:31.936]             }
  [14:17:31.936]             function(cond) {
  [14:17:31.936]                 if (inherits(cond, "error")) {
  [14:17:31.936]                   sessionInformation <- function() {
  [14:17:31.936]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:31.936]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:31.936]                       search = base::search(), system = base::Sys.info())
  [14:17:31.936]                   }
  [14:17:31.936]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.936]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:31.936]                     cond$call), session = sessionInformation(), 
  [14:17:31.936]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:31.936]                   signalCondition(cond)
  [14:17:31.936]                 }
  [14:17:31.936]                 else if (inherits(cond, "condition")) {
  [14:17:31.936]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:31.936]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.936]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:31.936]                   if (!signal) {
  [14:17:31.936]                     muffleCondition <- function (cond) 
  [14:17:31.936]                     {
  [14:17:31.936]                       inherits <- base::inherits
  [14:17:31.936]                       invokeRestart <- base::invokeRestart
  [14:17:31.936]                       muffled <- FALSE
  [14:17:31.936]                       if (inherits(cond, "message")) {
  [14:17:31.936]                         invokeRestart("muffleMessage")
  [14:17:31.936]                         muffled <- TRUE
  [14:17:31.936]                       }
  [14:17:31.936]                       else if (inherits(cond, "warning")) {
  [14:17:31.936]                         invokeRestart("muffleWarning")
  [14:17:31.936]                         muffled <- TRUE
  [14:17:31.936]                       }
  [14:17:31.936]                       else if (inherits(cond, "condition")) {
  [14:17:31.936]                         computeRestarts <- base::computeRestarts
  [14:17:31.936]                         grepl <- base::grepl
  [14:17:31.936]                         is.null <- base::is.null
  [14:17:31.936]                         restarts <- computeRestarts(cond)
  [14:17:31.936]                         for (restart in restarts) {
  [14:17:31.936]                           name <- restart$name
  [14:17:31.936]                           if (is.null(name)) 
  [14:17:31.936]                             next
  [14:17:31.936]                           if (!grepl("^muffle", name)) 
  [14:17:31.936]                             next
  [14:17:31.936]                           invokeRestart(restart)
  [14:17:31.936]                           muffled <- TRUE
  [14:17:31.936]                           break
  [14:17:31.936]                         }
  [14:17:31.936]                       }
  [14:17:31.936]                       invisible(muffled)
  [14:17:31.936]                     }
  [14:17:31.936]                     muffleCondition(cond)
  [14:17:31.936]                   }
  [14:17:31.936]                 }
  [14:17:31.936]             }
  [14:17:31.936]         }))
  [14:17:31.936]     }, error = function(ex) {
  [14:17:31.936]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:31.936]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.936]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:31.936]     }, finally = {
  [14:17:31.936]         {
  [14:17:31.936]             {
  [14:17:31.936]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:31.936]             }
  [14:17:31.936]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:31.936]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.936]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.936]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.936]             {
  [14:17:31.936]                 if (substitute) 
  [14:17:31.936]                   expr <- substitute(expr)
  [14:17:31.936]                 if (is.function(workers)) 
  [14:17:31.936]                   workers <- workers()
  [14:17:31.936]                 workers <- as.integer(workers)
  [14:17:31.936]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.936]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.936]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.936]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.936]                     local = TRUE, label = label, ...))
  [14:17:31.936]                 }
  [14:17:31.936]                 oopts <- options(mc.cores = workers)
  [14:17:31.936]                 on.exit(options(oopts))
  [14:17:31.936]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.936]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.936]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.936]                   label = label, ...)
  [14:17:31.936]                 if (!future$lazy) 
  [14:17:31.936]                   future <- run(future)
  [14:17:31.936]                 invisible(future)
  [14:17:31.936]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:31.936]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:17:31.936]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:17:31.936]                 label = NULL, ...) 
  [14:17:31.936]             {
  [14:17:31.936]                 if (substitute) 
  [14:17:31.936]                   expr <- substitute(expr)
  [14:17:31.936]                 if (is.function(workers)) 
  [14:17:31.936]                   workers <- workers()
  [14:17:31.936]                 workers <- as.integer(workers)
  [14:17:31.936]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:31.936]                   workers >= 1)
  [14:17:31.936]                 if (workers == 1L) {
  [14:17:31.936]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.936]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:31.936]                     local = TRUE, label = label, ...))
  [14:17:31.936]                 }
  [14:17:31.936]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:31.936]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:31.936]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.936]                   globals = globals, persistent = persistent, 
  [14:17:31.936]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:31.936]                   label = label, ...)
  [14:17:31.936]                 if (!future$lazy) 
  [14:17:31.936]                   future <- run(future)
  [14:17:31.936]                 invisible(future)
  [14:17:31.936]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.936]         }
  [14:17:31.936]         base::options(...future.oldOptions)
  [14:17:31.936]     })
  [14:17:31.936]     Sys.time
  [14:17:31.936]     if (base::is.na(TRUE)) {
  [14:17:31.936]     }
  [14:17:31.936]     else {
  [14:17:31.936]         base::sink(type = "output", split = FALSE)
  [14:17:31.936]         if (TRUE) {
  [14:17:31.936]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:31.936]         }
  [14:17:31.936]         else {
  [14:17:31.936]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:31.936]         }
  [14:17:31.936]         base::close(...future.stdout)
  [14:17:31.936]         ...future.stdout <- NULL
  [14:17:31.936]     }
  [14:17:31.936]     ...future.result$conditions <- ...future.conditions
  [14:17:31.936]     ...future.result
  [14:17:31.936] }
  [14:17:31.946] requestCore(): workers = 2
  [14:17:31.952] MulticoreFuture started
  [14:17:31.953] Chunk #1 of 2 ... DONE
  [14:17:31.954] Chunk #2 of 2 ...
  [14:17:31.954]  - Finding globals in 'args_list' chunk #2 ...
  [14:17:31.955] getGlobalsAndPackages() ...
  [14:17:31.956] Searching for globals...
  [14:17:31.957] 
  [14:17:31.958] Searching for globals ... DONE
  [14:17:31.958] - globals: [0] <none>
  [14:17:31.959] getGlobalsAndPackages() ... DONE
  [14:17:31.959] 
  [14:17:31.960] 
  [14:17:31.960]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [14:17:31.961] plan(): Setting new future strategy stack:
  [14:17:31.963] getGlobalsAndPackages() ...
  [14:17:31.961] List of future strategies:
  [14:17:31.961] 1. multisession:
  [14:17:31.961]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:31.961]    - tweaked: FALSE
  [14:17:31.961]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:31.963] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.964] Resolving globals: FALSE
  [14:17:31.964] plan(): nbrOfWorkers() = 1
  [14:17:31.966] The total size of the 3 globals is 240 bytes (240 bytes)
  [14:17:31.967] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [14:17:31.968] 
  [14:17:31.968] getGlobalsAndPackages() ... DONE
  [14:17:31.972] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [14:17:31.973] Packages needed by future strategies (n = 1): 'future'
  [14:17:31.983] {
  [14:17:31.983]     {
  [14:17:31.983]         ...future.startTime <- base::Sys.time()
  [14:17:31.983]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [14:17:31.983]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [14:17:31.983]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [14:17:31.983]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [14:17:31.983]             future.resolve.recursive = NULL, width = 80L)
  [14:17:31.983]         {
  [14:17:31.983]             {
  [14:17:31.983]                 {
  [14:17:31.983]                   {
  [14:17:31.983]                     base::local({
  [14:17:31.983]                       has_future <- base::requireNamespace("future", 
  [14:17:31.983]                         quietly = TRUE)
  [14:17:31.983]                       version <- if (has_future) 
  [14:17:31.983]                         utils::packageVersion("future")
  [14:17:31.983]                       else NULL
  [14:17:31.983]                       if (!has_future || version < "1.8.0") {
  [14:17:31.983]                         info <- base::c(r_version = base::gsub("R version ", 
  [14:17:31.983]                           "", base::R.version$version.string), 
  [14:17:31.983]                           platform = base::sprintf("%s (%s-bit)", 
  [14:17:31.983]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [14:17:31.983]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [14:17:31.983]                             "release", "version")], collapse = " "), 
  [14:17:31.983]                           hostname = base::Sys.info()[["nodename"]])
  [14:17:31.983]                         info <- base::sprintf("%s: %s", base::names(info), 
  [14:17:31.983]                           info)
  [14:17:31.983]                         info <- base::paste(info, collapse = "; ")
  [14:17:31.983]                         if (!has_future) {
  [14:17:31.983]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [14:17:31.983]                             info)
  [14:17:31.983]                         }
  [14:17:31.983]                         else {
  [14:17:31.983]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [14:17:31.983]                             info, version)
  [14:17:31.983]                         }
  [14:17:31.983]                         base::stop(msg)
  [14:17:31.983]                       }
  [14:17:31.983]                     })
  [14:17:31.983]                   }
  [14:17:31.983]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [14:17:31.983]                   base::options(mc.cores = 1L)
  [14:17:31.983]                 }
  [14:17:31.983]                 base::local({
  [14:17:31.983]                   for (pkg in c("doFuture", "utils", "foreach", 
  [14:17:31.983]                   "future")) {
  [14:17:31.983]                     base::loadNamespace(pkg)
  [14:17:31.983]                     base::library(pkg, character.only = TRUE)
  [14:17:31.983]                   }
  [14:17:31.983]                 })
  [14:17:31.983]             }
  [14:17:31.983]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [14:17:31.983]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.983]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:31.983]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [14:17:31.983]                 ...) 
  [14:17:31.983]             {
  [14:17:31.983]                 if (substitute) 
  [14:17:31.983]                   expr <- substitute(expr)
  [14:17:31.983]                 if (is.function(workers)) 
  [14:17:31.983]                   workers <- workers()
  [14:17:31.983]                 workers <- as.integer(workers)
  [14:17:31.983]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:31.983]                   workers >= 1)
  [14:17:31.983]                 if (workers == 1L) {
  [14:17:31.983]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.983]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:31.983]                     local = TRUE, label = label, ...))
  [14:17:31.983]                 }
  [14:17:31.983]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:31.983]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:31.983]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.983]                   globals = globals, persistent = persistent, 
  [14:17:31.983]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:31.983]                   label = label, ...)
  [14:17:31.983]                 if (!future$lazy) 
  [14:17:31.983]                   future <- run(future)
  [14:17:31.983]                 invisible(future)
  [14:17:31.983]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.983]         }
  [14:17:31.983]     }
  [14:17:31.983]     if (base::is.na(TRUE)) {
  [14:17:31.983]     }
  [14:17:31.983]     else {
  [14:17:31.983]         if (TRUE) {
  [14:17:31.983]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [14:17:31.983]                 open = "w")
  [14:17:31.983]         }
  [14:17:31.983]         else {
  [14:17:31.983]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [14:17:31.983]                 windows = "NUL", "/dev/null"), open = "w")
  [14:17:31.983]         }
  [14:17:31.983]         base::sink(...future.stdout, type = "output", split = FALSE)
  [14:17:31.983]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [14:17:31.983]             base::sink(type = "output", split = FALSE)
  [14:17:31.983]             base::close(...future.stdout)
  [14:17:31.983]         }, add = TRUE)
  [14:17:31.983]     }
  [14:17:31.983]     ...future.frame <- base::sys.nframe()
  [14:17:31.983]     ...future.conditions <- base::list()
  [14:17:31.983]     ...future.rng <- base::globalenv()$.Random.seed
  [14:17:31.983]     ...future.result <- base::tryCatch({
  [14:17:31.983]         base::withCallingHandlers({
  [14:17:31.983]             ...future.value <- base::withVisible(base::local({
  [14:17:31.983]                 doFuture::registerDoFuture()
  [14:17:31.983]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.983]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.983]                   a <- NULL
  [14:17:31.983]                   ...future.env <- environment()
  [14:17:31.983]                   local({
  [14:17:31.983]                     for (name in names(...future.x_jj)) {
  [14:17:31.983]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.983]                         inherits = FALSE)
  [14:17:31.983]                     }
  [14:17:31.983]                   })
  [14:17:31.983]                   tryCatch({
  [14:17:31.983]                     plan_list <- future::plan("next")
  [14:17:31.983]                     stopifnot(inherits(plan_list, strategy2))
  [14:17:31.983]                     plan_a <- future::plan("list")
  [14:17:31.983]                     str(plan_a)
  [14:17:31.983]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [14:17:31.983]                     message("foreach() - level 2 ...")
  [14:17:31.983]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [14:17:31.983]                       {
  [14:17:31.983]                         plan_list <- future::plan("next")
  [14:17:31.983]                         message(capture.output(print(plan_list)))
  [14:17:31.983]                         stopifnot(inherits(plan_list, "future"))
  [14:17:31.983]                         default <- getOption("future.plan", "sequential")
  [14:17:31.983]                         if (is.function(default)) 
  [14:17:31.983]                           default <- class(default)
  [14:17:31.983]                         stopifnot(inherits(plan_list, default))
  [14:17:31.983]                         plan_b <- future::plan("list")
  [14:17:31.983]                         str(plan_b)
  [14:17:31.983]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [14:17:31.983]                           inherits(plan_b[[1]], default))
  [14:17:31.983]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.983]                       }
  [14:17:31.983]                     message("foreach() - level 2 ... DONE")
  [14:17:31.983]                     y
  [14:17:31.983]                   }, error = identity)
  [14:17:31.983]                 })
  [14:17:31.983]             }))
  [14:17:31.983]             future::FutureResult(value = ...future.value$value, 
  [14:17:31.983]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.983]                   ...future.rng), started = ...future.startTime, 
  [14:17:31.983]                 version = "1.8")
  [14:17:31.983]         }, condition = base::local({
  [14:17:31.983]             c <- base::c
  [14:17:31.983]             inherits <- base::inherits
  [14:17:31.983]             invokeRestart <- base::invokeRestart
  [14:17:31.983]             length <- base::length
  [14:17:31.983]             list <- base::list
  [14:17:31.983]             seq.int <- base::seq.int
  [14:17:31.983]             signalCondition <- base::signalCondition
  [14:17:31.983]             sys.calls <- base::sys.calls
  [14:17:31.983]             Sys.time <- base::Sys.time
  [14:17:31.983]             `[[` <- base::`[[`
  [14:17:31.983]             `+` <- base::`+`
  [14:17:31.983]             `<<-` <- base::`<<-`
  [14:17:31.983]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [14:17:31.983]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [14:17:31.983]                   3L)]
  [14:17:31.983]             }
  [14:17:31.983]             function(cond) {
  [14:17:31.983]                 if (inherits(cond, "error")) {
  [14:17:31.983]                   sessionInformation <- function() {
  [14:17:31.983]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [14:17:31.983]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [14:17:31.983]                       search = base::search(), system = base::Sys.info())
  [14:17:31.983]                   }
  [14:17:31.983]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.983]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [14:17:31.983]                     cond$call), session = sessionInformation(), 
  [14:17:31.983]                     timestamp = Sys.time(), signaled = 0L)
  [14:17:31.983]                   signalCondition(cond)
  [14:17:31.983]                 }
  [14:17:31.983]                 else if (inherits(cond, "condition")) {
  [14:17:31.983]                   signal <- FALSE && inherits(cond, character(0))
  [14:17:31.983]                   ...future.conditions[[length(...future.conditions) + 
  [14:17:31.983]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [14:17:31.983]                   if (!signal) {
  [14:17:31.983]                     muffleCondition <- function (cond) 
  [14:17:31.983]                     {
  [14:17:31.983]                       inherits <- base::inherits
  [14:17:31.983]                       invokeRestart <- base::invokeRestart
  [14:17:31.983]                       muffled <- FALSE
  [14:17:31.983]                       if (inherits(cond, "message")) {
  [14:17:31.983]                         invokeRestart("muffleMessage")
  [14:17:31.983]                         muffled <- TRUE
  [14:17:31.983]                       }
  [14:17:31.983]                       else if (inherits(cond, "warning")) {
  [14:17:31.983]                         invokeRestart("muffleWarning")
  [14:17:31.983]                         muffled <- TRUE
  [14:17:31.983]                       }
  [14:17:31.983]                       else if (inherits(cond, "condition")) {
  [14:17:31.983]                         computeRestarts <- base::computeRestarts
  [14:17:31.983]                         grepl <- base::grepl
  [14:17:31.983]                         is.null <- base::is.null
  [14:17:31.983]                         restarts <- computeRestarts(cond)
  [14:17:31.983]                         for (restart in restarts) {
  [14:17:31.983]                           name <- restart$name
  [14:17:31.983]                           if (is.null(name)) 
  [14:17:31.983]                             next
  [14:17:31.983]                           if (!grepl("^muffle", name)) 
  [14:17:31.983]                             next
  [14:17:31.983]                           invokeRestart(restart)
  [14:17:31.983]                           muffled <- TRUE
  [14:17:31.983]                           break
  [14:17:31.983]                         }
  [14:17:31.983]                       }
  [14:17:31.983]                       invisible(muffled)
  [14:17:31.983]                     }
  [14:17:31.983]                     muffleCondition(cond)
  [14:17:31.983]                   }
  [14:17:31.983]                 }
  [14:17:31.983]             }
  [14:17:31.983]         }))
  [14:17:31.983]     }, error = function(ex) {
  [14:17:31.983]         base::structure(base::list(value = NULL, visible = NULL, 
  [14:17:31.983]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [14:17:31.983]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [14:17:31.983]     }, finally = {
  [14:17:31.983]         {
  [14:17:31.983]             {
  [14:17:31.983]                 base::options(mc.cores = ...future.mc.cores.old)
  [14:17:31.983]             }
  [14:17:31.983]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [14:17:31.983]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [14:17:31.983]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [14:17:31.983]                 earlySignal = FALSE, label = NULL, ...) 
  [14:17:31.983]             {
  [14:17:31.983]                 if (substitute) 
  [14:17:31.983]                   expr <- substitute(expr)
  [14:17:31.983]                 if (is.function(workers)) 
  [14:17:31.983]                   workers <- workers()
  [14:17:31.983]                 workers <- as.integer(workers)
  [14:17:31.983]                 stop_if_not(is.finite(workers), workers >= 1L)
  [14:17:31.983]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [14:17:31.983]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.983]                     lazy = lazy, seed = seed, globals = globals, 
  [14:17:31.983]                     local = TRUE, label = label, ...))
  [14:17:31.983]                 }
  [14:17:31.983]                 oopts <- options(mc.cores = workers)
  [14:17:31.983]                 on.exit(options(oopts))
  [14:17:31.983]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [14:17:31.983]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.983]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [14:17:31.983]                   label = label, ...)
  [14:17:31.983]                 if (!future$lazy) 
  [14:17:31.983]                   future <- run(future)
  [14:17:31.983]                 invisible(future)
  [14:17:31.983]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [14:17:31.983]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [14:17:31.983]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [14:17:31.983]                 label = NULL, ...) 
  [14:17:31.983]             {
  [14:17:31.983]                 if (substitute) 
  [14:17:31.983]                   expr <- substitute(expr)
  [14:17:31.983]                 if (is.function(workers)) 
  [14:17:31.983]                   workers <- workers()
  [14:17:31.983]                 workers <- as.integer(workers)
  [14:17:31.983]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [14:17:31.983]                   workers >= 1)
  [14:17:31.983]                 if (workers == 1L) {
  [14:17:31.983]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [14:17:31.983]                     lazy = TRUE, seed = seed, globals = globals, 
  [14:17:31.983]                     local = TRUE, label = label, ...))
  [14:17:31.983]                 }
  [14:17:31.983]                 workers <- ClusterRegistry("start", workers = workers)
  [14:17:31.983]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [14:17:31.983]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [14:17:31.983]                   globals = globals, persistent = persistent, 
  [14:17:31.983]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [14:17:31.983]                   label = label, ...)
  [14:17:31.983]                 if (!future$lazy) 
  [14:17:31.983]                   future <- run(future)
  [14:17:31.983]                 invisible(future)
  [14:17:31.983]             }), .cleanup = FALSE, .init = FALSE)
  [14:17:31.983]         }
  [14:17:31.983]         base::options(...future.oldOptions)
  [14:17:31.983]     })
  [14:17:31.983]     Sys.time
  [14:17:31.983]     if (base::is.na(TRUE)) {
  [14:17:31.983]     }
  [14:17:31.983]     else {
  [14:17:31.983]         base::sink(type = "output", split = FALSE)
  [14:17:31.983]         if (TRUE) {
  [14:17:31.983]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [14:17:31.983]         }
  [14:17:31.983]         else {
  [14:17:31.983]             ...future.result["stdout"] <- base::list(NULL)
  [14:17:31.983]         }
  [14:17:31.983]         base::close(...future.stdout)
  [14:17:31.983]         ...future.stdout <- NULL
  [14:17:31.983]     }
  [14:17:31.983]     ...future.result$conditions <- ...future.conditions
  [14:17:31.983]     ...future.result
  [14:17:31.983] }
  [14:17:31.997] requestCore(): workers = 2
  [14:17:32.003] MulticoreFuture started
  [14:17:32.005] Chunk #2 of 2 ... DONE
  [14:17:32.006] Launching 2 futures (chunks) ... DONE
  [14:17:32.007] - resolving futures
  [14:17:32.007]   - gathering results & relaying conditions (except errors)
  [14:17:32.008] resolve() on list ...
  [14:17:32.009]  recursive: 0
  [14:17:32.009]  length: 2
  [14:17:32.026] 
  [14:17:32.028] plan(): Setting new future strategy stack:
  [14:17:32.029] List of future strategies:
  [14:17:32.029] 1. multisession:
  [14:17:32.029]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:32.029]    - tweaked: FALSE
  [14:17:32.029]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:32.035] plan(): nbrOfWorkers() = 1
  [14:17:32.275] plan(): Setting new future strategy stack:
  [14:17:32.276] List of future strategies:
  [14:17:32.276] 1. multicore:
  [14:17:32.276]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:32.276]    - tweaked: FALSE
  [14:17:32.276]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:32.276] 2. multisession:
  [14:17:32.276]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:32.276]    - tweaked: FALSE
  [14:17:32.276]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:32.279] plan(): nbrOfWorkers() = 2
  [14:17:32.384] plan(): Setting new future strategy stack:
  [14:17:32.384] List of future strategies:
  [14:17:32.384] 1. multicore:
  [14:17:32.384]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [14:17:32.384]    - tweaked: FALSE
  [14:17:32.384]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:32.384] 2. multisession:
  [14:17:32.384]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [14:17:32.384]    - tweaked: FALSE
  [14:17:32.384]    - call: plan(list(a = strategy1, b = strategy2))
  [14:17:32.388] plan(): nbrOfWorkers() = 2
  [14:17:32.390] Future #2
  [14:17:32.404] signalConditions() ...
  [14:17:32.404]  - include = 'immediateCondition'
  [14:17:32.405]  - exclude = 
  [14:17:32.406]  - resignal = FALSE
  [14:17:32.406]  - Number of conditions: 140
  [14:17:32.408] signalConditions() ... done
  [14:17:32.409] signalConditions() ...
  [14:17:32.409]  - include = 'immediateCondition'
  [14:17:32.410]  - exclude = 
  [14:17:32.410]  - resignal = FALSE
  [14:17:32.411]  - Number of conditions: 140
  [14:17:32.412] signalConditions() ... done
  [14:17:32.413] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [14:17:32.413] - nx: 2
  [14:17:32.413] - relay: TRUE
  [14:17:32.414] - stdout: TRUE
  [14:17:32.414] - signal: TRUE
  [14:17:32.415] - resignal: FALSE
  [14:17:32.415] - force: FALSE
  [14:17:32.416] - relayed: [n=2] FALSE, FALSE
  [14:17:32.416] - queued futures: [n=2] FALSE, FALSE
  [14:17:32.417]  - until=1
  [14:17:32.417]  - relaying element #1
  [14:17:32.418] - relayed: [n=2] FALSE, FALSE
  [14:17:32.418] - queued futures: [n=2] FALSE, TRUE
  [14:17:32.419] signalConditionsASAP(NULL, pos=2) ... done
  [14:17:32.419]  length: 1 (resolved future 2)
  [14:17:32.520] Future #1
  [14:17:32.525] signalConditions() ...
  [14:17:32.525]  - include = 'immediateCondition'
  [14:17:32.526]  - exclude = 
  [14:17:32.526]  - resignal = FALSE
  [14:17:32.527]  - Number of conditions: 140
  [14:17:32.528] signalConditions() ... done
  [14:17:32.529] signalConditions() ...
  [14:17:32.529]  - include = 'immediateCondition'
  [14:17:32.539]  - exclude = 
  [14:17:32.539]  - resignal = FALSE
  [14:17:32.541]  - Number of conditions: 140
  [14:17:32.542] signalConditions() ... done
  [14:17:32.543] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [14:17:32.543] - nx: 2
  [14:17:32.544] - relay: TRUE
  [14:17:32.544] - stdout: TRUE
  [14:17:32.545] - signal: TRUE
  [14:17:32.545] - resignal: FALSE
  [14:17:32.545] - force: FALSE
  [14:17:32.546] - relayed: [n=2] FALSE, FALSE
  [14:17:32.546] - queued futures: [n=2] FALSE, TRUE
  [14:17:32.548]  - until=1
  [14:17:32.548]  - relaying element #1
  [14:17:32.549] signalConditions() ...
  [14:17:32.549]  - include = 'immediateCondition'
  [14:17:32.550]  - exclude = 
  [14:17:32.550]  - resignal = FALSE
  [14:17:32.550]  - Number of conditions: 140
  [14:17:32.551] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
      gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
    ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:32.552] signalConditions() ...
  [14:17:32.552]  - include = 'immediateCondition'
  [14:17:32.553]  - exclude = 
  [14:17:32.553]  - resignal = FALSE
  [14:17:32.554]  - Number of conditions: 140
  [14:17:32.555] signalConditions() ... done
  [14:17:32.555] signalConditions() ...
  [14:17:32.556]  - include = 'condition'
  [14:17:32.556]  - exclude = 'immediateCondition'
  [14:17:32.557]  - resignal = FALSE
  [14:17:32.557]  - Number of conditions: 140
  [14:17:32.558]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [14:17:32.559]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [14:17:31.977] doFuture() ...
  [14:17:32.559]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [14:17:31.980] - dummy globals (as locals): [1] 'b'
  [14:17:32.560]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [14:17:31.982] - R expression:
  [14:17:32.561]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [14:17:31.983] {
  [14:17:31.983]     doFuture::registerDoFuture()
  [14:17:31.983]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:31.983]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:31.983]         b <- NULL
  [14:17:31.983]         ...future.env <- environment()
  [14:17:31.983]         local({
  [14:17:31.983]             for (name in names(...future.x_jj)) {
  [14:17:31.983]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:31.983]                   inherits = FALSE)
  [14:17:31.983]             }
  [14:17:31.983]         })
  [14:17:31.983]         tryCatch({
  [14:17:31.983]             plan_list <- future::plan("next")
  [14:17:31.983]             message(capture.output(print(plan_list)))
  [14:17:31.983]             stopifnot(inherits(plan_list, "future"))
  [14:17:31.983]             default <- getOption("future.plan", "sequential")
  [14:17:31.983]             if (is.function(default)) 
  [14:17:31.983]                 default <- class(default)
  [14:17:31.983]             stopifnot(inherits(plan_list, default))
  [14:17:31.983]             plan_b <- future::plan("list")
  [14:17:31.983]             str(plan_b)
  [14:17:31.983]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:31.983]                 default))
  [14:17:31.983]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:31.983]         }, error = identity)
  [14:17:31.983]     })
  [14:17:31.983] }
  [14:17:32.561]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [14:17:31.985] - identifying globals and packages ...
  [14:17:32.562]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [14:17:31.989] getGlobalsAndPackages() ...
  [14:17:32.563]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [14:17:31.990] Searching for globals...
  [14:17:32.563]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [14:17:32.047] - globals found: [27] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'message', 'capture.output', 'print', 'stopifnot', 'inherits', 'getOption', 'if', 'is.function', 'class', 'str', 'list', 'a', 'plan_a', 'identity'
  [14:17:32.564]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [14:17:32.048] Searching for globals ... DONE
  [14:17:32.565]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [14:17:32.049] Resolving globals: FALSE
  [14:17:32.565]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [14:17:32.054] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [14:17:32.566]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [14:17:32.055] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:32.567]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [14:17:32.056] - packages: [1] 'utils'
  [14:17:32.567]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [14:17:32.057] getGlobalsAndPackages() ... DONE
  [14:17:32.568]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [14:17:32.058] List of 3
  [14:17:32.058]  $ ...future.x_ii: NULL
  [14:17:32.058]  $ a             : int 1
  [14:17:32.058]  $ plan_a        :List of 1
  [14:17:32.058]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:32.058]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:32.058]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:17:32.058]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:17:32.058]   .. ..- attr(*, "init")= logi TRUE
  [14:17:32.058]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:32.058]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:32.058]  - attr(*, "where")=List of 3
  [14:17:32.058]   ..$ ...future.x_ii:<environment: 0x57c7f28> 
  [14:17:32.058]   ..$ a             :<environment: 0x55f16a0> 
  [14:17:32.058]   ..$ plan_a        :<environment: 0x55f16a0> 
  [14:17:32.058]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [14:17:32.058]  - attr(*, "resolved")= logi FALSE
  [14:17:32.058]  - attr(*, "total_size")= num 83544
  [14:17:32.569]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [14:17:32.084]   - R expression:
  [14:17:32.569]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [14:17:32.085] {
  [14:17:32.085]     doFuture::registerDoFuture()
  [14:17:32.085]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [14:17:32.085]         ...future.x_jj <- ...future.x_ii[[jj]]
  [14:17:32.085]         b <- NULL
  [14:17:32.085]         ...future.env <- environment()
  [14:17:32.085]         local({
  [14:17:32.085]             for (name in names(...future.x_jj)) {
  [14:17:32.085]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [14:17:32.085]                   inherits = FALSE)
  [14:17:32.085]             }
  [14:17:32.085]         })
  [14:17:32.085]         tryCatch({
  [14:17:32.085]             plan_list <- future::plan("next")
  [14:17:32.085]             message(capture.output(print(plan_list)))
  [14:17:32.085]             stopifnot(inherits(plan_list, "future"))
  [14:17:32.085]             default <- getOption("future.plan", "sequential")
  [14:17:32.085]             if (is.function(default)) 
  [14:17:32.085]                 default <- class(default)
  [14:17:32.085]             stopifnot(inherits(plan_list, default))
  [14:17:32.085]             plan_b <- future::plan("list")
  [14:17:32.085]             str(plan_b)
  [14:17:32.085]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [14:17:32.085]                 default))
  [14:17:32.085]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [14:17:32.085]         }, error = identity)
  [14:17:32.085]     })
  [14:17:32.085] }
  [14:17:32.570]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [14:17:32.088]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [14:17:32.571]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [14:17:32.089] List of 3
  [14:17:32.089]  $ ...future.x_ii: NULL
  [14:17:32.089]  $ a             : int 1
  [14:17:32.089]  $ plan_a        :List of 1
  [14:17:32.089]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [14:17:32.089]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [14:17:32.089]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [14:17:32.089]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [14:17:32.089]   .. ..- attr(*, "init")= logi TRUE
  [14:17:32.089]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [14:17:32.089]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [14:17:32.089]  -