Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/4s]
  Running ‘doRNG,dopar.R’ [2s/40s]
  Running ‘doRNG,dorng.R’ [5s/46s]
  Running ‘foreach,errors.R’ [6s/121s]
  Running ‘foreach,globals.R’ [7s/132s]
  Running ‘foreach,nested.R’ [3s/24s]
  Running ‘foreach,nested_dopar.R’ [5s/51s]
  Running ‘foreach.R’ [10s/60s]
  Running ‘future.BatchJobs.R’ [29s/48s]
  Running ‘future.batchtools.R’ [36s/52s]
  Running ‘options.R’ [2s/25s]
  Running ‘registerDoFuture.R’ [2s/37s]
  Running ‘times.R’ [2s/40s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  Running ‘zzz_opt-in,caret.R’ [0s/1s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/1s]
Running the tests in ‘tests/foreach,nested.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
  [20:21:16.147] plan(): Setting new future strategy stack:
  [20:21:16.148] List of future strategies:
  [20:21:16.148] 1. sequential:
  [20:21:16.148]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.148]    - tweaked: FALSE
  [20:21:16.148]    - call: future::plan(future::sequential)
  [20:21:16.150] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested w/ %:% ...")
  *** doFuture - nested w/ %:% ...
  > 
  > registerDoFuture()
  > 
  > 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
  +     x <- foreach(a = as) %:% foreach(b = bs) %dopar% {
  +       list(a = a, b = b, plan_b = future::plan("list"), plan = future::plan())
  +     }
  + 
  +     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", "b", "plan_b", "plan")),
  +           x_aa_bb$a == a,
  +           x_aa_bb$b == b,
  +           length(x_aa_bb$plan_b) == length(nested[-1]),
  +           inherits(x_aa_bb$plan_b[[1]], strategy2),
  +           inherits(x_aa_bb$plan, strategy2)
  +         )
  +       }
  +     }
  + 
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [20:21:16.215] plan(): Setting new future strategy stack:
  [20:21:16.216] List of future strategies:
  [20:21:16.216] 1. sequential:
  [20:21:16.216]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.216]    - tweaked: FALSE
  [20:21:16.216]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.216] 2. sequential:
  [20:21:16.216]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.216]    - tweaked: FALSE
  [20:21:16.216]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.245] plan(): nbrOfWorkers() = 1
  [20:21:16.246] doFuture() ...
  [20:21:16.252] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:16.253] - R expression:
  [20:21:16.255] {
  [20:21:16.255]     doFuture::registerDoFuture()
  [20:21:16.255]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.255]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.255]         {
  [20:21:16.255]             a <- NULL
  [20:21:16.255]             b <- NULL
  [20:21:16.255]         }
  [20:21:16.255]         ...future.env <- environment()
  [20:21:16.255]         local({
  [20:21:16.255]             for (name in names(...future.x_jj)) {
  [20:21:16.255]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.255]                   inherits = FALSE)
  [20:21:16.255]             }
  [20:21:16.255]         })
  [20:21:16.255]         tryCatch({
  [20:21:16.255]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.255]                 plan = future::plan())
  [20:21:16.255]         }, error = identity)
  [20:21:16.255]     })
  [20:21:16.255] }
  [20:21:16.256] - identifying globals and packages ...
  [20:21:16.261] getGlobalsAndPackages() ...
  [20:21:16.261] Searching for globals...
  [20:21:16.285] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:16.286] Searching for globals ... DONE
  [20:21:16.286] Resolving globals: FALSE
  [20:21:16.288] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:16.289] - globals: [1] '...future.x_ii'
  [20:21:16.289] 
  [20:21:16.289] getGlobalsAndPackages() ... DONE
  [20:21:16.290] List of 1
  [20:21:16.290]  $ ...future.x_ii: NULL
  [20:21:16.290]  - attr(*, "where")=List of 1
  [20:21:16.290]   ..$ ...future.x_ii:<environment: 0x565198643400> 
  [20:21:16.290]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.290]  - attr(*, "resolved")= logi FALSE
  [20:21:16.290]  - attr(*, "total_size")= num 0
  [20:21:16.301]   - R expression:
  [20:21:16.301] {
  [20:21:16.301]     doFuture::registerDoFuture()
  [20:21:16.301]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.301]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.301]         {
  [20:21:16.301]             a <- NULL
  [20:21:16.301]             b <- NULL
  [20:21:16.301]         }
  [20:21:16.301]         ...future.env <- environment()
  [20:21:16.301]         local({
  [20:21:16.301]             for (name in names(...future.x_jj)) {
  [20:21:16.301]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.301]                   inherits = FALSE)
  [20:21:16.301]             }
  [20:21:16.301]         })
  [20:21:16.301]         tryCatch({
  [20:21:16.301]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.301]                 plan = future::plan())
  [20:21:16.301]         }, error = identity)
  [20:21:16.301]     })
  [20:21:16.301] }
  [20:21:16.302]   - globals: [1] '...future.x_ii'
  [20:21:16.302] List of 1
  [20:21:16.302]  $ ...future.x_ii: NULL
  [20:21:16.302]  - attr(*, "where")=List of 1
  [20:21:16.302]   ..$ ...future.x_ii:<environment: 0x565198643400> 
  [20:21:16.302]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.302]  - attr(*, "resolved")= logi FALSE
  [20:21:16.302]  - attr(*, "total_size")= num 0
  [20:21:16.309]   - packages: [1] 'doFuture'
  [20:21:16.309] - identifying globals and packages ... DONE
  [20:21:16.310] Number of chunks: 1
  [20:21:16.310] Number of futures (= number of chunks): 1
  [20:21:16.310] Launching 1 futures (chunks) ...
  [20:21:16.311] Chunk #1 of 1 ...
  [20:21:16.311]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:16.311] getGlobalsAndPackages() ...
  [20:21:16.312] Searching for globals...
  [20:21:16.313] 
  [20:21:16.313] Searching for globals ... DONE
  [20:21:16.313] - globals: [0] <none>
  [20:21:16.314] getGlobalsAndPackages() ... DONE
  [20:21:16.314] 
  [20:21:16.314] 
  [20:21:16.315]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:16.315] getGlobalsAndPackages() ...
  [20:21:16.316] - globals passed as-is: [1] '...future.x_ii'
  [20:21:16.316] Resolving globals: FALSE
  [20:21:16.317] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:21:16.318] - globals: [1] '...future.x_ii'
  [20:21:16.318] 
  [20:21:16.318] getGlobalsAndPackages() ... DONE
  [20:21:16.321] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:16.322] Packages needed by future strategies (n = 1): 'future'
  [20:21:16.326] {
  [20:21:16.326]     {
  [20:21:16.326]         ...future.startTime <- Sys.time()
  [20:21:16.326]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:16.326]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:16.326]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [20:21:16.326]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:16.326]             future.resolve.recursive = NULL, width = 80L)
  [20:21:16.326]         {
  [20:21:16.326]             {
  [20:21:16.326]                 {
  [20:21:16.326]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:16.326]                   version <- if (has_future) 
  [20:21:16.326]                     packageVersion("future")
  [20:21:16.326]                   else NULL
  [20:21:16.326]                   if (!has_future || version < "1.8.0") {
  [20:21:16.326]                     info <- c(r_version = gsub("R version ", 
  [20:21:16.326]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:16.326]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:16.326]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:16.326]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:16.326]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:16.326]                     info <- paste(info, collapse = "; ")
  [20:21:16.326]                     if (!has_future) {
  [20:21:16.326]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:16.326]                         info)
  [20:21:16.326]                     }
  [20:21:16.326]                     else {
  [20:21:16.326]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:16.326]                         info, version)
  [20:21:16.326]                     }
  [20:21:16.326]                     stop(msg)
  [20:21:16.326]                   }
  [20:21:16.326]                 }
  [20:21:16.326]                 local({
  [20:21:16.326]                   for (pkg in c("doFuture", "future")) {
  [20:21:16.326]                     loadNamespace(pkg)
  [20:21:16.326]                     library(pkg, character.only = TRUE)
  [20:21:16.326]                   }
  [20:21:16.326]                 })
  [20:21:16.326]             }
  [20:21:16.326]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:16.326]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.326]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:16.326]                 label = NULL, ...) 
  [20:21:16.326]             {
  [20:21:16.326]                 if (substitute) 
  [20:21:16.326]                   expr <- substitute(expr)
  [20:21:16.326]                 local <- as.logical(local)
  [20:21:16.326]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.326]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.326]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.326]                   label = label, ...)
  [20:21:16.326]                 if (!future$lazy) 
  [20:21:16.326]                   future <- run(future)
  [20:21:16.326]                 invisible(future)
  [20:21:16.326]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.326]         }
  [20:21:16.326]     }
  [20:21:16.326]     if (is.na(TRUE)) {
  [20:21:16.326]     }
  [20:21:16.326]     else {
  [20:21:16.326]         if (TRUE) {
  [20:21:16.326]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:16.326]         }
  [20:21:16.326]         else {
  [20:21:16.326]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:16.326]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:16.326]         }
  [20:21:16.326]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:16.326]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:16.326]             sink(type = "output", split = FALSE)
  [20:21:16.326]             close(...future.stdout)
  [20:21:16.326]         }, add = TRUE)
  [20:21:16.326]     }
  [20:21:16.326]     ...future.frame <- sys.nframe()
  [20:21:16.326]     ...future.conditions <- list()
  [20:21:16.326]     ...future.result <- tryCatch({
  [20:21:16.326]         withCallingHandlers({
  [20:21:16.326]             ...future.value <- withVisible(local({
  [20:21:16.326]                 doFuture::registerDoFuture()
  [20:21:16.326]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.326]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.326]                   {
  [20:21:16.326]                     a <- NULL
  [20:21:16.326]                     b <- NULL
  [20:21:16.326]                   }
  [20:21:16.326]                   ...future.env <- environment()
  [20:21:16.326]                   local({
  [20:21:16.326]                     for (name in names(...future.x_jj)) {
  [20:21:16.326]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.326]                         inherits = FALSE)
  [20:21:16.326]                     }
  [20:21:16.326]                   })
  [20:21:16.326]                   tryCatch({
  [20:21:16.326]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.326]                       plan = future::plan())
  [20:21:16.326]                   }, error = identity)
  [20:21:16.326]                 })
  [20:21:16.326]             }))
  [20:21:16.326]             future::FutureResult(value = ...future.value$value, 
  [20:21:16.326]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:16.326]                 version = "1.8")
  [20:21:16.326]         }, condition = local({
  [20:21:16.326]             inherits <- base::inherits
  [20:21:16.326]             invokeRestart <- base::invokeRestart
  [20:21:16.326]             length <- base::length
  [20:21:16.326]             seq.int <- base::seq.int
  [20:21:16.326]             sys.calls <- base::sys.calls
  [20:21:16.326]             `[[` <- base::`[[`
  [20:21:16.326]             `+` <- base::`+`
  [20:21:16.326]             `<<-` <- base::`<<-`
  [20:21:16.326]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:16.326]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:16.326]                   3L)]
  [20:21:16.326]             }
  [20:21:16.326]             function(cond) {
  [20:21:16.326]                 if (inherits(cond, "error")) {
  [20:21:16.326]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.326]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:16.326]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:16.326]                     signaled = 0L)
  [20:21:16.326]                   signalCondition(cond)
  [20:21:16.326]                 }
  [20:21:16.326]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:16.326]                 ))) {
  [20:21:16.326]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:16.326]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.326]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:16.326]                   if (!signal) {
  [20:21:16.326]                     muffleCondition <- function (cond) 
  [20:21:16.326]                     {
  [20:21:16.326]                       inherits <- base::inherits
  [20:21:16.326]                       invokeRestart <- base::invokeRestart
  [20:21:16.326]                       muffled <- FALSE
  [20:21:16.326]                       if (inherits(cond, "message")) {
  [20:21:16.326]                         invokeRestart("muffleMessage")
  [20:21:16.326]                         muffled <- TRUE
  [20:21:16.326]                       }
  [20:21:16.326]                       else if (inherits(cond, "warning")) {
  [20:21:16.326]                         invokeRestart("muffleWarning")
  [20:21:16.326]                         muffled <- TRUE
  [20:21:16.326]                       }
  [20:21:16.326]                       else if (inherits(cond, "condition")) {
  [20:21:16.326]                         computeRestarts <- base::computeRestarts
  [20:21:16.326]                         grepl <- base::grepl
  [20:21:16.326]                         is.null <- base::is.null
  [20:21:16.326]                         restarts <- computeRestarts(cond)
  [20:21:16.326]                         for (restart in restarts) {
  [20:21:16.326]                           name <- restart$name
  [20:21:16.326]                           if (is.null(name)) 
  [20:21:16.326]                             next
  [20:21:16.326]                           if (!grepl("^muffle", name)) 
  [20:21:16.326]                             next
  [20:21:16.326]                           invokeRestart(restart)
  [20:21:16.326]                           muffled <- TRUE
  [20:21:16.326]                           break
  [20:21:16.326]                         }
  [20:21:16.326]                       }
  [20:21:16.326]                       invisible(muffled)
  [20:21:16.326]                     }
  [20:21:16.326]                     muffleCondition(cond)
  [20:21:16.326]                   }
  [20:21:16.326]                 }
  [20:21:16.326]             }
  [20:21:16.326]         }))
  [20:21:16.326]     }, error = function(ex) {
  [20:21:16.326]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:16.326]             version = "1.8"), class = "FutureResult")
  [20:21:16.326]     }, finally = {
  [20:21:16.326]         {
  [20:21:16.326]             NULL
  [20:21:16.326]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:16.326]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.326]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:16.326]                 label = NULL, ...) 
  [20:21:16.326]             {
  [20:21:16.326]                 if (substitute) 
  [20:21:16.326]                   expr <- substitute(expr)
  [20:21:16.326]                 local <- as.logical(local)
  [20:21:16.326]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.326]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.326]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.326]                   label = label, ...)
  [20:21:16.326]                 if (!future$lazy) 
  [20:21:16.326]                   future <- run(future)
  [20:21:16.326]                 invisible(future)
  [20:21:16.326]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:16.326]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:16.326]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:16.326]             {
  [20:21:16.326]                 if (substitute) 
  [20:21:16.326]                   expr <- substitute(expr)
  [20:21:16.326]                 local <- as.logical(local)
  [20:21:16.326]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.326]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.326]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.326]                   label = label, ...)
  [20:21:16.326]                 if (!future$lazy) 
  [20:21:16.326]                   future <- run(future)
  [20:21:16.326]                 invisible(future)
  [20:21:16.326]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.326]         }
  [20:21:16.326]         options(...future.oldOptions)
  [20:21:16.326]     })
  [20:21:16.326]     if (is.na(TRUE)) {
  [20:21:16.326]     }
  [20:21:16.326]     else {
  [20:21:16.326]         sink(type = "output", split = FALSE)
  [20:21:16.326]         if (TRUE) {
  [20:21:16.326]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:16.326]         }
  [20:21:16.326]         else {
  [20:21:16.326]             ...future.result["stdout"] <- list(NULL)
  [20:21:16.326]         }
  [20:21:16.326]         close(...future.stdout)
  [20:21:16.326]         ...future.stdout <- NULL
  [20:21:16.326]     }
  [20:21:16.326]     ...future.result$conditions <- ...future.conditions
  [20:21:16.326]     ...future.result
  [20:21:16.326] }
  [20:21:16.331] plan(): Setting new future strategy stack:
  [20:21:16.332] List of future strategies:
  [20:21:16.332] 1. sequential:
  [20:21:16.332]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.332]    - tweaked: FALSE
  [20:21:16.332]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.333] plan(): nbrOfWorkers() = 1
  [20:21:16.353] plan(): Setting new future strategy stack:
  [20:21:16.354] List of future strategies:
  [20:21:16.354] 1. sequential:
  [20:21:16.354]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.354]    - tweaked: FALSE
  [20:21:16.354]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.354] 2. sequential:
  [20:21:16.354]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.354]    - tweaked: FALSE
  [20:21:16.354]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.355] plan(): nbrOfWorkers() = 1
  [20:21:16.355] SequentialFuture started (and completed)
  [20:21:16.356] Chunk #1 of 1 ... DONE
  [20:21:16.357] Launching 1 futures (chunks) ... DONE
  [20:21:16.357] - resolving futures
  [20:21:16.357]   - gathering results & relaying conditions (except errors)
  [20:21:16.358] resolve() on list ...
  [20:21:16.358]  recursive: 0
  [20:21:16.359]  length: 1
  [20:21:16.359] 
  [20:21:16.359] Future #1
  [20:21:16.360] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:16.360] - nx: 1
  [20:21:16.360] - relay: TRUE
  [20:21:16.361] - stdout: TRUE
  [20:21:16.361] - signal: TRUE
  [20:21:16.361] - resignal: FALSE
  [20:21:16.361] - force: FALSE
  [20:21:16.362] - relayed: [n=1] FALSE
  [20:21:16.362] - queued futures: [n=1] FALSE
  [20:21:16.362]  - until=1
  [20:21:16.362]  - relaying element #1
  [20:21:16.363] - relayed: [n=1] TRUE
  [20:21:16.363] - queued futures: [n=1] TRUE
  [20:21:16.363] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:16.364]  length: 0 (resolved future 1)
  [20:21:16.364] Relaying remaining futures
  [20:21:16.364] signalConditionsASAP(NULL, pos=0) ...
  [20:21:16.365] - nx: 1
  [20:21:16.365] - relay: TRUE
  [20:21:16.365] - stdout: TRUE
  [20:21:16.365] - signal: TRUE
  [20:21:16.366] - resignal: FALSE
  [20:21:16.366] - force: FALSE
  [20:21:16.366] - relayed: [n=1] TRUE
  [20:21:16.366] - queued futures: [n=1] TRUE
   - flush all
  [20:21:16.367] - relayed: [n=1] TRUE
  [20:21:16.367] - queued futures: [n=1] TRUE
  [20:21:16.367] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:16.367] resolve() on list ... DONE
  [20:21:16.368] - collecting values of futures
  [20:21:16.368] - accumulating results
  [20:21:16.372] - processing errors (handler = 'stop')
  [20:21:16.372] - extracting results
  [20:21:16.372] doFuture() ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [20:21:16.374] plan(): Setting new future strategy stack:
  [20:21:16.374] List of future strategies:
  [20:21:16.374] 1. sequential:
  [20:21:16.374]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.374]    - tweaked: FALSE
  [20:21:16.374]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.374] 2. multicore:
  [20:21:16.374]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:16.374]    - tweaked: FALSE
  [20:21:16.374]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.375] plan(): nbrOfWorkers() = 1
  [20:21:16.376] doFuture() ...
  [20:21:16.396] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:16.397] - R expression:
  [20:21:16.397] {
  [20:21:16.397]     doFuture::registerDoFuture()
  [20:21:16.397]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.397]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.397]         {
  [20:21:16.397]             a <- NULL
  [20:21:16.397]             b <- NULL
  [20:21:16.397]         }
  [20:21:16.397]         ...future.env <- environment()
  [20:21:16.397]         local({
  [20:21:16.397]             for (name in names(...future.x_jj)) {
  [20:21:16.397]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.397]                   inherits = FALSE)
  [20:21:16.397]             }
  [20:21:16.397]         })
  [20:21:16.397]         tryCatch({
  [20:21:16.397]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.397]                 plan = future::plan())
  [20:21:16.397]         }, error = identity)
  [20:21:16.397]     })
  [20:21:16.397] }
  [20:21:16.398] - identifying globals and packages ...
  [20:21:16.398] getGlobalsAndPackages() ...
  [20:21:16.399] Searching for globals...
  [20:21:16.428] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:16.428] Searching for globals ... DONE
  [20:21:16.429] Resolving globals: FALSE
  [20:21:16.430] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:16.430] - globals: [1] '...future.x_ii'
  [20:21:16.431] 
  [20:21:16.431] getGlobalsAndPackages() ... DONE
  [20:21:16.435] List of 1
  [20:21:16.435]  $ ...future.x_ii: NULL
  [20:21:16.435]  - attr(*, "where")=List of 1
  [20:21:16.435]   ..$ ...future.x_ii:<environment: 0x565199442468> 
  [20:21:16.435]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.435]  - attr(*, "resolved")= logi FALSE
  [20:21:16.435]  - attr(*, "total_size")= num 0
  [20:21:16.441]   - R expression:
  [20:21:16.441] {
  [20:21:16.441]     doFuture::registerDoFuture()
  [20:21:16.441]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.441]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.441]         {
  [20:21:16.441]             a <- NULL
  [20:21:16.441]             b <- NULL
  [20:21:16.441]         }
  [20:21:16.441]         ...future.env <- environment()
  [20:21:16.441]         local({
  [20:21:16.441]             for (name in names(...future.x_jj)) {
  [20:21:16.441]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.441]                   inherits = FALSE)
  [20:21:16.441]             }
  [20:21:16.441]         })
  [20:21:16.441]         tryCatch({
  [20:21:16.441]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.441]                 plan = future::plan())
  [20:21:16.441]         }, error = identity)
  [20:21:16.441]     })
  [20:21:16.441] }
  [20:21:16.458]   - globals: [1] '...future.x_ii'
  [20:21:16.458] List of 1
  [20:21:16.458]  $ ...future.x_ii: NULL
  [20:21:16.458]  - attr(*, "where")=List of 1
  [20:21:16.458]   ..$ ...future.x_ii:<environment: 0x565199442468> 
  [20:21:16.458]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.458]  - attr(*, "resolved")= logi FALSE
  [20:21:16.458]  - attr(*, "total_size")= num 0
  [20:21:16.463]   - packages: [1] 'doFuture'
  [20:21:16.463] - identifying globals and packages ... DONE
  [20:21:16.464] Number of chunks: 1
  [20:21:16.464] Number of futures (= number of chunks): 1
  [20:21:16.464] Launching 1 futures (chunks) ...
  [20:21:16.464] Chunk #1 of 1 ...
  [20:21:16.465]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:16.465] getGlobalsAndPackages() ...
  [20:21:16.465] Searching for globals...
  [20:21:16.466] 
  [20:21:16.466] Searching for globals ... DONE
  [20:21:16.466] - globals: [0] <none>
  [20:21:16.467] getGlobalsAndPackages() ... DONE
  [20:21:16.467] 
  [20:21:16.467] 
  [20:21:16.467]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:16.468] getGlobalsAndPackages() ...
  [20:21:16.468] - globals passed as-is: [1] '...future.x_ii'
  [20:21:16.468] Resolving globals: FALSE
  [20:21:16.469] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:21:16.469] - globals: [1] '...future.x_ii'
  [20:21:16.470] 
  [20:21:16.470] getGlobalsAndPackages() ... DONE
  [20:21:16.471] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:16.472] Packages needed by future strategies (n = 1): 'future'
  [20:21:16.491] {
  [20:21:16.491]     {
  [20:21:16.491]         ...future.startTime <- Sys.time()
  [20:21:16.491]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:16.491]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:16.491]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:16.491]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:16.491]             future.resolve.recursive = NULL, width = 80L)
  [20:21:16.491]         {
  [20:21:16.491]             {
  [20:21:16.491]                 {
  [20:21:16.491]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:16.491]                   version <- if (has_future) 
  [20:21:16.491]                     packageVersion("future")
  [20:21:16.491]                   else NULL
  [20:21:16.491]                   if (!has_future || version < "1.8.0") {
  [20:21:16.491]                     info <- c(r_version = gsub("R version ", 
  [20:21:16.491]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:16.491]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:16.491]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:16.491]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:16.491]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:16.491]                     info <- paste(info, collapse = "; ")
  [20:21:16.491]                     if (!has_future) {
  [20:21:16.491]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:16.491]                         info)
  [20:21:16.491]                     }
  [20:21:16.491]                     else {
  [20:21:16.491]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:16.491]                         info, version)
  [20:21:16.491]                     }
  [20:21:16.491]                     stop(msg)
  [20:21:16.491]                   }
  [20:21:16.491]                 }
  [20:21:16.491]                 local({
  [20:21:16.491]                   for (pkg in c("doFuture", "future")) {
  [20:21:16.491]                     loadNamespace(pkg)
  [20:21:16.491]                     library(pkg, character.only = TRUE)
  [20:21:16.491]                   }
  [20:21:16.491]                 })
  [20:21:16.491]             }
  [20:21:16.491]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:16.491]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.491]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:16.491]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:16.491]             {
  [20:21:16.491]                 if (substitute) 
  [20:21:16.491]                   expr <- substitute(expr)
  [20:21:16.491]                 if (is.function(workers)) 
  [20:21:16.491]                   workers <- workers()
  [20:21:16.491]                 workers <- as.integer(workers)
  [20:21:16.491]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:16.491]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:16.491]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:16.491]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:16.491]                     local = TRUE, label = label, ...))
  [20:21:16.491]                 }
  [20:21:16.491]                 oopts <- options(mc.cores = workers)
  [20:21:16.491]                 on.exit(options(oopts))
  [20:21:16.491]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:16.491]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.491]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:16.491]                   label = label, ...)
  [20:21:16.491]                 if (!future$lazy) 
  [20:21:16.491]                   future <- run(future)
  [20:21:16.491]                 invisible(future)
  [20:21:16.491]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.491]         }
  [20:21:16.491]     }
  [20:21:16.491]     if (is.na(TRUE)) {
  [20:21:16.491]     }
  [20:21:16.491]     else {
  [20:21:16.491]         if (TRUE) {
  [20:21:16.491]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:16.491]         }
  [20:21:16.491]         else {
  [20:21:16.491]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:16.491]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:16.491]         }
  [20:21:16.491]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:16.491]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:16.491]             sink(type = "output", split = FALSE)
  [20:21:16.491]             close(...future.stdout)
  [20:21:16.491]         }, add = TRUE)
  [20:21:16.491]     }
  [20:21:16.491]     ...future.frame <- sys.nframe()
  [20:21:16.491]     ...future.conditions <- list()
  [20:21:16.491]     ...future.result <- tryCatch({
  [20:21:16.491]         withCallingHandlers({
  [20:21:16.491]             ...future.value <- withVisible(local({
  [20:21:16.491]                 doFuture::registerDoFuture()
  [20:21:16.491]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.491]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.491]                   {
  [20:21:16.491]                     a <- NULL
  [20:21:16.491]                     b <- NULL
  [20:21:16.491]                   }
  [20:21:16.491]                   ...future.env <- environment()
  [20:21:16.491]                   local({
  [20:21:16.491]                     for (name in names(...future.x_jj)) {
  [20:21:16.491]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.491]                         inherits = FALSE)
  [20:21:16.491]                     }
  [20:21:16.491]                   })
  [20:21:16.491]                   tryCatch({
  [20:21:16.491]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.491]                       plan = future::plan())
  [20:21:16.491]                   }, error = identity)
  [20:21:16.491]                 })
  [20:21:16.491]             }))
  [20:21:16.491]             future::FutureResult(value = ...future.value$value, 
  [20:21:16.491]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:16.491]                 version = "1.8")
  [20:21:16.491]         }, condition = local({
  [20:21:16.491]             inherits <- base::inherits
  [20:21:16.491]             invokeRestart <- base::invokeRestart
  [20:21:16.491]             length <- base::length
  [20:21:16.491]             seq.int <- base::seq.int
  [20:21:16.491]             sys.calls <- base::sys.calls
  [20:21:16.491]             `[[` <- base::`[[`
  [20:21:16.491]             `+` <- base::`+`
  [20:21:16.491]             `<<-` <- base::`<<-`
  [20:21:16.491]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:16.491]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:16.491]                   3L)]
  [20:21:16.491]             }
  [20:21:16.491]             function(cond) {
  [20:21:16.491]                 if (inherits(cond, "error")) {
  [20:21:16.491]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.491]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:16.491]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:16.491]                     signaled = 0L)
  [20:21:16.491]                   signalCondition(cond)
  [20:21:16.491]                 }
  [20:21:16.491]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:16.491]                 ))) {
  [20:21:16.491]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:16.491]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.491]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:16.491]                   if (!signal) {
  [20:21:16.491]                     muffleCondition <- function (cond) 
  [20:21:16.491]                     {
  [20:21:16.491]                       inherits <- base::inherits
  [20:21:16.491]                       invokeRestart <- base::invokeRestart
  [20:21:16.491]                       muffled <- FALSE
  [20:21:16.491]                       if (inherits(cond, "message")) {
  [20:21:16.491]                         invokeRestart("muffleMessage")
  [20:21:16.491]                         muffled <- TRUE
  [20:21:16.491]                       }
  [20:21:16.491]                       else if (inherits(cond, "warning")) {
  [20:21:16.491]                         invokeRestart("muffleWarning")
  [20:21:16.491]                         muffled <- TRUE
  [20:21:16.491]                       }
  [20:21:16.491]                       else if (inherits(cond, "condition")) {
  [20:21:16.491]                         computeRestarts <- base::computeRestarts
  [20:21:16.491]                         grepl <- base::grepl
  [20:21:16.491]                         is.null <- base::is.null
  [20:21:16.491]                         restarts <- computeRestarts(cond)
  [20:21:16.491]                         for (restart in restarts) {
  [20:21:16.491]                           name <- restart$name
  [20:21:16.491]                           if (is.null(name)) 
  [20:21:16.491]                             next
  [20:21:16.491]                           if (!grepl("^muffle", name)) 
  [20:21:16.491]                             next
  [20:21:16.491]                           invokeRestart(restart)
  [20:21:16.491]                           muffled <- TRUE
  [20:21:16.491]                           break
  [20:21:16.491]                         }
  [20:21:16.491]                       }
  [20:21:16.491]                       invisible(muffled)
  [20:21:16.491]                     }
  [20:21:16.491]                     muffleCondition(cond)
  [20:21:16.491]                   }
  [20:21:16.491]                 }
  [20:21:16.491]             }
  [20:21:16.491]         }))
  [20:21:16.491]     }, error = function(ex) {
  [20:21:16.491]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:16.491]             version = "1.8"), class = "FutureResult")
  [20:21:16.491]     }, finally = {
  [20:21:16.491]         {
  [20:21:16.491]             NULL
  [20:21:16.491]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:16.491]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.491]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:16.491]                 label = NULL, ...) 
  [20:21:16.491]             {
  [20:21:16.491]                 if (substitute) 
  [20:21:16.491]                   expr <- substitute(expr)
  [20:21:16.491]                 local <- as.logical(local)
  [20:21:16.491]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.491]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.491]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.491]                   label = label, ...)
  [20:21:16.491]                 if (!future$lazy) 
  [20:21:16.491]                   future <- run(future)
  [20:21:16.491]                 invisible(future)
  [20:21:16.491]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:16.491]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:16.491]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:16.491]             {
  [20:21:16.491]                 if (substitute) 
  [20:21:16.491]                   expr <- substitute(expr)
  [20:21:16.491]                 if (is.function(workers)) 
  [20:21:16.491]                   workers <- workers()
  [20:21:16.491]                 workers <- as.integer(workers)
  [20:21:16.491]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:16.491]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:16.491]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:16.491]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:16.491]                     local = TRUE, label = label, ...))
  [20:21:16.491]                 }
  [20:21:16.491]                 oopts <- options(mc.cores = workers)
  [20:21:16.491]                 on.exit(options(oopts))
  [20:21:16.491]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:16.491]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.491]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:16.491]                   label = label, ...)
  [20:21:16.491]                 if (!future$lazy) 
  [20:21:16.491]                   future <- run(future)
  [20:21:16.491]                 invisible(future)
  [20:21:16.491]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.491]         }
  [20:21:16.491]         options(...future.oldOptions)
  [20:21:16.491]     })
  [20:21:16.491]     if (is.na(TRUE)) {
  [20:21:16.491]     }
  [20:21:16.491]     else {
  [20:21:16.491]         sink(type = "output", split = FALSE)
  [20:21:16.491]         if (TRUE) {
  [20:21:16.491]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:16.491]         }
  [20:21:16.491]         else {
  [20:21:16.491]             ...future.result["stdout"] <- list(NULL)
  [20:21:16.491]         }
  [20:21:16.491]         close(...future.stdout)
  [20:21:16.491]         ...future.stdout <- NULL
  [20:21:16.491]     }
  [20:21:16.491]     ...future.result$conditions <- ...future.conditions
  [20:21:16.491]     ...future.result
  [20:21:16.491] }
  [20:21:16.497] plan(): Setting new future strategy stack:
  [20:21:16.497] List of future strategies:
  [20:21:16.497] 1. multicore:
  [20:21:16.497]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:16.497]    - tweaked: FALSE
  [20:21:16.497]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.552] plan(): nbrOfWorkers() = 2
  [20:21:16.554] plan(): Setting new future strategy stack:
  [20:21:16.554] List of future strategies:
  [20:21:16.554] 1. sequential:
  [20:21:16.554]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.554]    - tweaked: FALSE
  [20:21:16.554]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.554] 2. multicore:
  [20:21:16.554]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:16.554]    - tweaked: FALSE
  [20:21:16.554]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.556] plan(): nbrOfWorkers() = 1
  [20:21:16.556] SequentialFuture started (and completed)
  [20:21:16.556] Chunk #1 of 1 ... DONE
  [20:21:16.557] Launching 1 futures (chunks) ... DONE
  [20:21:16.557] - resolving futures
  [20:21:16.557]   - gathering results & relaying conditions (except errors)
  [20:21:16.557] resolve() on list ...
  [20:21:16.558]  recursive: 0
  [20:21:16.558]  length: 1
  [20:21:16.558] 
  [20:21:16.558] Future #1
  [20:21:16.559] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:16.559] - nx: 1
  [20:21:16.559] - relay: TRUE
  [20:21:16.559] - stdout: TRUE
  [20:21:16.560] - signal: TRUE
  [20:21:16.560] - resignal: FALSE
  [20:21:16.560] - force: FALSE
  [20:21:16.560] - relayed: [n=1] FALSE
  [20:21:16.561] - queued futures: [n=1] FALSE
  [20:21:16.561]  - until=1
  [20:21:16.561]  - relaying element #1
  [20:21:16.562] - relayed: [n=1] TRUE
  [20:21:16.562] - queued futures: [n=1] TRUE
  [20:21:16.562] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:16.562]  length: 0 (resolved future 1)
  [20:21:16.563] Relaying remaining futures
  [20:21:16.563] signalConditionsASAP(NULL, pos=0) ...
  [20:21:16.563] - nx: 1
  [20:21:16.563] - relay: TRUE
  [20:21:16.563] - stdout: TRUE
  [20:21:16.564] - signal: TRUE
  [20:21:16.564] - resignal: FALSE
  [20:21:16.564] - force: FALSE
  [20:21:16.564] - relayed: [n=1] TRUE
  [20:21:16.565] - queued futures: [n=1] TRUE
   - flush all
  [20:21:16.565] - relayed: [n=1] TRUE
  [20:21:16.565] - queued futures: [n=1] TRUE
  [20:21:16.565] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:16.582] resolve() on list ... DONE
  [20:21:16.582] - collecting values of futures
  [20:21:16.583] - accumulating results
  [20:21:16.585] - processing errors (handler = 'stop')
  [20:21:16.585] - extracting results
  [20:21:16.586] doFuture() ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [20:21:16.587] plan(): Setting new future strategy stack:
  [20:21:16.587] List of future strategies:
  [20:21:16.587] 1. sequential:
  [20:21:16.587]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.587]    - tweaked: FALSE
  [20:21:16.587]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.587] 2. multisession:
  [20:21:16.587]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.587]    - tweaked: FALSE
  [20:21:16.587]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.588] plan(): nbrOfWorkers() = 1
  [20:21:16.589] doFuture() ...
  [20:21:16.592] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:16.593] - R expression:
  [20:21:16.593] {
  [20:21:16.593]     doFuture::registerDoFuture()
  [20:21:16.593]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.593]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.593]         {
  [20:21:16.593]             a <- NULL
  [20:21:16.593]             b <- NULL
  [20:21:16.593]         }
  [20:21:16.593]         ...future.env <- environment()
  [20:21:16.593]         local({
  [20:21:16.593]             for (name in names(...future.x_jj)) {
  [20:21:16.593]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.593]                   inherits = FALSE)
  [20:21:16.593]             }
  [20:21:16.593]         })
  [20:21:16.593]         tryCatch({
  [20:21:16.593]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.593]                 plan = future::plan())
  [20:21:16.593]         }, error = identity)
  [20:21:16.593]     })
  [20:21:16.593] }
  [20:21:16.594] - identifying globals and packages ...
  [20:21:16.594] getGlobalsAndPackages() ...
  [20:21:16.594] Searching for globals...
  [20:21:16.626] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:16.626] Searching for globals ... DONE
  [20:21:16.626] Resolving globals: FALSE
  [20:21:16.628] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:16.628] - globals: [1] '...future.x_ii'
  [20:21:16.628] 
  [20:21:16.628] getGlobalsAndPackages() ... DONE
  [20:21:16.629] List of 1
  [20:21:16.629]  $ ...future.x_ii: NULL
  [20:21:16.629]  - attr(*, "where")=List of 1
  [20:21:16.629]   ..$ ...future.x_ii:<environment: 0x56519987d210> 
  [20:21:16.629]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.629]  - attr(*, "resolved")= logi FALSE
  [20:21:16.629]  - attr(*, "total_size")= num 0
  [20:21:16.651]   - R expression:
  [20:21:16.651] {
  [20:21:16.651]     doFuture::registerDoFuture()
  [20:21:16.651]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.651]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.651]         {
  [20:21:16.651]             a <- NULL
  [20:21:16.651]             b <- NULL
  [20:21:16.651]         }
  [20:21:16.651]         ...future.env <- environment()
  [20:21:16.651]         local({
  [20:21:16.651]             for (name in names(...future.x_jj)) {
  [20:21:16.651]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.651]                   inherits = FALSE)
  [20:21:16.651]             }
  [20:21:16.651]         })
  [20:21:16.651]         tryCatch({
  [20:21:16.651]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.651]                 plan = future::plan())
  [20:21:16.651]         }, error = identity)
  [20:21:16.651]     })
  [20:21:16.651] }
  [20:21:16.652]   - globals: [1] '...future.x_ii'
  [20:21:16.652] List of 1
  [20:21:16.652]  $ ...future.x_ii: NULL
  [20:21:16.652]  - attr(*, "where")=List of 1
  [20:21:16.652]   ..$ ...future.x_ii:<environment: 0x56519987d210> 
  [20:21:16.652]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.652]  - attr(*, "resolved")= logi FALSE
  [20:21:16.652]  - attr(*, "total_size")= num 0
  [20:21:16.657]   - packages: [1] 'doFuture'
  [20:21:16.658] - identifying globals and packages ... DONE
  [20:21:16.658] Number of chunks: 1
  [20:21:16.658] Number of futures (= number of chunks): 1
  [20:21:16.658] Launching 1 futures (chunks) ...
  [20:21:16.659] Chunk #1 of 1 ...
  [20:21:16.659]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:16.659] getGlobalsAndPackages() ...
  [20:21:16.659] Searching for globals...
  [20:21:16.660] 
  [20:21:16.661] Searching for globals ... DONE
  [20:21:16.661] - globals: [0] <none>
  [20:21:16.661] getGlobalsAndPackages() ... DONE
  [20:21:16.661] 
  [20:21:16.678] 
  [20:21:16.678]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:16.678] getGlobalsAndPackages() ...
  [20:21:16.679] - globals passed as-is: [1] '...future.x_ii'
  [20:21:16.679] Resolving globals: FALSE
  [20:21:16.680] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:21:16.680] - globals: [1] '...future.x_ii'
  [20:21:16.681] 
  [20:21:16.681] getGlobalsAndPackages() ... DONE
  [20:21:16.682] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:16.682] Packages needed by future strategies (n = 1): 'future'
  [20:21:16.686] {
  [20:21:16.686]     {
  [20:21:16.686]         ...future.startTime <- Sys.time()
  [20:21:16.686]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:16.686]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:16.686]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:16.686]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:16.686]             future.resolve.recursive = NULL, width = 80L)
  [20:21:16.686]         {
  [20:21:16.686]             {
  [20:21:16.686]                 {
  [20:21:16.686]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:16.686]                   version <- if (has_future) 
  [20:21:16.686]                     packageVersion("future")
  [20:21:16.686]                   else NULL
  [20:21:16.686]                   if (!has_future || version < "1.8.0") {
  [20:21:16.686]                     info <- c(r_version = gsub("R version ", 
  [20:21:16.686]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:16.686]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:16.686]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:16.686]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:16.686]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:16.686]                     info <- paste(info, collapse = "; ")
  [20:21:16.686]                     if (!has_future) {
  [20:21:16.686]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:16.686]                         info)
  [20:21:16.686]                     }
  [20:21:16.686]                     else {
  [20:21:16.686]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:16.686]                         info, version)
  [20:21:16.686]                     }
  [20:21:16.686]                     stop(msg)
  [20:21:16.686]                   }
  [20:21:16.686]                 }
  [20:21:16.686]                 local({
  [20:21:16.686]                   for (pkg in c("doFuture", "future")) {
  [20:21:16.686]                     loadNamespace(pkg)
  [20:21:16.686]                     library(pkg, character.only = TRUE)
  [20:21:16.686]                   }
  [20:21:16.686]                 })
  [20:21:16.686]             }
  [20:21:16.686]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:16.686]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.686]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:16.686]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:16.686]                 ...) 
  [20:21:16.686]             {
  [20:21:16.686]                 if (substitute) 
  [20:21:16.686]                   expr <- substitute(expr)
  [20:21:16.686]                 if (is.function(workers)) 
  [20:21:16.686]                   workers <- workers()
  [20:21:16.686]                 workers <- as.integer(workers)
  [20:21:16.686]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:16.686]                   workers >= 1)
  [20:21:16.686]                 if (workers == 1L) {
  [20:21:16.686]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:16.686]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:16.686]                     local = TRUE, label = label, ...))
  [20:21:16.686]                 }
  [20:21:16.686]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:16.686]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:16.686]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.686]                   globals = globals, persistent = persistent, 
  [20:21:16.686]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:16.686]                   label = label, ...)
  [20:21:16.686]                 if (!future$lazy) 
  [20:21:16.686]                   future <- run(future)
  [20:21:16.686]                 invisible(future)
  [20:21:16.686]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.686]         }
  [20:21:16.686]     }
  [20:21:16.686]     if (is.na(TRUE)) {
  [20:21:16.686]     }
  [20:21:16.686]     else {
  [20:21:16.686]         if (TRUE) {
  [20:21:16.686]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:16.686]         }
  [20:21:16.686]         else {
  [20:21:16.686]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:16.686]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:16.686]         }
  [20:21:16.686]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:16.686]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:16.686]             sink(type = "output", split = FALSE)
  [20:21:16.686]             close(...future.stdout)
  [20:21:16.686]         }, add = TRUE)
  [20:21:16.686]     }
  [20:21:16.686]     ...future.frame <- sys.nframe()
  [20:21:16.686]     ...future.conditions <- list()
  [20:21:16.686]     ...future.result <- tryCatch({
  [20:21:16.686]         withCallingHandlers({
  [20:21:16.686]             ...future.value <- withVisible(local({
  [20:21:16.686]                 doFuture::registerDoFuture()
  [20:21:16.686]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.686]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.686]                   {
  [20:21:16.686]                     a <- NULL
  [20:21:16.686]                     b <- NULL
  [20:21:16.686]                   }
  [20:21:16.686]                   ...future.env <- environment()
  [20:21:16.686]                   local({
  [20:21:16.686]                     for (name in names(...future.x_jj)) {
  [20:21:16.686]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.686]                         inherits = FALSE)
  [20:21:16.686]                     }
  [20:21:16.686]                   })
  [20:21:16.686]                   tryCatch({
  [20:21:16.686]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.686]                       plan = future::plan())
  [20:21:16.686]                   }, error = identity)
  [20:21:16.686]                 })
  [20:21:16.686]             }))
  [20:21:16.686]             future::FutureResult(value = ...future.value$value, 
  [20:21:16.686]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:16.686]                 version = "1.8")
  [20:21:16.686]         }, condition = local({
  [20:21:16.686]             inherits <- base::inherits
  [20:21:16.686]             invokeRestart <- base::invokeRestart
  [20:21:16.686]             length <- base::length
  [20:21:16.686]             seq.int <- base::seq.int
  [20:21:16.686]             sys.calls <- base::sys.calls
  [20:21:16.686]             `[[` <- base::`[[`
  [20:21:16.686]             `+` <- base::`+`
  [20:21:16.686]             `<<-` <- base::`<<-`
  [20:21:16.686]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:16.686]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:16.686]                   3L)]
  [20:21:16.686]             }
  [20:21:16.686]             function(cond) {
  [20:21:16.686]                 if (inherits(cond, "error")) {
  [20:21:16.686]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.686]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:16.686]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:16.686]                     signaled = 0L)
  [20:21:16.686]                   signalCondition(cond)
  [20:21:16.686]                 }
  [20:21:16.686]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:16.686]                 ))) {
  [20:21:16.686]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:16.686]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.686]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:16.686]                   if (!signal) {
  [20:21:16.686]                     muffleCondition <- function (cond) 
  [20:21:16.686]                     {
  [20:21:16.686]                       inherits <- base::inherits
  [20:21:16.686]                       invokeRestart <- base::invokeRestart
  [20:21:16.686]                       muffled <- FALSE
  [20:21:16.686]                       if (inherits(cond, "message")) {
  [20:21:16.686]                         invokeRestart("muffleMessage")
  [20:21:16.686]                         muffled <- TRUE
  [20:21:16.686]                       }
  [20:21:16.686]                       else if (inherits(cond, "warning")) {
  [20:21:16.686]                         invokeRestart("muffleWarning")
  [20:21:16.686]                         muffled <- TRUE
  [20:21:16.686]                       }
  [20:21:16.686]                       else if (inherits(cond, "condition")) {
  [20:21:16.686]                         computeRestarts <- base::computeRestarts
  [20:21:16.686]                         grepl <- base::grepl
  [20:21:16.686]                         is.null <- base::is.null
  [20:21:16.686]                         restarts <- computeRestarts(cond)
  [20:21:16.686]                         for (restart in restarts) {
  [20:21:16.686]                           name <- restart$name
  [20:21:16.686]                           if (is.null(name)) 
  [20:21:16.686]                             next
  [20:21:16.686]                           if (!grepl("^muffle", name)) 
  [20:21:16.686]                             next
  [20:21:16.686]                           invokeRestart(restart)
  [20:21:16.686]                           muffled <- TRUE
  [20:21:16.686]                           break
  [20:21:16.686]                         }
  [20:21:16.686]                       }
  [20:21:16.686]                       invisible(muffled)
  [20:21:16.686]                     }
  [20:21:16.686]                     muffleCondition(cond)
  [20:21:16.686]                   }
  [20:21:16.686]                 }
  [20:21:16.686]             }
  [20:21:16.686]         }))
  [20:21:16.686]     }, error = function(ex) {
  [20:21:16.686]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:16.686]             version = "1.8"), class = "FutureResult")
  [20:21:16.686]     }, finally = {
  [20:21:16.686]         {
  [20:21:16.686]             NULL
  [20:21:16.686]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:16.686]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.686]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:16.686]                 label = NULL, ...) 
  [20:21:16.686]             {
  [20:21:16.686]                 if (substitute) 
  [20:21:16.686]                   expr <- substitute(expr)
  [20:21:16.686]                 local <- as.logical(local)
  [20:21:16.686]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.686]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.686]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.686]                   label = label, ...)
  [20:21:16.686]                 if (!future$lazy) 
  [20:21:16.686]                   future <- run(future)
  [20:21:16.686]                 invisible(future)
  [20:21:16.686]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:16.686]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:16.686]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:21:16.686]                 label = NULL, ...) 
  [20:21:16.686]             {
  [20:21:16.686]                 if (substitute) 
  [20:21:16.686]                   expr <- substitute(expr)
  [20:21:16.686]                 if (is.function(workers)) 
  [20:21:16.686]                   workers <- workers()
  [20:21:16.686]                 workers <- as.integer(workers)
  [20:21:16.686]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:16.686]                   workers >= 1)
  [20:21:16.686]                 if (workers == 1L) {
  [20:21:16.686]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:16.686]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:16.686]                     local = TRUE, label = label, ...))
  [20:21:16.686]                 }
  [20:21:16.686]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:16.686]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:16.686]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.686]                   globals = globals, persistent = persistent, 
  [20:21:16.686]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:16.686]                   label = label, ...)
  [20:21:16.686]                 if (!future$lazy) 
  [20:21:16.686]                   future <- run(future)
  [20:21:16.686]                 invisible(future)
  [20:21:16.686]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.686]         }
  [20:21:16.686]         options(...future.oldOptions)
  [20:21:16.686]     })
  [20:21:16.686]     if (is.na(TRUE)) {
  [20:21:16.686]     }
  [20:21:16.686]     else {
  [20:21:16.686]         sink(type = "output", split = FALSE)
  [20:21:16.686]         if (TRUE) {
  [20:21:16.686]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:16.686]         }
  [20:21:16.686]         else {
  [20:21:16.686]             ...future.result["stdout"] <- list(NULL)
  [20:21:16.686]         }
  [20:21:16.686]         close(...future.stdout)
  [20:21:16.686]         ...future.stdout <- NULL
  [20:21:16.686]     }
  [20:21:16.686]     ...future.result$conditions <- ...future.conditions
  [20:21:16.686]     ...future.result
  [20:21:16.686] }
  [20:21:16.691] plan(): Setting new future strategy stack:
  [20:21:16.691] List of future strategies:
  [20:21:16.691] 1. multisession:
  [20:21:16.691]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.691]    - tweaked: FALSE
  [20:21:16.691]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.693] plan(): nbrOfWorkers() = 2
  [20:21:16.710] plan(): Setting new future strategy stack:
  [20:21:16.711] List of future strategies:
  [20:21:16.711] 1. sequential:
  [20:21:16.711]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.711]    - tweaked: FALSE
  [20:21:16.711]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.711] 2. multisession:
  [20:21:16.711]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.711]    - tweaked: FALSE
  [20:21:16.711]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.712] plan(): nbrOfWorkers() = 1
  [20:21:16.712] SequentialFuture started (and completed)
  [20:21:16.713] Chunk #1 of 1 ... DONE
  [20:21:16.713] Launching 1 futures (chunks) ... DONE
  [20:21:16.713] - resolving futures
  [20:21:16.714]   - gathering results & relaying conditions (except errors)
  [20:21:16.714] resolve() on list ...
  [20:21:16.714]  recursive: 0
  [20:21:16.714]  length: 1
  [20:21:16.715] 
  [20:21:16.715] Future #1
  [20:21:16.715] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:16.715] - nx: 1
  [20:21:16.716] - relay: TRUE
  [20:21:16.716] - stdout: TRUE
  [20:21:16.716] - signal: TRUE
  [20:21:16.716] - resignal: FALSE
  [20:21:16.717] - force: FALSE
  [20:21:16.717] - relayed: [n=1] FALSE
  [20:21:16.717] - queued futures: [n=1] FALSE
  [20:21:16.717]  - until=1
  [20:21:16.718]  - relaying element #1
  [20:21:16.718] - relayed: [n=1] TRUE
  [20:21:16.718] - queued futures: [n=1] TRUE
  [20:21:16.719] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:16.719]  length: 0 (resolved future 1)
  [20:21:16.722] Relaying remaining futures
  [20:21:16.722] signalConditionsASAP(NULL, pos=0) ...
  [20:21:16.722] - nx: 1
  [20:21:16.722] - relay: TRUE
  [20:21:16.723] - stdout: TRUE
  [20:21:16.723] - signal: TRUE
  [20:21:16.723] - resignal: FALSE
  [20:21:16.723] - force: FALSE
  [20:21:16.724] - relayed: [n=1] TRUE
  [20:21:16.724] - queued futures: [n=1] TRUE
   - flush all
  [20:21:16.724] - relayed: [n=1] TRUE
  [20:21:16.724] - queued futures: [n=1] TRUE
  [20:21:16.725] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:16.725] resolve() on list ... DONE
  [20:21:16.725] - collecting values of futures
  [20:21:16.742] - accumulating results
  [20:21:16.744] - processing errors (handler = 'stop')
  [20:21:16.744] - extracting results
  [20:21:16.744] doFuture() ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [20:21:16.745] plan(): Setting new future strategy stack:
  [20:21:16.746] List of future strategies:
  [20:21:16.746] 1. sequential:
  [20:21:16.746]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.746]    - tweaked: FALSE
  [20:21:16.746]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.746] 2. cluster:
  [20:21:16.746]    - 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, ...)
  [20:21:16.746]    - tweaked: FALSE
  [20:21:16.746]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.747] plan(): nbrOfWorkers() = 1
  [20:21:16.747] doFuture() ...
  [20:21:16.751] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:16.752] - R expression:
  [20:21:16.752] {
  [20:21:16.752]     doFuture::registerDoFuture()
  [20:21:16.752]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.752]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.752]         {
  [20:21:16.752]             a <- NULL
  [20:21:16.752]             b <- NULL
  [20:21:16.752]         }
  [20:21:16.752]         ...future.env <- environment()
  [20:21:16.752]         local({
  [20:21:16.752]             for (name in names(...future.x_jj)) {
  [20:21:16.752]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.752]                   inherits = FALSE)
  [20:21:16.752]             }
  [20:21:16.752]         })
  [20:21:16.752]         tryCatch({
  [20:21:16.752]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.752]                 plan = future::plan())
  [20:21:16.752]         }, error = identity)
  [20:21:16.752]     })
  [20:21:16.752] }
  [20:21:16.753] - identifying globals and packages ...
  [20:21:16.753] getGlobalsAndPackages() ...
  [20:21:16.753] Searching for globals...
  [20:21:16.782] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:16.782] Searching for globals ... DONE
  [20:21:16.783] Resolving globals: FALSE
  [20:21:16.784] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:16.784] - globals: [1] '...future.x_ii'
  [20:21:16.785] 
  [20:21:16.785] getGlobalsAndPackages() ... DONE
  [20:21:16.785] List of 1
  [20:21:16.785]  $ ...future.x_ii: NULL
  [20:21:16.785]  - attr(*, "where")=List of 1
  [20:21:16.785]   ..$ ...future.x_ii:<environment: 0x5651986c4f00> 
  [20:21:16.785]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.785]  - attr(*, "resolved")= logi FALSE
  [20:21:16.785]  - attr(*, "total_size")= num 0
  [20:21:16.808]   - R expression:
  [20:21:16.808] {
  [20:21:16.808]     doFuture::registerDoFuture()
  [20:21:16.808]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.808]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.808]         {
  [20:21:16.808]             a <- NULL
  [20:21:16.808]             b <- NULL
  [20:21:16.808]         }
  [20:21:16.808]         ...future.env <- environment()
  [20:21:16.808]         local({
  [20:21:16.808]             for (name in names(...future.x_jj)) {
  [20:21:16.808]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.808]                   inherits = FALSE)
  [20:21:16.808]             }
  [20:21:16.808]         })
  [20:21:16.808]         tryCatch({
  [20:21:16.808]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.808]                 plan = future::plan())
  [20:21:16.808]         }, error = identity)
  [20:21:16.808]     })
  [20:21:16.808] }
  [20:21:16.809]   - globals: [1] '...future.x_ii'
  [20:21:16.809] List of 1
  [20:21:16.809]  $ ...future.x_ii: NULL
  [20:21:16.809]  - attr(*, "where")=List of 1
  [20:21:16.809]   ..$ ...future.x_ii:<environment: 0x5651986c4f00> 
  [20:21:16.809]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.809]  - attr(*, "resolved")= logi FALSE
  [20:21:16.809]  - attr(*, "total_size")= num 0
  [20:21:16.815]   - packages: [1] 'doFuture'
  [20:21:16.816] - identifying globals and packages ... DONE
  [20:21:16.816] Number of chunks: 1
  [20:21:16.816] Number of futures (= number of chunks): 1
  [20:21:16.816] Launching 1 futures (chunks) ...
  [20:21:16.817] Chunk #1 of 1 ...
  [20:21:16.817]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:16.817] getGlobalsAndPackages() ...
  [20:21:16.817] Searching for globals...
  [20:21:16.835] 
  [20:21:16.835] Searching for globals ... DONE
  [20:21:16.835] - globals: [0] <none>
  [20:21:16.835] getGlobalsAndPackages() ... DONE
  [20:21:16.836] 
  [20:21:16.836] 
  [20:21:16.836]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:16.836] getGlobalsAndPackages() ...
  [20:21:16.837] - globals passed as-is: [1] '...future.x_ii'
  [20:21:16.837] Resolving globals: FALSE
  [20:21:16.838] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:21:16.838] - globals: [1] '...future.x_ii'
  [20:21:16.839] 
  [20:21:16.839] getGlobalsAndPackages() ... DONE
  [20:21:16.843] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:16.844] Packages needed by future strategies (n = 1): 'future'
  [20:21:16.847] {
  [20:21:16.847]     {
  [20:21:16.847]         ...future.startTime <- Sys.time()
  [20:21:16.847]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:16.847]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:16.847]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:16.847]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:16.847]             future.resolve.recursive = NULL, width = 80L)
  [20:21:16.847]         {
  [20:21:16.847]             {
  [20:21:16.847]                 {
  [20:21:16.847]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:16.847]                   version <- if (has_future) 
  [20:21:16.847]                     packageVersion("future")
  [20:21:16.847]                   else NULL
  [20:21:16.847]                   if (!has_future || version < "1.8.0") {
  [20:21:16.847]                     info <- c(r_version = gsub("R version ", 
  [20:21:16.847]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:16.847]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:16.847]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:16.847]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:16.847]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:16.847]                     info <- paste(info, collapse = "; ")
  [20:21:16.847]                     if (!has_future) {
  [20:21:16.847]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:16.847]                         info)
  [20:21:16.847]                     }
  [20:21:16.847]                     else {
  [20:21:16.847]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:16.847]                         info, version)
  [20:21:16.847]                     }
  [20:21:16.847]                     stop(msg)
  [20:21:16.847]                   }
  [20:21:16.847]                 }
  [20:21:16.847]                 local({
  [20:21:16.847]                   for (pkg in c("doFuture", "future")) {
  [20:21:16.847]                     loadNamespace(pkg)
  [20:21:16.847]                     library(pkg, character.only = TRUE)
  [20:21:16.847]                   }
  [20:21:16.847]                 })
  [20:21:16.847]             }
  [20:21:16.847]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:16.847]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.847]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:21:16.847]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:21:16.847]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:16.847]                 ...) 
  [20:21:16.847]             {
  [20:21:16.847]                 if (substitute) 
  [20:21:16.847]                   expr <- substitute(expr)
  [20:21:16.847]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:16.847]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.847]                   globals = globals, persistent = persistent, 
  [20:21:16.847]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:16.847]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:16.847]                   label = label, ...)
  [20:21:16.847]                 if (!future$lazy) 
  [20:21:16.847]                   future <- run(future)
  [20:21:16.847]                 invisible(future)
  [20:21:16.847]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.847]         }
  [20:21:16.847]     }
  [20:21:16.847]     if (is.na(TRUE)) {
  [20:21:16.847]     }
  [20:21:16.847]     else {
  [20:21:16.847]         if (TRUE) {
  [20:21:16.847]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:16.847]         }
  [20:21:16.847]         else {
  [20:21:16.847]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:16.847]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:16.847]         }
  [20:21:16.847]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:16.847]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:16.847]             sink(type = "output", split = FALSE)
  [20:21:16.847]             close(...future.stdout)
  [20:21:16.847]         }, add = TRUE)
  [20:21:16.847]     }
  [20:21:16.847]     ...future.frame <- sys.nframe()
  [20:21:16.847]     ...future.conditions <- list()
  [20:21:16.847]     ...future.result <- tryCatch({
  [20:21:16.847]         withCallingHandlers({
  [20:21:16.847]             ...future.value <- withVisible(local({
  [20:21:16.847]                 doFuture::registerDoFuture()
  [20:21:16.847]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.847]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.847]                   {
  [20:21:16.847]                     a <- NULL
  [20:21:16.847]                     b <- NULL
  [20:21:16.847]                   }
  [20:21:16.847]                   ...future.env <- environment()
  [20:21:16.847]                   local({
  [20:21:16.847]                     for (name in names(...future.x_jj)) {
  [20:21:16.847]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.847]                         inherits = FALSE)
  [20:21:16.847]                     }
  [20:21:16.847]                   })
  [20:21:16.847]                   tryCatch({
  [20:21:16.847]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.847]                       plan = future::plan())
  [20:21:16.847]                   }, error = identity)
  [20:21:16.847]                 })
  [20:21:16.847]             }))
  [20:21:16.847]             future::FutureResult(value = ...future.value$value, 
  [20:21:16.847]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:16.847]                 version = "1.8")
  [20:21:16.847]         }, condition = local({
  [20:21:16.847]             inherits <- base::inherits
  [20:21:16.847]             invokeRestart <- base::invokeRestart
  [20:21:16.847]             length <- base::length
  [20:21:16.847]             seq.int <- base::seq.int
  [20:21:16.847]             sys.calls <- base::sys.calls
  [20:21:16.847]             `[[` <- base::`[[`
  [20:21:16.847]             `+` <- base::`+`
  [20:21:16.847]             `<<-` <- base::`<<-`
  [20:21:16.847]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:16.847]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:16.847]                   3L)]
  [20:21:16.847]             }
  [20:21:16.847]             function(cond) {
  [20:21:16.847]                 if (inherits(cond, "error")) {
  [20:21:16.847]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.847]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:16.847]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:16.847]                     signaled = 0L)
  [20:21:16.847]                   signalCondition(cond)
  [20:21:16.847]                 }
  [20:21:16.847]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:16.847]                 ))) {
  [20:21:16.847]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:16.847]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:16.847]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:16.847]                   if (!signal) {
  [20:21:16.847]                     muffleCondition <- function (cond) 
  [20:21:16.847]                     {
  [20:21:16.847]                       inherits <- base::inherits
  [20:21:16.847]                       invokeRestart <- base::invokeRestart
  [20:21:16.847]                       muffled <- FALSE
  [20:21:16.847]                       if (inherits(cond, "message")) {
  [20:21:16.847]                         invokeRestart("muffleMessage")
  [20:21:16.847]                         muffled <- TRUE
  [20:21:16.847]                       }
  [20:21:16.847]                       else if (inherits(cond, "warning")) {
  [20:21:16.847]                         invokeRestart("muffleWarning")
  [20:21:16.847]                         muffled <- TRUE
  [20:21:16.847]                       }
  [20:21:16.847]                       else if (inherits(cond, "condition")) {
  [20:21:16.847]                         computeRestarts <- base::computeRestarts
  [20:21:16.847]                         grepl <- base::grepl
  [20:21:16.847]                         is.null <- base::is.null
  [20:21:16.847]                         restarts <- computeRestarts(cond)
  [20:21:16.847]                         for (restart in restarts) {
  [20:21:16.847]                           name <- restart$name
  [20:21:16.847]                           if (is.null(name)) 
  [20:21:16.847]                             next
  [20:21:16.847]                           if (!grepl("^muffle", name)) 
  [20:21:16.847]                             next
  [20:21:16.847]                           invokeRestart(restart)
  [20:21:16.847]                           muffled <- TRUE
  [20:21:16.847]                           break
  [20:21:16.847]                         }
  [20:21:16.847]                       }
  [20:21:16.847]                       invisible(muffled)
  [20:21:16.847]                     }
  [20:21:16.847]                     muffleCondition(cond)
  [20:21:16.847]                   }
  [20:21:16.847]                 }
  [20:21:16.847]             }
  [20:21:16.847]         }))
  [20:21:16.847]     }, error = function(ex) {
  [20:21:16.847]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:16.847]             version = "1.8"), class = "FutureResult")
  [20:21:16.847]     }, finally = {
  [20:21:16.847]         {
  [20:21:16.847]             NULL
  [20:21:16.847]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:16.847]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:16.847]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:16.847]                 label = NULL, ...) 
  [20:21:16.847]             {
  [20:21:16.847]                 if (substitute) 
  [20:21:16.847]                   expr <- substitute(expr)
  [20:21:16.847]                 local <- as.logical(local)
  [20:21:16.847]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:16.847]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.847]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:16.847]                   label = label, ...)
  [20:21:16.847]                 if (!future$lazy) 
  [20:21:16.847]                   future <- run(future)
  [20:21:16.847]                 invisible(future)
  [20:21:16.847]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:16.847]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:16.847]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:21:16.847]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:21:16.847]                 label = NULL, ...) 
  [20:21:16.847]             {
  [20:21:16.847]                 if (substitute) 
  [20:21:16.847]                   expr <- substitute(expr)
  [20:21:16.847]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:16.847]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:16.847]                   globals = globals, persistent = persistent, 
  [20:21:16.847]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:16.847]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:16.847]                   label = label, ...)
  [20:21:16.847]                 if (!future$lazy) 
  [20:21:16.847]                   future <- run(future)
  [20:21:16.847]                 invisible(future)
  [20:21:16.847]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:16.847]         }
  [20:21:16.847]         options(...future.oldOptions)
  [20:21:16.847]     })
  [20:21:16.847]     if (is.na(TRUE)) {
  [20:21:16.847]     }
  [20:21:16.847]     else {
  [20:21:16.847]         sink(type = "output", split = FALSE)
  [20:21:16.847]         if (TRUE) {
  [20:21:16.847]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:16.847]         }
  [20:21:16.847]         else {
  [20:21:16.847]             ...future.result["stdout"] <- list(NULL)
  [20:21:16.847]         }
  [20:21:16.847]         close(...future.stdout)
  [20:21:16.847]         ...future.stdout <- NULL
  [20:21:16.847]     }
  [20:21:16.847]     ...future.result$conditions <- ...future.conditions
  [20:21:16.847]     ...future.result
  [20:21:16.847] }
  [20:21:16.852] plan(): Setting new future strategy stack:
  [20:21:16.853] List of future strategies:
  [20:21:16.853] 1. cluster:
  [20:21:16.853]    - 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, ...)
  [20:21:16.853]    - tweaked: FALSE
  [20:21:16.853]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.871] plan(): nbrOfWorkers() = 2
  [20:21:16.873] plan(): Setting new future strategy stack:
  [20:21:16.873] List of future strategies:
  [20:21:16.873] 1. sequential:
  [20:21:16.873]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.873]    - tweaked: FALSE
  [20:21:16.873]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.873] 2. cluster:
  [20:21:16.873]    - 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, ...)
  [20:21:16.873]    - tweaked: FALSE
  [20:21:16.873]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.874] plan(): nbrOfWorkers() = 1
  [20:21:16.875] SequentialFuture started (and completed)
  [20:21:16.875] Chunk #1 of 1 ... DONE
  [20:21:16.875] Launching 1 futures (chunks) ... DONE
  [20:21:16.876] - resolving futures
  [20:21:16.876]   - gathering results & relaying conditions (except errors)
  [20:21:16.876] resolve() on list ...
  [20:21:16.876]  recursive: 0
  [20:21:16.876]  length: 1
  [20:21:16.877] 
  [20:21:16.877] Future #1
  [20:21:16.877] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:16.877] - nx: 1
  [20:21:16.878] - relay: TRUE
  [20:21:16.878] - stdout: TRUE
  [20:21:16.878] - signal: TRUE
  [20:21:16.878] - resignal: FALSE
  [20:21:16.879] - force: FALSE
  [20:21:16.879] - relayed: [n=1] FALSE
  [20:21:16.879] - queued futures: [n=1] FALSE
  [20:21:16.879]  - until=1
  [20:21:16.879]  - relaying element #1
  [20:21:16.880] - relayed: [n=1] TRUE
  [20:21:16.880] - queued futures: [n=1] TRUE
  [20:21:16.880] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:16.881]  length: 0 (resolved future 1)
  [20:21:16.881] Relaying remaining futures
  [20:21:16.881] signalConditionsASAP(NULL, pos=0) ...
  [20:21:16.881] - nx: 1
  [20:21:16.882] - relay: TRUE
  [20:21:16.882] - stdout: TRUE
  [20:21:16.882] - signal: TRUE
  [20:21:16.882] - resignal: FALSE
  [20:21:16.883] - force: FALSE
  [20:21:16.883] - relayed: [n=1] TRUE
  [20:21:16.883] - queued futures: [n=1] TRUE
   - flush all
  [20:21:16.883] - relayed: [n=1] TRUE
  [20:21:16.884] - queued futures: [n=1] TRUE
  [20:21:16.884] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:16.884] resolve() on list ... DONE
  [20:21:16.885] - collecting values of futures
  [20:21:16.885] - accumulating results
  [20:21:16.903] - processing errors (handler = 'stop')
  [20:21:16.904] - extracting results
  [20:21:16.904] doFuture() ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [20:21:16.905] plan(): Setting new future strategy stack:
  [20:21:16.905] List of future strategies:
  [20:21:16.905] 1. multicore:
  [20:21:16.905]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:16.905]    - tweaked: FALSE
  [20:21:16.905]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.905] 2. sequential:
  [20:21:16.905]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:16.905]    - tweaked: FALSE
  [20:21:16.905]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:16.907] plan(): nbrOfWorkers() = 2
  [20:21:16.907] doFuture() ...
  [20:21:16.911] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:16.912] - R expression:
  [20:21:16.912] {
  [20:21:16.912]     doFuture::registerDoFuture()
  [20:21:16.912]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.912]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.912]         {
  [20:21:16.912]             a <- NULL
  [20:21:16.912]             b <- NULL
  [20:21:16.912]         }
  [20:21:16.912]         ...future.env <- environment()
  [20:21:16.912]         local({
  [20:21:16.912]             for (name in names(...future.x_jj)) {
  [20:21:16.912]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.912]                   inherits = FALSE)
  [20:21:16.912]             }
  [20:21:16.912]         })
  [20:21:16.912]         tryCatch({
  [20:21:16.912]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.912]                 plan = future::plan())
  [20:21:16.912]         }, error = identity)
  [20:21:16.912]     })
  [20:21:16.912] }
  [20:21:16.913] - identifying globals and packages ...
  [20:21:16.913] getGlobalsAndPackages() ...
  [20:21:16.914] Searching for globals...
  [20:21:16.943] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:16.944] Searching for globals ... DONE
  [20:21:16.944] Resolving globals: FALSE
  [20:21:16.945] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:16.945] - globals: [1] '...future.x_ii'
  [20:21:16.946] 
  [20:21:16.946] getGlobalsAndPackages() ... DONE
  [20:21:16.946] List of 1
  [20:21:16.946]  $ ...future.x_ii: NULL
  [20:21:16.946]  - attr(*, "where")=List of 1
  [20:21:16.946]   ..$ ...future.x_ii:<environment: 0x565199361b08> 
  [20:21:16.946]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.946]  - attr(*, "resolved")= logi FALSE
  [20:21:16.946]  - attr(*, "total_size")= num 0
  [20:21:16.972]   - R expression:
  [20:21:16.972] {
  [20:21:16.972]     doFuture::registerDoFuture()
  [20:21:16.972]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:16.972]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:16.972]         {
  [20:21:16.972]             a <- NULL
  [20:21:16.972]             b <- NULL
  [20:21:16.972]         }
  [20:21:16.972]         ...future.env <- environment()
  [20:21:16.972]         local({
  [20:21:16.972]             for (name in names(...future.x_jj)) {
  [20:21:16.972]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:16.972]                   inherits = FALSE)
  [20:21:16.972]             }
  [20:21:16.972]         })
  [20:21:16.972]         tryCatch({
  [20:21:16.972]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:16.972]                 plan = future::plan())
  [20:21:16.972]         }, error = identity)
  [20:21:16.972]     })
  [20:21:16.972] }
  [20:21:16.973]   - globals: [1] '...future.x_ii'
  [20:21:16.973] List of 1
  [20:21:16.973]  $ ...future.x_ii: NULL
  [20:21:16.973]  - attr(*, "where")=List of 1
  [20:21:16.973]   ..$ ...future.x_ii:<environment: 0x565199361b08> 
  [20:21:16.973]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:16.973]  - attr(*, "resolved")= logi FALSE
  [20:21:16.973]  - attr(*, "total_size")= num 0
  [20:21:16.978]   - packages: [1] 'doFuture'
  [20:21:16.979] - identifying globals and packages ... DONE
  [20:21:16.998] Number of chunks: 2
  [20:21:16.998] Number of futures (= number of chunks): 2
  [20:21:16.999] Launching 2 futures (chunks) ...
  [20:21:16.999] Chunk #1 of 2 ...
  [20:21:16.999]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:16.999] getGlobalsAndPackages() ...
  [20:21:17.000] Searching for globals...
  [20:21:17.000] 
  [20:21:17.001] Searching for globals ... DONE
  [20:21:17.001] - globals: [0] <none>
  [20:21:17.001] getGlobalsAndPackages() ... DONE
  [20:21:17.001] 
  [20:21:17.002] 
  [20:21:17.002]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:17.003] getGlobalsAndPackages() ...
  [20:21:17.003] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.003] Resolving globals: FALSE
  [20:21:17.004] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.005] - globals: [1] '...future.x_ii'
  [20:21:17.005] 
  [20:21:17.005] getGlobalsAndPackages() ... DONE
  [20:21:17.007] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.008] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.011] {
  [20:21:17.011]     {
  [20:21:17.011]         ...future.startTime <- Sys.time()
  [20:21:17.011]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.011]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.011]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.011]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.011]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.011]         {
  [20:21:17.011]             {
  [20:21:17.011]                 {
  [20:21:17.011]                   {
  [20:21:17.011]                     has_future <- requireNamespace("future", 
  [20:21:17.011]                       quietly = TRUE)
  [20:21:17.011]                     version <- if (has_future) 
  [20:21:17.011]                       packageVersion("future")
  [20:21:17.011]                     else NULL
  [20:21:17.011]                     if (!has_future || version < "1.8.0") {
  [20:21:17.011]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.011]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.011]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.011]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.011]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.011]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.011]                         info)
  [20:21:17.011]                       info <- paste(info, collapse = "; ")
  [20:21:17.011]                       if (!has_future) {
  [20:21:17.011]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.011]                           info)
  [20:21:17.011]                       }
  [20:21:17.011]                       else {
  [20:21:17.011]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.011]                           info, version)
  [20:21:17.011]                       }
  [20:21:17.011]                       stop(msg)
  [20:21:17.011]                     }
  [20:21:17.011]                   }
  [20:21:17.011]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.011]                   options(mc.cores = 1L)
  [20:21:17.011]                 }
  [20:21:17.011]                 local({
  [20:21:17.011]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.011]                     loadNamespace(pkg)
  [20:21:17.011]                     library(pkg, character.only = TRUE)
  [20:21:17.011]                   }
  [20:21:17.011]                 })
  [20:21:17.011]             }
  [20:21:17.011]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.011]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.011]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:17.011]                 label = NULL, ...) 
  [20:21:17.011]             {
  [20:21:17.011]                 if (substitute) 
  [20:21:17.011]                   expr <- substitute(expr)
  [20:21:17.011]                 local <- as.logical(local)
  [20:21:17.011]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:17.011]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.011]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:17.011]                   label = label, ...)
  [20:21:17.011]                 if (!future$lazy) 
  [20:21:17.011]                   future <- run(future)
  [20:21:17.011]                 invisible(future)
  [20:21:17.011]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.011]         }
  [20:21:17.011]     }
  [20:21:17.011]     if (is.na(TRUE)) {
  [20:21:17.011]     }
  [20:21:17.011]     else {
  [20:21:17.011]         if (TRUE) {
  [20:21:17.011]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.011]         }
  [20:21:17.011]         else {
  [20:21:17.011]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.011]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.011]         }
  [20:21:17.011]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.011]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.011]             sink(type = "output", split = FALSE)
  [20:21:17.011]             close(...future.stdout)
  [20:21:17.011]         }, add = TRUE)
  [20:21:17.011]     }
  [20:21:17.011]     ...future.frame <- sys.nframe()
  [20:21:17.011]     ...future.conditions <- list()
  [20:21:17.011]     ...future.result <- tryCatch({
  [20:21:17.011]         withCallingHandlers({
  [20:21:17.011]             ...future.value <- withVisible(local({
  [20:21:17.011]                 doFuture::registerDoFuture()
  [20:21:17.011]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.011]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.011]                   {
  [20:21:17.011]                     a <- NULL
  [20:21:17.011]                     b <- NULL
  [20:21:17.011]                   }
  [20:21:17.011]                   ...future.env <- environment()
  [20:21:17.011]                   local({
  [20:21:17.011]                     for (name in names(...future.x_jj)) {
  [20:21:17.011]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.011]                         inherits = FALSE)
  [20:21:17.011]                     }
  [20:21:17.011]                   })
  [20:21:17.011]                   tryCatch({
  [20:21:17.011]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.011]                       plan = future::plan())
  [20:21:17.011]                   }, error = identity)
  [20:21:17.011]                 })
  [20:21:17.011]             }))
  [20:21:17.011]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.011]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.011]                 version = "1.8")
  [20:21:17.011]         }, condition = local({
  [20:21:17.011]             inherits <- base::inherits
  [20:21:17.011]             invokeRestart <- base::invokeRestart
  [20:21:17.011]             length <- base::length
  [20:21:17.011]             seq.int <- base::seq.int
  [20:21:17.011]             sys.calls <- base::sys.calls
  [20:21:17.011]             `[[` <- base::`[[`
  [20:21:17.011]             `+` <- base::`+`
  [20:21:17.011]             `<<-` <- base::`<<-`
  [20:21:17.011]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.011]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.011]                   3L)]
  [20:21:17.011]             }
  [20:21:17.011]             function(cond) {
  [20:21:17.011]                 if (inherits(cond, "error")) {
  [20:21:17.011]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.011]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.011]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.011]                     signaled = 0L)
  [20:21:17.011]                   signalCondition(cond)
  [20:21:17.011]                 }
  [20:21:17.011]                 else if (inherits(cond, "condition")) {
  [20:21:17.011]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.011]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.011]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.011]                   if (!signal) {
  [20:21:17.011]                     muffleCondition <- function (cond) 
  [20:21:17.011]                     {
  [20:21:17.011]                       inherits <- base::inherits
  [20:21:17.011]                       invokeRestart <- base::invokeRestart
  [20:21:17.011]                       muffled <- FALSE
  [20:21:17.011]                       if (inherits(cond, "message")) {
  [20:21:17.011]                         invokeRestart("muffleMessage")
  [20:21:17.011]                         muffled <- TRUE
  [20:21:17.011]                       }
  [20:21:17.011]                       else if (inherits(cond, "warning")) {
  [20:21:17.011]                         invokeRestart("muffleWarning")
  [20:21:17.011]                         muffled <- TRUE
  [20:21:17.011]                       }
  [20:21:17.011]                       else if (inherits(cond, "condition")) {
  [20:21:17.011]                         computeRestarts <- base::computeRestarts
  [20:21:17.011]                         grepl <- base::grepl
  [20:21:17.011]                         is.null <- base::is.null
  [20:21:17.011]                         restarts <- computeRestarts(cond)
  [20:21:17.011]                         for (restart in restarts) {
  [20:21:17.011]                           name <- restart$name
  [20:21:17.011]                           if (is.null(name)) 
  [20:21:17.011]                             next
  [20:21:17.011]                           if (!grepl("^muffle", name)) 
  [20:21:17.011]                             next
  [20:21:17.011]                           invokeRestart(restart)
  [20:21:17.011]                           muffled <- TRUE
  [20:21:17.011]                           break
  [20:21:17.011]                         }
  [20:21:17.011]                       }
  [20:21:17.011]                       invisible(muffled)
  [20:21:17.011]                     }
  [20:21:17.011]                     muffleCondition(cond)
  [20:21:17.011]                   }
  [20:21:17.011]                 }
  [20:21:17.011]             }
  [20:21:17.011]         }))
  [20:21:17.011]     }, error = function(ex) {
  [20:21:17.011]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.011]             version = "1.8"), class = "FutureResult")
  [20:21:17.011]     }, finally = {
  [20:21:17.011]         {
  [20:21:17.011]             {
  [20:21:17.011]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.011]             }
  [20:21:17.011]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.011]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.011]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.011]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.011]             {
  [20:21:17.011]                 if (substitute) 
  [20:21:17.011]                   expr <- substitute(expr)
  [20:21:17.011]                 if (is.function(workers)) 
  [20:21:17.011]                   workers <- workers()
  [20:21:17.011]                 workers <- as.integer(workers)
  [20:21:17.011]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.011]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.011]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.011]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.011]                     local = TRUE, label = label, ...))
  [20:21:17.011]                 }
  [20:21:17.011]                 oopts <- options(mc.cores = workers)
  [20:21:17.011]                 on.exit(options(oopts))
  [20:21:17.011]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.011]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.011]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.011]                   label = label, ...)
  [20:21:17.011]                 if (!future$lazy) 
  [20:21:17.011]                   future <- run(future)
  [20:21:17.011]                 invisible(future)
  [20:21:17.011]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.011]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:17.011]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.011]             {
  [20:21:17.011]                 if (substitute) 
  [20:21:17.011]                   expr <- substitute(expr)
  [20:21:17.011]                 local <- as.logical(local)
  [20:21:17.011]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:17.011]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.011]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:17.011]                   label = label, ...)
  [20:21:17.011]                 if (!future$lazy) 
  [20:21:17.011]                   future <- run(future)
  [20:21:17.011]                 invisible(future)
  [20:21:17.011]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.011]         }
  [20:21:17.011]         options(...future.oldOptions)
  [20:21:17.011]     })
  [20:21:17.011]     if (is.na(TRUE)) {
  [20:21:17.011]     }
  [20:21:17.011]     else {
  [20:21:17.011]         sink(type = "output", split = FALSE)
  [20:21:17.011]         if (TRUE) {
  [20:21:17.011]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.011]         }
  [20:21:17.011]         else {
  [20:21:17.011]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.011]         }
  [20:21:17.011]         close(...future.stdout)
  [20:21:17.011]         ...future.stdout <- NULL
  [20:21:17.011]     }
  [20:21:17.011]     ...future.result$conditions <- ...future.conditions
  [20:21:17.011]     ...future.result
  [20:21:17.011] }
  [20:21:17.031] requestCore(): workers = 2
  [20:21:17.036] MulticoreFuture started
  [20:21:17.038] Chunk #1 of 2 ... DONE
  [20:21:17.038] Chunk #2 of 2 ...
  [20:21:17.038]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:17.039] getGlobalsAndPackages() ...
  [20:21:17.039] Searching for globals...
  [20:21:17.040] 
  [20:21:17.041] Searching for globals ... DONE
  [20:21:17.041] - globals: [0] <none>
  [20:21:17.041] getGlobalsAndPackages() ... DONE
  [20:21:17.041] 
  [20:21:17.042] 
  [20:21:17.042]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:17.044] getGlobalsAndPackages() ...
  [20:21:17.044] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.045] Resolving globals: FALSE
  [20:21:17.050] plan(): Setting new future strategy stack:
  [20:21:17.051] List of future strategies:
  [20:21:17.051] 1. sequential:
  [20:21:17.051]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.051]    - tweaked: FALSE
  [20:21:17.051]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.052] plan(): nbrOfWorkers() = 1
  [20:21:17.054] plan(): Setting new future strategy stack:
  [20:21:17.055] List of future strategies:
  [20:21:17.055] 1. multicore:
  [20:21:17.055]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.055]    - tweaked: FALSE
  [20:21:17.055]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.055] 2. sequential:
  [20:21:17.055]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.055]    - tweaked: FALSE
  [20:21:17.055]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.057] plan(): nbrOfWorkers() = 2
  [20:21:17.062] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.063] - globals: [1] '...future.x_ii'
  [20:21:17.063] 
  [20:21:17.063] getGlobalsAndPackages() ... DONE
  [20:21:17.066] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.066] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.071] {
  [20:21:17.071]     {
  [20:21:17.071]         ...future.startTime <- Sys.time()
  [20:21:17.071]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.071]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.071]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.071]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.071]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.071]         {
  [20:21:17.071]             {
  [20:21:17.071]                 {
  [20:21:17.071]                   {
  [20:21:17.071]                     has_future <- requireNamespace("future", 
  [20:21:17.071]                       quietly = TRUE)
  [20:21:17.071]                     version <- if (has_future) 
  [20:21:17.071]                       packageVersion("future")
  [20:21:17.071]                     else NULL
  [20:21:17.071]                     if (!has_future || version < "1.8.0") {
  [20:21:17.071]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.071]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.071]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.071]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.071]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.071]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.071]                         info)
  [20:21:17.071]                       info <- paste(info, collapse = "; ")
  [20:21:17.071]                       if (!has_future) {
  [20:21:17.071]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.071]                           info)
  [20:21:17.071]                       }
  [20:21:17.071]                       else {
  [20:21:17.071]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.071]                           info, version)
  [20:21:17.071]                       }
  [20:21:17.071]                       stop(msg)
  [20:21:17.071]                     }
  [20:21:17.071]                   }
  [20:21:17.071]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.071]                   options(mc.cores = 1L)
  [20:21:17.071]                 }
  [20:21:17.071]                 local({
  [20:21:17.071]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.071]                     loadNamespace(pkg)
  [20:21:17.071]                     library(pkg, character.only = TRUE)
  [20:21:17.071]                   }
  [20:21:17.071]                 })
  [20:21:17.071]             }
  [20:21:17.071]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.071]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.071]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:17.071]                 label = NULL, ...) 
  [20:21:17.071]             {
  [20:21:17.071]                 if (substitute) 
  [20:21:17.071]                   expr <- substitute(expr)
  [20:21:17.071]                 local <- as.logical(local)
  [20:21:17.071]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:17.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.071]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:17.071]                   label = label, ...)
  [20:21:17.071]                 if (!future$lazy) 
  [20:21:17.071]                   future <- run(future)
  [20:21:17.071]                 invisible(future)
  [20:21:17.071]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.071]         }
  [20:21:17.071]     }
  [20:21:17.071]     if (is.na(TRUE)) {
  [20:21:17.071]     }
  [20:21:17.071]     else {
  [20:21:17.071]         if (TRUE) {
  [20:21:17.071]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.071]         }
  [20:21:17.071]         else {
  [20:21:17.071]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.071]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.071]         }
  [20:21:17.071]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.071]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.071]             sink(type = "output", split = FALSE)
  [20:21:17.071]             close(...future.stdout)
  [20:21:17.071]         }, add = TRUE)
  [20:21:17.071]     }
  [20:21:17.071]     ...future.frame <- sys.nframe()
  [20:21:17.071]     ...future.conditions <- list()
  [20:21:17.071]     ...future.result <- tryCatch({
  [20:21:17.071]         withCallingHandlers({
  [20:21:17.071]             ...future.value <- withVisible(local({
  [20:21:17.071]                 doFuture::registerDoFuture()
  [20:21:17.071]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.071]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.071]                   {
  [20:21:17.071]                     a <- NULL
  [20:21:17.071]                     b <- NULL
  [20:21:17.071]                   }
  [20:21:17.071]                   ...future.env <- environment()
  [20:21:17.071]                   local({
  [20:21:17.071]                     for (name in names(...future.x_jj)) {
  [20:21:17.071]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.071]                         inherits = FALSE)
  [20:21:17.071]                     }
  [20:21:17.071]                   })
  [20:21:17.071]                   tryCatch({
  [20:21:17.071]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.071]                       plan = future::plan())
  [20:21:17.071]                   }, error = identity)
  [20:21:17.071]                 })
  [20:21:17.071]             }))
  [20:21:17.071]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.071]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.071]                 version = "1.8")
  [20:21:17.071]         }, condition = local({
  [20:21:17.071]             inherits <- base::inherits
  [20:21:17.071]             invokeRestart <- base::invokeRestart
  [20:21:17.071]             length <- base::length
  [20:21:17.071]             seq.int <- base::seq.int
  [20:21:17.071]             sys.calls <- base::sys.calls
  [20:21:17.071]             `[[` <- base::`[[`
  [20:21:17.071]             `+` <- base::`+`
  [20:21:17.071]             `<<-` <- base::`<<-`
  [20:21:17.071]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.071]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.071]                   3L)]
  [20:21:17.071]             }
  [20:21:17.071]             function(cond) {
  [20:21:17.071]                 if (inherits(cond, "error")) {
  [20:21:17.071]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.071]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.071]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.071]                     signaled = 0L)
  [20:21:17.071]                   signalCondition(cond)
  [20:21:17.071]                 }
  [20:21:17.071]                 else if (inherits(cond, "condition")) {
  [20:21:17.071]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.071]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.071]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.071]                   if (!signal) {
  [20:21:17.071]                     muffleCondition <- function (cond) 
  [20:21:17.071]                     {
  [20:21:17.071]                       inherits <- base::inherits
  [20:21:17.071]                       invokeRestart <- base::invokeRestart
  [20:21:17.071]                       muffled <- FALSE
  [20:21:17.071]                       if (inherits(cond, "message")) {
  [20:21:17.071]                         invokeRestart("muffleMessage")
  [20:21:17.071]                         muffled <- TRUE
  [20:21:17.071]                       }
  [20:21:17.071]                       else if (inherits(cond, "warning")) {
  [20:21:17.071]                         invokeRestart("muffleWarning")
  [20:21:17.071]                         muffled <- TRUE
  [20:21:17.071]                       }
  [20:21:17.071]                       else if (inherits(cond, "condition")) {
  [20:21:17.071]                         computeRestarts <- base::computeRestarts
  [20:21:17.071]                         grepl <- base::grepl
  [20:21:17.071]                         is.null <- base::is.null
  [20:21:17.071]                         restarts <- computeRestarts(cond)
  [20:21:17.071]                         for (restart in restarts) {
  [20:21:17.071]                           name <- restart$name
  [20:21:17.071]                           if (is.null(name)) 
  [20:21:17.071]                             next
  [20:21:17.071]                           if (!grepl("^muffle", name)) 
  [20:21:17.071]                             next
  [20:21:17.071]                           invokeRestart(restart)
  [20:21:17.071]                           muffled <- TRUE
  [20:21:17.071]                           break
  [20:21:17.071]                         }
  [20:21:17.071]                       }
  [20:21:17.071]                       invisible(muffled)
  [20:21:17.071]                     }
  [20:21:17.071]                     muffleCondition(cond)
  [20:21:17.071]                   }
  [20:21:17.071]                 }
  [20:21:17.071]             }
  [20:21:17.071]         }))
  [20:21:17.071]     }, error = function(ex) {
  [20:21:17.071]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.071]             version = "1.8"), class = "FutureResult")
  [20:21:17.071]     }, finally = {
  [20:21:17.071]         {
  [20:21:17.071]             {
  [20:21:17.071]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.071]             }
  [20:21:17.071]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.071]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.071]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.071]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.071]             {
  [20:21:17.071]                 if (substitute) 
  [20:21:17.071]                   expr <- substitute(expr)
  [20:21:17.071]                 if (is.function(workers)) 
  [20:21:17.071]                   workers <- workers()
  [20:21:17.071]                 workers <- as.integer(workers)
  [20:21:17.071]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.071]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.071]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.071]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.071]                     local = TRUE, label = label, ...))
  [20:21:17.071]                 }
  [20:21:17.071]                 oopts <- options(mc.cores = workers)
  [20:21:17.071]                 on.exit(options(oopts))
  [20:21:17.071]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.071]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.071]                   label = label, ...)
  [20:21:17.071]                 if (!future$lazy) 
  [20:21:17.071]                   future <- run(future)
  [20:21:17.071]                 invisible(future)
  [20:21:17.071]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.071]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:17.071]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.071]             {
  [20:21:17.071]                 if (substitute) 
  [20:21:17.071]                   expr <- substitute(expr)
  [20:21:17.071]                 local <- as.logical(local)
  [20:21:17.071]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:17.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.071]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:17.071]                   label = label, ...)
  [20:21:17.071]                 if (!future$lazy) 
  [20:21:17.071]                   future <- run(future)
  [20:21:17.071]                 invisible(future)
  [20:21:17.071]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.071]         }
  [20:21:17.071]         options(...future.oldOptions)
  [20:21:17.071]     })
  [20:21:17.071]     if (is.na(TRUE)) {
  [20:21:17.071]     }
  [20:21:17.071]     else {
  [20:21:17.071]         sink(type = "output", split = FALSE)
  [20:21:17.071]         if (TRUE) {
  [20:21:17.071]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.071]         }
  [20:21:17.071]         else {
  [20:21:17.071]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.071]         }
  [20:21:17.071]         close(...future.stdout)
  [20:21:17.071]         ...future.stdout <- NULL
  [20:21:17.071]     }
  [20:21:17.071]     ...future.result$conditions <- ...future.conditions
  [20:21:17.071]     ...future.result
  [20:21:17.071] }
  [20:21:17.076] requestCore(): workers = 2
  [20:21:17.091] MulticoreFuture started
  [20:21:17.092] Chunk #2 of 2 ... DONE
  [20:21:17.093] Launching 2 futures (chunks) ... DONE
  [20:21:17.093] - resolving futures
  [20:21:17.093]   - gathering results & relaying conditions (except errors)
  [20:21:17.094] resolve() on list ...
  [20:21:17.094]  recursive: 0
  [20:21:17.094]  length: 2
  [20:21:17.095] 
  [20:21:17.098] Future #1
  [20:21:17.110] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:17.111] - nx: 2
  [20:21:17.111] - relay: TRUE
  [20:21:17.112] - stdout: TRUE
  [20:21:17.112] - signal: TRUE
  [20:21:17.112] - resignal: FALSE
  [20:21:17.112] - force: FALSE
  [20:21:17.113] - relayed: [n=2] FALSE, FALSE
  [20:21:17.113] - queued futures: [n=2] FALSE, FALSE
  [20:21:17.113]  - until=1
  [20:21:17.114]  - relaying element #1
  [20:21:17.114] - relayed: [n=2] TRUE, FALSE
  [20:21:17.115] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.115] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:17.115]  length: 1 (resolved future 1)
  [20:21:17.110] plan(): Setting new future strategy stack:
  [20:21:17.118] List of future strategies:
  [20:21:17.118] 1. sequential:
  [20:21:17.118]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.118]    - tweaked: FALSE
  [20:21:17.118]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.119] plan(): nbrOfWorkers() = 1
  [20:21:17.121] plan(): Setting new future strategy stack:
  [20:21:17.122] List of future strategies:
  [20:21:17.122] 1. multicore:
  [20:21:17.122]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.122]    - tweaked: FALSE
  [20:21:17.122]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.122] 2. sequential:
  [20:21:17.122]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.122]    - tweaked: FALSE
  [20:21:17.122]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.124] plan(): nbrOfWorkers() = 2
  [20:21:17.131] Future #2
  [20:21:17.134] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:17.134] - nx: 2
  [20:21:17.134] - relay: TRUE
  [20:21:17.135] - stdout: TRUE
  [20:21:17.135] - signal: TRUE
  [20:21:17.135] - resignal: FALSE
  [20:21:17.135] - force: FALSE
  [20:21:17.135] - relayed: [n=2] TRUE, FALSE
  [20:21:17.136] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.136]  - until=2
  [20:21:17.136]  - relaying element #2
  [20:21:17.137] - relayed: [n=2] TRUE, TRUE
  [20:21:17.137] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.137] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:17.137]  length: 0 (resolved future 2)
  [20:21:17.138] Relaying remaining futures
  [20:21:17.138] signalConditionsASAP(NULL, pos=0) ...
  [20:21:17.138] - nx: 2
  [20:21:17.138] - relay: TRUE
  [20:21:17.139] - stdout: TRUE
  [20:21:17.139] - signal: TRUE
  [20:21:17.139] - resignal: FALSE
  [20:21:17.139] - force: FALSE
  [20:21:17.139] - relayed: [n=2] TRUE, TRUE
  [20:21:17.140] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:21:17.140] - relayed: [n=2] TRUE, TRUE
  [20:21:17.140] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.141] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:17.141] resolve() on list ... DONE
  [20:21:17.141] - collecting values of futures
  [20:21:17.141] - accumulating results
  [20:21:17.144] - processing errors (handler = 'stop')
  [20:21:17.144] - extracting results
  [20:21:17.144] doFuture() ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [20:21:17.145] plan(): Setting new future strategy stack:
  [20:21:17.146] List of future strategies:
  [20:21:17.146] 1. multicore:
  [20:21:17.146]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.146]    - tweaked: FALSE
  [20:21:17.146]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.146] 2. multicore:
  [20:21:17.146]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.146]    - tweaked: FALSE
  [20:21:17.146]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.149] plan(): nbrOfWorkers() = 2
  [20:21:17.150] doFuture() ...
  [20:21:17.153] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:17.154] - R expression:
  [20:21:17.155] {
  [20:21:17.155]     doFuture::registerDoFuture()
  [20:21:17.155]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.155]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.155]         {
  [20:21:17.155]             a <- NULL
  [20:21:17.155]             b <- NULL
  [20:21:17.155]         }
  [20:21:17.155]         ...future.env <- environment()
  [20:21:17.155]         local({
  [20:21:17.155]             for (name in names(...future.x_jj)) {
  [20:21:17.155]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.155]                   inherits = FALSE)
  [20:21:17.155]             }
  [20:21:17.155]         })
  [20:21:17.155]         tryCatch({
  [20:21:17.155]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.155]                 plan = future::plan())
  [20:21:17.155]         }, error = identity)
  [20:21:17.155]     })
  [20:21:17.155] }
  [20:21:17.155] - identifying globals and packages ...
  [20:21:17.156] getGlobalsAndPackages() ...
  [20:21:17.156] Searching for globals...
  [20:21:17.172] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:17.172] Searching for globals ... DONE
  [20:21:17.172] Resolving globals: FALSE
  [20:21:17.174] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:17.174] - globals: [1] '...future.x_ii'
  [20:21:17.175] 
  [20:21:17.175] getGlobalsAndPackages() ... DONE
  [20:21:17.175] List of 1
  [20:21:17.175]  $ ...future.x_ii: NULL
  [20:21:17.175]  - attr(*, "where")=List of 1
  [20:21:17.175]   ..$ ...future.x_ii:<environment: 0x56519784ec60> 
  [20:21:17.175]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.175]  - attr(*, "resolved")= logi FALSE
  [20:21:17.175]  - attr(*, "total_size")= num 0
  [20:21:17.182]   - R expression:
  [20:21:17.182] {
  [20:21:17.182]     doFuture::registerDoFuture()
  [20:21:17.182]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.182]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.182]         {
  [20:21:17.182]             a <- NULL
  [20:21:17.182]             b <- NULL
  [20:21:17.182]         }
  [20:21:17.182]         ...future.env <- environment()
  [20:21:17.182]         local({
  [20:21:17.182]             for (name in names(...future.x_jj)) {
  [20:21:17.182]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.182]                   inherits = FALSE)
  [20:21:17.182]             }
  [20:21:17.182]         })
  [20:21:17.182]         tryCatch({
  [20:21:17.182]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.182]                 plan = future::plan())
  [20:21:17.182]         }, error = identity)
  [20:21:17.182]     })
  [20:21:17.182] }
  [20:21:17.183]   - globals: [1] '...future.x_ii'
  [20:21:17.183] List of 1
  [20:21:17.183]  $ ...future.x_ii: NULL
  [20:21:17.183]  - attr(*, "where")=List of 1
  [20:21:17.183]   ..$ ...future.x_ii:<environment: 0x56519784ec60> 
  [20:21:17.183]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.183]  - attr(*, "resolved")= logi FALSE
  [20:21:17.183]  - attr(*, "total_size")= num 0
  [20:21:17.192]   - packages: [1] 'doFuture'
  [20:21:17.193] - identifying globals and packages ... DONE
  [20:21:17.194] Number of chunks: 2
  [20:21:17.194] Number of futures (= number of chunks): 2
  [20:21:17.194] Launching 2 futures (chunks) ...
  [20:21:17.195] Chunk #1 of 2 ...
  [20:21:17.195]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:17.195] getGlobalsAndPackages() ...
  [20:21:17.195] Searching for globals...
  [20:21:17.196] 
  [20:21:17.196] Searching for globals ... DONE
  [20:21:17.197] - globals: [0] <none>
  [20:21:17.197] getGlobalsAndPackages() ... DONE
  [20:21:17.197] 
  [20:21:17.197] 
  [20:21:17.198]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:17.198] getGlobalsAndPackages() ...
  [20:21:17.199] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.199] Resolving globals: FALSE
  [20:21:17.200] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.200] - globals: [1] '...future.x_ii'
  [20:21:17.200] 
  [20:21:17.201] getGlobalsAndPackages() ... DONE
  [20:21:17.202] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.203] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.207] {
  [20:21:17.207]     {
  [20:21:17.207]         ...future.startTime <- Sys.time()
  [20:21:17.207]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.207]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.207]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.207]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.207]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.207]         {
  [20:21:17.207]             {
  [20:21:17.207]                 {
  [20:21:17.207]                   {
  [20:21:17.207]                     has_future <- requireNamespace("future", 
  [20:21:17.207]                       quietly = TRUE)
  [20:21:17.207]                     version <- if (has_future) 
  [20:21:17.207]                       packageVersion("future")
  [20:21:17.207]                     else NULL
  [20:21:17.207]                     if (!has_future || version < "1.8.0") {
  [20:21:17.207]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.207]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.207]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.207]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.207]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.207]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.207]                         info)
  [20:21:17.207]                       info <- paste(info, collapse = "; ")
  [20:21:17.207]                       if (!has_future) {
  [20:21:17.207]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.207]                           info)
  [20:21:17.207]                       }
  [20:21:17.207]                       else {
  [20:21:17.207]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.207]                           info, version)
  [20:21:17.207]                       }
  [20:21:17.207]                       stop(msg)
  [20:21:17.207]                     }
  [20:21:17.207]                   }
  [20:21:17.207]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.207]                   options(mc.cores = 1L)
  [20:21:17.207]                 }
  [20:21:17.207]                 local({
  [20:21:17.207]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.207]                     loadNamespace(pkg)
  [20:21:17.207]                     library(pkg, character.only = TRUE)
  [20:21:17.207]                   }
  [20:21:17.207]                 })
  [20:21:17.207]             }
  [20:21:17.207]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.207]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.207]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.207]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.207]             {
  [20:21:17.207]                 if (substitute) 
  [20:21:17.207]                   expr <- substitute(expr)
  [20:21:17.207]                 if (is.function(workers)) 
  [20:21:17.207]                   workers <- workers()
  [20:21:17.207]                 workers <- as.integer(workers)
  [20:21:17.207]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.207]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.207]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.207]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.207]                     local = TRUE, label = label, ...))
  [20:21:17.207]                 }
  [20:21:17.207]                 oopts <- options(mc.cores = workers)
  [20:21:17.207]                 on.exit(options(oopts))
  [20:21:17.207]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.207]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.207]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.207]                   label = label, ...)
  [20:21:17.207]                 if (!future$lazy) 
  [20:21:17.207]                   future <- run(future)
  [20:21:17.207]                 invisible(future)
  [20:21:17.207]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.207]         }
  [20:21:17.207]     }
  [20:21:17.207]     if (is.na(TRUE)) {
  [20:21:17.207]     }
  [20:21:17.207]     else {
  [20:21:17.207]         if (TRUE) {
  [20:21:17.207]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.207]         }
  [20:21:17.207]         else {
  [20:21:17.207]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.207]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.207]         }
  [20:21:17.207]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.207]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.207]             sink(type = "output", split = FALSE)
  [20:21:17.207]             close(...future.stdout)
  [20:21:17.207]         }, add = TRUE)
  [20:21:17.207]     }
  [20:21:17.207]     ...future.frame <- sys.nframe()
  [20:21:17.207]     ...future.conditions <- list()
  [20:21:17.207]     ...future.result <- tryCatch({
  [20:21:17.207]         withCallingHandlers({
  [20:21:17.207]             ...future.value <- withVisible(local({
  [20:21:17.207]                 doFuture::registerDoFuture()
  [20:21:17.207]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.207]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.207]                   {
  [20:21:17.207]                     a <- NULL
  [20:21:17.207]                     b <- NULL
  [20:21:17.207]                   }
  [20:21:17.207]                   ...future.env <- environment()
  [20:21:17.207]                   local({
  [20:21:17.207]                     for (name in names(...future.x_jj)) {
  [20:21:17.207]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.207]                         inherits = FALSE)
  [20:21:17.207]                     }
  [20:21:17.207]                   })
  [20:21:17.207]                   tryCatch({
  [20:21:17.207]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.207]                       plan = future::plan())
  [20:21:17.207]                   }, error = identity)
  [20:21:17.207]                 })
  [20:21:17.207]             }))
  [20:21:17.207]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.207]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.207]                 version = "1.8")
  [20:21:17.207]         }, condition = local({
  [20:21:17.207]             inherits <- base::inherits
  [20:21:17.207]             invokeRestart <- base::invokeRestart
  [20:21:17.207]             length <- base::length
  [20:21:17.207]             seq.int <- base::seq.int
  [20:21:17.207]             sys.calls <- base::sys.calls
  [20:21:17.207]             `[[` <- base::`[[`
  [20:21:17.207]             `+` <- base::`+`
  [20:21:17.207]             `<<-` <- base::`<<-`
  [20:21:17.207]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.207]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.207]                   3L)]
  [20:21:17.207]             }
  [20:21:17.207]             function(cond) {
  [20:21:17.207]                 if (inherits(cond, "error")) {
  [20:21:17.207]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.207]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.207]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.207]                     signaled = 0L)
  [20:21:17.207]                   signalCondition(cond)
  [20:21:17.207]                 }
  [20:21:17.207]                 else if (inherits(cond, "condition")) {
  [20:21:17.207]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.207]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.207]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.207]                   if (!signal) {
  [20:21:17.207]                     muffleCondition <- function (cond) 
  [20:21:17.207]                     {
  [20:21:17.207]                       inherits <- base::inherits
  [20:21:17.207]                       invokeRestart <- base::invokeRestart
  [20:21:17.207]                       muffled <- FALSE
  [20:21:17.207]                       if (inherits(cond, "message")) {
  [20:21:17.207]                         invokeRestart("muffleMessage")
  [20:21:17.207]                         muffled <- TRUE
  [20:21:17.207]                       }
  [20:21:17.207]                       else if (inherits(cond, "warning")) {
  [20:21:17.207]                         invokeRestart("muffleWarning")
  [20:21:17.207]                         muffled <- TRUE
  [20:21:17.207]                       }
  [20:21:17.207]                       else if (inherits(cond, "condition")) {
  [20:21:17.207]                         computeRestarts <- base::computeRestarts
  [20:21:17.207]                         grepl <- base::grepl
  [20:21:17.207]                         is.null <- base::is.null
  [20:21:17.207]                         restarts <- computeRestarts(cond)
  [20:21:17.207]                         for (restart in restarts) {
  [20:21:17.207]                           name <- restart$name
  [20:21:17.207]                           if (is.null(name)) 
  [20:21:17.207]                             next
  [20:21:17.207]                           if (!grepl("^muffle", name)) 
  [20:21:17.207]                             next
  [20:21:17.207]                           invokeRestart(restart)
  [20:21:17.207]                           muffled <- TRUE
  [20:21:17.207]                           break
  [20:21:17.207]                         }
  [20:21:17.207]                       }
  [20:21:17.207]                       invisible(muffled)
  [20:21:17.207]                     }
  [20:21:17.207]                     muffleCondition(cond)
  [20:21:17.207]                   }
  [20:21:17.207]                 }
  [20:21:17.207]             }
  [20:21:17.207]         }))
  [20:21:17.207]     }, error = function(ex) {
  [20:21:17.207]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.207]             version = "1.8"), class = "FutureResult")
  [20:21:17.207]     }, finally = {
  [20:21:17.207]         {
  [20:21:17.207]             {
  [20:21:17.207]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.207]             }
  [20:21:17.207]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.207]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.207]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.207]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.207]             {
  [20:21:17.207]                 if (substitute) 
  [20:21:17.207]                   expr <- substitute(expr)
  [20:21:17.207]                 if (is.function(workers)) 
  [20:21:17.207]                   workers <- workers()
  [20:21:17.207]                 workers <- as.integer(workers)
  [20:21:17.207]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.207]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.207]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.207]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.207]                     local = TRUE, label = label, ...))
  [20:21:17.207]                 }
  [20:21:17.207]                 oopts <- options(mc.cores = workers)
  [20:21:17.207]                 on.exit(options(oopts))
  [20:21:17.207]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.207]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.207]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.207]                   label = label, ...)
  [20:21:17.207]                 if (!future$lazy) 
  [20:21:17.207]                   future <- run(future)
  [20:21:17.207]                 invisible(future)
  [20:21:17.207]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.207]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.207]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.207]             {
  [20:21:17.207]                 if (substitute) 
  [20:21:17.207]                   expr <- substitute(expr)
  [20:21:17.207]                 if (is.function(workers)) 
  [20:21:17.207]                   workers <- workers()
  [20:21:17.207]                 workers <- as.integer(workers)
  [20:21:17.207]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.207]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.207]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.207]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.207]                     local = TRUE, label = label, ...))
  [20:21:17.207]                 }
  [20:21:17.207]                 oopts <- options(mc.cores = workers)
  [20:21:17.207]                 on.exit(options(oopts))
  [20:21:17.207]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.207]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.207]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.207]                   label = label, ...)
  [20:21:17.207]                 if (!future$lazy) 
  [20:21:17.207]                   future <- run(future)
  [20:21:17.207]                 invisible(future)
  [20:21:17.207]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.207]         }
  [20:21:17.207]         options(...future.oldOptions)
  [20:21:17.207]     })
  [20:21:17.207]     if (is.na(TRUE)) {
  [20:21:17.207]     }
  [20:21:17.207]     else {
  [20:21:17.207]         sink(type = "output", split = FALSE)
  [20:21:17.207]         if (TRUE) {
  [20:21:17.207]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.207]         }
  [20:21:17.207]         else {
  [20:21:17.207]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.207]         }
  [20:21:17.207]         close(...future.stdout)
  [20:21:17.207]         ...future.stdout <- NULL
  [20:21:17.207]     }
  [20:21:17.207]     ...future.result$conditions <- ...future.conditions
  [20:21:17.207]     ...future.result
  [20:21:17.207] }
  [20:21:17.211] requestCore(): workers = 2
  [20:21:17.214] MulticoreFuture started
  [20:21:17.215] Chunk #1 of 2 ... DONE
  [20:21:17.215] Chunk #2 of 2 ...
  [20:21:17.216]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:17.216] getGlobalsAndPackages() ...
  [20:21:17.216] Searching for globals...
  [20:21:17.218] 
  [20:21:17.218] Searching for globals ... DONE
  [20:21:17.218] - globals: [0] <none>
  [20:21:17.218] getGlobalsAndPackages() ... DONE
  [20:21:17.219] 
  [20:21:17.219] 
  [20:21:17.219]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:17.221] getGlobalsAndPackages() ...
  [20:21:17.221] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.222] Resolving globals: FALSE
  [20:21:17.223] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.223] - globals: [1] '...future.x_ii'
  [20:21:17.223] 
  [20:21:17.224] getGlobalsAndPackages() ... DONE
  [20:21:17.226] plan(): Setting new future strategy stack:
  [20:21:17.225] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.228] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.231] {
  [20:21:17.231]     {
  [20:21:17.231]         ...future.startTime <- Sys.time()
  [20:21:17.231]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.231]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.231]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.231]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.231]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.231]         {
  [20:21:17.231]             {
  [20:21:17.231]                 {
  [20:21:17.231]                   {
  [20:21:17.231]                     has_future <- requireNamespace("future", 
  [20:21:17.231]                       quietly = TRUE)
  [20:21:17.231]                     version <- if (has_future) 
  [20:21:17.231]                       packageVersion("future")
  [20:21:17.231]                     else NULL
  [20:21:17.231]                     if (!has_future || version < "1.8.0") {
  [20:21:17.231]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.231]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.231]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.231]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.231]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.231]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.231]                         info)
  [20:21:17.231]                       info <- paste(info, collapse = "; ")
  [20:21:17.231]                       if (!has_future) {
  [20:21:17.231]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.231]                           info)
  [20:21:17.231]                       }
  [20:21:17.231]                       else {
  [20:21:17.231]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.231]                           info, version)
  [20:21:17.231]                       }
  [20:21:17.231]                       stop(msg)
  [20:21:17.231]                     }
  [20:21:17.231]                   }
  [20:21:17.231]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.231]                   options(mc.cores = 1L)
  [20:21:17.231]                 }
  [20:21:17.231]                 local({
  [20:21:17.231]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.231]                     loadNamespace(pkg)
  [20:21:17.231]                     library(pkg, character.only = TRUE)
  [20:21:17.231]                   }
  [20:21:17.231]                 })
  [20:21:17.231]             }
  [20:21:17.231]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.231]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.231]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.231]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.231]             {
  [20:21:17.231]                 if (substitute) 
  [20:21:17.231]                   expr <- substitute(expr)
  [20:21:17.231]                 if (is.function(workers)) 
  [20:21:17.231]                   workers <- workers()
  [20:21:17.231]                 workers <- as.integer(workers)
  [20:21:17.231]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.231]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.231]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.231]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.231]                     local = TRUE, label = label, ...))
  [20:21:17.231]                 }
  [20:21:17.231]                 oopts <- options(mc.cores = workers)
  [20:21:17.231]                 on.exit(options(oopts))
  [20:21:17.231]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.231]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.231]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.231]                   label = label, ...)
  [20:21:17.231]                 if (!future$lazy) 
  [20:21:17.231]                   future <- run(future)
  [20:21:17.231]                 invisible(future)
  [20:21:17.231]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.231]         }
  [20:21:17.231]     }
  [20:21:17.231]     if (is.na(TRUE)) {
  [20:21:17.231]     }
  [20:21:17.231]     else {
  [20:21:17.231]         if (TRUE) {
  [20:21:17.231]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.231]         }
  [20:21:17.231]         else {
  [20:21:17.231]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.231]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.231]         }
  [20:21:17.231]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.231]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.231]             sink(type = "output", split = FALSE)
  [20:21:17.231]             close(...future.stdout)
  [20:21:17.231]         }, add = TRUE)
  [20:21:17.231]     }
  [20:21:17.231]     ...future.frame <- sys.nframe()
  [20:21:17.231]     ...future.conditions <- list()
  [20:21:17.231]     ...future.result <- tryCatch({
  [20:21:17.231]         withCallingHandlers({
  [20:21:17.231]             ...future.value <- withVisible(local({
  [20:21:17.231]                 doFuture::registerDoFuture()
  [20:21:17.231]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.231]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.231]                   {
  [20:21:17.231]                     a <- NULL
  [20:21:17.231]                     b <- NULL
  [20:21:17.231]                   }
  [20:21:17.231]                   ...future.env <- environment()
  [20:21:17.231]                   local({
  [20:21:17.231]                     for (name in names(...future.x_jj)) {
  [20:21:17.231]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.231]                         inherits = FALSE)
  [20:21:17.231]                     }
  [20:21:17.231]                   })
  [20:21:17.231]                   tryCatch({
  [20:21:17.231]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.231]                       plan = future::plan())
  [20:21:17.231]                   }, error = identity)
  [20:21:17.231]                 })
  [20:21:17.231]             }))
  [20:21:17.231]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.231]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.231]                 version = "1.8")
  [20:21:17.231]         }, condition = local({
  [20:21:17.231]             inherits <- base::inherits
  [20:21:17.231]             invokeRestart <- base::invokeRestart
  [20:21:17.231]             length <- base::length
  [20:21:17.231]             seq.int <- base::seq.int
  [20:21:17.231]             sys.calls <- base::sys.calls
  [20:21:17.231]             `[[` <- base::`[[`
  [20:21:17.231]             `+` <- base::`+`
  [20:21:17.231]             `<<-` <- base::`<<-`
  [20:21:17.231]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.231]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.231]                   3L)]
  [20:21:17.231]             }
  [20:21:17.231]             function(cond) {
  [20:21:17.231]                 if (inherits(cond, "error")) {
  [20:21:17.231]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.231]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.231]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.231]                     signaled = 0L)
  [20:21:17.231]                   signalCondition(cond)
  [20:21:17.231]                 }
  [20:21:17.231]                 else if (inherits(cond, "condition")) {
  [20:21:17.231]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.231]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.231]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.231]                   if (!signal) {
  [20:21:17.231]                     muffleCondition <- function (cond) 
  [20:21:17.231]                     {
  [20:21:17.231]                       inherits <- base::inherits
  [20:21:17.231]                       invokeRestart <- base::invokeRestart
  [20:21:17.231]                       muffled <- FALSE
  [20:21:17.231]                       if (inherits(cond, "message")) {
  [20:21:17.231]                         invokeRestart("muffleMessage")
  [20:21:17.231]                         muffled <- TRUE
  [20:21:17.231]                       }
  [20:21:17.231]                       else if (inherits(cond, "warning")) {
  [20:21:17.231]                         invokeRestart("muffleWarning")
  [20:21:17.231]                         muffled <- TRUE
  [20:21:17.231]                       }
  [20:21:17.231]                       else if (inherits(cond, "condition")) {
  [20:21:17.231]                         computeRestarts <- base::computeRestarts
  [20:21:17.231]                         grepl <- base::grepl
  [20:21:17.231]                         is.null <- base::is.null
  [20:21:17.231]                         restarts <- computeRestarts(cond)
  [20:21:17.231]                         for (restart in restarts) {
  [20:21:17.231]                           name <- restart$name
  [20:21:17.231]                           if (is.null(name)) 
  [20:21:17.231]                             next
  [20:21:17.231]                           if (!grepl("^muffle", name)) 
  [20:21:17.231]                             next
  [20:21:17.231]                           invokeRestart(restart)
  [20:21:17.231]                           muffled <- TRUE
  [20:21:17.231]                           break
  [20:21:17.231]                         }
  [20:21:17.231]                       }
  [20:21:17.231]                       invisible(muffled)
  [20:21:17.231]                     }
  [20:21:17.231]                     muffleCondition(cond)
  [20:21:17.231]                   }
  [20:21:17.231]                 }
  [20:21:17.231]             }
  [20:21:17.231]         }))
  [20:21:17.231]     }, error = function(ex) {
  [20:21:17.231]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.231]             version = "1.8"), class = "FutureResult")
  [20:21:17.231]     }, finally = {
  [20:21:17.231]         {
  [20:21:17.231]             {
  [20:21:17.231]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.231]             }
  [20:21:17.231]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.231]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.231]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.231]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.231]             {
  [20:21:17.231]                 if (substitute) 
  [20:21:17.231]                   expr <- substitute(expr)
  [20:21:17.231]                 if (is.function(workers)) 
  [20:21:17.231]                   workers <- workers()
  [20:21:17.231]                 workers <- as.integer(workers)
  [20:21:17.231]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.231]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.231]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.231]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.231]                     local = TRUE, label = label, ...))
  [20:21:17.231]                 }
  [20:21:17.231]                 oopts <- options(mc.cores = workers)
  [20:21:17.231]                 on.exit(options(oopts))
  [20:21:17.231]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.231]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.231]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.231]                   label = label, ...)
  [20:21:17.231]                 if (!future$lazy) 
  [20:21:17.231]                   future <- run(future)
  [20:21:17.231]                 invisible(future)
  [20:21:17.231]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.231]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.231]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.231]             {
  [20:21:17.231]                 if (substitute) 
  [20:21:17.231]                   expr <- substitute(expr)
  [20:21:17.231]                 if (is.function(workers)) 
  [20:21:17.231]                   workers <- workers()
  [20:21:17.231]                 workers <- as.integer(workers)
  [20:21:17.231]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.231]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.231]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.231]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.231]                     local = TRUE, label = label, ...))
  [20:21:17.231]                 }
  [20:21:17.231]                 oopts <- options(mc.cores = workers)
  [20:21:17.231]                 on.exit(options(oopts))
  [20:21:17.231]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.231]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.231]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.231]                   label = label, ...)
  [20:21:17.231]                 if (!future$lazy) 
  [20:21:17.231]                   future <- run(future)
  [20:21:17.231]                 invisible(future)
  [20:21:17.231]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.231]         }
  [20:21:17.231]         options(...future.oldOptions)
  [20:21:17.231]     })
  [20:21:17.231]     if (is.na(TRUE)) {
  [20:21:17.231]     }
  [20:21:17.231]     else {
  [20:21:17.231]         sink(type = "output", split = FALSE)
  [20:21:17.231]         if (TRUE) {
  [20:21:17.231]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.231]         }
  [20:21:17.231]         else {
  [20:21:17.231]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.231]         }
  [20:21:17.231]         close(...future.stdout)
  [20:21:17.231]         ...future.stdout <- NULL
  [20:21:17.231]     }
  [20:21:17.231]     ...future.result$conditions <- ...future.conditions
  [20:21:17.231]     ...future.result
  [20:21:17.231] }
  [20:21:17.237] requestCore(): workers = 2
  [20:21:17.240] MulticoreFuture started
  [20:21:17.241] Chunk #2 of 2 ... DONE
  [20:21:17.241] Launching 2 futures (chunks) ... DONE
  [20:21:17.242] - resolving futures
  [20:21:17.242]   - gathering results & relaying conditions (except errors)
  [20:21:17.242] resolve() on list ...
  [20:21:17.242]  recursive: 0
  [20:21:17.226] List of future strategies:
  [20:21:17.226] 1. multicore:
  [20:21:17.226]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.226]    - tweaked: FALSE
  [20:21:17.226]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.243]  length: 2
  [20:21:17.243] 
  [20:21:17.244] plan(): nbrOfWorkers() = 1
  [20:21:17.245] plan(): Setting new future strategy stack:
  [20:21:17.246] List of future strategies:
  [20:21:17.246] 1. multicore:
  [20:21:17.246]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.246]    - tweaked: FALSE
  [20:21:17.246]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.246] 2. multicore:
  [20:21:17.246]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.246]    - tweaked: FALSE
  [20:21:17.246]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.248] plan(): nbrOfWorkers() = 2
  [20:21:17.249] Future #1
  [20:21:17.252] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:17.252] - nx: 2
  [20:21:17.253] - relay: TRUE
  [20:21:17.253] - stdout: TRUE
  [20:21:17.253] - signal: TRUE
  [20:21:17.253] - resignal: FALSE
  [20:21:17.254] - force: FALSE
  [20:21:17.254] - relayed: [n=2] FALSE, FALSE
  [20:21:17.254] - queued futures: [n=2] FALSE, FALSE
  [20:21:17.255]  - until=1
  [20:21:17.255]  - relaying element #1
  [20:21:17.255] - relayed: [n=2] TRUE, FALSE
  [20:21:17.256] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.256] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:17.256]  length: 1 (resolved future 1)
  [20:21:17.258] plan(): Setting new future strategy stack:
  [20:21:17.258] List of future strategies:
  [20:21:17.258] 1. multicore:
  [20:21:17.258]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.258]    - tweaked: FALSE
  [20:21:17.258]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.261] plan(): nbrOfWorkers() = 1
  [20:21:17.263] plan(): Setting new future strategy stack:
  [20:21:17.263] List of future strategies:
  [20:21:17.263] 1. multicore:
  [20:21:17.263]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.263]    - tweaked: FALSE
  [20:21:17.263]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.263] 2. multicore:
  [20:21:17.263]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.263]    - tweaked: FALSE
  [20:21:17.263]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.265] plan(): nbrOfWorkers() = 2
  [20:21:17.280] Future #2
  [20:21:17.283] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:17.283] - nx: 2
  [20:21:17.283] - relay: TRUE
  [20:21:17.284] - stdout: TRUE
  [20:21:17.284] - signal: TRUE
  [20:21:17.284] - resignal: FALSE
  [20:21:17.284] - force: FALSE
  [20:21:17.285] - relayed: [n=2] TRUE, FALSE
  [20:21:17.285] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.285]  - until=2
  [20:21:17.285]  - relaying element #2
  [20:21:17.286] - relayed: [n=2] TRUE, TRUE
  [20:21:17.286] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.286] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:17.287]  length: 0 (resolved future 2)
  [20:21:17.287] Relaying remaining futures
  [20:21:17.287] signalConditionsASAP(NULL, pos=0) ...
  [20:21:17.288] - nx: 2
  [20:21:17.288] - relay: TRUE
  [20:21:17.288] - stdout: TRUE
  [20:21:17.288] - signal: TRUE
  [20:21:17.289] - resignal: FALSE
  [20:21:17.289] - force: FALSE
  [20:21:17.289] - relayed: [n=2] TRUE, TRUE
  [20:21:17.289] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:21:17.290] - relayed: [n=2] TRUE, TRUE
  [20:21:17.290] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.290] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:17.291] resolve() on list ... DONE
  [20:21:17.291] - collecting values of futures
  [20:21:17.291] - accumulating results
  [20:21:17.310] - processing errors (handler = 'stop')
  [20:21:17.311] - extracting results
  [20:21:17.311] doFuture() ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [20:21:17.322] plan(): Setting new future strategy stack:
  [20:21:17.322] List of future strategies:
  [20:21:17.322] 1. multicore:
  [20:21:17.322]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.322]    - tweaked: FALSE
  [20:21:17.322]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.322] 2. multisession:
  [20:21:17.322]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.322]    - tweaked: FALSE
  [20:21:17.322]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.324] plan(): nbrOfWorkers() = 2
  [20:21:17.325] doFuture() ...
  [20:21:17.328] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:17.329] - R expression:
  [20:21:17.330] {
  [20:21:17.330]     doFuture::registerDoFuture()
  [20:21:17.330]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.330]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.330]         {
  [20:21:17.330]             a <- NULL
  [20:21:17.330]             b <- NULL
  [20:21:17.330]         }
  [20:21:17.330]         ...future.env <- environment()
  [20:21:17.330]         local({
  [20:21:17.330]             for (name in names(...future.x_jj)) {
  [20:21:17.330]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.330]                   inherits = FALSE)
  [20:21:17.330]             }
  [20:21:17.330]         })
  [20:21:17.330]         tryCatch({
  [20:21:17.330]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.330]                 plan = future::plan())
  [20:21:17.330]         }, error = identity)
  [20:21:17.330]     })
  [20:21:17.330] }
  [20:21:17.330] - identifying globals and packages ...
  [20:21:17.331] getGlobalsAndPackages() ...
  [20:21:17.331] Searching for globals...
  [20:21:17.395] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:17.395] Searching for globals ... DONE
  [20:21:17.396] Resolving globals: FALSE
  [20:21:17.397] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:17.398] - globals: [1] '...future.x_ii'
  [20:21:17.398] 
  [20:21:17.398] getGlobalsAndPackages() ... DONE
  [20:21:17.398] List of 1
  [20:21:17.398]  $ ...future.x_ii: NULL
  [20:21:17.398]  - attr(*, "where")=List of 1
  [20:21:17.398]   ..$ ...future.x_ii:<environment: 0x5651974736f8> 
  [20:21:17.398]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.398]  - attr(*, "resolved")= logi FALSE
  [20:21:17.398]  - attr(*, "total_size")= num 0
  [20:21:17.405]   - R expression:
  [20:21:17.405] {
  [20:21:17.405]     doFuture::registerDoFuture()
  [20:21:17.405]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.405]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.405]         {
  [20:21:17.405]             a <- NULL
  [20:21:17.405]             b <- NULL
  [20:21:17.405]         }
  [20:21:17.405]         ...future.env <- environment()
  [20:21:17.405]         local({
  [20:21:17.405]             for (name in names(...future.x_jj)) {
  [20:21:17.405]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.405]                   inherits = FALSE)
  [20:21:17.405]             }
  [20:21:17.405]         })
  [20:21:17.405]         tryCatch({
  [20:21:17.405]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.405]                 plan = future::plan())
  [20:21:17.405]         }, error = identity)
  [20:21:17.405]     })
  [20:21:17.405] }
  [20:21:17.406]   - globals: [1] '...future.x_ii'
  [20:21:17.407] List of 1
  [20:21:17.407]  $ ...future.x_ii: NULL
  [20:21:17.407]  - attr(*, "where")=List of 1
  [20:21:17.407]   ..$ ...future.x_ii:<environment: 0x5651974736f8> 
  [20:21:17.407]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.407]  - attr(*, "resolved")= logi FALSE
  [20:21:17.407]  - attr(*, "total_size")= num 0
  [20:21:17.429]   - packages: [1] 'doFuture'
  [20:21:17.429] - identifying globals and packages ... DONE
  [20:21:17.430] Number of chunks: 2
  [20:21:17.431] Number of futures (= number of chunks): 2
  [20:21:17.431] Launching 2 futures (chunks) ...
  [20:21:17.431] Chunk #1 of 2 ...
  [20:21:17.431]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:17.432] getGlobalsAndPackages() ...
  [20:21:17.432] Searching for globals...
  [20:21:17.433] 
  [20:21:17.433] Searching for globals ... DONE
  [20:21:17.433] - globals: [0] <none>
  [20:21:17.433] getGlobalsAndPackages() ... DONE
  [20:21:17.434] 
  [20:21:17.434] 
  [20:21:17.434]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:17.435] getGlobalsAndPackages() ...
  [20:21:17.436] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.439] Resolving globals: FALSE
  [20:21:17.440] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.440] - globals: [1] '...future.x_ii'
  [20:21:17.440] 
  [20:21:17.441] getGlobalsAndPackages() ... DONE
  [20:21:17.458] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.459] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.462] {
  [20:21:17.462]     {
  [20:21:17.462]         ...future.startTime <- Sys.time()
  [20:21:17.462]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.462]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.462]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.462]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.462]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.462]         {
  [20:21:17.462]             {
  [20:21:17.462]                 {
  [20:21:17.462]                   {
  [20:21:17.462]                     has_future <- requireNamespace("future", 
  [20:21:17.462]                       quietly = TRUE)
  [20:21:17.462]                     version <- if (has_future) 
  [20:21:17.462]                       packageVersion("future")
  [20:21:17.462]                     else NULL
  [20:21:17.462]                     if (!has_future || version < "1.8.0") {
  [20:21:17.462]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.462]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.462]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.462]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.462]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.462]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.462]                         info)
  [20:21:17.462]                       info <- paste(info, collapse = "; ")
  [20:21:17.462]                       if (!has_future) {
  [20:21:17.462]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.462]                           info)
  [20:21:17.462]                       }
  [20:21:17.462]                       else {
  [20:21:17.462]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.462]                           info, version)
  [20:21:17.462]                       }
  [20:21:17.462]                       stop(msg)
  [20:21:17.462]                     }
  [20:21:17.462]                   }
  [20:21:17.462]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.462]                   options(mc.cores = 1L)
  [20:21:17.462]                 }
  [20:21:17.462]                 local({
  [20:21:17.462]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.462]                     loadNamespace(pkg)
  [20:21:17.462]                     library(pkg, character.only = TRUE)
  [20:21:17.462]                   }
  [20:21:17.462]                 })
  [20:21:17.462]             }
  [20:21:17.462]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.462]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.462]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:17.462]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:17.462]                 ...) 
  [20:21:17.462]             {
  [20:21:17.462]                 if (substitute) 
  [20:21:17.462]                   expr <- substitute(expr)
  [20:21:17.462]                 if (is.function(workers)) 
  [20:21:17.462]                   workers <- workers()
  [20:21:17.462]                 workers <- as.integer(workers)
  [20:21:17.462]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:17.462]                   workers >= 1)
  [20:21:17.462]                 if (workers == 1L) {
  [20:21:17.462]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.462]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:17.462]                     local = TRUE, label = label, ...))
  [20:21:17.462]                 }
  [20:21:17.462]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:17.462]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:17.462]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.462]                   globals = globals, persistent = persistent, 
  [20:21:17.462]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:17.462]                   label = label, ...)
  [20:21:17.462]                 if (!future$lazy) 
  [20:21:17.462]                   future <- run(future)
  [20:21:17.462]                 invisible(future)
  [20:21:17.462]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.462]         }
  [20:21:17.462]     }
  [20:21:17.462]     if (is.na(TRUE)) {
  [20:21:17.462]     }
  [20:21:17.462]     else {
  [20:21:17.462]         if (TRUE) {
  [20:21:17.462]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.462]         }
  [20:21:17.462]         else {
  [20:21:17.462]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.462]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.462]         }
  [20:21:17.462]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.462]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.462]             sink(type = "output", split = FALSE)
  [20:21:17.462]             close(...future.stdout)
  [20:21:17.462]         }, add = TRUE)
  [20:21:17.462]     }
  [20:21:17.462]     ...future.frame <- sys.nframe()
  [20:21:17.462]     ...future.conditions <- list()
  [20:21:17.462]     ...future.result <- tryCatch({
  [20:21:17.462]         withCallingHandlers({
  [20:21:17.462]             ...future.value <- withVisible(local({
  [20:21:17.462]                 doFuture::registerDoFuture()
  [20:21:17.462]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.462]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.462]                   {
  [20:21:17.462]                     a <- NULL
  [20:21:17.462]                     b <- NULL
  [20:21:17.462]                   }
  [20:21:17.462]                   ...future.env <- environment()
  [20:21:17.462]                   local({
  [20:21:17.462]                     for (name in names(...future.x_jj)) {
  [20:21:17.462]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.462]                         inherits = FALSE)
  [20:21:17.462]                     }
  [20:21:17.462]                   })
  [20:21:17.462]                   tryCatch({
  [20:21:17.462]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.462]                       plan = future::plan())
  [20:21:17.462]                   }, error = identity)
  [20:21:17.462]                 })
  [20:21:17.462]             }))
  [20:21:17.462]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.462]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.462]                 version = "1.8")
  [20:21:17.462]         }, condition = local({
  [20:21:17.462]             inherits <- base::inherits
  [20:21:17.462]             invokeRestart <- base::invokeRestart
  [20:21:17.462]             length <- base::length
  [20:21:17.462]             seq.int <- base::seq.int
  [20:21:17.462]             sys.calls <- base::sys.calls
  [20:21:17.462]             `[[` <- base::`[[`
  [20:21:17.462]             `+` <- base::`+`
  [20:21:17.462]             `<<-` <- base::`<<-`
  [20:21:17.462]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.462]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.462]                   3L)]
  [20:21:17.462]             }
  [20:21:17.462]             function(cond) {
  [20:21:17.462]                 if (inherits(cond, "error")) {
  [20:21:17.462]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.462]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.462]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.462]                     signaled = 0L)
  [20:21:17.462]                   signalCondition(cond)
  [20:21:17.462]                 }
  [20:21:17.462]                 else if (inherits(cond, "condition")) {
  [20:21:17.462]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.462]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.462]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.462]                   if (!signal) {
  [20:21:17.462]                     muffleCondition <- function (cond) 
  [20:21:17.462]                     {
  [20:21:17.462]                       inherits <- base::inherits
  [20:21:17.462]                       invokeRestart <- base::invokeRestart
  [20:21:17.462]                       muffled <- FALSE
  [20:21:17.462]                       if (inherits(cond, "message")) {
  [20:21:17.462]                         invokeRestart("muffleMessage")
  [20:21:17.462]                         muffled <- TRUE
  [20:21:17.462]                       }
  [20:21:17.462]                       else if (inherits(cond, "warning")) {
  [20:21:17.462]                         invokeRestart("muffleWarning")
  [20:21:17.462]                         muffled <- TRUE
  [20:21:17.462]                       }
  [20:21:17.462]                       else if (inherits(cond, "condition")) {
  [20:21:17.462]                         computeRestarts <- base::computeRestarts
  [20:21:17.462]                         grepl <- base::grepl
  [20:21:17.462]                         is.null <- base::is.null
  [20:21:17.462]                         restarts <- computeRestarts(cond)
  [20:21:17.462]                         for (restart in restarts) {
  [20:21:17.462]                           name <- restart$name
  [20:21:17.462]                           if (is.null(name)) 
  [20:21:17.462]                             next
  [20:21:17.462]                           if (!grepl("^muffle", name)) 
  [20:21:17.462]                             next
  [20:21:17.462]                           invokeRestart(restart)
  [20:21:17.462]                           muffled <- TRUE
  [20:21:17.462]                           break
  [20:21:17.462]                         }
  [20:21:17.462]                       }
  [20:21:17.462]                       invisible(muffled)
  [20:21:17.462]                     }
  [20:21:17.462]                     muffleCondition(cond)
  [20:21:17.462]                   }
  [20:21:17.462]                 }
  [20:21:17.462]             }
  [20:21:17.462]         }))
  [20:21:17.462]     }, error = function(ex) {
  [20:21:17.462]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.462]             version = "1.8"), class = "FutureResult")
  [20:21:17.462]     }, finally = {
  [20:21:17.462]         {
  [20:21:17.462]             {
  [20:21:17.462]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.462]             }
  [20:21:17.462]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.462]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.462]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.462]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.462]             {
  [20:21:17.462]                 if (substitute) 
  [20:21:17.462]                   expr <- substitute(expr)
  [20:21:17.462]                 if (is.function(workers)) 
  [20:21:17.462]                   workers <- workers()
  [20:21:17.462]                 workers <- as.integer(workers)
  [20:21:17.462]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.462]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.462]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.462]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.462]                     local = TRUE, label = label, ...))
  [20:21:17.462]                 }
  [20:21:17.462]                 oopts <- options(mc.cores = workers)
  [20:21:17.462]                 on.exit(options(oopts))
  [20:21:17.462]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.462]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.462]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.462]                   label = label, ...)
  [20:21:17.462]                 if (!future$lazy) 
  [20:21:17.462]                   future <- run(future)
  [20:21:17.462]                 invisible(future)
  [20:21:17.462]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.462]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:17.462]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:21:17.462]                 label = NULL, ...) 
  [20:21:17.462]             {
  [20:21:17.462]                 if (substitute) 
  [20:21:17.462]                   expr <- substitute(expr)
  [20:21:17.462]                 if (is.function(workers)) 
  [20:21:17.462]                   workers <- workers()
  [20:21:17.462]                 workers <- as.integer(workers)
  [20:21:17.462]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:17.462]                   workers >= 1)
  [20:21:17.462]                 if (workers == 1L) {
  [20:21:17.462]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.462]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:17.462]                     local = TRUE, label = label, ...))
  [20:21:17.462]                 }
  [20:21:17.462]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:17.462]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:17.462]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.462]                   globals = globals, persistent = persistent, 
  [20:21:17.462]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:17.462]                   label = label, ...)
  [20:21:17.462]                 if (!future$lazy) 
  [20:21:17.462]                   future <- run(future)
  [20:21:17.462]                 invisible(future)
  [20:21:17.462]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.462]         }
  [20:21:17.462]         options(...future.oldOptions)
  [20:21:17.462]     })
  [20:21:17.462]     if (is.na(TRUE)) {
  [20:21:17.462]     }
  [20:21:17.462]     else {
  [20:21:17.462]         sink(type = "output", split = FALSE)
  [20:21:17.462]         if (TRUE) {
  [20:21:17.462]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.462]         }
  [20:21:17.462]         else {
  [20:21:17.462]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.462]         }
  [20:21:17.462]         close(...future.stdout)
  [20:21:17.462]         ...future.stdout <- NULL
  [20:21:17.462]     }
  [20:21:17.462]     ...future.result$conditions <- ...future.conditions
  [20:21:17.462]     ...future.result
  [20:21:17.462] }
  [20:21:17.467] requestCore(): workers = 2
  [20:21:17.470] MulticoreFuture started
  [20:21:17.471] Chunk #1 of 2 ... DONE
  [20:21:17.472] Chunk #2 of 2 ...
  [20:21:17.472]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:17.472] getGlobalsAndPackages() ...
  [20:21:17.473] Searching for globals...
  [20:21:17.486] plan(): Setting new future strategy stack:
  [20:21:17.487] List of future strategies:
  [20:21:17.487] 1. multisession:
  [20:21:17.487]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.487]    - tweaked: FALSE
  [20:21:17.487]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.489] plan(): nbrOfWorkers() = 1
  [20:21:17.490] 
  [20:21:17.491] Searching for globals ... DONE
  [20:21:17.491] plan(): Setting new future strategy stack:
  [20:21:17.491] - globals: [0] <none>
  [20:21:17.491] getGlobalsAndPackages() ... DONE
  [20:21:17.491] 
  [20:21:17.492] 
  [20:21:17.492]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:17.491] List of future strategies:
  [20:21:17.491] 1. multicore:
  [20:21:17.491]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.491]    - tweaked: FALSE
  [20:21:17.491]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.491] 2. multisession:
  [20:21:17.491]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.491]    - tweaked: FALSE
  [20:21:17.491]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.493] plan(): nbrOfWorkers() = 2
  [20:21:17.493] getGlobalsAndPackages() ...
  [20:21:17.494] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.494] Resolving globals: FALSE
  [20:21:17.495] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.496] - globals: [1] '...future.x_ii'
  [20:21:17.496] 
  [20:21:17.496] getGlobalsAndPackages() ... DONE
  [20:21:17.498] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.499] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.504] {
  [20:21:17.504]     {
  [20:21:17.504]         ...future.startTime <- Sys.time()
  [20:21:17.504]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.504]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.504]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.504]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.504]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.504]         {
  [20:21:17.504]             {
  [20:21:17.504]                 {
  [20:21:17.504]                   {
  [20:21:17.504]                     has_future <- requireNamespace("future", 
  [20:21:17.504]                       quietly = TRUE)
  [20:21:17.504]                     version <- if (has_future) 
  [20:21:17.504]                       packageVersion("future")
  [20:21:17.504]                     else NULL
  [20:21:17.504]                     if (!has_future || version < "1.8.0") {
  [20:21:17.504]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.504]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.504]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.504]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.504]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.504]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.504]                         info)
  [20:21:17.504]                       info <- paste(info, collapse = "; ")
  [20:21:17.504]                       if (!has_future) {
  [20:21:17.504]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.504]                           info)
  [20:21:17.504]                       }
  [20:21:17.504]                       else {
  [20:21:17.504]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.504]                           info, version)
  [20:21:17.504]                       }
  [20:21:17.504]                       stop(msg)
  [20:21:17.504]                     }
  [20:21:17.504]                   }
  [20:21:17.504]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.504]                   options(mc.cores = 1L)
  [20:21:17.504]                 }
  [20:21:17.504]                 local({
  [20:21:17.504]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.504]                     loadNamespace(pkg)
  [20:21:17.504]                     library(pkg, character.only = TRUE)
  [20:21:17.504]                   }
  [20:21:17.504]                 })
  [20:21:17.504]             }
  [20:21:17.504]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.504]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.504]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:17.504]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:17.504]                 ...) 
  [20:21:17.504]             {
  [20:21:17.504]                 if (substitute) 
  [20:21:17.504]                   expr <- substitute(expr)
  [20:21:17.504]                 if (is.function(workers)) 
  [20:21:17.504]                   workers <- workers()
  [20:21:17.504]                 workers <- as.integer(workers)
  [20:21:17.504]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:17.504]                   workers >= 1)
  [20:21:17.504]                 if (workers == 1L) {
  [20:21:17.504]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.504]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:17.504]                     local = TRUE, label = label, ...))
  [20:21:17.504]                 }
  [20:21:17.504]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:17.504]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:17.504]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.504]                   globals = globals, persistent = persistent, 
  [20:21:17.504]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:17.504]                   label = label, ...)
  [20:21:17.504]                 if (!future$lazy) 
  [20:21:17.504]                   future <- run(future)
  [20:21:17.504]                 invisible(future)
  [20:21:17.504]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.504]         }
  [20:21:17.504]     }
  [20:21:17.504]     if (is.na(TRUE)) {
  [20:21:17.504]     }
  [20:21:17.504]     else {
  [20:21:17.504]         if (TRUE) {
  [20:21:17.504]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.504]         }
  [20:21:17.504]         else {
  [20:21:17.504]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.504]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.504]         }
  [20:21:17.504]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.504]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.504]             sink(type = "output", split = FALSE)
  [20:21:17.504]             close(...future.stdout)
  [20:21:17.504]         }, add = TRUE)
  [20:21:17.504]     }
  [20:21:17.504]     ...future.frame <- sys.nframe()
  [20:21:17.504]     ...future.conditions <- list()
  [20:21:17.504]     ...future.result <- tryCatch({
  [20:21:17.504]         withCallingHandlers({
  [20:21:17.504]             ...future.value <- withVisible(local({
  [20:21:17.504]                 doFuture::registerDoFuture()
  [20:21:17.504]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.504]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.504]                   {
  [20:21:17.504]                     a <- NULL
  [20:21:17.504]                     b <- NULL
  [20:21:17.504]                   }
  [20:21:17.504]                   ...future.env <- environment()
  [20:21:17.504]                   local({
  [20:21:17.504]                     for (name in names(...future.x_jj)) {
  [20:21:17.504]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.504]                         inherits = FALSE)
  [20:21:17.504]                     }
  [20:21:17.504]                   })
  [20:21:17.504]                   tryCatch({
  [20:21:17.504]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.504]                       plan = future::plan())
  [20:21:17.504]                   }, error = identity)
  [20:21:17.504]                 })
  [20:21:17.504]             }))
  [20:21:17.504]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.504]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.504]                 version = "1.8")
  [20:21:17.504]         }, condition = local({
  [20:21:17.504]             inherits <- base::inherits
  [20:21:17.504]             invokeRestart <- base::invokeRestart
  [20:21:17.504]             length <- base::length
  [20:21:17.504]             seq.int <- base::seq.int
  [20:21:17.504]             sys.calls <- base::sys.calls
  [20:21:17.504]             `[[` <- base::`[[`
  [20:21:17.504]             `+` <- base::`+`
  [20:21:17.504]             `<<-` <- base::`<<-`
  [20:21:17.504]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.504]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.504]                   3L)]
  [20:21:17.504]             }
  [20:21:17.504]             function(cond) {
  [20:21:17.504]                 if (inherits(cond, "error")) {
  [20:21:17.504]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.504]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.504]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.504]                     signaled = 0L)
  [20:21:17.504]                   signalCondition(cond)
  [20:21:17.504]                 }
  [20:21:17.504]                 else if (inherits(cond, "condition")) {
  [20:21:17.504]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.504]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.504]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.504]                   if (!signal) {
  [20:21:17.504]                     muffleCondition <- function (cond) 
  [20:21:17.504]                     {
  [20:21:17.504]                       inherits <- base::inherits
  [20:21:17.504]                       invokeRestart <- base::invokeRestart
  [20:21:17.504]                       muffled <- FALSE
  [20:21:17.504]                       if (inherits(cond, "message")) {
  [20:21:17.504]                         invokeRestart("muffleMessage")
  [20:21:17.504]                         muffled <- TRUE
  [20:21:17.504]                       }
  [20:21:17.504]                       else if (inherits(cond, "warning")) {
  [20:21:17.504]                         invokeRestart("muffleWarning")
  [20:21:17.504]                         muffled <- TRUE
  [20:21:17.504]                       }
  [20:21:17.504]                       else if (inherits(cond, "condition")) {
  [20:21:17.504]                         computeRestarts <- base::computeRestarts
  [20:21:17.504]                         grepl <- base::grepl
  [20:21:17.504]                         is.null <- base::is.null
  [20:21:17.504]                         restarts <- computeRestarts(cond)
  [20:21:17.504]                         for (restart in restarts) {
  [20:21:17.504]                           name <- restart$name
  [20:21:17.504]                           if (is.null(name)) 
  [20:21:17.504]                             next
  [20:21:17.504]                           if (!grepl("^muffle", name)) 
  [20:21:17.504]                             next
  [20:21:17.504]                           invokeRestart(restart)
  [20:21:17.504]                           muffled <- TRUE
  [20:21:17.504]                           break
  [20:21:17.504]                         }
  [20:21:17.504]                       }
  [20:21:17.504]                       invisible(muffled)
  [20:21:17.504]                     }
  [20:21:17.504]                     muffleCondition(cond)
  [20:21:17.504]                   }
  [20:21:17.504]                 }
  [20:21:17.504]             }
  [20:21:17.504]         }))
  [20:21:17.504]     }, error = function(ex) {
  [20:21:17.504]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.504]             version = "1.8"), class = "FutureResult")
  [20:21:17.504]     }, finally = {
  [20:21:17.504]         {
  [20:21:17.504]             {
  [20:21:17.504]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.504]             }
  [20:21:17.504]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.504]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.504]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.504]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.504]             {
  [20:21:17.504]                 if (substitute) 
  [20:21:17.504]                   expr <- substitute(expr)
  [20:21:17.504]                 if (is.function(workers)) 
  [20:21:17.504]                   workers <- workers()
  [20:21:17.504]                 workers <- as.integer(workers)
  [20:21:17.504]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.504]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.504]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.504]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.504]                     local = TRUE, label = label, ...))
  [20:21:17.504]                 }
  [20:21:17.504]                 oopts <- options(mc.cores = workers)
  [20:21:17.504]                 on.exit(options(oopts))
  [20:21:17.504]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.504]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.504]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.504]                   label = label, ...)
  [20:21:17.504]                 if (!future$lazy) 
  [20:21:17.504]                   future <- run(future)
  [20:21:17.504]                 invisible(future)
  [20:21:17.504]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.504]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:17.504]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:21:17.504]                 label = NULL, ...) 
  [20:21:17.504]             {
  [20:21:17.504]                 if (substitute) 
  [20:21:17.504]                   expr <- substitute(expr)
  [20:21:17.504]                 if (is.function(workers)) 
  [20:21:17.504]                   workers <- workers()
  [20:21:17.504]                 workers <- as.integer(workers)
  [20:21:17.504]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:17.504]                   workers >= 1)
  [20:21:17.504]                 if (workers == 1L) {
  [20:21:17.504]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.504]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:17.504]                     local = TRUE, label = label, ...))
  [20:21:17.504]                 }
  [20:21:17.504]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:17.504]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:17.504]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.504]                   globals = globals, persistent = persistent, 
  [20:21:17.504]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:17.504]                   label = label, ...)
  [20:21:17.504]                 if (!future$lazy) 
  [20:21:17.504]                   future <- run(future)
  [20:21:17.504]                 invisible(future)
  [20:21:17.504]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.504]         }
  [20:21:17.504]         options(...future.oldOptions)
  [20:21:17.504]     })
  [20:21:17.504]     if (is.na(TRUE)) {
  [20:21:17.504]     }
  [20:21:17.504]     else {
  [20:21:17.504]         sink(type = "output", split = FALSE)
  [20:21:17.504]         if (TRUE) {
  [20:21:17.504]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.504]         }
  [20:21:17.504]         else {
  [20:21:17.504]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.504]         }
  [20:21:17.504]         close(...future.stdout)
  [20:21:17.504]         ...future.stdout <- NULL
  [20:21:17.504]     }
  [20:21:17.504]     ...future.result$conditions <- ...future.conditions
  [20:21:17.504]     ...future.result
  [20:21:17.504] }
  [20:21:17.525] requestCore(): workers = 2
  [20:21:17.529] MulticoreFuture started
  [20:21:17.530] Chunk #2 of 2 ... DONE
  [20:21:17.530] Launching 2 futures (chunks) ... DONE
  [20:21:17.531] - resolving futures
  [20:21:17.531]   - gathering results & relaying conditions (except errors)
  [20:21:17.531] resolve() on list ...
  [20:21:17.532]  recursive: 0
  [20:21:17.532]  length: 2
  [20:21:17.532] 
  [20:21:17.533] Future #1
  [20:21:17.536] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:17.536] - nx: 2
  [20:21:17.536] - relay: TRUE
  [20:21:17.537] - stdout: TRUE
  [20:21:17.537] - signal: TRUE
  [20:21:17.537] - resignal: FALSE
  [20:21:17.542] plan(): Setting new future strategy stack:
  [20:21:17.542] List of future strategies:
  [20:21:17.542] 1. multisession:
  [20:21:17.542]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.542]    - tweaked: FALSE
  [20:21:17.542]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.545] plan(): nbrOfWorkers() = 1
  [20:21:17.547] plan(): Setting new future strategy stack:
  [20:21:17.547] List of future strategies:
  [20:21:17.547] 1. multicore:
  [20:21:17.547]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.547]    - tweaked: FALSE
  [20:21:17.547]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.547] 2. multisession:
  [20:21:17.547]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.547]    - tweaked: FALSE
  [20:21:17.547]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.549] plan(): nbrOfWorkers() = 2
  [20:21:17.538] - force: FALSE
  [20:21:17.554] - relayed: [n=2] FALSE, FALSE
  [20:21:17.554] - queued futures: [n=2] FALSE, FALSE
  [20:21:17.555]  - until=1
  [20:21:17.555]  - relaying element #1
  [20:21:17.556] - relayed: [n=2] TRUE, FALSE
  [20:21:17.556] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.556] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:17.557]  length: 1 (resolved future 1)
  [20:21:17.557] Future #2
  [20:21:17.559] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:17.560] - nx: 2
  [20:21:17.560] - relay: TRUE
  [20:21:17.560] - stdout: TRUE
  [20:21:17.560] - signal: TRUE
  [20:21:17.561] - resignal: FALSE
  [20:21:17.561] - force: FALSE
  [20:21:17.561] - relayed: [n=2] TRUE, FALSE
  [20:21:17.562] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.562]  - until=2
  [20:21:17.562]  - relaying element #2
  [20:21:17.563] - relayed: [n=2] TRUE, TRUE
  [20:21:17.563] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.563] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:17.564]  length: 0 (resolved future 2)
  [20:21:17.564] Relaying remaining futures
  [20:21:17.564] signalConditionsASAP(NULL, pos=0) ...
  [20:21:17.564] - nx: 2
  [20:21:17.565] - relay: TRUE
  [20:21:17.565] - stdout: TRUE
  [20:21:17.565] - signal: TRUE
  [20:21:17.565] - resignal: FALSE
  [20:21:17.566] - force: FALSE
  [20:21:17.566] - relayed: [n=2] TRUE, TRUE
  [20:21:17.566] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:21:17.567] - relayed: [n=2] TRUE, TRUE
  [20:21:17.567] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.567] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:17.567] resolve() on list ... DONE
  [20:21:17.568] - collecting values of futures
  [20:21:17.568] - accumulating results
  [20:21:17.587] - processing errors (handler = 'stop')
  [20:21:17.587] - extracting results
  [20:21:17.588] doFuture() ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [20:21:17.589] plan(): Setting new future strategy stack:
  [20:21:17.589] List of future strategies:
  [20:21:17.589] 1. multicore:
  [20:21:17.589]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.589]    - tweaked: FALSE
  [20:21:17.589]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.589] 2. cluster:
  [20:21:17.589]    - 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, ...)
  [20:21:17.589]    - tweaked: FALSE
  [20:21:17.589]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.591] plan(): nbrOfWorkers() = 2
  [20:21:17.592] doFuture() ...
  [20:21:17.596] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:17.602] - R expression:
  [20:21:17.603] {
  [20:21:17.603]     doFuture::registerDoFuture()
  [20:21:17.603]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.603]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.603]         {
  [20:21:17.603]             a <- NULL
  [20:21:17.603]             b <- NULL
  [20:21:17.603]         }
  [20:21:17.603]         ...future.env <- environment()
  [20:21:17.603]         local({
  [20:21:17.603]             for (name in names(...future.x_jj)) {
  [20:21:17.603]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.603]                   inherits = FALSE)
  [20:21:17.603]             }
  [20:21:17.603]         })
  [20:21:17.603]         tryCatch({
  [20:21:17.603]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.603]                 plan = future::plan())
  [20:21:17.603]         }, error = identity)
  [20:21:17.603]     })
  [20:21:17.603] }
  [20:21:17.603] - identifying globals and packages ...
  [20:21:17.604] getGlobalsAndPackages() ...
  [20:21:17.604] Searching for globals...
  [20:21:17.621] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:17.621] Searching for globals ... DONE
  [20:21:17.622] Resolving globals: FALSE
  [20:21:17.623] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:17.624] - globals: [1] '...future.x_ii'
  [20:21:17.624] 
  [20:21:17.624] getGlobalsAndPackages() ... DONE
  [20:21:17.625] List of 1
  [20:21:17.625]  $ ...future.x_ii: NULL
  [20:21:17.625]  - attr(*, "where")=List of 1
  [20:21:17.625]   ..$ ...future.x_ii:<environment: 0x5651982a3f90> 
  [20:21:17.625]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.625]  - attr(*, "resolved")= logi FALSE
  [20:21:17.625]  - attr(*, "total_size")= num 0
  [20:21:17.632]   - R expression:
  [20:21:17.632] {
  [20:21:17.632]     doFuture::registerDoFuture()
  [20:21:17.632]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.632]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.632]         {
  [20:21:17.632]             a <- NULL
  [20:21:17.632]             b <- NULL
  [20:21:17.632]         }
  [20:21:17.632]         ...future.env <- environment()
  [20:21:17.632]         local({
  [20:21:17.632]             for (name in names(...future.x_jj)) {
  [20:21:17.632]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.632]                   inherits = FALSE)
  [20:21:17.632]             }
  [20:21:17.632]         })
  [20:21:17.632]         tryCatch({
  [20:21:17.632]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.632]                 plan = future::plan())
  [20:21:17.632]         }, error = identity)
  [20:21:17.632]     })
  [20:21:17.632] }
  [20:21:17.633]   - globals: [1] '...future.x_ii'
  [20:21:17.634] List of 1
  [20:21:17.634]  $ ...future.x_ii: NULL
  [20:21:17.634]  - attr(*, "where")=List of 1
  [20:21:17.634]   ..$ ...future.x_ii:<environment: 0x5651982a3f90> 
  [20:21:17.634]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:17.634]  - attr(*, "resolved")= logi FALSE
  [20:21:17.634]  - attr(*, "total_size")= num 0
  [20:21:17.639]   - packages: [1] 'doFuture'
  [20:21:17.639] - identifying globals and packages ... DONE
  [20:21:17.640] Number of chunks: 2
  [20:21:17.641] Number of futures (= number of chunks): 2
  [20:21:17.641] Launching 2 futures (chunks) ...
  [20:21:17.641] Chunk #1 of 2 ...
  [20:21:17.641]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:17.642] getGlobalsAndPackages() ...
  [20:21:17.642] Searching for globals...
  [20:21:17.643] 
  [20:21:17.643] Searching for globals ... DONE
  [20:21:17.643] - globals: [0] <none>
  [20:21:17.644] getGlobalsAndPackages() ... DONE
  [20:21:17.644] 
  [20:21:17.644] 
  [20:21:17.644]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:17.645] getGlobalsAndPackages() ...
  [20:21:17.646] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.646] Resolving globals: FALSE
  [20:21:17.647] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.647] - globals: [1] '...future.x_ii'
  [20:21:17.648] 
  [20:21:17.648] getGlobalsAndPackages() ... DONE
  [20:21:17.649] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.654] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.663] {
  [20:21:17.663]     {
  [20:21:17.663]         ...future.startTime <- Sys.time()
  [20:21:17.663]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.663]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.663]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.663]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.663]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.663]         {
  [20:21:17.663]             {
  [20:21:17.663]                 {
  [20:21:17.663]                   {
  [20:21:17.663]                     has_future <- requireNamespace("future", 
  [20:21:17.663]                       quietly = TRUE)
  [20:21:17.663]                     version <- if (has_future) 
  [20:21:17.663]                       packageVersion("future")
  [20:21:17.663]                     else NULL
  [20:21:17.663]                     if (!has_future || version < "1.8.0") {
  [20:21:17.663]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.663]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.663]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.663]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.663]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.663]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.663]                         info)
  [20:21:17.663]                       info <- paste(info, collapse = "; ")
  [20:21:17.663]                       if (!has_future) {
  [20:21:17.663]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.663]                           info)
  [20:21:17.663]                       }
  [20:21:17.663]                       else {
  [20:21:17.663]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.663]                           info, version)
  [20:21:17.663]                       }
  [20:21:17.663]                       stop(msg)
  [20:21:17.663]                     }
  [20:21:17.663]                   }
  [20:21:17.663]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.663]                   options(mc.cores = 1L)
  [20:21:17.663]                 }
  [20:21:17.663]                 local({
  [20:21:17.663]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.663]                     loadNamespace(pkg)
  [20:21:17.663]                     library(pkg, character.only = TRUE)
  [20:21:17.663]                   }
  [20:21:17.663]                 })
  [20:21:17.663]             }
  [20:21:17.663]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.663]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.663]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:21:17.663]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:21:17.663]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:17.663]                 ...) 
  [20:21:17.663]             {
  [20:21:17.663]                 if (substitute) 
  [20:21:17.663]                   expr <- substitute(expr)
  [20:21:17.663]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:17.663]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.663]                   globals = globals, persistent = persistent, 
  [20:21:17.663]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:17.663]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:17.663]                   label = label, ...)
  [20:21:17.663]                 if (!future$lazy) 
  [20:21:17.663]                   future <- run(future)
  [20:21:17.663]                 invisible(future)
  [20:21:17.663]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.663]         }
  [20:21:17.663]     }
  [20:21:17.663]     if (is.na(TRUE)) {
  [20:21:17.663]     }
  [20:21:17.663]     else {
  [20:21:17.663]         if (TRUE) {
  [20:21:17.663]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.663]         }
  [20:21:17.663]         else {
  [20:21:17.663]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.663]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.663]         }
  [20:21:17.663]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.663]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.663]             sink(type = "output", split = FALSE)
  [20:21:17.663]             close(...future.stdout)
  [20:21:17.663]         }, add = TRUE)
  [20:21:17.663]     }
  [20:21:17.663]     ...future.frame <- sys.nframe()
  [20:21:17.663]     ...future.conditions <- list()
  [20:21:17.663]     ...future.result <- tryCatch({
  [20:21:17.663]         withCallingHandlers({
  [20:21:17.663]             ...future.value <- withVisible(local({
  [20:21:17.663]                 doFuture::registerDoFuture()
  [20:21:17.663]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.663]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.663]                   {
  [20:21:17.663]                     a <- NULL
  [20:21:17.663]                     b <- NULL
  [20:21:17.663]                   }
  [20:21:17.663]                   ...future.env <- environment()
  [20:21:17.663]                   local({
  [20:21:17.663]                     for (name in names(...future.x_jj)) {
  [20:21:17.663]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.663]                         inherits = FALSE)
  [20:21:17.663]                     }
  [20:21:17.663]                   })
  [20:21:17.663]                   tryCatch({
  [20:21:17.663]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.663]                       plan = future::plan())
  [20:21:17.663]                   }, error = identity)
  [20:21:17.663]                 })
  [20:21:17.663]             }))
  [20:21:17.663]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.663]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.663]                 version = "1.8")
  [20:21:17.663]         }, condition = local({
  [20:21:17.663]             inherits <- base::inherits
  [20:21:17.663]             invokeRestart <- base::invokeRestart
  [20:21:17.663]             length <- base::length
  [20:21:17.663]             seq.int <- base::seq.int
  [20:21:17.663]             sys.calls <- base::sys.calls
  [20:21:17.663]             `[[` <- base::`[[`
  [20:21:17.663]             `+` <- base::`+`
  [20:21:17.663]             `<<-` <- base::`<<-`
  [20:21:17.663]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.663]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.663]                   3L)]
  [20:21:17.663]             }
  [20:21:17.663]             function(cond) {
  [20:21:17.663]                 if (inherits(cond, "error")) {
  [20:21:17.663]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.663]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.663]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.663]                     signaled = 0L)
  [20:21:17.663]                   signalCondition(cond)
  [20:21:17.663]                 }
  [20:21:17.663]                 else if (inherits(cond, "condition")) {
  [20:21:17.663]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.663]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.663]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.663]                   if (!signal) {
  [20:21:17.663]                     muffleCondition <- function (cond) 
  [20:21:17.663]                     {
  [20:21:17.663]                       inherits <- base::inherits
  [20:21:17.663]                       invokeRestart <- base::invokeRestart
  [20:21:17.663]                       muffled <- FALSE
  [20:21:17.663]                       if (inherits(cond, "message")) {
  [20:21:17.663]                         invokeRestart("muffleMessage")
  [20:21:17.663]                         muffled <- TRUE
  [20:21:17.663]                       }
  [20:21:17.663]                       else if (inherits(cond, "warning")) {
  [20:21:17.663]                         invokeRestart("muffleWarning")
  [20:21:17.663]                         muffled <- TRUE
  [20:21:17.663]                       }
  [20:21:17.663]                       else if (inherits(cond, "condition")) {
  [20:21:17.663]                         computeRestarts <- base::computeRestarts
  [20:21:17.663]                         grepl <- base::grepl
  [20:21:17.663]                         is.null <- base::is.null
  [20:21:17.663]                         restarts <- computeRestarts(cond)
  [20:21:17.663]                         for (restart in restarts) {
  [20:21:17.663]                           name <- restart$name
  [20:21:17.663]                           if (is.null(name)) 
  [20:21:17.663]                             next
  [20:21:17.663]                           if (!grepl("^muffle", name)) 
  [20:21:17.663]                             next
  [20:21:17.663]                           invokeRestart(restart)
  [20:21:17.663]                           muffled <- TRUE
  [20:21:17.663]                           break
  [20:21:17.663]                         }
  [20:21:17.663]                       }
  [20:21:17.663]                       invisible(muffled)
  [20:21:17.663]                     }
  [20:21:17.663]                     muffleCondition(cond)
  [20:21:17.663]                   }
  [20:21:17.663]                 }
  [20:21:17.663]             }
  [20:21:17.663]         }))
  [20:21:17.663]     }, error = function(ex) {
  [20:21:17.663]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.663]             version = "1.8"), class = "FutureResult")
  [20:21:17.663]     }, finally = {
  [20:21:17.663]         {
  [20:21:17.663]             {
  [20:21:17.663]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.663]             }
  [20:21:17.663]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.663]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.663]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.663]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.663]             {
  [20:21:17.663]                 if (substitute) 
  [20:21:17.663]                   expr <- substitute(expr)
  [20:21:17.663]                 if (is.function(workers)) 
  [20:21:17.663]                   workers <- workers()
  [20:21:17.663]                 workers <- as.integer(workers)
  [20:21:17.663]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.663]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.663]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.663]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.663]                     local = TRUE, label = label, ...))
  [20:21:17.663]                 }
  [20:21:17.663]                 oopts <- options(mc.cores = workers)
  [20:21:17.663]                 on.exit(options(oopts))
  [20:21:17.663]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.663]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.663]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.663]                   label = label, ...)
  [20:21:17.663]                 if (!future$lazy) 
  [20:21:17.663]                   future <- run(future)
  [20:21:17.663]                 invisible(future)
  [20:21:17.663]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.663]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:17.663]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:21:17.663]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:21:17.663]                 label = NULL, ...) 
  [20:21:17.663]             {
  [20:21:17.663]                 if (substitute) 
  [20:21:17.663]                   expr <- substitute(expr)
  [20:21:17.663]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:17.663]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.663]                   globals = globals, persistent = persistent, 
  [20:21:17.663]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:17.663]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:17.663]                   label = label, ...)
  [20:21:17.663]                 if (!future$lazy) 
  [20:21:17.663]                   future <- run(future)
  [20:21:17.663]                 invisible(future)
  [20:21:17.663]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.663]         }
  [20:21:17.663]         options(...future.oldOptions)
  [20:21:17.663]     })
  [20:21:17.663]     if (is.na(TRUE)) {
  [20:21:17.663]     }
  [20:21:17.663]     else {
  [20:21:17.663]         sink(type = "output", split = FALSE)
  [20:21:17.663]         if (TRUE) {
  [20:21:17.663]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.663]         }
  [20:21:17.663]         else {
  [20:21:17.663]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.663]         }
  [20:21:17.663]         close(...future.stdout)
  [20:21:17.663]         ...future.stdout <- NULL
  [20:21:17.663]     }
  [20:21:17.663]     ...future.result$conditions <- ...future.conditions
  [20:21:17.663]     ...future.result
  [20:21:17.663] }
  [20:21:17.668] requestCore(): workers = 2
  [20:21:17.672] MulticoreFuture started
  [20:21:17.673] Chunk #1 of 2 ... DONE
  [20:21:17.673] Chunk #2 of 2 ...
  [20:21:17.674]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:17.674] getGlobalsAndPackages() ...
  [20:21:17.675] Searching for globals...
  [20:21:17.676] 
  [20:21:17.677] Searching for globals ... DONE
  [20:21:17.677] - globals: [0] <none>
  [20:21:17.677] getGlobalsAndPackages() ... DONE
  [20:21:17.678] 
  [20:21:17.678] 
  [20:21:17.679]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:17.681] getGlobalsAndPackages() ...
  [20:21:17.681] - globals passed as-is: [1] '...future.x_ii'
  [20:21:17.682] Resolving globals: FALSE
  [20:21:17.683] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:17.683] - globals: [1] '...future.x_ii'
  [20:21:17.684] 
  [20:21:17.684] getGlobalsAndPackages() ... DONE
  [20:21:17.687] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:17.687] Packages needed by future strategies (n = 1): 'future'
  [20:21:17.693] {
  [20:21:17.693]     {
  [20:21:17.693]         ...future.startTime <- Sys.time()
  [20:21:17.693]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:17.693]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:17.693]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:17.693]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:17.693]             future.resolve.recursive = NULL, width = 80L)
  [20:21:17.693]         {
  [20:21:17.693]             {
  [20:21:17.693]                 {
  [20:21:17.693]                   {
  [20:21:17.693]                     has_future <- requireNamespace("future", 
  [20:21:17.693]                       quietly = TRUE)
  [20:21:17.693]                     version <- if (has_future) 
  [20:21:17.693]                       packageVersion("future")
  [20:21:17.693]                     else NULL
  [20:21:17.693]                     if (!has_future || version < "1.8.0") {
  [20:21:17.693]                       info <- c(r_version = gsub("R version ", 
  [20:21:17.693]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:17.693]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:17.693]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:17.693]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:17.693]                       info <- sprintf("%s: %s", names(info), 
  [20:21:17.693]                         info)
  [20:21:17.693]                       info <- paste(info, collapse = "; ")
  [20:21:17.693]                       if (!has_future) {
  [20:21:17.693]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:17.693]                           info)
  [20:21:17.693]                       }
  [20:21:17.693]                       else {
  [20:21:17.693]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:17.693]                           info, version)
  [20:21:17.693]                       }
  [20:21:17.693]                       stop(msg)
  [20:21:17.693]                     }
  [20:21:17.693]                   }
  [20:21:17.693]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:17.693]                   options(mc.cores = 1L)
  [20:21:17.693]                 }
  [20:21:17.693]                 local({
  [20:21:17.693]                   for (pkg in c("doFuture", "future")) {
  [20:21:17.693]                     loadNamespace(pkg)
  [20:21:17.693]                     library(pkg, character.only = TRUE)
  [20:21:17.693]                   }
  [20:21:17.693]                 })
  [20:21:17.693]             }
  [20:21:17.693]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:17.693]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.693]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:21:17.693]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:21:17.693]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:17.693]                 ...) 
  [20:21:17.693]             {
  [20:21:17.693]                 if (substitute) 
  [20:21:17.693]                   expr <- substitute(expr)
  [20:21:17.693]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:17.693]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.693]                   globals = globals, persistent = persistent, 
  [20:21:17.693]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:17.693]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:17.693]                   label = label, ...)
  [20:21:17.693]                 if (!future$lazy) 
  [20:21:17.693]                   future <- run(future)
  [20:21:17.693]                 invisible(future)
  [20:21:17.693]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.693]         }
  [20:21:17.693]     }
  [20:21:17.693]     if (is.na(TRUE)) {
  [20:21:17.693]     }
  [20:21:17.693]     else {
  [20:21:17.693]         if (TRUE) {
  [20:21:17.693]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:17.693]         }
  [20:21:17.693]         else {
  [20:21:17.693]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:17.693]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:17.693]         }
  [20:21:17.693]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:17.693]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:17.693]             sink(type = "output", split = FALSE)
  [20:21:17.693]             close(...future.stdout)
  [20:21:17.693]         }, add = TRUE)
  [20:21:17.693]     }
  [20:21:17.693]     ...future.frame <- sys.nframe()
  [20:21:17.693]     ...future.conditions <- list()
  [20:21:17.693]     ...future.result <- tryCatch({
  [20:21:17.693]         withCallingHandlers({
  [20:21:17.693]             ...future.value <- withVisible(local({
  [20:21:17.693]                 doFuture::registerDoFuture()
  [20:21:17.693]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:17.693]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:17.693]                   {
  [20:21:17.693]                     a <- NULL
  [20:21:17.693]                     b <- NULL
  [20:21:17.693]                   }
  [20:21:17.693]                   ...future.env <- environment()
  [20:21:17.693]                   local({
  [20:21:17.693]                     for (name in names(...future.x_jj)) {
  [20:21:17.693]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:17.693]                         inherits = FALSE)
  [20:21:17.693]                     }
  [20:21:17.693]                   })
  [20:21:17.693]                   tryCatch({
  [20:21:17.693]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:17.693]                       plan = future::plan())
  [20:21:17.693]                   }, error = identity)
  [20:21:17.693]                 })
  [20:21:17.693]             }))
  [20:21:17.693]             future::FutureResult(value = ...future.value$value, 
  [20:21:17.693]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:17.693]                 version = "1.8")
  [20:21:17.693]         }, condition = local({
  [20:21:17.693]             inherits <- base::inherits
  [20:21:17.693]             invokeRestart <- base::invokeRestart
  [20:21:17.693]             length <- base::length
  [20:21:17.693]             seq.int <- base::seq.int
  [20:21:17.693]             sys.calls <- base::sys.calls
  [20:21:17.693]             `[[` <- base::`[[`
  [20:21:17.693]             `+` <- base::`+`
  [20:21:17.693]             `<<-` <- base::`<<-`
  [20:21:17.693]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:17.693]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:17.693]                   3L)]
  [20:21:17.693]             }
  [20:21:17.693]             function(cond) {
  [20:21:17.693]                 if (inherits(cond, "error")) {
  [20:21:17.693]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.693]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:17.693]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:17.693]                     signaled = 0L)
  [20:21:17.693]                   signalCondition(cond)
  [20:21:17.693]                 }
  [20:21:17.693]                 else if (inherits(cond, "condition")) {
  [20:21:17.693]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:17.693]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:17.693]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:17.693]                   if (!signal) {
  [20:21:17.693]                     muffleCondition <- function (cond) 
  [20:21:17.693]                     {
  [20:21:17.693]                       inherits <- base::inherits
  [20:21:17.693]                       invokeRestart <- base::invokeRestart
  [20:21:17.693]                       muffled <- FALSE
  [20:21:17.693]                       if (inherits(cond, "message")) {
  [20:21:17.693]                         invokeRestart("muffleMessage")
  [20:21:17.693]                         muffled <- TRUE
  [20:21:17.693]                       }
  [20:21:17.693]                       else if (inherits(cond, "warning")) {
  [20:21:17.693]                         invokeRestart("muffleWarning")
  [20:21:17.693]                         muffled <- TRUE
  [20:21:17.693]                       }
  [20:21:17.693]                       else if (inherits(cond, "condition")) {
  [20:21:17.693]                         computeRestarts <- base::computeRestarts
  [20:21:17.693]                         grepl <- base::grepl
  [20:21:17.693]                         is.null <- base::is.null
  [20:21:17.693]                         restarts <- computeRestarts(cond)
  [20:21:17.693]                         for (restart in restarts) {
  [20:21:17.693]                           name <- restart$name
  [20:21:17.693]                           if (is.null(name)) 
  [20:21:17.693]                             next
  [20:21:17.693]                           if (!grepl("^muffle", name)) 
  [20:21:17.693]                             next
  [20:21:17.693]                           invokeRestart(restart)
  [20:21:17.693]                           muffled <- TRUE
  [20:21:17.693]                           break
  [20:21:17.693]                         }
  [20:21:17.693]                       }
  [20:21:17.693]                       invisible(muffled)
  [20:21:17.693]                     }
  [20:21:17.693]                     muffleCondition(cond)
  [20:21:17.693]                   }
  [20:21:17.693]                 }
  [20:21:17.693]             }
  [20:21:17.693]         }))
  [20:21:17.693]     }, error = function(ex) {
  [20:21:17.693]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:17.693]             version = "1.8"), class = "FutureResult")
  [20:21:17.693]     }, finally = {
  [20:21:17.693]         {
  [20:21:17.693]             {
  [20:21:17.693]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:17.693]             }
  [20:21:17.693]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:17.693]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:17.693]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:17.693]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:17.693]             {
  [20:21:17.693]                 if (substitute) 
  [20:21:17.693]                   expr <- substitute(expr)
  [20:21:17.693]                 if (is.function(workers)) 
  [20:21:17.693]                   workers <- workers()
  [20:21:17.693]                 workers <- as.integer(workers)
  [20:21:17.693]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:17.693]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:17.693]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:17.693]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:17.693]                     local = TRUE, label = label, ...))
  [20:21:17.693]                 }
  [20:21:17.693]                 oopts <- options(mc.cores = workers)
  [20:21:17.693]                 on.exit(options(oopts))
  [20:21:17.693]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:17.693]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.693]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:17.693]                   label = label, ...)
  [20:21:17.693]                 if (!future$lazy) 
  [20:21:17.693]                   future <- run(future)
  [20:21:17.693]                 invisible(future)
  [20:21:17.693]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:17.693]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:17.693]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:21:17.693]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:21:17.693]                 label = NULL, ...) 
  [20:21:17.693]             {
  [20:21:17.693]                 if (substitute) 
  [20:21:17.693]                   expr <- substitute(expr)
  [20:21:17.693]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:21:17.693]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:17.693]                   globals = globals, persistent = persistent, 
  [20:21:17.693]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:21:17.693]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:21:17.693]                   label = label, ...)
  [20:21:17.693]                 if (!future$lazy) 
  [20:21:17.693]                   future <- run(future)
  [20:21:17.693]                 invisible(future)
  [20:21:17.693]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:17.693]         }
  [20:21:17.693]         options(...future.oldOptions)
  [20:21:17.693]     })
  [20:21:17.693]     if (is.na(TRUE)) {
  [20:21:17.693]     }
  [20:21:17.693]     else {
  [20:21:17.693]         sink(type = "output", split = FALSE)
  [20:21:17.693]         if (TRUE) {
  [20:21:17.693]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:17.693]         }
  [20:21:17.693]         else {
  [20:21:17.693]             ...future.result["stdout"] <- list(NULL)
  [20:21:17.693]         }
  [20:21:17.693]         close(...future.stdout)
  [20:21:17.693]         ...future.stdout <- NULL
  [20:21:17.693]     }
  [20:21:17.693]     ...future.result$conditions <- ...future.conditions
  [20:21:17.693]     ...future.result
  [20:21:17.693] }
  [20:21:17.699] requestCore(): workers = 2
  [20:21:17.702] MulticoreFuture started
  [20:21:17.703] Chunk #2 of 2 ... DONE
  [20:21:17.704] Launching 2 futures (chunks) ... DONE
  [20:21:17.704] - resolving futures
  [20:21:17.705]   - gathering results & relaying conditions (except errors)
  [20:21:17.705] resolve() on list ...
  [20:21:17.705]  recursive: 0
  [20:21:17.706]  length: 2
  [20:21:17.706] 
  [20:21:17.718] plan(): Setting new future strategy stack:
  [20:21:17.718] List of future strategies:
  [20:21:17.718] 1. cluster:
  [20:21:17.718]    - 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, ...)
  [20:21:17.718]    - tweaked: FALSE
  [20:21:17.718]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.721] plan(): nbrOfWorkers() = 1
  [20:21:17.722] plan(): Setting new future strategy stack:
  [20:21:17.723] plan(): Setting new future strategy stack:
  [20:21:17.723] List of future strategies:
  [20:21:17.723] 1. multicore:
  [20:21:17.723]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.723]    - tweaked: FALSE
  [20:21:17.723]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.723] 2. cluster:
  [20:21:17.723]    - 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, ...)
  [20:21:17.723]    - tweaked: FALSE
  [20:21:17.723]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.723] List of future strategies:
  [20:21:17.723] 1. cluster:
  [20:21:17.723]    - 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, ...)
  [20:21:17.723]    - tweaked: FALSE
  [20:21:17.723]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.725] plan(): nbrOfWorkers() = 2
  [20:21:17.726] Future #1
  [20:21:17.726] plan(): nbrOfWorkers() = 1
  [20:21:17.728] plan(): Setting new future strategy stack:
  [20:21:17.729] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:17.729] - nx: 2
  [20:21:17.729] - relay: TRUE
  [20:21:17.728] List of future strategies:
  [20:21:17.728] 1. multicore:
  [20:21:17.728]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:17.728]    - tweaked: FALSE
  [20:21:17.728]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.728] 2. cluster:
  [20:21:17.728]    - 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, ...)
  [20:21:17.728]    - tweaked: FALSE
  [20:21:17.728]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.729] - stdout: TRUE
  [20:21:17.730] - signal: TRUE
  [20:21:17.730] - resignal: FALSE
  [20:21:17.730] plan(): nbrOfWorkers() = 2
  [20:21:17.730] - force: FALSE
  [20:21:17.731] - relayed: [n=2] FALSE, FALSE
  [20:21:17.731] - queued futures: [n=2] FALSE, FALSE
  [20:21:17.731]  - until=1
  [20:21:17.732]  - relaying element #1
  [20:21:17.732] - relayed: [n=2] TRUE, FALSE
  [20:21:17.733] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.733] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:17.733]  length: 1 (resolved future 1)
  [20:21:17.734] Future #2
  [20:21:17.736] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:17.736] - nx: 2
  [20:21:17.737] - relay: TRUE
  [20:21:17.737] - stdout: TRUE
  [20:21:17.737] - signal: TRUE
  [20:21:17.738] - resignal: FALSE
  [20:21:17.738] - force: FALSE
  [20:21:17.738] - relayed: [n=2] TRUE, FALSE
  [20:21:17.738] - queued futures: [n=2] TRUE, FALSE
  [20:21:17.739]  - until=2
  [20:21:17.739]  - relaying element #2
  [20:21:17.740] - relayed: [n=2] TRUE, TRUE
  [20:21:17.740] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.740] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:17.741]  length: 0 (resolved future 2)
  [20:21:17.741] Relaying remaining futures
  [20:21:17.741] signalConditionsASAP(NULL, pos=0) ...
  [20:21:17.741] - nx: 2
  [20:21:17.758] - relay: TRUE
  [20:21:17.758] - stdout: TRUE
  [20:21:17.758] - signal: TRUE
  [20:21:17.759] - resignal: FALSE
  [20:21:17.759] - force: FALSE
  [20:21:17.759] - relayed: [n=2] TRUE, TRUE
  [20:21:17.759] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:21:17.760] - relayed: [n=2] TRUE, TRUE
  [20:21:17.760] - queued futures: [n=2] TRUE, TRUE
  [20:21:17.760] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:17.761] resolve() on list ... DONE
  [20:21:17.761] - collecting values of futures
  [20:21:17.761] - accumulating results
  [20:21:17.764] - processing errors (handler = 'stop')
  [20:21:17.764] - extracting results
  [20:21:17.764] doFuture() ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [20:21:17.766] plan(): Setting new future strategy stack:
  [20:21:17.766] List of future strategies:
  [20:21:17.766] 1. multisession:
  [20:21:17.766]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.766]    - tweaked: FALSE
  [20:21:17.766]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.766] 2. sequential:
  [20:21:17.766]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.766]    - tweaked: FALSE
  [20:21:17.766]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:17.767] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:21:17.768] multisession:
  [20:21:17.768] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:17.768] - tweaked: FALSE
  [20:21:17.768] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 24162
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd403399a5.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd403399a5.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:32765:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd403399a5.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24162 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd520e49f2.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd520e49f2.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:32765:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd520e49f2.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24162 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:21:35.720] getGlobalsAndPackages() ...
  [20:21:35.720] Not searching for globals
  [20:21:35.721] - globals: [0] <none>
  [20:21:35.721] getGlobalsAndPackages() ... DONE
  [20:21:35.724] Packages needed by the future expression (n = 0): <none>
  [20:21:35.724] Packages needed by future strategies (n = 1): 'future'
  [20:21:35.745] {
  [20:21:35.745]     {
  [20:21:35.745]         ...future.startTime <- Sys.time()
  [20:21:35.745]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:35.745]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:35.745]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:35.745]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:35.745]             future.resolve.recursive = NULL, width = 80L)
  [20:21:35.745]         {
  [20:21:35.745]             {
  [20:21:35.745]                 {
  [20:21:35.745]                   {
  [20:21:35.745]                     has_future <- requireNamespace("future", 
  [20:21:35.745]                       quietly = TRUE)
  [20:21:35.745]                     version <- if (has_future) 
  [20:21:35.745]                       packageVersion("future")
  [20:21:35.745]                     else NULL
  [20:21:35.745]                     if (!has_future || version < "1.8.0") {
  [20:21:35.745]                       info <- c(r_version = gsub("R version ", 
  [20:21:35.745]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:35.745]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:35.745]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:35.745]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:35.745]                       info <- sprintf("%s: %s", names(info), 
  [20:21:35.745]                         info)
  [20:21:35.745]                       info <- paste(info, collapse = "; ")
  [20:21:35.745]                       if (!has_future) {
  [20:21:35.745]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:35.745]                           info)
  [20:21:35.745]                       }
  [20:21:35.745]                       else {
  [20:21:35.745]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:35.745]                           info, version)
  [20:21:35.745]                       }
  [20:21:35.745]                       stop(msg)
  [20:21:35.745]                     }
  [20:21:35.745]                   }
  [20:21:35.745]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:35.745]                   options(mc.cores = 1L)
  [20:21:35.745]                 }
  [20:21:35.745]                 local({
  [20:21:35.745]                   for (pkg in "future") {
  [20:21:35.745]                     loadNamespace(pkg)
  [20:21:35.745]                     library(pkg, character.only = TRUE)
  [20:21:35.745]                   }
  [20:21:35.745]                 })
  [20:21:35.745]             }
  [20:21:35.745]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:35.745]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:35.745]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:35.745]                 label = NULL, ...) 
  [20:21:35.745]             {
  [20:21:35.745]                 if (substitute) 
  [20:21:35.745]                   expr <- substitute(expr)
  [20:21:35.745]                 local <- as.logical(local)
  [20:21:35.745]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:35.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:35.745]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:35.745]                   label = label, ...)
  [20:21:35.745]                 if (!future$lazy) 
  [20:21:35.745]                   future <- run(future)
  [20:21:35.745]                 invisible(future)
  [20:21:35.745]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:35.745]         }
  [20:21:35.745]     }
  [20:21:35.745]     if (is.na(TRUE)) {
  [20:21:35.745]     }
  [20:21:35.745]     else {
  [20:21:35.745]         if (TRUE) {
  [20:21:35.745]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:35.745]         }
  [20:21:35.745]         else {
  [20:21:35.745]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:35.745]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:35.745]         }
  [20:21:35.745]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:35.745]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:35.745]             sink(type = "output", split = FALSE)
  [20:21:35.745]             close(...future.stdout)
  [20:21:35.745]         }, add = TRUE)
  [20:21:35.745]     }
  [20:21:35.745]     ...future.frame <- sys.nframe()
  [20:21:35.745]     ...future.conditions <- list()
  [20:21:35.745]     ...future.result <- tryCatch({
  [20:21:35.745]         withCallingHandlers({
  [20:21:35.745]             ...future.value <- withVisible(local(NA))
  [20:21:35.745]             future::FutureResult(value = ...future.value$value, 
  [20:21:35.745]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:35.745]                 version = "1.8")
  [20:21:35.745]         }, condition = local({
  [20:21:35.745]             inherits <- base::inherits
  [20:21:35.745]             invokeRestart <- base::invokeRestart
  [20:21:35.745]             length <- base::length
  [20:21:35.745]             seq.int <- base::seq.int
  [20:21:35.745]             sys.calls <- base::sys.calls
  [20:21:35.745]             `[[` <- base::`[[`
  [20:21:35.745]             `+` <- base::`+`
  [20:21:35.745]             `<<-` <- base::`<<-`
  [20:21:35.745]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:35.745]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:35.745]                   3L)]
  [20:21:35.745]             }
  [20:21:35.745]             function(cond) {
  [20:21:35.745]                 if (inherits(cond, "error")) {
  [20:21:35.745]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:35.745]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:35.745]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:35.745]                     signaled = 0L)
  [20:21:35.745]                   signalCondition(cond)
  [20:21:35.745]                 }
  [20:21:35.745]                 else if (inherits(cond, "condition")) {
  [20:21:35.745]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:35.745]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:35.745]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:35.745]                   if (!signal) {
  [20:21:35.745]                     muffleCondition <- function (cond) 
  [20:21:35.745]                     {
  [20:21:35.745]                       inherits <- base::inherits
  [20:21:35.745]                       invokeRestart <- base::invokeRestart
  [20:21:35.745]                       muffled <- FALSE
  [20:21:35.745]                       if (inherits(cond, "message")) {
  [20:21:35.745]                         invokeRestart("muffleMessage")
  [20:21:35.745]                         muffled <- TRUE
  [20:21:35.745]                       }
  [20:21:35.745]                       else if (inherits(cond, "warning")) {
  [20:21:35.745]                         invokeRestart("muffleWarning")
  [20:21:35.745]                         muffled <- TRUE
  [20:21:35.745]                       }
  [20:21:35.745]                       else if (inherits(cond, "condition")) {
  [20:21:35.745]                         computeRestarts <- base::computeRestarts
  [20:21:35.745]                         grepl <- base::grepl
  [20:21:35.745]                         is.null <- base::is.null
  [20:21:35.745]                         restarts <- computeRestarts(cond)
  [20:21:35.745]                         for (restart in restarts) {
  [20:21:35.745]                           name <- restart$name
  [20:21:35.745]                           if (is.null(name)) 
  [20:21:35.745]                             next
  [20:21:35.745]                           if (!grepl("^muffle", name)) 
  [20:21:35.745]                             next
  [20:21:35.745]                           invokeRestart(restart)
  [20:21:35.745]                           muffled <- TRUE
  [20:21:35.745]                           break
  [20:21:35.745]                         }
  [20:21:35.745]                       }
  [20:21:35.745]                       invisible(muffled)
  [20:21:35.745]                     }
  [20:21:35.745]                     muffleCondition(cond)
  [20:21:35.745]                   }
  [20:21:35.745]                 }
  [20:21:35.745]             }
  [20:21:35.745]         }))
  [20:21:35.745]     }, error = function(ex) {
  [20:21:35.745]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:35.745]             version = "1.8"), class = "FutureResult")
  [20:21:35.745]     }, finally = {
  [20:21:35.745]         {
  [20:21:35.745]             {
  [20:21:35.745]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:35.745]             }
  [20:21:35.745]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:35.745]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:35.745]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:35.745]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:35.745]                 ...) 
  [20:21:35.745]             {
  [20:21:35.745]                 if (substitute) 
  [20:21:35.745]                   expr <- substitute(expr)
  [20:21:35.745]                 if (is.function(workers)) 
  [20:21:35.745]                   workers <- workers()
  [20:21:35.745]                 workers <- as.integer(workers)
  [20:21:35.745]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:35.745]                   workers >= 1)
  [20:21:35.745]                 if (workers == 1L) {
  [20:21:35.745]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:35.745]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:35.745]                     local = TRUE, label = label, ...))
  [20:21:35.745]                 }
  [20:21:35.745]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:35.745]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:35.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:35.745]                   globals = globals, persistent = persistent, 
  [20:21:35.745]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:35.745]                   label = label, ...)
  [20:21:35.745]                 if (!future$lazy) 
  [20:21:35.745]                   future <- run(future)
  [20:21:35.745]                 invisible(future)
  [20:21:35.745]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:35.745]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:35.745]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:35.745]             {
  [20:21:35.745]                 if (substitute) 
  [20:21:35.745]                   expr <- substitute(expr)
  [20:21:35.745]                 local <- as.logical(local)
  [20:21:35.745]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:35.745]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:35.745]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:35.745]                   label = label, ...)
  [20:21:35.745]                 if (!future$lazy) 
  [20:21:35.745]                   future <- run(future)
  [20:21:35.745]                 invisible(future)
  [20:21:35.745]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:35.745]         }
  [20:21:35.745]         options(...future.oldOptions)
  [20:21:35.745]     })
  [20:21:35.745]     if (is.na(TRUE)) {
  [20:21:35.745]     }
  [20:21:35.745]     else {
  [20:21:35.745]         sink(type = "output", split = FALSE)
  [20:21:35.745]         if (TRUE) {
  [20:21:35.745]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:35.745]         }
  [20:21:35.745]         else {
  [20:21:35.745]             ...future.result["stdout"] <- list(NULL)
  [20:21:35.745]         }
  [20:21:35.745]         close(...future.stdout)
  [20:21:35.745]         ...future.stdout <- NULL
  [20:21:35.745]     }
  [20:21:35.745]     ...future.result$conditions <- ...future.conditions
  [20:21:35.745]     ...future.result
  [20:21:35.745] }
  [20:21:35.752] MultisessionFuture started
  [20:21:35.753] result() for ClusterFuture ...
  [20:21:35.754] - Validating connection of MultisessionFuture
  [20:21:35.965] - class(result): FutureResult
  [20:21:35.966] result() for ClusterFuture ...
  [20:21:35.966] - result already collected: FutureResult
  [20:21:35.966] result() for ClusterFuture ... done
  [20:21:35.967] result() for ClusterFuture ... done
  [20:21:35.967] result() for ClusterFuture ...
  [20:21:35.967] - result already collected: FutureResult
  [20:21:35.968] result() for ClusterFuture ... done
  [20:21:35.968] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:21:35.969] plan(): nbrOfWorkers() = 2
  [20:21:35.969] doFuture() ...
  [20:21:35.973] - dummy globals (as locals): [2] 'a', 'b'
  [20:21:35.974] - R expression:
  [20:21:35.974] {
  [20:21:35.974]     doFuture::registerDoFuture()
  [20:21:35.974]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:35.974]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:35.974]         {
  [20:21:35.974]             a <- NULL
  [20:21:35.974]             b <- NULL
  [20:21:35.974]         }
  [20:21:35.974]         ...future.env <- environment()
  [20:21:35.974]         local({
  [20:21:35.974]             for (name in names(...future.x_jj)) {
  [20:21:35.974]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:35.974]                   inherits = FALSE)
  [20:21:35.974]             }
  [20:21:35.974]         })
  [20:21:35.974]         tryCatch({
  [20:21:35.974]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:35.974]                 plan = future::plan())
  [20:21:35.974]         }, error = identity)
  [20:21:35.974]     })
  [20:21:35.974] }
  [20:21:35.975] - identifying globals and packages ...
  [20:21:35.976] getGlobalsAndPackages() ...
  [20:21:35.976] Searching for globals...
  [20:21:36.031] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:21:36.032] Searching for globals ... DONE
  [20:21:36.032] Resolving globals: FALSE
  [20:21:36.033] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:36.034] - globals: [1] '...future.x_ii'
  [20:21:36.034] 
  [20:21:36.034] getGlobalsAndPackages() ... DONE
  [20:21:36.035] List of 1
  [20:21:36.035]  $ ...future.x_ii: NULL
  [20:21:36.035]  - attr(*, "where")=List of 1
  [20:21:36.035]   ..$ ...future.x_ii:<environment: 0x5651981b3a40> 
  [20:21:36.035]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:36.035]  - attr(*, "resolved")= logi FALSE
  [20:21:36.035]  - attr(*, "total_size")= num 0
  [20:21:36.057]   - R expression:
  [20:21:36.058] {
  [20:21:36.058]     doFuture::registerDoFuture()
  [20:21:36.058]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:36.058]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:36.058]         {
  [20:21:36.058]             a <- NULL
  [20:21:36.058]             b <- NULL
  [20:21:36.058]         }
  [20:21:36.058]         ...future.env <- environment()
  [20:21:36.058]         local({
  [20:21:36.058]             for (name in names(...future.x_jj)) {
  [20:21:36.058]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:36.058]                   inherits = FALSE)
  [20:21:36.058]             }
  [20:21:36.058]         })
  [20:21:36.058]         tryCatch({
  [20:21:36.058]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:36.058]                 plan = future::plan())
  [20:21:36.058]         }, error = identity)
  [20:21:36.058]     })
  [20:21:36.058] }
  [20:21:36.058]   - globals: [1] '...future.x_ii'
  [20:21:36.059] List of 1
  [20:21:36.059]  $ ...future.x_ii: NULL
  [20:21:36.059]  - attr(*, "where")=List of 1
  [20:21:36.059]   ..$ ...future.x_ii:<environment: 0x5651981b3a40> 
  [20:21:36.059]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:36.059]  - attr(*, "resolved")= logi FALSE
  [20:21:36.059]  - attr(*, "total_size")= num 0
  [20:21:36.080]   - packages: [1] 'doFuture'
  [20:21:36.081] - identifying globals and packages ... DONE
  [20:21:36.082] Number of chunks: 2
  [20:21:36.082] Number of futures (= number of chunks): 2
  [20:21:36.082] Launching 2 futures (chunks) ...
  [20:21:36.083] Chunk #1 of 2 ...
  [20:21:36.083]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:36.083] getGlobalsAndPackages() ...
  [20:21:36.083] Searching for globals...
  [20:21:36.084] 
  [20:21:36.084] Searching for globals ... DONE
  [20:21:36.085] - globals: [0] <none>
  [20:21:36.085] getGlobalsAndPackages() ... DONE
  [20:21:36.085] 
  [20:21:36.085] 
  [20:21:36.085]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:36.092] getGlobalsAndPackages() ...
  [20:21:36.092] - globals passed as-is: [1] '...future.x_ii'
  [20:21:36.092] Resolving globals: FALSE
  [20:21:36.093] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:36.094] - globals: [1] '...future.x_ii'
  [20:21:36.110] 
  [20:21:36.110] getGlobalsAndPackages() ... DONE
  [20:21:36.112] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:36.112] Packages needed by future strategies (n = 1): 'future'
  [20:21:36.116] {
  [20:21:36.116]     {
  [20:21:36.116]         ...future.startTime <- Sys.time()
  [20:21:36.116]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:36.116]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:36.116]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:36.116]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:36.116]             future.resolve.recursive = NULL, width = 80L)
  [20:21:36.116]         {
  [20:21:36.116]             {
  [20:21:36.116]                 {
  [20:21:36.116]                   {
  [20:21:36.116]                     has_future <- requireNamespace("future", 
  [20:21:36.116]                       quietly = TRUE)
  [20:21:36.116]                     version <- if (has_future) 
  [20:21:36.116]                       packageVersion("future")
  [20:21:36.116]                     else NULL
  [20:21:36.116]                     if (!has_future || version < "1.8.0") {
  [20:21:36.116]                       info <- c(r_version = gsub("R version ", 
  [20:21:36.116]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:36.116]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:36.116]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:36.116]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:36.116]                       info <- sprintf("%s: %s", names(info), 
  [20:21:36.116]                         info)
  [20:21:36.116]                       info <- paste(info, collapse = "; ")
  [20:21:36.116]                       if (!has_future) {
  [20:21:36.116]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:36.116]                           info)
  [20:21:36.116]                       }
  [20:21:36.116]                       else {
  [20:21:36.116]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:36.116]                           info, version)
  [20:21:36.116]                       }
  [20:21:36.116]                       stop(msg)
  [20:21:36.116]                     }
  [20:21:36.116]                   }
  [20:21:36.116]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:36.116]                   options(mc.cores = 1L)
  [20:21:36.116]                 }
  [20:21:36.116]                 local({
  [20:21:36.116]                   for (pkg in c("doFuture", "future")) {
  [20:21:36.116]                     loadNamespace(pkg)
  [20:21:36.116]                     library(pkg, character.only = TRUE)
  [20:21:36.116]                   }
  [20:21:36.116]                 })
  [20:21:36.116]             }
  [20:21:36.116]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:36.116]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:36.116]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:36.116]                 label = NULL, ...) 
  [20:21:36.116]             {
  [20:21:36.116]                 if (substitute) 
  [20:21:36.116]                   expr <- substitute(expr)
  [20:21:36.116]                 local <- as.logical(local)
  [20:21:36.116]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:36.116]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.116]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:36.116]                   label = label, ...)
  [20:21:36.116]                 if (!future$lazy) 
  [20:21:36.116]                   future <- run(future)
  [20:21:36.116]                 invisible(future)
  [20:21:36.116]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:36.116]         }
  [20:21:36.116]     }
  [20:21:36.116]     if (is.na(TRUE)) {
  [20:21:36.116]     }
  [20:21:36.116]     else {
  [20:21:36.116]         if (TRUE) {
  [20:21:36.116]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:36.116]         }
  [20:21:36.116]         else {
  [20:21:36.116]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:36.116]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:36.116]         }
  [20:21:36.116]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:36.116]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:36.116]             sink(type = "output", split = FALSE)
  [20:21:36.116]             close(...future.stdout)
  [20:21:36.116]         }, add = TRUE)
  [20:21:36.116]     }
  [20:21:36.116]     ...future.frame <- sys.nframe()
  [20:21:36.116]     ...future.conditions <- list()
  [20:21:36.116]     ...future.result <- tryCatch({
  [20:21:36.116]         withCallingHandlers({
  [20:21:36.116]             ...future.value <- withVisible(local({
  [20:21:36.116]                 doFuture::registerDoFuture()
  [20:21:36.116]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:36.116]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:36.116]                   {
  [20:21:36.116]                     a <- NULL
  [20:21:36.116]                     b <- NULL
  [20:21:36.116]                   }
  [20:21:36.116]                   ...future.env <- environment()
  [20:21:36.116]                   local({
  [20:21:36.116]                     for (name in names(...future.x_jj)) {
  [20:21:36.116]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:36.116]                         inherits = FALSE)
  [20:21:36.116]                     }
  [20:21:36.116]                   })
  [20:21:36.116]                   tryCatch({
  [20:21:36.116]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:36.116]                       plan = future::plan())
  [20:21:36.116]                   }, error = identity)
  [20:21:36.116]                 })
  [20:21:36.116]             }))
  [20:21:36.116]             future::FutureResult(value = ...future.value$value, 
  [20:21:36.116]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:36.116]                 version = "1.8")
  [20:21:36.116]         }, condition = local({
  [20:21:36.116]             inherits <- base::inherits
  [20:21:36.116]             invokeRestart <- base::invokeRestart
  [20:21:36.116]             length <- base::length
  [20:21:36.116]             seq.int <- base::seq.int
  [20:21:36.116]             sys.calls <- base::sys.calls
  [20:21:36.116]             `[[` <- base::`[[`
  [20:21:36.116]             `+` <- base::`+`
  [20:21:36.116]             `<<-` <- base::`<<-`
  [20:21:36.116]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:36.116]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:36.116]                   3L)]
  [20:21:36.116]             }
  [20:21:36.116]             function(cond) {
  [20:21:36.116]                 if (inherits(cond, "error")) {
  [20:21:36.116]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:36.116]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:36.116]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:36.116]                     signaled = 0L)
  [20:21:36.116]                   signalCondition(cond)
  [20:21:36.116]                 }
  [20:21:36.116]                 else if (inherits(cond, "condition")) {
  [20:21:36.116]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:36.116]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:36.116]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:36.116]                   if (!signal) {
  [20:21:36.116]                     muffleCondition <- function (cond) 
  [20:21:36.116]                     {
  [20:21:36.116]                       inherits <- base::inherits
  [20:21:36.116]                       invokeRestart <- base::invokeRestart
  [20:21:36.116]                       muffled <- FALSE
  [20:21:36.116]                       if (inherits(cond, "message")) {
  [20:21:36.116]                         invokeRestart("muffleMessage")
  [20:21:36.116]                         muffled <- TRUE
  [20:21:36.116]                       }
  [20:21:36.116]                       else if (inherits(cond, "warning")) {
  [20:21:36.116]                         invokeRestart("muffleWarning")
  [20:21:36.116]                         muffled <- TRUE
  [20:21:36.116]                       }
  [20:21:36.116]                       else if (inherits(cond, "condition")) {
  [20:21:36.116]                         computeRestarts <- base::computeRestarts
  [20:21:36.116]                         grepl <- base::grepl
  [20:21:36.116]                         is.null <- base::is.null
  [20:21:36.116]                         restarts <- computeRestarts(cond)
  [20:21:36.116]                         for (restart in restarts) {
  [20:21:36.116]                           name <- restart$name
  [20:21:36.116]                           if (is.null(name)) 
  [20:21:36.116]                             next
  [20:21:36.116]                           if (!grepl("^muffle", name)) 
  [20:21:36.116]                             next
  [20:21:36.116]                           invokeRestart(restart)
  [20:21:36.116]                           muffled <- TRUE
  [20:21:36.116]                           break
  [20:21:36.116]                         }
  [20:21:36.116]                       }
  [20:21:36.116]                       invisible(muffled)
  [20:21:36.116]                     }
  [20:21:36.116]                     muffleCondition(cond)
  [20:21:36.116]                   }
  [20:21:36.116]                 }
  [20:21:36.116]             }
  [20:21:36.116]         }))
  [20:21:36.116]     }, error = function(ex) {
  [20:21:36.116]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:36.116]             version = "1.8"), class = "FutureResult")
  [20:21:36.116]     }, finally = {
  [20:21:36.116]         {
  [20:21:36.116]             {
  [20:21:36.116]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:36.116]             }
  [20:21:36.116]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:36.116]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:36.116]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:36.116]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:36.116]                 ...) 
  [20:21:36.116]             {
  [20:21:36.116]                 if (substitute) 
  [20:21:36.116]                   expr <- substitute(expr)
  [20:21:36.116]                 if (is.function(workers)) 
  [20:21:36.116]                   workers <- workers()
  [20:21:36.116]                 workers <- as.integer(workers)
  [20:21:36.116]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:36.116]                   workers >= 1)
  [20:21:36.116]                 if (workers == 1L) {
  [20:21:36.116]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:36.116]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:36.116]                     local = TRUE, label = label, ...))
  [20:21:36.116]                 }
  [20:21:36.116]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:36.116]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:36.116]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.116]                   globals = globals, persistent = persistent, 
  [20:21:36.116]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:36.116]                   label = label, ...)
  [20:21:36.116]                 if (!future$lazy) 
  [20:21:36.116]                   future <- run(future)
  [20:21:36.116]                 invisible(future)
  [20:21:36.116]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:36.116]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:36.116]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:36.116]             {
  [20:21:36.116]                 if (substitute) 
  [20:21:36.116]                   expr <- substitute(expr)
  [20:21:36.116]                 local <- as.logical(local)
  [20:21:36.116]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:36.116]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.116]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:36.116]                   label = label, ...)
  [20:21:36.116]                 if (!future$lazy) 
  [20:21:36.116]                   future <- run(future)
  [20:21:36.116]                 invisible(future)
  [20:21:36.116]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:36.116]         }
  [20:21:36.116]         options(...future.oldOptions)
  [20:21:36.116]     })
  [20:21:36.116]     if (is.na(TRUE)) {
  [20:21:36.116]     }
  [20:21:36.116]     else {
  [20:21:36.116]         sink(type = "output", split = FALSE)
  [20:21:36.116]         if (TRUE) {
  [20:21:36.116]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:36.116]         }
  [20:21:36.116]         else {
  [20:21:36.116]             ...future.result["stdout"] <- list(NULL)
  [20:21:36.116]         }
  [20:21:36.116]         close(...future.stdout)
  [20:21:36.116]         ...future.stdout <- NULL
  [20:21:36.116]     }
  [20:21:36.116]     ...future.result$conditions <- ...future.conditions
  [20:21:36.116]     ...future.result
  [20:21:36.116] }
  [20:21:36.134] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:21:36.134] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:21:36.135] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:21:36.136] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:21:36.137] MultisessionFuture started
  [20:21:36.137] Chunk #1 of 2 ... DONE
  [20:21:36.138] Chunk #2 of 2 ...
  [20:21:36.138]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:36.138] getGlobalsAndPackages() ...
  [20:21:36.138] Searching for globals...
  [20:21:36.139] 
  [20:21:36.140] Searching for globals ... DONE
  [20:21:36.140] - globals: [0] <none>
  [20:21:36.140] getGlobalsAndPackages() ... DONE
  [20:21:36.140] 
  [20:21:36.141] 
  [20:21:36.141]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:36.147] getGlobalsAndPackages() ...
  [20:21:36.148] - globals passed as-is: [1] '...future.x_ii'
  [20:21:36.148] Resolving globals: FALSE
  [20:21:36.155] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:21:36.155] - globals: [1] '...future.x_ii'
  [20:21:36.155] 
  [20:21:36.156] getGlobalsAndPackages() ... DONE
  [20:21:36.157] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:36.158] Packages needed by future strategies (n = 1): 'future'
  [20:21:36.162] {
  [20:21:36.162]     {
  [20:21:36.162]         ...future.startTime <- Sys.time()
  [20:21:36.162]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:36.162]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:36.162]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:36.162]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:36.162]             future.resolve.recursive = NULL, width = 80L)
  [20:21:36.162]         {
  [20:21:36.162]             {
  [20:21:36.162]                 {
  [20:21:36.162]                   {
  [20:21:36.162]                     has_future <- requireNamespace("future", 
  [20:21:36.162]                       quietly = TRUE)
  [20:21:36.162]                     version <- if (has_future) 
  [20:21:36.162]                       packageVersion("future")
  [20:21:36.162]                     else NULL
  [20:21:36.162]                     if (!has_future || version < "1.8.0") {
  [20:21:36.162]                       info <- c(r_version = gsub("R version ", 
  [20:21:36.162]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:36.162]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:36.162]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:36.162]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:36.162]                       info <- sprintf("%s: %s", names(info), 
  [20:21:36.162]                         info)
  [20:21:36.162]                       info <- paste(info, collapse = "; ")
  [20:21:36.162]                       if (!has_future) {
  [20:21:36.162]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:36.162]                           info)
  [20:21:36.162]                       }
  [20:21:36.162]                       else {
  [20:21:36.162]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:36.162]                           info, version)
  [20:21:36.162]                       }
  [20:21:36.162]                       stop(msg)
  [20:21:36.162]                     }
  [20:21:36.162]                   }
  [20:21:36.162]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:36.162]                   options(mc.cores = 1L)
  [20:21:36.162]                 }
  [20:21:36.162]                 local({
  [20:21:36.162]                   for (pkg in c("doFuture", "future")) {
  [20:21:36.162]                     loadNamespace(pkg)
  [20:21:36.162]                     library(pkg, character.only = TRUE)
  [20:21:36.162]                   }
  [20:21:36.162]                 })
  [20:21:36.162]             }
  [20:21:36.162]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:36.162]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:36.162]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:36.162]                 label = NULL, ...) 
  [20:21:36.162]             {
  [20:21:36.162]                 if (substitute) 
  [20:21:36.162]                   expr <- substitute(expr)
  [20:21:36.162]                 local <- as.logical(local)
  [20:21:36.162]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:36.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.162]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:36.162]                   label = label, ...)
  [20:21:36.162]                 if (!future$lazy) 
  [20:21:36.162]                   future <- run(future)
  [20:21:36.162]                 invisible(future)
  [20:21:36.162]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:36.162]         }
  [20:21:36.162]     }
  [20:21:36.162]     if (is.na(TRUE)) {
  [20:21:36.162]     }
  [20:21:36.162]     else {
  [20:21:36.162]         if (TRUE) {
  [20:21:36.162]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:36.162]         }
  [20:21:36.162]         else {
  [20:21:36.162]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:36.162]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:36.162]         }
  [20:21:36.162]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:36.162]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:36.162]             sink(type = "output", split = FALSE)
  [20:21:36.162]             close(...future.stdout)
  [20:21:36.162]         }, add = TRUE)
  [20:21:36.162]     }
  [20:21:36.162]     ...future.frame <- sys.nframe()
  [20:21:36.162]     ...future.conditions <- list()
  [20:21:36.162]     ...future.result <- tryCatch({
  [20:21:36.162]         withCallingHandlers({
  [20:21:36.162]             ...future.value <- withVisible(local({
  [20:21:36.162]                 doFuture::registerDoFuture()
  [20:21:36.162]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:36.162]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:36.162]                   {
  [20:21:36.162]                     a <- NULL
  [20:21:36.162]                     b <- NULL
  [20:21:36.162]                   }
  [20:21:36.162]                   ...future.env <- environment()
  [20:21:36.162]                   local({
  [20:21:36.162]                     for (name in names(...future.x_jj)) {
  [20:21:36.162]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:36.162]                         inherits = FALSE)
  [20:21:36.162]                     }
  [20:21:36.162]                   })
  [20:21:36.162]                   tryCatch({
  [20:21:36.162]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:21:36.162]                       plan = future::plan())
  [20:21:36.162]                   }, error = identity)
  [20:21:36.162]                 })
  [20:21:36.162]             }))
  [20:21:36.162]             future::FutureResult(value = ...future.value$value, 
  [20:21:36.162]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:36.162]                 version = "1.8")
  [20:21:36.162]         }, condition = local({
  [20:21:36.162]             inherits <- base::inherits
  [20:21:36.162]             invokeRestart <- base::invokeRestart
  [20:21:36.162]             length <- base::length
  [20:21:36.162]             seq.int <- base::seq.int
  [20:21:36.162]             sys.calls <- base::sys.calls
  [20:21:36.162]             `[[` <- base::`[[`
  [20:21:36.162]             `+` <- base::`+`
  [20:21:36.162]             `<<-` <- base::`<<-`
  [20:21:36.162]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:36.162]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:36.162]                   3L)]
  [20:21:36.162]             }
  [20:21:36.162]             function(cond) {
  [20:21:36.162]                 if (inherits(cond, "error")) {
  [20:21:36.162]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:36.162]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:36.162]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:36.162]                     signaled = 0L)
  [20:21:36.162]                   signalCondition(cond)
  [20:21:36.162]                 }
  [20:21:36.162]                 else if (inherits(cond, "condition")) {
  [20:21:36.162]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:36.162]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:36.162]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:36.162]                   if (!signal) {
  [20:21:36.162]                     muffleCondition <- function (cond) 
  [20:21:36.162]                     {
  [20:21:36.162]                       inherits <- base::inherits
  [20:21:36.162]                       invokeRestart <- base::invokeRestart
  [20:21:36.162]                       muffled <- FALSE
  [20:21:36.162]                       if (inherits(cond, "message")) {
  [20:21:36.162]                         invokeRestart("muffleMessage")
  [20:21:36.162]                         muffled <- TRUE
  [20:21:36.162]                       }
  [20:21:36.162]                       else if (inherits(cond, "warning")) {
  [20:21:36.162]                         invokeRestart("muffleWarning")
  [20:21:36.162]                         muffled <- TRUE
  [20:21:36.162]                       }
  [20:21:36.162]                       else if (inherits(cond, "condition")) {
  [20:21:36.162]                         computeRestarts <- base::computeRestarts
  [20:21:36.162]                         grepl <- base::grepl
  [20:21:36.162]                         is.null <- base::is.null
  [20:21:36.162]                         restarts <- computeRestarts(cond)
  [20:21:36.162]                         for (restart in restarts) {
  [20:21:36.162]                           name <- restart$name
  [20:21:36.162]                           if (is.null(name)) 
  [20:21:36.162]                             next
  [20:21:36.162]                           if (!grepl("^muffle", name)) 
  [20:21:36.162]                             next
  [20:21:36.162]                           invokeRestart(restart)
  [20:21:36.162]                           muffled <- TRUE
  [20:21:36.162]                           break
  [20:21:36.162]                         }
  [20:21:36.162]                       }
  [20:21:36.162]                       invisible(muffled)
  [20:21:36.162]                     }
  [20:21:36.162]                     muffleCondition(cond)
  [20:21:36.162]                   }
  [20:21:36.162]                 }
  [20:21:36.162]             }
  [20:21:36.162]         }))
  [20:21:36.162]     }, error = function(ex) {
  [20:21:36.162]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:36.162]             version = "1.8"), class = "FutureResult")
  [20:21:36.162]     }, finally = {
  [20:21:36.162]         {
  [20:21:36.162]             {
  [20:21:36.162]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:36.162]             }
  [20:21:36.162]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:36.162]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:36.162]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:36.162]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:36.162]                 ...) 
  [20:21:36.162]             {
  [20:21:36.162]                 if (substitute) 
  [20:21:36.162]                   expr <- substitute(expr)
  [20:21:36.162]                 if (is.function(workers)) 
  [20:21:36.162]                   workers <- workers()
  [20:21:36.162]                 workers <- as.integer(workers)
  [20:21:36.162]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:36.162]                   workers >= 1)
  [20:21:36.162]                 if (workers == 1L) {
  [20:21:36.162]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:36.162]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:36.162]                     local = TRUE, label = label, ...))
  [20:21:36.162]                 }
  [20:21:36.162]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:36.162]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:36.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.162]                   globals = globals, persistent = persistent, 
  [20:21:36.162]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:36.162]                   label = label, ...)
  [20:21:36.162]                 if (!future$lazy) 
  [20:21:36.162]                   future <- run(future)
  [20:21:36.162]                 invisible(future)
  [20:21:36.162]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:36.162]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:36.162]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:36.162]             {
  [20:21:36.162]                 if (substitute) 
  [20:21:36.162]                   expr <- substitute(expr)
  [20:21:36.162]                 local <- as.logical(local)
  [20:21:36.162]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:36.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:36.162]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:36.162]                   label = label, ...)
  [20:21:36.162]                 if (!future$lazy) 
  [20:21:36.162]                   future <- run(future)
  [20:21:36.162]                 invisible(future)
  [20:21:36.162]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:36.162]         }
  [20:21:36.162]         options(...future.oldOptions)
  [20:21:36.162]     })
  [20:21:36.162]     if (is.na(TRUE)) {
  [20:21:36.162]     }
  [20:21:36.162]     else {
  [20:21:36.162]         sink(type = "output", split = FALSE)
  [20:21:36.162]         if (TRUE) {
  [20:21:36.162]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:36.162]         }
  [20:21:36.162]         else {
  [20:21:36.162]             ...future.result["stdout"] <- list(NULL)
  [20:21:36.162]         }
  [20:21:36.162]         close(...future.stdout)
  [20:21:36.162]         ...future.stdout <- NULL
  [20:21:36.162]     }
  [20:21:36.162]     ...future.result$conditions <- ...future.conditions
  [20:21:36.162]     ...future.result
  [20:21:36.162] }
  [20:21:36.168] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:21:36.169] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:21:36.170] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:21:36.170] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:21:36.171] MultisessionFuture started
  [20:21:36.172] Chunk #2 of 2 ... DONE
  [20:21:36.172] Launching 2 futures (chunks) ... DONE
  [20:21:36.172] - resolving futures
  [20:21:36.172]   - gathering results & relaying conditions (except errors)
  [20:21:36.173] resolve() on list ...
  [20:21:36.173]  recursive: 0
  [20:21:36.173]  length: 2
  [20:21:36.173] 
  [20:21:36.679] Future #1
  [20:21:36.679] result() for ClusterFuture ...
  [20:21:36.680] - Validating connection of MultisessionFuture
  [20:21:36.681] - class(result): FutureResult
  [20:21:36.681] result() for ClusterFuture ...
  [20:21:36.681] - result already collected: FutureResult
  [20:21:36.681] result() for ClusterFuture ... done
  [20:21:36.682] result() for ClusterFuture ... done
  [20:21:36.682] result() for ClusterFuture ...
  [20:21:36.682] - result already collected: FutureResult
  [20:21:36.683] result() for ClusterFuture ... done
  [20:21:36.683] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:21:36.683] - nx: 2
  [20:21:36.683] - relay: TRUE
  [20:21:36.684] - stdout: TRUE
  [20:21:36.684] - signal: TRUE
  [20:21:36.684] - resignal: FALSE
  [20:21:36.684] - force: FALSE
  [20:21:36.685] - relayed: [n=2] FALSE, FALSE
  [20:21:36.685] - queued futures: [n=2] FALSE, FALSE
  [20:21:36.685]  - until=1
  [20:21:36.685]  - relaying element #1
  [20:21:36.686] result() for ClusterFuture ...
  [20:21:36.686] - result already collected: FutureResult
  [20:21:36.686] result() for ClusterFuture ... done
  [20:21:36.687] result() for ClusterFuture ...
  [20:21:36.687] - result already collected: FutureResult
  [20:21:36.687] result() for ClusterFuture ... done
  [20:21:36.687] result() for ClusterFuture ...
  [20:21:36.688] - result already collected: FutureResult
  [20:21:36.688] result() for ClusterFuture ... done
  [20:21:36.688] result() for ClusterFuture ...
  [20:21:36.688] - result already collected: FutureResult
  [20:21:36.689] result() for ClusterFuture ... done
  [20:21:36.689] - relayed: [n=2] TRUE, FALSE
  [20:21:36.689] - queued futures: [n=2] TRUE, FALSE
  [20:21:36.690] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:21:36.702]  length: 1 (resolved future 1)
  [20:21:36.704] Future #2
  [20:21:36.704] result() for ClusterFuture ...
  [20:21:36.704] - Validating connection of MultisessionFuture
  [20:21:36.705] - class(result): FutureResult
  [20:21:36.705] result() for ClusterFuture ...
  [20:21:36.706] - result already collected: FutureResult
  [20:21:36.706] result() for ClusterFuture ... done
  [20:21:36.706] result() for ClusterFuture ... done
  [20:21:36.707] result() for ClusterFuture ...
  [20:21:36.707] - result already collected: FutureResult
  [20:21:36.707] result() for ClusterFuture ... done
  [20:21:36.707] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:21:36.708] - nx: 2
  [20:21:36.708] - relay: TRUE
  [20:21:36.708] - stdout: TRUE
  [20:21:36.708] - signal: TRUE
  [20:21:36.709] - resignal: FALSE
  [20:21:36.709] - force: FALSE
  [20:21:36.709] - relayed: [n=2] TRUE, FALSE
  [20:21:36.709] - queued futures: [n=2] TRUE, FALSE
  [20:21:36.710]  - until=2
  [20:21:36.710]  - relaying element #2
  [20:21:36.710] result() for ClusterFuture ...
  [20:21:36.711] - result already collected: FutureResult
  [20:21:36.711] result() for ClusterFuture ... done
  [20:21:36.711] result() for ClusterFuture ...
  [20:21:36.711] - result already collected: FutureResult
  [20:21:36.712] result() for ClusterFuture ... done
  [20:21:36.712] result() for ClusterFuture ...
  [20:21:36.712] - result already collected: FutureResult
  [20:21:36.712] result() for ClusterFuture ... done
  [20:21:36.713] result() for ClusterFuture ...
  [20:21:36.713] - result already collected: FutureResult
  [20:21:36.713] result() for ClusterFuture ... done
  [20:21:36.714] - relayed: [n=2] TRUE, TRUE
  [20:21:36.714] - queued futures: [n=2] TRUE, TRUE
  [20:21:36.714] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:21:36.714]  length: 0 (resolved future 2)
  [20:21:36.715] Relaying remaining futures
  [20:21:36.715] signalConditionsASAP(NULL, pos=0) ...
  [20:21:36.715] - nx: 2
  [20:21:36.715] - relay: TRUE
  [20:21:36.716] - stdout: TRUE
  [20:21:36.716] - signal: TRUE
  [20:21:36.716] - resignal: FALSE
  [20:21:36.716] - force: FALSE
  [20:21:36.717] - relayed: [n=2] TRUE, TRUE
  [20:21:36.717] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:21:36.717] - relayed: [n=2] TRUE, TRUE
  [20:21:36.717] - queued futures: [n=2] TRUE, TRUE
  [20:21:36.734] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:36.734] resolve() on list ... DONE
  [20:21:36.734] - collecting values of futures
  [20:21:36.735] result() for ClusterFuture ...
  [20:21:36.735] - result already collected: FutureResult
  [20:21:36.735] result() for ClusterFuture ... done
  [20:21:36.736] result() for ClusterFuture ...
  [20:21:36.736] - result already collected: FutureResult
  [20:21:36.742] result() for ClusterFuture ... done
  [20:21:36.742] result() for ClusterFuture ...
  [20:21:36.742] - result already collected: FutureResult
  [20:21:36.743] result() for ClusterFuture ... done
  [20:21:36.743] result() for ClusterFuture ...
  [20:21:36.743] - result already collected: FutureResult
  [20:21:36.743] result() for ClusterFuture ... done
  [20:21:36.744] - accumulating results
  [20:21:36.746] - processing errors (handler = 'stop')
  [20:21:36.747] - extracting results
  [20:21:36.747] doFuture() ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [20:21:36.748] plan(): Setting new future strategy stack:
  [20:21:36.748] List of future strategies:
  [20:21:36.748] 1. multisession:
  [20:21:36.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:36.748]    - tweaked: FALSE
  [20:21:36.748]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:36.748] 2. multicore:
  [20:21:36.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:36.748]    - tweaked: FALSE
  [20:21:36.748]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:36.767] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:21:36.767] multisession:
  [20:21:36.767] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:36.767] - tweaked: FALSE
  [20:21:36.767] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 36664
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd640a21ee.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd640a21ee.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:32765:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd640a21ee.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=36664 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Detected a warning from socketConnection(): 'port 36664 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 36664 cannot be opened
  Killing worker process (PID 9740) if still alive
  [20:21:38.981] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(32765, signal = 0L)
  [1] TRUE
  Call: tools::pskill(32765, signal = 0L)
  [1] TRUE
  [20:21:38.982] - success
  [20:21:38.983] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 9740) was successfully killed: TRUE
  Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  : 
    Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli2'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 36664 cannot be opened' (which suggests that this port is either already occupied by another process or blocked by the firewall on your local machine)
   * The localhost socket connection that failed to connect to the R worker used port 36664 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:32765:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpHlq90J/future.parent=32765.7ffd640a21ee.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=36664 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 9740) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted
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
  [20:21:40.046] plan(): Setting new future strategy stack:
  [20:21:40.046] List of future strategies:
  [20:21:40.046] 1. sequential:
  [20:21:40.046]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.046]    - tweaked: FALSE
  [20:21:40.046]    - call: future::plan(future::sequential)
  [20:21:40.048] 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 }
  [20:21:40.053] doFuture() ...
  [20:21:40.055] - dummy globals (as locals): [1] 'j'
  [20:21:40.057] - R expression:
  [20:21:40.057] {
  [20:21:40.057]     doFuture::registerDoFuture()
  [20:21:40.057]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.057]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.057]         j <- NULL
  [20:21:40.057]         ...future.env <- environment()
  [20:21:40.057]         local({
  [20:21:40.057]             for (name in names(...future.x_jj)) {
  [20:21:40.057]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.057]                   inherits = FALSE)
  [20:21:40.057]             }
  [20:21:40.057]         })
  [20:21:40.057]         tryCatch({
  [20:21:40.057]             j
  [20:21:40.057]         }, error = identity)
  [20:21:40.057]     })
  [20:21:40.057] }
  [20:21:40.058] - identifying globals and packages ...
  [20:21:40.060] getGlobalsAndPackages() ...
  [20:21:40.060] Searching for globals...
  [20:21:40.131] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [20:21:40.132] Searching for globals ... DONE
  [20:21:40.132] Resolving globals: FALSE
  [20:21:40.134] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:40.135] - globals: [1] '...future.x_ii'
  [20:21:40.135] 
  [20:21:40.136] getGlobalsAndPackages() ... DONE
  [20:21:40.136] List of 1
  [20:21:40.136]  $ ...future.x_ii: NULL
  [20:21:40.136]  - attr(*, "where")=List of 1
  [20:21:40.136]   ..$ ...future.x_ii:<environment: 0x561521aca3a0> 
  [20:21:40.136]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.136]  - attr(*, "resolved")= logi FALSE
  [20:21:40.136]  - attr(*, "total_size")= num 0
  [20:21:40.146]   - R expression:
  [20:21:40.147] {
  [20:21:40.147]     doFuture::registerDoFuture()
  [20:21:40.147]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.147]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.147]         j <- NULL
  [20:21:40.147]         ...future.env <- environment()
  [20:21:40.147]         local({
  [20:21:40.147]             for (name in names(...future.x_jj)) {
  [20:21:40.147]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.147]                   inherits = FALSE)
  [20:21:40.147]             }
  [20:21:40.147]         })
  [20:21:40.147]         tryCatch({
  [20:21:40.147]             j
  [20:21:40.147]         }, error = identity)
  [20:21:40.147]     })
  [20:21:40.147] }
  [20:21:40.147]   - globals: [1] '...future.x_ii'
  [20:21:40.148] List of 1
  [20:21:40.148]  $ ...future.x_ii: NULL
  [20:21:40.148]  - attr(*, "where")=List of 1
  [20:21:40.148]   ..$ ...future.x_ii:<environment: 0x561521aca3a0> 
  [20:21:40.148]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.148]  - attr(*, "resolved")= logi FALSE
  [20:21:40.148]  - attr(*, "total_size")= num 0
  [20:21:40.154]   - packages: [1] 'doFuture'
  [20:21:40.154] - identifying globals and packages ... DONE
  [20:21:40.155] Number of chunks: 1
  [20:21:40.155] Number of futures (= number of chunks): 1
  [20:21:40.156] Launching 1 futures (chunks) ...
  [20:21:40.156] Chunk #1 of 1 ...
  [20:21:40.156]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:40.156] getGlobalsAndPackages() ...
  [20:21:40.157] Searching for globals...
  [20:21:40.158] 
  [20:21:40.158] Searching for globals ... DONE
  [20:21:40.158] - globals: [0] <none>
  [20:21:40.159] getGlobalsAndPackages() ... DONE
  [20:21:40.159] 
  [20:21:40.159] 
  [20:21:40.160]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:40.160] getGlobalsAndPackages() ...
  [20:21:40.161] - globals passed as-is: [1] '...future.x_ii'
  [20:21:40.161] Resolving globals: FALSE
  [20:21:40.162] The total size of the 1 globals is 56 bytes (56 bytes)
  [20:21:40.162] - globals: [1] '...future.x_ii'
  [20:21:40.163] 
  [20:21:40.163] getGlobalsAndPackages() ... DONE
  [20:21:40.166] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:40.166] Packages needed by future strategies (n = 0): <none>
  [20:21:40.171] {
  [20:21:40.171]     {
  [20:21:40.171]         ...future.startTime <- Sys.time()
  [20:21:40.171]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:40.171]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:40.171]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [20:21:40.171]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:40.171]             future.resolve.recursive = NULL, width = 80L)
  [20:21:40.171]         {
  [20:21:40.171]             {
  [20:21:40.171]                 {
  [20:21:40.171]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:40.171]                   version <- if (has_future) 
  [20:21:40.171]                     packageVersion("future")
  [20:21:40.171]                   else NULL
  [20:21:40.171]                   if (!has_future || version < "1.8.0") {
  [20:21:40.171]                     info <- c(r_version = gsub("R version ", 
  [20:21:40.171]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:40.171]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:40.171]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:40.171]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:40.171]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:40.171]                     info <- paste(info, collapse = "; ")
  [20:21:40.171]                     if (!has_future) {
  [20:21:40.171]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:40.171]                         info)
  [20:21:40.171]                     }
  [20:21:40.171]                     else {
  [20:21:40.171]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:40.171]                         info, version)
  [20:21:40.171]                     }
  [20:21:40.171]                     stop(msg)
  [20:21:40.171]                   }
  [20:21:40.171]                 }
  [20:21:40.171]                 local({
  [20:21:40.171]                   for (pkg in "doFuture") {
  [20:21:40.171]                     loadNamespace(pkg)
  [20:21:40.171]                     library(pkg, character.only = TRUE)
  [20:21:40.171]                   }
  [20:21:40.171]                 })
  [20:21:40.171]             }
  [20:21:40.171]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:40.171]         }
  [20:21:40.171]     }
  [20:21:40.171]     if (is.na(TRUE)) {
  [20:21:40.171]     }
  [20:21:40.171]     else {
  [20:21:40.171]         if (TRUE) {
  [20:21:40.171]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:40.171]         }
  [20:21:40.171]         else {
  [20:21:40.171]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:40.171]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:40.171]         }
  [20:21:40.171]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:40.171]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:40.171]             sink(type = "output", split = FALSE)
  [20:21:40.171]             close(...future.stdout)
  [20:21:40.171]         }, add = TRUE)
  [20:21:40.171]     }
  [20:21:40.171]     ...future.frame <- sys.nframe()
  [20:21:40.171]     ...future.conditions <- list()
  [20:21:40.171]     ...future.result <- tryCatch({
  [20:21:40.171]         withCallingHandlers({
  [20:21:40.171]             ...future.value <- withVisible(local({
  [20:21:40.171]                 doFuture::registerDoFuture()
  [20:21:40.171]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.171]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.171]                   j <- NULL
  [20:21:40.171]                   ...future.env <- environment()
  [20:21:40.171]                   local({
  [20:21:40.171]                     for (name in names(...future.x_jj)) {
  [20:21:40.171]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.171]                         inherits = FALSE)
  [20:21:40.171]                     }
  [20:21:40.171]                   })
  [20:21:40.171]                   tryCatch({
  [20:21:40.171]                     j
  [20:21:40.171]                   }, error = identity)
  [20:21:40.171]                 })
  [20:21:40.171]             }))
  [20:21:40.171]             future::FutureResult(value = ...future.value$value, 
  [20:21:40.171]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:40.171]                 version = "1.8")
  [20:21:40.171]         }, condition = local({
  [20:21:40.171]             inherits <- base::inherits
  [20:21:40.171]             invokeRestart <- base::invokeRestart
  [20:21:40.171]             length <- base::length
  [20:21:40.171]             seq.int <- base::seq.int
  [20:21:40.171]             sys.calls <- base::sys.calls
  [20:21:40.171]             `[[` <- base::`[[`
  [20:21:40.171]             `+` <- base::`+`
  [20:21:40.171]             `<<-` <- base::`<<-`
  [20:21:40.171]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:40.171]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:40.171]                   3L)]
  [20:21:40.171]             }
  [20:21:40.171]             function(cond) {
  [20:21:40.171]                 if (inherits(cond, "error")) {
  [20:21:40.171]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.171]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:40.171]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:40.171]                     signaled = 0L)
  [20:21:40.171]                   signalCondition(cond)
  [20:21:40.171]                 }
  [20:21:40.171]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:40.171]                 ))) {
  [20:21:40.171]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:40.171]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.171]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:40.171]                   if (!signal) {
  [20:21:40.171]                     muffleCondition <- function (cond) 
  [20:21:40.171]                     {
  [20:21:40.171]                       inherits <- base::inherits
  [20:21:40.171]                       invokeRestart <- base::invokeRestart
  [20:21:40.171]                       muffled <- FALSE
  [20:21:40.171]                       if (inherits(cond, "message")) {
  [20:21:40.171]                         invokeRestart("muffleMessage")
  [20:21:40.171]                         muffled <- TRUE
  [20:21:40.171]                       }
  [20:21:40.171]                       else if (inherits(cond, "warning")) {
  [20:21:40.171]                         invokeRestart("muffleWarning")
  [20:21:40.171]                         muffled <- TRUE
  [20:21:40.171]                       }
  [20:21:40.171]                       else if (inherits(cond, "condition")) {
  [20:21:40.171]                         computeRestarts <- base::computeRestarts
  [20:21:40.171]                         grepl <- base::grepl
  [20:21:40.171]                         is.null <- base::is.null
  [20:21:40.171]                         restarts <- computeRestarts(cond)
  [20:21:40.171]                         for (restart in restarts) {
  [20:21:40.171]                           name <- restart$name
  [20:21:40.171]                           if (is.null(name)) 
  [20:21:40.171]                             next
  [20:21:40.171]                           if (!grepl("^muffle", name)) 
  [20:21:40.171]                             next
  [20:21:40.171]                           invokeRestart(restart)
  [20:21:40.171]                           muffled <- TRUE
  [20:21:40.171]                           break
  [20:21:40.171]                         }
  [20:21:40.171]                       }
  [20:21:40.171]                       invisible(muffled)
  [20:21:40.171]                     }
  [20:21:40.171]                     muffleCondition(cond)
  [20:21:40.171]                   }
  [20:21:40.171]                 }
  [20:21:40.171]             }
  [20:21:40.171]         }))
  [20:21:40.171]     }, error = function(ex) {
  [20:21:40.171]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:40.171]             version = "1.8"), class = "FutureResult")
  [20:21:40.171]     }, finally = {
  [20:21:40.171]         {
  [20:21:40.171]             NULL
  [20:21:40.171]             future::plan(list(function (expr, envir = parent.frame(), 
  [20:21:40.171]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:40.171]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:40.171]                 label = NULL, ...) 
  [20:21:40.171]             {
  [20:21:40.171]                 if (substitute) 
  [20:21:40.171]                   expr <- substitute(expr)
  [20:21:40.171]                 local <- as.logical(local)
  [20:21:40.171]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.171]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.171]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.171]                   label = label, ...)
  [20:21:40.171]                 if (!future$lazy) 
  [20:21:40.171]                   future <- run(future)
  [20:21:40.171]                 invisible(future)
  [20:21:40.171]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:40.171]         }
  [20:21:40.171]         options(...future.oldOptions)
  [20:21:40.171]     })
  [20:21:40.171]     if (is.na(TRUE)) {
  [20:21:40.171]     }
  [20:21:40.171]     else {
  [20:21:40.171]         sink(type = "output", split = FALSE)
  [20:21:40.171]         if (TRUE) {
  [20:21:40.171]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:40.171]         }
  [20:21:40.171]         else {
  [20:21:40.171]             ...future.result["stdout"] <- list(NULL)
  [20:21:40.171]         }
  [20:21:40.171]         close(...future.stdout)
  [20:21:40.171]         ...future.stdout <- NULL
  [20:21:40.171]     }
  [20:21:40.171]     ...future.result$conditions <- ...future.conditions
  [20:21:40.171]     ...future.result
  [20:21:40.171] }
  [20:21:40.177] plan(): Setting new future strategy stack:
  [20:21:40.177] List of future strategies:
  [20:21:40.177] 1. sequential:
  [20:21:40.177]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.177]    - tweaked: FALSE
  [20:21:40.177]    - call: NULL
  [20:21:40.178] plan(): nbrOfWorkers() = 1
  [20:21:40.179] plan(): Setting new future strategy stack:
  [20:21:40.180] List of future strategies:
  [20:21:40.180] 1. sequential:
  [20:21:40.180]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.180]    - tweaked: FALSE
  [20:21:40.180]    - call: future::plan(future::sequential)
  [20:21:40.181] plan(): nbrOfWorkers() = 1
  [20:21:40.181] SequentialFuture started (and completed)
  [20:21:40.182] Chunk #1 of 1 ... DONE
  [20:21:40.183] Launching 1 futures (chunks) ... DONE
  [20:21:40.183] - resolving futures
  [20:21:40.183]   - gathering results & relaying conditions (except errors)
  [20:21:40.184] resolve() on list ...
  [20:21:40.184]  recursive: 0
  [20:21:40.185]  length: 1
  [20:21:40.185] 
  [20:21:40.186] Future #1
  [20:21:40.186] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:40.186] - nx: 1
  [20:21:40.187] - relay: TRUE
  [20:21:40.187] - stdout: TRUE
  [20:21:40.187] - signal: TRUE
  [20:21:40.187] - resignal: FALSE
  [20:21:40.188] - force: FALSE
  [20:21:40.188] - relayed: [n=1] FALSE
  [20:21:40.188] - queued futures: [n=1] FALSE
  [20:21:40.189]  - until=1
  [20:21:40.189]  - relaying element #1
  [20:21:40.189] - relayed: [n=1] TRUE
  [20:21:40.190] - queued futures: [n=1] TRUE
  [20:21:40.190] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:40.191]  length: 0 (resolved future 1)
  [20:21:40.191] Relaying remaining futures
  [20:21:40.192] signalConditionsASAP(NULL, pos=0) ...
  [20:21:40.192] - nx: 1
  [20:21:40.192] - relay: TRUE
  [20:21:40.192] - stdout: TRUE
  [20:21:40.192] - signal: TRUE
  [20:21:40.193] - resignal: FALSE
  [20:21:40.193] - force: FALSE
  [20:21:40.193] - relayed: [n=1] TRUE
  [20:21:40.193] - queued futures: [n=1] TRUE
   - flush all
  [20:21:40.194] - relayed: [n=1] TRUE
  [20:21:40.194] - queued futures: [n=1] TRUE
  [20:21:40.194] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:40.194] resolve() on list ... DONE
  [20:21:40.195] - collecting values of futures
  [20:21:40.195] - accumulating results
  [20:21:40.197] - processing errors (handler = 'stop')
  [20:21:40.198] - extracting results
  [20:21:40.198] 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 }
  + }
  [20:21:40.200] doFuture() ...
  [20:21:40.201] - dummy globals (as locals): [1] 'i'
  [20:21:40.208] - R expression:
  [20:21:40.208] {
  [20:21:40.208]     doFuture::registerDoFuture()
  [20:21:40.208]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.208]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.208]         i <- NULL
  [20:21:40.208]         ...future.env <- environment()
  [20:21:40.208]         local({
  [20:21:40.208]             for (name in names(...future.x_jj)) {
  [20:21:40.208]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.208]                   inherits = FALSE)
  [20:21:40.208]             }
  [20:21:40.208]         })
  [20:21:40.208]         tryCatch({
  [20:21:40.208]             foreach(j = 1) %dopar% {
  [20:21:40.208]                 j
  [20:21:40.208]             }
  [20:21:40.208]         }, error = identity)
  [20:21:40.208]     })
  [20:21:40.208] }
  [20:21:40.209] - identifying globals and packages ...
  [20:21:40.209] getGlobalsAndPackages() ...
  [20:21:40.210] Searching for globals...
  [20:21:40.251] - globals found: [17] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', '%dopar%', 'foreach', 'j', 'identity'
  [20:21:40.251] Searching for globals ... DONE
  [20:21:40.251] Resolving globals: FALSE
  [20:21:40.253] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:40.253] - globals: [1] '...future.x_ii'
  [20:21:40.254] - packages: [1] 'foreach'
  [20:21:40.254] getGlobalsAndPackages() ... DONE
  [20:21:40.254] List of 1
  [20:21:40.254]  $ ...future.x_ii: NULL
  [20:21:40.254]  - attr(*, "where")=List of 1
  [20:21:40.254]   ..$ ...future.x_ii:<environment: 0x5615207f3318> 
  [20:21:40.254]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.254]  - attr(*, "resolved")= logi FALSE
  [20:21:40.254]  - attr(*, "total_size")= num 0
  [20:21:40.260]   - R expression:
  [20:21:40.261] {
  [20:21:40.261]     doFuture::registerDoFuture()
  [20:21:40.261]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.261]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.261]         i <- NULL
  [20:21:40.261]         ...future.env <- environment()
  [20:21:40.261]         local({
  [20:21:40.261]             for (name in names(...future.x_jj)) {
  [20:21:40.261]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.261]                   inherits = FALSE)
  [20:21:40.261]             }
  [20:21:40.261]         })
  [20:21:40.261]         tryCatch({
  [20:21:40.261]             foreach(j = 1) %dopar% {
  [20:21:40.261]                 j
  [20:21:40.261]             }
  [20:21:40.261]         }, error = identity)
  [20:21:40.261]     })
  [20:21:40.261] }
  [20:21:40.262]   - globals: [1] '...future.x_ii'
  [20:21:40.278] List of 1
  [20:21:40.278]  $ ...future.x_ii: NULL
  [20:21:40.278]  - attr(*, "where")=List of 1
  [20:21:40.278]   ..$ ...future.x_ii:<environment: 0x5615207f3318> 
  [20:21:40.278]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.278]  - attr(*, "resolved")= logi FALSE
  [20:21:40.278]  - attr(*, "total_size")= num 0
  [20:21:40.284]   - packages: [2] 'doFuture', 'foreach'
  [20:21:40.284] - identifying globals and packages ... DONE
  [20:21:40.285] Number of chunks: 1
  [20:21:40.285] Number of futures (= number of chunks): 1
  [20:21:40.285] Launching 1 futures (chunks) ...
  [20:21:40.285] Chunk #1 of 1 ...
  [20:21:40.286]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:40.286] getGlobalsAndPackages() ...
  [20:21:40.286] Searching for globals...
  [20:21:40.287] 
  [20:21:40.288] Searching for globals ... DONE
  [20:21:40.288] - globals: [0] <none>
  [20:21:40.288] getGlobalsAndPackages() ... DONE
  [20:21:40.288] 
  [20:21:40.289] 
  [20:21:40.289]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:40.289] getGlobalsAndPackages() ...
  [20:21:40.290] - globals passed as-is: [1] '...future.x_ii'
  [20:21:40.290] Resolving globals: FALSE
  [20:21:40.291] The total size of the 1 globals is 56 bytes (56 bytes)
  [20:21:40.291] - globals: [1] '...future.x_ii'
  [20:21:40.292] 
  [20:21:40.292] getGlobalsAndPackages() ... DONE
  [20:21:40.310] Packages needed by the future expression (n = 2): 'doFuture', 'foreach'
  [20:21:40.310] Packages needed by future strategies (n = 0): <none>
  [20:21:40.315] {
  [20:21:40.315]     {
  [20:21:40.315]         ...future.startTime <- Sys.time()
  [20:21:40.315]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:40.315]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:40.315]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:40.315]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:40.315]             future.resolve.recursive = NULL, width = 80L)
  [20:21:40.315]         {
  [20:21:40.315]             {
  [20:21:40.315]                 {
  [20:21:40.315]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:40.315]                   version <- if (has_future) 
  [20:21:40.315]                     packageVersion("future")
  [20:21:40.315]                   else NULL
  [20:21:40.315]                   if (!has_future || version < "1.8.0") {
  [20:21:40.315]                     info <- c(r_version = gsub("R version ", 
  [20:21:40.315]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:40.315]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:40.315]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:40.315]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:40.315]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:40.315]                     info <- paste(info, collapse = "; ")
  [20:21:40.315]                     if (!has_future) {
  [20:21:40.315]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:40.315]                         info)
  [20:21:40.315]                     }
  [20:21:40.315]                     else {
  [20:21:40.315]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:40.315]                         info, version)
  [20:21:40.315]                     }
  [20:21:40.315]                     stop(msg)
  [20:21:40.315]                   }
  [20:21:40.315]                 }
  [20:21:40.315]                 local({
  [20:21:40.315]                   for (pkg in c("doFuture", "foreach")) {
  [20:21:40.315]                     loadNamespace(pkg)
  [20:21:40.315]                     library(pkg, character.only = TRUE)
  [20:21:40.315]                   }
  [20:21:40.315]                 })
  [20:21:40.315]             }
  [20:21:40.315]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:40.315]         }
  [20:21:40.315]     }
  [20:21:40.315]     if (is.na(TRUE)) {
  [20:21:40.315]     }
  [20:21:40.315]     else {
  [20:21:40.315]         if (TRUE) {
  [20:21:40.315]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:40.315]         }
  [20:21:40.315]         else {
  [20:21:40.315]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:40.315]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:40.315]         }
  [20:21:40.315]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:40.315]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:40.315]             sink(type = "output", split = FALSE)
  [20:21:40.315]             close(...future.stdout)
  [20:21:40.315]         }, add = TRUE)
  [20:21:40.315]     }
  [20:21:40.315]     ...future.frame <- sys.nframe()
  [20:21:40.315]     ...future.conditions <- list()
  [20:21:40.315]     ...future.result <- tryCatch({
  [20:21:40.315]         withCallingHandlers({
  [20:21:40.315]             ...future.value <- withVisible(local({
  [20:21:40.315]                 doFuture::registerDoFuture()
  [20:21:40.315]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.315]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.315]                   i <- NULL
  [20:21:40.315]                   ...future.env <- environment()
  [20:21:40.315]                   local({
  [20:21:40.315]                     for (name in names(...future.x_jj)) {
  [20:21:40.315]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.315]                         inherits = FALSE)
  [20:21:40.315]                     }
  [20:21:40.315]                   })
  [20:21:40.315]                   tryCatch({
  [20:21:40.315]                     foreach(j = 1) %dopar% {
  [20:21:40.315]                       j
  [20:21:40.315]                     }
  [20:21:40.315]                   }, error = identity)
  [20:21:40.315]                 })
  [20:21:40.315]             }))
  [20:21:40.315]             future::FutureResult(value = ...future.value$value, 
  [20:21:40.315]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:40.315]                 version = "1.8")
  [20:21:40.315]         }, condition = local({
  [20:21:40.315]             inherits <- base::inherits
  [20:21:40.315]             invokeRestart <- base::invokeRestart
  [20:21:40.315]             length <- base::length
  [20:21:40.315]             seq.int <- base::seq.int
  [20:21:40.315]             sys.calls <- base::sys.calls
  [20:21:40.315]             `[[` <- base::`[[`
  [20:21:40.315]             `+` <- base::`+`
  [20:21:40.315]             `<<-` <- base::`<<-`
  [20:21:40.315]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:40.315]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:40.315]                   3L)]
  [20:21:40.315]             }
  [20:21:40.315]             function(cond) {
  [20:21:40.315]                 if (inherits(cond, "error")) {
  [20:21:40.315]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.315]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:40.315]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:40.315]                     signaled = 0L)
  [20:21:40.315]                   signalCondition(cond)
  [20:21:40.315]                 }
  [20:21:40.315]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:40.315]                 ))) {
  [20:21:40.315]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:40.315]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.315]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:40.315]                   if (!signal) {
  [20:21:40.315]                     muffleCondition <- function (cond) 
  [20:21:40.315]                     {
  [20:21:40.315]                       inherits <- base::inherits
  [20:21:40.315]                       invokeRestart <- base::invokeRestart
  [20:21:40.315]                       muffled <- FALSE
  [20:21:40.315]                       if (inherits(cond, "message")) {
  [20:21:40.315]                         invokeRestart("muffleMessage")
  [20:21:40.315]                         muffled <- TRUE
  [20:21:40.315]                       }
  [20:21:40.315]                       else if (inherits(cond, "warning")) {
  [20:21:40.315]                         invokeRestart("muffleWarning")
  [20:21:40.315]                         muffled <- TRUE
  [20:21:40.315]                       }
  [20:21:40.315]                       else if (inherits(cond, "condition")) {
  [20:21:40.315]                         computeRestarts <- base::computeRestarts
  [20:21:40.315]                         grepl <- base::grepl
  [20:21:40.315]                         is.null <- base::is.null
  [20:21:40.315]                         restarts <- computeRestarts(cond)
  [20:21:40.315]                         for (restart in restarts) {
  [20:21:40.315]                           name <- restart$name
  [20:21:40.315]                           if (is.null(name)) 
  [20:21:40.315]                             next
  [20:21:40.315]                           if (!grepl("^muffle", name)) 
  [20:21:40.315]                             next
  [20:21:40.315]                           invokeRestart(restart)
  [20:21:40.315]                           muffled <- TRUE
  [20:21:40.315]                           break
  [20:21:40.315]                         }
  [20:21:40.315]                       }
  [20:21:40.315]                       invisible(muffled)
  [20:21:40.315]                     }
  [20:21:40.315]                     muffleCondition(cond)
  [20:21:40.315]                   }
  [20:21:40.315]                 }
  [20:21:40.315]             }
  [20:21:40.315]         }))
  [20:21:40.315]     }, error = function(ex) {
  [20:21:40.315]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:40.315]             version = "1.8"), class = "FutureResult")
  [20:21:40.315]     }, finally = {
  [20:21:40.315]         {
  [20:21:40.315]             NULL
  [20:21:40.315]             future::plan(list(function (expr, envir = parent.frame(), 
  [20:21:40.315]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:40.315]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:40.315]                 label = NULL, ...) 
  [20:21:40.315]             {
  [20:21:40.315]                 if (substitute) 
  [20:21:40.315]                   expr <- substitute(expr)
  [20:21:40.315]                 local <- as.logical(local)
  [20:21:40.315]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.315]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.315]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.315]                   label = label, ...)
  [20:21:40.315]                 if (!future$lazy) 
  [20:21:40.315]                   future <- run(future)
  [20:21:40.315]                 invisible(future)
  [20:21:40.315]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:40.315]         }
  [20:21:40.315]         options(...future.oldOptions)
  [20:21:40.315]     })
  [20:21:40.315]     if (is.na(TRUE)) {
  [20:21:40.315]     }
  [20:21:40.315]     else {
  [20:21:40.315]         sink(type = "output", split = FALSE)
  [20:21:40.315]         if (TRUE) {
  [20:21:40.315]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:40.315]         }
  [20:21:40.315]         else {
  [20:21:40.315]             ...future.result["stdout"] <- list(NULL)
  [20:21:40.315]         }
  [20:21:40.315]         close(...future.stdout)
  [20:21:40.315]         ...future.stdout <- NULL
  [20:21:40.315]     }
  [20:21:40.315]     ...future.result$conditions <- ...future.conditions
  [20:21:40.315]     ...future.result
  [20:21:40.315] }
  [20:21:40.320] plan(): Setting new future strategy stack:
  [20:21:40.321] List of future strategies:
  [20:21:40.321] 1. sequential:
  [20:21:40.321]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.321]    - tweaked: FALSE
  [20:21:40.321]    - call: NULL
  [20:21:40.322] plan(): nbrOfWorkers() = 1
  [20:21:40.510] plan(): Setting new future strategy stack:
  [20:21:40.511] List of future strategies:
  [20:21:40.511] 1. sequential:
  [20:21:40.511]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.511]    - tweaked: FALSE
  [20:21:40.511]    - call: future::plan(future::sequential)
  [20:21:40.512] plan(): nbrOfWorkers() = 1
  [20:21:40.512] SequentialFuture started (and completed)
  [20:21:40.513] signalConditions() ...
  [20:21:40.513]  - include = 'immediateCondition'
  [20:21:40.513]  - exclude = 
  [20:21:40.513]  - resignal = FALSE
  [20:21:40.514]  - Number of conditions: 96
  [20:21:40.514] signalConditions() ... done
  [20:21:40.515] Chunk #1 of 1 ... DONE
  [20:21:40.515] Launching 1 futures (chunks) ... DONE
  [20:21:40.515] - resolving futures
  [20:21:40.515]   - gathering results & relaying conditions (except errors)
  [20:21:40.516] resolve() on list ...
  [20:21:40.516]  recursive: 0
  [20:21:40.516]  length: 1
  [20:21:40.516] 
  [20:21:40.517] Future #1
  [20:21:40.517] signalConditions() ...
  [20:21:40.517]  - include = 'immediateCondition'
  [20:21:40.518]  - exclude = 
  [20:21:40.534]  - resignal = FALSE
  [20:21:40.534]  - Number of conditions: 96
  [20:21:40.535] signalConditions() ... done
  [20:21:40.535] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:40.535] - nx: 1
  [20:21:40.536] - relay: TRUE
  [20:21:40.536] - stdout: TRUE
  [20:21:40.536] - signal: TRUE
  [20:21:40.536] - resignal: FALSE
  [20:21:40.537] - force: FALSE
  [20:21:40.537] - relayed: [n=1] FALSE
  [20:21:40.537] - queued futures: [n=1] FALSE
  [20:21:40.537]  - until=1
  [20:21:40.538]  - relaying element #1
  [20:21:40.538] signalConditions() ...
  [20:21:40.538]  - include = 'immediateCondition'
  [20:21:40.539]  - exclude = 
  [20:21:40.539]  - resignal = FALSE
  [20:21:40.539]  - Number of conditions: 96
  [20:21:40.540] signalConditions() ... done
  [20:21:40.540] signalConditions() ...
  [20:21:40.540]  - include = 'immediateCondition'
  [20:21:40.541]  - exclude = 
  [20:21:40.541]  - resignal = FALSE
  [20:21:40.541]  - Number of conditions: 96
  [20:21:40.542] signalConditions() ... done
  [20:21:40.542] signalConditions() ...
  [20:21:40.542]  - include = 'condition'
  [20:21:40.542]  - exclude = 'immediateCondition'
  [20:21:40.543]  - resignal = FALSE
  [20:21:40.543]  - Number of conditions: 96
  [20:21:40.543]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:40.323] doFuture() ...
  [20:21:40.543]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:40.324] - dummy globals (as locals): [1] 'j'
  [20:21:40.544]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:40.326] - R expression:
  [20:21:40.544]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [20:21:40.342] {
  [20:21:40.342]     doFuture::registerDoFuture()
  [20:21:40.342]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.342]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.342]         j <- NULL
  [20:21:40.342]         ...future.env <- environment()
  [20:21:40.342]         local({
  [20:21:40.342]             for (name in names(...future.x_jj)) {
  [20:21:40.342]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.342]                   inherits = FALSE)
  [20:21:40.342]             }
  [20:21:40.342]         })
  [20:21:40.342]         tryCatch({
  [20:21:40.342]             j
  [20:21:40.342]         }, error = identity)
  [20:21:40.342]     })
  [20:21:40.342] }
  [20:21:40.544]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [20:21:40.343] - identifying globals and packages ...
  [20:21:40.545]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [20:21:40.344] getGlobalsAndPackages() ...
  [20:21:40.545]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [20:21:40.344] Searching for globals...
  [20:21:40.545]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [20:21:40.376] - globals found: [14] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'identity'
  [20:21:40.546]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [20:21:40.377] Searching for globals ... DONE
  [20:21:40.546]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [20:21:40.377] Resolving globals: FALSE
  [20:21:40.547]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [20:21:40.378] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:21:40.547]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [20:21:40.379] - globals: [1] '...future.x_ii'
  [20:21:40.547]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [20:21:40.379] 
  [20:21:40.548]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [20:21:40.379] getGlobalsAndPackages() ... DONE
  [20:21:40.548]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [20:21:40.380] List of 1
  [20:21:40.380]  $ ...future.x_ii: NULL
  [20:21:40.380]  - attr(*, "where")=List of 1
  [20:21:40.380]   ..$ ...future.x_ii:<environment: 0x561521b49850> 
  [20:21:40.380]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.380]  - attr(*, "resolved")= logi FALSE
  [20:21:40.380]  - attr(*, "total_size")= num 0
  [20:21:40.548]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [20:21:40.386]   - R expression:
  [20:21:40.549]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [20:21:40.386] {
  [20:21:40.386]     doFuture::registerDoFuture()
  [20:21:40.386]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.386]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.386]         j <- NULL
  [20:21:40.386]         ...future.env <- environment()
  [20:21:40.386]         local({
  [20:21:40.386]             for (name in names(...future.x_jj)) {
  [20:21:40.386]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.386]                   inherits = FALSE)
  [20:21:40.386]             }
  [20:21:40.386]         })
  [20:21:40.386]         tryCatch({
  [20:21:40.386]             j
  [20:21:40.386]         }, error = identity)
  [20:21:40.386]     })
  [20:21:40.386] }
  [20:21:40.549]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [20:21:40.387]   - globals: [1] '...future.x_ii'
  [20:21:40.550]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [20:21:40.387] List of 1
  [20:21:40.387]  $ ...future.x_ii: NULL
  [20:21:40.387]  - attr(*, "where")=List of 1
  [20:21:40.387]   ..$ ...future.x_ii:<environment: 0x561521b49850> 
  [20:21:40.387]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.387]  - attr(*, "resolved")= logi FALSE
  [20:21:40.387]  - attr(*, "total_size")= num 0
  [20:21:40.567]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [20:21:40.410]   - packages: [1] 'doFuture'
  [20:21:40.567]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [20:21:40.410] - identifying globals and packages ... DONE
  [20:21:40.567]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [20:21:40.411] Number of chunks: 1
  [20:21:40.568]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [20:21:40.411] Number of futures (= number of chunks): 1
  [20:21:40.568]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [20:21:40.411] Launching 1 futures (chunks) ...
  [20:21:40.569]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [20:21:40.412] Chunk #1 of 1 ...
  [20:21:40.569]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [20:21:40.412]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:40.569]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [20:21:40.413] getGlobalsAndPackages() ...
  [20:21:40.570]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [20:21:40.413] Searching for globals...
  [20:21:40.570]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [20:21:40.414] 
  [20:21:40.571]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [20:21:40.415] Searching for globals ... DONE
  [20:21:40.571]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [20:21:40.415] - globals: [0] <none>
  [20:21:40.571]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [20:21:40.415] getGlobalsAndPackages() ... DONE
  [20:21:40.572]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [20:21:40.416] 
  [20:21:40.572]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [20:21:40.416] 
  [20:21:40.573]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [20:21:40.417]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:40.573]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [20:21:40.417] getGlobalsAndPackages() ...
  [20:21:40.573]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [20:21:40.418] - globals passed as-is: [1] '...future.x_ii'
  [20:21:40.574]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [20:21:40.418] Resolving globals: FALSE
  [20:21:40.574]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [20:21:40.419] The total size of the 1 globals is 56 bytes (56 bytes)
  [20:21:40.575]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [20:21:40.420] - globals: [1] '...future.x_ii'
  [20:21:40.575]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [20:21:40.420] 
  [20:21:40.575]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [20:21:40.421] getGlobalsAndPackages() ... DONE
  [20:21:40.576]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [20:21:40.439] Packages needed by the future expression (n = 1): 'doFuture'
  [20:21:40.576]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [20:21:40.439] Packages needed by future strategies (n = 0): <none>
  [20:21:40.577]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [20:21:40.444] {
  [20:21:40.444]     {
  [20:21:40.444]         ...future.startTime <- Sys.time()
  [20:21:40.444]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:40.444]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:40.444]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:40.444]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:40.444]             future.resolve.recursive = NULL, width = 80L)
  [20:21:40.444]         {
  [20:21:40.444]             {
  [20:21:40.444]                 {
  [20:21:40.444]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:40.444]                   version <- if (has_future) 
  [20:21:40.444]                     packageVersion("future")
  [20:21:40.444]                   else NULL
  [20:21:40.444]                   if (!has_future || version < "1.8.0") {
  [20:21:40.444]                     info <- c(r_version = gsub("R version ", 
  [20:21:40.444]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:40.444]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:40.444]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:40.444]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:40.444]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:40.444]                     info <- paste(info, collapse = "; ")
  [20:21:40.444]                     if (!has_future) {
  [20:21:40.444]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:40.444]                         info)
  [20:21:40.444]                     }
  [20:21:40.444]                     else {
  [20:21:40.444]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:40.444]                         info, version)
  [20:21:40.444]                     }
  [20:21:40.444]                     stop(msg)
  [20:21:40.444]                   }
  [20:21:40.444]                 }
  [20:21:40.444]                 local({
  [20:21:40.444]                   for (pkg in "doFuture") {
  [20:21:40.444]                     loadNamespace(pkg)
  [20:21:40.444]                     library(pkg, character.only = TRUE)
  [20:21:40.444]                   }
  [20:21:40.444]                 })
  [20:21:40.444]             }
  [20:21:40.444]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:40.444]         }
  [20:21:40.444]     }
  [20:21:40.444]     if (is.na(TRUE)) {
  [20:21:40.444]     }
  [20:21:40.444]     else {
  [20:21:40.444]         if (TRUE) {
  [20:21:40.444]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:40.444]         }
  [20:21:40.444]         else {
  [20:21:40.444]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:40.444]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:40.444]         }
  [20:21:40.444]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:40.444]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:40.444]             sink(type = "output", split = FALSE)
  [20:21:40.444]             close(...future.stdout)
  [20:21:40.444]         }, add = TRUE)
  [20:21:40.444]     }
  [20:21:40.444]     ...future.frame <- sys.nframe()
  [20:21:40.444]     ...future.conditions <- list()
  [20:21:40.444]     ...future.result <- tryCatch({
  [20:21:40.444]         withCallingHandlers({
  [20:21:40.444]             ...future.value <- withVisible(local({
  [20:21:40.444]                 doFuture::registerDoFuture()
  [20:21:40.444]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.444]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.444]                   j <- NULL
  [20:21:40.444]                   ...future.env <- environment()
  [20:21:40.444]                   local({
  [20:21:40.444]                     for (name in names(...future.x_jj)) {
  [20:21:40.444]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.444]                         inherits = FALSE)
  [20:21:40.444]                     }
  [20:21:40.444]                   })
  [20:21:40.444]                   tryCatch({
  [20:21:40.444]                     j
  [20:21:40.444]                   }, error = identity)
  [20:21:40.444]                 })
  [20:21:40.444]             }))
  [20:21:40.444]             future::FutureResult(value = ...future.value$value, 
  [20:21:40.444]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:40.444]                 version = "1.8")
  [20:21:40.444]         }, condition = local({
  [20:21:40.444]             inherits <- base::inherits
  [20:21:40.444]             invokeRestart <- base::invokeRestart
  [20:21:40.444]             length <- base::length
  [20:21:40.444]             seq.int <- base::seq.int
  [20:21:40.444]             sys.calls <- base::sys.calls
  [20:21:40.444]             `[[` <- base::`[[`
  [20:21:40.444]             `+` <- base::`+`
  [20:21:40.444]             `<<-` <- base::`<<-`
  [20:21:40.444]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:40.444]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:40.444]                   3L)]
  [20:21:40.444]             }
  [20:21:40.444]             function(cond) {
  [20:21:40.444]                 if (inherits(cond, "error")) {
  [20:21:40.444]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.444]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:40.444]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:40.444]                     signaled = 0L)
  [20:21:40.444]                   signalCondition(cond)
  [20:21:40.444]                 }
  [20:21:40.444]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:40.444]                 ))) {
  [20:21:40.444]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:40.444]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.444]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:40.444]                   if (!signal) {
  [20:21:40.444]                     muffleCondition <- function (cond) 
  [20:21:40.444]                     {
  [20:21:40.444]                       inherits <- base::inherits
  [20:21:40.444]                       invokeRestart <- base::invokeRestart
  [20:21:40.444]                       muffled <- FALSE
  [20:21:40.444]                       if (inherits(cond, "message")) {
  [20:21:40.444]                         invokeRestart("muffleMessage")
  [20:21:40.444]                         muffled <- TRUE
  [20:21:40.444]                       }
  [20:21:40.444]                       else if (inherits(cond, "warning")) {
  [20:21:40.444]                         invokeRestart("muffleWarning")
  [20:21:40.444]                         muffled <- TRUE
  [20:21:40.444]                       }
  [20:21:40.444]                       else if (inherits(cond, "condition")) {
  [20:21:40.444]                         computeRestarts <- base::computeRestarts
  [20:21:40.444]                         grepl <- base::grepl
  [20:21:40.444]                         is.null <- base::is.null
  [20:21:40.444]                         restarts <- computeRestarts(cond)
  [20:21:40.444]                         for (restart in restarts) {
  [20:21:40.444]                           name <- restart$name
  [20:21:40.444]                           if (is.null(name)) 
  [20:21:40.444]                             next
  [20:21:40.444]                           if (!grepl("^muffle", name)) 
  [20:21:40.444]                             next
  [20:21:40.444]                           invokeRestart(restart)
  [20:21:40.444]                           muffled <- TRUE
  [20:21:40.444]                           break
  [20:21:40.444]                         }
  [20:21:40.444]                       }
  [20:21:40.444]                       invisible(muffled)
  [20:21:40.444]                     }
  [20:21:40.444]                     muffleCondition(cond)
  [20:21:40.444]                   }
  [20:21:40.444]                 }
  [20:21:40.444]             }
  [20:21:40.444]         }))
  [20:21:40.444]     }, error = function(ex) {
  [20:21:40.444]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:40.444]             version = "1.8"), class = "FutureResult")
  [20:21:40.444]     }, finally = {
  [20:21:40.444]         {
  [20:21:40.444]             NULL
  [20:21:40.444]             future::plan(list(function (expr, envir = parent.frame(), 
  [20:21:40.444]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:40.444]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:40.444]                 label = NULL, ...) 
  [20:21:40.444]             {
  [20:21:40.444]                 if (substitute) 
  [20:21:40.444]                   expr <- substitute(expr)
  [20:21:40.444]                 local <- as.logical(local)
  [20:21:40.444]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.444]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.444]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.444]                   label = label, ...)
  [20:21:40.444]                 if (!future$lazy) 
  [20:21:40.444]                   future <- run(future)
  [20:21:40.444]                 invisible(future)
  [20:21:40.444]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:40.444]         }
  [20:21:40.444]         options(...future.oldOptions)
  [20:21:40.444]     })
  [20:21:40.444]     if (is.na(TRUE)) {
  [20:21:40.444]     }
  [20:21:40.444]     else {
  [20:21:40.444]         sink(type = "output", split = FALSE)
  [20:21:40.444]         if (TRUE) {
  [20:21:40.444]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:40.444]         }
  [20:21:40.444]         else {
  [20:21:40.444]             ...future.result["stdout"] <- list(NULL)
  [20:21:40.444]         }
  [20:21:40.444]         close(...future.stdout)
  [20:21:40.444]         ...future.stdout <- NULL
  [20:21:40.444]     }
  [20:21:40.444]     ...future.result$conditions <- ...future.conditions
  [20:21:40.444]     ...future.result
  [20:21:40.444] }
  [20:21:40.577]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [20:21:40.449] plan(): Setting new future strategy stack:
  [20:21:40.578]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [20:21:40.450] List of future strategies:
  [20:21:40.450] 1. sequential:
  [20:21:40.450]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.450]    - tweaked: FALSE
  [20:21:40.450]    - call: NULL
  [20:21:40.578]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [20:21:40.451] plan(): nbrOfWorkers() = 1
  [20:21:40.578]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [20:21:40.452] plan(): Setting new future strategy stack:
  [20:21:40.579]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [20:21:40.453] List of future strategies:
  [20:21:40.453] 1. sequential:
  [20:21:40.453]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.453]    - tweaked: FALSE
  [20:21:40.453]    - call: NULL
  [20:21:40.579]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [20:21:40.470] plan(): nbrOfWorkers() = 1
  [20:21:40.580]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [20:21:40.471] SequentialFuture started (and completed)
  [20:21:40.580]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [20:21:40.471] Chunk #1 of 1 ... DONE
  [20:21:40.581]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [20:21:40.472] Launching 1 futures (chunks) ... DONE
  [20:21:40.581]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [20:21:40.472] - resolving futures
  [20:21:40.581]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [20:21:40.472]   - gathering results & relaying conditions (except errors)
  [20:21:40.582]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [20:21:40.473] resolve() on list ...
  [20:21:40.582]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [20:21:40.473]  recursive: 0
  [20:21:40.583]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [20:21:40.474]  length: 1
  [20:21:40.583]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [20:21:40.474] 
  [20:21:40.583]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [20:21:40.474] Future #1
  [20:21:40.584]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [20:21:40.475] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:40.584]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [20:21:40.475] - nx: 1
  [20:21:40.584]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [20:21:40.476] - relay: TRUE
  [20:21:40.585]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [20:21:40.476] - stdout: TRUE
  [20:21:40.585]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [20:21:40.477] - signal: TRUE
  [20:21:40.585]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [20:21:40.477] - resignal: FALSE
  [20:21:40.586]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [20:21:40.477] - force: FALSE
  [20:21:40.586]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [20:21:40.478] - relayed: [n=1] FALSE
  [20:21:40.586]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [20:21:40.478] - queued futures: [n=1] FALSE
  [20:21:40.587]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [20:21:40.479]  - until=1
  [20:21:40.587]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [20:21:40.479]  - relaying element #1
  [20:21:40.588]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [20:21:40.480] - relayed: [n=1] TRUE
  [20:21:40.588]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [20:21:40.480] - queued futures: [n=1] TRUE
  [20:21:40.588]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [20:21:40.481] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:40.589]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [20:21:40.481]  length: 0 (resolved future 1)
  [20:21:40.589]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [20:21:40.482] Relaying remaining futures
  [20:21:40.589]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [20:21:40.482] signalConditionsASAP(NULL, pos=0) ...
  [20:21:40.590]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [20:21:40.483] - nx: 1
  [20:21:40.590]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [20:21:40.483] - relay: TRUE
  [20:21:40.591]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [20:21:40.483] - stdout: TRUE
  [20:21:40.591]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [20:21:40.484] - signal: TRUE
  [20:21:40.592]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [20:21:40.484] - resignal: FALSE
  [20:21:40.592]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [20:21:40.485] - force: FALSE
  [20:21:40.593]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [20:21:40.485] - relayed: [n=1] TRUE
  [20:21:40.593]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [20:21:40.485] - queued futures: [n=1] TRUE
  [20:21:40.594]  - Condition #87: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:21:40.594]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [20:21:40.502] - relayed: [n=1] TRUE
  [20:21:40.594]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [20:21:40.506] - queued futures: [n=1] TRUE
  [20:21:40.595]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [20:21:40.507] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:40.595]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [20:21:40.507] resolve() on list ... DONE
  [20:21:40.596]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [20:21:40.507] - collecting values of futures
  [20:21:40.596]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [20:21:40.508] - accumulating results
  [20:21:40.596]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [20:21:40.509] - processing errors (handler = 'stop')
  [20:21:40.597]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [20:21:40.509] - extracting results
  [20:21:40.597]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [20:21:40.510] doFuture() ... DONE
  [20:21:40.598] signalConditions() ... done
  [20:21:40.598] - relayed: [n=1] TRUE
  [20:21:40.598] - queued futures: [n=1] TRUE
  [20:21:40.599] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:40.599]  length: 0 (resolved future 1)
  [20:21:40.599] Relaying remaining futures
  [20:21:40.600] signalConditionsASAP(NULL, pos=0) ...
  [20:21:40.600] - nx: 1
  [20:21:40.600] - relay: TRUE
  [20:21:40.600] - stdout: TRUE
  [20:21:40.601] - signal: TRUE
  [20:21:40.601] - resignal: FALSE
  [20:21:40.601] - force: FALSE
  [20:21:40.602] - relayed: [n=1] TRUE
  [20:21:40.602] - queued futures: [n=1] TRUE
   - flush all
  [20:21:40.602] - relayed: [n=1] TRUE
  [20:21:40.603] - queued futures: [n=1] TRUE
  [20:21:40.603] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:40.603] resolve() on list ... DONE
  [20:21:40.603] - collecting values of futures
  [20:21:40.604] signalConditions() ...
  [20:21:40.604]  - include = 'immediateCondition'
  [20:21:40.604]  - exclude = 
  [20:21:40.604]  - resignal = FALSE
  [20:21:40.605]  - Number of conditions: 96
  [20:21:40.605] signalConditions() ... done
  [20:21:40.606] - accumulating results
  [20:21:40.607] - processing errors (handler = 'stop')
  [20:21:40.607] - extracting results
  [20:21:40.607] doFuture() ... DONE
  > str(x)
  List of 1
   $ :List of 1
    ..$ : num 1
  > rm(list = "x")
  > 
  > message("*** doFuture - nested %dopar%  and tricky globals ... DONE")
  *** doFuture - nested %dopar%  and tricky globals ... DONE
  > 
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  + 
  +     as <- 1:2
  +     bs <- 3:1
  + 
  +     stopifnot(!exists("a", inherits = FALSE), !exists("b", inherits = FALSE))
  + 
  +     message("foreach() - level 1 ...")
  +     x <- foreach(a = as, .export = c("bs", "strategy2"),
  +                  .packages = "foreach") %dopar% {
  +       plan_list <- future::plan()
  +       stopifnot(inherits(plan_list, strategy2))
  +       plan_a <- future::plan("list")
  +       str(plan_a)
  +       stopifnot(inherits(plan_a[[1]], strategy2))
  + 
  +       message("foreach() - level 2 ...")
  +       y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% {
  +         plan_list <- future::plan()
  +         message(capture.output(print(plan_list)))
  + 	
  +         stopifnot(inherits(plan_list, "future"))
  +         ## future.plan can be either a string or a future function
  +         default <- getOption("future.plan", "sequential")
  +         if (is.function(default)) default <- class(default)
  +         stopifnot(inherits(plan_list, default))
  + 
  +         plan_b <- future::plan("list")
  +         str(plan_b)
  +         stopifnot(
  + 	  inherits(plan_b[[1]], "future"),
  +           inherits(plan_b[[1]], default)
  + 	)
  + 
  +         list(a = a, plan_a = plan_a,
  +              b = b, plan_b = plan_b)
  +       }
  +       message("foreach() - level 2 ... DONE")
  + 
  +       y
  +     }
  +     message("foreach() - level 1 ... DONE")
  + 
  +     local({
  +       stopifnot(length(x) == length(as))
  +       for (aa in seq_along(as)) {
  +         x_aa <- x[[aa]]
  +         stopifnot(length(x_aa) == length(bs))
  +         a <- as[aa]
  +         for (bb in seq_along(bs)) {
  +           x_aa_bb <- x_aa[[bb]]
  +           b <- bs[bb]
  +           stopifnot(
  +             length(x_aa_bb) == 4L,
  +             all(names(x_aa_bb) == c("a", "plan_a", "b", "plan_b")),
  +             x_aa_bb$a == a,
  +             x_aa_bb$b == b,
  +             inherits(x_aa_bb$plan_a[[1]], strategy2),
  +             inherits(x_aa_bb$plan_b[[1]], "future"),
  +             inherits(x_aa_bb$plan_b[[1]],
  +                      getOption("future.plan", "sequential"))
  +           )
  +         }
  +       }
  +     })
  + 
  +     ## Cleanup in order make sure none of these variables exist as
  +     ## proxies for missing globals of the name names
  +     rm(list = c("as", "bs", "x"))
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [20:21:40.767] plan(): Setting new future strategy stack:
  [20:21:40.768] List of future strategies:
  [20:21:40.768] 1. sequential:
  [20:21:40.768]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.768]    - tweaked: FALSE
  [20:21:40.768]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:40.768] 2. sequential:
  [20:21:40.768]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:40.768]    - tweaked: FALSE
  [20:21:40.768]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:40.833] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [20:21:40.834] doFuture() ...
  [20:21:40.835] - dummy globals (as locals): [1] 'a'
  [20:21:40.836] - R expression:
  [20:21:40.836] {
  [20:21:40.836]     doFuture::registerDoFuture()
  [20:21:40.836]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.836]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.836]         a <- NULL
  [20:21:40.836]         ...future.env <- environment()
  [20:21:40.836]         local({
  [20:21:40.836]             for (name in names(...future.x_jj)) {
  [20:21:40.836]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.836]                   inherits = FALSE)
  [20:21:40.836]             }
  [20:21:40.836]         })
  [20:21:40.836]         tryCatch({
  [20:21:40.836]             plan_list <- future::plan()
  [20:21:40.836]             stopifnot(inherits(plan_list, strategy2))
  [20:21:40.836]             plan_a <- future::plan("list")
  [20:21:40.836]             str(plan_a)
  [20:21:40.836]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:40.836]             message("foreach() - level 2 ...")
  [20:21:40.836]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:40.836]                 {
  [20:21:40.836]                   plan_list <- future::plan()
  [20:21:40.836]                   message(capture.output(print(plan_list)))
  [20:21:40.836]                   stopifnot(inherits(plan_list, "future"))
  [20:21:40.836]                   default <- getOption("future.plan", "sequential")
  [20:21:40.836]                   if (is.function(default)) 
  [20:21:40.836]                     default <- class(default)
  [20:21:40.836]                   stopifnot(inherits(plan_list, default))
  [20:21:40.836]                   plan_b <- future::plan("list")
  [20:21:40.836]                   str(plan_b)
  [20:21:40.836]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:40.836]                     inherits(plan_b[[1]], default))
  [20:21:40.836]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:40.836]                 }
  [20:21:40.836]             message("foreach() - level 2 ... DONE")
  [20:21:40.836]             y
  [20:21:40.836]         }, error = identity)
  [20:21:40.836]     })
  [20:21:40.836] }
  [20:21:40.837] - identifying globals and packages ...
  [20:21:40.850] getGlobalsAndPackages() ...
  [20:21:40.850] Searching for globals...
  [20:21:40.898] - 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'
  [20:21:40.898] Searching for globals ... DONE
  [20:21:40.898] Resolving globals: FALSE
  [20:21:40.921] The total size of the 3 globals is 184 bytes (184 bytes)
  [20:21:40.921] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:40.922] - packages: [2] 'utils', 'foreach'
  [20:21:40.922] getGlobalsAndPackages() ... DONE
  [20:21:40.922] List of 3
  [20:21:40.922]  $ ...future.x_ii: NULL
  [20:21:40.922]  $ strategy2     : chr "sequential"
  [20:21:40.922]  $ bs            : int [1:3] 3 2 1
  [20:21:40.922]  - attr(*, "where")=List of 3
  [20:21:40.922]   ..$ ...future.x_ii:<environment: 0x5615209b9d60> 
  [20:21:40.922]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:40.922]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:40.922]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.922]  - attr(*, "resolved")= logi FALSE
  [20:21:40.922]  - attr(*, "total_size")= num 184
  [20:21:40.931]   - R expression:
  [20:21:40.932] {
  [20:21:40.932]     doFuture::registerDoFuture()
  [20:21:40.932]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.932]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.932]         a <- NULL
  [20:21:40.932]         ...future.env <- environment()
  [20:21:40.932]         local({
  [20:21:40.932]             for (name in names(...future.x_jj)) {
  [20:21:40.932]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.932]                   inherits = FALSE)
  [20:21:40.932]             }
  [20:21:40.932]         })
  [20:21:40.932]         tryCatch({
  [20:21:40.932]             plan_list <- future::plan()
  [20:21:40.932]             stopifnot(inherits(plan_list, strategy2))
  [20:21:40.932]             plan_a <- future::plan("list")
  [20:21:40.932]             str(plan_a)
  [20:21:40.932]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:40.932]             message("foreach() - level 2 ...")
  [20:21:40.932]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:40.932]                 {
  [20:21:40.932]                   plan_list <- future::plan()
  [20:21:40.932]                   message(capture.output(print(plan_list)))
  [20:21:40.932]                   stopifnot(inherits(plan_list, "future"))
  [20:21:40.932]                   default <- getOption("future.plan", "sequential")
  [20:21:40.932]                   if (is.function(default)) 
  [20:21:40.932]                     default <- class(default)
  [20:21:40.932]                   stopifnot(inherits(plan_list, default))
  [20:21:40.932]                   plan_b <- future::plan("list")
  [20:21:40.932]                   str(plan_b)
  [20:21:40.932]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:40.932]                     inherits(plan_b[[1]], default))
  [20:21:40.932]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:40.932]                 }
  [20:21:40.932]             message("foreach() - level 2 ... DONE")
  [20:21:40.932]             y
  [20:21:40.932]         }, error = identity)
  [20:21:40.932]     })
  [20:21:40.932] }
  [20:21:40.933]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:40.933] List of 3
  [20:21:40.933]  $ ...future.x_ii: NULL
  [20:21:40.933]  $ strategy2     : chr "sequential"
  [20:21:40.933]  $ bs            : int [1:3] 3 2 1
  [20:21:40.933]  - attr(*, "where")=List of 3
  [20:21:40.933]   ..$ ...future.x_ii:<environment: 0x5615209b9d60> 
  [20:21:40.933]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:40.933]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:40.933]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:40.933]  - attr(*, "resolved")= logi FALSE
  [20:21:40.933]  - attr(*, "total_size")= num 184
  [20:21:40.958]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [20:21:40.958] - identifying globals and packages ... DONE
  [20:21:40.959] Number of chunks: 1
  [20:21:40.959] Number of futures (= number of chunks): 1
  [20:21:40.959] Launching 1 futures (chunks) ...
  [20:21:40.959] Chunk #1 of 1 ...
  [20:21:40.960]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:40.960] getGlobalsAndPackages() ...
  [20:21:40.960] Searching for globals...
  [20:21:40.961] 
  [20:21:40.961] Searching for globals ... DONE
  [20:21:40.961] - globals: [0] <none>
  [20:21:40.978] getGlobalsAndPackages() ... DONE
  [20:21:40.978] 
  [20:21:40.978] 
  [20:21:40.979]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:40.979] getGlobalsAndPackages() ...
  [20:21:40.979] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:40.980] Resolving globals: FALSE
  [20:21:40.981] The total size of the 3 globals is 296 bytes (296 bytes)
  [20:21:40.981] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:40.981] 
  [20:21:40.982] getGlobalsAndPackages() ... DONE
  [20:21:40.983] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [20:21:40.984] Packages needed by future strategies (n = 1): 'future'
  [20:21:40.988] {
  [20:21:40.988]     {
  [20:21:40.988]         ...future.startTime <- Sys.time()
  [20:21:40.988]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:40.988]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:40.988]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:40.988]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:40.988]             future.resolve.recursive = NULL, width = 80L)
  [20:21:40.988]         {
  [20:21:40.988]             {
  [20:21:40.988]                 {
  [20:21:40.988]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:40.988]                   version <- if (has_future) 
  [20:21:40.988]                     packageVersion("future")
  [20:21:40.988]                   else NULL
  [20:21:40.988]                   if (!has_future || version < "1.8.0") {
  [20:21:40.988]                     info <- c(r_version = gsub("R version ", 
  [20:21:40.988]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:40.988]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:40.988]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:40.988]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:40.988]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:40.988]                     info <- paste(info, collapse = "; ")
  [20:21:40.988]                     if (!has_future) {
  [20:21:40.988]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:40.988]                         info)
  [20:21:40.988]                     }
  [20:21:40.988]                     else {
  [20:21:40.988]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:40.988]                         info, version)
  [20:21:40.988]                     }
  [20:21:40.988]                     stop(msg)
  [20:21:40.988]                   }
  [20:21:40.988]                 }
  [20:21:40.988]                 local({
  [20:21:40.988]                   for (pkg in c("doFuture", "utils", "foreach", 
  [20:21:40.988]                   "future")) {
  [20:21:40.988]                     loadNamespace(pkg)
  [20:21:40.988]                     library(pkg, character.only = TRUE)
  [20:21:40.988]                   }
  [20:21:40.988]                 })
  [20:21:40.988]             }
  [20:21:40.988]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:40.988]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:40.988]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:40.988]                 label = NULL, ...) 
  [20:21:40.988]             {
  [20:21:40.988]                 if (substitute) 
  [20:21:40.988]                   expr <- substitute(expr)
  [20:21:40.988]                 local <- as.logical(local)
  [20:21:40.988]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.988]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.988]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.988]                   label = label, ...)
  [20:21:40.988]                 if (!future$lazy) 
  [20:21:40.988]                   future <- run(future)
  [20:21:40.988]                 invisible(future)
  [20:21:40.988]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:40.988]         }
  [20:21:40.988]     }
  [20:21:40.988]     if (is.na(TRUE)) {
  [20:21:40.988]     }
  [20:21:40.988]     else {
  [20:21:40.988]         if (TRUE) {
  [20:21:40.988]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:40.988]         }
  [20:21:40.988]         else {
  [20:21:40.988]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:40.988]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:40.988]         }
  [20:21:40.988]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:40.988]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:40.988]             sink(type = "output", split = FALSE)
  [20:21:40.988]             close(...future.stdout)
  [20:21:40.988]         }, add = TRUE)
  [20:21:40.988]     }
  [20:21:40.988]     ...future.frame <- sys.nframe()
  [20:21:40.988]     ...future.conditions <- list()
  [20:21:40.988]     ...future.result <- tryCatch({
  [20:21:40.988]         withCallingHandlers({
  [20:21:40.988]             ...future.value <- withVisible(local({
  [20:21:40.988]                 doFuture::registerDoFuture()
  [20:21:40.988]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:40.988]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:40.988]                   a <- NULL
  [20:21:40.988]                   ...future.env <- environment()
  [20:21:40.988]                   local({
  [20:21:40.988]                     for (name in names(...future.x_jj)) {
  [20:21:40.988]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:40.988]                         inherits = FALSE)
  [20:21:40.988]                     }
  [20:21:40.988]                   })
  [20:21:40.988]                   tryCatch({
  [20:21:40.988]                     plan_list <- future::plan()
  [20:21:40.988]                     stopifnot(inherits(plan_list, strategy2))
  [20:21:40.988]                     plan_a <- future::plan("list")
  [20:21:40.988]                     str(plan_a)
  [20:21:40.988]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:40.988]                     message("foreach() - level 2 ...")
  [20:21:40.988]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:40.988]                       {
  [20:21:40.988]                         plan_list <- future::plan()
  [20:21:40.988]                         message(capture.output(print(plan_list)))
  [20:21:40.988]                         stopifnot(inherits(plan_list, "future"))
  [20:21:40.988]                         default <- getOption("future.plan", "sequential")
  [20:21:40.988]                         if (is.function(default)) 
  [20:21:40.988]                           default <- class(default)
  [20:21:40.988]                         stopifnot(inherits(plan_list, default))
  [20:21:40.988]                         plan_b <- future::plan("list")
  [20:21:40.988]                         str(plan_b)
  [20:21:40.988]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:40.988]                           inherits(plan_b[[1]], default))
  [20:21:40.988]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:40.988]                       }
  [20:21:40.988]                     message("foreach() - level 2 ... DONE")
  [20:21:40.988]                     y
  [20:21:40.988]                   }, error = identity)
  [20:21:40.988]                 })
  [20:21:40.988]             }))
  [20:21:40.988]             future::FutureResult(value = ...future.value$value, 
  [20:21:40.988]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:40.988]                 version = "1.8")
  [20:21:40.988]         }, condition = local({
  [20:21:40.988]             inherits <- base::inherits
  [20:21:40.988]             invokeRestart <- base::invokeRestart
  [20:21:40.988]             length <- base::length
  [20:21:40.988]             seq.int <- base::seq.int
  [20:21:40.988]             sys.calls <- base::sys.calls
  [20:21:40.988]             `[[` <- base::`[[`
  [20:21:40.988]             `+` <- base::`+`
  [20:21:40.988]             `<<-` <- base::`<<-`
  [20:21:40.988]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:40.988]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:40.988]                   3L)]
  [20:21:40.988]             }
  [20:21:40.988]             function(cond) {
  [20:21:40.988]                 if (inherits(cond, "error")) {
  [20:21:40.988]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.988]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:40.988]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:40.988]                     signaled = 0L)
  [20:21:40.988]                   signalCondition(cond)
  [20:21:40.988]                 }
  [20:21:40.988]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:40.988]                 ))) {
  [20:21:40.988]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:40.988]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:40.988]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:40.988]                   if (!signal) {
  [20:21:40.988]                     muffleCondition <- function (cond) 
  [20:21:40.988]                     {
  [20:21:40.988]                       inherits <- base::inherits
  [20:21:40.988]                       invokeRestart <- base::invokeRestart
  [20:21:40.988]                       muffled <- FALSE
  [20:21:40.988]                       if (inherits(cond, "message")) {
  [20:21:40.988]                         invokeRestart("muffleMessage")
  [20:21:40.988]                         muffled <- TRUE
  [20:21:40.988]                       }
  [20:21:40.988]                       else if (inherits(cond, "warning")) {
  [20:21:40.988]                         invokeRestart("muffleWarning")
  [20:21:40.988]                         muffled <- TRUE
  [20:21:40.988]                       }
  [20:21:40.988]                       else if (inherits(cond, "condition")) {
  [20:21:40.988]                         computeRestarts <- base::computeRestarts
  [20:21:40.988]                         grepl <- base::grepl
  [20:21:40.988]                         is.null <- base::is.null
  [20:21:40.988]                         restarts <- computeRestarts(cond)
  [20:21:40.988]                         for (restart in restarts) {
  [20:21:40.988]                           name <- restart$name
  [20:21:40.988]                           if (is.null(name)) 
  [20:21:40.988]                             next
  [20:21:40.988]                           if (!grepl("^muffle", name)) 
  [20:21:40.988]                             next
  [20:21:40.988]                           invokeRestart(restart)
  [20:21:40.988]                           muffled <- TRUE
  [20:21:40.988]                           break
  [20:21:40.988]                         }
  [20:21:40.988]                       }
  [20:21:40.988]                       invisible(muffled)
  [20:21:40.988]                     }
  [20:21:40.988]                     muffleCondition(cond)
  [20:21:40.988]                   }
  [20:21:40.988]                 }
  [20:21:40.988]             }
  [20:21:40.988]         }))
  [20:21:40.988]     }, error = function(ex) {
  [20:21:40.988]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:40.988]             version = "1.8"), class = "FutureResult")
  [20:21:40.988]     }, finally = {
  [20:21:40.988]         {
  [20:21:40.988]             NULL
  [20:21:40.988]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:40.988]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:40.988]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:40.988]                 label = NULL, ...) 
  [20:21:40.988]             {
  [20:21:40.988]                 if (substitute) 
  [20:21:40.988]                   expr <- substitute(expr)
  [20:21:40.988]                 local <- as.logical(local)
  [20:21:40.988]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.988]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.988]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.988]                   label = label, ...)
  [20:21:40.988]                 if (!future$lazy) 
  [20:21:40.988]                   future <- run(future)
  [20:21:40.988]                 invisible(future)
  [20:21:40.988]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:40.988]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:21:40.988]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:40.988]             {
  [20:21:40.988]                 if (substitute) 
  [20:21:40.988]                   expr <- substitute(expr)
  [20:21:40.988]                 local <- as.logical(local)
  [20:21:40.988]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:40.988]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:40.988]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:40.988]                   label = label, ...)
  [20:21:40.988]                 if (!future$lazy) 
  [20:21:40.988]                   future <- run(future)
  [20:21:40.988]                 invisible(future)
  [20:21:40.988]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:40.988]         }
  [20:21:40.988]         options(...future.oldOptions)
  [20:21:40.988]     })
  [20:21:40.988]     if (is.na(TRUE)) {
  [20:21:40.988]     }
  [20:21:40.988]     else {
  [20:21:40.988]         sink(type = "output", split = FALSE)
  [20:21:40.988]         if (TRUE) {
  [20:21:40.988]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:40.988]         }
  [20:21:40.988]         else {
  [20:21:40.988]             ...future.result["stdout"] <- list(NULL)
  [20:21:40.988]         }
  [20:21:40.988]         close(...future.stdout)
  [20:21:40.988]         ...future.stdout <- NULL
  [20:21:40.988]     }
  [20:21:40.988]     ...future.result$conditions <- ...future.conditions
  [20:21:40.988]     ...future.result
  [20:21:40.988] }
  [20:21:41.011] plan(): Setting new future strategy stack:
  [20:21:41.011] List of future strategies:
  [20:21:41.011] 1. sequential:
  [20:21:41.011]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.011]    - tweaked: FALSE
  [20:21:41.011]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.012] plan(): nbrOfWorkers() = 1
  [20:21:41.654] plan(): Setting new future strategy stack:
  [20:21:41.654] List of future strategies:
  [20:21:41.654] 1. sequential:
  [20:21:41.654]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.654]    - tweaked: FALSE
  [20:21:41.654]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.654] 2. sequential:
  [20:21:41.654]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.654]    - tweaked: FALSE
  [20:21:41.654]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.655] plan(): nbrOfWorkers() = 1
  [20:21:41.656] SequentialFuture started (and completed)
  [20:21:41.657] signalConditions() ...
  [20:21:41.657]  - include = 'immediateCondition'
  [20:21:41.657]  - exclude = 
  [20:21:41.657]  - resignal = FALSE
  [20:21:41.658]  - Number of conditions: 280
  [20:21:41.659] signalConditions() ... done
  [20:21:41.659] Chunk #1 of 1 ... DONE
  [20:21:41.659] Launching 1 futures (chunks) ... DONE
  [20:21:41.660] - resolving futures
  [20:21:41.660]   - gathering results & relaying conditions (except errors)
  [20:21:41.660] resolve() on list ...
  [20:21:41.660]  recursive: 0
  [20:21:41.661]  length: 1
  [20:21:41.661] 
  [20:21:41.661] Future #1
  [20:21:41.661] signalConditions() ...
  [20:21:41.662]  - include = 'immediateCondition'
  [20:21:41.662]  - exclude = 
  [20:21:41.662]  - resignal = FALSE
  [20:21:41.662]  - Number of conditions: 280
  [20:21:41.664] signalConditions() ... done
  [20:21:41.664] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:41.664] - nx: 1
  [20:21:41.664] - relay: TRUE
  [20:21:41.665] - stdout: TRUE
  [20:21:41.665] - signal: TRUE
  [20:21:41.665] - resignal: FALSE
  [20:21:41.665] - force: FALSE
  [20:21:41.666] - relayed: [n=1] FALSE
  [20:21:41.666] - queued futures: [n=1] FALSE
  [20:21:41.666]  - until=1
  [20:21:41.666]  - relaying element #1
  [20:21:41.667] signalConditions() ...
  [20:21:41.667]  - include = 'immediateCondition'
  [20:21:41.667]  - exclude = 
  [20:21:41.667]  - resignal = FALSE
  [20:21:41.668]  - Number of conditions: 280
  [20:21:41.669] 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"
  [20:21:41.669] signalConditions() ...
  [20:21:41.669]  - include = 'immediateCondition'
  [20:21:41.670]  - exclude = 
  [20:21:41.670]  - resignal = FALSE
  [20:21:41.670]  - Number of conditions: 280
  [20:21:41.671] signalConditions() ... done
  [20:21:41.672] signalConditions() ...
  [20:21:41.672]  - include = 'condition'
  [20:21:41.672]  - exclude = 'immediateCondition'
  [20:21:41.672]  - resignal = FALSE
  [20:21:41.673]  - Number of conditions: 280
  [20:21:41.673]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:21:41.673]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:41.018] doFuture() ...
  [20:21:41.674]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:41.019] - dummy globals (as locals): [1] 'b'
  [20:21:41.674]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [20:21:41.020] - R expression:
  [20:21:41.674]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [20:21:41.021] {
  [20:21:41.021]     doFuture::registerDoFuture()
  [20:21:41.021]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.021]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.021]         b <- NULL
  [20:21:41.021]         ...future.env <- environment()
  [20:21:41.021]         local({
  [20:21:41.021]             for (name in names(...future.x_jj)) {
  [20:21:41.021]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.021]                   inherits = FALSE)
  [20:21:41.021]             }
  [20:21:41.021]         })
  [20:21:41.021]         tryCatch({
  [20:21:41.021]             plan_list <- future::plan()
  [20:21:41.021]             message(capture.output(print(plan_list)))
  [20:21:41.021]             stopifnot(inherits(plan_list, "future"))
  [20:21:41.021]             default <- getOption("future.plan", "sequential")
  [20:21:41.021]             if (is.function(default)) 
  [20:21:41.021]                 default <- class(default)
  [20:21:41.021]             stopifnot(inherits(plan_list, default))
  [20:21:41.021]             plan_b <- future::plan("list")
  [20:21:41.021]             str(plan_b)
  [20:21:41.021]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:41.021]                 default))
  [20:21:41.021]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.021]         }, error = identity)
  [20:21:41.021]     })
  [20:21:41.021] }
  [20:21:41.675]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [20:21:41.022] - identifying globals and packages ...
  [20:21:41.675]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [20:21:41.023] getGlobalsAndPackages() ...
  [20:21:41.675]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [20:21:41.023] Searching for globals...
  [20:21:41.676]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [20:21:41.111] - 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'
  [20:21:41.676]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [20:21:41.111] Searching for globals ... DONE
  [20:21:41.677]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [20:21:41.112] Resolving globals: FALSE
  [20:21:41.677]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [20:21:41.115] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [20:21:41.677]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [20:21:41.115] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.694]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [20:21:41.116] - packages: [1] 'utils'
  [20:21:41.694]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [20:21:41.116] getGlobalsAndPackages() ... DONE
  [20:21:41.695]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [20:21:41.117] List of 3
  [20:21:41.117]  $ ...future.x_ii: NULL
  [20:21:41.117]  $ a             : int 1
  [20:21:41.117]  $ plan_a        :List of 1
  [20:21:41.117]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:41.117]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [20:21:41.117]     ...)  
  [20:21:41.117]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [20:21:41.117]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:41.117]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:41.117]  - attr(*, "where")=List of 3
  [20:21:41.117]   ..$ ...future.x_ii:<environment: 0x5615219f3a70> 
  [20:21:41.117]   ..$ a             :<environment: 0x5615217c7c80> 
  [20:21:41.117]   ..$ plan_a        :<environment: 0x5615217c7c80> 
  [20:21:41.117]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:41.117]  - attr(*, "resolved")= logi FALSE
  [20:21:41.117]  - attr(*, "total_size")= num 40624
  [20:21:41.695]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [20:21:41.148]   - R expression:
  [20:21:41.695]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [20:21:41.148] {
  [20:21:41.148]     doFuture::registerDoFuture()
  [20:21:41.148]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.148]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.148]         b <- NULL
  [20:21:41.148]         ...future.env <- environment()
  [20:21:41.148]         local({
  [20:21:41.148]             for (name in names(...future.x_jj)) {
  [20:21:41.148]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.148]                   inherits = FALSE)
  [20:21:41.148]             }
  [20:21:41.148]         })
  [20:21:41.148]         tryCatch({
  [20:21:41.148]             plan_list <- future::plan()
  [20:21:41.148]             message(capture.output(print(plan_list)))
  [20:21:41.148]             stopifnot(inherits(plan_list, "future"))
  [20:21:41.148]             default <- getOption("future.plan", "sequential")
  [20:21:41.148]             if (is.function(default)) 
  [20:21:41.148]                 default <- class(default)
  [20:21:41.148]             stopifnot(inherits(plan_list, default))
  [20:21:41.148]             plan_b <- future::plan("list")
  [20:21:41.148]             str(plan_b)
  [20:21:41.148]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:41.148]                 default))
  [20:21:41.148]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.148]         }, error = identity)
  [20:21:41.148]     })
  [20:21:41.148] }
  [20:21:41.696]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [20:21:41.149]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.696]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [20:21:41.150] List of 3
  [20:21:41.150]  $ ...future.x_ii: NULL
  [20:21:41.150]  $ a             : int 1
  [20:21:41.150]  $ plan_a        :List of 1
  [20:21:41.150]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:41.150]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [20:21:41.150]     ...)  
  [20:21:41.150]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [20:21:41.150]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:41.150]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:41.150]  - attr(*, "where")=List of 3
  [20:21:41.150]   ..$ ...future.x_ii:<environment: 0x5615219f3a70> 
  [20:21:41.150]   ..$ a             :<environment: 0x5615217c7c80> 
  [20:21:41.150]   ..$ plan_a        :<environment: 0x5615217c7c80> 
  [20:21:41.150]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:41.150]  - attr(*, "resolved")= logi FALSE
  [20:21:41.150]  - attr(*, "total_size")= num 40624
  [20:21:41.697]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [20:21:41.180]   - packages: [2] 'doFuture', 'utils'
  [20:21:41.697]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [20:21:41.184] - identifying globals and packages ... DONE
  [20:21:41.697]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [20:21:41.184] Number of chunks: 1
  [20:21:41.698]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [20:21:41.185] Number of futures (= number of chunks): 1
  [20:21:41.698]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [20:21:41.185] Launching 1 futures (chunks) ...
  [20:21:41.698]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [20:21:41.185] Chunk #1 of 1 ...
  [20:21:41.699]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [20:21:41.198]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:41.699]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [20:21:41.198] getGlobalsAndPackages() ...
  [20:21:41.700]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [20:21:41.199] Searching for globals...
  [20:21:41.700]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [20:21:41.200] 
  [20:21:41.700]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [20:21:41.200] Searching for globals ... DONE
  [20:21:41.701]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [20:21:41.201] - globals: [0] <none>
  [20:21:41.701]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [20:21:41.201] getGlobalsAndPackages() ... DONE
  [20:21:41.702]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [20:21:41.201] 
  [20:21:41.702]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [20:21:41.202] 
  [20:21:41.702]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [20:21:41.202]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:41.703]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [20:21:41.203] getGlobalsAndPackages() ...
  [20:21:41.703]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [20:21:41.203] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.703]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [20:21:41.204] Resolving globals: FALSE
  [20:21:41.704]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [20:21:41.205] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [20:21:41.704]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [20:21:41.206] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.705]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [20:21:41.206] 
  [20:21:41.705]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [20:21:41.207] getGlobalsAndPackages() ... DONE
  [20:21:41.705]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [20:21:41.208] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:41.706]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [20:21:41.209] Packages needed by future strategies (n = 0): <none>
  [20:21:41.706]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [20:21:41.213] {
  [20:21:41.213]     {
  [20:21:41.213]         ...future.startTime <- Sys.time()
  [20:21:41.213]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:41.213]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:41.213]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:41.213]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:41.213]             future.resolve.recursive = NULL, width = 80L)
  [20:21:41.213]         {
  [20:21:41.213]             {
  [20:21:41.213]                 {
  [20:21:41.213]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:41.213]                   version <- if (has_future) 
  [20:21:41.213]                     packageVersion("future")
  [20:21:41.213]                   else NULL
  [20:21:41.213]                   if (!has_future || version < "1.8.0") {
  [20:21:41.213]                     info <- c(r_version = gsub("R version ", 
  [20:21:41.213]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:41.213]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:41.213]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:41.213]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:41.213]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:41.213]                     info <- paste(info, collapse = "; ")
  [20:21:41.213]                     if (!has_future) {
  [20:21:41.213]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:41.213]                         info)
  [20:21:41.213]                     }
  [20:21:41.213]                     else {
  [20:21:41.213]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:41.213]                         info, version)
  [20:21:41.213]                     }
  [20:21:41.213]                     stop(msg)
  [20:21:41.213]                   }
  [20:21:41.213]                 }
  [20:21:41.213]                 local({
  [20:21:41.213]                   for (pkg in c("doFuture", "utils")) {
  [20:21:41.213]                     loadNamespace(pkg)
  [20:21:41.213]                     library(pkg, character.only = TRUE)
  [20:21:41.213]                   }
  [20:21:41.213]                 })
  [20:21:41.213]             }
  [20:21:41.213]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:41.213]         }
  [20:21:41.213]     }
  [20:21:41.213]     if (is.na(TRUE)) {
  [20:21:41.213]     }
  [20:21:41.213]     else {
  [20:21:41.213]         if (TRUE) {
  [20:21:41.213]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:41.213]         }
  [20:21:41.213]         else {
  [20:21:41.213]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:41.213]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:41.213]         }
  [20:21:41.213]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:41.213]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:41.213]             sink(type = "output", split = FALSE)
  [20:21:41.213]             close(...future.stdout)
  [20:21:41.213]         }, add = TRUE)
  [20:21:41.213]     }
  [20:21:41.213]     ...future.frame <- sys.nframe()
  [20:21:41.213]     ...future.conditions <- list()
  [20:21:41.213]     ...future.result <- tryCatch({
  [20:21:41.213]         withCallingHandlers({
  [20:21:41.213]             ...future.value <- withVisible(local({
  [20:21:41.213]                 doFuture::registerDoFuture()
  [20:21:41.213]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.213]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.213]                   b <- NULL
  [20:21:41.213]                   ...future.env <- environment()
  [20:21:41.213]                   local({
  [20:21:41.213]                     for (name in names(...future.x_jj)) {
  [20:21:41.213]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.213]                         inherits = FALSE)
  [20:21:41.213]                     }
  [20:21:41.213]                   })
  [20:21:41.213]                   tryCatch({
  [20:21:41.213]                     plan_list <- future::plan()
  [20:21:41.213]                     message(capture.output(print(plan_list)))
  [20:21:41.213]                     stopifnot(inherits(plan_list, "future"))
  [20:21:41.213]                     default <- getOption("future.plan", "sequential")
  [20:21:41.213]                     if (is.function(default)) 
  [20:21:41.213]                       default <- class(default)
  [20:21:41.213]                     stopifnot(inherits(plan_list, default))
  [20:21:41.213]                     plan_b <- future::plan("list")
  [20:21:41.213]                     str(plan_b)
  [20:21:41.213]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:41.213]                       inherits(plan_b[[1]], default))
  [20:21:41.213]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.213]                   }, error = identity)
  [20:21:41.213]                 })
  [20:21:41.213]             }))
  [20:21:41.213]             future::FutureResult(value = ...future.value$value, 
  [20:21:41.213]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:41.213]                 version = "1.8")
  [20:21:41.213]         }, condition = local({
  [20:21:41.213]             inherits <- base::inherits
  [20:21:41.213]             invokeRestart <- base::invokeRestart
  [20:21:41.213]             length <- base::length
  [20:21:41.213]             seq.int <- base::seq.int
  [20:21:41.213]             sys.calls <- base::sys.calls
  [20:21:41.213]             `[[` <- base::`[[`
  [20:21:41.213]             `+` <- base::`+`
  [20:21:41.213]             `<<-` <- base::`<<-`
  [20:21:41.213]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:41.213]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:41.213]                   3L)]
  [20:21:41.213]             }
  [20:21:41.213]             function(cond) {
  [20:21:41.213]                 if (inherits(cond, "error")) {
  [20:21:41.213]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:41.213]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:41.213]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:41.213]                     signaled = 0L)
  [20:21:41.213]                   signalCondition(cond)
  [20:21:41.213]                 }
  [20:21:41.213]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:41.213]                 ))) {
  [20:21:41.213]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:41.213]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:41.213]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:41.213]                   if (!signal) {
  [20:21:41.213]                     muffleCondition <- function (cond) 
  [20:21:41.213]                     {
  [20:21:41.213]                       inherits <- base::inherits
  [20:21:41.213]                       invokeRestart <- base::invokeRestart
  [20:21:41.213]                       muffled <- FALSE
  [20:21:41.213]                       if (inherits(cond, "message")) {
  [20:21:41.213]                         invokeRestart("muffleMessage")
  [20:21:41.213]                         muffled <- TRUE
  [20:21:41.213]                       }
  [20:21:41.213]                       else if (inherits(cond, "warning")) {
  [20:21:41.213]                         invokeRestart("muffleWarning")
  [20:21:41.213]                         muffled <- TRUE
  [20:21:41.213]                       }
  [20:21:41.213]                       else if (inherits(cond, "condition")) {
  [20:21:41.213]                         computeRestarts <- base::computeRestarts
  [20:21:41.213]                         grepl <- base::grepl
  [20:21:41.213]                         is.null <- base::is.null
  [20:21:41.213]                         restarts <- computeRestarts(cond)
  [20:21:41.213]                         for (restart in restarts) {
  [20:21:41.213]                           name <- restart$name
  [20:21:41.213]                           if (is.null(name)) 
  [20:21:41.213]                             next
  [20:21:41.213]                           if (!grepl("^muffle", name)) 
  [20:21:41.213]                             next
  [20:21:41.213]                           invokeRestart(restart)
  [20:21:41.213]                           muffled <- TRUE
  [20:21:41.213]                           break
  [20:21:41.213]                         }
  [20:21:41.213]                       }
  [20:21:41.213]                       invisible(muffled)
  [20:21:41.213]                     }
  [20:21:41.213]                     muffleCondition(cond)
  [20:21:41.213]                   }
  [20:21:41.213]                 }
  [20:21:41.213]             }
  [20:21:41.213]         }))
  [20:21:41.213]     }, error = function(ex) {
  [20:21:41.213]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:41.213]             version = "1.8"), class = "FutureResult")
  [20:21:41.213]     }, finally = {
  [20:21:41.213]         {
  [20:21:41.213]             NULL
  [20:21:41.213]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:41.213]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:41.213]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:41.213]                 label = NULL, ...) 
  [20:21:41.213]             {
  [20:21:41.213]                 if (substitute) 
  [20:21:41.213]                   expr <- substitute(expr)
  [20:21:41.213]                 local <- as.logical(local)
  [20:21:41.213]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:41.213]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:41.213]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:41.213]                   label = label, ...)
  [20:21:41.213]                 if (!future$lazy) 
  [20:21:41.213]                   future <- run(future)
  [20:21:41.213]                 invisible(future)
  [20:21:41.213]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:41.213]         }
  [20:21:41.213]         options(...future.oldOptions)
  [20:21:41.213]     })
  [20:21:41.213]     if (is.na(TRUE)) {
  [20:21:41.213]     }
  [20:21:41.213]     else {
  [20:21:41.213]         sink(type = "output", split = FALSE)
  [20:21:41.213]         if (TRUE) {
  [20:21:41.213]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:41.213]         }
  [20:21:41.213]         else {
  [20:21:41.213]             ...future.result["stdout"] <- list(NULL)
  [20:21:41.213]         }
  [20:21:41.213]         close(...future.stdout)
  [20:21:41.213]         ...future.stdout <- NULL
  [20:21:41.213]     }
  [20:21:41.213]     ...future.result$conditions <- ...future.conditions
  [20:21:41.213]     ...future.result
  [20:21:41.213] }
  [20:21:41.707]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [20:21:41.234] plan(): Setting new future strategy stack:
  [20:21:41.707]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [20:21:41.235] List of future strategies:
  [20:21:41.235] 1. sequential:
  [20:21:41.235]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.235]    - tweaked: FALSE
  [20:21:41.235]    - call: NULL
  [20:21:41.707]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [20:21:41.236] plan(): nbrOfWorkers() = 1
  [20:21:41.708]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [20:21:41.329] plan(): Setting new future strategy stack:
  [20:21:41.708]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [20:21:41.329] List of future strategies:
  [20:21:41.329] 1. sequential:
  [20:21:41.329]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.329]    - tweaked: FALSE
  [20:21:41.329]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.709]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [20:21:41.330] plan(): nbrOfWorkers() = 1
  [20:21:41.709]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [20:21:41.331] SequentialFuture started (and completed)
  [20:21:41.709]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [20:21:41.331] signalConditions() ...
  [20:21:41.726]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [20:21:41.332]  - include = 'immediateCondition'
  [20:21:41.726]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [20:21:41.332]  - exclude = 
  [20:21:41.727]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [20:21:41.332]  - resignal = FALSE
  [20:21:41.727]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [20:21:41.333]  - Number of conditions: 3
  [20:21:41.728]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [20:21:41.333] signalConditions() ... done
  [20:21:41.728]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [20:21:41.333] Chunk #1 of 1 ... DONE
  [20:21:41.728]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [20:21:41.350] Launching 1 futures (chunks) ... DONE
  [20:21:41.729]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [20:21:41.351] - resolving futures
  [20:21:41.729]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [20:21:41.351]   - gathering results & relaying conditions (except errors)
  [20:21:41.730]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [20:21:41.351] resolve() on list ...
  [20:21:41.730]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [20:21:41.352]  recursive: 0
  [20:21:41.730]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [20:21:41.352]  length: 1
  [20:21:41.731]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [20:21:41.352] 
  [20:21:41.731]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [20:21:41.353] Future #1
  [20:21:41.732]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [20:21:41.353] signalConditions() ...
  [20:21:41.732]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [20:21:41.353]  - include = 'immediateCondition'
  [20:21:41.732]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [20:21:41.354]  - exclude = 
  [20:21:41.733]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [20:21:41.354]  - resignal = FALSE
  [20:21:41.733]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [20:21:41.355]  - Number of conditions: 3
  [20:21:41.734]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [20:21:41.355] signalConditions() ... done
  [20:21:41.734]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [20:21:41.355] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:41.734]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [20:21:41.356] - nx: 1
  [20:21:41.735]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [20:21:41.356] - relay: TRUE
  [20:21:41.735]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [20:21:41.356] - stdout: TRUE
  [20:21:41.735]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [20:21:41.357] - signal: TRUE
  [20:21:41.736]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [20:21:41.357] - resignal: FALSE
  [20:21:41.736]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [20:21:41.357] - force: FALSE
  [20:21:41.737]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [20:21:41.358] - relayed: [n=1] FALSE
  [20:21:41.740]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [20:21:41.358] - queued futures: [n=1] FALSE
  [20:21:41.741]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [20:21:41.359]  - until=1
  [20:21:41.741]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [20:21:41.359]  - relaying element #1
  [20:21:41.758]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [20:21:41.359] signalConditions() ...
  [20:21:41.758]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [20:21:41.360]  - include = 'immediateCondition'
  [20:21:41.759]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [20:21:41.360]  - exclude = 
  [20:21:41.759]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [20:21:41.360]  - resignal = FALSE
  [20:21:41.759]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [20:21:41.361]  - Number of conditions: 3
  [20:21:41.760]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [20:21:41.361] signalConditions() ... done
  [20:21:41.760]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [20:21:41.362] signalConditions() ...
  [20:21:41.760]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [20:21:41.362]  - include = 'immediateCondition'
  [20:21:41.761]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [20:21:41.362]  - exclude = 
  [20:21:41.761]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [20:21:41.363]  - resignal = FALSE
  [20:21:41.761]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [20:21:41.363]  - Number of conditions: 3
  [20:21:41.762]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [20:21:41.363] signalConditions() ... done
  [20:21:41.762]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [20:21:41.364] signalConditions() ...
  [20:21:41.762]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [20:21:41.364]  - include = 'condition'
  [20:21:41.763]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [20:21:41.365]  - exclude = 'immediateCondition'
  [20:21:41.763]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [20:21:41.365]  - resignal = FALSE
  [20:21:41.763]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [20:21:41.365]  - Number of conditions: 3
  [20:21:41.764]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [20:21:41.382]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:41.764]  - 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
  [20:21:41.764]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [20:21:41.383]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:41.765]  - 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
  [20:21:41.765]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [20:21:41.383]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:41.766]  - 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
  [20:21:41.766]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [20:21:41.384] signalConditions() ... done
  [20:21:41.766]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [20:21:41.384] - relayed: [n=1] TRUE
  [20:21:41.767]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [20:21:41.384] - queued futures: [n=1] TRUE
  [20:21:41.767]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [20:21:41.385] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:41.767]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [20:21:41.385]  length: 0 (resolved future 1)
  [20:21:41.768]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [20:21:41.386] Relaying remaining futures
  [20:21:41.768]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [20:21:41.386] signalConditionsASAP(NULL, pos=0) ...
  [20:21:41.768]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [20:21:41.386] - nx: 1
  [20:21:41.769]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [20:21:41.387] - relay: TRUE
  [20:21:41.769]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [20:21:41.387] - stdout: TRUE
  [20:21:41.769]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [20:21:41.387] - signal: TRUE
  [20:21:41.770]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [20:21:41.388] - resignal: FALSE
  [20:21:41.770]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [20:21:41.388] - force: FALSE
  [20:21:41.771]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [20:21:41.389] - relayed: [n=1] TRUE
  [20:21:41.771]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [20:21:41.389] - queued futures: [n=1] TRUE
  [20:21:41.771]  - Condition #124: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:21:41.772]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [20:21:41.390] - relayed: [n=1] TRUE
  [20:21:41.772]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [20:21:41.390] - queued futures: [n=1] TRUE
  [20:21:41.772]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [20:21:41.390] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:41.773]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [20:21:41.391] resolve() on list ... DONE
  [20:21:41.773]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [20:21:41.391] - collecting values of futures
  [20:21:41.773]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [20:21:41.392] signalConditions() ...
  [20:21:41.802]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [20:21:41.392]  - include = 'immediateCondition'
  [20:21:41.802]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [20:21:41.392]  - exclude = 
  [20:21:41.803]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [20:21:41.393]  - resignal = FALSE
  [20:21:41.803]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [20:21:41.393]  - Number of conditions: 3
  [20:21:41.804]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [20:21:41.393] signalConditions() ... done
  [20:21:41.804]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [20:21:41.394] - accumulating results
  [20:21:41.804]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [20:21:41.395] - processing errors (handler = 'stop')
  [20:21:41.805]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [20:21:41.395] - extracting results
  [20:21:41.805]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [20:21:41.396] doFuture() ... DONE
  [20:21:41.805]  - Condition #140: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:21:41.806]  - Condition #141: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:21:41.806]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [20:21:41.491] doFuture() ...
  [20:21:41.806]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [20:21:41.493] - dummy globals (as locals): [1] 'b'
  [20:21:41.807]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [20:21:41.502] - R expression:
  [20:21:41.807]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [20:21:41.503] {
  [20:21:41.503]     doFuture::registerDoFuture()
  [20:21:41.503]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.503]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.503]         b <- NULL
  [20:21:41.503]         ...future.env <- environment()
  [20:21:41.503]         local({
  [20:21:41.503]             for (name in names(...future.x_jj)) {
  [20:21:41.503]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.503]                   inherits = FALSE)
  [20:21:41.503]             }
  [20:21:41.503]         })
  [20:21:41.503]         tryCatch({
  [20:21:41.503]             plan_list <- future::plan()
  [20:21:41.503]             message(capture.output(print(plan_list)))
  [20:21:41.503]             stopifnot(inherits(plan_list, "future"))
  [20:21:41.503]             default <- getOption("future.plan", "sequential")
  [20:21:41.503]             if (is.function(default)) 
  [20:21:41.503]                 default <- class(default)
  [20:21:41.503]             stopifnot(inherits(plan_list, default))
  [20:21:41.503]             plan_b <- future::plan("list")
  [20:21:41.503]             str(plan_b)
  [20:21:41.503]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:41.503]                 default))
  [20:21:41.503]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.503]         }, error = identity)
  [20:21:41.503]     })
  [20:21:41.503] }
  [20:21:41.808]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [20:21:41.504] - identifying globals and packages ...
  [20:21:41.808]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [20:21:41.504] getGlobalsAndPackages() ...
  [20:21:41.808]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [20:21:41.505] Searching for globals...
  [20:21:41.809]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [20:21:41.529] - 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'
  [20:21:41.809]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [20:21:41.530] Searching for globals ... DONE
  [20:21:41.809]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [20:21:41.530] Resolving globals: FALSE
  [20:21:41.810]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [20:21:41.541] The total size of the 3 globals is 39.67 KiB (40624 bytes)
  [20:21:41.810]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [20:21:41.542] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.810]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [20:21:41.542] - packages: [1] 'utils'
  [20:21:41.811]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [20:21:41.543] getGlobalsAndPackages() ... DONE
  [20:21:41.811]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [20:21:41.543] List of 3
  [20:21:41.543]  $ ...future.x_ii: NULL
  [20:21:41.543]  $ a             : int 2
  [20:21:41.543]  $ plan_a        :List of 1
  [20:21:41.543]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:41.543]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [20:21:41.543]     ...)  
  [20:21:41.543]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [20:21:41.543]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:41.543]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:41.543]  - attr(*, "where")=List of 3
  [20:21:41.543]   ..$ ...future.x_ii:<environment: 0x5615219e54f8> 
  [20:21:41.543]   ..$ a             :<environment: 0x561521880fb8> 
  [20:21:41.543]   ..$ plan_a        :<environment: 0x561521880fb8> 
  [20:21:41.543]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:41.543]  - attr(*, "resolved")= logi FALSE
  [20:21:41.543]  - attr(*, "total_size")= num 40624
  [20:21:41.812]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [20:21:41.556]   - R expression:
  [20:21:41.812]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [20:21:41.557] {
  [20:21:41.557]     doFuture::registerDoFuture()
  [20:21:41.557]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.557]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.557]         b <- NULL
  [20:21:41.557]         ...future.env <- environment()
  [20:21:41.557]         local({
  [20:21:41.557]             for (name in names(...future.x_jj)) {
  [20:21:41.557]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.557]                   inherits = FALSE)
  [20:21:41.557]             }
  [20:21:41.557]         })
  [20:21:41.557]         tryCatch({
  [20:21:41.557]             plan_list <- future::plan()
  [20:21:41.557]             message(capture.output(print(plan_list)))
  [20:21:41.557]             stopifnot(inherits(plan_list, "future"))
  [20:21:41.557]             default <- getOption("future.plan", "sequential")
  [20:21:41.557]             if (is.function(default)) 
  [20:21:41.557]                 default <- class(default)
  [20:21:41.557]             stopifnot(inherits(plan_list, default))
  [20:21:41.557]             plan_b <- future::plan("list")
  [20:21:41.557]             str(plan_b)
  [20:21:41.557]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:41.557]                 default))
  [20:21:41.557]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.557]         }, error = identity)
  [20:21:41.557]     })
  [20:21:41.557] }
  [20:21:41.812]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [20:21:41.558]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.813]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [20:21:41.558] List of 3
  [20:21:41.558]  $ ...future.x_ii: NULL
  [20:21:41.558]  $ a             : int 2
  [20:21:41.558]  $ plan_a        :List of 1
  [20:21:41.558]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:41.558]     seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
  [20:21:41.558]     ...)  
  [20:21:41.558]   .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  [20:21:41.558]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:41.558]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:41.558]  - attr(*, "where")=List of 3
  [20:21:41.558]   ..$ ...future.x_ii:<environment: 0x5615219e54f8> 
  [20:21:41.558]   ..$ a             :<environment: 0x561521880fb8> 
  [20:21:41.558]   ..$ plan_a        :<environment: 0x561521880fb8> 
  [20:21:41.558]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:41.558]  - attr(*, "resolved")= logi FALSE
  [20:21:41.558]  - attr(*, "total_size")= num 40624
  [20:21:41.813]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [20:21:41.575]   - packages: [2] 'doFuture', 'utils'
  [20:21:41.813]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [20:21:41.575] - identifying globals and packages ... DONE
  [20:21:41.814]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [20:21:41.575] Number of chunks: 1
  [20:21:41.814]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [20:21:41.576] Number of futures (= number of chunks): 1
  [20:21:41.815]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [20:21:41.576] Launching 1 futures (chunks) ...
  [20:21:41.834]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [20:21:41.577] Chunk #1 of 1 ...
  [20:21:41.835]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [20:21:41.577]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:41.835]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [20:21:41.577] getGlobalsAndPackages() ...
  [20:21:41.835]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [20:21:41.578] Searching for globals...
  [20:21:41.836]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [20:21:41.579] 
  [20:21:41.836]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [20:21:41.579] Searching for globals ... DONE
  [20:21:41.836]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [20:21:41.580] - globals: [0] <none>
  [20:21:41.837]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [20:21:41.580] getGlobalsAndPackages() ... DONE
  [20:21:41.837]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [20:21:41.580] 
  [20:21:41.838]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [20:21:41.581] 
  [20:21:41.838]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [20:21:41.581]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:41.838]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [20:21:41.581] getGlobalsAndPackages() ...
  [20:21:41.839]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [20:21:41.582] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.839]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [20:21:41.582] Resolving globals: FALSE
  [20:21:41.840]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [20:21:41.584] The total size of the 3 globals is 39.84 KiB (40792 bytes)
  [20:21:41.840]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [20:21:41.584] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:41.840]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [20:21:41.585] 
  [20:21:41.841]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [20:21:41.585] getGlobalsAndPackages() ... DONE
  [20:21:41.841]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [20:21:41.587] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:41.842]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [20:21:41.587] Packages needed by future strategies (n = 0): <none>
  [20:21:41.842]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [20:21:41.591] {
  [20:21:41.591]     {
  [20:21:41.591]         ...future.startTime <- Sys.time()
  [20:21:41.591]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:41.591]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:41.591]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:41.591]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:41.591]             future.resolve.recursive = NULL, width = 80L)
  [20:21:41.591]         {
  [20:21:41.591]             {
  [20:21:41.591]                 {
  [20:21:41.591]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:41.591]                   version <- if (has_future) 
  [20:21:41.591]                     packageVersion("future")
  [20:21:41.591]                   else NULL
  [20:21:41.591]                   if (!has_future || version < "1.8.0") {
  [20:21:41.591]                     info <- c(r_version = gsub("R version ", 
  [20:21:41.591]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:41.591]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:41.591]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:41.591]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:41.591]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:41.591]                     info <- paste(info, collapse = "; ")
  [20:21:41.591]                     if (!has_future) {
  [20:21:41.591]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:41.591]                         info)
  [20:21:41.591]                     }
  [20:21:41.591]                     else {
  [20:21:41.591]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:41.591]                         info, version)
  [20:21:41.591]                     }
  [20:21:41.591]                     stop(msg)
  [20:21:41.591]                   }
  [20:21:41.591]                 }
  [20:21:41.591]                 local({
  [20:21:41.591]                   for (pkg in c("doFuture", "utils")) {
  [20:21:41.591]                     loadNamespace(pkg)
  [20:21:41.591]                     library(pkg, character.only = TRUE)
  [20:21:41.591]                   }
  [20:21:41.591]                 })
  [20:21:41.591]             }
  [20:21:41.591]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:41.591]         }
  [20:21:41.591]     }
  [20:21:41.591]     if (is.na(TRUE)) {
  [20:21:41.591]     }
  [20:21:41.591]     else {
  [20:21:41.591]         if (TRUE) {
  [20:21:41.591]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:41.591]         }
  [20:21:41.591]         else {
  [20:21:41.591]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:41.591]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:41.591]         }
  [20:21:41.591]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:41.591]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:41.591]             sink(type = "output", split = FALSE)
  [20:21:41.591]             close(...future.stdout)
  [20:21:41.591]         }, add = TRUE)
  [20:21:41.591]     }
  [20:21:41.591]     ...future.frame <- sys.nframe()
  [20:21:41.591]     ...future.conditions <- list()
  [20:21:41.591]     ...future.result <- tryCatch({
  [20:21:41.591]         withCallingHandlers({
  [20:21:41.591]             ...future.value <- withVisible(local({
  [20:21:41.591]                 doFuture::registerDoFuture()
  [20:21:41.591]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.591]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.591]                   b <- NULL
  [20:21:41.591]                   ...future.env <- environment()
  [20:21:41.591]                   local({
  [20:21:41.591]                     for (name in names(...future.x_jj)) {
  [20:21:41.591]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.591]                         inherits = FALSE)
  [20:21:41.591]                     }
  [20:21:41.591]                   })
  [20:21:41.591]                   tryCatch({
  [20:21:41.591]                     plan_list <- future::plan()
  [20:21:41.591]                     message(capture.output(print(plan_list)))
  [20:21:41.591]                     stopifnot(inherits(plan_list, "future"))
  [20:21:41.591]                     default <- getOption("future.plan", "sequential")
  [20:21:41.591]                     if (is.function(default)) 
  [20:21:41.591]                       default <- class(default)
  [20:21:41.591]                     stopifnot(inherits(plan_list, default))
  [20:21:41.591]                     plan_b <- future::plan("list")
  [20:21:41.591]                     str(plan_b)
  [20:21:41.591]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:41.591]                       inherits(plan_b[[1]], default))
  [20:21:41.591]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.591]                   }, error = identity)
  [20:21:41.591]                 })
  [20:21:41.591]             }))
  [20:21:41.591]             future::FutureResult(value = ...future.value$value, 
  [20:21:41.591]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:41.591]                 version = "1.8")
  [20:21:41.591]         }, condition = local({
  [20:21:41.591]             inherits <- base::inherits
  [20:21:41.591]             invokeRestart <- base::invokeRestart
  [20:21:41.591]             length <- base::length
  [20:21:41.591]             seq.int <- base::seq.int
  [20:21:41.591]             sys.calls <- base::sys.calls
  [20:21:41.591]             `[[` <- base::`[[`
  [20:21:41.591]             `+` <- base::`+`
  [20:21:41.591]             `<<-` <- base::`<<-`
  [20:21:41.591]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:41.591]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:41.591]                   3L)]
  [20:21:41.591]             }
  [20:21:41.591]             function(cond) {
  [20:21:41.591]                 if (inherits(cond, "error")) {
  [20:21:41.591]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:41.591]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:41.591]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:41.591]                     signaled = 0L)
  [20:21:41.591]                   signalCondition(cond)
  [20:21:41.591]                 }
  [20:21:41.591]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:41.591]                 ))) {
  [20:21:41.591]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:41.591]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:41.591]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:41.591]                   if (!signal) {
  [20:21:41.591]                     muffleCondition <- function (cond) 
  [20:21:41.591]                     {
  [20:21:41.591]                       inherits <- base::inherits
  [20:21:41.591]                       invokeRestart <- base::invokeRestart
  [20:21:41.591]                       muffled <- FALSE
  [20:21:41.591]                       if (inherits(cond, "message")) {
  [20:21:41.591]                         invokeRestart("muffleMessage")
  [20:21:41.591]                         muffled <- TRUE
  [20:21:41.591]                       }
  [20:21:41.591]                       else if (inherits(cond, "warning")) {
  [20:21:41.591]                         invokeRestart("muffleWarning")
  [20:21:41.591]                         muffled <- TRUE
  [20:21:41.591]                       }
  [20:21:41.591]                       else if (inherits(cond, "condition")) {
  [20:21:41.591]                         computeRestarts <- base::computeRestarts
  [20:21:41.591]                         grepl <- base::grepl
  [20:21:41.591]                         is.null <- base::is.null
  [20:21:41.591]                         restarts <- computeRestarts(cond)
  [20:21:41.591]                         for (restart in restarts) {
  [20:21:41.591]                           name <- restart$name
  [20:21:41.591]                           if (is.null(name)) 
  [20:21:41.591]                             next
  [20:21:41.591]                           if (!grepl("^muffle", name)) 
  [20:21:41.591]                             next
  [20:21:41.591]                           invokeRestart(restart)
  [20:21:41.591]                           muffled <- TRUE
  [20:21:41.591]                           break
  [20:21:41.591]                         }
  [20:21:41.591]                       }
  [20:21:41.591]                       invisible(muffled)
  [20:21:41.591]                     }
  [20:21:41.591]                     muffleCondition(cond)
  [20:21:41.591]                   }
  [20:21:41.591]                 }
  [20:21:41.591]             }
  [20:21:41.591]         }))
  [20:21:41.591]     }, error = function(ex) {
  [20:21:41.591]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:41.591]             version = "1.8"), class = "FutureResult")
  [20:21:41.591]     }, finally = {
  [20:21:41.591]         {
  [20:21:41.591]             NULL
  [20:21:41.591]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:41.591]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:41.591]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:41.591]                 label = NULL, ...) 
  [20:21:41.591]             {
  [20:21:41.591]                 if (substitute) 
  [20:21:41.591]                   expr <- substitute(expr)
  [20:21:41.591]                 local <- as.logical(local)
  [20:21:41.591]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:41.591]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:41.591]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:41.591]                   label = label, ...)
  [20:21:41.591]                 if (!future$lazy) 
  [20:21:41.591]                   future <- run(future)
  [20:21:41.591]                 invisible(future)
  [20:21:41.591]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:41.591]         }
  [20:21:41.591]         options(...future.oldOptions)
  [20:21:41.591]     })
  [20:21:41.591]     if (is.na(TRUE)) {
  [20:21:41.591]     }
  [20:21:41.591]     else {
  [20:21:41.591]         sink(type = "output", split = FALSE)
  [20:21:41.591]         if (TRUE) {
  [20:21:41.591]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:41.591]         }
  [20:21:41.591]         else {
  [20:21:41.591]             ...future.result["stdout"] <- list(NULL)
  [20:21:41.591]         }
  [20:21:41.591]         close(...future.stdout)
  [20:21:41.591]         ...future.stdout <- NULL
  [20:21:41.591]     }
  [20:21:41.591]     ...future.result$conditions <- ...future.conditions
  [20:21:41.591]     ...future.result
  [20:21:41.591] }
  [20:21:41.843]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [20:21:41.597] plan(): Setting new future strategy stack:
  [20:21:41.843]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [20:21:41.597] List of future strategies:
  [20:21:41.597] 1. sequential:
  [20:21:41.597]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.597]    - tweaked: FALSE
  [20:21:41.597]    - call: NULL
  [20:21:41.844]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [20:21:41.598] plan(): nbrOfWorkers() = 1
  [20:21:41.844]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [20:21:41.611] plan(): Setting new future strategy stack:
  [20:21:41.844]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [20:21:41.612] List of future strategies:
  [20:21:41.612] 1. sequential:
  [20:21:41.612]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.612]    - tweaked: FALSE
  [20:21:41.612]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.845]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [20:21:41.613] plan(): nbrOfWorkers() = 1
  [20:21:41.845]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [20:21:41.613] SequentialFuture started (and completed)
  [20:21:41.845]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [20:21:41.614] signalConditions() ...
  [20:21:41.846]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [20:21:41.614]  - include = 'immediateCondition'
  [20:21:41.846]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [20:21:41.615]  - exclude = 
  [20:21:41.847]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [20:21:41.615]  - resignal = FALSE
  [20:21:41.847]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [20:21:41.615]  - Number of conditions: 3
  [20:21:41.848]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [20:21:41.616] signalConditions() ... done
  [20:21:41.848]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [20:21:41.616] Chunk #1 of 1 ... DONE
  [20:21:41.848]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [20:21:41.617] Launching 1 futures (chunks) ... DONE
  [20:21:41.849]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [20:21:41.617] - resolving futures
  [20:21:41.849]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [20:21:41.618]   - gathering results & relaying conditions (except errors)
  [20:21:41.850]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [20:21:41.619] resolve() on list ...
  [20:21:41.850]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [20:21:41.619]  recursive: 0
  [20:21:41.850]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [20:21:41.620]  length: 1
  [20:21:41.851]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [20:21:41.620] 
  [20:21:41.851]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [20:21:41.621] Future #1
  [20:21:41.852]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [20:21:41.621] signalConditions() ...
  [20:21:41.852]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [20:21:41.621]  - include = 'immediateCondition'
  [20:21:41.852]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [20:21:41.622]  - exclude = 
  [20:21:41.853]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [20:21:41.622]  - resignal = FALSE
  [20:21:41.853]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [20:21:41.623]  - Number of conditions: 3
  [20:21:41.853]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [20:21:41.623] signalConditions() ... done
  [20:21:41.870]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [20:21:41.624] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:41.870]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [20:21:41.624] - nx: 1
  [20:21:41.871]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [20:21:41.624] - relay: TRUE
  [20:21:41.871]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [20:21:41.625] - stdout: TRUE
  [20:21:41.871]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [20:21:41.625] - signal: TRUE
  [20:21:41.872]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [20:21:41.626] - resignal: FALSE
  [20:21:41.872]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [20:21:41.626] - force: FALSE
  [20:21:41.873]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [20:21:41.626] - relayed: [n=1] FALSE
  [20:21:41.873]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [20:21:41.627] - queued futures: [n=1] FALSE
  [20:21:41.873]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [20:21:41.627]  - until=1
  [20:21:41.874]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [20:21:41.628]  - relaying element #1
  [20:21:41.874]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [20:21:41.628] signalConditions() ...
  [20:21:41.874]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [20:21:41.629]  - include = 'immediateCondition'
  [20:21:41.875]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [20:21:41.629]  - exclude = 
  [20:21:41.875]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [20:21:41.630]  - resignal = FALSE
  [20:21:41.876]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [20:21:41.630]  - Number of conditions: 3
  [20:21:41.876]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [20:21:41.630] signalConditions() ... done
  [20:21:41.876]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [20:21:41.631] signalConditions() ...
  [20:21:41.877]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [20:21:41.631]  - include = 'immediateCondition'
  [20:21:41.877]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [20:21:41.632]  - exclude = 
  [20:21:41.877]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [20:21:41.632]  - resignal = FALSE
  [20:21:41.878]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [20:21:41.633]  - Number of conditions: 3
  [20:21:41.878]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [20:21:41.633] signalConditions() ... done
  [20:21:41.879]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [20:21:41.633] signalConditions() ...
  [20:21:41.882]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [20:21:41.634]  - include = 'condition'
  [20:21:41.883]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [20:21:41.634]  - exclude = 'immediateCondition'
  [20:21:41.883]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [20:21:41.635]  - resignal = FALSE
  [20:21:41.884]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [20:21:41.635]  - Number of conditions: 3
  [20:21:41.884]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [20:21:41.636]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:41.884]  - 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
  [20:21:41.885]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [20:21:41.636]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:41.885]  - 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
  [20:21:41.885]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [20:21:41.637]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:41.902]  - 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
  [20:21:41.902]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [20:21:41.637] signalConditions() ... done
  [20:21:41.903]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [20:21:41.638] - relayed: [n=1] TRUE
  [20:21:41.903]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [20:21:41.638] - queued futures: [n=1] TRUE
  [20:21:41.903]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [20:21:41.639] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:41.904]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [20:21:41.639]  length: 0 (resolved future 1)
  [20:21:41.904]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [20:21:41.643] Relaying remaining futures
  [20:21:41.904]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [20:21:41.643] signalConditionsASAP(NULL, pos=0) ...
  [20:21:41.905]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [20:21:41.643] - nx: 1
  [20:21:41.905]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [20:21:41.644] - relay: TRUE
  [20:21:41.905]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [20:21:41.644] - stdout: TRUE
  [20:21:41.906]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [20:21:41.644] - signal: TRUE
  [20:21:41.906]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [20:21:41.645] - resignal: FALSE
  [20:21:41.907]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [20:21:41.645] - force: FALSE
  [20:21:41.907]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [20:21:41.646] - relayed: [n=1] TRUE
  [20:21:41.907]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [20:21:41.646] - queued futures: [n=1] TRUE
  [20:21:41.908]  - Condition #264: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:21:41.908]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [20:21:41.647] - relayed: [n=1] TRUE
  [20:21:41.908]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [20:21:41.647] - queued futures: [n=1] TRUE
  [20:21:41.909]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [20:21:41.647] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:41.909]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [20:21:41.648] resolve() on list ... DONE
  [20:21:41.909]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [20:21:41.648] - collecting values of futures
  [20:21:41.910]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [20:21:41.649] signalConditions() ...
  [20:21:41.910]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [20:21:41.649]  - include = 'immediateCondition'
  [20:21:41.910]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [20:21:41.649]  - exclude = 
  [20:21:41.911]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [20:21:41.650]  - resignal = FALSE
  [20:21:41.911]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [20:21:41.650]  - Number of conditions: 3
  [20:21:41.911]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [20:21:41.651] signalConditions() ... done
  [20:21:41.912]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [20:21:41.651] - accumulating results
  [20:21:41.912]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [20:21:41.652] - processing errors (handler = 'stop')
  [20:21:41.912]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [20:21:41.653] - extracting results
  [20:21:41.913]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [20:21:41.653] doFuture() ... DONE
  [20:21:41.913]  - Condition #280: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:21:41.914] signalConditions() ... done
  [20:21:41.914] - relayed: [n=1] TRUE
  [20:21:41.914] - queued futures: [n=1] TRUE
  [20:21:41.915] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:41.915]  length: 0 (resolved future 1)
  [20:21:41.915] Relaying remaining futures
  [20:21:41.915] signalConditionsASAP(NULL, pos=0) ...
  [20:21:41.916] - nx: 1
  [20:21:41.916] - relay: TRUE
  [20:21:41.916] - stdout: TRUE
  [20:21:41.916] - signal: TRUE
  [20:21:41.917] - resignal: FALSE
  [20:21:41.917] - force: FALSE
  [20:21:41.917] - relayed: [n=1] TRUE
  [20:21:41.917] - queued futures: [n=1] TRUE
   - flush all
  [20:21:41.934] - relayed: [n=1] TRUE
  [20:21:41.934] - queued futures: [n=1] TRUE
  [20:21:41.935] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:41.935] resolve() on list ... DONE
  [20:21:41.935] - collecting values of futures
  [20:21:41.936] signalConditions() ...
  [20:21:41.936]  - include = 'immediateCondition'
  [20:21:41.936]  - exclude = 
  [20:21:41.936]  - resignal = FALSE
  [20:21:41.937]  - Number of conditions: 280
  [20:21:41.937] signalConditions() ... done
  [20:21:41.938] - accumulating results
  [20:21:41.939] - processing errors (handler = 'stop')
  [20:21:41.939] - extracting results
  [20:21:41.939] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [20:21:41.941] plan(): Setting new future strategy stack:
  [20:21:41.941] List of future strategies:
  [20:21:41.941] 1. sequential:
  [20:21:41.941]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:41.941]    - tweaked: FALSE
  [20:21:41.941]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.941] 2. multicore:
  [20:21:41.941]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:41.941]    - tweaked: FALSE
  [20:21:41.941]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:41.942] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [20:21:41.943] doFuture() ...
  [20:21:41.944] - dummy globals (as locals): [1] 'a'
  [20:21:41.944] - R expression:
  [20:21:41.945] {
  [20:21:41.945]     doFuture::registerDoFuture()
  [20:21:41.945]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:41.945]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:41.945]         a <- NULL
  [20:21:41.945]         ...future.env <- environment()
  [20:21:41.945]         local({
  [20:21:41.945]             for (name in names(...future.x_jj)) {
  [20:21:41.945]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:41.945]                   inherits = FALSE)
  [20:21:41.945]             }
  [20:21:41.945]         })
  [20:21:41.945]         tryCatch({
  [20:21:41.945]             plan_list <- future::plan()
  [20:21:41.945]             stopifnot(inherits(plan_list, strategy2))
  [20:21:41.945]             plan_a <- future::plan("list")
  [20:21:41.945]             str(plan_a)
  [20:21:41.945]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:41.945]             message("foreach() - level 2 ...")
  [20:21:41.945]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:41.945]                 {
  [20:21:41.945]                   plan_list <- future::plan()
  [20:21:41.945]                   message(capture.output(print(plan_list)))
  [20:21:41.945]                   stopifnot(inherits(plan_list, "future"))
  [20:21:41.945]                   default <- getOption("future.plan", "sequential")
  [20:21:41.945]                   if (is.function(default)) 
  [20:21:41.945]                     default <- class(default)
  [20:21:41.945]                   stopifnot(inherits(plan_list, default))
  [20:21:41.945]                   plan_b <- future::plan("list")
  [20:21:41.945]                   str(plan_b)
  [20:21:41.945]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:41.945]                     inherits(plan_b[[1]], default))
  [20:21:41.945]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:41.945]                 }
  [20:21:41.945]             message("foreach() - level 2 ... DONE")
  [20:21:41.945]             y
  [20:21:41.945]         }, error = identity)
  [20:21:41.945]     })
  [20:21:41.945] }
  [20:21:41.946] - identifying globals and packages ...
  [20:21:41.946] getGlobalsAndPackages() ...
  [20:21:41.946] Searching for globals...
  [20:21:41.995] - 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'
  [20:21:41.995] Searching for globals ... DONE
  [20:21:41.995] Resolving globals: FALSE
  [20:21:41.998] The total size of the 3 globals is 184 bytes (184 bytes)
  [20:21:41.998] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:41.998] - packages: [2] 'utils', 'foreach'
  [20:21:41.999] getGlobalsAndPackages() ... DONE
  [20:21:41.999] List of 3
  [20:21:41.999]  $ ...future.x_ii: NULL
  [20:21:41.999]  $ strategy2     : chr "multicore"
  [20:21:41.999]  $ bs            : int [1:3] 3 2 1
  [20:21:41.999]  - attr(*, "where")=List of 3
  [20:21:41.999]   ..$ ...future.x_ii:<environment: 0x56151fb89588> 
  [20:21:41.999]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:41.999]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:41.999]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:41.999]  - attr(*, "resolved")= logi FALSE
  [20:21:41.999]  - attr(*, "total_size")= num 184
  [20:21:42.008]   - R expression:
  [20:21:42.008] {
  [20:21:42.008]     doFuture::registerDoFuture()
  [20:21:42.008]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.008]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.008]         a <- NULL
  [20:21:42.008]         ...future.env <- environment()
  [20:21:42.008]         local({
  [20:21:42.008]             for (name in names(...future.x_jj)) {
  [20:21:42.008]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.008]                   inherits = FALSE)
  [20:21:42.008]             }
  [20:21:42.008]         })
  [20:21:42.008]         tryCatch({
  [20:21:42.008]             plan_list <- future::plan()
  [20:21:42.008]             stopifnot(inherits(plan_list, strategy2))
  [20:21:42.008]             plan_a <- future::plan("list")
  [20:21:42.008]             str(plan_a)
  [20:21:42.008]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:42.008]             message("foreach() - level 2 ...")
  [20:21:42.008]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:42.008]                 {
  [20:21:42.008]                   plan_list <- future::plan()
  [20:21:42.008]                   message(capture.output(print(plan_list)))
  [20:21:42.008]                   stopifnot(inherits(plan_list, "future"))
  [20:21:42.008]                   default <- getOption("future.plan", "sequential")
  [20:21:42.008]                   if (is.function(default)) 
  [20:21:42.008]                     default <- class(default)
  [20:21:42.008]                   stopifnot(inherits(plan_list, default))
  [20:21:42.008]                   plan_b <- future::plan("list")
  [20:21:42.008]                   str(plan_b)
  [20:21:42.008]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.008]                     inherits(plan_b[[1]], default))
  [20:21:42.008]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.008]                 }
  [20:21:42.008]             message("foreach() - level 2 ... DONE")
  [20:21:42.008]             y
  [20:21:42.008]         }, error = identity)
  [20:21:42.008]     })
  [20:21:42.008] }
  [20:21:42.009]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:42.009] List of 3
  [20:21:42.009]  $ ...future.x_ii: NULL
  [20:21:42.009]  $ strategy2     : chr "multicore"
  [20:21:42.009]  $ bs            : int [1:3] 3 2 1
  [20:21:42.009]  - attr(*, "where")=List of 3
  [20:21:42.009]   ..$ ...future.x_ii:<environment: 0x56151fb89588> 
  [20:21:42.009]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:42.009]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:42.009]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:42.009]  - attr(*, "resolved")= logi FALSE
  [20:21:42.009]  - attr(*, "total_size")= num 184
  [20:21:42.018]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [20:21:42.019] - identifying globals and packages ... DONE
  [20:21:42.019] Number of chunks: 1
  [20:21:42.019] Number of futures (= number of chunks): 1
  [20:21:42.020] Launching 1 futures (chunks) ...
  [20:21:42.020] Chunk #1 of 1 ...
  [20:21:42.020]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:42.020] getGlobalsAndPackages() ...
  [20:21:42.021] Searching for globals...
  [20:21:42.021] 
  [20:21:42.022] Searching for globals ... DONE
  [20:21:42.022] - globals: [0] <none>
  [20:21:42.022] getGlobalsAndPackages() ... DONE
  [20:21:42.023] 
  [20:21:42.023] 
  [20:21:42.023]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:42.023] getGlobalsAndPackages() ...
  [20:21:42.024] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:42.024] Resolving globals: FALSE
  [20:21:42.025] The total size of the 3 globals is 296 bytes (296 bytes)
  [20:21:42.026] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:42.026] 
  [20:21:42.026] getGlobalsAndPackages() ... DONE
  [20:21:42.028] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [20:21:42.028] Packages needed by future strategies (n = 1): 'future'
  [20:21:42.032] {
  [20:21:42.032]     {
  [20:21:42.032]         ...future.startTime <- Sys.time()
  [20:21:42.032]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:42.032]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:42.032]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:42.032]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:42.032]             future.resolve.recursive = NULL, width = 80L)
  [20:21:42.032]         {
  [20:21:42.032]             {
  [20:21:42.032]                 {
  [20:21:42.032]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:42.032]                   version <- if (has_future) 
  [20:21:42.032]                     packageVersion("future")
  [20:21:42.032]                   else NULL
  [20:21:42.032]                   if (!has_future || version < "1.8.0") {
  [20:21:42.032]                     info <- c(r_version = gsub("R version ", 
  [20:21:42.032]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:42.032]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:42.032]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:42.032]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:42.032]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:42.032]                     info <- paste(info, collapse = "; ")
  [20:21:42.032]                     if (!has_future) {
  [20:21:42.032]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:42.032]                         info)
  [20:21:42.032]                     }
  [20:21:42.032]                     else {
  [20:21:42.032]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:42.032]                         info, version)
  [20:21:42.032]                     }
  [20:21:42.032]                     stop(msg)
  [20:21:42.032]                   }
  [20:21:42.032]                 }
  [20:21:42.032]                 local({
  [20:21:42.032]                   for (pkg in c("doFuture", "utils", "foreach", 
  [20:21:42.032]                   "future")) {
  [20:21:42.032]                     loadNamespace(pkg)
  [20:21:42.032]                     library(pkg, character.only = TRUE)
  [20:21:42.032]                   }
  [20:21:42.032]                 })
  [20:21:42.032]             }
  [20:21:42.032]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:42.032]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.032]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.032]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.032]             {
  [20:21:42.032]                 if (substitute) 
  [20:21:42.032]                   expr <- substitute(expr)
  [20:21:42.032]                 if (is.function(workers)) 
  [20:21:42.032]                   workers <- workers()
  [20:21:42.032]                 workers <- as.integer(workers)
  [20:21:42.032]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.032]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.032]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.032]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.032]                     local = TRUE, label = label, ...))
  [20:21:42.032]                 }
  [20:21:42.032]                 oopts <- options(mc.cores = workers)
  [20:21:42.032]                 on.exit(options(oopts))
  [20:21:42.032]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.032]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.032]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.032]                   label = label, ...)
  [20:21:42.032]                 if (!future$lazy) 
  [20:21:42.032]                   future <- run(future)
  [20:21:42.032]                 invisible(future)
  [20:21:42.032]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.032]         }
  [20:21:42.032]     }
  [20:21:42.032]     if (is.na(TRUE)) {
  [20:21:42.032]     }
  [20:21:42.032]     else {
  [20:21:42.032]         if (TRUE) {
  [20:21:42.032]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:42.032]         }
  [20:21:42.032]         else {
  [20:21:42.032]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:42.032]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:42.032]         }
  [20:21:42.032]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:42.032]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:42.032]             sink(type = "output", split = FALSE)
  [20:21:42.032]             close(...future.stdout)
  [20:21:42.032]         }, add = TRUE)
  [20:21:42.032]     }
  [20:21:42.032]     ...future.frame <- sys.nframe()
  [20:21:42.032]     ...future.conditions <- list()
  [20:21:42.032]     ...future.result <- tryCatch({
  [20:21:42.032]         withCallingHandlers({
  [20:21:42.032]             ...future.value <- withVisible(local({
  [20:21:42.032]                 doFuture::registerDoFuture()
  [20:21:42.032]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.032]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.032]                   a <- NULL
  [20:21:42.032]                   ...future.env <- environment()
  [20:21:42.032]                   local({
  [20:21:42.032]                     for (name in names(...future.x_jj)) {
  [20:21:42.032]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.032]                         inherits = FALSE)
  [20:21:42.032]                     }
  [20:21:42.032]                   })
  [20:21:42.032]                   tryCatch({
  [20:21:42.032]                     plan_list <- future::plan()
  [20:21:42.032]                     stopifnot(inherits(plan_list, strategy2))
  [20:21:42.032]                     plan_a <- future::plan("list")
  [20:21:42.032]                     str(plan_a)
  [20:21:42.032]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:42.032]                     message("foreach() - level 2 ...")
  [20:21:42.032]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:42.032]                       {
  [20:21:42.032]                         plan_list <- future::plan()
  [20:21:42.032]                         message(capture.output(print(plan_list)))
  [20:21:42.032]                         stopifnot(inherits(plan_list, "future"))
  [20:21:42.032]                         default <- getOption("future.plan", "sequential")
  [20:21:42.032]                         if (is.function(default)) 
  [20:21:42.032]                           default <- class(default)
  [20:21:42.032]                         stopifnot(inherits(plan_list, default))
  [20:21:42.032]                         plan_b <- future::plan("list")
  [20:21:42.032]                         str(plan_b)
  [20:21:42.032]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.032]                           inherits(plan_b[[1]], default))
  [20:21:42.032]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.032]                       }
  [20:21:42.032]                     message("foreach() - level 2 ... DONE")
  [20:21:42.032]                     y
  [20:21:42.032]                   }, error = identity)
  [20:21:42.032]                 })
  [20:21:42.032]             }))
  [20:21:42.032]             future::FutureResult(value = ...future.value$value, 
  [20:21:42.032]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:42.032]                 version = "1.8")
  [20:21:42.032]         }, condition = local({
  [20:21:42.032]             inherits <- base::inherits
  [20:21:42.032]             invokeRestart <- base::invokeRestart
  [20:21:42.032]             length <- base::length
  [20:21:42.032]             seq.int <- base::seq.int
  [20:21:42.032]             sys.calls <- base::sys.calls
  [20:21:42.032]             `[[` <- base::`[[`
  [20:21:42.032]             `+` <- base::`+`
  [20:21:42.032]             `<<-` <- base::`<<-`
  [20:21:42.032]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:42.032]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:42.032]                   3L)]
  [20:21:42.032]             }
  [20:21:42.032]             function(cond) {
  [20:21:42.032]                 if (inherits(cond, "error")) {
  [20:21:42.032]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.032]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:42.032]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:42.032]                     signaled = 0L)
  [20:21:42.032]                   signalCondition(cond)
  [20:21:42.032]                 }
  [20:21:42.032]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:42.032]                 ))) {
  [20:21:42.032]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:42.032]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.032]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:42.032]                   if (!signal) {
  [20:21:42.032]                     muffleCondition <- function (cond) 
  [20:21:42.032]                     {
  [20:21:42.032]                       inherits <- base::inherits
  [20:21:42.032]                       invokeRestart <- base::invokeRestart
  [20:21:42.032]                       muffled <- FALSE
  [20:21:42.032]                       if (inherits(cond, "message")) {
  [20:21:42.032]                         invokeRestart("muffleMessage")
  [20:21:42.032]                         muffled <- TRUE
  [20:21:42.032]                       }
  [20:21:42.032]                       else if (inherits(cond, "warning")) {
  [20:21:42.032]                         invokeRestart("muffleWarning")
  [20:21:42.032]                         muffled <- TRUE
  [20:21:42.032]                       }
  [20:21:42.032]                       else if (inherits(cond, "condition")) {
  [20:21:42.032]                         computeRestarts <- base::computeRestarts
  [20:21:42.032]                         grepl <- base::grepl
  [20:21:42.032]                         is.null <- base::is.null
  [20:21:42.032]                         restarts <- computeRestarts(cond)
  [20:21:42.032]                         for (restart in restarts) {
  [20:21:42.032]                           name <- restart$name
  [20:21:42.032]                           if (is.null(name)) 
  [20:21:42.032]                             next
  [20:21:42.032]                           if (!grepl("^muffle", name)) 
  [20:21:42.032]                             next
  [20:21:42.032]                           invokeRestart(restart)
  [20:21:42.032]                           muffled <- TRUE
  [20:21:42.032]                           break
  [20:21:42.032]                         }
  [20:21:42.032]                       }
  [20:21:42.032]                       invisible(muffled)
  [20:21:42.032]                     }
  [20:21:42.032]                     muffleCondition(cond)
  [20:21:42.032]                   }
  [20:21:42.032]                 }
  [20:21:42.032]             }
  [20:21:42.032]         }))
  [20:21:42.032]     }, error = function(ex) {
  [20:21:42.032]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:42.032]             version = "1.8"), class = "FutureResult")
  [20:21:42.032]     }, finally = {
  [20:21:42.032]         {
  [20:21:42.032]             NULL
  [20:21:42.032]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:42.032]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.032]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:42.032]                 label = NULL, ...) 
  [20:21:42.032]             {
  [20:21:42.032]                 if (substitute) 
  [20:21:42.032]                   expr <- substitute(expr)
  [20:21:42.032]                 local <- as.logical(local)
  [20:21:42.032]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:42.032]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.032]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:42.032]                   label = label, ...)
  [20:21:42.032]                 if (!future$lazy) 
  [20:21:42.032]                   future <- run(future)
  [20:21:42.032]                 invisible(future)
  [20:21:42.032]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:42.032]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.032]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.032]             {
  [20:21:42.032]                 if (substitute) 
  [20:21:42.032]                   expr <- substitute(expr)
  [20:21:42.032]                 if (is.function(workers)) 
  [20:21:42.032]                   workers <- workers()
  [20:21:42.032]                 workers <- as.integer(workers)
  [20:21:42.032]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.032]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.032]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.032]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.032]                     local = TRUE, label = label, ...))
  [20:21:42.032]                 }
  [20:21:42.032]                 oopts <- options(mc.cores = workers)
  [20:21:42.032]                 on.exit(options(oopts))
  [20:21:42.032]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.032]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.032]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.032]                   label = label, ...)
  [20:21:42.032]                 if (!future$lazy) 
  [20:21:42.032]                   future <- run(future)
  [20:21:42.032]                 invisible(future)
  [20:21:42.032]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.032]         }
  [20:21:42.032]         options(...future.oldOptions)
  [20:21:42.032]     })
  [20:21:42.032]     if (is.na(TRUE)) {
  [20:21:42.032]     }
  [20:21:42.032]     else {
  [20:21:42.032]         sink(type = "output", split = FALSE)
  [20:21:42.032]         if (TRUE) {
  [20:21:42.032]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:42.032]         }
  [20:21:42.032]         else {
  [20:21:42.032]             ...future.result["stdout"] <- list(NULL)
  [20:21:42.032]         }
  [20:21:42.032]         close(...future.stdout)
  [20:21:42.032]         ...future.stdout <- NULL
  [20:21:42.032]     }
  [20:21:42.032]     ...future.result$conditions <- ...future.conditions
  [20:21:42.032]     ...future.result
  [20:21:42.032] }
  [20:21:42.042] plan(): Setting new future strategy stack:
  [20:21:42.042] List of future strategies:
  [20:21:42.042] 1. multicore:
  [20:21:42.042]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:42.042]    - tweaked: FALSE
  [20:21:42.042]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:42.104] plan(): nbrOfWorkers() = 2
  [20:21:43.011] plan(): Setting new future strategy stack:
  [20:21:43.012] List of future strategies:
  [20:21:43.012] 1. sequential:
  [20:21:43.012]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:43.012]    - tweaked: FALSE
  [20:21:43.012]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:43.012] 2. multicore:
  [20:21:43.012]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:21:43.012]    - tweaked: FALSE
  [20:21:43.012]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:43.013] plan(): nbrOfWorkers() = 1
  [20:21:43.014] SequentialFuture started (and completed)
  [20:21:43.014] signalConditions() ...
  [20:21:43.015]  - include = 'immediateCondition'
  [20:21:43.015]  - exclude = 
  [20:21:43.015]  - resignal = FALSE
  [20:21:43.015]  - Number of conditions: 422
  [20:21:43.017] signalConditions() ... done
  [20:21:43.017] Chunk #1 of 1 ... DONE
  [20:21:43.017] Launching 1 futures (chunks) ... DONE
  [20:21:43.018] - resolving futures
  [20:21:43.018]   - gathering results & relaying conditions (except errors)
  [20:21:43.018] resolve() on list ...
  [20:21:43.022]  recursive: 0
  [20:21:43.022]  length: 1
  [20:21:43.023] 
  [20:21:43.023] Future #1
  [20:21:43.023] signalConditions() ...
  [20:21:43.024]  - include = 'immediateCondition'
  [20:21:43.024]  - exclude = 
  [20:21:43.024]  - resignal = FALSE
  [20:21:43.024]  - Number of conditions: 422
  [20:21:43.026] signalConditions() ... done
  [20:21:43.026] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:21:43.027] - nx: 1
  [20:21:43.027] - relay: TRUE
  [20:21:43.027] - stdout: TRUE
  [20:21:43.027] - signal: TRUE
  [20:21:43.028] - resignal: FALSE
  [20:21:43.028] - force: FALSE
  [20:21:43.028] - relayed: [n=1] FALSE
  [20:21:43.028] - queued futures: [n=1] FALSE
  [20:21:43.028]  - until=1
  [20:21:43.029]  - relaying element #1
  [20:21:43.029] signalConditions() ...
  [20:21:43.029]  - include = 'immediateCondition'
  [20:21:43.030]  - exclude = 
  [20:21:43.030]  - resignal = FALSE
  [20:21:43.030]  - Number of conditions: 422
  [20:21:43.031] 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"
  [20:21:43.032] signalConditions() ...
  [20:21:43.032]  - include = 'immediateCondition'
  [20:21:43.032]  - exclude = 
  [20:21:43.033]  - resignal = FALSE
  [20:21:43.033]  - Number of conditions: 422
  [20:21:43.034] signalConditions() ... done
  [20:21:43.034] signalConditions() ...
  [20:21:43.035]  - include = 'condition'
  [20:21:43.035]  - exclude = 'immediateCondition'
  [20:21:43.035]  - resignal = FALSE
  [20:21:43.035]  - Number of conditions: 422
  [20:21:43.036]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:21:43.036]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:42.109] doFuture() ...
  [20:21:43.036]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:42.111] - dummy globals (as locals): [1] 'b'
  [20:21:43.037]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [20:21:42.112] - R expression:
  [20:21:43.037]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [20:21:42.112] {
  [20:21:42.112]     doFuture::registerDoFuture()
  [20:21:42.112]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.112]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.112]         b <- NULL
  [20:21:42.112]         ...future.env <- environment()
  [20:21:42.112]         local({
  [20:21:42.112]             for (name in names(...future.x_jj)) {
  [20:21:42.112]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.112]                   inherits = FALSE)
  [20:21:42.112]             }
  [20:21:42.112]         })
  [20:21:42.112]         tryCatch({
  [20:21:42.112]             plan_list <- future::plan()
  [20:21:42.112]             message(capture.output(print(plan_list)))
  [20:21:42.112]             stopifnot(inherits(plan_list, "future"))
  [20:21:42.112]             default <- getOption("future.plan", "sequential")
  [20:21:42.112]             if (is.function(default)) 
  [20:21:42.112]                 default <- class(default)
  [20:21:42.112]             stopifnot(inherits(plan_list, default))
  [20:21:42.112]             plan_b <- future::plan("list")
  [20:21:42.112]             str(plan_b)
  [20:21:42.112]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:42.112]                 default))
  [20:21:42.112]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.112]         }, error = identity)
  [20:21:42.112]     })
  [20:21:42.112] }
  [20:21:43.037]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [20:21:42.113] - identifying globals and packages ...
  [20:21:43.038]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [20:21:42.114] getGlobalsAndPackages() ...
  [20:21:43.038]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [20:21:42.114] Searching for globals...
  [20:21:43.039]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [20:21:42.162] - 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'
  [20:21:43.039]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [20:21:42.163] Searching for globals ... DONE
  [20:21:43.039]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [20:21:42.163] Resolving globals: FALSE
  [20:21:43.040]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [20:21:42.171] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [20:21:43.040]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [20:21:42.171] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.040]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [20:21:42.172] - packages: [1] 'utils'
  [20:21:43.041]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [20:21:42.172] getGlobalsAndPackages() ... DONE
  [20:21:43.041]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [20:21:42.173] List of 3
  [20:21:42.173]  $ ...future.x_ii: NULL
  [20:21:42.173]  $ a             : int 1
  [20:21:42.173]  $ plan_a        :List of 1
  [20:21:42.173]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:42.173]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.173]     earlySignal = FALSE, label = NULL, ...)  
  [20:21:42.173]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [20:21:42.173]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:42.173]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:42.173]  - attr(*, "where")=List of 3
  [20:21:42.173]   ..$ ...future.x_ii:<environment: 0x56151f8730f8> 
  [20:21:42.173]   ..$ a             :<environment: 0x5615203fc198> 
  [20:21:42.173]   ..$ plan_a        :<environment: 0x5615203fc198> 
  [20:21:42.173]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:42.173]  - attr(*, "resolved")= logi FALSE
  [20:21:42.173]  - attr(*, "total_size")= num 76816
  [20:21:43.041]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [20:21:42.315]   - R expression:
  [20:21:43.042]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [20:21:42.315] {
  [20:21:42.315]     doFuture::registerDoFuture()
  [20:21:42.315]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.315]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.315]         b <- NULL
  [20:21:42.315]         ...future.env <- environment()
  [20:21:42.315]         local({
  [20:21:42.315]             for (name in names(...future.x_jj)) {
  [20:21:42.315]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.315]                   inherits = FALSE)
  [20:21:42.315]             }
  [20:21:42.315]         })
  [20:21:42.315]         tryCatch({
  [20:21:42.315]             plan_list <- future::plan()
  [20:21:42.315]             message(capture.output(print(plan_list)))
  [20:21:42.315]             stopifnot(inherits(plan_list, "future"))
  [20:21:42.315]             default <- getOption("future.plan", "sequential")
  [20:21:42.315]             if (is.function(default)) 
  [20:21:42.315]                 default <- class(default)
  [20:21:42.315]             stopifnot(inherits(plan_list, default))
  [20:21:42.315]             plan_b <- future::plan("list")
  [20:21:42.315]             str(plan_b)
  [20:21:42.315]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:42.315]                 default))
  [20:21:42.315]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.315]         }, error = identity)
  [20:21:42.315]     })
  [20:21:42.315] }
  [20:21:43.042]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [20:21:42.316]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.042]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [20:21:42.317] List of 3
  [20:21:42.317]  $ ...future.x_ii: NULL
  [20:21:42.317]  $ a             : int 1
  [20:21:42.317]  $ plan_a        :List of 1
  [20:21:42.317]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:42.317]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.317]     earlySignal = FALSE, label = NULL, ...)  
  [20:21:42.317]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [20:21:42.317]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:42.317]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:42.317]  - attr(*, "where")=List of 3
  [20:21:42.317]   ..$ ...future.x_ii:<environment: 0x56151f8730f8> 
  [20:21:42.317]   ..$ a             :<environment: 0x5615203fc198> 
  [20:21:42.317]   ..$ plan_a        :<environment: 0x5615203fc198> 
  [20:21:42.317]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:42.317]  - attr(*, "resolved")= logi FALSE
  [20:21:42.317]  - attr(*, "total_size")= num 76816
  [20:21:43.043]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [20:21:42.345]   - packages: [2] 'doFuture', 'utils'
  [20:21:43.043]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [20:21:42.346] - identifying globals and packages ... DONE
  [20:21:43.044]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [20:21:42.350] Number of chunks: 2
  [20:21:43.044]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [20:21:42.350] Number of futures (= number of chunks): 2
  [20:21:43.044]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [20:21:42.351] Launching 2 futures (chunks) ...
  [20:21:43.045]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [20:21:42.351] Chunk #1 of 2 ...
  [20:21:43.045]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [20:21:42.351]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:43.045]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [20:21:42.352] getGlobalsAndPackages() ...
  [20:21:43.046]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [20:21:42.352] Searching for globals...
  [20:21:43.046]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [20:21:42.353] 
  [20:21:43.046]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [20:21:42.353] Searching for globals ... DONE
  [20:21:43.047]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [20:21:42.354] - globals: [0] <none>
  [20:21:43.047]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [20:21:42.354] getGlobalsAndPackages() ... DONE
  [20:21:43.047]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [20:21:42.355] 
  [20:21:43.048]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [20:21:42.355] 
  [20:21:43.048]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [20:21:42.355]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:43.048]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [20:21:42.356] getGlobalsAndPackages() ...
  [20:21:43.049]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [20:21:42.357] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.049]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [20:21:42.357] Resolving globals: FALSE
  [20:21:43.049]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [20:21:42.359] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [20:21:43.050]  - Condition #41: 'simpleMessage', 'message', 'condition'
  [20:21:42.359] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.050]  - Condition #42: 'simpleMessage', 'message', 'condition'
  [20:21:42.360] 
  [20:21:43.050]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [20:21:42.360] getGlobalsAndPackages() ... DONE
  [20:21:43.051]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [20:21:42.362] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:43.051]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [20:21:42.363] Packages needed by future strategies (n = 0): <none>
  [20:21:43.051]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [20:21:42.389] {
  [20:21:42.389]     {
  [20:21:42.389]         ...future.startTime <- Sys.time()
  [20:21:42.389]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:42.389]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:42.389]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:42.389]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:42.389]             future.resolve.recursive = NULL, width = 80L)
  [20:21:42.389]         {
  [20:21:42.389]             {
  [20:21:42.389]                 {
  [20:21:42.389]                   {
  [20:21:42.389]                     has_future <- requireNamespace("future", 
  [20:21:42.389]                       quietly = TRUE)
  [20:21:42.389]                     version <- if (has_future) 
  [20:21:42.389]                       packageVersion("future")
  [20:21:42.389]                     else NULL
  [20:21:42.389]                     if (!has_future || version < "1.8.0") {
  [20:21:42.389]                       info <- c(r_version = gsub("R version ", 
  [20:21:42.389]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:42.389]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:42.389]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:42.389]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:42.389]                       info <- sprintf("%s: %s", names(info), 
  [20:21:42.389]                         info)
  [20:21:42.389]                       info <- paste(info, collapse = "; ")
  [20:21:42.389]                       if (!has_future) {
  [20:21:42.389]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:42.389]                           info)
  [20:21:42.389]                       }
  [20:21:42.389]                       else {
  [20:21:42.389]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:42.389]                           info, version)
  [20:21:42.389]                       }
  [20:21:42.389]                       stop(msg)
  [20:21:42.389]                     }
  [20:21:42.389]                   }
  [20:21:42.389]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:42.389]                   options(mc.cores = 1L)
  [20:21:42.389]                 }
  [20:21:42.389]                 local({
  [20:21:42.389]                   for (pkg in c("doFuture", "utils")) {
  [20:21:42.389]                     loadNamespace(pkg)
  [20:21:42.389]                     library(pkg, character.only = TRUE)
  [20:21:42.389]                   }
  [20:21:42.389]                 })
  [20:21:42.389]             }
  [20:21:42.389]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:42.389]         }
  [20:21:42.389]     }
  [20:21:42.389]     if (is.na(TRUE)) {
  [20:21:42.389]     }
  [20:21:42.389]     else {
  [20:21:42.389]         if (TRUE) {
  [20:21:42.389]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:42.389]         }
  [20:21:42.389]         else {
  [20:21:42.389]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:42.389]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:42.389]         }
  [20:21:42.389]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:42.389]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:42.389]             sink(type = "output", split = FALSE)
  [20:21:42.389]             close(...future.stdout)
  [20:21:42.389]         }, add = TRUE)
  [20:21:42.389]     }
  [20:21:42.389]     ...future.frame <- sys.nframe()
  [20:21:42.389]     ...future.conditions <- list()
  [20:21:42.389]     ...future.result <- tryCatch({
  [20:21:42.389]         withCallingHandlers({
  [20:21:42.389]             ...future.value <- withVisible(local({
  [20:21:42.389]                 doFuture::registerDoFuture()
  [20:21:42.389]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.389]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.389]                   b <- NULL
  [20:21:42.389]                   ...future.env <- environment()
  [20:21:42.389]                   local({
  [20:21:42.389]                     for (name in names(...future.x_jj)) {
  [20:21:42.389]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.389]                         inherits = FALSE)
  [20:21:42.389]                     }
  [20:21:42.389]                   })
  [20:21:42.389]                   tryCatch({
  [20:21:42.389]                     plan_list <- future::plan()
  [20:21:42.389]                     message(capture.output(print(plan_list)))
  [20:21:42.389]                     stopifnot(inherits(plan_list, "future"))
  [20:21:42.389]                     default <- getOption("future.plan", "sequential")
  [20:21:42.389]                     if (is.function(default)) 
  [20:21:42.389]                       default <- class(default)
  [20:21:42.389]                     stopifnot(inherits(plan_list, default))
  [20:21:42.389]                     plan_b <- future::plan("list")
  [20:21:42.389]                     str(plan_b)
  [20:21:42.389]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.389]                       inherits(plan_b[[1]], default))
  [20:21:42.389]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.389]                   }, error = identity)
  [20:21:42.389]                 })
  [20:21:42.389]             }))
  [20:21:42.389]             future::FutureResult(value = ...future.value$value, 
  [20:21:42.389]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:42.389]                 version = "1.8")
  [20:21:42.389]         }, condition = local({
  [20:21:42.389]             inherits <- base::inherits
  [20:21:42.389]             invokeRestart <- base::invokeRestart
  [20:21:42.389]             length <- base::length
  [20:21:42.389]             seq.int <- base::seq.int
  [20:21:42.389]             sys.calls <- base::sys.calls
  [20:21:42.389]             `[[` <- base::`[[`
  [20:21:42.389]             `+` <- base::`+`
  [20:21:42.389]             `<<-` <- base::`<<-`
  [20:21:42.389]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:42.389]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:42.389]                   3L)]
  [20:21:42.389]             }
  [20:21:42.389]             function(cond) {
  [20:21:42.389]                 if (inherits(cond, "error")) {
  [20:21:42.389]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.389]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:42.389]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:42.389]                     signaled = 0L)
  [20:21:42.389]                   signalCondition(cond)
  [20:21:42.389]                 }
  [20:21:42.389]                 else if (inherits(cond, "condition")) {
  [20:21:42.389]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:42.389]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.389]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:42.389]                   if (!signal) {
  [20:21:42.389]                     muffleCondition <- function (cond) 
  [20:21:42.389]                     {
  [20:21:42.389]                       inherits <- base::inherits
  [20:21:42.389]                       invokeRestart <- base::invokeRestart
  [20:21:42.389]                       muffled <- FALSE
  [20:21:42.389]                       if (inherits(cond, "message")) {
  [20:21:42.389]                         invokeRestart("muffleMessage")
  [20:21:42.389]                         muffled <- TRUE
  [20:21:42.389]                       }
  [20:21:42.389]                       else if (inherits(cond, "warning")) {
  [20:21:42.389]                         invokeRestart("muffleWarning")
  [20:21:42.389]                         muffled <- TRUE
  [20:21:42.389]                       }
  [20:21:42.389]                       else if (inherits(cond, "condition")) {
  [20:21:42.389]                         computeRestarts <- base::computeRestarts
  [20:21:42.389]                         grepl <- base::grepl
  [20:21:42.389]                         is.null <- base::is.null
  [20:21:42.389]                         restarts <- computeRestarts(cond)
  [20:21:42.389]                         for (restart in restarts) {
  [20:21:42.389]                           name <- restart$name
  [20:21:42.389]                           if (is.null(name)) 
  [20:21:42.389]                             next
  [20:21:42.389]                           if (!grepl("^muffle", name)) 
  [20:21:42.389]                             next
  [20:21:42.389]                           invokeRestart(restart)
  [20:21:42.389]                           muffled <- TRUE
  [20:21:42.389]                           break
  [20:21:42.389]                         }
  [20:21:42.389]                       }
  [20:21:42.389]                       invisible(muffled)
  [20:21:42.389]                     }
  [20:21:42.389]                     muffleCondition(cond)
  [20:21:42.389]                   }
  [20:21:42.389]                 }
  [20:21:42.389]             }
  [20:21:42.389]         }))
  [20:21:42.389]     }, error = function(ex) {
  [20:21:42.389]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:42.389]             version = "1.8"), class = "FutureResult")
  [20:21:42.389]     }, finally = {
  [20:21:42.389]         {
  [20:21:42.389]             {
  [20:21:42.389]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:42.389]             }
  [20:21:42.389]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:42.389]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.389]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.389]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.389]             {
  [20:21:42.389]                 if (substitute) 
  [20:21:42.389]                   expr <- substitute(expr)
  [20:21:42.389]                 if (is.function(workers)) 
  [20:21:42.389]                   workers <- workers()
  [20:21:42.389]                 workers <- as.integer(workers)
  [20:21:42.389]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.389]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.389]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.389]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.389]                     local = TRUE, label = label, ...))
  [20:21:42.389]                 }
  [20:21:42.389]                 oopts <- options(mc.cores = workers)
  [20:21:42.389]                 on.exit(options(oopts))
  [20:21:42.389]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.389]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.389]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.389]                   label = label, ...)
  [20:21:42.389]                 if (!future$lazy) 
  [20:21:42.389]                   future <- run(future)
  [20:21:42.389]                 invisible(future)
  [20:21:42.389]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.389]         }
  [20:21:42.389]         options(...future.oldOptions)
  [20:21:42.389]     })
  [20:21:42.389]     if (is.na(TRUE)) {
  [20:21:42.389]     }
  [20:21:42.389]     else {
  [20:21:42.389]         sink(type = "output", split = FALSE)
  [20:21:42.389]         if (TRUE) {
  [20:21:42.389]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:42.389]         }
  [20:21:42.389]         else {
  [20:21:42.389]             ...future.result["stdout"] <- list(NULL)
  [20:21:42.389]         }
  [20:21:42.389]         close(...future.stdout)
  [20:21:42.389]         ...future.stdout <- NULL
  [20:21:42.389]     }
  [20:21:42.389]     ...future.result$conditions <- ...future.conditions
  [20:21:42.389]     ...future.result
  [20:21:42.389] }
  [20:21:43.052]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [20:21:42.393] requestCore(): workers = 2
  [20:21:43.052]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [20:21:42.410] MulticoreFuture started
  [20:21:43.052]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [20:21:42.412] Chunk #1 of 2 ... DONE
  [20:21:43.053]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [20:21:42.412] Chunk #2 of 2 ...
  [20:21:43.053]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [20:21:42.413]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:43.053]  - Condition #52: 'simpleMessage', 'message', 'condition'
  [20:21:42.413] getGlobalsAndPackages() ...
  [20:21:43.054]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [20:21:42.414] Searching for globals...
  [20:21:43.054]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [20:21:42.415] 
  [20:21:43.054]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [20:21:42.416] Searching for globals ... DONE
  [20:21:43.055]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [20:21:42.416] - globals: [0] <none>
  [20:21:43.055]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [20:21:42.416] getGlobalsAndPackages() ... DONE
  [20:21:43.055]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [20:21:42.417] 
  [20:21:43.056]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [20:21:42.417] 
  [20:21:43.056]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [20:21:42.418]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:43.056]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [20:21:42.420] getGlobalsAndPackages() ...
  [20:21:43.057]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [20:21:42.420] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.057]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [20:21:42.421] Resolving globals: FALSE
  [20:21:43.057]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [20:21:42.445] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [20:21:43.058]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [20:21:42.445] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.058]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [20:21:42.446] 
  [20:21:43.058]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [20:21:42.446] getGlobalsAndPackages() ... DONE
  [20:21:43.059]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [20:21:42.448] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:43.059]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [20:21:42.449] Packages needed by future strategies (n = 0): <none>
  [20:21:43.059]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [20:21:42.465] {
  [20:21:42.465]     {
  [20:21:42.465]         ...future.startTime <- Sys.time()
  [20:21:42.465]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:42.465]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:42.465]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:42.465]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:42.465]             future.resolve.recursive = NULL, width = 80L)
  [20:21:42.465]         {
  [20:21:42.465]             {
  [20:21:42.465]                 {
  [20:21:42.465]                   {
  [20:21:42.465]                     has_future <- requireNamespace("future", 
  [20:21:42.465]                       quietly = TRUE)
  [20:21:42.465]                     version <- if (has_future) 
  [20:21:42.465]                       packageVersion("future")
  [20:21:42.465]                     else NULL
  [20:21:42.465]                     if (!has_future || version < "1.8.0") {
  [20:21:42.465]                       info <- c(r_version = gsub("R version ", 
  [20:21:42.465]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:42.465]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:42.465]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:42.465]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:42.465]                       info <- sprintf("%s: %s", names(info), 
  [20:21:42.465]                         info)
  [20:21:42.465]                       info <- paste(info, collapse = "; ")
  [20:21:42.465]                       if (!has_future) {
  [20:21:42.465]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:42.465]                           info)
  [20:21:42.465]                       }
  [20:21:42.465]                       else {
  [20:21:42.465]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:42.465]                           info, version)
  [20:21:42.465]                       }
  [20:21:42.465]                       stop(msg)
  [20:21:42.465]                     }
  [20:21:42.465]                   }
  [20:21:42.465]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:42.465]                   options(mc.cores = 1L)
  [20:21:42.465]                 }
  [20:21:42.465]                 local({
  [20:21:42.465]                   for (pkg in c("doFuture", "utils")) {
  [20:21:42.465]                     loadNamespace(pkg)
  [20:21:42.465]                     library(pkg, character.only = TRUE)
  [20:21:42.465]                   }
  [20:21:42.465]                 })
  [20:21:42.465]             }
  [20:21:42.465]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:42.465]         }
  [20:21:42.465]     }
  [20:21:42.465]     if (is.na(TRUE)) {
  [20:21:42.465]     }
  [20:21:42.465]     else {
  [20:21:42.465]         if (TRUE) {
  [20:21:42.465]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:42.465]         }
  [20:21:42.465]         else {
  [20:21:42.465]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:42.465]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:42.465]         }
  [20:21:42.465]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:42.465]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:42.465]             sink(type = "output", split = FALSE)
  [20:21:42.465]             close(...future.stdout)
  [20:21:42.465]         }, add = TRUE)
  [20:21:42.465]     }
  [20:21:42.465]     ...future.frame <- sys.nframe()
  [20:21:42.465]     ...future.conditions <- list()
  [20:21:42.465]     ...future.result <- tryCatch({
  [20:21:42.465]         withCallingHandlers({
  [20:21:42.465]             ...future.value <- withVisible(local({
  [20:21:42.465]                 doFuture::registerDoFuture()
  [20:21:42.465]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.465]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.465]                   b <- NULL
  [20:21:42.465]                   ...future.env <- environment()
  [20:21:42.465]                   local({
  [20:21:42.465]                     for (name in names(...future.x_jj)) {
  [20:21:42.465]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.465]                         inherits = FALSE)
  [20:21:42.465]                     }
  [20:21:42.465]                   })
  [20:21:42.465]                   tryCatch({
  [20:21:42.465]                     plan_list <- future::plan()
  [20:21:42.465]                     message(capture.output(print(plan_list)))
  [20:21:42.465]                     stopifnot(inherits(plan_list, "future"))
  [20:21:42.465]                     default <- getOption("future.plan", "sequential")
  [20:21:42.465]                     if (is.function(default)) 
  [20:21:42.465]                       default <- class(default)
  [20:21:42.465]                     stopifnot(inherits(plan_list, default))
  [20:21:42.465]                     plan_b <- future::plan("list")
  [20:21:42.465]                     str(plan_b)
  [20:21:42.465]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.465]                       inherits(plan_b[[1]], default))
  [20:21:42.465]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.465]                   }, error = identity)
  [20:21:42.465]                 })
  [20:21:42.465]             }))
  [20:21:42.465]             future::FutureResult(value = ...future.value$value, 
  [20:21:42.465]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:42.465]                 version = "1.8")
  [20:21:42.465]         }, condition = local({
  [20:21:42.465]             inherits <- base::inherits
  [20:21:42.465]             invokeRestart <- base::invokeRestart
  [20:21:42.465]             length <- base::length
  [20:21:42.465]             seq.int <- base::seq.int
  [20:21:42.465]             sys.calls <- base::sys.calls
  [20:21:42.465]             `[[` <- base::`[[`
  [20:21:42.465]             `+` <- base::`+`
  [20:21:42.465]             `<<-` <- base::`<<-`
  [20:21:42.465]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:42.465]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:42.465]                   3L)]
  [20:21:42.465]             }
  [20:21:42.465]             function(cond) {
  [20:21:42.465]                 if (inherits(cond, "error")) {
  [20:21:42.465]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.465]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:42.465]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:42.465]                     signaled = 0L)
  [20:21:42.465]                   signalCondition(cond)
  [20:21:42.465]                 }
  [20:21:42.465]                 else if (inherits(cond, "condition")) {
  [20:21:42.465]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:42.465]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.465]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:42.465]                   if (!signal) {
  [20:21:42.465]                     muffleCondition <- function (cond) 
  [20:21:42.465]                     {
  [20:21:42.465]                       inherits <- base::inherits
  [20:21:42.465]                       invokeRestart <- base::invokeRestart
  [20:21:42.465]                       muffled <- FALSE
  [20:21:42.465]                       if (inherits(cond, "message")) {
  [20:21:42.465]                         invokeRestart("muffleMessage")
  [20:21:42.465]                         muffled <- TRUE
  [20:21:42.465]                       }
  [20:21:42.465]                       else if (inherits(cond, "warning")) {
  [20:21:42.465]                         invokeRestart("muffleWarning")
  [20:21:42.465]                         muffled <- TRUE
  [20:21:42.465]                       }
  [20:21:42.465]                       else if (inherits(cond, "condition")) {
  [20:21:42.465]                         computeRestarts <- base::computeRestarts
  [20:21:42.465]                         grepl <- base::grepl
  [20:21:42.465]                         is.null <- base::is.null
  [20:21:42.465]                         restarts <- computeRestarts(cond)
  [20:21:42.465]                         for (restart in restarts) {
  [20:21:42.465]                           name <- restart$name
  [20:21:42.465]                           if (is.null(name)) 
  [20:21:42.465]                             next
  [20:21:42.465]                           if (!grepl("^muffle", name)) 
  [20:21:42.465]                             next
  [20:21:42.465]                           invokeRestart(restart)
  [20:21:42.465]                           muffled <- TRUE
  [20:21:42.465]                           break
  [20:21:42.465]                         }
  [20:21:42.465]                       }
  [20:21:42.465]                       invisible(muffled)
  [20:21:42.465]                     }
  [20:21:42.465]                     muffleCondition(cond)
  [20:21:42.465]                   }
  [20:21:42.465]                 }
  [20:21:42.465]             }
  [20:21:42.465]         }))
  [20:21:42.465]     }, error = function(ex) {
  [20:21:42.465]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:42.465]             version = "1.8"), class = "FutureResult")
  [20:21:42.465]     }, finally = {
  [20:21:42.465]         {
  [20:21:42.465]             {
  [20:21:42.465]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:42.465]             }
  [20:21:42.465]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:42.465]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.465]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.465]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.465]             {
  [20:21:42.465]                 if (substitute) 
  [20:21:42.465]                   expr <- substitute(expr)
  [20:21:42.465]                 if (is.function(workers)) 
  [20:21:42.465]                   workers <- workers()
  [20:21:42.465]                 workers <- as.integer(workers)
  [20:21:42.465]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.465]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.465]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.465]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.465]                     local = TRUE, label = label, ...))
  [20:21:42.465]                 }
  [20:21:42.465]                 oopts <- options(mc.cores = workers)
  [20:21:42.465]                 on.exit(options(oopts))
  [20:21:42.465]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.465]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.465]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.465]                   label = label, ...)
  [20:21:42.465]                 if (!future$lazy) 
  [20:21:42.465]                   future <- run(future)
  [20:21:42.465]                 invisible(future)
  [20:21:42.465]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.465]         }
  [20:21:42.465]         options(...future.oldOptions)
  [20:21:42.465]     })
  [20:21:42.465]     if (is.na(TRUE)) {
  [20:21:42.465]     }
  [20:21:42.465]     else {
  [20:21:42.465]         sink(type = "output", split = FALSE)
  [20:21:42.465]         if (TRUE) {
  [20:21:42.465]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:42.465]         }
  [20:21:42.465]         else {
  [20:21:42.465]             ...future.result["stdout"] <- list(NULL)
  [20:21:42.465]         }
  [20:21:42.465]         close(...future.stdout)
  [20:21:42.465]         ...future.stdout <- NULL
  [20:21:42.465]     }
  [20:21:42.465]     ...future.result$conditions <- ...future.conditions
  [20:21:42.465]     ...future.result
  [20:21:42.465] }
  [20:21:43.060]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [20:21:42.469] requestCore(): workers = 2
  [20:21:43.060]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [20:21:42.482] MulticoreFuture started
  [20:21:43.060]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [20:21:42.483] Chunk #2 of 2 ... DONE
  [20:21:43.061]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [20:21:42.484] Launching 2 futures (chunks) ... DONE
  [20:21:43.061]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [20:21:42.485] - resolving futures
  [20:21:43.061]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [20:21:42.485]   - gathering results & relaying conditions (except errors)
  [20:21:43.062]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [20:21:42.485] resolve() on list ...
  [20:21:43.078]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [20:21:42.486]  recursive: 0
  [20:21:43.079]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [20:21:42.486]  length: 2
  [20:21:43.079]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [20:21:42.487] 
  [20:21:43.079]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [20:21:42.491] Future #1
  [20:21:43.080]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [20:21:42.496] signalConditions() ...
  [20:21:43.080]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [20:21:42.497]  - include = 'immediateCondition'
  [20:21:43.080]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [20:21:42.497]  - exclude = 
  [20:21:43.081]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [20:21:42.497]  - resignal = FALSE
  [20:21:43.081]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [20:21:42.498]  - Number of conditions: 1
  [20:21:43.081]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [20:21:42.498] signalConditions() ... done
  [20:21:43.081]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [20:21:42.499] signalConditions() ...
  [20:21:43.082]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [20:21:42.499]  - include = 'immediateCondition'
  [20:21:43.082]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [20:21:42.500]  - exclude = 
  [20:21:43.083]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [20:21:42.500]  - resignal = FALSE
  [20:21:43.083]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [20:21:42.501]  - Number of conditions: 1
  [20:21:43.083]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [20:21:42.501] signalConditions() ... done
  [20:21:43.083]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [20:21:42.501] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:43.084]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [20:21:42.502] - nx: 2
  [20:21:43.084]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [20:21:42.502] - relay: TRUE
  [20:21:43.084]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [20:21:42.503] - stdout: TRUE
  [20:21:43.085]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [20:21:42.503] - signal: TRUE
  [20:21:43.085]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [20:21:42.503] - resignal: FALSE
  [20:21:43.085]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [20:21:42.504] - force: FALSE
  [20:21:43.086]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [20:21:42.504] - relayed: [n=2] FALSE, FALSE
  [20:21:43.086]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [20:21:42.504] - queued futures: [n=2] FALSE, FALSE
  [20:21:43.087]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [20:21:42.505]  - until=1
  [20:21:43.087]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [20:21:42.505]  - relaying element #1
  [20:21:43.087]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [20:21:42.506] signalConditions() ...
  [20:21:43.087]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [20:21:42.506]  - include = 'immediateCondition'
  [20:21:43.088]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [20:21:42.507]  - exclude = 
  [20:21:43.088]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [20:21:42.507]  - resignal = FALSE
  [20:21:43.088]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [20:21:42.507]  - Number of conditions: 1
  [20:21:43.089]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [20:21:42.508] signalConditions() ... done
  [20:21:43.089]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [20:21:42.508] signalConditions() ...
  [20:21:43.090]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [20:21:42.509]  - include = 'immediateCondition'
  [20:21:43.090]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [20:21:42.509]  - exclude = 
  [20:21:43.090]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [20:21:42.510]  - resignal = FALSE
  [20:21:43.091]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [20:21:42.510]  - Number of conditions: 1
  [20:21:43.091]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [20:21:42.510] signalConditions() ... done
  [20:21:43.091]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [20:21:42.511] signalConditions() ...
  [20:21:43.111]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [20:21:42.511]  - include = 'condition'
  [20:21:43.112]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [20:21:42.512]  - exclude = 'immediateCondition'
  [20:21:43.112]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [20:21:42.512]  - resignal = FALSE
  [20:21:43.112]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [20:21:42.512]  - Number of conditions: 1
  [20:21:43.113]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [20:21:42.513]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:43.113]  - 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
  [20:21:43.113]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [20:21:42.513] signalConditions() ... done
  [20:21:43.114]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [20:21:42.514] - relayed: [n=2] TRUE, FALSE
  [20:21:43.114]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [20:21:42.514] - queued futures: [n=2] TRUE, FALSE
  [20:21:43.114]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [20:21:42.515] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:43.115]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [20:21:42.515]  length: 1 (resolved future 1)
  [20:21:43.115]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [20:21:42.538] Future #2
  [20:21:43.116]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [20:21:42.540] signalConditions() ...
  [20:21:43.116]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [20:21:42.540]  - include = 'immediateCondition'
  [20:21:43.116]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [20:21:42.541]  - exclude = 
  [20:21:43.117]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [20:21:42.541]  - resignal = FALSE
  [20:21:43.117]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [20:21:42.542]  - Number of conditions: 2
  [20:21:43.117]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [20:21:42.542] signalConditions() ... done
  [20:21:43.118]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [20:21:42.543] signalConditions() ...
  [20:21:43.118]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [20:21:42.543]  - include = 'immediateCondition'
  [20:21:43.118]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [20:21:42.543]  - exclude = 
  [20:21:43.119]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [20:21:42.544]  - resignal = FALSE
  [20:21:43.119]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [20:21:42.544]  - Number of conditions: 2
  [20:21:43.119]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [20:21:42.545] signalConditions() ... done
  [20:21:43.120]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [20:21:42.545] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:43.120]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [20:21:42.545] - nx: 2
  [20:21:43.120]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [20:21:42.562] - relay: TRUE
  [20:21:43.121]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [20:21:42.562] - stdout: TRUE
  [20:21:43.121]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [20:21:42.563] - signal: TRUE
  [20:21:43.121]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [20:21:42.563] - resignal: FALSE
  [20:21:43.122]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [20:21:42.563] - force: FALSE
  [20:21:43.122]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [20:21:42.564] - relayed: [n=2] TRUE, FALSE
  [20:21:43.122]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [20:21:42.564] - queued futures: [n=2] TRUE, FALSE
  [20:21:43.123]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [20:21:42.565]  - until=2
  [20:21:43.123]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [20:21:42.565]  - relaying element #2
  [20:21:43.123]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [20:21:42.565] signalConditions() ...
  [20:21:43.124]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [20:21:42.566]  - include = 'immediateCondition'
  [20:21:43.124]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [20:21:42.566]  - exclude = 
  [20:21:43.124]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [20:21:42.567]  - resignal = FALSE
  [20:21:43.124]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [20:21:42.567]  - Number of conditions: 2
  [20:21:43.125]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [20:21:42.567] signalConditions() ... done
  [20:21:43.125]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [20:21:42.568] signalConditions() ...
  [20:21:43.126]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [20:21:42.568]  - include = 'immediateCondition'
  [20:21:43.142]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [20:21:42.569]  - exclude = 
  [20:21:43.142]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [20:21:42.569]  - resignal = FALSE
  [20:21:43.143]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [20:21:42.569]  - Number of conditions: 2
  [20:21:43.143]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [20:21:42.586] signalConditions() ... done
  [20:21:43.143]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [20:21:42.586] signalConditions() ...
  [20:21:43.144]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [20:21:42.587]  - include = 'condition'
  [20:21:43.144]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [20:21:42.587]  - exclude = 'immediateCondition'
  [20:21:43.144]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [20:21:42.588]  - resignal = FALSE
  [20:21:43.145]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [20:21:42.588]  - Number of conditions: 2
  [20:21:43.145]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [20:21:42.588]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:43.145]  - 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
  [20:21:43.146]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [20:21:42.589]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:43.146]  - 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
  [20:21:43.146]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [20:21:42.589] signalConditions() ... done
  [20:21:43.147]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [20:21:42.590] - relayed: [n=2] TRUE, TRUE
  [20:21:43.147]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [20:21:42.590] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.147]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [20:21:42.591] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:43.148]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [20:21:42.591]  length: 0 (resolved future 2)
  [20:21:43.148]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [20:21:42.591] Relaying remaining futures
  [20:21:43.148]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [20:21:42.592] signalConditionsASAP(NULL, pos=0) ...
  [20:21:43.149]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [20:21:42.592] - nx: 2
  [20:21:43.149]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [20:21:42.592] - relay: TRUE
  [20:21:43.149]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [20:21:42.593] - stdout: TRUE
  [20:21:43.150]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [20:21:42.593] - signal: TRUE
  [20:21:43.150]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [20:21:42.593] - resignal: FALSE
  [20:21:43.150]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [20:21:42.610] - force: FALSE
  [20:21:43.151]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [20:21:42.610] - relayed: [n=2] TRUE, TRUE
  [20:21:43.151]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [20:21:42.611] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.151]  - Condition #189: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:21:43.152]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [20:21:42.612] - relayed: [n=2] TRUE, TRUE
  [20:21:43.152]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [20:21:42.612] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.152]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [20:21:42.613] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:43.153]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [20:21:42.613] resolve() on list ... DONE
  [20:21:43.153]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [20:21:42.613] - collecting values of futures
  [20:21:43.153]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [20:21:42.614] signalConditions() ...
  [20:21:43.154]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [20:21:42.614]  - include = 'immediateCondition'
  [20:21:43.154]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [20:21:42.615]  - exclude = 
  [20:21:43.154]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [20:21:42.615]  - resignal = FALSE
  [20:21:43.155]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [20:21:42.615]  - Number of conditions: 1
  [20:21:43.155]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [20:21:42.616] signalConditions() ... done
  [20:21:43.155]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [20:21:42.616] signalConditions() ...
  [20:21:43.156]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [20:21:42.617]  - include = 'immediateCondition'
  [20:21:43.156]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [20:21:42.617]  - exclude = 
  [20:21:43.156]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [20:21:42.618]  - resignal = FALSE
  [20:21:43.157]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [20:21:42.618]  - Number of conditions: 2
  [20:21:43.157]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [20:21:42.618] signalConditions() ... done
  [20:21:43.157]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [20:21:42.623] - accumulating results
  [20:21:43.174]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [20:21:42.625] - processing errors (handler = 'stop')
  [20:21:43.174]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [20:21:42.625] - extracting results
  [20:21:43.175]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [20:21:42.642] doFuture() ... DONE
  [20:21:43.175]  - Condition #211: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:21:43.175]  - Condition #212: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:21:43.176]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [20:21:42.649] doFuture() ...
  [20:21:43.176]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [20:21:42.650] - dummy globals (as locals): [1] 'b'
  [20:21:43.176]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [20:21:42.651] - R expression:
  [20:21:43.177]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [20:21:42.652] {
  [20:21:42.652]     doFuture::registerDoFuture()
  [20:21:42.652]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.652]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.652]         b <- NULL
  [20:21:42.652]         ...future.env <- environment()
  [20:21:42.652]         local({
  [20:21:42.652]             for (name in names(...future.x_jj)) {
  [20:21:42.652]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.652]                   inherits = FALSE)
  [20:21:42.652]             }
  [20:21:42.652]         })
  [20:21:42.652]         tryCatch({
  [20:21:42.652]             plan_list <- future::plan()
  [20:21:42.652]             message(capture.output(print(plan_list)))
  [20:21:42.652]             stopifnot(inherits(plan_list, "future"))
  [20:21:42.652]             default <- getOption("future.plan", "sequential")
  [20:21:42.652]             if (is.function(default)) 
  [20:21:42.652]                 default <- class(default)
  [20:21:42.652]             stopifnot(inherits(plan_list, default))
  [20:21:42.652]             plan_b <- future::plan("list")
  [20:21:42.652]             str(plan_b)
  [20:21:42.652]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:42.652]                 default))
  [20:21:42.652]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.652]         }, error = identity)
  [20:21:42.652]     })
  [20:21:42.652] }
  [20:21:43.177]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [20:21:42.653] - identifying globals and packages ...
  [20:21:43.178]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [20:21:42.654] getGlobalsAndPackages() ...
  [20:21:43.178]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [20:21:42.654] Searching for globals...
  [20:21:43.178]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [20:21:42.712] - 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'
  [20:21:43.179]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [20:21:42.713] Searching for globals ... DONE
  [20:21:43.179]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [20:21:42.713] Resolving globals: FALSE
  [20:21:43.179]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [20:21:42.716] The total size of the 3 globals is 75.02 KiB (76816 bytes)
  [20:21:43.180]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [20:21:42.716] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.180]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [20:21:42.716] - packages: [1] 'utils'
  [20:21:43.180]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [20:21:42.717] getGlobalsAndPackages() ... DONE
  [20:21:43.181]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [20:21:42.717] List of 3
  [20:21:42.717]  $ ...future.x_ii: NULL
  [20:21:42.717]  $ a             : int 2
  [20:21:42.717]  $ plan_a        :List of 1
  [20:21:42.717]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:42.717]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.717]     earlySignal = FALSE, label = NULL, ...)  
  [20:21:42.717]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [20:21:42.717]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:42.717]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:42.717]  - attr(*, "where")=List of 3
  [20:21:42.717]   ..$ ...future.x_ii:<environment: 0x5615201116b0> 
  [20:21:42.717]   ..$ a             :<environment: 0x56152184b018> 
  [20:21:42.717]   ..$ plan_a        :<environment: 0x56152184b018> 
  [20:21:42.717]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:42.717]  - attr(*, "resolved")= logi FALSE
  [20:21:42.717]  - attr(*, "total_size")= num 76816
  [20:21:43.181]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [20:21:42.750]   - R expression:
  [20:21:43.182]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [20:21:42.750] {
  [20:21:42.750]     doFuture::registerDoFuture()
  [20:21:42.750]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.750]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.750]         b <- NULL
  [20:21:42.750]         ...future.env <- environment()
  [20:21:42.750]         local({
  [20:21:42.750]             for (name in names(...future.x_jj)) {
  [20:21:42.750]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.750]                   inherits = FALSE)
  [20:21:42.750]             }
  [20:21:42.750]         })
  [20:21:42.750]         tryCatch({
  [20:21:42.750]             plan_list <- future::plan()
  [20:21:42.750]             message(capture.output(print(plan_list)))
  [20:21:42.750]             stopifnot(inherits(plan_list, "future"))
  [20:21:42.750]             default <- getOption("future.plan", "sequential")
  [20:21:42.750]             if (is.function(default)) 
  [20:21:42.750]                 default <- class(default)
  [20:21:42.750]             stopifnot(inherits(plan_list, default))
  [20:21:42.750]             plan_b <- future::plan("list")
  [20:21:42.750]             str(plan_b)
  [20:21:42.750]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:42.750]                 default))
  [20:21:42.750]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.750]         }, error = identity)
  [20:21:42.750]     })
  [20:21:42.750] }
  [20:21:43.182]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [20:21:42.751]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.182]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [20:21:42.752] List of 3
  [20:21:42.752]  $ ...future.x_ii: NULL
  [20:21:42.752]  $ a             : int 2
  [20:21:42.752]  $ plan_a        :List of 1
  [20:21:42.752]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:42.752]     seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.752]     earlySignal = FALSE, label = NULL, ...)  
  [20:21:42.752]   .. ..- attr(*, "class")= chr [1:4] "multicore" "multiprocess" "future" "function"
  [20:21:42.752]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:42.752]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:42.752]  - attr(*, "where")=List of 3
  [20:21:42.752]   ..$ ...future.x_ii:<environment: 0x5615201116b0> 
  [20:21:42.752]   ..$ a             :<environment: 0x56152184b018> 
  [20:21:42.752]   ..$ plan_a        :<environment: 0x56152184b018> 
  [20:21:42.752]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:42.752]  - attr(*, "resolved")= logi FALSE
  [20:21:42.752]  - attr(*, "total_size")= num 76816
  [20:21:43.183]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [20:21:42.780]   - packages: [2] 'doFuture', 'utils'
  [20:21:43.183]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [20:21:42.780] - identifying globals and packages ... DONE
  [20:21:43.183]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [20:21:42.781] Number of chunks: 2
  [20:21:43.183]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [20:21:42.782] Number of futures (= number of chunks): 2
  [20:21:43.184]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [20:21:42.782] Launching 2 futures (chunks) ...
  [20:21:43.184]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [20:21:42.783] Chunk #1 of 2 ...
  [20:21:43.184]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [20:21:42.783]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:43.185]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [20:21:42.783] getGlobalsAndPackages() ...
  [20:21:43.185]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [20:21:42.784] Searching for globals...
  [20:21:43.185]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [20:21:42.784] 
  [20:21:43.186]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [20:21:42.785] Searching for globals ... DONE
  [20:21:43.186]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [20:21:42.785] - globals: [0] <none>
  [20:21:43.186]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [20:21:42.785] getGlobalsAndPackages() ... DONE
  [20:21:43.187]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [20:21:42.794] 
  [20:21:43.187]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [20:21:42.794] 
  [20:21:43.187]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [20:21:42.795]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:43.188]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [20:21:42.796] getGlobalsAndPackages() ...
  [20:21:43.188]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [20:21:42.796] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.188]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [20:21:42.796] Resolving globals: FALSE
  [20:21:43.189]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [20:21:42.798] The total size of the 3 globals is 75.07 KiB (76872 bytes)
  [20:21:43.189]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [20:21:42.798] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.189]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [20:21:42.799] 
  [20:21:43.206]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [20:21:42.799] getGlobalsAndPackages() ... DONE
  [20:21:43.206]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [20:21:42.801] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:43.207]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [20:21:42.801] Packages needed by future strategies (n = 0): <none>
  [20:21:43.207]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [20:21:42.813] {
  [20:21:42.813]     {
  [20:21:42.813]         ...future.startTime <- Sys.time()
  [20:21:42.813]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:42.813]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:42.813]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:42.813]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:42.813]             future.resolve.recursive = NULL, width = 80L)
  [20:21:42.813]         {
  [20:21:42.813]             {
  [20:21:42.813]                 {
  [20:21:42.813]                   {
  [20:21:42.813]                     has_future <- requireNamespace("future", 
  [20:21:42.813]                       quietly = TRUE)
  [20:21:42.813]                     version <- if (has_future) 
  [20:21:42.813]                       packageVersion("future")
  [20:21:42.813]                     else NULL
  [20:21:42.813]                     if (!has_future || version < "1.8.0") {
  [20:21:42.813]                       info <- c(r_version = gsub("R version ", 
  [20:21:42.813]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:42.813]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:42.813]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:42.813]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:42.813]                       info <- sprintf("%s: %s", names(info), 
  [20:21:42.813]                         info)
  [20:21:42.813]                       info <- paste(info, collapse = "; ")
  [20:21:42.813]                       if (!has_future) {
  [20:21:42.813]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:42.813]                           info)
  [20:21:42.813]                       }
  [20:21:42.813]                       else {
  [20:21:42.813]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:42.813]                           info, version)
  [20:21:42.813]                       }
  [20:21:42.813]                       stop(msg)
  [20:21:42.813]                     }
  [20:21:42.813]                   }
  [20:21:42.813]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:42.813]                   options(mc.cores = 1L)
  [20:21:42.813]                 }
  [20:21:42.813]                 local({
  [20:21:42.813]                   for (pkg in c("doFuture", "utils")) {
  [20:21:42.813]                     loadNamespace(pkg)
  [20:21:42.813]                     library(pkg, character.only = TRUE)
  [20:21:42.813]                   }
  [20:21:42.813]                 })
  [20:21:42.813]             }
  [20:21:42.813]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:42.813]         }
  [20:21:42.813]     }
  [20:21:42.813]     if (is.na(TRUE)) {
  [20:21:42.813]     }
  [20:21:42.813]     else {
  [20:21:42.813]         if (TRUE) {
  [20:21:42.813]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:42.813]         }
  [20:21:42.813]         else {
  [20:21:42.813]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:42.813]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:42.813]         }
  [20:21:42.813]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:42.813]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:42.813]             sink(type = "output", split = FALSE)
  [20:21:42.813]             close(...future.stdout)
  [20:21:42.813]         }, add = TRUE)
  [20:21:42.813]     }
  [20:21:42.813]     ...future.frame <- sys.nframe()
  [20:21:42.813]     ...future.conditions <- list()
  [20:21:42.813]     ...future.result <- tryCatch({
  [20:21:42.813]         withCallingHandlers({
  [20:21:42.813]             ...future.value <- withVisible(local({
  [20:21:42.813]                 doFuture::registerDoFuture()
  [20:21:42.813]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.813]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.813]                   b <- NULL
  [20:21:42.813]                   ...future.env <- environment()
  [20:21:42.813]                   local({
  [20:21:42.813]                     for (name in names(...future.x_jj)) {
  [20:21:42.813]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.813]                         inherits = FALSE)
  [20:21:42.813]                     }
  [20:21:42.813]                   })
  [20:21:42.813]                   tryCatch({
  [20:21:42.813]                     plan_list <- future::plan()
  [20:21:42.813]                     message(capture.output(print(plan_list)))
  [20:21:42.813]                     stopifnot(inherits(plan_list, "future"))
  [20:21:42.813]                     default <- getOption("future.plan", "sequential")
  [20:21:42.813]                     if (is.function(default)) 
  [20:21:42.813]                       default <- class(default)
  [20:21:42.813]                     stopifnot(inherits(plan_list, default))
  [20:21:42.813]                     plan_b <- future::plan("list")
  [20:21:42.813]                     str(plan_b)
  [20:21:42.813]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.813]                       inherits(plan_b[[1]], default))
  [20:21:42.813]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.813]                   }, error = identity)
  [20:21:42.813]                 })
  [20:21:42.813]             }))
  [20:21:42.813]             future::FutureResult(value = ...future.value$value, 
  [20:21:42.813]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:42.813]                 version = "1.8")
  [20:21:42.813]         }, condition = local({
  [20:21:42.813]             inherits <- base::inherits
  [20:21:42.813]             invokeRestart <- base::invokeRestart
  [20:21:42.813]             length <- base::length
  [20:21:42.813]             seq.int <- base::seq.int
  [20:21:42.813]             sys.calls <- base::sys.calls
  [20:21:42.813]             `[[` <- base::`[[`
  [20:21:42.813]             `+` <- base::`+`
  [20:21:42.813]             `<<-` <- base::`<<-`
  [20:21:42.813]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:42.813]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:42.813]                   3L)]
  [20:21:42.813]             }
  [20:21:42.813]             function(cond) {
  [20:21:42.813]                 if (inherits(cond, "error")) {
  [20:21:42.813]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.813]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:42.813]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:42.813]                     signaled = 0L)
  [20:21:42.813]                   signalCondition(cond)
  [20:21:42.813]                 }
  [20:21:42.813]                 else if (inherits(cond, "condition")) {
  [20:21:42.813]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:42.813]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.813]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:42.813]                   if (!signal) {
  [20:21:42.813]                     muffleCondition <- function (cond) 
  [20:21:42.813]                     {
  [20:21:42.813]                       inherits <- base::inherits
  [20:21:42.813]                       invokeRestart <- base::invokeRestart
  [20:21:42.813]                       muffled <- FALSE
  [20:21:42.813]                       if (inherits(cond, "message")) {
  [20:21:42.813]                         invokeRestart("muffleMessage")
  [20:21:42.813]                         muffled <- TRUE
  [20:21:42.813]                       }
  [20:21:42.813]                       else if (inherits(cond, "warning")) {
  [20:21:42.813]                         invokeRestart("muffleWarning")
  [20:21:42.813]                         muffled <- TRUE
  [20:21:42.813]                       }
  [20:21:42.813]                       else if (inherits(cond, "condition")) {
  [20:21:42.813]                         computeRestarts <- base::computeRestarts
  [20:21:42.813]                         grepl <- base::grepl
  [20:21:42.813]                         is.null <- base::is.null
  [20:21:42.813]                         restarts <- computeRestarts(cond)
  [20:21:42.813]                         for (restart in restarts) {
  [20:21:42.813]                           name <- restart$name
  [20:21:42.813]                           if (is.null(name)) 
  [20:21:42.813]                             next
  [20:21:42.813]                           if (!grepl("^muffle", name)) 
  [20:21:42.813]                             next
  [20:21:42.813]                           invokeRestart(restart)
  [20:21:42.813]                           muffled <- TRUE
  [20:21:42.813]                           break
  [20:21:42.813]                         }
  [20:21:42.813]                       }
  [20:21:42.813]                       invisible(muffled)
  [20:21:42.813]                     }
  [20:21:42.813]                     muffleCondition(cond)
  [20:21:42.813]                   }
  [20:21:42.813]                 }
  [20:21:42.813]             }
  [20:21:42.813]         }))
  [20:21:42.813]     }, error = function(ex) {
  [20:21:42.813]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:42.813]             version = "1.8"), class = "FutureResult")
  [20:21:42.813]     }, finally = {
  [20:21:42.813]         {
  [20:21:42.813]             {
  [20:21:42.813]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:42.813]             }
  [20:21:42.813]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:42.813]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.813]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.813]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.813]             {
  [20:21:42.813]                 if (substitute) 
  [20:21:42.813]                   expr <- substitute(expr)
  [20:21:42.813]                 if (is.function(workers)) 
  [20:21:42.813]                   workers <- workers()
  [20:21:42.813]                 workers <- as.integer(workers)
  [20:21:42.813]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.813]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.813]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.813]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.813]                     local = TRUE, label = label, ...))
  [20:21:42.813]                 }
  [20:21:42.813]                 oopts <- options(mc.cores = workers)
  [20:21:42.813]                 on.exit(options(oopts))
  [20:21:42.813]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.813]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.813]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.813]                   label = label, ...)
  [20:21:42.813]                 if (!future$lazy) 
  [20:21:42.813]                   future <- run(future)
  [20:21:42.813]                 invisible(future)
  [20:21:42.813]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.813]         }
  [20:21:42.813]         options(...future.oldOptions)
  [20:21:42.813]     })
  [20:21:42.813]     if (is.na(TRUE)) {
  [20:21:42.813]     }
  [20:21:42.813]     else {
  [20:21:42.813]         sink(type = "output", split = FALSE)
  [20:21:42.813]         if (TRUE) {
  [20:21:42.813]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:42.813]         }
  [20:21:42.813]         else {
  [20:21:42.813]             ...future.result["stdout"] <- list(NULL)
  [20:21:42.813]         }
  [20:21:42.813]         close(...future.stdout)
  [20:21:42.813]         ...future.stdout <- NULL
  [20:21:42.813]     }
  [20:21:42.813]     ...future.result$conditions <- ...future.conditions
  [20:21:42.813]     ...future.result
  [20:21:42.813] }
  [20:21:43.207]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [20:21:42.817] requestCore(): workers = 2
  [20:21:43.208]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [20:21:42.820] MulticoreFuture started
  [20:21:43.208]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [20:21:42.838] Chunk #1 of 2 ... DONE
  [20:21:43.209]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [20:21:42.838] Chunk #2 of 2 ...
  [20:21:43.209]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [20:21:42.839]  - Finding globals in 'args_list' chunk #2 ...
  [20:21:43.209]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [20:21:42.839] getGlobalsAndPackages() ...
  [20:21:43.210]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [20:21:42.840] Searching for globals...
  [20:21:43.210]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [20:21:42.841] 
  [20:21:43.210]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [20:21:42.841] Searching for globals ... DONE
  [20:21:43.211]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [20:21:42.841] - globals: [0] <none>
  [20:21:43.211]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [20:21:42.842] getGlobalsAndPackages() ... DONE
  [20:21:43.211]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [20:21:42.842] 
  [20:21:43.212]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [20:21:42.843] 
  [20:21:43.216]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [20:21:42.843]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:21:43.216]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [20:21:42.844] getGlobalsAndPackages() ...
  [20:21:43.217]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [20:21:42.845] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.217]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [20:21:42.845] Resolving globals: FALSE
  [20:21:43.217]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [20:21:42.847] The total size of the 3 globals is 75.12 KiB (76928 bytes)
  [20:21:43.218]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [20:21:42.848] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:21:43.218]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [20:21:42.848] 
  [20:21:43.218]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [20:21:42.849] getGlobalsAndPackages() ... DONE
  [20:21:43.219]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [20:21:42.851] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:21:43.219]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [20:21:42.851] Packages needed by future strategies (n = 0): <none>
  [20:21:43.220]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [20:21:42.895] {
  [20:21:42.895]     {
  [20:21:42.895]         ...future.startTime <- Sys.time()
  [20:21:42.895]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:42.895]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:42.895]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:42.895]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:42.895]             future.resolve.recursive = NULL, width = 80L)
  [20:21:42.895]         {
  [20:21:42.895]             {
  [20:21:42.895]                 {
  [20:21:42.895]                   {
  [20:21:42.895]                     has_future <- requireNamespace("future", 
  [20:21:42.895]                       quietly = TRUE)
  [20:21:42.895]                     version <- if (has_future) 
  [20:21:42.895]                       packageVersion("future")
  [20:21:42.895]                     else NULL
  [20:21:42.895]                     if (!has_future || version < "1.8.0") {
  [20:21:42.895]                       info <- c(r_version = gsub("R version ", 
  [20:21:42.895]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:42.895]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:42.895]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:21:42.895]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:42.895]                       info <- sprintf("%s: %s", names(info), 
  [20:21:42.895]                         info)
  [20:21:42.895]                       info <- paste(info, collapse = "; ")
  [20:21:42.895]                       if (!has_future) {
  [20:21:42.895]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:42.895]                           info)
  [20:21:42.895]                       }
  [20:21:42.895]                       else {
  [20:21:42.895]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:42.895]                           info, version)
  [20:21:42.895]                       }
  [20:21:42.895]                       stop(msg)
  [20:21:42.895]                     }
  [20:21:42.895]                   }
  [20:21:42.895]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:21:42.895]                   options(mc.cores = 1L)
  [20:21:42.895]                 }
  [20:21:42.895]                 local({
  [20:21:42.895]                   for (pkg in c("doFuture", "utils")) {
  [20:21:42.895]                     loadNamespace(pkg)
  [20:21:42.895]                     library(pkg, character.only = TRUE)
  [20:21:42.895]                   }
  [20:21:42.895]                 })
  [20:21:42.895]             }
  [20:21:42.895]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:21:42.895]         }
  [20:21:42.895]     }
  [20:21:42.895]     if (is.na(TRUE)) {
  [20:21:42.895]     }
  [20:21:42.895]     else {
  [20:21:42.895]         if (TRUE) {
  [20:21:42.895]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:42.895]         }
  [20:21:42.895]         else {
  [20:21:42.895]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:42.895]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:42.895]         }
  [20:21:42.895]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:42.895]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:42.895]             sink(type = "output", split = FALSE)
  [20:21:42.895]             close(...future.stdout)
  [20:21:42.895]         }, add = TRUE)
  [20:21:42.895]     }
  [20:21:42.895]     ...future.frame <- sys.nframe()
  [20:21:42.895]     ...future.conditions <- list()
  [20:21:42.895]     ...future.result <- tryCatch({
  [20:21:42.895]         withCallingHandlers({
  [20:21:42.895]             ...future.value <- withVisible(local({
  [20:21:42.895]                 doFuture::registerDoFuture()
  [20:21:42.895]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:42.895]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:42.895]                   b <- NULL
  [20:21:42.895]                   ...future.env <- environment()
  [20:21:42.895]                   local({
  [20:21:42.895]                     for (name in names(...future.x_jj)) {
  [20:21:42.895]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:42.895]                         inherits = FALSE)
  [20:21:42.895]                     }
  [20:21:42.895]                   })
  [20:21:42.895]                   tryCatch({
  [20:21:42.895]                     plan_list <- future::plan()
  [20:21:42.895]                     message(capture.output(print(plan_list)))
  [20:21:42.895]                     stopifnot(inherits(plan_list, "future"))
  [20:21:42.895]                     default <- getOption("future.plan", "sequential")
  [20:21:42.895]                     if (is.function(default)) 
  [20:21:42.895]                       default <- class(default)
  [20:21:42.895]                     stopifnot(inherits(plan_list, default))
  [20:21:42.895]                     plan_b <- future::plan("list")
  [20:21:42.895]                     str(plan_b)
  [20:21:42.895]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:42.895]                       inherits(plan_b[[1]], default))
  [20:21:42.895]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:42.895]                   }, error = identity)
  [20:21:42.895]                 })
  [20:21:42.895]             }))
  [20:21:42.895]             future::FutureResult(value = ...future.value$value, 
  [20:21:42.895]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:42.895]                 version = "1.8")
  [20:21:42.895]         }, condition = local({
  [20:21:42.895]             inherits <- base::inherits
  [20:21:42.895]             invokeRestart <- base::invokeRestart
  [20:21:42.895]             length <- base::length
  [20:21:42.895]             seq.int <- base::seq.int
  [20:21:42.895]             sys.calls <- base::sys.calls
  [20:21:42.895]             `[[` <- base::`[[`
  [20:21:42.895]             `+` <- base::`+`
  [20:21:42.895]             `<<-` <- base::`<<-`
  [20:21:42.895]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:42.895]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:42.895]                   3L)]
  [20:21:42.895]             }
  [20:21:42.895]             function(cond) {
  [20:21:42.895]                 if (inherits(cond, "error")) {
  [20:21:42.895]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.895]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:42.895]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:42.895]                     signaled = 0L)
  [20:21:42.895]                   signalCondition(cond)
  [20:21:42.895]                 }
  [20:21:42.895]                 else if (inherits(cond, "condition")) {
  [20:21:42.895]                   signal <- FALSE && inherits(cond, character(0))
  [20:21:42.895]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:42.895]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:42.895]                   if (!signal) {
  [20:21:42.895]                     muffleCondition <- function (cond) 
  [20:21:42.895]                     {
  [20:21:42.895]                       inherits <- base::inherits
  [20:21:42.895]                       invokeRestart <- base::invokeRestart
  [20:21:42.895]                       muffled <- FALSE
  [20:21:42.895]                       if (inherits(cond, "message")) {
  [20:21:42.895]                         invokeRestart("muffleMessage")
  [20:21:42.895]                         muffled <- TRUE
  [20:21:42.895]                       }
  [20:21:42.895]                       else if (inherits(cond, "warning")) {
  [20:21:42.895]                         invokeRestart("muffleWarning")
  [20:21:42.895]                         muffled <- TRUE
  [20:21:42.895]                       }
  [20:21:42.895]                       else if (inherits(cond, "condition")) {
  [20:21:42.895]                         computeRestarts <- base::computeRestarts
  [20:21:42.895]                         grepl <- base::grepl
  [20:21:42.895]                         is.null <- base::is.null
  [20:21:42.895]                         restarts <- computeRestarts(cond)
  [20:21:42.895]                         for (restart in restarts) {
  [20:21:42.895]                           name <- restart$name
  [20:21:42.895]                           if (is.null(name)) 
  [20:21:42.895]                             next
  [20:21:42.895]                           if (!grepl("^muffle", name)) 
  [20:21:42.895]                             next
  [20:21:42.895]                           invokeRestart(restart)
  [20:21:42.895]                           muffled <- TRUE
  [20:21:42.895]                           break
  [20:21:42.895]                         }
  [20:21:42.895]                       }
  [20:21:42.895]                       invisible(muffled)
  [20:21:42.895]                     }
  [20:21:42.895]                     muffleCondition(cond)
  [20:21:42.895]                   }
  [20:21:42.895]                 }
  [20:21:42.895]             }
  [20:21:42.895]         }))
  [20:21:42.895]     }, error = function(ex) {
  [20:21:42.895]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:42.895]             version = "1.8"), class = "FutureResult")
  [20:21:42.895]     }, finally = {
  [20:21:42.895]         {
  [20:21:42.895]             {
  [20:21:42.895]                 options(mc.cores = ...future.mc.cores.old)
  [20:21:42.895]             }
  [20:21:42.895]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:42.895]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:42.895]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:21:42.895]                 earlySignal = FALSE, label = NULL, ...) 
  [20:21:42.895]             {
  [20:21:42.895]                 if (substitute) 
  [20:21:42.895]                   expr <- substitute(expr)
  [20:21:42.895]                 if (is.function(workers)) 
  [20:21:42.895]                   workers <- workers()
  [20:21:42.895]                 workers <- as.integer(workers)
  [20:21:42.895]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:21:42.895]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:21:42.895]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:42.895]                     lazy = lazy, seed = seed, globals = globals, 
  [20:21:42.895]                     local = TRUE, label = label, ...))
  [20:21:42.895]                 }
  [20:21:42.895]                 oopts <- options(mc.cores = workers)
  [20:21:42.895]                 on.exit(options(oopts))
  [20:21:42.895]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:21:42.895]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:42.895]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:21:42.895]                   label = label, ...)
  [20:21:42.895]                 if (!future$lazy) 
  [20:21:42.895]                   future <- run(future)
  [20:21:42.895]                 invisible(future)
  [20:21:42.895]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:42.895]         }
  [20:21:42.895]         options(...future.oldOptions)
  [20:21:42.895]     })
  [20:21:42.895]     if (is.na(TRUE)) {
  [20:21:42.895]     }
  [20:21:42.895]     else {
  [20:21:42.895]         sink(type = "output", split = FALSE)
  [20:21:42.895]         if (TRUE) {
  [20:21:42.895]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:42.895]         }
  [20:21:42.895]         else {
  [20:21:42.895]             ...future.result["stdout"] <- list(NULL)
  [20:21:42.895]         }
  [20:21:42.895]         close(...future.stdout)
  [20:21:42.895]         ...future.stdout <- NULL
  [20:21:42.895]     }
  [20:21:42.895]     ...future.result$conditions <- ...future.conditions
  [20:21:42.895]     ...future.result
  [20:21:42.895] }
  [20:21:43.220]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [20:21:42.899] requestCore(): workers = 2
  [20:21:43.220]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [20:21:42.904] MulticoreFuture started
  [20:21:43.221]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [20:21:42.918] Chunk #2 of 2 ... DONE
  [20:21:43.221]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [20:21:42.919] Launching 2 futures (chunks) ... DONE
  [20:21:43.221]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [20:21:42.919] - resolving futures
  [20:21:43.238]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [20:21:42.920]   - gathering results & relaying conditions (except errors)
  [20:21:43.238]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [20:21:42.921] resolve() on list ...
  [20:21:43.239]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [20:21:42.922]  recursive: 0
  [20:21:43.239]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [20:21:42.923]  length: 2
  [20:21:43.239]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [20:21:42.923] 
  [20:21:43.240]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [20:21:42.924] Future #1
  [20:21:43.240]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [20:21:42.927] signalConditions() ...
  [20:21:43.241]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [20:21:42.927]  - include = 'immediateCondition'
  [20:21:43.241]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [20:21:42.928]  - exclude = 
  [20:21:43.241]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [20:21:42.928]  - resignal = FALSE
  [20:21:43.242]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [20:21:42.929]  - Number of conditions: 1
  [20:21:43.242]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [20:21:42.929] signalConditions() ... done
  [20:21:43.242]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [20:21:42.930] signalConditions() ...
  [20:21:43.243]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [20:21:42.930]  - include = 'immediateCondition'
  [20:21:43.243]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [20:21:42.930]  - exclude = 
  [20:21:43.243]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [20:21:42.931]  - resignal = FALSE
  [20:21:43.244]  - Condition #303: 'simpleMessage', 'message', 'condition'
  [20:21:42.931]  - Number of conditions: 1
  [20:21:43.244]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [20:21:42.932] signalConditions() ... done
  [20:21:43.244]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [20:21:42.932] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:21:43.245]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [20:21:42.932] - nx: 2
  [20:21:43.245]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [20:21:42.933] - relay: TRUE
  [20:21:43.245]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [20:21:42.933] - stdout: TRUE
  [20:21:43.246]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [20:21:42.933] - signal: TRUE
  [20:21:43.246]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [20:21:42.950] - resignal: FALSE
  [20:21:43.246]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [20:21:42.950] - force: FALSE
  [20:21:43.247]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [20:21:42.951] - relayed: [n=2] FALSE, FALSE
  [20:21:43.247]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [20:21:42.951] - queued futures: [n=2] FALSE, FALSE
  [20:21:43.247]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [20:21:42.952]  - until=1
  [20:21:43.248]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [20:21:42.952]  - relaying element #1
  [20:21:43.248]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [20:21:42.952] signalConditions() ...
  [20:21:43.248]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [20:21:42.953]  - include = 'immediateCondition'
  [20:21:43.249]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [20:21:42.953]  - exclude = 
  [20:21:43.249]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [20:21:42.954]  - resignal = FALSE
  [20:21:43.249]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [20:21:42.954]  - Number of conditions: 1
  [20:21:43.266]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [20:21:42.954] signalConditions() ... done
  [20:21:43.266]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [20:21:42.955] signalConditions() ...
  [20:21:43.267]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [20:21:42.955]  - include = 'immediateCondition'
  [20:21:43.267]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [20:21:42.956]  - exclude = 
  [20:21:43.267]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [20:21:42.956]  - resignal = FALSE
  [20:21:43.268]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [20:21:42.956]  - Number of conditions: 1
  [20:21:43.268]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [20:21:42.957] signalConditions() ... done
  [20:21:43.269]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [20:21:42.957] signalConditions() ...
  [20:21:43.269]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [20:21:42.957]  - include = 'condition'
  [20:21:43.269]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [20:21:42.958]  - exclude = 'immediateCondition'
  [20:21:43.270]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [20:21:42.958]  - resignal = FALSE
  [20:21:43.270]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [20:21:42.959]  - Number of conditions: 1
  [20:21:43.271]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [20:21:42.959]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:43.271]  - 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
  [20:21:43.271]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [20:21:42.960] signalConditions() ... done
  [20:21:43.272]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [20:21:42.960] - relayed: [n=2] TRUE, FALSE
  [20:21:43.272]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [20:21:42.960] - queued futures: [n=2] TRUE, FALSE
  [20:21:43.272]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [20:21:42.961] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:21:43.273]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [20:21:42.961]  length: 1 (resolved future 1)
  [20:21:43.273]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [20:21:42.962] Future #2
  [20:21:43.273]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [20:21:42.964] signalConditions() ...
  [20:21:43.274]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [20:21:42.964]  - include = 'immediateCondition'
  [20:21:43.274]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [20:21:42.964]  - exclude = 
  [20:21:43.275]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [20:21:42.965]  - resignal = FALSE
  [20:21:43.275]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [20:21:42.965]  - Number of conditions: 2
  [20:21:43.275]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [20:21:42.966] signalConditions() ... done
  [20:21:43.276]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [20:21:42.982] signalConditions() ...
  [20:21:43.276]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [20:21:42.983]  - include = 'immediateCondition'
  [20:21:43.276]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [20:21:42.983]  - exclude = 
  [20:21:43.277]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [20:21:42.983]  - resignal = FALSE
  [20:21:43.277]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [20:21:42.984]  - Number of conditions: 2
  [20:21:43.278]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [20:21:42.984] signalConditions() ... done
  [20:21:43.278]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [20:21:42.985] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:21:43.278]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [20:21:42.985] - nx: 2
  [20:21:43.279]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [20:21:42.985] - relay: TRUE
  [20:21:43.279]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [20:21:42.986] - stdout: TRUE
  [20:21:43.279]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [20:21:42.986] - signal: TRUE
  [20:21:43.280]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [20:21:42.986] - resignal: FALSE
  [20:21:43.280]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [20:21:42.987] - force: FALSE
  [20:21:43.280]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [20:21:42.987] - relayed: [n=2] TRUE, FALSE
  [20:21:43.280]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [20:21:42.987] - queued futures: [n=2] TRUE, FALSE
  [20:21:43.281]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [20:21:42.988]  - until=2
  [20:21:43.281]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [20:21:42.988]  - relaying element #2
  [20:21:43.282]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [20:21:42.989] signalConditions() ...
  [20:21:43.288]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [20:21:42.989]  - include = 'immediateCondition'
  [20:21:43.288]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [20:21:42.989]  - exclude = 
  [20:21:43.289]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [20:21:42.990]  - resignal = FALSE
  [20:21:43.289]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [20:21:42.990]  - Number of conditions: 2
  [20:21:43.289]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [20:21:42.991] signalConditions() ... done
  [20:21:43.290]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [20:21:42.991] signalConditions() ...
  [20:21:43.290]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [20:21:42.991]  - include = 'immediateCondition'
  [20:21:43.290]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [20:21:42.992]  - exclude = 
  [20:21:43.291]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [20:21:42.992]  - resignal = FALSE
  [20:21:43.291]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [20:21:42.993]  - Number of conditions: 2
  [20:21:43.291]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [20:21:42.993] signalConditions() ... done
  [20:21:43.292]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [20:21:42.993] signalConditions() ...
  [20:21:43.292]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [20:21:42.994]  - include = 'condition'
  [20:21:43.292]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [20:21:42.994]  - exclude = 'immediateCondition'
  [20:21:43.293]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [20:21:42.994]  - resignal = FALSE
  [20:21:43.293]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [20:21:42.995]  - Number of conditions: 2
  [20:21:43.293]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [20:21:42.995]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:21:43.294]  - 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
  [20:21:43.294]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [20:21:42.996]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:43.294]  - 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
  [20:21:43.295]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [20:21:42.996] signalConditions() ... done
  [20:21:43.295]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [20:21:42.997] - relayed: [n=2] TRUE, TRUE
  [20:21:43.295]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [20:21:42.997] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.296]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [20:21:42.997] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:21:43.296]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [20:21:42.998]  length: 0 (resolved future 2)
  [20:21:43.296]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [20:21:42.998] Relaying remaining futures
  [20:21:43.297]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [20:21:42.998] signalConditionsASAP(NULL, pos=0) ...
  [20:21:43.297]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [20:21:42.999] - nx: 2
  [20:21:43.298]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [20:21:42.999] - relay: TRUE
  [20:21:43.298]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [20:21:42.999] - stdout: TRUE
  [20:21:43.298]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [20:21:43.000] - signal: TRUE
  [20:21:43.299]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [20:21:43.000] - resignal: FALSE
  [20:21:43.299]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [20:21:43.000] - force: FALSE
  [20:21:43.299]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [20:21:43.001] - relayed: [n=2] TRUE, TRUE
  [20:21:43.300]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [20:21:43.001] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.300]  - Condition #400: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:21:43.300]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [20:21:43.002] - relayed: [n=2] TRUE, TRUE
  [20:21:43.301]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [20:21:43.002] - queued futures: [n=2] TRUE, TRUE
  [20:21:43.301]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [20:21:43.002] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:43.318]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [20:21:43.003] resolve() on list ... DONE
  [20:21:43.318]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [20:21:43.003] - collecting values of futures
  [20:21:43.319]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [20:21:43.004] signalConditions() ...
  [20:21:43.319]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [20:21:43.004]  - include = 'immediateCondition'
  [20:21:43.319]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [20:21:43.004]  - exclude = 
  [20:21:43.320]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [20:21:43.005]  - resignal = FALSE
  [20:21:43.320]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [20:21:43.005]  - Number of conditions: 1
  [20:21:43.320]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [20:21:43.006] signalConditions() ... done
  [20:21:43.321]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [20:21:43.006] signalConditions() ...
  [20:21:43.321]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [20:21:43.006]  - include = 'immediateCondition'
  [20:21:43.321]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [20:21:43.007]  - exclude = 
  [20:21:43.322]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [20:21:43.007]  - resignal = FALSE
  [20:21:43.322]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [20:21:43.008]  - Number of conditions: 2
  [20:21:43.322]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [20:21:43.008] signalConditions() ... done
  [20:21:43.323]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [20:21:43.008] - accumulating results
  [20:21:43.323]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [20:21:43.010] - processing errors (handler = 'stop')
  [20:21:43.323]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [20:21:43.010] - extracting results
  [20:21:43.324]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [20:21:43.010] doFuture() ... DONE
  [20:21:43.327]  - Condition #422: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:21:43.328] signalConditions() ... done
  [20:21:43.329] - relayed: [n=1] TRUE
  [20:21:43.329] - queued futures: [n=1] TRUE
  [20:21:43.329] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:21:43.330]  length: 0 (resolved future 1)
  [20:21:43.330] Relaying remaining futures
  [20:21:43.330] signalConditionsASAP(NULL, pos=0) ...
  [20:21:43.330] - nx: 1
  [20:21:43.331] - relay: TRUE
  [20:21:43.331] - stdout: TRUE
  [20:21:43.331] - signal: TRUE
  [20:21:43.331] - resignal: FALSE
  [20:21:43.332] - force: FALSE
  [20:21:43.332] - relayed: [n=1] TRUE
  [20:21:43.332] - queued futures: [n=1] TRUE
   - flush all
  [20:21:43.333] - relayed: [n=1] TRUE
  [20:21:43.333] - queued futures: [n=1] TRUE
  [20:21:43.333] signalConditionsASAP(NULL, pos=0) ... done
  [20:21:43.333] resolve() on list ... DONE
  [20:21:43.358] - collecting values of futures
  [20:21:43.358] signalConditions() ...
  [20:21:43.359]  - include = 'immediateCondition'
  [20:21:43.359]  - exclude = 
  [20:21:43.359]  - resignal = FALSE
  [20:21:43.359]  - Number of conditions: 422
  [20:21:43.360] signalConditions() ... done
  [20:21:43.361] - accumulating results
  [20:21:43.361] - processing errors (handler = 'stop')
  [20:21:43.362] - extracting results
  [20:21:43.362] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [20:21:43.363] plan(): Setting new future strategy stack:
  [20:21:43.364] List of future strategies:
  [20:21:43.364] 1. sequential:
  [20:21:43.364]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:21:43.364]    - tweaked: FALSE
  [20:21:43.364]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:43.364] 2. multisession:
  [20:21:43.364]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:43.364]    - tweaked: FALSE
  [20:21:43.364]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:43.365] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [20:21:43.366] doFuture() ...
  [20:21:43.367] - dummy globals (as locals): [1] 'a'
  [20:21:43.367] - R expression:
  [20:21:43.368] {
  [20:21:43.368]     doFuture::registerDoFuture()
  [20:21:43.368]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:43.368]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:43.368]         a <- NULL
  [20:21:43.368]         ...future.env <- environment()
  [20:21:43.368]         local({
  [20:21:43.368]             for (name in names(...future.x_jj)) {
  [20:21:43.368]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:43.368]                   inherits = FALSE)
  [20:21:43.368]             }
  [20:21:43.368]         })
  [20:21:43.368]         tryCatch({
  [20:21:43.368]             plan_list <- future::plan()
  [20:21:43.368]             stopifnot(inherits(plan_list, strategy2))
  [20:21:43.368]             plan_a <- future::plan("list")
  [20:21:43.368]             str(plan_a)
  [20:21:43.368]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:43.368]             message("foreach() - level 2 ...")
  [20:21:43.368]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:43.368]                 {
  [20:21:43.368]                   plan_list <- future::plan()
  [20:21:43.368]                   message(capture.output(print(plan_list)))
  [20:21:43.368]                   stopifnot(inherits(plan_list, "future"))
  [20:21:43.368]                   default <- getOption("future.plan", "sequential")
  [20:21:43.368]                   if (is.function(default)) 
  [20:21:43.368]                     default <- class(default)
  [20:21:43.368]                   stopifnot(inherits(plan_list, default))
  [20:21:43.368]                   plan_b <- future::plan("list")
  [20:21:43.368]                   str(plan_b)
  [20:21:43.368]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:43.368]                     inherits(plan_b[[1]], default))
  [20:21:43.368]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:43.368]                 }
  [20:21:43.368]             message("foreach() - level 2 ... DONE")
  [20:21:43.368]             y
  [20:21:43.368]         }, error = identity)
  [20:21:43.368]     })
  [20:21:43.368] }
  [20:21:43.369] - identifying globals and packages ...
  [20:21:43.369] getGlobalsAndPackages() ...
  [20:21:43.369] Searching for globals...
  [20:21:43.428] - 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'
  [20:21:43.429] Searching for globals ... DONE
  [20:21:43.429] Resolving globals: FALSE
  [20:21:43.431] The total size of the 3 globals is 184 bytes (184 bytes)
  [20:21:43.432] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:43.432] - packages: [2] 'utils', 'foreach'
  [20:21:43.432] getGlobalsAndPackages() ... DONE
  [20:21:43.433] List of 3
  [20:21:43.433]  $ ...future.x_ii: NULL
  [20:21:43.433]  $ strategy2     : chr "multisession"
  [20:21:43.433]  $ bs            : int [1:3] 3 2 1
  [20:21:43.433]  - attr(*, "where")=List of 3
  [20:21:43.433]   ..$ ...future.x_ii:<environment: 0x56151fd0b970> 
  [20:21:43.433]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:43.433]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:43.433]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:43.433]  - attr(*, "resolved")= logi FALSE
  [20:21:43.433]  - attr(*, "total_size")= num 184
  [20:21:43.454]   - R expression:
  [20:21:43.455] {
  [20:21:43.455]     doFuture::registerDoFuture()
  [20:21:43.455]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:43.455]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:43.455]         a <- NULL
  [20:21:43.455]         ...future.env <- environment()
  [20:21:43.455]         local({
  [20:21:43.455]             for (name in names(...future.x_jj)) {
  [20:21:43.455]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:43.455]                   inherits = FALSE)
  [20:21:43.455]             }
  [20:21:43.455]         })
  [20:21:43.455]         tryCatch({
  [20:21:43.455]             plan_list <- future::plan()
  [20:21:43.455]             stopifnot(inherits(plan_list, strategy2))
  [20:21:43.455]             plan_a <- future::plan("list")
  [20:21:43.455]             str(plan_a)
  [20:21:43.455]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:43.455]             message("foreach() - level 2 ...")
  [20:21:43.455]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:43.455]                 {
  [20:21:43.455]                   plan_list <- future::plan()
  [20:21:43.455]                   message(capture.output(print(plan_list)))
  [20:21:43.455]                   stopifnot(inherits(plan_list, "future"))
  [20:21:43.455]                   default <- getOption("future.plan", "sequential")
  [20:21:43.455]                   if (is.function(default)) 
  [20:21:43.455]                     default <- class(default)
  [20:21:43.455]                   stopifnot(inherits(plan_list, default))
  [20:21:43.455]                   plan_b <- future::plan("list")
  [20:21:43.455]                   str(plan_b)
  [20:21:43.455]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:43.455]                     inherits(plan_b[[1]], default))
  [20:21:43.455]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:43.455]                 }
  [20:21:43.455]             message("foreach() - level 2 ... DONE")
  [20:21:43.455]             y
  [20:21:43.455]         }, error = identity)
  [20:21:43.455]     })
  [20:21:43.455] }
  [20:21:43.456]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:43.456] List of 3
  [20:21:43.456]  $ ...future.x_ii: NULL
  [20:21:43.456]  $ strategy2     : chr "multisession"
  [20:21:43.456]  $ bs            : int [1:3] 3 2 1
  [20:21:43.456]  - attr(*, "where")=List of 3
  [20:21:43.456]   ..$ ...future.x_ii:<environment: 0x56151fd0b970> 
  [20:21:43.456]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:21:43.456]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:21:43.456]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:43.456]  - attr(*, "resolved")= logi FALSE
  [20:21:43.456]  - attr(*, "total_size")= num 184
  [20:21:43.481]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [20:21:43.481] - identifying globals and packages ... DONE
  [20:21:43.482] Number of chunks: 1
  [20:21:43.482] Number of futures (= number of chunks): 1
  [20:21:43.482] Launching 1 futures (chunks) ...
  [20:21:43.482] Chunk #1 of 1 ...
  [20:21:43.483]  - Finding globals in 'args_list' chunk #1 ...
  [20:21:43.483] getGlobalsAndPackages() ...
  [20:21:43.483] Searching for globals...
  [20:21:43.484] 
  [20:21:43.484] Searching for globals ... DONE
  [20:21:43.484] - globals: [0] <none>
  [20:21:43.485] getGlobalsAndPackages() ... DONE
  [20:21:43.485] 
  [20:21:43.485] 
  [20:21:43.485]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:21:43.486] getGlobalsAndPackages() ...
  [20:21:43.486] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:43.486] Resolving globals: FALSE
  [20:21:43.487] The total size of the 3 globals is 296 bytes (296 bytes)
  [20:21:43.488] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:21:43.488] 
  [20:21:43.488] getGlobalsAndPackages() ... DONE
  [20:21:43.489] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [20:21:43.490] Packages needed by future strategies (n = 1): 'future'
  [20:21:43.494] {
  [20:21:43.494]     {
  [20:21:43.494]         ...future.startTime <- Sys.time()
  [20:21:43.494]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:21:43.494]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:21:43.494]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:21:43.494]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:21:43.494]             future.resolve.recursive = NULL, width = 80L)
  [20:21:43.494]         {
  [20:21:43.494]             {
  [20:21:43.494]                 {
  [20:21:43.494]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:21:43.494]                   version <- if (has_future) 
  [20:21:43.494]                     packageVersion("future")
  [20:21:43.494]                   else NULL
  [20:21:43.494]                   if (!has_future || version < "1.8.0") {
  [20:21:43.494]                     info <- c(r_version = gsub("R version ", 
  [20:21:43.494]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:21:43.494]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:21:43.494]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:21:43.494]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:21:43.494]                     info <- sprintf("%s: %s", names(info), info)
  [20:21:43.494]                     info <- paste(info, collapse = "; ")
  [20:21:43.494]                     if (!has_future) {
  [20:21:43.494]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:21:43.494]                         info)
  [20:21:43.494]                     }
  [20:21:43.494]                     else {
  [20:21:43.494]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:21:43.494]                         info, version)
  [20:21:43.494]                     }
  [20:21:43.494]                     stop(msg)
  [20:21:43.494]                   }
  [20:21:43.494]                 }
  [20:21:43.494]                 local({
  [20:21:43.494]                   for (pkg in c("doFuture", "utils", "foreach", 
  [20:21:43.494]                   "future")) {
  [20:21:43.494]                     loadNamespace(pkg)
  [20:21:43.494]                     library(pkg, character.only = TRUE)
  [20:21:43.494]                   }
  [20:21:43.494]                 })
  [20:21:43.494]             }
  [20:21:43.494]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:21:43.494]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:43.494]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:43.494]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:21:43.494]                 ...) 
  [20:21:43.494]             {
  [20:21:43.494]                 if (substitute) 
  [20:21:43.494]                   expr <- substitute(expr)
  [20:21:43.494]                 if (is.function(workers)) 
  [20:21:43.494]                   workers <- workers()
  [20:21:43.494]                 workers <- as.integer(workers)
  [20:21:43.494]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:43.494]                   workers >= 1)
  [20:21:43.494]                 if (workers == 1L) {
  [20:21:43.494]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:43.494]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:43.494]                     local = TRUE, label = label, ...))
  [20:21:43.494]                 }
  [20:21:43.494]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:43.494]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:43.494]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:43.494]                   globals = globals, persistent = persistent, 
  [20:21:43.494]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:43.494]                   label = label, ...)
  [20:21:43.494]                 if (!future$lazy) 
  [20:21:43.494]                   future <- run(future)
  [20:21:43.494]                 invisible(future)
  [20:21:43.494]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:43.494]         }
  [20:21:43.494]     }
  [20:21:43.494]     if (is.na(TRUE)) {
  [20:21:43.494]     }
  [20:21:43.494]     else {
  [20:21:43.494]         if (TRUE) {
  [20:21:43.494]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:21:43.494]         }
  [20:21:43.494]         else {
  [20:21:43.494]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:21:43.494]                 windows = "NUL", "/dev/null"), open = "w")
  [20:21:43.494]         }
  [20:21:43.494]         sink(...future.stdout, type = "output", split = FALSE)
  [20:21:43.494]         on.exit(if (!is.null(...future.stdout)) {
  [20:21:43.494]             sink(type = "output", split = FALSE)
  [20:21:43.494]             close(...future.stdout)
  [20:21:43.494]         }, add = TRUE)
  [20:21:43.494]     }
  [20:21:43.494]     ...future.frame <- sys.nframe()
  [20:21:43.494]     ...future.conditions <- list()
  [20:21:43.494]     ...future.result <- tryCatch({
  [20:21:43.494]         withCallingHandlers({
  [20:21:43.494]             ...future.value <- withVisible(local({
  [20:21:43.494]                 doFuture::registerDoFuture()
  [20:21:43.494]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:43.494]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:43.494]                   a <- NULL
  [20:21:43.494]                   ...future.env <- environment()
  [20:21:43.494]                   local({
  [20:21:43.494]                     for (name in names(...future.x_jj)) {
  [20:21:43.494]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:43.494]                         inherits = FALSE)
  [20:21:43.494]                     }
  [20:21:43.494]                   })
  [20:21:43.494]                   tryCatch({
  [20:21:43.494]                     plan_list <- future::plan()
  [20:21:43.494]                     stopifnot(inherits(plan_list, strategy2))
  [20:21:43.494]                     plan_a <- future::plan("list")
  [20:21:43.494]                     str(plan_a)
  [20:21:43.494]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [20:21:43.494]                     message("foreach() - level 2 ...")
  [20:21:43.494]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:21:43.494]                       {
  [20:21:43.494]                         plan_list <- future::plan()
  [20:21:43.494]                         message(capture.output(print(plan_list)))
  [20:21:43.494]                         stopifnot(inherits(plan_list, "future"))
  [20:21:43.494]                         default <- getOption("future.plan", "sequential")
  [20:21:43.494]                         if (is.function(default)) 
  [20:21:43.494]                           default <- class(default)
  [20:21:43.494]                         stopifnot(inherits(plan_list, default))
  [20:21:43.494]                         plan_b <- future::plan("list")
  [20:21:43.494]                         str(plan_b)
  [20:21:43.494]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [20:21:43.494]                           inherits(plan_b[[1]], default))
  [20:21:43.494]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:43.494]                       }
  [20:21:43.494]                     message("foreach() - level 2 ... DONE")
  [20:21:43.494]                     y
  [20:21:43.494]                   }, error = identity)
  [20:21:43.494]                 })
  [20:21:43.494]             }))
  [20:21:43.494]             future::FutureResult(value = ...future.value$value, 
  [20:21:43.494]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:21:43.494]                 version = "1.8")
  [20:21:43.494]         }, condition = local({
  [20:21:43.494]             inherits <- base::inherits
  [20:21:43.494]             invokeRestart <- base::invokeRestart
  [20:21:43.494]             length <- base::length
  [20:21:43.494]             seq.int <- base::seq.int
  [20:21:43.494]             sys.calls <- base::sys.calls
  [20:21:43.494]             `[[` <- base::`[[`
  [20:21:43.494]             `+` <- base::`+`
  [20:21:43.494]             `<<-` <- base::`<<-`
  [20:21:43.494]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:21:43.494]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:21:43.494]                   3L)]
  [20:21:43.494]             }
  [20:21:43.494]             function(cond) {
  [20:21:43.494]                 if (inherits(cond, "error")) {
  [20:21:43.494]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:43.494]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:21:43.494]                     cond$call), timestamp = base::Sys.time(), 
  [20:21:43.494]                     signaled = 0L)
  [20:21:43.494]                   signalCondition(cond)
  [20:21:43.494]                 }
  [20:21:43.494]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:21:43.494]                 ))) {
  [20:21:43.494]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:21:43.494]                   ...future.conditions[[length(...future.conditions) + 
  [20:21:43.494]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:21:43.494]                   if (!signal) {
  [20:21:43.494]                     muffleCondition <- function (cond) 
  [20:21:43.494]                     {
  [20:21:43.494]                       inherits <- base::inherits
  [20:21:43.494]                       invokeRestart <- base::invokeRestart
  [20:21:43.494]                       muffled <- FALSE
  [20:21:43.494]                       if (inherits(cond, "message")) {
  [20:21:43.494]                         invokeRestart("muffleMessage")
  [20:21:43.494]                         muffled <- TRUE
  [20:21:43.494]                       }
  [20:21:43.494]                       else if (inherits(cond, "warning")) {
  [20:21:43.494]                         invokeRestart("muffleWarning")
  [20:21:43.494]                         muffled <- TRUE
  [20:21:43.494]                       }
  [20:21:43.494]                       else if (inherits(cond, "condition")) {
  [20:21:43.494]                         computeRestarts <- base::computeRestarts
  [20:21:43.494]                         grepl <- base::grepl
  [20:21:43.494]                         is.null <- base::is.null
  [20:21:43.494]                         restarts <- computeRestarts(cond)
  [20:21:43.494]                         for (restart in restarts) {
  [20:21:43.494]                           name <- restart$name
  [20:21:43.494]                           if (is.null(name)) 
  [20:21:43.494]                             next
  [20:21:43.494]                           if (!grepl("^muffle", name)) 
  [20:21:43.494]                             next
  [20:21:43.494]                           invokeRestart(restart)
  [20:21:43.494]                           muffled <- TRUE
  [20:21:43.494]                           break
  [20:21:43.494]                         }
  [20:21:43.494]                       }
  [20:21:43.494]                       invisible(muffled)
  [20:21:43.494]                     }
  [20:21:43.494]                     muffleCondition(cond)
  [20:21:43.494]                   }
  [20:21:43.494]                 }
  [20:21:43.494]             }
  [20:21:43.494]         }))
  [20:21:43.494]     }, error = function(ex) {
  [20:21:43.494]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:21:43.494]             version = "1.8"), class = "FutureResult")
  [20:21:43.494]     }, finally = {
  [20:21:43.494]         {
  [20:21:43.494]             NULL
  [20:21:43.494]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:21:43.494]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:21:43.494]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:21:43.494]                 label = NULL, ...) 
  [20:21:43.494]             {
  [20:21:43.494]                 if (substitute) 
  [20:21:43.494]                   expr <- substitute(expr)
  [20:21:43.494]                 local <- as.logical(local)
  [20:21:43.494]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:21:43.494]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:43.494]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:21:43.494]                   label = label, ...)
  [20:21:43.494]                 if (!future$lazy) 
  [20:21:43.494]                   future <- run(future)
  [20:21:43.494]                 invisible(future)
  [20:21:43.494]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:21:43.494]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:21:43.494]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:21:43.494]                 label = NULL, ...) 
  [20:21:43.494]             {
  [20:21:43.494]                 if (substitute) 
  [20:21:43.494]                   expr <- substitute(expr)
  [20:21:43.494]                 if (is.function(workers)) 
  [20:21:43.494]                   workers <- workers()
  [20:21:43.494]                 workers <- as.integer(workers)
  [20:21:43.494]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:21:43.494]                   workers >= 1)
  [20:21:43.494]                 if (workers == 1L) {
  [20:21:43.494]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:21:43.494]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:21:43.494]                     local = TRUE, label = label, ...))
  [20:21:43.494]                 }
  [20:21:43.494]                 workers <- ClusterRegistry("start", workers = workers)
  [20:21:43.494]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:21:43.494]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:21:43.494]                   globals = globals, persistent = persistent, 
  [20:21:43.494]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:21:43.494]                   label = label, ...)
  [20:21:43.494]                 if (!future$lazy) 
  [20:21:43.494]                   future <- run(future)
  [20:21:43.494]                 invisible(future)
  [20:21:43.494]             }), .cleanup = FALSE, .init = FALSE)
  [20:21:43.494]         }
  [20:21:43.494]         options(...future.oldOptions)
  [20:21:43.494]     })
  [20:21:43.494]     if (is.na(TRUE)) {
  [20:21:43.494]     }
  [20:21:43.494]     else {
  [20:21:43.494]         sink(type = "output", split = FALSE)
  [20:21:43.494]         if (TRUE) {
  [20:21:43.494]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:21:43.494]         }
  [20:21:43.494]         else {
  [20:21:43.494]             ...future.result["stdout"] <- list(NULL)
  [20:21:43.494]         }
  [20:21:43.494]         close(...future.stdout)
  [20:21:43.494]         ...future.stdout <- NULL
  [20:21:43.494]     }
  [20:21:43.494]     ...future.result$conditions <- ...future.conditions
  [20:21:43.494]     ...future.result
  [20:21:43.494] }
  [20:21:43.516] plan(): Setting new future strategy stack:
  [20:21:43.517] List of future strategies:
  [20:21:43.517] 1. multisession:
  [20:21:43.517]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:21:43.517]    - tweaked: FALSE
  [20:21:43.517]    - call: plan(list(a = strategy1, b = strategy2))
  [20:21:43.518] plan(): nbrOfWorkers() = 2
  [20:22:06.192] plan(): Setting new future strategy stack:
  [20:22:06.192] List of future strategies:
  [20:22:06.192] 1. sequential:
  [20:22:06.192]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:22:06.192]    - tweaked: FALSE
  [20:22:06.192]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:06.192] 2. multisession:
  [20:22:06.192]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:22:06.192]    - tweaked: FALSE
  [20:22:06.192]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:06.193] plan(): nbrOfWorkers() = 1
  [20:22:06.194] SequentialFuture started (and completed)
  [20:22:06.195] signalConditions() ...
  [20:22:06.195]  - include = 'immediateCondition'
  [20:22:06.195]  - exclude = 
  [20:22:06.195]  - resignal = FALSE
  [20:22:06.195]  - Number of conditions: 584
  [20:22:06.218] signalConditions() ... done
  [20:22:06.218] Chunk #1 of 1 ... DONE
  [20:22:06.219] Launching 1 futures (chunks) ... DONE
  [20:22:06.219] - resolving futures
  [20:22:06.219]   - gathering results & relaying conditions (except errors)
  [20:22:06.220] resolve() on list ...
  [20:22:06.220]  recursive: 0
  [20:22:06.220]  length: 1
  [20:22:06.220] 
  [20:22:06.221] Future #1
  [20:22:06.221] signalConditions() ...
  [20:22:06.221]  - include = 'immediateCondition'
  [20:22:06.221]  - exclude = 
  [20:22:06.222]  - resignal = FALSE
  [20:22:06.222]  - Number of conditions: 584
  [20:22:06.224] signalConditions() ... done
  [20:22:06.224] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:22:06.224] - nx: 1
  [20:22:06.225] - relay: TRUE
  [20:22:06.225] - stdout: TRUE
  [20:22:06.225] - signal: TRUE
  [20:22:06.225] - resignal: FALSE
  [20:22:06.226] - force: FALSE
  [20:22:06.226] - relayed: [n=1] FALSE
  [20:22:06.226] - queued futures: [n=1] FALSE
  [20:22:06.226]  - until=1
  [20:22:06.226]  - relaying element #1
  [20:22:06.227] signalConditions() ...
  [20:22:06.227]  - include = 'immediateCondition'
  [20:22:06.227]  - exclude = 
  [20:22:06.228]  - resignal = FALSE
  [20:22:06.228]  - Number of conditions: 584
  [20:22:06.230] 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"
  [20:22:06.230] signalConditions() ...
  [20:22:06.230]  - include = 'immediateCondition'
  [20:22:06.230]  - exclude = 
  [20:22:06.231]  - resignal = FALSE
  [20:22:06.231]  - Number of conditions: 584
  [20:22:06.232] signalConditions() ... done
  [20:22:06.233] signalConditions() ...
  [20:22:06.233]  - include = 'condition'
  [20:22:06.233]  - exclude = 'immediateCondition'
  [20:22:06.233]  - resignal = FALSE
  [20:22:06.233]  - Number of conditions: 584
  [20:22:06.250]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:22:06.250]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:21:43.524] doFuture() ...
  [20:22:06.251]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:21:43.542] - dummy globals (as locals): [1] 'b'
  [20:22:06.251]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [20:21:43.543] - R expression:
  [20:22:06.251]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [20:21:43.543] {
  [20:21:43.543]     doFuture::registerDoFuture()
  [20:21:43.543]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:43.543]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:43.543]         b <- NULL
  [20:21:43.543]         ...future.env <- environment()
  [20:21:43.543]         local({
  [20:21:43.543]             for (name in names(...future.x_jj)) {
  [20:21:43.543]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:43.543]                   inherits = FALSE)
  [20:21:43.543]             }
  [20:21:43.543]         })
  [20:21:43.543]         tryCatch({
  [20:21:43.543]             plan_list <- future::plan()
  [20:21:43.543]             message(capture.output(print(plan_list)))
  [20:21:43.543]             stopifnot(inherits(plan_list, "future"))
  [20:21:43.543]             default <- getOption("future.plan", "sequential")
  [20:21:43.543]             if (is.function(default)) 
  [20:21:43.543]                 default <- class(default)
  [20:21:43.543]             stopifnot(inherits(plan_list, default))
  [20:21:43.543]             plan_b <- future::plan("list")
  [20:21:43.543]             str(plan_b)
  [20:21:43.543]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:43.543]                 default))
  [20:21:43.543]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:43.543]         }, error = identity)
  [20:21:43.543]     })
  [20:21:43.543] }
  [20:22:06.252]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [20:21:43.548] - identifying globals and packages ...
  [20:22:06.252]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [20:21:43.548] getGlobalsAndPackages() ...
  [20:22:06.252]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [20:21:43.549] Searching for globals...
  [20:22:06.253]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [20:21:43.587] - 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'
  [20:22:06.253]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [20:21:43.588] Searching for globals ... DONE
  [20:22:06.254]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [20:21:43.588] Resolving globals: FALSE
  [20:22:06.254]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [20:21:43.615] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [20:22:06.254]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [20:21:43.615] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.254]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [20:21:43.616] - packages: [1] 'utils'
  [20:22:06.255]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [20:21:43.616] getGlobalsAndPackages() ... DONE
  [20:22:06.255]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [20:21:43.617] List of 3
  [20:21:43.617]  $ ...future.x_ii: NULL
  [20:21:43.617]  $ a             : int 1
  [20:21:43.617]  $ plan_a        :List of 1
  [20:21:43.617]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:43.617]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:43.617]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [20:21:43.617]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [20:21:43.617]   .. ..- attr(*, "init")= logi TRUE
  [20:21:43.617]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:43.617]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:43.617]  - attr(*, "where")=List of 3
  [20:21:43.617]   ..$ ...future.x_ii:<environment: 0x5615218ae2a0> 
  [20:21:43.617]   ..$ a             :<environment: 0x5615218c2e80> 
  [20:21:43.617]   ..$ plan_a        :<environment: 0x5615218c2e80> 
  [20:21:43.617]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:43.617]  - attr(*, "resolved")= logi FALSE
  [20:21:43.617]  - attr(*, "total_size")= num 83544
  [20:22:06.255]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [20:21:43.650]   - R expression:
  [20:22:06.256]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [20:21:43.651] {
  [20:21:43.651]     doFuture::registerDoFuture()
  [20:21:43.651]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:21:43.651]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:21:43.651]         b <- NULL
  [20:21:43.651]         ...future.env <- environment()
  [20:21:43.651]         local({
  [20:21:43.651]             for (name in names(...future.x_jj)) {
  [20:21:43.651]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:21:43.651]                   inherits = FALSE)
  [20:21:43.651]             }
  [20:21:43.651]         })
  [20:21:43.651]         tryCatch({
  [20:21:43.651]             plan_list <- future::plan()
  [20:21:43.651]             message(capture.output(print(plan_list)))
  [20:21:43.651]             stopifnot(inherits(plan_list, "future"))
  [20:21:43.651]             default <- getOption("future.plan", "sequential")
  [20:21:43.651]             if (is.function(default)) 
  [20:21:43.651]                 default <- class(default)
  [20:21:43.651]             stopifnot(inherits(plan_list, default))
  [20:21:43.651]             plan_b <- future::plan("list")
  [20:21:43.651]             str(plan_b)
  [20:21:43.651]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:21:43.651]                 default))
  [20:21:43.651]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:21:43.651]         }, error = identity)
  [20:21:43.651]     })
  [20:21:43.651] }
  [20:22:06.256]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [20:21:43.652]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.256]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [20:21:43.652] List of 3
  [20:21:43.652]  $ ...future.x_ii: NULL
  [20:21:43.652]  $ a             : int 1
  [20:21:43.652]  $ plan_a        :List of 1
  [20:21:43.652]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:21:43.652]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:21:43.652]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [20:21:43.652]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [20:21:43.652]   .. ..- attr(*, "init")= logi TRUE
  [20:21:43.652]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:21:43.652]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:21:43.652]  - attr(*, "where")=List of 3
  [20:21:43.652]   ..$ ...future.x_ii:<environment: 0x5615218ae2a0> 
  [20:21:43.652]   ..$ a             :<environment: 0x5615218c2e80> 
  [20:21:43.652]   ..$ plan_a        :<environment: 0x5615218c2e80> 
  [20:21:43.652]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:21:43.652]  - attr(*, "resolved")= logi FALSE
  [20:21:43.652]  - attr(*, "total_size")= num 83544
  [20:22:06.257]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [20:21:43.683]   - packages: [2] 'doFuture', 'utils'
  [20:22:06.257]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [20:21:43.683] - identifying globals and packages ... DONE
  [20:22:06.257]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [20:21:43.684] Number of chunks: 2
  [20:22:06.258]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [20:21:43.685] Number of futures (= number of chunks): 2
  [20:22:06.258]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [20:21:43.685] Launching 2 futures (chunks) ...
  [20:22:06.258]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [20:21:43.685] Chunk #1 of 2 ...
  [20:22:06.259]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [20:21:43.686]  - Finding globals in 'args_list' chunk #1 ...
  [20:22:06.259]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [20:21:43.686] getGlobalsAndPackages() ...
  [20:22:06.259]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [20:21:43.687] Searching for globals...
  [20:22:06.260]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [20:21:43.687] 
  [20:22:06.260]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [20:21:43.688] Searching for globals ... DONE
  [20:22:06.260]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [20:21:43.688] - globals: [0] <none>
  [20:22:06.261]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [20:21:43.689] getGlobalsAndPackages() ... DONE
  [20:22:06.261]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [20:21:43.689] 
  [20:22:06.261]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [20:21:43.689] 
  [20:22:06.262]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [20:21:43.706]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:22:06.262]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [20:22:06.262]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 31211
  [20:22:06.263]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [20:22:06.263]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [20:22:06.263]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290bdd35ea6.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290bdd35ea6.pid')"'
  [20:22:06.264]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [20:22:06.264]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290bdd35ea6.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=31211 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [20:22:06.264]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [20:22:06.265]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [20:22:06.265]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [20:22:06.265]  - Condition #47: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [20:22:06.282]  - Condition #48: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [20:22:06.282]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [20:22:06.283]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [20:22:06.283]  - Condition #51: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b3b223462.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b3b223462.pid')"'
  [20:22:06.283]  - Condition #52: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [20:22:06.284]  - Condition #53: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b3b223462.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=31211 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [20:22:06.284]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [20:22:06.284]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [20:22:06.285]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [20:22:06.285]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [20:22:06.285]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [20:22:06.286]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [20:22:04.646] getGlobalsAndPackages() ...
  [20:22:06.286]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [20:22:04.647] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.287]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [20:22:04.647] Resolving globals: FALSE
  [20:22:06.287]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [20:22:04.648] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [20:22:06.287]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [20:22:04.649] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.306]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [20:22:04.649] 
  [20:22:06.306]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [20:22:04.650] getGlobalsAndPackages() ... DONE
  [20:22:06.307]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [20:22:04.652] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:06.307]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [20:22:04.652] Packages needed by future strategies (n = 0): <none>
  [20:22:06.308]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [20:22:04.674] {
  [20:22:04.674]     {
  [20:22:04.674]         ...future.startTime <- Sys.time()
  [20:22:04.674]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:04.674]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:04.674]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:04.674]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:04.674]             future.resolve.recursive = NULL, width = 80L)
  [20:22:04.674]         {
  [20:22:04.674]             {
  [20:22:04.674]                 {
  [20:22:04.674]                   {
  [20:22:04.674]                     has_future <- requireNamespace("future", 
  [20:22:04.674]                       quietly = TRUE)
  [20:22:04.674]                     version <- if (has_future) 
  [20:22:04.674]                       packageVersion("future")
  [20:22:04.674]                     else NULL
  [20:22:04.674]                     if (!has_future || version < "1.8.0") {
  [20:22:04.674]                       info <- c(r_version = gsub("R version ", 
  [20:22:04.674]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:04.674]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:04.674]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:22:04.674]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:04.674]                       info <- sprintf("%s: %s", names(info), 
  [20:22:04.674]                         info)
  [20:22:04.674]                       info <- paste(info, collapse = "; ")
  [20:22:04.674]                       if (!has_future) {
  [20:22:04.674]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:04.674]                           info)
  [20:22:04.674]                       }
  [20:22:04.674]                       else {
  [20:22:04.674]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:04.674]                           info, version)
  [20:22:04.674]                       }
  [20:22:04.674]                       stop(msg)
  [20:22:04.674]                     }
  [20:22:04.674]                   }
  [20:22:04.674]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:22:04.674]                   options(mc.cores = 1L)
  [20:22:04.674]                 }
  [20:22:04.674]                 local({
  [20:22:04.674]                   for (pkg in c("doFuture", "utils")) {
  [20:22:04.674]                     loadNamespace(pkg)
  [20:22:04.674]                     library(pkg, character.only = TRUE)
  [20:22:04.674]                   }
  [20:22:04.674]                 })
  [20:22:04.674]             }
  [20:22:04.674]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:04.674]         }
  [20:22:04.674]     }
  [20:22:04.674]     if (is.na(TRUE)) {
  [20:22:04.674]     }
  [20:22:04.674]     else {
  [20:22:04.674]         if (TRUE) {
  [20:22:04.674]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:04.674]         }
  [20:22:04.674]         else {
  [20:22:04.674]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:04.674]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:04.674]         }
  [20:22:04.674]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:04.674]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:04.674]             sink(type = "output", split = FALSE)
  [20:22:04.674]             close(...future.stdout)
  [20:22:04.674]         }, add = TRUE)
  [20:22:04.674]     }
  [20:22:04.674]     ...future.frame <- sys.nframe()
  [20:22:04.674]     ...future.conditions <- list()
  [20:22:04.674]     ...future.result <- tryCatch({
  [20:22:04.674]         withCallingHandlers({
  [20:22:04.674]             ...future.value <- withVisible(local({
  [20:22:04.674]                 doFuture::registerDoFuture()
  [20:22:04.674]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:04.674]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:04.674]                   b <- NULL
  [20:22:04.674]                   ...future.env <- environment()
  [20:22:04.674]                   local({
  [20:22:04.674]                     for (name in names(...future.x_jj)) {
  [20:22:04.674]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:04.674]                         inherits = FALSE)
  [20:22:04.674]                     }
  [20:22:04.674]                   })
  [20:22:04.674]                   tryCatch({
  [20:22:04.674]                     plan_list <- future::plan()
  [20:22:04.674]                     message(capture.output(print(plan_list)))
  [20:22:04.674]                     stopifnot(inherits(plan_list, "future"))
  [20:22:04.674]                     default <- getOption("future.plan", "sequential")
  [20:22:04.674]                     if (is.function(default)) 
  [20:22:04.674]                       default <- class(default)
  [20:22:04.674]                     stopifnot(inherits(plan_list, default))
  [20:22:04.674]                     plan_b <- future::plan("list")
  [20:22:04.674]                     str(plan_b)
  [20:22:04.674]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:04.674]                       inherits(plan_b[[1]], default))
  [20:22:04.674]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:04.674]                   }, error = identity)
  [20:22:04.674]                 })
  [20:22:04.674]             }))
  [20:22:04.674]             future::FutureResult(value = ...future.value$value, 
  [20:22:04.674]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:04.674]                 version = "1.8")
  [20:22:04.674]         }, condition = local({
  [20:22:04.674]             inherits <- base::inherits
  [20:22:04.674]             invokeRestart <- base::invokeRestart
  [20:22:04.674]             length <- base::length
  [20:22:04.674]             seq.int <- base::seq.int
  [20:22:04.674]             sys.calls <- base::sys.calls
  [20:22:04.674]             `[[` <- base::`[[`
  [20:22:04.674]             `+` <- base::`+`
  [20:22:04.674]             `<<-` <- base::`<<-`
  [20:22:04.674]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:04.674]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:04.674]                   3L)]
  [20:22:04.674]             }
  [20:22:04.674]             function(cond) {
  [20:22:04.674]                 if (inherits(cond, "error")) {
  [20:22:04.674]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:04.674]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:04.674]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:04.674]                     signaled = 0L)
  [20:22:04.674]                   signalCondition(cond)
  [20:22:04.674]                 }
  [20:22:04.674]                 else if (inherits(cond, "condition")) {
  [20:22:04.674]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:04.674]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:04.674]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:04.674]                   if (!signal) {
  [20:22:04.674]                     muffleCondition <- function (cond) 
  [20:22:04.674]                     {
  [20:22:04.674]                       inherits <- base::inherits
  [20:22:04.674]                       invokeRestart <- base::invokeRestart
  [20:22:04.674]                       muffled <- FALSE
  [20:22:04.674]                       if (inherits(cond, "message")) {
  [20:22:04.674]                         invokeRestart("muffleMessage")
  [20:22:04.674]                         muffled <- TRUE
  [20:22:04.674]                       }
  [20:22:04.674]                       else if (inherits(cond, "warning")) {
  [20:22:04.674]                         invokeRestart("muffleWarning")
  [20:22:04.674]                         muffled <- TRUE
  [20:22:04.674]                       }
  [20:22:04.674]                       else if (inherits(cond, "condition")) {
  [20:22:04.674]                         computeRestarts <- base::computeRestarts
  [20:22:04.674]                         grepl <- base::grepl
  [20:22:04.674]                         is.null <- base::is.null
  [20:22:04.674]                         restarts <- computeRestarts(cond)
  [20:22:04.674]                         for (restart in restarts) {
  [20:22:04.674]                           name <- restart$name
  [20:22:04.674]                           if (is.null(name)) 
  [20:22:04.674]                             next
  [20:22:04.674]                           if (!grepl("^muffle", name)) 
  [20:22:04.674]                             next
  [20:22:04.674]                           invokeRestart(restart)
  [20:22:04.674]                           muffled <- TRUE
  [20:22:04.674]                           break
  [20:22:04.674]                         }
  [20:22:04.674]                       }
  [20:22:04.674]                       invisible(muffled)
  [20:22:04.674]                     }
  [20:22:04.674]                     muffleCondition(cond)
  [20:22:04.674]                   }
  [20:22:04.674]                 }
  [20:22:04.674]             }
  [20:22:04.674]         }))
  [20:22:04.674]     }, error = function(ex) {
  [20:22:04.674]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:04.674]             version = "1.8"), class = "FutureResult")
  [20:22:04.674]     }, finally = {
  [20:22:04.674]         {
  [20:22:04.674]             {
  [20:22:04.674]                 options(mc.cores = ...future.mc.cores.old)
  [20:22:04.674]             }
  [20:22:04.674]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:04.674]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:04.674]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:04.674]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:04.674]                 ...) 
  [20:22:04.674]             {
  [20:22:04.674]                 if (substitute) 
  [20:22:04.674]                   expr <- substitute(expr)
  [20:22:04.674]                 if (is.function(workers)) 
  [20:22:04.674]                   workers <- workers()
  [20:22:04.674]                 workers <- as.integer(workers)
  [20:22:04.674]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:22:04.674]                   workers >= 1)
  [20:22:04.674]                 if (workers == 1L) {
  [20:22:04.674]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:22:04.674]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:22:04.674]                     local = TRUE, label = label, ...))
  [20:22:04.674]                 }
  [20:22:04.674]                 workers <- ClusterRegistry("start", workers = workers)
  [20:22:04.674]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:22:04.674]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:04.674]                   globals = globals, persistent = persistent, 
  [20:22:04.674]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:22:04.674]                   label = label, ...)
  [20:22:04.674]                 if (!future$lazy) 
  [20:22:04.674]                   future <- run(future)
  [20:22:04.674]                 invisible(future)
  [20:22:04.674]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:04.674]         }
  [20:22:04.674]         options(...future.oldOptions)
  [20:22:04.674]     })
  [20:22:04.674]     if (is.na(TRUE)) {
  [20:22:04.674]     }
  [20:22:04.674]     else {
  [20:22:04.674]         sink(type = "output", split = FALSE)
  [20:22:04.674]         if (TRUE) {
  [20:22:04.674]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:04.674]         }
  [20:22:04.674]         else {
  [20:22:04.674]             ...future.result["stdout"] <- list(NULL)
  [20:22:04.674]         }
  [20:22:04.674]         close(...future.stdout)
  [20:22:04.674]         ...future.stdout <- NULL
  [20:22:04.674]     }
  [20:22:04.674]     ...future.result$conditions <- ...future.conditions
  [20:22:04.674]     ...future.result
  [20:22:04.674] }
  [20:22:06.308]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [20:22:04.714] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [20:22:06.308]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [20:22:04.715] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [20:22:06.309]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [20:22:04.716] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [20:22:06.309]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [20:22:04.717] Exporting 'a' (56 bytes) to cluster node #1 ...
  [20:22:06.309]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [20:22:04.718] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [20:22:06.310]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [20:22:04.719] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [20:22:06.310]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [20:22:04.762] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [20:22:06.311]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [20:22:04.763] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [20:22:06.311]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [20:22:04.764] MultisessionFuture started
  [20:22:06.311]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [20:22:04.765] Chunk #1 of 2 ... DONE
  [20:22:06.312]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [20:22:04.765] Chunk #2 of 2 ...
  [20:22:06.312]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [20:22:04.765]  - Finding globals in 'args_list' chunk #2 ...
  [20:22:06.312]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [20:22:04.766] getGlobalsAndPackages() ...
  [20:22:06.312]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [20:22:04.766] Searching for globals...
  [20:22:06.313]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [20:22:04.767] 
  [20:22:06.313]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [20:22:04.767] Searching for globals ... DONE
  [20:22:06.313]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [20:22:04.768] - globals: [0] <none>
  [20:22:06.314]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [20:22:04.768] getGlobalsAndPackages() ... DONE
  [20:22:06.314]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [20:22:04.769] 
  [20:22:06.314]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [20:22:04.769] 
  [20:22:06.315]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [20:22:04.769]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:22:06.315]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [20:22:04.777] getGlobalsAndPackages() ...
  [20:22:06.315]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [20:22:04.778] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.316]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [20:22:04.778] Resolving globals: FALSE
  [20:22:06.316]  - Condition #93: 'simpleMessage', 'message', 'condition'
  [20:22:04.779] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [20:22:06.316]  - Condition #94: 'simpleMessage', 'message', 'condition'
  [20:22:04.780] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.316]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [20:22:04.780] 
  [20:22:06.317]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [20:22:04.781] getGlobalsAndPackages() ... DONE
  [20:22:06.317]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [20:22:04.795] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:06.317]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [20:22:04.795] Packages needed by future strategies (n = 0): <none>
  [20:22:06.318]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [20:22:04.799] {
  [20:22:04.799]     {
  [20:22:04.799]         ...future.startTime <- Sys.time()
  [20:22:04.799]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:04.799]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:04.799]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:04.799]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:04.799]             future.resolve.recursive = NULL, width = 80L)
  [20:22:04.799]         {
  [20:22:04.799]             {
  [20:22:04.799]                 {
  [20:22:04.799]                   {
  [20:22:04.799]                     has_future <- requireNamespace("future", 
  [20:22:04.799]                       quietly = TRUE)
  [20:22:04.799]                     version <- if (has_future) 
  [20:22:04.799]                       packageVersion("future")
  [20:22:04.799]                     else NULL
  [20:22:04.799]                     if (!has_future || version < "1.8.0") {
  [20:22:04.799]                       info <- c(r_version = gsub("R version ", 
  [20:22:04.799]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:04.799]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:04.799]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:22:04.799]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:04.799]                       info <- sprintf("%s: %s", names(info), 
  [20:22:04.799]                         info)
  [20:22:04.799]                       info <- paste(info, collapse = "; ")
  [20:22:04.799]                       if (!has_future) {
  [20:22:04.799]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:04.799]                           info)
  [20:22:04.799]                       }
  [20:22:04.799]                       else {
  [20:22:04.799]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:04.799]                           info, version)
  [20:22:04.799]                       }
  [20:22:04.799]                       stop(msg)
  [20:22:04.799]                     }
  [20:22:04.799]                   }
  [20:22:04.799]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:22:04.799]                   options(mc.cores = 1L)
  [20:22:04.799]                 }
  [20:22:04.799]                 local({
  [20:22:04.799]                   for (pkg in c("doFuture", "utils")) {
  [20:22:04.799]                     loadNamespace(pkg)
  [20:22:04.799]                     library(pkg, character.only = TRUE)
  [20:22:04.799]                   }
  [20:22:04.799]                 })
  [20:22:04.799]             }
  [20:22:04.799]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:04.799]         }
  [20:22:04.799]     }
  [20:22:04.799]     if (is.na(TRUE)) {
  [20:22:04.799]     }
  [20:22:04.799]     else {
  [20:22:04.799]         if (TRUE) {
  [20:22:04.799]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:04.799]         }
  [20:22:04.799]         else {
  [20:22:04.799]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:04.799]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:04.799]         }
  [20:22:04.799]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:04.799]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:04.799]             sink(type = "output", split = FALSE)
  [20:22:04.799]             close(...future.stdout)
  [20:22:04.799]         }, add = TRUE)
  [20:22:04.799]     }
  [20:22:04.799]     ...future.frame <- sys.nframe()
  [20:22:04.799]     ...future.conditions <- list()
  [20:22:04.799]     ...future.result <- tryCatch({
  [20:22:04.799]         withCallingHandlers({
  [20:22:04.799]             ...future.value <- withVisible(local({
  [20:22:04.799]                 doFuture::registerDoFuture()
  [20:22:04.799]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:04.799]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:04.799]                   b <- NULL
  [20:22:04.799]                   ...future.env <- environment()
  [20:22:04.799]                   local({
  [20:22:04.799]                     for (name in names(...future.x_jj)) {
  [20:22:04.799]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:04.799]                         inherits = FALSE)
  [20:22:04.799]                     }
  [20:22:04.799]                   })
  [20:22:04.799]                   tryCatch({
  [20:22:04.799]                     plan_list <- future::plan()
  [20:22:04.799]                     message(capture.output(print(plan_list)))
  [20:22:04.799]                     stopifnot(inherits(plan_list, "future"))
  [20:22:04.799]                     default <- getOption("future.plan", "sequential")
  [20:22:04.799]                     if (is.function(default)) 
  [20:22:04.799]                       default <- class(default)
  [20:22:04.799]                     stopifnot(inherits(plan_list, default))
  [20:22:04.799]                     plan_b <- future::plan("list")
  [20:22:04.799]                     str(plan_b)
  [20:22:04.799]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:04.799]                       inherits(plan_b[[1]], default))
  [20:22:04.799]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:04.799]                   }, error = identity)
  [20:22:04.799]                 })
  [20:22:04.799]             }))
  [20:22:04.799]             future::FutureResult(value = ...future.value$value, 
  [20:22:04.799]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:04.799]                 version = "1.8")
  [20:22:04.799]         }, condition = local({
  [20:22:04.799]             inherits <- base::inherits
  [20:22:04.799]             invokeRestart <- base::invokeRestart
  [20:22:04.799]             length <- base::length
  [20:22:04.799]             seq.int <- base::seq.int
  [20:22:04.799]             sys.calls <- base::sys.calls
  [20:22:04.799]             `[[` <- base::`[[`
  [20:22:04.799]             `+` <- base::`+`
  [20:22:04.799]             `<<-` <- base::`<<-`
  [20:22:04.799]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:04.799]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:04.799]                   3L)]
  [20:22:04.799]             }
  [20:22:04.799]             function(cond) {
  [20:22:04.799]                 if (inherits(cond, "error")) {
  [20:22:04.799]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:04.799]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:04.799]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:04.799]                     signaled = 0L)
  [20:22:04.799]                   signalCondition(cond)
  [20:22:04.799]                 }
  [20:22:04.799]                 else if (inherits(cond, "condition")) {
  [20:22:04.799]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:04.799]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:04.799]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:04.799]                   if (!signal) {
  [20:22:04.799]                     muffleCondition <- function (cond) 
  [20:22:04.799]                     {
  [20:22:04.799]                       inherits <- base::inherits
  [20:22:04.799]                       invokeRestart <- base::invokeRestart
  [20:22:04.799]                       muffled <- FALSE
  [20:22:04.799]                       if (inherits(cond, "message")) {
  [20:22:04.799]                         invokeRestart("muffleMessage")
  [20:22:04.799]                         muffled <- TRUE
  [20:22:04.799]                       }
  [20:22:04.799]                       else if (inherits(cond, "warning")) {
  [20:22:04.799]                         invokeRestart("muffleWarning")
  [20:22:04.799]                         muffled <- TRUE
  [20:22:04.799]                       }
  [20:22:04.799]                       else if (inherits(cond, "condition")) {
  [20:22:04.799]                         computeRestarts <- base::computeRestarts
  [20:22:04.799]                         grepl <- base::grepl
  [20:22:04.799]                         is.null <- base::is.null
  [20:22:04.799]                         restarts <- computeRestarts(cond)
  [20:22:04.799]                         for (restart in restarts) {
  [20:22:04.799]                           name <- restart$name
  [20:22:04.799]                           if (is.null(name)) 
  [20:22:04.799]                             next
  [20:22:04.799]                           if (!grepl("^muffle", name)) 
  [20:22:04.799]                             next
  [20:22:04.799]                           invokeRestart(restart)
  [20:22:04.799]                           muffled <- TRUE
  [20:22:04.799]                           break
  [20:22:04.799]                         }
  [20:22:04.799]                       }
  [20:22:04.799]                       invisible(muffled)
  [20:22:04.799]                     }
  [20:22:04.799]                     muffleCondition(cond)
  [20:22:04.799]                   }
  [20:22:04.799]                 }
  [20:22:04.799]             }
  [20:22:04.799]         }))
  [20:22:04.799]     }, error = function(ex) {
  [20:22:04.799]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:04.799]             version = "1.8"), class = "FutureResult")
  [20:22:04.799]     }, finally = {
  [20:22:04.799]         {
  [20:22:04.799]             {
  [20:22:04.799]                 options(mc.cores = ...future.mc.cores.old)
  [20:22:04.799]             }
  [20:22:04.799]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:04.799]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:04.799]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:04.799]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:04.799]                 ...) 
  [20:22:04.799]             {
  [20:22:04.799]                 if (substitute) 
  [20:22:04.799]                   expr <- substitute(expr)
  [20:22:04.799]                 if (is.function(workers)) 
  [20:22:04.799]                   workers <- workers()
  [20:22:04.799]                 workers <- as.integer(workers)
  [20:22:04.799]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:22:04.799]                   workers >= 1)
  [20:22:04.799]                 if (workers == 1L) {
  [20:22:04.799]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:22:04.799]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:22:04.799]                     local = TRUE, label = label, ...))
  [20:22:04.799]                 }
  [20:22:04.799]                 workers <- ClusterRegistry("start", workers = workers)
  [20:22:04.799]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:22:04.799]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:04.799]                   globals = globals, persistent = persistent, 
  [20:22:04.799]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:22:04.799]                   label = label, ...)
  [20:22:04.799]                 if (!future$lazy) 
  [20:22:04.799]                   future <- run(future)
  [20:22:04.799]                 invisible(future)
  [20:22:04.799]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:04.799]         }
  [20:22:04.799]         options(...future.oldOptions)
  [20:22:04.799]     })
  [20:22:04.799]     if (is.na(TRUE)) {
  [20:22:04.799]     }
  [20:22:04.799]     else {
  [20:22:04.799]         sink(type = "output", split = FALSE)
  [20:22:04.799]         if (TRUE) {
  [20:22:04.799]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:04.799]         }
  [20:22:04.799]         else {
  [20:22:04.799]             ...future.result["stdout"] <- list(NULL)
  [20:22:04.799]         }
  [20:22:04.799]         close(...future.stdout)
  [20:22:04.799]         ...future.stdout <- NULL
  [20:22:04.799]     }
  [20:22:04.799]     ...future.result$conditions <- ...future.conditions
  [20:22:04.799]     ...future.result
  [20:22:04.799] }
  [20:22:06.318]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [20:22:04.834] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [20:22:06.318]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [20:22:04.835] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [20:22:06.319]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [20:22:04.846] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [20:22:06.319]  - Condition #103: 'simpleMessage', 'message', 'condition'
  [20:22:04.846] Exporting 'a' (56 bytes) to cluster node #2 ...
  [20:22:06.319]  - Condition #104: 'simpleMessage', 'message', 'condition'
  [20:22:04.848] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [20:22:06.320]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [20:22:04.848] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [20:22:06.320]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [20:22:04.890] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [20:22:06.320]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [20:22:04.891] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [20:22:06.321]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [20:22:04.892] MultisessionFuture started
  [20:22:06.321]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [20:22:04.892] Chunk #2 of 2 ... DONE
  [20:22:06.321]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [20:22:04.893] Launching 2 futures (chunks) ... DONE
  [20:22:06.338]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [20:22:04.893] - resolving futures
  [20:22:06.338]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [20:22:04.893]   - gathering results & relaying conditions (except errors)
  [20:22:06.339]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [20:22:04.894] resolve() on list ...
  [20:22:06.339]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [20:22:04.894]  recursive: 0
  [20:22:06.339]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [20:22:04.894]  length: 2
  [20:22:06.340]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [20:22:04.895] 
  [20:22:06.340]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [20:22:05.407] Future #1
  [20:22:06.340]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [20:22:05.408] result() for ClusterFuture ...
  [20:22:06.341]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [20:22:05.409] - Validating connection of MultisessionFuture
  [20:22:06.341]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [20:22:05.409] - class(result): FutureResult
  [20:22:06.342]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [20:22:05.410] result() for ClusterFuture ...
  [20:22:06.342]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [20:22:05.410] - result already collected: FutureResult
  [20:22:06.342]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [20:22:05.411] result() for ClusterFuture ... done
  [20:22:06.343]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [20:22:05.411] signalConditions() ...
  [20:22:06.343]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [20:22:05.411]  - include = 'immediateCondition'
  [20:22:06.343]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [20:22:05.412]  - exclude = 
  [20:22:06.344]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [20:22:05.412]  - resignal = FALSE
  [20:22:06.344]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [20:22:05.413]  - Number of conditions: 1
  [20:22:06.344]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [20:22:05.413] signalConditions() ... done
  [20:22:06.345]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [20:22:05.413] result() for ClusterFuture ... done
  [20:22:06.345]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [20:22:05.414] result() for ClusterFuture ...
  [20:22:06.345]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [20:22:05.414] - result already collected: FutureResult
  [20:22:06.346]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [20:22:05.415] result() for ClusterFuture ... done
  [20:22:06.346]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [20:22:05.415] signalConditions() ...
  [20:22:06.346]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [20:22:05.415]  - include = 'immediateCondition'
  [20:22:06.347]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [20:22:05.416]  - exclude = 
  [20:22:06.347]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [20:22:05.416]  - resignal = FALSE
  [20:22:06.347]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [20:22:05.417]  - Number of conditions: 1
  [20:22:06.348]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [20:22:05.417] signalConditions() ... done
  [20:22:06.348]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [20:22:05.417] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:22:06.349]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [20:22:05.418] - nx: 2
  [20:22:06.349]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [20:22:05.418] - relay: TRUE
  [20:22:06.349]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [20:22:05.419] - stdout: TRUE
  [20:22:06.350]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [20:22:05.419] - signal: TRUE
  [20:22:06.350]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [20:22:05.431] - resignal: FALSE
  [20:22:06.350]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [20:22:05.431] - force: FALSE
  [20:22:06.351]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [20:22:05.432] - relayed: [n=2] FALSE, FALSE
  [20:22:06.351]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [20:22:05.437] - queued futures: [n=2] FALSE, FALSE
  [20:22:06.351]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [20:22:05.437]  - until=1
  [20:22:06.352]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [20:22:05.446]  - relaying element #1
  [20:22:06.352]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [20:22:05.447] result() for ClusterFuture ...
  [20:22:06.352]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [20:22:05.447] - result already collected: FutureResult
  [20:22:06.353]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [20:22:05.447] result() for ClusterFuture ... done
  [20:22:06.353]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [20:22:05.448] result() for ClusterFuture ...
  [20:22:06.353]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [20:22:05.448] - result already collected: FutureResult
  [20:22:06.370]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [20:22:05.449] result() for ClusterFuture ... done
  [20:22:06.370]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [20:22:05.449] signalConditions() ...
  [20:22:06.371]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [20:22:05.450]  - include = 'immediateCondition'
  [20:22:06.371]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [20:22:05.450]  - exclude = 
  [20:22:06.371]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [20:22:05.450]  - resignal = FALSE
  [20:22:06.372]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [20:22:05.468]  - Number of conditions: 1
  [20:22:06.372]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [20:22:05.468] signalConditions() ... done
  [20:22:06.372]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [20:22:05.469] result() for ClusterFuture ...
  [20:22:06.373]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [20:22:05.469] - result already collected: FutureResult
  [20:22:06.373]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [20:22:05.470] result() for ClusterFuture ... done
  [20:22:06.373]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [20:22:05.470] signalConditions() ...
  [20:22:06.374]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [20:22:05.470]  - include = 'immediateCondition'
  [20:22:06.374]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [20:22:05.471]  - exclude = 
  [20:22:06.374]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [20:22:05.471]  - resignal = FALSE
  [20:22:06.375]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [20:22:05.472]  - Number of conditions: 1
  [20:22:06.375]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [20:22:05.472] signalConditions() ... done
  [20:22:06.375]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [20:22:05.472] result() for ClusterFuture ...
  [20:22:06.405]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [20:22:05.473] - result already collected: FutureResult
  [20:22:06.406]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [20:22:05.473] result() for ClusterFuture ... done
  [20:22:06.406]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [20:22:05.473] signalConditions() ...
  [20:22:06.406]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [20:22:05.482]  - include = 'condition'
  [20:22:06.407]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [20:22:05.483]  - exclude = 'immediateCondition'
  [20:22:06.407]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [20:22:05.483]  - resignal = FALSE
  [20:22:06.408]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [20:22:05.483]  - Number of conditions: 1
  [20:22:06.408]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [20:22:05.484]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:06.408]  - Condition #181: '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
  [20:22:06.409]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [20:22:05.484] signalConditions() ... done
  [20:22:06.409]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [20:22:05.484] - relayed: [n=2] TRUE, FALSE
  [20:22:06.409]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [20:22:05.485] - queued futures: [n=2] TRUE, FALSE
  [20:22:06.410]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [20:22:05.485] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:22:06.410]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [20:22:05.485]  length: 1 (resolved future 1)
  [20:22:06.411]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [20:22:05.487] Future #2
  [20:22:06.411]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [20:22:05.487] result() for ClusterFuture ...
  [20:22:06.411]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [20:22:05.488] - Validating connection of MultisessionFuture
  [20:22:06.412]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [20:22:05.488] - class(result): FutureResult
  [20:22:06.412]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [20:22:05.489] result() for ClusterFuture ...
  [20:22:06.413]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [20:22:05.489] - result already collected: FutureResult
  [20:22:06.413]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [20:22:05.514] result() for ClusterFuture ... done
  [20:22:06.413]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [20:22:05.514] signalConditions() ...
  [20:22:06.414]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [20:22:05.515]  - include = 'immediateCondition'
  [20:22:06.414]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [20:22:05.515]  - exclude = 
  [20:22:06.414]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [20:22:05.516]  - resignal = FALSE
  [20:22:06.415]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [20:22:05.516]  - Number of conditions: 2
  [20:22:06.415]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [20:22:05.516] signalConditions() ... done
  [20:22:06.416]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [20:22:05.517] result() for ClusterFuture ... done
  [20:22:06.416]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [20:22:05.517] result() for ClusterFuture ...
  [20:22:06.416]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [20:22:05.518] - result already collected: FutureResult
  [20:22:06.416]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [20:22:05.518] result() for ClusterFuture ... done
  [20:22:06.417]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [20:22:05.518] signalConditions() ...
  [20:22:06.417]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [20:22:05.519]  - include = 'immediateCondition'
  [20:22:06.417]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [20:22:05.519]  - exclude = 
  [20:22:06.434]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [20:22:05.519]  - resignal = FALSE
  [20:22:06.434]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [20:22:05.520]  - Number of conditions: 2
  [20:22:06.435]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [20:22:05.520] signalConditions() ... done
  [20:22:06.435]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [20:22:05.521] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:22:06.436]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [20:22:05.521] - nx: 2
  [20:22:06.436]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [20:22:05.521] - relay: TRUE
  [20:22:06.436]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [20:22:05.546] - stdout: TRUE
  [20:22:06.437]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [20:22:05.546] - signal: TRUE
  [20:22:06.437]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [20:22:05.547] - resignal: FALSE
  [20:22:06.437]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [20:22:05.547] - force: FALSE
  [20:22:06.438]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [20:22:05.547] - relayed: [n=2] TRUE, FALSE
  [20:22:06.438]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [20:22:05.548] - queued futures: [n=2] TRUE, FALSE
  [20:22:06.438]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [20:22:05.548]  - until=2
  [20:22:06.439]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [20:22:05.549]  - relaying element #2
  [20:22:06.439]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [20:22:05.549] result() for ClusterFuture ...
  [20:22:06.439]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [20:22:05.549] - result already collected: FutureResult
  [20:22:06.440]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [20:22:05.550] result() for ClusterFuture ... done
  [20:22:06.440]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [20:22:05.550] result() for ClusterFuture ...
  [20:22:06.440]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [20:22:05.551] - result already collected: FutureResult
  [20:22:06.441]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [20:22:05.551] result() for ClusterFuture ... done
  [20:22:06.441]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [20:22:05.551] signalConditions() ...
  [20:22:06.441]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [20:22:05.552]  - include = 'immediateCondition'
  [20:22:06.442]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [20:22:05.552]  - exclude = 
  [20:22:06.442]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [20:22:05.553]  - resignal = FALSE
  [20:22:06.443]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [20:22:05.553]  - Number of conditions: 2
  [20:22:06.443]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [20:22:05.553] signalConditions() ... done
  [20:22:06.443]  - Condition #233: 'simpleMessage', 'message', 'condition'
  [20:22:05.554] result() for ClusterFuture ...
  [20:22:06.444]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [20:22:05.554] - result already collected: FutureResult
  [20:22:06.444]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [20:22:05.555] result() for ClusterFuture ... done
  [20:22:06.444]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [20:22:05.555] signalConditions() ...
  [20:22:06.445]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [20:22:05.555]  - include = 'immediateCondition'
  [20:22:06.445]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [20:22:05.556]  - exclude = 
  [20:22:06.445]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [20:22:05.556]  - resignal = FALSE
  [20:22:06.446]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [20:22:05.557]  - Number of conditions: 2
  [20:22:06.446]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [20:22:05.557] signalConditions() ... done
  [20:22:06.446]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [20:22:05.557] result() for ClusterFuture ...
  [20:22:06.447]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [20:22:05.572] - result already collected: FutureResult
  [20:22:06.447]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [20:22:05.572] result() for ClusterFuture ... done
  [20:22:06.447]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [20:22:05.572] signalConditions() ...
  [20:22:06.448]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [20:22:05.573]  - include = 'condition'
  [20:22:06.448]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [20:22:05.573]  - exclude = 'immediateCondition'
  [20:22:06.448]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [20:22:05.574]  - resignal = FALSE
  [20:22:06.449]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [20:22:05.574]  - Number of conditions: 2
  [20:22:06.449]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [20:22:05.574]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:06.450]  - Condition #251: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [20:22:06.466]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [20:22:05.575]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:22:06.467]  - Condition #253: '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
  [20:22:06.467]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [20:22:05.575] signalConditions() ... done
  [20:22:06.467]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [20:22:05.576] - relayed: [n=2] TRUE, TRUE
  [20:22:06.468]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [20:22:05.576] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.468]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [20:22:05.576] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:22:06.468]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [20:22:05.577]  length: 0 (resolved future 2)
  [20:22:06.469]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [20:22:05.577] Relaying remaining futures
  [20:22:06.469]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [20:22:05.578] signalConditionsASAP(NULL, pos=0) ...
  [20:22:06.469]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [20:22:05.578] - nx: 2
  [20:22:06.470]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [20:22:05.578] - relay: TRUE
  [20:22:06.470]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [20:22:05.579] - stdout: TRUE
  [20:22:06.470]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [20:22:05.579] - signal: TRUE
  [20:22:06.471]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [20:22:05.579] - resignal: FALSE
  [20:22:06.471]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [20:22:05.580] - force: FALSE
  [20:22:06.472]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [20:22:05.580] - relayed: [n=2] TRUE, TRUE
  [20:22:06.472]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [20:22:05.580] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.472]  - Condition #269: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:22:06.473]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [20:22:05.581] - relayed: [n=2] TRUE, TRUE
  [20:22:06.473]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [20:22:05.581] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.473]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [20:22:05.582] signalConditionsASAP(NULL, pos=0) ... done
  [20:22:06.475]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [20:22:05.582] resolve() on list ... DONE
  [20:22:06.476]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [20:22:05.583] - collecting values of futures
  [20:22:06.476]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [20:22:05.583] result() for ClusterFuture ...
  [20:22:06.477]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [20:22:05.583] - result already collected: FutureResult
  [20:22:06.477]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [20:22:05.584] result() for ClusterFuture ... done
  [20:22:06.477]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [20:22:05.613] result() for ClusterFuture ...
  [20:22:06.478]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [20:22:05.614] - result already collected: FutureResult
  [20:22:06.478]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [20:22:05.614] result() for ClusterFuture ... done
  [20:22:06.478]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [20:22:05.614] signalConditions() ...
  [20:22:06.479]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [20:22:05.615]  - include = 'immediateCondition'
  [20:22:06.479]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [20:22:05.615]  - exclude = 
  [20:22:06.480]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [20:22:05.616]  - resignal = FALSE
  [20:22:06.480]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [20:22:05.616]  - Number of conditions: 1
  [20:22:06.480]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [20:22:05.616] signalConditions() ... done
  [20:22:06.481]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [20:22:05.617] result() for ClusterFuture ...
  [20:22:06.481]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [20:22:05.617] - result already collected: FutureResult
  [20:22:06.481]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [20:22:05.618] result() for ClusterFuture ... done
  [20:22:06.498]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [20:22:05.618] result() for ClusterFuture ...
  [20:22:06.498]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [20:22:05.619] - result already collected: FutureResult
  [20:22:06.499]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [20:22:05.619] result() for ClusterFuture ... done
  [20:22:06.509]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [20:22:05.619] signalConditions() ...
  [20:22:06.509]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [20:22:05.620]  - include = 'immediateCondition'
  [20:22:06.510]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [20:22:05.620]  - exclude = 
  [20:22:06.510]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [20:22:05.621]  - resignal = FALSE
  [20:22:06.511]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [20:22:05.621]  - Number of conditions: 2
  [20:22:06.511]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [20:22:05.621] signalConditions() ... done
  [20:22:06.511]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [20:22:05.632] - accumulating results
  [20:22:06.512]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [20:22:05.633] - processing errors (handler = 'stop')
  [20:22:06.512]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [20:22:05.634] - extracting results
  [20:22:06.512]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [20:22:05.634] doFuture() ... DONE
  [20:22:06.513]  - Condition #303: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:22:06.513]  - Condition #304: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:22:06.530]  - Condition #305: 'simpleMessage', 'message', 'condition'
  [20:22:05.640] doFuture() ...
  [20:22:06.530]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [20:22:05.641] - dummy globals (as locals): [1] 'b'
  [20:22:06.531]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [20:22:05.642] - R expression:
  [20:22:06.531]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [20:22:05.642] {
  [20:22:05.642]     doFuture::registerDoFuture()
  [20:22:05.642]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:05.642]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:05.642]         b <- NULL
  [20:22:05.642]         ...future.env <- environment()
  [20:22:05.642]         local({
  [20:22:05.642]             for (name in names(...future.x_jj)) {
  [20:22:05.642]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:05.642]                   inherits = FALSE)
  [20:22:05.642]             }
  [20:22:05.642]         })
  [20:22:05.642]         tryCatch({
  [20:22:05.642]             plan_list <- future::plan()
  [20:22:05.642]             message(capture.output(print(plan_list)))
  [20:22:05.642]             stopifnot(inherits(plan_list, "future"))
  [20:22:05.642]             default <- getOption("future.plan", "sequential")
  [20:22:05.642]             if (is.function(default)) 
  [20:22:05.642]                 default <- class(default)
  [20:22:05.642]             stopifnot(inherits(plan_list, default))
  [20:22:05.642]             plan_b <- future::plan("list")
  [20:22:05.642]             str(plan_b)
  [20:22:05.642]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:05.642]                 default))
  [20:22:05.642]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:05.642]         }, error = identity)
  [20:22:05.642]     })
  [20:22:05.642] }
  [20:22:06.531]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [20:22:05.643] - identifying globals and packages ...
  [20:22:06.532]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [20:22:05.644] getGlobalsAndPackages() ...
  [20:22:06.532]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [20:22:05.644] Searching for globals...
  [20:22:06.533]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [20:22:05.695] - 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'
  [20:22:06.533]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [20:22:05.696] Searching for globals ... DONE
  [20:22:06.533]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [20:22:05.696] Resolving globals: FALSE
  [20:22:06.534]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [20:22:05.703] The total size of the 3 globals is 81.59 KiB (83544 bytes)
  [20:22:06.534]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [20:22:05.703] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.534]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [20:22:05.704] - packages: [1] 'utils'
  [20:22:06.535]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [20:22:05.704] getGlobalsAndPackages() ... DONE
  [20:22:06.535]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [20:22:05.705] List of 3
  [20:22:05.705]  $ ...future.x_ii: NULL
  [20:22:05.705]  $ a             : int 2
  [20:22:05.705]  $ plan_a        :List of 1
  [20:22:05.705]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:05.705]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:05.705]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [20:22:05.705]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [20:22:05.705]   .. ..- attr(*, "init")= logi TRUE
  [20:22:05.705]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:05.705]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:05.705]  - attr(*, "where")=List of 3
  [20:22:05.705]   ..$ ...future.x_ii:<environment: 0x56151f7435c0> 
  [20:22:05.705]   ..$ a             :<environment: 0x5615203b3610> 
  [20:22:05.705]   ..$ plan_a        :<environment: 0x5615203b3610> 
  [20:22:05.705]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:05.705]  - attr(*, "resolved")= logi FALSE
  [20:22:05.705]  - attr(*, "total_size")= num 83544
  [20:22:06.535]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [20:22:05.722]   - R expression:
  [20:22:06.536]  - Condition #321: 'simpleMessage', 'message', 'condition'
  [20:22:05.723] {
  [20:22:05.723]     doFuture::registerDoFuture()
  [20:22:05.723]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:05.723]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:05.723]         b <- NULL
  [20:22:05.723]         ...future.env <- environment()
  [20:22:05.723]         local({
  [20:22:05.723]             for (name in names(...future.x_jj)) {
  [20:22:05.723]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:05.723]                   inherits = FALSE)
  [20:22:05.723]             }
  [20:22:05.723]         })
  [20:22:05.723]         tryCatch({
  [20:22:05.723]             plan_list <- future::plan()
  [20:22:05.723]             message(capture.output(print(plan_list)))
  [20:22:05.723]             stopifnot(inherits(plan_list, "future"))
  [20:22:05.723]             default <- getOption("future.plan", "sequential")
  [20:22:05.723]             if (is.function(default)) 
  [20:22:05.723]                 default <- class(default)
  [20:22:05.723]             stopifnot(inherits(plan_list, default))
  [20:22:05.723]             plan_b <- future::plan("list")
  [20:22:05.723]             str(plan_b)
  [20:22:05.723]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:05.723]                 default))
  [20:22:05.723]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:05.723]         }, error = identity)
  [20:22:05.723]     })
  [20:22:05.723] }
  [20:22:06.536]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [20:22:05.724]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.537]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [20:22:05.724] List of 3
  [20:22:05.724]  $ ...future.x_ii: NULL
  [20:22:05.724]  $ a             : int 2
  [20:22:05.724]  $ plan_a        :List of 1
  [20:22:05.724]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:05.724]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:05.724]     gc = FALSE, earlySignal = FALSE, label = NULL, ...)  
  [20:22:05.724]   .. ..- attr(*, "class")= chr [1:5] "multisession" "cluster" "multiprocess" "future" ...
  [20:22:05.724]   .. ..- attr(*, "init")= logi TRUE
  [20:22:05.724]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:05.724]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:05.724]  - attr(*, "where")=List of 3
  [20:22:05.724]   ..$ ...future.x_ii:<environment: 0x56151f7435c0> 
  [20:22:05.724]   ..$ a             :<environment: 0x5615203b3610> 
  [20:22:05.724]   ..$ plan_a        :<environment: 0x5615203b3610> 
  [20:22:05.724]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:05.724]  - attr(*, "resolved")= logi FALSE
  [20:22:05.724]  - attr(*, "total_size")= num 83544
  [20:22:06.537]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [20:22:05.742]   - packages: [2] 'doFuture', 'utils'
  [20:22:06.537]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [20:22:05.742] - identifying globals and packages ... DONE
  [20:22:06.538]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [20:22:05.743] Number of chunks: 2
  [20:22:06.538]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [20:22:05.744] Number of futures (= number of chunks): 2
  [20:22:06.538]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [20:22:05.744] Launching 2 futures (chunks) ...
  [20:22:06.539]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [20:22:05.744] Chunk #1 of 2 ...
  [20:22:06.539]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [20:22:05.745]  - Finding globals in 'args_list' chunk #1 ...
  [20:22:06.539]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [20:22:05.745] getGlobalsAndPackages() ...
  [20:22:06.540]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [20:22:05.745] Searching for globals...
  [20:22:06.540]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [20:22:05.746] 
  [20:22:06.540]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [20:22:05.747] Searching for globals ... DONE
  [20:22:06.541]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [20:22:05.747] - globals: [0] <none>
  [20:22:06.541]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [20:22:05.747] getGlobalsAndPackages() ... DONE
  [20:22:06.541]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [20:22:05.748] 
  [20:22:06.542]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [20:22:05.748] 
  [20:22:06.542]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [20:22:05.748]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:22:06.542]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [20:22:05.768] getGlobalsAndPackages() ...
  [20:22:06.543]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [20:22:05.769] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.543]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [20:22:05.769] Resolving globals: FALSE
  [20:22:06.543]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [20:22:05.770] The total size of the 3 globals is 81.64 KiB (83600 bytes)
  [20:22:06.544]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [20:22:05.771] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.544]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [20:22:05.771] 
  [20:22:06.545]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [20:22:05.772] getGlobalsAndPackages() ... DONE
  [20:22:06.545]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [20:22:05.773] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:06.545]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [20:22:05.774] Packages needed by future strategies (n = 0): <none>
  [20:22:06.562]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [20:22:05.777] {
  [20:22:05.777]     {
  [20:22:05.777]         ...future.startTime <- Sys.time()
  [20:22:05.777]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:05.777]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:05.777]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:05.777]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:05.777]             future.resolve.recursive = NULL, width = 80L)
  [20:22:05.777]         {
  [20:22:05.777]             {
  [20:22:05.777]                 {
  [20:22:05.777]                   {
  [20:22:05.777]                     has_future <- requireNamespace("future", 
  [20:22:05.777]                       quietly = TRUE)
  [20:22:05.777]                     version <- if (has_future) 
  [20:22:05.777]                       packageVersion("future")
  [20:22:05.777]                     else NULL
  [20:22:05.777]                     if (!has_future || version < "1.8.0") {
  [20:22:05.777]                       info <- c(r_version = gsub("R version ", 
  [20:22:05.777]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:05.777]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:05.777]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:22:05.777]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:05.777]                       info <- sprintf("%s: %s", names(info), 
  [20:22:05.777]                         info)
  [20:22:05.777]                       info <- paste(info, collapse = "; ")
  [20:22:05.777]                       if (!has_future) {
  [20:22:05.777]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:05.777]                           info)
  [20:22:05.777]                       }
  [20:22:05.777]                       else {
  [20:22:05.777]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:05.777]                           info, version)
  [20:22:05.777]                       }
  [20:22:05.777]                       stop(msg)
  [20:22:05.777]                     }
  [20:22:05.777]                   }
  [20:22:05.777]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:22:05.777]                   options(mc.cores = 1L)
  [20:22:05.777]                 }
  [20:22:05.777]                 local({
  [20:22:05.777]                   for (pkg in c("doFuture", "utils")) {
  [20:22:05.777]                     loadNamespace(pkg)
  [20:22:05.777]                     library(pkg, character.only = TRUE)
  [20:22:05.777]                   }
  [20:22:05.777]                 })
  [20:22:05.777]             }
  [20:22:05.777]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:05.777]         }
  [20:22:05.777]     }
  [20:22:05.777]     if (is.na(TRUE)) {
  [20:22:05.777]     }
  [20:22:05.777]     else {
  [20:22:05.777]         if (TRUE) {
  [20:22:05.777]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:05.777]         }
  [20:22:05.777]         else {
  [20:22:05.777]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:05.777]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:05.777]         }
  [20:22:05.777]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:05.777]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:05.777]             sink(type = "output", split = FALSE)
  [20:22:05.777]             close(...future.stdout)
  [20:22:05.777]         }, add = TRUE)
  [20:22:05.777]     }
  [20:22:05.777]     ...future.frame <- sys.nframe()
  [20:22:05.777]     ...future.conditions <- list()
  [20:22:05.777]     ...future.result <- tryCatch({
  [20:22:05.777]         withCallingHandlers({
  [20:22:05.777]             ...future.value <- withVisible(local({
  [20:22:05.777]                 doFuture::registerDoFuture()
  [20:22:05.777]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:05.777]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:05.777]                   b <- NULL
  [20:22:05.777]                   ...future.env <- environment()
  [20:22:05.777]                   local({
  [20:22:05.777]                     for (name in names(...future.x_jj)) {
  [20:22:05.777]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:05.777]                         inherits = FALSE)
  [20:22:05.777]                     }
  [20:22:05.777]                   })
  [20:22:05.777]                   tryCatch({
  [20:22:05.777]                     plan_list <- future::plan()
  [20:22:05.777]                     message(capture.output(print(plan_list)))
  [20:22:05.777]                     stopifnot(inherits(plan_list, "future"))
  [20:22:05.777]                     default <- getOption("future.plan", "sequential")
  [20:22:05.777]                     if (is.function(default)) 
  [20:22:05.777]                       default <- class(default)
  [20:22:05.777]                     stopifnot(inherits(plan_list, default))
  [20:22:05.777]                     plan_b <- future::plan("list")
  [20:22:05.777]                     str(plan_b)
  [20:22:05.777]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:05.777]                       inherits(plan_b[[1]], default))
  [20:22:05.777]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:05.777]                   }, error = identity)
  [20:22:05.777]                 })
  [20:22:05.777]             }))
  [20:22:05.777]             future::FutureResult(value = ...future.value$value, 
  [20:22:05.777]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:05.777]                 version = "1.8")
  [20:22:05.777]         }, condition = local({
  [20:22:05.777]             inherits <- base::inherits
  [20:22:05.777]             invokeRestart <- base::invokeRestart
  [20:22:05.777]             length <- base::length
  [20:22:05.777]             seq.int <- base::seq.int
  [20:22:05.777]             sys.calls <- base::sys.calls
  [20:22:05.777]             `[[` <- base::`[[`
  [20:22:05.777]             `+` <- base::`+`
  [20:22:05.777]             `<<-` <- base::`<<-`
  [20:22:05.777]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:05.777]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:05.777]                   3L)]
  [20:22:05.777]             }
  [20:22:05.777]             function(cond) {
  [20:22:05.777]                 if (inherits(cond, "error")) {
  [20:22:05.777]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:05.777]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:05.777]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:05.777]                     signaled = 0L)
  [20:22:05.777]                   signalCondition(cond)
  [20:22:05.777]                 }
  [20:22:05.777]                 else if (inherits(cond, "condition")) {
  [20:22:05.777]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:05.777]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:05.777]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:05.777]                   if (!signal) {
  [20:22:05.777]                     muffleCondition <- function (cond) 
  [20:22:05.777]                     {
  [20:22:05.777]                       inherits <- base::inherits
  [20:22:05.777]                       invokeRestart <- base::invokeRestart
  [20:22:05.777]                       muffled <- FALSE
  [20:22:05.777]                       if (inherits(cond, "message")) {
  [20:22:05.777]                         invokeRestart("muffleMessage")
  [20:22:05.777]                         muffled <- TRUE
  [20:22:05.777]                       }
  [20:22:05.777]                       else if (inherits(cond, "warning")) {
  [20:22:05.777]                         invokeRestart("muffleWarning")
  [20:22:05.777]                         muffled <- TRUE
  [20:22:05.777]                       }
  [20:22:05.777]                       else if (inherits(cond, "condition")) {
  [20:22:05.777]                         computeRestarts <- base::computeRestarts
  [20:22:05.777]                         grepl <- base::grepl
  [20:22:05.777]                         is.null <- base::is.null
  [20:22:05.777]                         restarts <- computeRestarts(cond)
  [20:22:05.777]                         for (restart in restarts) {
  [20:22:05.777]                           name <- restart$name
  [20:22:05.777]                           if (is.null(name)) 
  [20:22:05.777]                             next
  [20:22:05.777]                           if (!grepl("^muffle", name)) 
  [20:22:05.777]                             next
  [20:22:05.777]                           invokeRestart(restart)
  [20:22:05.777]                           muffled <- TRUE
  [20:22:05.777]                           break
  [20:22:05.777]                         }
  [20:22:05.777]                       }
  [20:22:05.777]                       invisible(muffled)
  [20:22:05.777]                     }
  [20:22:05.777]                     muffleCondition(cond)
  [20:22:05.777]                   }
  [20:22:05.777]                 }
  [20:22:05.777]             }
  [20:22:05.777]         }))
  [20:22:05.777]     }, error = function(ex) {
  [20:22:05.777]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:05.777]             version = "1.8"), class = "FutureResult")
  [20:22:05.777]     }, finally = {
  [20:22:05.777]         {
  [20:22:05.777]             {
  [20:22:05.777]                 options(mc.cores = ...future.mc.cores.old)
  [20:22:05.777]             }
  [20:22:05.777]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:05.777]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:05.777]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:05.777]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:05.777]                 ...) 
  [20:22:05.777]             {
  [20:22:05.777]                 if (substitute) 
  [20:22:05.777]                   expr <- substitute(expr)
  [20:22:05.777]                 if (is.function(workers)) 
  [20:22:05.777]                   workers <- workers()
  [20:22:05.777]                 workers <- as.integer(workers)
  [20:22:05.777]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:22:05.777]                   workers >= 1)
  [20:22:05.777]                 if (workers == 1L) {
  [20:22:05.777]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:22:05.777]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:22:05.777]                     local = TRUE, label = label, ...))
  [20:22:05.777]                 }
  [20:22:05.777]                 workers <- ClusterRegistry("start", workers = workers)
  [20:22:05.777]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:22:05.777]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:05.777]                   globals = globals, persistent = persistent, 
  [20:22:05.777]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:22:05.777]                   label = label, ...)
  [20:22:05.777]                 if (!future$lazy) 
  [20:22:05.777]                   future <- run(future)
  [20:22:05.777]                 invisible(future)
  [20:22:05.777]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:05.777]         }
  [20:22:05.777]         options(...future.oldOptions)
  [20:22:05.777]     })
  [20:22:05.777]     if (is.na(TRUE)) {
  [20:22:05.777]     }
  [20:22:05.777]     else {
  [20:22:05.777]         sink(type = "output", split = FALSE)
  [20:22:05.777]         if (TRUE) {
  [20:22:05.777]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:05.777]         }
  [20:22:05.777]         else {
  [20:22:05.777]             ...future.result["stdout"] <- list(NULL)
  [20:22:05.777]         }
  [20:22:05.777]         close(...future.stdout)
  [20:22:05.777]         ...future.stdout <- NULL
  [20:22:05.777]     }
  [20:22:05.777]     ...future.result$conditions <- ...future.conditions
  [20:22:05.777]     ...future.result
  [20:22:05.777] }
  [20:22:06.562]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [20:22:05.834] Exporting 3 global objects (81.64 KiB) to cluster node #1 ...
  [20:22:06.563]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [20:22:05.835] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [20:22:06.563]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [20:22:05.836] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [20:22:06.563]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [20:22:05.836] Exporting 'a' (56 bytes) to cluster node #1 ...
  [20:22:06.564]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [20:22:05.837] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [20:22:06.564]  - Condition #355: 'simpleMessage', 'message', 'condition'
  [20:22:05.838] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ...
  [20:22:06.564]  - Condition #356: 'simpleMessage', 'message', 'condition'
  [20:22:05.882] Exporting 'plan_a' (81.53 KiB) to cluster node #1 ... DONE
  [20:22:06.565]  - Condition #357: 'simpleMessage', 'message', 'condition'
  [20:22:05.883] Exporting 3 global objects (81.64 KiB) to cluster node #1 ... DONE
  [20:22:06.565]  - Condition #358: 'simpleMessage', 'message', 'condition'
  [20:22:05.884] MultisessionFuture started
  [20:22:06.565]  - Condition #359: 'simpleMessage', 'message', 'condition'
  [20:22:05.884] Chunk #1 of 2 ... DONE
  [20:22:06.565]  - Condition #360: 'simpleMessage', 'message', 'condition'
  [20:22:05.885] Chunk #2 of 2 ...
  [20:22:06.566]  - Condition #361: 'simpleMessage', 'message', 'condition'
  [20:22:05.885]  - Finding globals in 'args_list' chunk #2 ...
  [20:22:06.566]  - Condition #362: 'simpleMessage', 'message', 'condition'
  [20:22:05.885] getGlobalsAndPackages() ...
  [20:22:06.566]  - Condition #363: 'simpleMessage', 'message', 'condition'
  [20:22:05.886] Searching for globals...
  [20:22:06.567]  - Condition #364: 'simpleMessage', 'message', 'condition'
  [20:22:05.887] 
  [20:22:06.567]  - Condition #365: 'simpleMessage', 'message', 'condition'
  [20:22:05.887] Searching for globals ... DONE
  [20:22:06.567]  - Condition #366: 'simpleMessage', 'message', 'condition'
  [20:22:05.887] - globals: [0] <none>
  [20:22:06.568]  - Condition #367: 'simpleMessage', 'message', 'condition'
  [20:22:05.888] getGlobalsAndPackages() ... DONE
  [20:22:06.568]  - Condition #368: 'simpleMessage', 'message', 'condition'
  [20:22:05.888] 
  [20:22:06.568]  - Condition #369: 'simpleMessage', 'message', 'condition'
  [20:22:05.888] 
  [20:22:06.569]  - Condition #370: 'simpleMessage', 'message', 'condition'
  [20:22:05.889]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:22:06.569]  - Condition #371: 'simpleMessage', 'message', 'condition'
  [20:22:05.896] getGlobalsAndPackages() ...
  [20:22:06.569]  - Condition #372: 'simpleMessage', 'message', 'condition'
  [20:22:05.896] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.570]  - Condition #373: 'simpleMessage', 'message', 'condition'
  [20:22:05.897] Resolving globals: FALSE
  [20:22:06.570]  - Condition #374: 'simpleMessage', 'message', 'condition'
  [20:22:05.898] The total size of the 3 globals is 81.70 KiB (83656 bytes)
  [20:22:06.570]  - Condition #375: 'simpleMessage', 'message', 'condition'
  [20:22:05.899] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:06.571]  - Condition #376: 'simpleMessage', 'message', 'condition'
  [20:22:05.899] 
  [20:22:06.571]  - Condition #377: 'simpleMessage', 'message', 'condition'
  [20:22:05.899] getGlobalsAndPackages() ... DONE
  [20:22:06.571]  - Condition #378: 'simpleMessage', 'message', 'condition'
  [20:22:05.901] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:06.571]  - Condition #379: 'simpleMessage', 'message', 'condition'
  [20:22:05.902] Packages needed by future strategies (n = 0): <none>
  [20:22:06.572]  - Condition #380: 'simpleMessage', 'message', 'condition'
  [20:22:05.943] {
  [20:22:05.943]     {
  [20:22:05.943]         ...future.startTime <- Sys.time()
  [20:22:05.943]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:05.943]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:05.943]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:05.943]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:05.943]             future.resolve.recursive = NULL, width = 80L)
  [20:22:05.943]         {
  [20:22:05.943]             {
  [20:22:05.943]                 {
  [20:22:05.943]                   {
  [20:22:05.943]                     has_future <- requireNamespace("future", 
  [20:22:05.943]                       quietly = TRUE)
  [20:22:05.943]                     version <- if (has_future) 
  [20:22:05.943]                       packageVersion("future")
  [20:22:05.943]                     else NULL
  [20:22:05.943]                     if (!has_future || version < "1.8.0") {
  [20:22:05.943]                       info <- c(r_version = gsub("R version ", 
  [20:22:05.943]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:05.943]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:05.943]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:22:05.943]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:05.943]                       info <- sprintf("%s: %s", names(info), 
  [20:22:05.943]                         info)
  [20:22:05.943]                       info <- paste(info, collapse = "; ")
  [20:22:05.943]                       if (!has_future) {
  [20:22:05.943]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:05.943]                           info)
  [20:22:05.943]                       }
  [20:22:05.943]                       else {
  [20:22:05.943]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:05.943]                           info, version)
  [20:22:05.943]                       }
  [20:22:05.943]                       stop(msg)
  [20:22:05.943]                     }
  [20:22:05.943]                   }
  [20:22:05.943]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:22:05.943]                   options(mc.cores = 1L)
  [20:22:05.943]                 }
  [20:22:05.943]                 local({
  [20:22:05.943]                   for (pkg in c("doFuture", "utils")) {
  [20:22:05.943]                     loadNamespace(pkg)
  [20:22:05.943]                     library(pkg, character.only = TRUE)
  [20:22:05.943]                   }
  [20:22:05.943]                 })
  [20:22:05.943]             }
  [20:22:05.943]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:05.943]         }
  [20:22:05.943]     }
  [20:22:05.943]     if (is.na(TRUE)) {
  [20:22:05.943]     }
  [20:22:05.943]     else {
  [20:22:05.943]         if (TRUE) {
  [20:22:05.943]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:05.943]         }
  [20:22:05.943]         else {
  [20:22:05.943]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:05.943]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:05.943]         }
  [20:22:05.943]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:05.943]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:05.943]             sink(type = "output", split = FALSE)
  [20:22:05.943]             close(...future.stdout)
  [20:22:05.943]         }, add = TRUE)
  [20:22:05.943]     }
  [20:22:05.943]     ...future.frame <- sys.nframe()
  [20:22:05.943]     ...future.conditions <- list()
  [20:22:05.943]     ...future.result <- tryCatch({
  [20:22:05.943]         withCallingHandlers({
  [20:22:05.943]             ...future.value <- withVisible(local({
  [20:22:05.943]                 doFuture::registerDoFuture()
  [20:22:05.943]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:05.943]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:05.943]                   b <- NULL
  [20:22:05.943]                   ...future.env <- environment()
  [20:22:05.943]                   local({
  [20:22:05.943]                     for (name in names(...future.x_jj)) {
  [20:22:05.943]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:05.943]                         inherits = FALSE)
  [20:22:05.943]                     }
  [20:22:05.943]                   })
  [20:22:05.943]                   tryCatch({
  [20:22:05.943]                     plan_list <- future::plan()
  [20:22:05.943]                     message(capture.output(print(plan_list)))
  [20:22:05.943]                     stopifnot(inherits(plan_list, "future"))
  [20:22:05.943]                     default <- getOption("future.plan", "sequential")
  [20:22:05.943]                     if (is.function(default)) 
  [20:22:05.943]                       default <- class(default)
  [20:22:05.943]                     stopifnot(inherits(plan_list, default))
  [20:22:05.943]                     plan_b <- future::plan("list")
  [20:22:05.943]                     str(plan_b)
  [20:22:05.943]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:05.943]                       inherits(plan_b[[1]], default))
  [20:22:05.943]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:05.943]                   }, error = identity)
  [20:22:05.943]                 })
  [20:22:05.943]             }))
  [20:22:05.943]             future::FutureResult(value = ...future.value$value, 
  [20:22:05.943]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:05.943]                 version = "1.8")
  [20:22:05.943]         }, condition = local({
  [20:22:05.943]             inherits <- base::inherits
  [20:22:05.943]             invokeRestart <- base::invokeRestart
  [20:22:05.943]             length <- base::length
  [20:22:05.943]             seq.int <- base::seq.int
  [20:22:05.943]             sys.calls <- base::sys.calls
  [20:22:05.943]             `[[` <- base::`[[`
  [20:22:05.943]             `+` <- base::`+`
  [20:22:05.943]             `<<-` <- base::`<<-`
  [20:22:05.943]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:05.943]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:05.943]                   3L)]
  [20:22:05.943]             }
  [20:22:05.943]             function(cond) {
  [20:22:05.943]                 if (inherits(cond, "error")) {
  [20:22:05.943]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:05.943]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:05.943]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:05.943]                     signaled = 0L)
  [20:22:05.943]                   signalCondition(cond)
  [20:22:05.943]                 }
  [20:22:05.943]                 else if (inherits(cond, "condition")) {
  [20:22:05.943]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:05.943]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:05.943]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:05.943]                   if (!signal) {
  [20:22:05.943]                     muffleCondition <- function (cond) 
  [20:22:05.943]                     {
  [20:22:05.943]                       inherits <- base::inherits
  [20:22:05.943]                       invokeRestart <- base::invokeRestart
  [20:22:05.943]                       muffled <- FALSE
  [20:22:05.943]                       if (inherits(cond, "message")) {
  [20:22:05.943]                         invokeRestart("muffleMessage")
  [20:22:05.943]                         muffled <- TRUE
  [20:22:05.943]                       }
  [20:22:05.943]                       else if (inherits(cond, "warning")) {
  [20:22:05.943]                         invokeRestart("muffleWarning")
  [20:22:05.943]                         muffled <- TRUE
  [20:22:05.943]                       }
  [20:22:05.943]                       else if (inherits(cond, "condition")) {
  [20:22:05.943]                         computeRestarts <- base::computeRestarts
  [20:22:05.943]                         grepl <- base::grepl
  [20:22:05.943]                         is.null <- base::is.null
  [20:22:05.943]                         restarts <- computeRestarts(cond)
  [20:22:05.943]                         for (restart in restarts) {
  [20:22:05.943]                           name <- restart$name
  [20:22:05.943]                           if (is.null(name)) 
  [20:22:05.943]                             next
  [20:22:05.943]                           if (!grepl("^muffle", name)) 
  [20:22:05.943]                             next
  [20:22:05.943]                           invokeRestart(restart)
  [20:22:05.943]                           muffled <- TRUE
  [20:22:05.943]                           break
  [20:22:05.943]                         }
  [20:22:05.943]                       }
  [20:22:05.943]                       invisible(muffled)
  [20:22:05.943]                     }
  [20:22:05.943]                     muffleCondition(cond)
  [20:22:05.943]                   }
  [20:22:05.943]                 }
  [20:22:05.943]             }
  [20:22:05.943]         }))
  [20:22:05.943]     }, error = function(ex) {
  [20:22:05.943]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:05.943]             version = "1.8"), class = "FutureResult")
  [20:22:05.943]     }, finally = {
  [20:22:05.943]         {
  [20:22:05.943]             {
  [20:22:05.943]                 options(mc.cores = ...future.mc.cores.old)
  [20:22:05.943]             }
  [20:22:05.943]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:05.943]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:05.943]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:22:05.943]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:05.943]                 ...) 
  [20:22:05.943]             {
  [20:22:05.943]                 if (substitute) 
  [20:22:05.943]                   expr <- substitute(expr)
  [20:22:05.943]                 if (is.function(workers)) 
  [20:22:05.943]                   workers <- workers()
  [20:22:05.943]                 workers <- as.integer(workers)
  [20:22:05.943]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:22:05.943]                   workers >= 1)
  [20:22:05.943]                 if (workers == 1L) {
  [20:22:05.943]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:22:05.943]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:22:05.943]                     local = TRUE, label = label, ...))
  [20:22:05.943]                 }
  [20:22:05.943]                 workers <- ClusterRegistry("start", workers = workers)
  [20:22:05.943]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:22:05.943]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:05.943]                   globals = globals, persistent = persistent, 
  [20:22:05.943]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:22:05.943]                   label = label, ...)
  [20:22:05.943]                 if (!future$lazy) 
  [20:22:05.943]                   future <- run(future)
  [20:22:05.943]                 invisible(future)
  [20:22:05.943]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:05.943]         }
  [20:22:05.943]         options(...future.oldOptions)
  [20:22:05.943]     })
  [20:22:05.943]     if (is.na(TRUE)) {
  [20:22:05.943]     }
  [20:22:05.943]     else {
  [20:22:05.943]         sink(type = "output", split = FALSE)
  [20:22:05.943]         if (TRUE) {
  [20:22:05.943]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:05.943]         }
  [20:22:05.943]         else {
  [20:22:05.943]             ...future.result["stdout"] <- list(NULL)
  [20:22:05.943]         }
  [20:22:05.943]         close(...future.stdout)
  [20:22:05.943]         ...future.stdout <- NULL
  [20:22:05.943]     }
  [20:22:05.943]     ...future.result$conditions <- ...future.conditions
  [20:22:05.943]     ...future.result
  [20:22:05.943] }
  [20:22:06.572]  - Condition #381: 'simpleMessage', 'message', 'condition'
  [20:22:05.958] Exporting 3 global objects (81.70 KiB) to cluster node #2 ...
  [20:22:06.572]  - Condition #382: 'simpleMessage', 'message', 'condition'
  [20:22:05.959] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [20:22:06.573]  - Condition #383: 'simpleMessage', 'message', 'condition'
  [20:22:05.960] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [20:22:06.573]  - Condition #384: 'simpleMessage', 'message', 'condition'
  [20:22:05.960] Exporting 'a' (56 bytes) to cluster node #2 ...
  [20:22:06.573]  - Condition #385: 'simpleMessage', 'message', 'condition'
  [20:22:05.961] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [20:22:06.574]  - Condition #386: 'simpleMessage', 'message', 'condition'
  [20:22:05.962] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ...
  [20:22:06.574]  - Condition #387: 'simpleMessage', 'message', 'condition'
  [20:22:06.006] Exporting 'plan_a' (81.53 KiB) to cluster node #2 ... DONE
  [20:22:06.574]  - Condition #388: 'simpleMessage', 'message', 'condition'
  [20:22:06.007] Exporting 3 global objects (81.70 KiB) to cluster node #2 ... DONE
  [20:22:06.575]  - Condition #389: 'simpleMessage', 'message', 'condition'
  [20:22:06.008] MultisessionFuture started
  [20:22:06.575]  - Condition #390: 'simpleMessage', 'message', 'condition'
  [20:22:06.008] Chunk #2 of 2 ... DONE
  [20:22:06.575]  - Condition #391: 'simpleMessage', 'message', 'condition'
  [20:22:06.009] Launching 2 futures (chunks) ... DONE
  [20:22:06.576]  - Condition #392: 'simpleMessage', 'message', 'condition'
  [20:22:06.009] - resolving futures
  [20:22:06.576]  - Condition #393: 'simpleMessage', 'message', 'condition'
  [20:22:06.009]   - gathering results & relaying conditions (except errors)
  [20:22:06.576]  - Condition #394: 'simpleMessage', 'message', 'condition'
  [20:22:06.010] resolve() on list ...
  [20:22:06.577]  - Condition #395: 'simpleMessage', 'message', 'condition'
  [20:22:06.010]  recursive: 0
  [20:22:06.577]  - Condition #396: 'simpleMessage', 'message', 'condition'
  [20:22:06.010]  length: 2
  [20:22:06.577]  - Condition #397: 'simpleMessage', 'message', 'condition'
  [20:22:06.011] 
  [20:22:06.594]  - Condition #398: 'simpleMessage', 'message', 'condition'
  [20:22:06.012] Future #1
  [20:22:06.594]  - Condition #399: 'simpleMessage', 'message', 'condition'
  [20:22:06.013] result() for ClusterFuture ...
  [20:22:06.595]  - Condition #400: 'simpleMessage', 'message', 'condition'
  [20:22:06.013] - Validating connection of MultisessionFuture
  [20:22:06.595]  - Condition #401: 'simpleMessage', 'message', 'condition'
  [20:22:06.022] - class(result): FutureResult
  [20:22:06.595]  - Condition #402: 'simpleMessage', 'message', 'condition'
  [20:22:06.023] result() for ClusterFuture ...
  [20:22:06.596]  - Condition #403: 'simpleMessage', 'message', 'condition'
  [20:22:06.023] - result already collected: FutureResult
  [20:22:06.596]  - Condition #404: 'simpleMessage', 'message', 'condition'
  [20:22:06.023] result() for ClusterFuture ... done
  [20:22:06.596]  - Condition #405: 'simpleMessage', 'message', 'condition'
  [20:22:06.024] signalConditions() ...
  [20:22:06.597]  - Condition #406: 'simpleMessage', 'message', 'condition'
  [20:22:06.024]  - include = 'immediateCondition'
  [20:22:06.597]  - Condition #407: 'simpleMessage', 'message', 'condition'
  [20:22:06.024]  - exclude = 
  [20:22:06.598]  - Condition #408: 'simpleMessage', 'message', 'condition'
  [20:22:06.025]  - resignal = FALSE
  [20:22:06.598]  - Condition #409: 'simpleMessage', 'message', 'condition'
  [20:22:06.025]  - Number of conditions: 1
  [20:22:06.598]  - Condition #410: 'simpleMessage', 'message', 'condition'
  [20:22:06.025] signalConditions() ... done
  [20:22:06.599]  - Condition #411: 'simpleMessage', 'message', 'condition'
  [20:22:06.026] result() for ClusterFuture ... done
  [20:22:06.599]  - Condition #412: 'simpleMessage', 'message', 'condition'
  [20:22:06.026] result() for ClusterFuture ...
  [20:22:06.604]  - Condition #413: 'simpleMessage', 'message', 'condition'
  [20:22:06.026] - result already collected: FutureResult
  [20:22:06.604]  - Condition #414: 'simpleMessage', 'message', 'condition'
  [20:22:06.027] result() for ClusterFuture ... done
  [20:22:06.605]  - Condition #415: 'simpleMessage', 'message', 'condition'
  [20:22:06.027] signalConditions() ...
  [20:22:06.605]  - Condition #416: 'simpleMessage', 'message', 'condition'
  [20:22:06.027]  - include = 'immediateCondition'
  [20:22:06.605]  - Condition #417: 'simpleMessage', 'message', 'condition'
  [20:22:06.028]  - exclude = 
  [20:22:06.606]  - Condition #418: 'simpleMessage', 'message', 'condition'
  [20:22:06.028]  - resignal = FALSE
  [20:22:06.606]  - Condition #419: 'simpleMessage', 'message', 'condition'
  [20:22:06.028]  - Number of conditions: 1
  [20:22:06.607]  - Condition #420: 'simpleMessage', 'message', 'condition'
  [20:22:06.028] signalConditions() ... done
  [20:22:06.607]  - Condition #421: 'simpleMessage', 'message', 'condition'
  [20:22:06.029] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:22:06.607]  - Condition #422: 'simpleMessage', 'message', 'condition'
  [20:22:06.029] - nx: 2
  [20:22:06.608]  - Condition #423: 'simpleMessage', 'message', 'condition'
  [20:22:06.029] - relay: TRUE
  [20:22:06.608]  - Condition #424: 'simpleMessage', 'message', 'condition'
  [20:22:06.030] - stdout: TRUE
  [20:22:06.609]  - Condition #425: 'simpleMessage', 'message', 'condition'
  [20:22:06.030] - signal: TRUE
  [20:22:06.609]  - Condition #426: 'simpleMessage', 'message', 'condition'
  [20:22:06.030] - resignal: FALSE
  [20:22:06.609]  - Condition #427: 'simpleMessage', 'message', 'condition'
  [20:22:06.031] - force: FALSE
  [20:22:06.626]  - Condition #428: 'simpleMessage', 'message', 'condition'
  [20:22:06.031] - relayed: [n=2] FALSE, FALSE
  [20:22:06.626]  - Condition #429: 'simpleMessage', 'message', 'condition'
  [20:22:06.031] - queued futures: [n=2] FALSE, FALSE
  [20:22:06.627]  - Condition #430: 'simpleMessage', 'message', 'condition'
  [20:22:06.032]  - until=1
  [20:22:06.627]  - Condition #431: 'simpleMessage', 'message', 'condition'
  [20:22:06.032]  - relaying element #1
  [20:22:06.628]  - Condition #432: 'simpleMessage', 'message', 'condition'
  [20:22:06.032] result() for ClusterFuture ...
  [20:22:06.628]  - Condition #433: 'simpleMessage', 'message', 'condition'
  [20:22:06.033] - result already collected: FutureResult
  [20:22:06.628]  - Condition #434: 'simpleMessage', 'message', 'condition'
  [20:22:06.033] result() for ClusterFuture ... done
  [20:22:06.629]  - Condition #435: 'simpleMessage', 'message', 'condition'
  [20:22:06.034] result() for ClusterFuture ...
  [20:22:06.629]  - Condition #436: 'simpleMessage', 'message', 'condition'
  [20:22:06.034] - result already collected: FutureResult
  [20:22:06.630]  - Condition #437: 'simpleMessage', 'message', 'condition'
  [20:22:06.034] result() for ClusterFuture ... done
  [20:22:06.630]  - Condition #438: 'simpleMessage', 'message', 'condition'
  [20:22:06.035] signalConditions() ...
  [20:22:06.630]  - Condition #439: 'simpleMessage', 'message', 'condition'
  [20:22:06.035]  - include = 'immediateCondition'
  [20:22:06.631]  - Condition #440: 'simpleMessage', 'message', 'condition'
  [20:22:06.036]  - exclude = 
  [20:22:06.631]  - Condition #441: 'simpleMessage', 'message', 'condition'
  [20:22:06.036]  - resignal = FALSE
  [20:22:06.631]  - Condition #442: 'simpleMessage', 'message', 'condition'
  [20:22:06.036]  - Number of conditions: 1
  [20:22:06.632]  - Condition #443: 'simpleMessage', 'message', 'condition'
  [20:22:06.037] signalConditions() ... done
  [20:22:06.632]  - Condition #444: 'simpleMessage', 'message', 'condition'
  [20:22:06.037] result() for ClusterFuture ...
  [20:22:06.632]  - Condition #445: 'simpleMessage', 'message', 'condition'
  [20:22:06.037] - result already collected: FutureResult
  [20:22:06.633]  - Condition #446: 'simpleMessage', 'message', 'condition'
  [20:22:06.061] result() for ClusterFuture ... done
  [20:22:06.633]  - Condition #447: 'simpleMessage', 'message', 'condition'
  [20:22:06.062] signalConditions() ...
  [20:22:06.633]  - Condition #448: 'simpleMessage', 'message', 'condition'
  [20:22:06.062]  - include = 'immediateCondition'
  [20:22:06.634]  - Condition #449: 'simpleMessage', 'message', 'condition'
  [20:22:06.063]  - exclude = 
  [20:22:06.634]  - Condition #450: 'simpleMessage', 'message', 'condition'
  [20:22:06.063]  - resignal = FALSE
  [20:22:06.634]  - Condition #451: 'simpleMessage', 'message', 'condition'
  [20:22:06.063]  - Number of conditions: 1
  [20:22:06.635]  - Condition #452: 'simpleMessage', 'message', 'condition'
  [20:22:06.064] signalConditions() ... done
  [20:22:06.635]  - Condition #453: 'simpleMessage', 'message', 'condition'
  [20:22:06.064] result() for ClusterFuture ...
  [20:22:06.636]  - Condition #454: 'simpleMessage', 'message', 'condition'
  [20:22:06.065] - result already collected: FutureResult
  [20:22:06.636]  - Condition #455: 'simpleMessage', 'message', 'condition'
  [20:22:06.065] result() for ClusterFuture ... done
  [20:22:06.636]  - Condition #456: 'simpleMessage', 'message', 'condition'
  [20:22:06.065] signalConditions() ...
  [20:22:06.637]  - Condition #457: 'simpleMessage', 'message', 'condition'
  [20:22:06.066]  - include = 'condition'
  [20:22:06.637]  - Condition #458: 'simpleMessage', 'message', 'condition'
  [20:22:06.066]  - exclude = 'immediateCondition'
  [20:22:06.637]  - Condition #459: 'simpleMessage', 'message', 'condition'
  [20:22:06.066]  - resignal = FALSE
  [20:22:06.638]  - Condition #460: 'simpleMessage', 'message', 'condition'
  [20:22:06.067]  - Number of conditions: 1
  [20:22:06.638]  - Condition #461: 'simpleMessage', 'message', 'condition'
  [20:22:06.067]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:06.638]  - Condition #462: '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
  [20:22:06.639]  - Condition #463: 'simpleMessage', 'message', 'condition'
  [20:22:06.068] signalConditions() ... done
  [20:22:06.639]  - Condition #464: 'simpleMessage', 'message', 'condition'
  [20:22:06.068] - relayed: [n=2] TRUE, FALSE
  [20:22:06.639]  - Condition #465: 'simpleMessage', 'message', 'condition'
  [20:22:06.068] - queued futures: [n=2] TRUE, FALSE
  [20:22:06.640]  - Condition #466: 'simpleMessage', 'message', 'condition'
  [20:22:06.069] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:22:06.640]  - Condition #467: 'simpleMessage', 'message', 'condition'
  [20:22:06.069]  length: 1 (resolved future 1)
  [20:22:06.640]  - Condition #468: 'simpleMessage', 'message', 'condition'
  [20:22:06.087] Future #2
  [20:22:06.641]  - Condition #469: 'simpleMessage', 'message', 'condition'
  [20:22:06.087] result() for ClusterFuture ...
  [20:22:06.641]  - Condition #470: 'simpleMessage', 'message', 'condition'
  [20:22:06.088] - Validating connection of MultisessionFuture
  [20:22:06.641]  - Condition #471: 'simpleMessage', 'message', 'condition'
  [20:22:06.102] - class(result): FutureResult
  [20:22:06.658]  - Condition #472: 'simpleMessage', 'message', 'condition'
  [20:22:06.103] result() for ClusterFuture ...
  [20:22:06.658]  - Condition #473: 'simpleMessage', 'message', 'condition'
  [20:22:06.103] - result already collected: FutureResult
  [20:22:06.659]  - Condition #474: 'simpleMessage', 'message', 'condition'
  [20:22:06.104] result() for ClusterFuture ... done
  [20:22:06.659]  - Condition #475: 'simpleMessage', 'message', 'condition'
  [20:22:06.104] signalConditions() ...
  [20:22:06.659]  - Condition #476: 'simpleMessage', 'message', 'condition'
  [20:22:06.104]  - include = 'immediateCondition'
  [20:22:06.660]  - Condition #477: 'simpleMessage', 'message', 'condition'
  [20:22:06.105]  - exclude = 
  [20:22:06.660]  - Condition #478: 'simpleMessage', 'message', 'condition'
  [20:22:06.110]  - resignal = FALSE
  [20:22:06.661]  - Condition #479: 'simpleMessage', 'message', 'condition'
  [20:22:06.111]  - Number of conditions: 2
  [20:22:06.661]  - Condition #480: 'simpleMessage', 'message', 'condition'
  [20:22:06.111] signalConditions() ... done
  [20:22:06.661]  - Condition #481: 'simpleMessage', 'message', 'condition'
  [20:22:06.112] result() for ClusterFuture ... done
  [20:22:06.662]  - Condition #482: 'simpleMessage', 'message', 'condition'
  [20:22:06.112] result() for ClusterFuture ...
  [20:22:06.662]  - Condition #483: 'simpleMessage', 'message', 'condition'
  [20:22:06.112] - result already collected: FutureResult
  [20:22:06.662]  - Condition #484: 'simpleMessage', 'message', 'condition'
  [20:22:06.113] result() for ClusterFuture ... done
  [20:22:06.663]  - Condition #485: 'simpleMessage', 'message', 'condition'
  [20:22:06.113] signalConditions() ...
  [20:22:06.663]  - Condition #486: 'simpleMessage', 'message', 'condition'
  [20:22:06.114]  - include = 'immediateCondition'
  [20:22:06.663]  - Condition #487: 'simpleMessage', 'message', 'condition'
  [20:22:06.114]  - exclude = 
  [20:22:06.664]  - Condition #488: 'simpleMessage', 'message', 'condition'
  [20:22:06.114]  - resignal = FALSE
  [20:22:06.664]  - Condition #489: 'simpleMessage', 'message', 'condition'
  [20:22:06.115]  - Number of conditions: 2
  [20:22:06.664]  - Condition #490: 'simpleMessage', 'message', 'condition'
  [20:22:06.115] signalConditions() ... done
  [20:22:06.665]  - Condition #491: 'simpleMessage', 'message', 'condition'
  [20:22:06.116] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:22:06.665]  - Condition #492: 'simpleMessage', 'message', 'condition'
  [20:22:06.116] - nx: 2
  [20:22:06.665]  - Condition #493: 'simpleMessage', 'message', 'condition'
  [20:22:06.116] - relay: TRUE
  [20:22:06.666]  - Condition #494: 'simpleMessage', 'message', 'condition'
  [20:22:06.117] - stdout: TRUE
  [20:22:06.666]  - Condition #495: 'simpleMessage', 'message', 'condition'
  [20:22:06.117] - signal: TRUE
  [20:22:06.666]  - Condition #496: 'simpleMessage', 'message', 'condition'
  [20:22:06.117] - resignal: FALSE
  [20:22:06.667]  - Condition #497: 'simpleMessage', 'message', 'condition'
  [20:22:06.126] - force: FALSE
  [20:22:06.667]  - Condition #498: 'simpleMessage', 'message', 'condition'
  [20:22:06.126] - relayed: [n=2] TRUE, FALSE
  [20:22:06.668]  - Condition #499: 'simpleMessage', 'message', 'condition'
  [20:22:06.127] - queued futures: [n=2] TRUE, FALSE
  [20:22:06.668]  - Condition #500: 'simpleMessage', 'message', 'condition'
  [20:22:06.127]  - until=2
  [20:22:06.668]  - Condition #501: 'simpleMessage', 'message', 'condition'
  [20:22:06.127]  - relaying element #2
  [20:22:06.669]  - Condition #502: 'simpleMessage', 'message', 'condition'
  [20:22:06.128] result() for ClusterFuture ...
  [20:22:06.669]  - Condition #503: 'simpleMessage', 'message', 'condition'
  [20:22:06.128] - result already collected: FutureResult
  [20:22:06.669]  - Condition #504: 'simpleMessage', 'message', 'condition'
  [20:22:06.128] result() for ClusterFuture ... done
  [20:22:06.670]  - Condition #505: 'simpleMessage', 'message', 'condition'
  [20:22:06.129] result() for ClusterFuture ...
  [20:22:06.670]  - Condition #506: 'simpleMessage', 'message', 'condition'
  [20:22:06.129] - result already collected: FutureResult
  [20:22:06.670]  - Condition #507: 'simpleMessage', 'message', 'condition'
  [20:22:06.130] result() for ClusterFuture ... done
  [20:22:06.671]  - Condition #508: 'simpleMessage', 'message', 'condition'
  [20:22:06.130] signalConditions() ...
  [20:22:06.671]  - Condition #509: 'simpleMessage', 'message', 'condition'
  [20:22:06.130]  - include = 'immediateCondition'
  [20:22:06.671]  - Condition #510: 'simpleMessage', 'message', 'condition'
  [20:22:06.131]  - exclude = 
  [20:22:06.672]  - Condition #511: 'simpleMessage', 'message', 'condition'
  [20:22:06.131]  - resignal = FALSE
  [20:22:06.672]  - Condition #512: 'simpleMessage', 'message', 'condition'
  [20:22:06.131]  - Number of conditions: 2
  [20:22:06.672]  - Condition #513: 'simpleMessage', 'message', 'condition'
  [20:22:06.132] signalConditions() ... done
  [20:22:06.673]  - Condition #514: 'simpleMessage', 'message', 'condition'
  [20:22:06.132] result() for ClusterFuture ...
  [20:22:06.673]  - Condition #515: 'simpleMessage', 'message', 'condition'
  [20:22:06.133] - result already collected: FutureResult
  [20:22:06.674]  - Condition #516: 'simpleMessage', 'message', 'condition'
  [20:22:06.133] result() for ClusterFuture ... done
  [20:22:06.690]  - Condition #517: 'simpleMessage', 'message', 'condition'
  [20:22:06.133] signalConditions() ...
  [20:22:06.690]  - Condition #518: 'simpleMessage', 'message', 'condition'
  [20:22:06.134]  - include = 'immediateCondition'
  [20:22:06.691]  - Condition #519: 'simpleMessage', 'message', 'condition'
  [20:22:06.134]  - exclude = 
  [20:22:06.691]  - Condition #520: 'simpleMessage', 'message', 'condition'
  [20:22:06.134]  - resignal = FALSE
  [20:22:06.692]  - Condition #521: 'simpleMessage', 'message', 'condition'
  [20:22:06.135]  - Number of conditions: 2
  [20:22:06.692]  - Condition #522: 'simpleMessage', 'message', 'condition'
  [20:22:06.135] signalConditions() ... done
  [20:22:06.692]  - Condition #523: 'simpleMessage', 'message', 'condition'
  [20:22:06.136] result() for ClusterFuture ...
  [20:22:06.693]  - Condition #524: 'simpleMessage', 'message', 'condition'
  [20:22:06.136] - result already collected: FutureResult
  [20:22:06.693]  - Condition #525: 'simpleMessage', 'message', 'condition'
  [20:22:06.136] result() for ClusterFuture ... done
  [20:22:06.693]  - Condition #526: 'simpleMessage', 'message', 'condition'
  [20:22:06.137] signalConditions() ...
  [20:22:06.694]  - Condition #527: 'simpleMessage', 'message', 'condition'
  [20:22:06.137]  - include = 'condition'
  [20:22:06.694]  - Condition #528: 'simpleMessage', 'message', 'condition'
  [20:22:06.138]  - exclude = 'immediateCondition'
  [20:22:06.694]  - Condition #529: 'simpleMessage', 'message', 'condition'
  [20:22:06.154]  - resignal = FALSE
  [20:22:06.695]  - Condition #530: 'simpleMessage', 'message', 'condition'
  [20:22:06.155]  - Number of conditions: 2
  [20:22:06.695]  - Condition #531: 'simpleMessage', 'message', 'condition'
  [20:22:06.155]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:06.699]  - Condition #532: '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
  [20:22:06.699]  - Condition #533: 'simpleMessage', 'message', 'condition'
  [20:22:06.155]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:22:06.700]  - Condition #534: '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
  [20:22:06.700]  - Condition #535: 'simpleMessage', 'message', 'condition'
  [20:22:06.156] signalConditions() ... done
  [20:22:06.700]  - Condition #536: 'simpleMessage', 'message', 'condition'
  [20:22:06.156] - relayed: [n=2] TRUE, TRUE
  [20:22:06.701]  - Condition #537: 'simpleMessage', 'message', 'condition'
  [20:22:06.157] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.701]  - Condition #538: 'simpleMessage', 'message', 'condition'
  [20:22:06.157] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:22:06.701]  - Condition #539: 'simpleMessage', 'message', 'condition'
  [20:22:06.158]  length: 0 (resolved future 2)
  [20:22:06.702]  - Condition #540: 'simpleMessage', 'message', 'condition'
  [20:22:06.158] Relaying remaining futures
  [20:22:06.702]  - Condition #541: 'simpleMessage', 'message', 'condition'
  [20:22:06.158] signalConditionsASAP(NULL, pos=0) ...
  [20:22:06.703]  - Condition #542: 'simpleMessage', 'message', 'condition'
  [20:22:06.159] - nx: 2
  [20:22:06.703]  - Condition #543: 'simpleMessage', 'message', 'condition'
  [20:22:06.159] - relay: TRUE
  [20:22:06.703]  - Condition #544: 'simpleMessage', 'message', 'condition'
  [20:22:06.159] - stdout: TRUE
  [20:22:06.704]  - Condition #545: 'simpleMessage', 'message', 'condition'
  [20:22:06.160] - signal: TRUE
  [20:22:06.704]  - Condition #546: 'simpleMessage', 'message', 'condition'
  [20:22:06.160] - resignal: FALSE
  [20:22:06.705]  - Condition #547: 'simpleMessage', 'message', 'condition'
  [20:22:06.160] - force: FALSE
  [20:22:06.705]  - Condition #548: 'simpleMessage', 'message', 'condition'
  [20:22:06.161] - relayed: [n=2] TRUE, TRUE
  [20:22:06.705]  - Condition #549: 'simpleMessage', 'message', 'condition'
  [20:22:06.161] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.722]  - Condition #550: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:22:06.722]  - Condition #551: 'simpleMessage', 'message', 'condition'
  [20:22:06.162] - relayed: [n=2] TRUE, TRUE
  [20:22:06.723]  - Condition #552: 'simpleMessage', 'message', 'condition'
  [20:22:06.162] - queued futures: [n=2] TRUE, TRUE
  [20:22:06.723]  - Condition #553: 'simpleMessage', 'message', 'condition'
  [20:22:06.163] signalConditionsASAP(NULL, pos=0) ... done
  [20:22:06.723]  - Condition #554: 'simpleMessage', 'message', 'condition'
  [20:22:06.163] resolve() on list ... DONE
  [20:22:06.724]  - Condition #555: 'simpleMessage', 'message', 'condition'
  [20:22:06.163] - collecting values of futures
  [20:22:06.724]  - Condition #556: 'simpleMessage', 'message', 'condition'
  [20:22:06.164] result() for ClusterFuture ...
  [20:22:06.725]  - Condition #557: 'simpleMessage', 'message', 'condition'
  [20:22:06.164] - result already collected: FutureResult
  [20:22:06.725]  - Condition #558: 'simpleMessage', 'message', 'condition'
  [20:22:06.164] result() for ClusterFuture ... done
  [20:22:06.725]  - Condition #559: 'simpleMessage', 'message', 'condition'
  [20:22:06.165] result() for ClusterFuture ...
  [20:22:06.726]  - Condition #560: 'simpleMessage', 'message', 'condition'
  [20:22:06.165] - result already collected: FutureResult
  [20:22:06.726]  - Condition #561: 'simpleMessage', 'message', 'condition'
  [20:22:06.166] result() for ClusterFuture ... done
  [20:22:06.726]  - Condition #562: 'simpleMessage', 'message', 'condition'
  [20:22:06.166] signalConditions() ...
  [20:22:06.727]  - Condition #563: 'simpleMessage', 'message', 'condition'
  [20:22:06.166]  - include = 'immediateCondition'
  [20:22:06.727]  - Condition #564: 'simpleMessage', 'message', 'condition'
  [20:22:06.167]  - exclude = 
  [20:22:06.727]  - Condition #565: 'simpleMessage', 'message', 'condition'
  [20:22:06.167]  - resignal = FALSE
  [20:22:06.728]  - Condition #566: 'simpleMessage', 'message', 'condition'
  [20:22:06.167]  - Number of conditions: 1
  [20:22:06.728]  - Condition #567: 'simpleMessage', 'message', 'condition'
  [20:22:06.168] signalConditions() ... done
  [20:22:06.728]  - Condition #568: 'simpleMessage', 'message', 'condition'
  [20:22:06.168] result() for ClusterFuture ...
  [20:22:06.729]  - Condition #569: 'simpleMessage', 'message', 'condition'
  [20:22:06.169] - result already collected: FutureResult
  [20:22:06.729]  - Condition #570: 'simpleMessage', 'message', 'condition'
  [20:22:06.169] result() for ClusterFuture ... done
  [20:22:06.729]  - Condition #571: 'simpleMessage', 'message', 'condition'
  [20:22:06.169] result() for ClusterFuture ...
  [20:22:06.730]  - Condition #572: 'simpleMessage', 'message', 'condition'
  [20:22:06.186] - result already collected: FutureResult
  [20:22:06.730]  - Condition #573: 'simpleMessage', 'message', 'condition'
  [20:22:06.186] result() for ClusterFuture ... done
  [20:22:06.730]  - Condition #574: 'simpleMessage', 'message', 'condition'
  [20:22:06.187] signalConditions() ...
  [20:22:06.731]  - Condition #575: 'simpleMessage', 'message', 'condition'
  [20:22:06.187]  - include = 'immediateCondition'
  [20:22:06.731]  - Condition #576: 'simpleMessage', 'message', 'condition'
  [20:22:06.188]  - exclude = 
  [20:22:06.731]  - Condition #577: 'simpleMessage', 'message', 'condition'
  [20:22:06.188]  - resignal = FALSE
  [20:22:06.732]  - Condition #578: 'simpleMessage', 'message', 'condition'
  [20:22:06.188]  - Number of conditions: 2
  [20:22:06.732]  - Condition #579: 'simpleMessage', 'message', 'condition'
  [20:22:06.189] signalConditions() ... done
  [20:22:06.732]  - Condition #580: 'simpleMessage', 'message', 'condition'
  [20:22:06.189] - accumulating results
  [20:22:06.733]  - Condition #581: 'simpleMessage', 'message', 'condition'
  [20:22:06.190] - processing errors (handler = 'stop')
  [20:22:06.733]  - Condition #582: 'simpleMessage', 'message', 'condition'
  [20:22:06.191] - extracting results
  [20:22:06.734]  - Condition #583: 'simpleMessage', 'message', 'condition'
  [20:22:06.191] doFuture() ... DONE
  [20:22:06.734]  - Condition #584: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:22:06.735] signalConditions() ... done
  [20:22:06.735] - relayed: [n=1] TRUE
  [20:22:06.735] - queued futures: [n=1] TRUE
  [20:22:06.735] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:22:06.736]  length: 0 (resolved future 1)
  [20:22:06.736] Relaying remaining futures
  [20:22:06.736] signalConditionsASAP(NULL, pos=0) ...
  [20:22:06.736] - nx: 1
  [20:22:06.737] - relay: TRUE
  [20:22:06.737] - stdout: TRUE
  [20:22:06.737] - signal: TRUE
  [20:22:06.737] - resignal: FALSE
  [20:22:06.754] - force: FALSE
  [20:22:06.754] - relayed: [n=1] TRUE
  [20:22:06.754] - queued futures: [n=1] TRUE
   - flush all
  [20:22:06.755] - relayed: [n=1] TRUE
  [20:22:06.755] - queued futures: [n=1] TRUE
  [20:22:06.755] signalConditionsASAP(NULL, pos=0) ... done
  [20:22:06.756] resolve() on list ... DONE
  [20:22:06.756] - collecting values of futures
  [20:22:06.756] signalConditions() ...
  [20:22:06.756]  - include = 'immediateCondition'
  [20:22:06.757]  - exclude = 
  [20:22:06.757]  - resignal = FALSE
  [20:22:06.757]  - Number of conditions: 584
  [20:22:06.758] signalConditions() ... done
  [20:22:06.758] - accumulating results
  [20:22:06.759] - processing errors (handler = 'stop')
  [20:22:06.760] - extracting results
  [20:22:06.760] doFuture() ... DONE
  foreach() - level 1 ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [20:22:06.761] plan(): Setting new future strategy stack:
  [20:22:06.761] List of future strategies:
  [20:22:06.761] 1. sequential:
  [20:22:06.761]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:22:06.761]    - tweaked: FALSE
  [20:22:06.761]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:06.761] 2. cluster:
  [20:22:06.761]    - 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, ...)
  [20:22:06.761]    - tweaked: FALSE
  [20:22:06.761]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:06.776] plan(): nbrOfWorkers() = 1
  foreach() - level 1 ...
  [20:22:06.777] doFuture() ...
  [20:22:06.778] - dummy globals (as locals): [1] 'a'
  [20:22:06.779] - R expression:
  [20:22:06.779] {
  [20:22:06.779]     doFuture::registerDoFuture()
  [20:22:06.779]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:06.779]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:06.779]         a <- NULL
  [20:22:06.779]         ...future.env <- environment()
  [20:22:06.779]         local({
  [20:22:06.779]             for (name in names(...future.x_jj)) {
  [20:22:06.779]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:06.779]                   inherits = FALSE)
  [20:22:06.779]             }
  [20:22:06.779]         })
  [20:22:06.779]         tryCatch({
  [20:22:06.779]             plan_list <- future::plan()
  [20:22:06.779]             stopifnot(inherits(plan_list, strategy2))
  [20:22:06.779]             plan_a <- future::plan("list")
  [20:22:06.779]             str(plan_a)
  [20:22:06.779]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:22:06.779]             message("foreach() - level 2 ...")
  [20:22:06.779]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:22:06.779]                 {
  [20:22:06.779]                   plan_list <- future::plan()
  [20:22:06.779]                   message(capture.output(print(plan_list)))
  [20:22:06.779]                   stopifnot(inherits(plan_list, "future"))
  [20:22:06.779]                   default <- getOption("future.plan", "sequential")
  [20:22:06.779]                   if (is.function(default)) 
  [20:22:06.779]                     default <- class(default)
  [20:22:06.779]                   stopifnot(inherits(plan_list, default))
  [20:22:06.779]                   plan_b <- future::plan("list")
  [20:22:06.779]                   str(plan_b)
  [20:22:06.779]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:06.779]                     inherits(plan_b[[1]], default))
  [20:22:06.779]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:06.779]                 }
  [20:22:06.779]             message("foreach() - level 2 ... DONE")
  [20:22:06.779]             y
  [20:22:06.779]         }, error = identity)
  [20:22:06.779]     })
  [20:22:06.779] }
  [20:22:06.780] - identifying globals and packages ...
  [20:22:06.781] getGlobalsAndPackages() ...
  [20:22:06.781] Searching for globals...
  [20:22:06.847] - globals found: [31] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'stopifnot', 'inherits', 'strategy2', 'str', 'message', '%dopar%', 'foreach', 'bs', 'c', 'capture.output', 'print', 'getOption', 'if', 'is.function', 'class', 'list', 'b', 'identity'
  [20:22:06.847] Searching for globals ... DONE
  [20:22:06.848] Resolving globals: FALSE
  [20:22:06.850] The total size of the 3 globals is 176 bytes (176 bytes)
  [20:22:06.850] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:22:06.850] - packages: [2] 'utils', 'foreach'
  [20:22:06.851] getGlobalsAndPackages() ... DONE
  [20:22:06.851] List of 3
  [20:22:06.851]  $ ...future.x_ii: NULL
  [20:22:06.851]  $ strategy2     : chr "cluster"
  [20:22:06.851]  $ bs            : int [1:3] 3 2 1
  [20:22:06.851]  - attr(*, "where")=List of 3
  [20:22:06.851]   ..$ ...future.x_ii:<environment: 0x561521543560> 
  [20:22:06.851]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:22:06.851]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:22:06.851]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:06.851]  - attr(*, "resolved")= logi FALSE
  [20:22:06.851]  - attr(*, "total_size")= num 176
  [20:22:06.882]   - R expression:
  [20:22:06.882] {
  [20:22:06.882]     doFuture::registerDoFuture()
  [20:22:06.882]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:06.882]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:06.882]         a <- NULL
  [20:22:06.882]         ...future.env <- environment()
  [20:22:06.882]         local({
  [20:22:06.882]             for (name in names(...future.x_jj)) {
  [20:22:06.882]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:06.882]                   inherits = FALSE)
  [20:22:06.882]             }
  [20:22:06.882]         })
  [20:22:06.882]         tryCatch({
  [20:22:06.882]             plan_list <- future::plan()
  [20:22:06.882]             stopifnot(inherits(plan_list, strategy2))
  [20:22:06.882]             plan_a <- future::plan("list")
  [20:22:06.882]             str(plan_a)
  [20:22:06.882]             stopifnot(inherits(plan_a[[1]], strategy2))
  [20:22:06.882]             message("foreach() - level 2 ...")
  [20:22:06.882]             y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:22:06.882]                 {
  [20:22:06.882]                   plan_list <- future::plan()
  [20:22:06.882]                   message(capture.output(print(plan_list)))
  [20:22:06.882]                   stopifnot(inherits(plan_list, "future"))
  [20:22:06.882]                   default <- getOption("future.plan", "sequential")
  [20:22:06.882]                   if (is.function(default)) 
  [20:22:06.882]                     default <- class(default)
  [20:22:06.882]                   stopifnot(inherits(plan_list, default))
  [20:22:06.882]                   plan_b <- future::plan("list")
  [20:22:06.882]                   str(plan_b)
  [20:22:06.882]                   stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:06.882]                     inherits(plan_b[[1]], default))
  [20:22:06.882]                   list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:06.882]                 }
  [20:22:06.882]             message("foreach() - level 2 ... DONE")
  [20:22:06.882]             y
  [20:22:06.882]         }, error = identity)
  [20:22:06.882]     })
  [20:22:06.882] }
  [20:22:06.883]   - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:22:06.883] List of 3
  [20:22:06.883]  $ ...future.x_ii: NULL
  [20:22:06.883]  $ strategy2     : chr "cluster"
  [20:22:06.883]  $ bs            : int [1:3] 3 2 1
  [20:22:06.883]  - attr(*, "where")=List of 3
  [20:22:06.883]   ..$ ...future.x_ii:<environment: 0x561521543560> 
  [20:22:06.883]   ..$ strategy2     :<environment: R_GlobalEnv> 
  [20:22:06.883]   ..$ bs            :<environment: R_GlobalEnv> 
  [20:22:06.883]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:06.883]  - attr(*, "resolved")= logi FALSE
  [20:22:06.883]  - attr(*, "total_size")= num 176
  [20:22:06.909]   - packages: [3] 'doFuture', 'utils', 'foreach'
  [20:22:06.909] - identifying globals and packages ... DONE
  [20:22:06.910] Number of chunks: 1
  [20:22:06.910] Number of futures (= number of chunks): 1
  [20:22:06.910] Launching 1 futures (chunks) ...
  [20:22:06.910] Chunk #1 of 1 ...
  [20:22:06.911]  - Finding globals in 'args_list' chunk #1 ...
  [20:22:06.911] getGlobalsAndPackages() ...
  [20:22:06.911] Searching for globals...
  [20:22:06.912] 
  [20:22:06.912] Searching for globals ... DONE
  [20:22:06.912] - globals: [0] <none>
  [20:22:06.913] getGlobalsAndPackages() ... DONE
  [20:22:06.913] 
  [20:22:06.913] 
  [20:22:06.913]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:22:06.914] getGlobalsAndPackages() ...
  [20:22:06.914] - globals passed as-is: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:22:06.914] Resolving globals: FALSE
  [20:22:06.915] The total size of the 3 globals is 288 bytes (288 bytes)
  [20:22:06.916] - globals: [3] '...future.x_ii', 'strategy2', 'bs'
  [20:22:06.916] 
  [20:22:06.916] getGlobalsAndPackages() ... DONE
  [20:22:06.934] Packages needed by the future expression (n = 3): 'doFuture', 'utils', 'foreach'
  [20:22:06.934] Packages needed by future strategies (n = 1): 'future'
  [20:22:06.938] {
  [20:22:06.938]     {
  [20:22:06.938]         ...future.startTime <- Sys.time()
  [20:22:06.938]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:06.938]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:06.938]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:06.938]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:06.938]             future.resolve.recursive = NULL, width = 80L)
  [20:22:06.938]         {
  [20:22:06.938]             {
  [20:22:06.938]                 {
  [20:22:06.938]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:22:06.938]                   version <- if (has_future) 
  [20:22:06.938]                     packageVersion("future")
  [20:22:06.938]                   else NULL
  [20:22:06.938]                   if (!has_future || version < "1.8.0") {
  [20:22:06.938]                     info <- c(r_version = gsub("R version ", 
  [20:22:06.938]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:06.938]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:06.938]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:22:06.938]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:06.938]                     info <- sprintf("%s: %s", names(info), info)
  [20:22:06.938]                     info <- paste(info, collapse = "; ")
  [20:22:06.938]                     if (!has_future) {
  [20:22:06.938]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:06.938]                         info)
  [20:22:06.938]                     }
  [20:22:06.938]                     else {
  [20:22:06.938]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:06.938]                         info, version)
  [20:22:06.938]                     }
  [20:22:06.938]                     stop(msg)
  [20:22:06.938]                   }
  [20:22:06.938]                 }
  [20:22:06.938]                 local({
  [20:22:06.938]                   for (pkg in c("doFuture", "utils", "foreach", 
  [20:22:06.938]                   "future")) {
  [20:22:06.938]                     loadNamespace(pkg)
  [20:22:06.938]                     library(pkg, character.only = TRUE)
  [20:22:06.938]                   }
  [20:22:06.938]                 })
  [20:22:06.938]             }
  [20:22:06.938]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:06.938]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:06.938]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:06.938]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:22:06.938]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:06.938]                 ...) 
  [20:22:06.938]             {
  [20:22:06.938]                 if (substitute) 
  [20:22:06.938]                   expr <- substitute(expr)
  [20:22:06.938]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:22:06.938]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:06.938]                   globals = globals, persistent = persistent, 
  [20:22:06.938]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:22:06.938]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:22:06.938]                   label = label, ...)
  [20:22:06.938]                 if (!future$lazy) 
  [20:22:06.938]                   future <- run(future)
  [20:22:06.938]                 invisible(future)
  [20:22:06.938]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:06.938]         }
  [20:22:06.938]     }
  [20:22:06.938]     if (is.na(TRUE)) {
  [20:22:06.938]     }
  [20:22:06.938]     else {
  [20:22:06.938]         if (TRUE) {
  [20:22:06.938]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:06.938]         }
  [20:22:06.938]         else {
  [20:22:06.938]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:06.938]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:06.938]         }
  [20:22:06.938]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:06.938]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:06.938]             sink(type = "output", split = FALSE)
  [20:22:06.938]             close(...future.stdout)
  [20:22:06.938]         }, add = TRUE)
  [20:22:06.938]     }
  [20:22:06.938]     ...future.frame <- sys.nframe()
  [20:22:06.938]     ...future.conditions <- list()
  [20:22:06.938]     ...future.result <- tryCatch({
  [20:22:06.938]         withCallingHandlers({
  [20:22:06.938]             ...future.value <- withVisible(local({
  [20:22:06.938]                 doFuture::registerDoFuture()
  [20:22:06.938]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:06.938]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:06.938]                   a <- NULL
  [20:22:06.938]                   ...future.env <- environment()
  [20:22:06.938]                   local({
  [20:22:06.938]                     for (name in names(...future.x_jj)) {
  [20:22:06.938]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:06.938]                         inherits = FALSE)
  [20:22:06.938]                     }
  [20:22:06.938]                   })
  [20:22:06.938]                   tryCatch({
  [20:22:06.938]                     plan_list <- future::plan()
  [20:22:06.938]                     stopifnot(inherits(plan_list, strategy2))
  [20:22:06.938]                     plan_a <- future::plan("list")
  [20:22:06.938]                     str(plan_a)
  [20:22:06.938]                     stopifnot(inherits(plan_a[[1]], strategy2))
  [20:22:06.938]                     message("foreach() - level 2 ...")
  [20:22:06.938]                     y <- foreach(b = bs, .export = c("a", "plan_a")) %dopar% 
  [20:22:06.938]                       {
  [20:22:06.938]                         plan_list <- future::plan()
  [20:22:06.938]                         message(capture.output(print(plan_list)))
  [20:22:06.938]                         stopifnot(inherits(plan_list, "future"))
  [20:22:06.938]                         default <- getOption("future.plan", "sequential")
  [20:22:06.938]                         if (is.function(default)) 
  [20:22:06.938]                           default <- class(default)
  [20:22:06.938]                         stopifnot(inherits(plan_list, default))
  [20:22:06.938]                         plan_b <- future::plan("list")
  [20:22:06.938]                         str(plan_b)
  [20:22:06.938]                         stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:06.938]                           inherits(plan_b[[1]], default))
  [20:22:06.938]                         list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:06.938]                       }
  [20:22:06.938]                     message("foreach() - level 2 ... DONE")
  [20:22:06.938]                     y
  [20:22:06.938]                   }, error = identity)
  [20:22:06.938]                 })
  [20:22:06.938]             }))
  [20:22:06.938]             future::FutureResult(value = ...future.value$value, 
  [20:22:06.938]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:06.938]                 version = "1.8")
  [20:22:06.938]         }, condition = local({
  [20:22:06.938]             inherits <- base::inherits
  [20:22:06.938]             invokeRestart <- base::invokeRestart
  [20:22:06.938]             length <- base::length
  [20:22:06.938]             seq.int <- base::seq.int
  [20:22:06.938]             sys.calls <- base::sys.calls
  [20:22:06.938]             `[[` <- base::`[[`
  [20:22:06.938]             `+` <- base::`+`
  [20:22:06.938]             `<<-` <- base::`<<-`
  [20:22:06.938]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:06.938]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:06.938]                   3L)]
  [20:22:06.938]             }
  [20:22:06.938]             function(cond) {
  [20:22:06.938]                 if (inherits(cond, "error")) {
  [20:22:06.938]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:06.938]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:06.938]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:06.938]                     signaled = 0L)
  [20:22:06.938]                   signalCondition(cond)
  [20:22:06.938]                 }
  [20:22:06.938]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:22:06.938]                 ))) {
  [20:22:06.938]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:22:06.938]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:06.938]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:06.938]                   if (!signal) {
  [20:22:06.938]                     muffleCondition <- function (cond) 
  [20:22:06.938]                     {
  [20:22:06.938]                       inherits <- base::inherits
  [20:22:06.938]                       invokeRestart <- base::invokeRestart
  [20:22:06.938]                       muffled <- FALSE
  [20:22:06.938]                       if (inherits(cond, "message")) {
  [20:22:06.938]                         invokeRestart("muffleMessage")
  [20:22:06.938]                         muffled <- TRUE
  [20:22:06.938]                       }
  [20:22:06.938]                       else if (inherits(cond, "warning")) {
  [20:22:06.938]                         invokeRestart("muffleWarning")
  [20:22:06.938]                         muffled <- TRUE
  [20:22:06.938]                       }
  [20:22:06.938]                       else if (inherits(cond, "condition")) {
  [20:22:06.938]                         computeRestarts <- base::computeRestarts
  [20:22:06.938]                         grepl <- base::grepl
  [20:22:06.938]                         is.null <- base::is.null
  [20:22:06.938]                         restarts <- computeRestarts(cond)
  [20:22:06.938]                         for (restart in restarts) {
  [20:22:06.938]                           name <- restart$name
  [20:22:06.938]                           if (is.null(name)) 
  [20:22:06.938]                             next
  [20:22:06.938]                           if (!grepl("^muffle", name)) 
  [20:22:06.938]                             next
  [20:22:06.938]                           invokeRestart(restart)
  [20:22:06.938]                           muffled <- TRUE
  [20:22:06.938]                           break
  [20:22:06.938]                         }
  [20:22:06.938]                       }
  [20:22:06.938]                       invisible(muffled)
  [20:22:06.938]                     }
  [20:22:06.938]                     muffleCondition(cond)
  [20:22:06.938]                   }
  [20:22:06.938]                 }
  [20:22:06.938]             }
  [20:22:06.938]         }))
  [20:22:06.938]     }, error = function(ex) {
  [20:22:06.938]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:06.938]             version = "1.8"), class = "FutureResult")
  [20:22:06.938]     }, finally = {
  [20:22:06.938]         {
  [20:22:06.938]             NULL
  [20:22:06.938]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:22:06.938]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:06.938]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:22:06.938]                 label = NULL, ...) 
  [20:22:06.938]             {
  [20:22:06.938]                 if (substitute) 
  [20:22:06.938]                   expr <- substitute(expr)
  [20:22:06.938]                 local <- as.logical(local)
  [20:22:06.938]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:22:06.938]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:06.938]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:22:06.938]                   label = label, ...)
  [20:22:06.938]                 if (!future$lazy) 
  [20:22:06.938]                   future <- run(future)
  [20:22:06.938]                 invisible(future)
  [20:22:06.938]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:22:06.938]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:22:06.938]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:22:06.938]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:22:06.938]                 label = NULL, ...) 
  [20:22:06.938]             {
  [20:22:06.938]                 if (substitute) 
  [20:22:06.938]                   expr <- substitute(expr)
  [20:22:06.938]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:22:06.938]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:06.938]                   globals = globals, persistent = persistent, 
  [20:22:06.938]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:22:06.938]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:22:06.938]                   label = label, ...)
  [20:22:06.938]                 if (!future$lazy) 
  [20:22:06.938]                   future <- run(future)
  [20:22:06.938]                 invisible(future)
  [20:22:06.938]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:06.938]         }
  [20:22:06.938]         options(...future.oldOptions)
  [20:22:06.938]     })
  [20:22:06.938]     if (is.na(TRUE)) {
  [20:22:06.938]     }
  [20:22:06.938]     else {
  [20:22:06.938]         sink(type = "output", split = FALSE)
  [20:22:06.938]         if (TRUE) {
  [20:22:06.938]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:06.938]         }
  [20:22:06.938]         else {
  [20:22:06.938]             ...future.result["stdout"] <- list(NULL)
  [20:22:06.938]         }
  [20:22:06.938]         close(...future.stdout)
  [20:22:06.938]         ...future.stdout <- NULL
  [20:22:06.938]     }
  [20:22:06.938]     ...future.result$conditions <- ...future.conditions
  [20:22:06.938]     ...future.result
  [20:22:06.938] }
  [20:22:06.945] plan(): Setting new future strategy stack:
  [20:22:06.945] List of future strategies:
  [20:22:06.945] 1. cluster:
  [20:22:06.945]    - 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, ...)
  [20:22:06.945]    - tweaked: FALSE
  [20:22:06.945]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:06.948] plan(): nbrOfWorkers() = 2
  [20:22:29.441] plan(): Setting new future strategy stack:
  [20:22:29.450] List of future strategies:
  [20:22:29.450] 1. sequential:
  [20:22:29.450]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:22:29.450]    - tweaked: FALSE
  [20:22:29.450]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:29.450] 2. cluster:
  [20:22:29.450]    - 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, ...)
  [20:22:29.450]    - tweaked: FALSE
  [20:22:29.450]    - call: plan(list(a = strategy1, b = strategy2))
  [20:22:29.451] plan(): nbrOfWorkers() = 1
  [20:22:29.452] SequentialFuture started (and completed)
  [20:22:29.452] signalConditions() ...
  [20:22:29.453]  - include = 'immediateCondition'
  [20:22:29.453]  - exclude = 
  [20:22:29.453]  - resignal = FALSE
  [20:22:29.453]  - Number of conditions: 355
  [20:22:29.454] signalConditions() ... done
  [20:22:29.455] Chunk #1 of 1 ... DONE
  [20:22:29.455] Launching 1 futures (chunks) ... DONE
  [20:22:29.455] - resolving futures
  [20:22:29.455]   - gathering results & relaying conditions (except errors)
  [20:22:29.456] resolve() on list ...
  [20:22:29.456]  recursive: 0
  [20:22:29.456]  length: 1
  [20:22:29.456] 
  [20:22:29.457] Future #1
  [20:22:29.457] signalConditions() ...
  [20:22:29.457]  - include = 'immediateCondition'
  [20:22:29.458]  - exclude = 
  [20:22:29.466]  - resignal = FALSE
  [20:22:29.466]  - Number of conditions: 355
  [20:22:29.468] signalConditions() ... done
  [20:22:29.468] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:22:29.468] - nx: 1
  [20:22:29.468] - relay: TRUE
  [20:22:29.469] - stdout: TRUE
  [20:22:29.469] - signal: TRUE
  [20:22:29.469] - resignal: FALSE
  [20:22:29.469] - force: FALSE
  [20:22:29.470] - relayed: [n=1] FALSE
  [20:22:29.470] - queued futures: [n=1] FALSE
  [20:22:29.470]  - until=1
  [20:22:29.470]  - relaying element #1
  [20:22:29.471] signalConditions() ...
  [20:22:29.471]  - include = 'immediateCondition'
  [20:22:29.471]  - exclude = 
  [20:22:29.471]  - resignal = FALSE
  [20:22:29.472]  - Number of conditions: 355
  [20:22:29.473] signalConditions() ... done
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  Call: tools::pskill(10507, signal = 0L)
  [1] TRUE
  Call: tools::pskill(10507, signal = 0L)
  [1] TRUE
  List of 1
   $ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
      user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
      label = NULL, ...)  
    ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
    ..- attr(*, "init")= logi TRUE
    ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  List of 1
   $ :function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
      seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, 
      ...)  
    ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
   - attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:29.473] signalConditions() ...
  [20:22:29.482]  - include = 'immediateCondition'
  [20:22:29.482]  - exclude = 
  [20:22:29.482]  - resignal = FALSE
  [20:22:29.483]  - Number of conditions: 355
  [20:22:29.484] signalConditions() ... done
  [20:22:29.484] signalConditions() ...
  [20:22:29.485]  - include = 'condition'
  [20:22:29.485]  - exclude = 'immediateCondition'
  [20:22:29.485]  - resignal = FALSE
  [20:22:29.485]  - Number of conditions: 355
  [20:22:29.486]  - Condition #1: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:22:29.486]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:22:06.970] doFuture() ...
  [20:22:29.486]  - Condition #3: 'simpleMessage', 'message', 'condition'
  [20:22:06.976] - dummy globals (as locals): [1] 'b'
  [20:22:29.487]  - Condition #4: 'simpleMessage', 'message', 'condition'
  [20:22:06.977] - R expression:
  [20:22:29.487]  - Condition #5: 'simpleMessage', 'message', 'condition'
  [20:22:06.978] {
  [20:22:06.978]     doFuture::registerDoFuture()
  [20:22:06.978]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:06.978]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:06.978]         b <- NULL
  [20:22:06.978]         ...future.env <- environment()
  [20:22:06.978]         local({
  [20:22:06.978]             for (name in names(...future.x_jj)) {
  [20:22:06.978]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:06.978]                   inherits = FALSE)
  [20:22:06.978]             }
  [20:22:06.978]         })
  [20:22:06.978]         tryCatch({
  [20:22:06.978]             plan_list <- future::plan()
  [20:22:06.978]             message(capture.output(print(plan_list)))
  [20:22:06.978]             stopifnot(inherits(plan_list, "future"))
  [20:22:06.978]             default <- getOption("future.plan", "sequential")
  [20:22:06.978]             if (is.function(default)) 
  [20:22:06.978]                 default <- class(default)
  [20:22:06.978]             stopifnot(inherits(plan_list, default))
  [20:22:06.978]             plan_b <- future::plan("list")
  [20:22:06.978]             str(plan_b)
  [20:22:06.978]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:06.978]                 default))
  [20:22:06.978]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:06.978]         }, error = identity)
  [20:22:06.978]     })
  [20:22:06.978] }
  [20:22:29.488]  - Condition #6: 'simpleMessage', 'message', 'condition'
  [20:22:06.979] - identifying globals and packages ...
  [20:22:29.488]  - Condition #7: 'simpleMessage', 'message', 'condition'
  [20:22:06.979] getGlobalsAndPackages() ...
  [20:22:29.488]  - Condition #8: 'simpleMessage', 'message', 'condition'
  [20:22:06.980] Searching for globals...
  [20:22:29.489]  - Condition #9: 'simpleMessage', 'message', 'condition'
  [20:22:07.034] - 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'
  [20:22:29.489]  - Condition #10: 'simpleMessage', 'message', 'condition'
  [20:22:07.035] Searching for globals ... DONE
  [20:22:29.489]  - Condition #11: 'simpleMessage', 'message', 'condition'
  [20:22:07.035] Resolving globals: FALSE
  [20:22:29.498]  - Condition #12: 'simpleMessage', 'message', 'condition'
  [20:22:07.038] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [20:22:29.498]  - Condition #13: 'simpleMessage', 'message', 'condition'
  [20:22:07.039] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.499]  - Condition #14: 'simpleMessage', 'message', 'condition'
  [20:22:07.039] - packages: [1] 'utils'
  [20:22:29.499]  - Condition #15: 'simpleMessage', 'message', 'condition'
  [20:22:07.039] getGlobalsAndPackages() ... DONE
  [20:22:29.499]  - Condition #16: 'simpleMessage', 'message', 'condition'
  [20:22:07.040] List of 3
  [20:22:07.040]  $ ...future.x_ii: NULL
  [20:22:07.040]  $ a             : int 1
  [20:22:07.040]  $ plan_a        :List of 1
  [20:22:07.040]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:07.040]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:07.040]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:22:07.040]     label = NULL, ...)  
  [20:22:07.040]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [20:22:07.040]   .. ..- attr(*, "init")= logi TRUE
  [20:22:07.040]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:07.040]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:07.040]  - attr(*, "where")=List of 3
  [20:22:07.040]   ..$ ...future.x_ii:<environment: 0x561521904a30> 
  [20:22:07.040]   ..$ a             :<environment: 0x561521635d40> 
  [20:22:07.040]   ..$ plan_a        :<environment: 0x561521635d40> 
  [20:22:07.040]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:07.040]  - attr(*, "resolved")= logi FALSE
  [20:22:07.040]  - attr(*, "total_size")= num 66056
  [20:22:29.500]  - Condition #17: 'simpleMessage', 'message', 'condition'
  [20:22:07.075]   - R expression:
  [20:22:29.505]  - Condition #18: 'simpleMessage', 'message', 'condition'
  [20:22:07.076] {
  [20:22:07.076]     doFuture::registerDoFuture()
  [20:22:07.076]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:07.076]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:07.076]         b <- NULL
  [20:22:07.076]         ...future.env <- environment()
  [20:22:07.076]         local({
  [20:22:07.076]             for (name in names(...future.x_jj)) {
  [20:22:07.076]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:07.076]                   inherits = FALSE)
  [20:22:07.076]             }
  [20:22:07.076]         })
  [20:22:07.076]         tryCatch({
  [20:22:07.076]             plan_list <- future::plan()
  [20:22:07.076]             message(capture.output(print(plan_list)))
  [20:22:07.076]             stopifnot(inherits(plan_list, "future"))
  [20:22:07.076]             default <- getOption("future.plan", "sequential")
  [20:22:07.076]             if (is.function(default)) 
  [20:22:07.076]                 default <- class(default)
  [20:22:07.076]             stopifnot(inherits(plan_list, default))
  [20:22:07.076]             plan_b <- future::plan("list")
  [20:22:07.076]             str(plan_b)
  [20:22:07.076]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:07.076]                 default))
  [20:22:07.076]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:07.076]         }, error = identity)
  [20:22:07.076]     })
  [20:22:07.076] }
  [20:22:29.505]  - Condition #19: 'simpleMessage', 'message', 'condition'
  [20:22:07.077]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.506]  - Condition #20: 'simpleMessage', 'message', 'condition'
  [20:22:07.077] List of 3
  [20:22:07.077]  $ ...future.x_ii: NULL
  [20:22:07.077]  $ a             : int 1
  [20:22:07.077]  $ plan_a        :List of 1
  [20:22:07.077]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:07.077]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:07.077]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:22:07.077]     label = NULL, ...)  
  [20:22:07.077]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [20:22:07.077]   .. ..- attr(*, "init")= logi TRUE
  [20:22:07.077]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:07.077]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:07.077]  - attr(*, "where")=List of 3
  [20:22:07.077]   ..$ ...future.x_ii:<environment: 0x561521904a30> 
  [20:22:07.077]   ..$ a             :<environment: 0x561521635d40> 
  [20:22:07.077]   ..$ plan_a        :<environment: 0x561521635d40> 
  [20:22:07.077]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:07.077]  - attr(*, "resolved")= logi FALSE
  [20:22:07.077]  - attr(*, "total_size")= num 66056
  [20:22:29.506]  - Condition #21: 'simpleMessage', 'message', 'condition'
  [20:22:07.106]   - packages: [2] 'doFuture', 'utils'
  [20:22:29.506]  - Condition #22: 'simpleMessage', 'message', 'condition'
  [20:22:07.107] - identifying globals and packages ... DONE
  [20:22:29.507]  - Condition #23: 'simpleMessage', 'message', 'condition'
  [20:22:07.109] Number of chunks: 2
  [20:22:29.507]  - Condition #24: 'simpleMessage', 'message', 'condition'
  [20:22:07.109] Number of futures (= number of chunks): 2
  [20:22:29.508]  - Condition #25: 'simpleMessage', 'message', 'condition'
  [20:22:07.109] Launching 2 futures (chunks) ...
  [20:22:29.508]  - Condition #26: 'simpleMessage', 'message', 'condition'
  [20:22:07.110] Chunk #1 of 2 ...
  [20:22:29.508]  - Condition #27: 'simpleMessage', 'message', 'condition'
  [20:22:07.110]  - Finding globals in 'args_list' chunk #1 ...
  [20:22:29.509]  - Condition #28: 'simpleMessage', 'message', 'condition'
  [20:22:07.111] getGlobalsAndPackages() ...
  [20:22:29.509]  - Condition #29: 'simpleMessage', 'message', 'condition'
  [20:22:07.111] Searching for globals...
  [20:22:29.510]  - Condition #30: 'simpleMessage', 'message', 'condition'
  [20:22:07.112] 
  [20:22:29.510]  - Condition #31: 'simpleMessage', 'message', 'condition'
  [20:22:07.112] Searching for globals ... DONE
  [20:22:29.510]  - Condition #32: 'simpleMessage', 'message', 'condition'
  [20:22:07.113] - globals: [0] <none>
  [20:22:29.511]  - Condition #33: 'simpleMessage', 'message', 'condition'
  [20:22:07.113] getGlobalsAndPackages() ... DONE
  [20:22:29.511]  - Condition #34: 'simpleMessage', 'message', 'condition'
  [20:22:07.113] 
  [20:22:29.512]  - Condition #35: 'simpleMessage', 'message', 'condition'
  [20:22:07.134] 
  [20:22:29.512]  - Condition #36: 'simpleMessage', 'message', 'condition'
  [20:22:07.134]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:22:29.512]  - Condition #37: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [20:22:29.513]  - Condition #38: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 36722
  [20:22:29.513]  - Condition #39: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [20:22:29.513]  - Condition #40: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [20:22:29.530]  - Condition #41: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b197faea0.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b197faea0.pid')"'
  [20:22:29.531]  - Condition #42: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [20:22:29.531]  - Condition #43: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b197faea0.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=36722 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [20:22:29.531]  - Condition #44: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [20:22:29.532]  - Condition #45: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [20:22:29.532]  - Condition #46: 'simpleMessage', 'message', 'condition'
  [local output] Detected a warning from socketConnection(): 'port 36722 cannot be opened'
  [20:22:29.532]  - Condition #47: 'simpleWarning', 'warning', 'condition'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 36722 cannot be opened
  [20:22:29.533]  - Condition #48: 'simpleMessage', 'message', 'condition'
  Killing worker process (PID 22963) if still alive
  [20:22:29.533]  - Condition #49: 'simpleMessage', 'message', 'condition'
  [20:22:09.208] Attempting to find a working pid_exists_*() function ...
  [20:22:29.534]  - Condition #50: 'simpleMessage', 'message', 'condition'
  [20:22:09.209] - success
  [20:22:29.534]  - Condition #51: 'simpleMessage', 'message', 'condition'
  [20:22:09.210] Attempting to find a working pid_exists_*() function ... done
  [20:22:29.534]  - Condition #52: 'simpleMessage', 'message', 'condition'
  Worker (PID 22963) was successfully killed: TRUE
  [20:22:29.535]  - Condition #53: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ...
  [20:22:29.535]  - Condition #54: 'simpleMessage', 'message', 'condition'
  [20:22:09.217] doFuture() ...
  [20:22:29.535]  - Condition #55: 'simpleMessage', 'message', 'condition'
  [20:22:09.218] - dummy globals (as locals): [1] 'b'
  [20:22:29.536]  - Condition #56: 'simpleMessage', 'message', 'condition'
  [20:22:09.219] - R expression:
  [20:22:29.536]  - Condition #57: 'simpleMessage', 'message', 'condition'
  [20:22:09.220] {
  [20:22:09.220]     doFuture::registerDoFuture()
  [20:22:09.220]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:09.220]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:09.220]         b <- NULL
  [20:22:09.220]         ...future.env <- environment()
  [20:22:09.220]         local({
  [20:22:09.220]             for (name in names(...future.x_jj)) {
  [20:22:09.220]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:09.220]                   inherits = FALSE)
  [20:22:09.220]             }
  [20:22:09.220]         })
  [20:22:09.220]         tryCatch({
  [20:22:09.220]             plan_list <- future::plan()
  [20:22:09.220]             message(capture.output(print(plan_list)))
  [20:22:09.220]             stopifnot(inherits(plan_list, "future"))
  [20:22:09.220]             default <- getOption("future.plan", "sequential")
  [20:22:09.220]             if (is.function(default)) 
  [20:22:09.220]                 default <- class(default)
  [20:22:09.220]             stopifnot(inherits(plan_list, default))
  [20:22:09.220]             plan_b <- future::plan("list")
  [20:22:09.220]             str(plan_b)
  [20:22:09.220]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:09.220]                 default))
  [20:22:09.220]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:09.220]         }, error = identity)
  [20:22:09.220]     })
  [20:22:09.220] }
  [20:22:29.536]  - Condition #58: 'simpleMessage', 'message', 'condition'
  [20:22:09.221] - identifying globals and packages ...
  [20:22:29.537]  - Condition #59: 'simpleMessage', 'message', 'condition'
  [20:22:09.221] getGlobalsAndPackages() ...
  [20:22:29.537]  - Condition #60: 'simpleMessage', 'message', 'condition'
  [20:22:09.234] Searching for globals...
  [20:22:29.537]  - Condition #61: 'simpleMessage', 'message', 'condition'
  [20:22:09.278] - 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'
  [20:22:29.538]  - Condition #62: 'simpleMessage', 'message', 'condition'
  [20:22:09.279] Searching for globals ... DONE
  [20:22:29.538]  - Condition #63: 'simpleMessage', 'message', 'condition'
  [20:22:09.279] Resolving globals: FALSE
  [20:22:29.539]  - Condition #64: 'simpleMessage', 'message', 'condition'
  [20:22:09.298] The total size of the 3 globals is 64.51 KiB (66056 bytes)
  [20:22:29.539]  - Condition #65: 'simpleMessage', 'message', 'condition'
  [20:22:09.298] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.539]  - Condition #66: 'simpleMessage', 'message', 'condition'
  [20:22:09.299] - packages: [1] 'utils'
  [20:22:29.540]  - Condition #67: 'simpleMessage', 'message', 'condition'
  [20:22:09.299] getGlobalsAndPackages() ... DONE
  [20:22:29.540]  - Condition #68: 'simpleMessage', 'message', 'condition'
  [20:22:09.300] List of 3
  [20:22:09.300]  $ ...future.x_ii: NULL
  [20:22:09.300]  $ a             : int 2
  [20:22:09.300]  $ plan_a        :List of 1
  [20:22:09.300]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:09.300]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:09.300]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:22:09.300]     label = NULL, ...)  
  [20:22:09.300]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [20:22:09.300]   .. ..- attr(*, "init")= logi TRUE
  [20:22:09.300]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:09.300]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:09.300]  - attr(*, "where")=List of 3
  [20:22:09.300]   ..$ ...future.x_ii:<environment: 0x56151fe24da8> 
  [20:22:09.300]   ..$ a             :<environment: 0x56151f7fd370> 
  [20:22:09.300]   ..$ plan_a        :<environment: 0x56151f7fd370> 
  [20:22:09.300]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:09.300]  - attr(*, "resolved")= logi FALSE
  [20:22:09.300]  - attr(*, "total_size")= num 66056
  [20:22:29.540]  - Condition #69: 'simpleMessage', 'message', 'condition'
  [20:22:09.313]   - R expression:
  [20:22:29.541]  - Condition #70: 'simpleMessage', 'message', 'condition'
  [20:22:09.330] {
  [20:22:09.330]     doFuture::registerDoFuture()
  [20:22:09.330]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:09.330]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:09.330]         b <- NULL
  [20:22:09.330]         ...future.env <- environment()
  [20:22:09.330]         local({
  [20:22:09.330]             for (name in names(...future.x_jj)) {
  [20:22:09.330]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:09.330]                   inherits = FALSE)
  [20:22:09.330]             }
  [20:22:09.330]         })
  [20:22:09.330]         tryCatch({
  [20:22:09.330]             plan_list <- future::plan()
  [20:22:09.330]             message(capture.output(print(plan_list)))
  [20:22:09.330]             stopifnot(inherits(plan_list, "future"))
  [20:22:09.330]             default <- getOption("future.plan", "sequential")
  [20:22:09.330]             if (is.function(default)) 
  [20:22:09.330]                 default <- class(default)
  [20:22:09.330]             stopifnot(inherits(plan_list, default))
  [20:22:09.330]             plan_b <- future::plan("list")
  [20:22:09.330]             str(plan_b)
  [20:22:09.330]             stopifnot(inherits(plan_b[[1]], "future"), inherits(plan_b[[1]], 
  [20:22:09.330]                 default))
  [20:22:09.330]             list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:09.330]         }, error = identity)
  [20:22:09.330]     })
  [20:22:09.330] }
  [20:22:29.541]  - Condition #71: 'simpleMessage', 'message', 'condition'
  [20:22:09.331]   - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.541]  - Condition #72: 'simpleMessage', 'message', 'condition'
  [20:22:09.332] List of 3
  [20:22:09.332]  $ ...future.x_ii: NULL
  [20:22:09.332]  $ a             : int 2
  [20:22:09.332]  $ plan_a        :List of 1
  [20:22:09.332]   ..$ b:function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, 
  [20:22:09.332]     seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:09.332]     user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:22:09.332]     label = NULL, ...)  
  [20:22:09.332]   .. ..- attr(*, "class")= chr [1:4] "cluster" "multiprocess" "future" "function"
  [20:22:09.332]   .. ..- attr(*, "init")= logi TRUE
  [20:22:09.332]   .. ..- attr(*, "call")= language plan(list(a = strategy1, b = strategy2))
  [20:22:09.332]   ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  [20:22:09.332]  - attr(*, "where")=List of 3
  [20:22:09.332]   ..$ ...future.x_ii:<environment: 0x56151fe24da8> 
  [20:22:09.332]   ..$ a             :<environment: 0x56151f7fd370> 
  [20:22:09.332]   ..$ plan_a        :<environment: 0x56151f7fd370> 
  [20:22:09.332]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:22:09.332]  - attr(*, "resolved")= logi FALSE
  [20:22:09.332]  - attr(*, "total_size")= num 66056
  [20:22:29.542]  - Condition #73: 'simpleMessage', 'message', 'condition'
  [20:22:09.366]   - packages: [2] 'doFuture', 'utils'
  [20:22:29.542]  - Condition #74: 'simpleMessage', 'message', 'condition'
  [20:22:09.367] - identifying globals and packages ... DONE
  [20:22:29.542]  - Condition #75: 'simpleMessage', 'message', 'condition'
  [20:22:09.368] Number of chunks: 2
  [20:22:29.543]  - Condition #76: 'simpleMessage', 'message', 'condition'
  [20:22:09.369] Number of futures (= number of chunks): 2
  [20:22:29.543]  - Condition #77: 'simpleMessage', 'message', 'condition'
  [20:22:09.369] Launching 2 futures (chunks) ...
  [20:22:29.544]  - Condition #78: 'simpleMessage', 'message', 'condition'
  [20:22:09.370] Chunk #1 of 2 ...
  [20:22:29.544]  - Condition #79: 'simpleMessage', 'message', 'condition'
  [20:22:09.370]  - Finding globals in 'args_list' chunk #1 ...
  [20:22:29.544]  - Condition #80: 'simpleMessage', 'message', 'condition'
  [20:22:09.370] getGlobalsAndPackages() ...
  [20:22:29.545]  - Condition #81: 'simpleMessage', 'message', 'condition'
  [20:22:09.371] Searching for globals...
  [20:22:29.545]  - Condition #82: 'simpleMessage', 'message', 'condition'
  [20:22:09.372] 
  [20:22:29.545]  - Condition #83: 'simpleMessage', 'message', 'condition'
  [20:22:09.372] Searching for globals ... DONE
  [20:22:29.562]  - Condition #84: 'simpleMessage', 'message', 'condition'
  [20:22:09.372] - globals: [0] <none>
  [20:22:29.562]  - Condition #85: 'simpleMessage', 'message', 'condition'
  [20:22:09.373] getGlobalsAndPackages() ... DONE
  [20:22:29.563]  - Condition #86: 'simpleMessage', 'message', 'condition'
  [20:22:09.373] 
  [20:22:29.563]  - Condition #87: 'simpleMessage', 'message', 'condition'
  [20:22:09.373] 
  [20:22:29.564]  - Condition #88: 'simpleMessage', 'message', 'condition'
  [20:22:09.374]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:22:29.564]  - Condition #89: 'simpleMessage', 'message', 'condition'
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [20:22:29.564]  - Condition #90: 'simpleMessage', 'message', 'condition'
  [local output] Base port: 24548
  [20:22:29.565]  - Condition #91: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ...
  [20:22:29.565]  - Condition #92: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [20:22:29.565]  - Condition #93: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b7158f8c.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b7158f8c.pid')"'
  [20:22:29.566]  - Condition #94: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [20:22:29.566]  - Condition #95: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b7158f8c.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24548 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [20:22:29.566]  - Condition #96: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [20:22:29.567]  - Condition #97: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [20:22:29.567]  - Condition #98: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #1 on 'localhost' established
  [20:22:29.567]  - Condition #99: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [20:22:29.568]  - Condition #100: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 1 of 2 ... done
  [20:22:29.568]  - Condition #101: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ...
  [20:22:29.569]  - Condition #102: 'simpleMessage', 'message', 'condition'
  [local output] - setting up node
  [20:22:29.569]  - Condition #103: 'simpleMessage', 'message', 'condition'
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b5d87723b.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b5d87723b.pid')"'
  [20:22:29.569]  - Condition #104: 'simpleMessage', 'message', 'condition'
  - Possible to infer worker's PID: TRUE
  [20:22:29.570]  - Condition #105: 'simpleMessage', 'message', 'condition'
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b5d87723b.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24548 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [20:22:29.570]  - Condition #106: 'simpleMessage', 'message', 'condition'
  [local output] - Exit code of system() call: 0
  [20:22:29.570]  - Condition #107: 'simpleMessage', 'message', 'condition'
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [20:22:29.571]  - Condition #108: 'simpleMessage', 'message', 'condition'
  [local output] Connection with worker #2 on 'localhost' established
  [20:22:29.571]  - Condition #109: 'simpleMessage', 'message', 'condition'
  [local output] - collecting session information
  [20:22:29.571]  - Condition #110: 'simpleMessage', 'message', 'condition'
  [local output] Creating node 2 of 2 ... done
  [20:22:29.572]  - Condition #111: 'simpleMessage', 'message', 'condition'
  [20:22:28.376] getGlobalsAndPackages() ...
  [20:22:29.572]  - Condition #112: 'simpleMessage', 'message', 'condition'
  [20:22:28.377] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.573]  - Condition #113: 'simpleMessage', 'message', 'condition'
  [20:22:28.377] Resolving globals: FALSE
  [20:22:29.573]  - Condition #114: 'simpleMessage', 'message', 'condition'
  [20:22:28.379] The total size of the 3 globals is 64.56 KiB (66112 bytes)
  [20:22:29.573]  - Condition #115: 'simpleMessage', 'message', 'condition'
  [20:22:28.379] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.574]  - Condition #116: 'simpleMessage', 'message', 'condition'
  [20:22:28.379] 
  [20:22:29.574]  - Condition #117: 'simpleMessage', 'message', 'condition'
  [20:22:28.380] getGlobalsAndPackages() ... DONE
  [20:22:29.574]  - Condition #118: 'simpleMessage', 'message', 'condition'
  [20:22:28.381] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:29.575]  - Condition #119: 'simpleMessage', 'message', 'condition'
  [20:22:28.386] Packages needed by future strategies (n = 0): <none>
  [20:22:29.575]  - Condition #120: 'simpleMessage', 'message', 'condition'
  [20:22:28.390] {
  [20:22:28.390]     {
  [20:22:28.390]         ...future.startTime <- Sys.time()
  [20:22:28.390]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:28.390]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:28.390]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:28.390]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:28.390]             future.resolve.recursive = NULL, width = 80L)
  [20:22:28.390]         {
  [20:22:28.390]             {
  [20:22:28.390]                 {
  [20:22:28.390]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:22:28.390]                   version <- if (has_future) 
  [20:22:28.390]                     packageVersion("future")
  [20:22:28.390]                   else NULL
  [20:22:28.390]                   if (!has_future || version < "1.8.0") {
  [20:22:28.390]                     info <- c(r_version = gsub("R version ", 
  [20:22:28.390]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:28.390]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:28.390]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:22:28.390]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:28.390]                     info <- sprintf("%s: %s", names(info), info)
  [20:22:28.390]                     info <- paste(info, collapse = "; ")
  [20:22:28.390]                     if (!has_future) {
  [20:22:28.390]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:28.390]                         info)
  [20:22:28.390]                     }
  [20:22:28.390]                     else {
  [20:22:28.390]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:28.390]                         info, version)
  [20:22:28.390]                     }
  [20:22:28.390]                     stop(msg)
  [20:22:28.390]                   }
  [20:22:28.390]                 }
  [20:22:28.390]                 local({
  [20:22:28.390]                   for (pkg in c("doFuture", "utils")) {
  [20:22:28.390]                     loadNamespace(pkg)
  [20:22:28.390]                     library(pkg, character.only = TRUE)
  [20:22:28.390]                   }
  [20:22:28.390]                 })
  [20:22:28.390]             }
  [20:22:28.390]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:28.390]         }
  [20:22:28.390]     }
  [20:22:28.390]     if (is.na(TRUE)) {
  [20:22:28.390]     }
  [20:22:28.390]     else {
  [20:22:28.390]         if (TRUE) {
  [20:22:28.390]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:28.390]         }
  [20:22:28.390]         else {
  [20:22:28.390]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:28.390]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:28.390]         }
  [20:22:28.390]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:28.390]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:28.390]             sink(type = "output", split = FALSE)
  [20:22:28.390]             close(...future.stdout)
  [20:22:28.390]         }, add = TRUE)
  [20:22:28.390]     }
  [20:22:28.390]     ...future.frame <- sys.nframe()
  [20:22:28.390]     ...future.conditions <- list()
  [20:22:28.390]     ...future.result <- tryCatch({
  [20:22:28.390]         withCallingHandlers({
  [20:22:28.390]             ...future.value <- withVisible(local({
  [20:22:28.390]                 doFuture::registerDoFuture()
  [20:22:28.390]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:28.390]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:28.390]                   b <- NULL
  [20:22:28.390]                   ...future.env <- environment()
  [20:22:28.390]                   local({
  [20:22:28.390]                     for (name in names(...future.x_jj)) {
  [20:22:28.390]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:28.390]                         inherits = FALSE)
  [20:22:28.390]                     }
  [20:22:28.390]                   })
  [20:22:28.390]                   tryCatch({
  [20:22:28.390]                     plan_list <- future::plan()
  [20:22:28.390]                     message(capture.output(print(plan_list)))
  [20:22:28.390]                     stopifnot(inherits(plan_list, "future"))
  [20:22:28.390]                     default <- getOption("future.plan", "sequential")
  [20:22:28.390]                     if (is.function(default)) 
  [20:22:28.390]                       default <- class(default)
  [20:22:28.390]                     stopifnot(inherits(plan_list, default))
  [20:22:28.390]                     plan_b <- future::plan("list")
  [20:22:28.390]                     str(plan_b)
  [20:22:28.390]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:28.390]                       inherits(plan_b[[1]], default))
  [20:22:28.390]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:28.390]                   }, error = identity)
  [20:22:28.390]                 })
  [20:22:28.390]             }))
  [20:22:28.390]             future::FutureResult(value = ...future.value$value, 
  [20:22:28.390]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:28.390]                 version = "1.8")
  [20:22:28.390]         }, condition = local({
  [20:22:28.390]             inherits <- base::inherits
  [20:22:28.390]             invokeRestart <- base::invokeRestart
  [20:22:28.390]             length <- base::length
  [20:22:28.390]             seq.int <- base::seq.int
  [20:22:28.390]             sys.calls <- base::sys.calls
  [20:22:28.390]             `[[` <- base::`[[`
  [20:22:28.390]             `+` <- base::`+`
  [20:22:28.390]             `<<-` <- base::`<<-`
  [20:22:28.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:28.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:28.390]                   3L)]
  [20:22:28.390]             }
  [20:22:28.390]             function(cond) {
  [20:22:28.390]                 if (inherits(cond, "error")) {
  [20:22:28.390]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:28.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:28.390]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:28.390]                     signaled = 0L)
  [20:22:28.390]                   signalCondition(cond)
  [20:22:28.390]                 }
  [20:22:28.390]                 else if (inherits(cond, "condition")) {
  [20:22:28.390]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:28.390]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:28.390]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:28.390]                   if (!signal) {
  [20:22:28.390]                     muffleCondition <- function (cond) 
  [20:22:28.390]                     {
  [20:22:28.390]                       inherits <- base::inherits
  [20:22:28.390]                       invokeRestart <- base::invokeRestart
  [20:22:28.390]                       muffled <- FALSE
  [20:22:28.390]                       if (inherits(cond, "message")) {
  [20:22:28.390]                         invokeRestart("muffleMessage")
  [20:22:28.390]                         muffled <- TRUE
  [20:22:28.390]                       }
  [20:22:28.390]                       else if (inherits(cond, "warning")) {
  [20:22:28.390]                         invokeRestart("muffleWarning")
  [20:22:28.390]                         muffled <- TRUE
  [20:22:28.390]                       }
  [20:22:28.390]                       else if (inherits(cond, "condition")) {
  [20:22:28.390]                         computeRestarts <- base::computeRestarts
  [20:22:28.390]                         grepl <- base::grepl
  [20:22:28.390]                         is.null <- base::is.null
  [20:22:28.390]                         restarts <- computeRestarts(cond)
  [20:22:28.390]                         for (restart in restarts) {
  [20:22:28.390]                           name <- restart$name
  [20:22:28.390]                           if (is.null(name)) 
  [20:22:28.390]                             next
  [20:22:28.390]                           if (!grepl("^muffle", name)) 
  [20:22:28.390]                             next
  [20:22:28.390]                           invokeRestart(restart)
  [20:22:28.390]                           muffled <- TRUE
  [20:22:28.390]                           break
  [20:22:28.390]                         }
  [20:22:28.390]                       }
  [20:22:28.390]                       invisible(muffled)
  [20:22:28.390]                     }
  [20:22:28.390]                     muffleCondition(cond)
  [20:22:28.390]                   }
  [20:22:28.390]                 }
  [20:22:28.390]             }
  [20:22:28.390]         }))
  [20:22:28.390]     }, error = function(ex) {
  [20:22:28.390]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:28.390]             version = "1.8"), class = "FutureResult")
  [20:22:28.390]     }, finally = {
  [20:22:28.390]         {
  [20:22:28.390]             NULL
  [20:22:28.390]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:28.390]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:28.390]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:28.390]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:22:28.390]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:28.390]                 ...) 
  [20:22:28.390]             {
  [20:22:28.390]                 if (substitute) 
  [20:22:28.390]                   expr <- substitute(expr)
  [20:22:28.390]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:22:28.390]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:28.390]                   globals = globals, persistent = persistent, 
  [20:22:28.390]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:22:28.390]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:22:28.390]                   label = label, ...)
  [20:22:28.390]                 if (!future$lazy) 
  [20:22:28.390]                   future <- run(future)
  [20:22:28.390]                 invisible(future)
  [20:22:28.390]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:28.390]         }
  [20:22:28.390]         options(...future.oldOptions)
  [20:22:28.390]     })
  [20:22:28.390]     if (is.na(TRUE)) {
  [20:22:28.390]     }
  [20:22:28.390]     else {
  [20:22:28.390]         sink(type = "output", split = FALSE)
  [20:22:28.390]         if (TRUE) {
  [20:22:28.390]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:28.390]         }
  [20:22:28.390]         else {
  [20:22:28.390]             ...future.result["stdout"] <- list(NULL)
  [20:22:28.390]         }
  [20:22:28.390]         close(...future.stdout)
  [20:22:28.390]         ...future.stdout <- NULL
  [20:22:28.390]     }
  [20:22:28.390]     ...future.result$conditions <- ...future.conditions
  [20:22:28.390]     ...future.result
  [20:22:28.390] }
  [20:22:29.575]  - Condition #121: 'simpleMessage', 'message', 'condition'
  [20:22:28.395] Exporting 3 global objects (64.56 KiB) to cluster node #1 ...
  [20:22:29.576]  - Condition #122: 'simpleMessage', 'message', 'condition'
  [20:22:28.396] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ...
  [20:22:29.576]  - Condition #123: 'simpleMessage', 'message', 'condition'
  [20:22:28.397] Exporting '...future.x_ii' (56 bytes) to cluster node #1 ... DONE
  [20:22:29.597]  - Condition #124: 'simpleMessage', 'message', 'condition'
  [20:22:28.397] Exporting 'a' (56 bytes) to cluster node #1 ...
  [20:22:29.598]  - Condition #125: 'simpleMessage', 'message', 'condition'
  [20:22:28.398] Exporting 'a' (56 bytes) to cluster node #1 ... DONE
  [20:22:29.598]  - Condition #126: 'simpleMessage', 'message', 'condition'
  [20:22:28.399] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ...
  [20:22:29.599]  - Condition #127: 'simpleMessage', 'message', 'condition'
  [20:22:28.442] Exporting 'plan_a' (64.45 KiB) to cluster node #1 ... DONE
  [20:22:29.599]  - Condition #128: 'simpleMessage', 'message', 'condition'
  [20:22:28.443] Exporting 3 global objects (64.56 KiB) to cluster node #1 ... DONE
  [20:22:29.599]  - Condition #129: 'simpleMessage', 'message', 'condition'
  [20:22:28.448] ClusterFuture started
  [20:22:29.600]  - Condition #130: 'simpleMessage', 'message', 'condition'
  [20:22:28.449] Chunk #1 of 2 ... DONE
  [20:22:29.600]  - Condition #131: 'simpleMessage', 'message', 'condition'
  [20:22:28.449] Chunk #2 of 2 ...
  [20:22:29.601]  - Condition #132: 'simpleMessage', 'message', 'condition'
  [20:22:28.449]  - Finding globals in 'args_list' chunk #2 ...
  [20:22:29.601]  - Condition #133: 'simpleMessage', 'message', 'condition'
  [20:22:28.450] getGlobalsAndPackages() ...
  [20:22:29.601]  - Condition #134: 'simpleMessage', 'message', 'condition'
  [20:22:28.450] Searching for globals...
  [20:22:29.602]  - Condition #135: 'simpleMessage', 'message', 'condition'
  [20:22:28.451] 
  [20:22:29.602]  - Condition #136: 'simpleMessage', 'message', 'condition'
  [20:22:28.452] Searching for globals ... DONE
  [20:22:29.602]  - Condition #137: 'simpleMessage', 'message', 'condition'
  [20:22:28.452] - globals: [0] <none>
  [20:22:29.603]  - Condition #138: 'simpleMessage', 'message', 'condition'
  [20:22:28.452] getGlobalsAndPackages() ... DONE
  [20:22:29.603]  - Condition #139: 'simpleMessage', 'message', 'condition'
  [20:22:28.453] 
  [20:22:29.604]  - Condition #140: 'simpleMessage', 'message', 'condition'
  [20:22:28.453] 
  [20:22:29.604]  - Condition #141: 'simpleMessage', 'message', 'condition'
  [20:22:28.454]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:22:29.604]  - Condition #142: 'simpleMessage', 'message', 'condition'
  [20:22:28.462] getGlobalsAndPackages() ...
  [20:22:29.605]  - Condition #143: 'simpleMessage', 'message', 'condition'
  [20:22:28.463] - globals passed as-is: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.605]  - Condition #144: 'simpleMessage', 'message', 'condition'
  [20:22:28.463] Resolving globals: FALSE
  [20:22:29.605]  - Condition #145: 'simpleMessage', 'message', 'condition'
  [20:22:28.465] The total size of the 3 globals is 64.62 KiB (66168 bytes)
  [20:22:29.606]  - Condition #146: 'simpleMessage', 'message', 'condition'
  [20:22:28.465] - globals: [3] '...future.x_ii', 'a', 'plan_a'
  [20:22:29.606]  - Condition #147: 'simpleMessage', 'message', 'condition'
  [20:22:28.466] 
  [20:22:29.607]  - Condition #148: 'simpleMessage', 'message', 'condition'
  [20:22:28.466] getGlobalsAndPackages() ... DONE
  [20:22:29.607]  - Condition #149: 'simpleMessage', 'message', 'condition'
  [20:22:28.467] Packages needed by the future expression (n = 2): 'doFuture', 'utils'
  [20:22:29.607]  - Condition #150: 'simpleMessage', 'message', 'condition'
  [20:22:28.468] Packages needed by future strategies (n = 0): <none>
  [20:22:29.608]  - Condition #151: 'simpleMessage', 'message', 'condition'
  [20:22:28.504] {
  [20:22:28.504]     {
  [20:22:28.504]         ...future.startTime <- Sys.time()
  [20:22:28.504]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:22:28.504]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:22:28.504]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:22:28.504]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:22:28.504]             future.resolve.recursive = NULL, width = 80L)
  [20:22:28.504]         {
  [20:22:28.504]             {
  [20:22:28.504]                 {
  [20:22:28.504]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:22:28.504]                   version <- if (has_future) 
  [20:22:28.504]                     packageVersion("future")
  [20:22:28.504]                   else NULL
  [20:22:28.504]                   if (!has_future || version < "1.8.0") {
  [20:22:28.504]                     info <- c(r_version = gsub("R version ", 
  [20:22:28.504]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:22:28.504]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:22:28.504]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:22:28.504]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:22:28.504]                     info <- sprintf("%s: %s", names(info), info)
  [20:22:28.504]                     info <- paste(info, collapse = "; ")
  [20:22:28.504]                     if (!has_future) {
  [20:22:28.504]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:22:28.504]                         info)
  [20:22:28.504]                     }
  [20:22:28.504]                     else {
  [20:22:28.504]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:22:28.504]                         info, version)
  [20:22:28.504]                     }
  [20:22:28.504]                     stop(msg)
  [20:22:28.504]                   }
  [20:22:28.504]                 }
  [20:22:28.504]                 local({
  [20:22:28.504]                   for (pkg in c("doFuture", "utils")) {
  [20:22:28.504]                     loadNamespace(pkg)
  [20:22:28.504]                     library(pkg, character.only = TRUE)
  [20:22:28.504]                   }
  [20:22:28.504]                 })
  [20:22:28.504]             }
  [20:22:28.504]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [20:22:28.504]         }
  [20:22:28.504]     }
  [20:22:28.504]     if (is.na(TRUE)) {
  [20:22:28.504]     }
  [20:22:28.504]     else {
  [20:22:28.504]         if (TRUE) {
  [20:22:28.504]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:22:28.504]         }
  [20:22:28.504]         else {
  [20:22:28.504]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:22:28.504]                 windows = "NUL", "/dev/null"), open = "w")
  [20:22:28.504]         }
  [20:22:28.504]         sink(...future.stdout, type = "output", split = FALSE)
  [20:22:28.504]         on.exit(if (!is.null(...future.stdout)) {
  [20:22:28.504]             sink(type = "output", split = FALSE)
  [20:22:28.504]             close(...future.stdout)
  [20:22:28.504]         }, add = TRUE)
  [20:22:28.504]     }
  [20:22:28.504]     ...future.frame <- sys.nframe()
  [20:22:28.504]     ...future.conditions <- list()
  [20:22:28.504]     ...future.result <- tryCatch({
  [20:22:28.504]         withCallingHandlers({
  [20:22:28.504]             ...future.value <- withVisible(local({
  [20:22:28.504]                 doFuture::registerDoFuture()
  [20:22:28.504]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:22:28.504]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:22:28.504]                   b <- NULL
  [20:22:28.504]                   ...future.env <- environment()
  [20:22:28.504]                   local({
  [20:22:28.504]                     for (name in names(...future.x_jj)) {
  [20:22:28.504]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:22:28.504]                         inherits = FALSE)
  [20:22:28.504]                     }
  [20:22:28.504]                   })
  [20:22:28.504]                   tryCatch({
  [20:22:28.504]                     plan_list <- future::plan()
  [20:22:28.504]                     message(capture.output(print(plan_list)))
  [20:22:28.504]                     stopifnot(inherits(plan_list, "future"))
  [20:22:28.504]                     default <- getOption("future.plan", "sequential")
  [20:22:28.504]                     if (is.function(default)) 
  [20:22:28.504]                       default <- class(default)
  [20:22:28.504]                     stopifnot(inherits(plan_list, default))
  [20:22:28.504]                     plan_b <- future::plan("list")
  [20:22:28.504]                     str(plan_b)
  [20:22:28.504]                     stopifnot(inherits(plan_b[[1]], "future"), 
  [20:22:28.504]                       inherits(plan_b[[1]], default))
  [20:22:28.504]                     list(a = a, plan_a = plan_a, b = b, plan_b = plan_b)
  [20:22:28.504]                   }, error = identity)
  [20:22:28.504]                 })
  [20:22:28.504]             }))
  [20:22:28.504]             future::FutureResult(value = ...future.value$value, 
  [20:22:28.504]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:22:28.504]                 version = "1.8")
  [20:22:28.504]         }, condition = local({
  [20:22:28.504]             inherits <- base::inherits
  [20:22:28.504]             invokeRestart <- base::invokeRestart
  [20:22:28.504]             length <- base::length
  [20:22:28.504]             seq.int <- base::seq.int
  [20:22:28.504]             sys.calls <- base::sys.calls
  [20:22:28.504]             `[[` <- base::`[[`
  [20:22:28.504]             `+` <- base::`+`
  [20:22:28.504]             `<<-` <- base::`<<-`
  [20:22:28.504]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:22:28.504]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:22:28.504]                   3L)]
  [20:22:28.504]             }
  [20:22:28.504]             function(cond) {
  [20:22:28.504]                 if (inherits(cond, "error")) {
  [20:22:28.504]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:28.504]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:22:28.504]                     cond$call), timestamp = base::Sys.time(), 
  [20:22:28.504]                     signaled = 0L)
  [20:22:28.504]                   signalCondition(cond)
  [20:22:28.504]                 }
  [20:22:28.504]                 else if (inherits(cond, "condition")) {
  [20:22:28.504]                   signal <- FALSE && inherits(cond, character(0))
  [20:22:28.504]                   ...future.conditions[[length(...future.conditions) + 
  [20:22:28.504]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:22:28.504]                   if (!signal) {
  [20:22:28.504]                     muffleCondition <- function (cond) 
  [20:22:28.504]                     {
  [20:22:28.504]                       inherits <- base::inherits
  [20:22:28.504]                       invokeRestart <- base::invokeRestart
  [20:22:28.504]                       muffled <- FALSE
  [20:22:28.504]                       if (inherits(cond, "message")) {
  [20:22:28.504]                         invokeRestart("muffleMessage")
  [20:22:28.504]                         muffled <- TRUE
  [20:22:28.504]                       }
  [20:22:28.504]                       else if (inherits(cond, "warning")) {
  [20:22:28.504]                         invokeRestart("muffleWarning")
  [20:22:28.504]                         muffled <- TRUE
  [20:22:28.504]                       }
  [20:22:28.504]                       else if (inherits(cond, "condition")) {
  [20:22:28.504]                         computeRestarts <- base::computeRestarts
  [20:22:28.504]                         grepl <- base::grepl
  [20:22:28.504]                         is.null <- base::is.null
  [20:22:28.504]                         restarts <- computeRestarts(cond)
  [20:22:28.504]                         for (restart in restarts) {
  [20:22:28.504]                           name <- restart$name
  [20:22:28.504]                           if (is.null(name)) 
  [20:22:28.504]                             next
  [20:22:28.504]                           if (!grepl("^muffle", name)) 
  [20:22:28.504]                             next
  [20:22:28.504]                           invokeRestart(restart)
  [20:22:28.504]                           muffled <- TRUE
  [20:22:28.504]                           break
  [20:22:28.504]                         }
  [20:22:28.504]                       }
  [20:22:28.504]                       invisible(muffled)
  [20:22:28.504]                     }
  [20:22:28.504]                     muffleCondition(cond)
  [20:22:28.504]                   }
  [20:22:28.504]                 }
  [20:22:28.504]             }
  [20:22:28.504]         }))
  [20:22:28.504]     }, error = function(ex) {
  [20:22:28.504]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:22:28.504]             version = "1.8"), class = "FutureResult")
  [20:22:28.504]     }, finally = {
  [20:22:28.504]         {
  [20:22:28.504]             NULL
  [20:22:28.504]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:22:28.504]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:22:28.504]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:22:28.504]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:22:28.504]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:22:28.504]                 ...) 
  [20:22:28.504]             {
  [20:22:28.504]                 if (substitute) 
  [20:22:28.504]                   expr <- substitute(expr)
  [20:22:28.504]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:22:28.504]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:22:28.504]                   globals = globals, persistent = persistent, 
  [20:22:28.504]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:22:28.504]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:22:28.504]                   label = label, ...)
  [20:22:28.504]                 if (!future$lazy) 
  [20:22:28.504]                   future <- run(future)
  [20:22:28.504]                 invisible(future)
  [20:22:28.504]             }), .cleanup = FALSE, .init = FALSE)
  [20:22:28.504]         }
  [20:22:28.504]         options(...future.oldOptions)
  [20:22:28.504]     })
  [20:22:28.504]     if (is.na(TRUE)) {
  [20:22:28.504]     }
  [20:22:28.504]     else {
  [20:22:28.504]         sink(type = "output", split = FALSE)
  [20:22:28.504]         if (TRUE) {
  [20:22:28.504]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:22:28.504]         }
  [20:22:28.504]         else {
  [20:22:28.504]             ...future.result["stdout"] <- list(NULL)
  [20:22:28.504]         }
  [20:22:28.504]         close(...future.stdout)
  [20:22:28.504]         ...future.stdout <- NULL
  [20:22:28.504]     }
  [20:22:28.504]     ...future.result$conditions <- ...future.conditions
  [20:22:28.504]     ...future.result
  [20:22:28.504] }
  [20:22:29.608]  - Condition #152: 'simpleMessage', 'message', 'condition'
  [20:22:28.530] Exporting 3 global objects (64.62 KiB) to cluster node #2 ...
  [20:22:29.609]  - Condition #153: 'simpleMessage', 'message', 'condition'
  [20:22:28.531] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ...
  [20:22:29.609]  - Condition #154: 'simpleMessage', 'message', 'condition'
  [20:22:28.532] Exporting '...future.x_ii' (112 bytes) to cluster node #2 ... DONE
  [20:22:29.609]  - Condition #155: 'simpleMessage', 'message', 'condition'
  [20:22:28.532] Exporting 'a' (56 bytes) to cluster node #2 ...
  [20:22:29.626]  - Condition #156: 'simpleMessage', 'message', 'condition'
  [20:22:28.533] Exporting 'a' (56 bytes) to cluster node #2 ... DONE
  [20:22:29.626]  - Condition #157: 'simpleMessage', 'message', 'condition'
  [20:22:28.534] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ...
  [20:22:29.627]  - Condition #158: 'simpleMessage', 'message', 'condition'
  [20:22:28.578] Exporting 'plan_a' (64.45 KiB) to cluster node #2 ... DONE
  [20:22:29.627]  - Condition #159: 'simpleMessage', 'message', 'condition'
  [20:22:28.579] Exporting 3 global objects (64.62 KiB) to cluster node #2 ... DONE
  [20:22:29.627]  - Condition #160: 'simpleMessage', 'message', 'condition'
  [20:22:28.580] ClusterFuture started
  [20:22:29.628]  - Condition #161: 'simpleMessage', 'message', 'condition'
  [20:22:28.580] Chunk #2 of 2 ... DONE
  [20:22:29.628]  - Condition #162: 'simpleMessage', 'message', 'condition'
  [20:22:28.581] Launching 2 futures (chunks) ... DONE
  [20:22:29.628]  - Condition #163: 'simpleMessage', 'message', 'condition'
  [20:22:28.581] - resolving futures
  [20:22:29.629]  - Condition #164: 'simpleMessage', 'message', 'condition'
  [20:22:28.582]   - gathering results & relaying conditions (except errors)
  [20:22:29.629]  - Condition #165: 'simpleMessage', 'message', 'condition'
  [20:22:28.582] resolve() on list ...
  [20:22:29.629]  - Condition #166: 'simpleMessage', 'message', 'condition'
  [20:22:28.582]  recursive: 0
  [20:22:29.630]  - Condition #167: 'simpleMessage', 'message', 'condition'
  [20:22:28.583]  length: 2
  [20:22:29.630]  - Condition #168: 'simpleMessage', 'message', 'condition'
  [20:22:28.583] 
  [20:22:29.630]  - Condition #169: 'simpleMessage', 'message', 'condition'
  [20:22:29.088] Future #1
  [20:22:29.631]  - Condition #170: 'simpleMessage', 'message', 'condition'
  [20:22:29.089] result() for ClusterFuture ...
  [20:22:29.631]  - Condition #171: 'simpleMessage', 'message', 'condition'
  [20:22:29.089] - Validating connection of ClusterFuture
  [20:22:29.631]  - Condition #172: 'simpleMessage', 'message', 'condition'
  [20:22:29.090] - class(result): FutureResult
  [20:22:29.632]  - Condition #173: 'simpleMessage', 'message', 'condition'
  [20:22:29.091] result() for ClusterFuture ...
  [20:22:29.632]  - Condition #174: 'simpleMessage', 'message', 'condition'
  [20:22:29.091] - result already collected: FutureResult
  [20:22:29.632]  - Condition #175: 'simpleMessage', 'message', 'condition'
  [20:22:29.091] result() for ClusterFuture ... done
  [20:22:29.633]  - Condition #176: 'simpleMessage', 'message', 'condition'
  [20:22:29.092] signalConditions() ...
  [20:22:29.633]  - Condition #177: 'simpleMessage', 'message', 'condition'
  [20:22:29.092]  - include = 'immediateCondition'
  [20:22:29.633]  - Condition #178: 'simpleMessage', 'message', 'condition'
  [20:22:29.093]  - exclude = 
  [20:22:29.633]  - Condition #179: 'simpleMessage', 'message', 'condition'
  [20:22:29.093]  - resignal = FALSE
  [20:22:29.634]  - Condition #180: 'simpleMessage', 'message', 'condition'
  [20:22:29.093]  - Number of conditions: 1
  [20:22:29.634]  - Condition #181: 'simpleMessage', 'message', 'condition'
  [20:22:29.094] signalConditions() ... done
  [20:22:29.634]  - Condition #182: 'simpleMessage', 'message', 'condition'
  [20:22:29.094] result() for ClusterFuture ... done
  [20:22:29.635]  - Condition #183: 'simpleMessage', 'message', 'condition'
  [20:22:29.095] result() for ClusterFuture ...
  [20:22:29.635]  - Condition #184: 'simpleMessage', 'message', 'condition'
  [20:22:29.095] - result already collected: FutureResult
  [20:22:29.635]  - Condition #185: 'simpleMessage', 'message', 'condition'
  [20:22:29.095] result() for ClusterFuture ... done
  [20:22:29.636]  - Condition #186: 'simpleMessage', 'message', 'condition'
  [20:22:29.096] signalConditions() ...
  [20:22:29.636]  - Condition #187: 'simpleMessage', 'message', 'condition'
  [20:22:29.096]  - include = 'immediateCondition'
  [20:22:29.636]  - Condition #188: 'simpleMessage', 'message', 'condition'
  [20:22:29.097]  - exclude = 
  [20:22:29.637]  - Condition #189: 'simpleMessage', 'message', 'condition'
  [20:22:29.097]  - resignal = FALSE
  [20:22:29.637]  - Condition #190: 'simpleMessage', 'message', 'condition'
  [20:22:29.097]  - Number of conditions: 1
  [20:22:29.637]  - Condition #191: 'simpleMessage', 'message', 'condition'
  [20:22:29.098] signalConditions() ... done
  [20:22:29.638]  - Condition #192: 'simpleMessage', 'message', 'condition'
  [20:22:29.098] signalConditionsASAP(ClusterFuture, pos=1) ...
  [20:22:29.638]  - Condition #193: 'simpleMessage', 'message', 'condition'
  [20:22:29.098] - nx: 2
  [20:22:29.638]  - Condition #194: 'simpleMessage', 'message', 'condition'
  [20:22:29.099] - relay: TRUE
  [20:22:29.639]  - Condition #195: 'simpleMessage', 'message', 'condition'
  [20:22:29.099] - stdout: TRUE
  [20:22:29.639]  - Condition #196: 'simpleMessage', 'message', 'condition'
  [20:22:29.099] - signal: TRUE
  [20:22:29.640]  - Condition #197: 'simpleMessage', 'message', 'condition'
  [20:22:29.100] - resignal: FALSE
  [20:22:29.640]  - Condition #198: 'simpleMessage', 'message', 'condition'
  [20:22:29.100] - force: FALSE
  [20:22:29.640]  - Condition #199: 'simpleMessage', 'message', 'condition'
  [20:22:29.101] - relayed: [n=2] FALSE, FALSE
  [20:22:29.641]  - Condition #200: 'simpleMessage', 'message', 'condition'
  [20:22:29.118] - queued futures: [n=2] FALSE, FALSE
  [20:22:29.641]  - Condition #201: 'simpleMessage', 'message', 'condition'
  [20:22:29.119]  - until=1
  [20:22:29.641]  - Condition #202: 'simpleMessage', 'message', 'condition'
  [20:22:29.119]  - relaying element #1
  [20:22:29.658]  - Condition #203: 'simpleMessage', 'message', 'condition'
  [20:22:29.120] result() for ClusterFuture ...
  [20:22:29.658]  - Condition #204: 'simpleMessage', 'message', 'condition'
  [20:22:29.120] - result already collected: FutureResult
  [20:22:29.659]  - Condition #205: 'simpleMessage', 'message', 'condition'
  [20:22:29.120] result() for ClusterFuture ... done
  [20:22:29.659]  - Condition #206: 'simpleMessage', 'message', 'condition'
  [20:22:29.121] result() for ClusterFuture ...
  [20:22:29.659]  - Condition #207: 'simpleMessage', 'message', 'condition'
  [20:22:29.121] - result already collected: FutureResult
  [20:22:29.660]  - Condition #208: 'simpleMessage', 'message', 'condition'
  [20:22:29.125] result() for ClusterFuture ... done
  [20:22:29.660]  - Condition #209: 'simpleMessage', 'message', 'condition'
  [20:22:29.126] signalConditions() ...
  [20:22:29.660]  - Condition #210: 'simpleMessage', 'message', 'condition'
  [20:22:29.126]  - include = 'immediateCondition'
  [20:22:29.661]  - Condition #211: 'simpleMessage', 'message', 'condition'
  [20:22:29.127]  - exclude = 
  [20:22:29.661]  - Condition #212: 'simpleMessage', 'message', 'condition'
  [20:22:29.127]  - resignal = FALSE
  [20:22:29.661]  - Condition #213: 'simpleMessage', 'message', 'condition'
  [20:22:29.128]  - Number of conditions: 1
  [20:22:29.662]  - Condition #214: 'simpleMessage', 'message', 'condition'
  [20:22:29.128] signalConditions() ... done
  [20:22:29.662]  - Condition #215: 'simpleMessage', 'message', 'condition'
  [20:22:29.129] result() for ClusterFuture ...
  [20:22:29.662]  - Condition #216: 'simpleMessage', 'message', 'condition'
  [20:22:29.129] - result already collected: FutureResult
  [20:22:29.663]  - Condition #217: 'simpleMessage', 'message', 'condition'
  [20:22:29.129] result() for ClusterFuture ... done
  [20:22:29.663]  - Condition #218: 'simpleMessage', 'message', 'condition'
  [20:22:29.130] signalConditions() ...
  [20:22:29.663]  - Condition #219: 'simpleMessage', 'message', 'condition'
  [20:22:29.130]  - include = 'immediateCondition'
  [20:22:29.664]  - Condition #220: 'simpleMessage', 'message', 'condition'
  [20:22:29.131]  - exclude = 
  [20:22:29.664]  - Condition #221: 'simpleMessage', 'message', 'condition'
  [20:22:29.131]  - resignal = FALSE
  [20:22:29.664]  - Condition #222: 'simpleMessage', 'message', 'condition'
  [20:22:29.131]  - Number of conditions: 1
  [20:22:29.665]  - Condition #223: 'simpleMessage', 'message', 'condition'
  [20:22:29.132] signalConditions() ... done
  [20:22:29.665]  - Condition #224: 'simpleMessage', 'message', 'condition'
  [20:22:29.132] result() for ClusterFuture ...
  [20:22:29.665]  - Condition #225: 'simpleMessage', 'message', 'condition'
  [20:22:29.133] - result already collected: FutureResult
  [20:22:29.666]  - Condition #226: 'simpleMessage', 'message', 'condition'
  [20:22:29.133] result() for ClusterFuture ... done
  [20:22:29.666]  - Condition #227: 'simpleMessage', 'message', 'condition'
  [20:22:29.134] signalConditions() ...
  [20:22:29.666]  - Condition #228: 'simpleMessage', 'message', 'condition'
  [20:22:29.134]  - include = 'condition'
  [20:22:29.667]  - Condition #229: 'simpleMessage', 'message', 'condition'
  [20:22:29.134]  - exclude = 'immediateCondition'
  [20:22:29.688]  - Condition #230: 'simpleMessage', 'message', 'condition'
  [20:22:29.135]  - resignal = FALSE
  [20:22:29.688]  - Condition #231: 'simpleMessage', 'message', 'condition'
  [20:22:29.135]  - Number of conditions: 1
  [20:22:29.689]  - Condition #232: 'simpleMessage', 'message', 'condition'
  [20:22:29.136]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:29.689]  - Condition #233: 'simpleMessage', 'message', 'condition'
  sequential:- args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)- tweaked: FALSE- call: NULL
  [20:22:29.689]  - Condition #234: 'simpleMessage', 'message', 'condition'
  [20:22:29.136] signalConditions() ... done
  [20:22:29.690]  - Condition #235: 'simpleMessage', 'message', 'condition'
  [20:22:29.137] - relayed: [n=2] TRUE, FALSE
  [20:22:29.690]  - Condition #236: 'simpleMessage', 'message', 'condition'
  [20:22:29.137] - queued futures: [n=2] TRUE, FALSE
  [20:22:29.690]  - Condition #237: 'simpleMessage', 'message', 'condition'
  [20:22:29.137] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [20:22:29.691]  - Condition #238: 'simpleMessage', 'message', 'condition'
  [20:22:29.145]  length: 1 (resolved future 1)
  [20:22:29.691]  - Condition #239: 'simpleMessage', 'message', 'condition'
  [20:22:29.298] Future #2
  [20:22:29.692]  - Condition #240: 'simpleMessage', 'message', 'condition'
  [20:22:29.298] result() for ClusterFuture ...
  [20:22:29.692]  - Condition #241: 'simpleMessage', 'message', 'condition'
  [20:22:29.299] - Validating connection of ClusterFuture
  [20:22:29.692]  - Condition #242: 'simpleMessage', 'message', 'condition'
  [20:22:29.342] - class(result): FutureResult
  [20:22:29.693]  - Condition #243: 'simpleMessage', 'message', 'condition'
  [20:22:29.343] result() for ClusterFuture ...
  [20:22:29.693]  - Condition #244: 'simpleMessage', 'message', 'condition'
  [20:22:29.343] - result already collected: FutureResult
  [20:22:29.693]  - Condition #245: 'simpleMessage', 'message', 'condition'
  [20:22:29.344] result() for ClusterFuture ... done
  [20:22:29.694]  - Condition #246: 'simpleMessage', 'message', 'condition'
  [20:22:29.344] signalConditions() ...
  [20:22:29.694]  - Condition #247: 'simpleMessage', 'message', 'condition'
  [20:22:29.344]  - include = 'immediateCondition'
  [20:22:29.694]  - Condition #248: 'simpleMessage', 'message', 'condition'
  [20:22:29.345]  - exclude = 
  [20:22:29.695]  - Condition #249: 'simpleMessage', 'message', 'condition'
  [20:22:29.345]  - resignal = FALSE
  [20:22:29.695]  - Condition #250: 'simpleMessage', 'message', 'condition'
  [20:22:29.345]  - Number of conditions: 2
  [20:22:29.695]  - Condition #251: 'simpleMessage', 'message', 'condition'
  [20:22:29.346] signalConditions() ... done
  [20:22:29.696]  - Condition #252: 'simpleMessage', 'message', 'condition'
  [20:22:29.346] result() for ClusterFuture ... done
  [20:22:29.696]  - Condition #253: 'simpleMessage', 'message', 'condition'
  [20:22:29.347] result() for ClusterFuture ...
  [20:22:29.697]  - Condition #254: 'simpleMessage', 'message', 'condition'
  [20:22:29.347] - result already collected: FutureResult
  [20:22:29.697]  - Condition #255: 'simpleMessage', 'message', 'condition'
  [20:22:29.347] result() for ClusterFuture ... done
  [20:22:29.697]  - Condition #256: 'simpleMessage', 'message', 'condition'
  [20:22:29.348] signalConditions() ...
  [20:22:29.698]  - Condition #257: 'simpleMessage', 'message', 'condition'
  [20:22:29.348]  - include = 'immediateCondition'
  [20:22:29.698]  - Condition #258: 'simpleMessage', 'message', 'condition'
  [20:22:29.349]  - exclude = 
  [20:22:29.698]  - Condition #259: 'simpleMessage', 'message', 'condition'
  [20:22:29.349]  - resignal = FALSE
  [20:22:29.699]  - Condition #260: 'simpleMessage', 'message', 'condition'
  [20:22:29.349]  - Number of conditions: 2
  [20:22:29.699]  - Condition #261: 'simpleMessage', 'message', 'condition'
  [20:22:29.350] signalConditions() ... done
  [20:22:29.699]  - Condition #262: 'simpleMessage', 'message', 'condition'
  [20:22:29.350] signalConditionsASAP(ClusterFuture, pos=2) ...
  [20:22:29.700]  - Condition #263: 'simpleMessage', 'message', 'condition'
  [20:22:29.351] - nx: 2
  [20:22:29.700]  - Condition #264: 'simpleMessage', 'message', 'condition'
  [20:22:29.351] - relay: TRUE
  [20:22:29.700]  - Condition #265: 'simpleMessage', 'message', 'condition'
  [20:22:29.351] - stdout: TRUE
  [20:22:29.701]  - Condition #266: 'simpleMessage', 'message', 'condition'
  [20:22:29.352] - signal: TRUE
  [20:22:29.701]  - Condition #267: 'simpleMessage', 'message', 'condition'
  [20:22:29.352] - resignal: FALSE
  [20:22:29.701]  - Condition #268: 'simpleMessage', 'message', 'condition'
  [20:22:29.352] - force: FALSE
  [20:22:29.718]  - Condition #269: 'simpleMessage', 'message', 'condition'
  [20:22:29.353] - relayed: [n=2] TRUE, FALSE
  [20:22:29.718]  - Condition #270: 'simpleMessage', 'message', 'condition'
  [20:22:29.353] - queued futures: [n=2] TRUE, FALSE
  [20:22:29.719]  - Condition #271: 'simpleMessage', 'message', 'condition'
  [20:22:29.353]  - until=2
  [20:22:29.719]  - Condition #272: 'simpleMessage', 'message', 'condition'
  [20:22:29.354]  - relaying element #2
  [20:22:29.719]  - Condition #273: 'simpleMessage', 'message', 'condition'
  [20:22:29.354] result() for ClusterFuture ...
  [20:22:29.720]  - Condition #274: 'simpleMessage', 'message', 'condition'
  [20:22:29.355] - result already collected: FutureResult
  [20:22:29.720]  - Condition #275: 'simpleMessage', 'message', 'condition'
  [20:22:29.355] result() for ClusterFuture ... done
  [20:22:29.720]  - Condition #276: 'simpleMessage', 'message', 'condition'
  [20:22:29.355] result() for ClusterFuture ...
  [20:22:29.720]  - Condition #277: 'simpleMessage', 'message', 'condition'
  [20:22:29.356] - result already collected: FutureResult
  [20:22:29.721]  - Condition #278: 'simpleMessage', 'message', 'condition'
  [20:22:29.356] result() for ClusterFuture ... done
  [20:22:29.721]  - Condition #279: 'simpleMessage', 'message', 'condition'
  [20:22:29.357] signalConditions() ...
  [20:22:29.721]  - Condition #280: 'simpleMessage', 'message', 'condition'
  [20:22:29.357]  - include = 'immediateCondition'
  [20:22:29.722]  - Condition #281: 'simpleMessage', 'message', 'condition'
  [20:22:29.357]  - exclude = 
  [20:22:29.722]  - Condition #282: 'simpleMessage', 'message', 'condition'
  [20:22:29.367]  - resignal = FALSE
  [20:22:29.722]  - Condition #283: 'simpleMessage', 'message', 'condition'
  [20:22:29.368]  - Number of conditions: 2
  [20:22:29.723]  - Condition #284: 'simpleMessage', 'message', 'condition'
  [20:22:29.368] signalConditions() ... done
  [20:22:29.723]  - Condition #285: 'simpleMessage', 'message', 'condition'
  [20:22:29.369] result() for ClusterFuture ...
  [20:22:29.723]  - Condition #286: 'simpleMessage', 'message', 'condition'
  [20:22:29.369] - result already collected: FutureResult
  [20:22:29.724]  - Condition #287: 'simpleMessage', 'message', 'condition'
  [20:22:29.370] result() for ClusterFuture ... done
  [20:22:29.724]  - Condition #288: 'simpleMessage', 'message', 'condition'
  [20:22:29.370] signalConditions() ...
  [20:22:29.724]  - Condition #289: 'simpleMessage', 'message', 'condition'
  [20:22:29.370]  - include = 'immediateCondition'
  [20:22:29.725]  - Condition #290: 'simpleMessage', 'message', 'condition'
  [20:22:29.371]  - exclude = 
  [20:22:29.725]  - Condition #291: 'simpleMessage', 'message', 'condition'
  [20:22:29.371]  - resignal = FALSE
  [20:22:29.725]  - Condition #292: 'simpleMessage', 'message', 'condition'
  [20:22:29.372]  - Number of conditions: 2
  [20:22:29.726]  - Condition #293: 'simpleMessage', 'message', 'condition'
  [20:22:29.372] signalConditions() ... done
  [20:22:29.726]  - Condition #294: 'simpleMessage', 'message', 'condition'
  [20:22:29.372] result() for ClusterFuture ...
  [20:22:29.726]  - Condition #295: 'simpleMessage', 'message', 'condition'
  [20:22:29.373] - result already collected: FutureResult
  [20:22:29.727]  - Condition #296: 'simpleMessage', 'message', 'condition'
  [20:22:29.373] result() for ClusterFuture ... done
  [20:22:29.727]  - Condition #297: 'simpleMessage', 'message', 'condition'
  [20:22:29.374] signalConditions() ...
  [20:22:29.727]  - Condition #298: 'simpleMessage', 'message', 'condition'
  [20:22:29.382]  - include = 'condition'
  [20:22:29.728]  - Condition #299: 'simpleMessage', 'message', 'condition'
  [20:22:29.383]  - exclude = 'immediateCondition'
  [20:22:29.728]  - Condition #300: 'simpleMessage', 'message', 'condition'
  [20:22:29.383]  - resignal = FALSE
  [20:22:29.728]  - Condition #301: 'simpleMessage', 'message', 'condition'
  [20:22:29.383]  - Number of conditions: 2
  [20:22:29.729]  - Condition #302: 'simpleMessage', 'message', 'condition'
  [20:22:29.384]  - Condition #1: 'simpleMessage', 'message', 'condition'
  [20:22:29.729]  - Condition #303: '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
  [20:22:29.730]  - Condition #304: 'simpleMessage', 'message', 'condition'
  [20:22:29.384]  - Condition #2: 'simpleMessage', 'message', 'condition'
  [20:22:29.730]  - Condition #305: '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
  [20:22:29.730]  - Condition #306: 'simpleMessage', 'message', 'condition'
  [20:22:29.385] signalConditions() ... done
  [20:22:29.731]  - Condition #307: 'simpleMessage', 'message', 'condition'
  [20:22:29.385] - relayed: [n=2] TRUE, TRUE
  [20:22:29.731]  - Condition #308: 'simpleMessage', 'message', 'condition'
  [20:22:29.386] - queued futures: [n=2] TRUE, TRUE
  [20:22:29.731]  - Condition #309: 'simpleMessage', 'message', 'condition'
  [20:22:29.386] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [20:22:29.732]  - Condition #310: 'simpleMessage', 'message', 'condition'
  [20:22:29.386]  length: 0 (resolved future 2)
  [20:22:29.732]  - Condition #311: 'simpleMessage', 'message', 'condition'
  [20:22:29.387] Relaying remaining futures
  [20:22:29.733]  - Condition #312: 'simpleMessage', 'message', 'condition'
  [20:22:29.387] signalConditionsASAP(NULL, pos=0) ...
  [20:22:29.733]  - Condition #313: 'simpleMessage', 'message', 'condition'
  [20:22:29.405] - nx: 2
  [20:22:29.733]  - Condition #314: 'simpleMessage', 'message', 'condition'
  [20:22:29.406] - relay: TRUE
  [20:22:29.750]  - Condition #315: 'simpleMessage', 'message', 'condition'
  [20:22:29.406] - stdout: TRUE
  [20:22:29.750]  - Condition #316: 'simpleMessage', 'message', 'condition'
  [20:22:29.407] - signal: TRUE
  [20:22:29.751]  - Condition #317: 'simpleMessage', 'message', 'condition'
  [20:22:29.407] - resignal: FALSE
  [20:22:29.751]  - Condition #318: 'simpleMessage', 'message', 'condition'
  [20:22:29.408] - force: FALSE
  [20:22:29.751]  - Condition #319: 'simpleMessage', 'message', 'condition'
  [20:22:29.408] - relayed: [n=2] TRUE, TRUE
  [20:22:29.752]  - Condition #320: 'simpleMessage', 'message', 'condition'
  [20:22:29.409] - queued futures: [n=2] TRUE, TRUE
  [20:22:29.752]  - Condition #321: 'simpleMessage', 'message', 'condition'
   - flush all
  [20:22:29.752]  - Condition #322: 'simpleMessage', 'message', 'condition'
  [20:22:29.409] - relayed: [n=2] TRUE, TRUE
  [20:22:29.753]  - Condition #323: 'simpleMessage', 'message', 'condition'
  [20:22:29.418] - queued futures: [n=2] TRUE, TRUE
  [20:22:29.753]  - Condition #324: 'simpleMessage', 'message', 'condition'
  [20:22:29.418] signalConditionsASAP(NULL, pos=0) ... done
  [20:22:29.753]  - Condition #325: 'simpleMessage', 'message', 'condition'
  [20:22:29.419] resolve() on list ... DONE
  [20:22:29.754]  - Condition #326: 'simpleMessage', 'message', 'condition'
  [20:22:29.419] - collecting values of futures
  [20:22:29.754]  - Condition #327: 'simpleMessage', 'message', 'condition'
  [20:22:29.420] result() for ClusterFuture ...
  [20:22:29.755]  - Condition #328: 'simpleMessage', 'message', 'condition'
  [20:22:29.420] - result already collected: FutureResult
  [20:22:29.755]  - Condition #329: 'simpleMessage', 'message', 'condition'
  [20:22:29.421] result() for ClusterFuture ... done
  [20:22:29.755]  - Condition #330: 'simpleMessage', 'message', 'condition'
  [20:22:29.421] result() for ClusterFuture ...
  [20:22:29.756]  - Condition #331: 'simpleMessage', 'message', 'condition'
  [20:22:29.421] - result already collected: FutureResult
  [20:22:29.756]  - Condition #332: 'simpleMessage', 'message', 'condition'
  [20:22:29.422] result() for ClusterFuture ... done
  [20:22:29.756]  - Condition #333: 'simpleMessage', 'message', 'condition'
  [20:22:29.422] signalConditions() ...
  [20:22:29.757]  - Condition #334: 'simpleMessage', 'message', 'condition'
  [20:22:29.423]  - include = 'immediateCondition'
  [20:22:29.762]  - Condition #335: 'simpleMessage', 'message', 'condition'
  [20:22:29.423]  - exclude = 
  [20:22:29.763]  - Condition #336: 'simpleMessage', 'message', 'condition'
  [20:22:29.424]  - resignal = FALSE
  [20:22:29.763]  - Condition #337: 'simpleMessage', 'message', 'condition'
  [20:22:29.424]  - Number of conditions: 1
  [20:22:29.764]  - Condition #338: 'simpleMessage', 'message', 'condition'
  [20:22:29.425] signalConditions() ... done
  [20:22:29.764]  - Condition #339: 'simpleMessage', 'message', 'condition'
  [20:22:29.425] result() for ClusterFuture ...
  [20:22:29.764]  - Condition #340: 'simpleMessage', 'message', 'condition'
  [20:22:29.425] - result already collected: FutureResult
  [20:22:29.765]  - Condition #341: 'simpleMessage', 'message', 'condition'
  [20:22:29.434] result() for ClusterFuture ... done
  [20:22:29.765]  - Condition #342: 'simpleMessage', 'message', 'condition'
  [20:22:29.435] result() for ClusterFuture ...
  [20:22:29.782]  - Condition #343: 'simpleMessage', 'message', 'condition'
  [20:22:29.435] - result already collected: FutureResult
  [20:22:29.782]  - Condition #344: 'simpleMessage', 'message', 'condition'
  [20:22:29.435] result() for ClusterFuture ... done
  [20:22:29.783]  - Condition #345: 'simpleMessage', 'message', 'condition'
  [20:22:29.436] signalConditions() ...
  [20:22:29.783]  - Condition #346: 'simpleMessage', 'message', 'condition'
  [20:22:29.436]  - include = 'immediateCondition'
  [20:22:29.783]  - Condition #347: 'simpleMessage', 'message', 'condition'
  [20:22:29.437]  - exclude = 
  [20:22:29.784]  - Condition #348: 'simpleMessage', 'message', 'condition'
  [20:22:29.437]  - resignal = FALSE
  [20:22:29.784]  - Condition #349: 'simpleMessage', 'message', 'condition'
  [20:22:29.437]  - Number of conditions: 2
  [20:22:29.785]  - Condition #350: 'simpleMessage', 'message', 'condition'
  [20:22:29.438] signalConditions() ... done
  [20:22:29.785]  - Condition #351: 'simpleMessage', 'message', 'condition'
  [20:22:29.438] - accumulating results
  [20:22:29.786]  - Condition #352: 'simpleMessage', 'message', 'condition'
  [20:22:29.440] - processing errors (handler = 'stop')
  [20:22:29.786]  - Condition #353: 'simpleMessage', 'message', 'condition'
  [20:22:29.440] - extracting results
  [20:22:29.786]  - Condition #354: 'simpleMessage', 'message', 'condition'
  [20:22:29.440] doFuture() ... DONE
  [20:22:29.787]  - Condition #355: 'simpleMessage', 'message', 'condition'
  foreach() - level 2 ... DONE
  [20:22:29.788] signalConditions() ... done
  [20:22:29.788] - relayed: [n=1] TRUE
  [20:22:29.788] - queued futures: [n=1] TRUE
  [20:22:29.789] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:22:29.789]  length: 0 (resolved future 1)
  [20:22:29.789] Relaying remaining futures
  [20:22:29.789] signalConditionsASAP(NULL, pos=0) ...
  [20:22:29.790] - nx: 1
  [20:22:29.790] - relay: TRUE
  [20:22:29.790] - stdout: TRUE
  [20:22:29.790] - signal: TRUE
  [20:22:29.791] - resignal: FALSE
  [20:22:29.791] - force: FALSE
  [20:22:29.791] - relayed: [n=1] TRUE
  [20:22:29.791] - queued futures: [n=1] TRUE
   - flush all
  [20:22:29.792] - relayed: [n=1] TRUE
  [20:22:29.792] - queued futures: [n=1] TRUE
  [20:22:29.792] signalConditionsASAP(NULL, pos=0) ... done
  [20:22:29.793] resolve() on list ... DONE
  [20:22:29.793] - collecting values of futures
  [20:22:29.793] signalConditions() ...
  [20:22:29.793]  - include = 'immediateCondition'
  [20:22:29.794]  - exclude = 
  [20:22:29.794]  - resignal = FALSE
  [20:22:29.794]  - Number of conditions: 355
  [20:22:29.795] signalConditions() ... done
  [20:22:29.795] - accumulating results
  [20:22:29.796] - processing errors (handler = 'stop')
  Error in { : 
    task 1 failed - "Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli2'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 36722 cannot be opened' (which suggests that this port is either already occupied by another process or blocked by the firewall on your local machine)
   * The localhost socket connection that failed to connect to the R worker used port 36722 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested_dopar.R:10507:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpLKlMpQ/future.parent=10507.290b197faea0.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=loc
  Calls: %dopar% -> <Anonymous>
  Execution halted