Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/2s]
  Running ‘doRNG,dopar.R’ [3s/34s]
  Running ‘doRNG,dorng.R’ [7s/38s]
  Running ‘foreach,errors.R’ [7s/102s]
  Running ‘foreach,globals.R’ [8s/104s]
  Running ‘foreach,nested.R’ [8s/125s]
  Running ‘foreach,nested_dopar.R’ [18s/233s]
  Running ‘foreach.R’ [12s/50s]
  Running ‘future.BatchJobs.R’ [28s/32s]
  Running ‘future.batchtools.R’ [35s/37s]
  Running ‘options.R’ [3s/20s]
  Running ‘registerDoFuture.R’ [2s/33s]
  Running ‘times.R’ [3s/34s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/0s]
  Running ‘zzz_opt-in,caret.R’ [0s/0s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/0s]
Running the tests in ‘tests/foreach,nested.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [13:41:41.570] plan(): Setting new future strategy stack:
  [13:41:41.571] List of future strategies:
  [13:41:41.571] 1. sequential:
  [13:41:41.571]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.571]    - tweaked: FALSE
  [13:41:41.571]    - call: future::plan(future::sequential)
  [13:41:41.573] 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("next"))
  +     }
  + 
  +     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')) ...
  [13:41:41.639] plan(): Setting new future strategy stack:
  [13:41:41.640] List of future strategies:
  [13:41:41.640] 1. sequential:
  [13:41:41.640]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.640]    - tweaked: FALSE
  [13:41:41.640]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.640] 2. sequential:
  [13:41:41.640]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.640]    - tweaked: FALSE
  [13:41:41.640]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.667] plan(): nbrOfWorkers() = 1
  [13:41:41.669] doFuture() ...
  [13:41:41.675] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:41.676] - R expression:
  [13:41:41.677] {
  [13:41:41.677]     doFuture::registerDoFuture()
  [13:41:41.677]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.677]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.677]         {
  [13:41:41.677]             a <- NULL
  [13:41:41.677]             b <- NULL
  [13:41:41.677]         }
  [13:41:41.677]         ...future.env <- environment()
  [13:41:41.677]         local({
  [13:41:41.677]             for (name in names(...future.x_jj)) {
  [13:41:41.677]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.677]                   inherits = FALSE)
  [13:41:41.677]             }
  [13:41:41.677]         })
  [13:41:41.677]         tryCatch({
  [13:41:41.677]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.677]                 plan = future::plan("next"))
  [13:41:41.677]         }, error = identity)
  [13:41:41.677]     })
  [13:41:41.677] }
  [13:41:41.678] - identifying globals and packages ...
  [13:41:41.680] getGlobalsAndPackages() ...
  [13:41:41.684] Searching for globals...
  [13:41:41.716] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:41.717] Searching for globals ... DONE
  [13:41:41.717] Resolving globals: FALSE
  [13:41:41.720] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:41.721] - globals: [1] '...future.x_ii'
  [13:41:41.721] 
  [13:41:41.722] getGlobalsAndPackages() ... DONE
  [13:41:41.722] List of 1
  [13:41:41.722]  $ ...future.x_ii: NULL
  [13:41:41.722]  - attr(*, "where")=List of 1
  [13:41:41.722]   ..$ ...future.x_ii:<environment: 0x5617cd5bad50> 
  [13:41:41.722]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:41.722]  - attr(*, "resolved")= logi FALSE
  [13:41:41.722]  - attr(*, "total_size")= num 0
  [13:41:41.734]   - R expression:
  [13:41:41.734] {
  [13:41:41.734]     doFuture::registerDoFuture()
  [13:41:41.734]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.734]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.734]         {
  [13:41:41.734]             a <- NULL
  [13:41:41.734]             b <- NULL
  [13:41:41.734]         }
  [13:41:41.734]         ...future.env <- environment()
  [13:41:41.734]         local({
  [13:41:41.734]             for (name in names(...future.x_jj)) {
  [13:41:41.734]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.734]                   inherits = FALSE)
  [13:41:41.734]             }
  [13:41:41.734]         })
  [13:41:41.734]         tryCatch({
  [13:41:41.734]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.734]                 plan = future::plan("next"))
  [13:41:41.734]         }, error = identity)
  [13:41:41.734]     })
  [13:41:41.734] }
  [13:41:41.735]   - globals: [1] '...future.x_ii'
  [13:41:41.736] List of 1
  [13:41:41.736]  $ ...future.x_ii: NULL
  [13:41:41.736]  - attr(*, "where")=List of 1
  [13:41:41.736]   ..$ ...future.x_ii:<environment: 0x5617cd5bad50> 
  [13:41:41.736]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:41.736]  - attr(*, "resolved")= logi FALSE
  [13:41:41.736]  - attr(*, "total_size")= num 0
  [13:41:41.742]   - packages: [1] 'doFuture'
  [13:41:41.742] - identifying globals and packages ... DONE
  [13:41:41.743] Number of chunks: 1
  [13:41:41.744] Number of futures (= number of chunks): 1
  [13:41:41.745] Launching 1 futures (chunks) ...
  [13:41:41.746] Chunk #1 of 1 ...
  [13:41:41.746]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:41.746] getGlobalsAndPackages() ...
  [13:41:41.747] Searching for globals...
  [13:41:41.748] 
  [13:41:41.748] Searching for globals ... DONE
  [13:41:41.749] - globals: [0] <none>
  [13:41:41.749] getGlobalsAndPackages() ... DONE
  [13:41:41.749] 
  [13:41:41.750] 
  [13:41:41.750]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:41.751] getGlobalsAndPackages() ...
  [13:41:41.751] - globals passed as-is: [1] '...future.x_ii'
  [13:41:41.752] Resolving globals: FALSE
  [13:41:41.753] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:41:41.753] - globals: [1] '...future.x_ii'
  [13:41:41.754] 
  [13:41:41.754] getGlobalsAndPackages() ... DONE
  [13:41:41.757] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:41.758] Packages needed by future strategies (n = 1): 'future'
  [13:41:41.765] {
  [13:41:41.765]     {
  [13:41:41.765]         ...future.startTime <- base::Sys.time()
  [13:41:41.765]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:41.765]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:41.765]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [13:41:41.765]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:41.765]             future.resolve.recursive = NULL, width = 80L)
  [13:41:41.765]         {
  [13:41:41.765]             {
  [13:41:41.765]                 {
  [13:41:41.765]                   has_future <- base::requireNamespace("future", 
  [13:41:41.765]                     quietly = TRUE)
  [13:41:41.765]                   version <- if (has_future) 
  [13:41:41.765]                     utils::packageVersion("future")
  [13:41:41.765]                   else NULL
  [13:41:41.765]                   if (!has_future || version < "1.8.0") {
  [13:41:41.765]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:41:41.765]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:41:41.765]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:41.765]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:41.765]                         "release", "version")], collapse = " "), 
  [13:41:41.765]                       hostname = base::Sys.info()[["nodename"]])
  [13:41:41.765]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:41.765]                       info)
  [13:41:41.765]                     info <- base::paste(info, collapse = "; ")
  [13:41:41.765]                     if (!has_future) {
  [13:41:41.765]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:41.765]                         info)
  [13:41:41.765]                     }
  [13:41:41.765]                     else {
  [13:41:41.765]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:41.765]                         info, version)
  [13:41:41.765]                     }
  [13:41:41.765]                     base::stop(msg)
  [13:41:41.765]                   }
  [13:41:41.765]                 }
  [13:41:41.765]                 base::local({
  [13:41:41.765]                   for (pkg in c("doFuture", "future")) {
  [13:41:41.765]                     base::loadNamespace(pkg)
  [13:41:41.765]                     base::library(pkg, character.only = TRUE)
  [13:41:41.765]                   }
  [13:41:41.765]                 })
  [13:41:41.765]             }
  [13:41:41.765]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:41.765]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:41.765]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:41.765]                 label = NULL, ...) 
  [13:41:41.765]             {
  [13:41:41.765]                 if (substitute) 
  [13:41:41.765]                   expr <- substitute(expr)
  [13:41:41.765]                 local <- as.logical(local)
  [13:41:41.765]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:41.765]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.765]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:41.765]                   label = label, ...)
  [13:41:41.765]                 if (!future$lazy) 
  [13:41:41.765]                   future <- run(future)
  [13:41:41.765]                 invisible(future)
  [13:41:41.765]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:41.765]         }
  [13:41:41.765]     }
  [13:41:41.765]     if (base::is.na(TRUE)) {
  [13:41:41.765]     }
  [13:41:41.765]     else {
  [13:41:41.765]         if (TRUE) {
  [13:41:41.765]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:41.765]                 open = "w")
  [13:41:41.765]         }
  [13:41:41.765]         else {
  [13:41:41.765]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:41.765]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:41.765]         }
  [13:41:41.765]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:41.765]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:41.765]             base::sink(type = "output", split = FALSE)
  [13:41:41.765]             base::close(...future.stdout)
  [13:41:41.765]         }, add = TRUE)
  [13:41:41.765]     }
  [13:41:41.765]     ...future.frame <- base::sys.nframe()
  [13:41:41.765]     ...future.conditions <- base::list()
  [13:41:41.765]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:41.765]     ...future.result <- base::tryCatch({
  [13:41:41.765]         base::withCallingHandlers({
  [13:41:41.765]             ...future.value <- base::withVisible(base::local({
  [13:41:41.765]                 doFuture::registerDoFuture()
  [13:41:41.765]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.765]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.765]                   {
  [13:41:41.765]                     a <- NULL
  [13:41:41.765]                     b <- NULL
  [13:41:41.765]                   }
  [13:41:41.765]                   ...future.env <- environment()
  [13:41:41.765]                   local({
  [13:41:41.765]                     for (name in names(...future.x_jj)) {
  [13:41:41.765]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.765]                         inherits = FALSE)
  [13:41:41.765]                     }
  [13:41:41.765]                   })
  [13:41:41.765]                   tryCatch({
  [13:41:41.765]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.765]                       plan = future::plan("next"))
  [13:41:41.765]                   }, error = identity)
  [13:41:41.765]                 })
  [13:41:41.765]             }))
  [13:41:41.765]             future::FutureResult(value = ...future.value$value, 
  [13:41:41.765]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:41.765]                   ...future.rng), started = ...future.startTime, 
  [13:41:41.765]                 version = "1.8")
  [13:41:41.765]         }, condition = base::local({
  [13:41:41.765]             c <- base::c
  [13:41:41.765]             inherits <- base::inherits
  [13:41:41.765]             invokeRestart <- base::invokeRestart
  [13:41:41.765]             length <- base::length
  [13:41:41.765]             list <- base::list
  [13:41:41.765]             seq.int <- base::seq.int
  [13:41:41.765]             signalCondition <- base::signalCondition
  [13:41:41.765]             sys.calls <- base::sys.calls
  [13:41:41.765]             Sys.time <- base::Sys.time
  [13:41:41.765]             `[[` <- base::`[[`
  [13:41:41.765]             `+` <- base::`+`
  [13:41:41.765]             `<<-` <- base::`<<-`
  [13:41:41.765]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:41.765]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:41.765]                   3L)]
  [13:41:41.765]             }
  [13:41:41.765]             function(cond) {
  [13:41:41.765]                 if (inherits(cond, "error")) {
  [13:41:41.765]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:41.765]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:41.765]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:41.765]                   signalCondition(cond)
  [13:41:41.765]                 }
  [13:41:41.765]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:41.765]                 ))) {
  [13:41:41.765]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:41.765]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:41.765]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:41.765]                   if (!signal) {
  [13:41:41.765]                     muffleCondition <- function (cond) 
  [13:41:41.765]                     {
  [13:41:41.765]                       inherits <- base::inherits
  [13:41:41.765]                       invokeRestart <- base::invokeRestart
  [13:41:41.765]                       muffled <- FALSE
  [13:41:41.765]                       if (inherits(cond, "message")) {
  [13:41:41.765]                         invokeRestart("muffleMessage")
  [13:41:41.765]                         muffled <- TRUE
  [13:41:41.765]                       }
  [13:41:41.765]                       else if (inherits(cond, "warning")) {
  [13:41:41.765]                         invokeRestart("muffleWarning")
  [13:41:41.765]                         muffled <- TRUE
  [13:41:41.765]                       }
  [13:41:41.765]                       else if (inherits(cond, "condition")) {
  [13:41:41.765]                         computeRestarts <- base::computeRestarts
  [13:41:41.765]                         grepl <- base::grepl
  [13:41:41.765]                         is.null <- base::is.null
  [13:41:41.765]                         restarts <- computeRestarts(cond)
  [13:41:41.765]                         for (restart in restarts) {
  [13:41:41.765]                           name <- restart$name
  [13:41:41.765]                           if (is.null(name)) 
  [13:41:41.765]                             next
  [13:41:41.765]                           if (!grepl("^muffle", name)) 
  [13:41:41.765]                             next
  [13:41:41.765]                           invokeRestart(restart)
  [13:41:41.765]                           muffled <- TRUE
  [13:41:41.765]                           break
  [13:41:41.765]                         }
  [13:41:41.765]                       }
  [13:41:41.765]                       invisible(muffled)
  [13:41:41.765]                     }
  [13:41:41.765]                     muffleCondition(cond)
  [13:41:41.765]                   }
  [13:41:41.765]                 }
  [13:41:41.765]             }
  [13:41:41.765]         }))
  [13:41:41.765]     }, error = function(ex) {
  [13:41:41.765]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:41.765]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:41.765]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:41.765]     }, finally = {
  [13:41:41.765]         {
  [13:41:41.765]             NULL
  [13:41:41.765]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:41.765]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:41.765]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:41.765]                 label = NULL, ...) 
  [13:41:41.765]             {
  [13:41:41.765]                 if (substitute) 
  [13:41:41.765]                   expr <- substitute(expr)
  [13:41:41.765]                 local <- as.logical(local)
  [13:41:41.765]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:41.765]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.765]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:41.765]                   label = label, ...)
  [13:41:41.765]                 if (!future$lazy) 
  [13:41:41.765]                   future <- run(future)
  [13:41:41.765]                 invisible(future)
  [13:41:41.765]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:41.765]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:41.765]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:41.765]             {
  [13:41:41.765]                 if (substitute) 
  [13:41:41.765]                   expr <- substitute(expr)
  [13:41:41.765]                 local <- as.logical(local)
  [13:41:41.765]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:41.765]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.765]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:41.765]                   label = label, ...)
  [13:41:41.765]                 if (!future$lazy) 
  [13:41:41.765]                   future <- run(future)
  [13:41:41.765]                 invisible(future)
  [13:41:41.765]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:41.765]         }
  [13:41:41.765]         base::options(...future.oldOptions)
  [13:41:41.765]     })
  [13:41:41.765]     Sys.time
  [13:41:41.765]     if (base::is.na(TRUE)) {
  [13:41:41.765]     }
  [13:41:41.765]     else {
  [13:41:41.765]         base::sink(type = "output", split = FALSE)
  [13:41:41.765]         if (TRUE) {
  [13:41:41.765]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:41.765]         }
  [13:41:41.765]         else {
  [13:41:41.765]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:41.765]         }
  [13:41:41.765]         base::close(...future.stdout)
  [13:41:41.765]         ...future.stdout <- NULL
  [13:41:41.765]     }
  [13:41:41.765]     ...future.result$conditions <- ...future.conditions
  [13:41:41.765]     ...future.result
  [13:41:41.765] }
  [13:41:41.773] plan(): Setting new future strategy stack:
  [13:41:41.773] List of future strategies:
  [13:41:41.773] 1. sequential:
  [13:41:41.773]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.773]    - tweaked: FALSE
  [13:41:41.773]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.774] plan(): nbrOfWorkers() = 1
  [13:41:41.800] plan(): Setting new future strategy stack:
  [13:41:41.800] List of future strategies:
  [13:41:41.800] 1. sequential:
  [13:41:41.800]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.800]    - tweaked: FALSE
  [13:41:41.800]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.800] 2. sequential:
  [13:41:41.800]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.800]    - tweaked: FALSE
  [13:41:41.800]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.802] plan(): nbrOfWorkers() = 1
  [13:41:41.802] SequentialFuture started (and completed)
  [13:41:41.804] Chunk #1 of 1 ... DONE
  [13:41:41.804] Launching 1 futures (chunks) ... DONE
  [13:41:41.804] - resolving futures
  [13:41:41.805]   - gathering results & relaying conditions (except errors)
  [13:41:41.805] resolve() on list ...
  [13:41:41.806]  recursive: 0
  [13:41:41.807]  length: 1
  [13:41:41.807] 
  [13:41:41.807] Future #1
  [13:41:41.808] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:41:41.808] - nx: 1
  [13:41:41.809] - relay: TRUE
  [13:41:41.809] - stdout: TRUE
  [13:41:41.809] - signal: TRUE
  [13:41:41.810] - resignal: FALSE
  [13:41:41.810] - force: FALSE
  [13:41:41.810] - relayed: [n=1] FALSE
  [13:41:41.810] - queued futures: [n=1] FALSE
  [13:41:41.811]  - until=1
  [13:41:41.811]  - relaying element #1
  [13:41:41.811] - relayed: [n=1] TRUE
  [13:41:41.812] - queued futures: [n=1] TRUE
  [13:41:41.812] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:41:41.813]  length: 0 (resolved future 1)
  [13:41:41.813] Relaying remaining futures
  [13:41:41.813] signalConditionsASAP(NULL, pos=0) ...
  [13:41:41.813] - nx: 1
  [13:41:41.814] - relay: TRUE
  [13:41:41.814] - stdout: TRUE
  [13:41:41.814] - signal: TRUE
  [13:41:41.815] - resignal: FALSE
  [13:41:41.815] - force: FALSE
  [13:41:41.815] - relayed: [n=1] TRUE
  [13:41:41.815] - queued futures: [n=1] TRUE
   - flush all
  [13:41:41.816] - relayed: [n=1] TRUE
  [13:41:41.816] - queued futures: [n=1] TRUE
  [13:41:41.817] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:41.817] resolve() on list ... DONE
  [13:41:41.817] - collecting values of futures
  [13:41:41.818] - accumulating results
  [13:41:41.822] - processing errors (handler = 'stop')
  [13:41:41.823] - extracting results
  [13:41:41.823] doFuture() ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [13:41:41.824] plan(): Setting new future strategy stack:
  [13:41:41.825] List of future strategies:
  [13:41:41.825] 1. sequential:
  [13:41:41.825]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.825]    - tweaked: FALSE
  [13:41:41.825]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.825] 2. multicore:
  [13:41:41.825]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:41.825]    - tweaked: FALSE
  [13:41:41.825]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.826] plan(): nbrOfWorkers() = 1
  [13:41:41.827] doFuture() ...
  [13:41:41.832] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:41.833] - R expression:
  [13:41:41.833] {
  [13:41:41.833]     doFuture::registerDoFuture()
  [13:41:41.833]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.833]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.833]         {
  [13:41:41.833]             a <- NULL
  [13:41:41.833]             b <- NULL
  [13:41:41.833]         }
  [13:41:41.833]         ...future.env <- environment()
  [13:41:41.833]         local({
  [13:41:41.833]             for (name in names(...future.x_jj)) {
  [13:41:41.833]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.833]                   inherits = FALSE)
  [13:41:41.833]             }
  [13:41:41.833]         })
  [13:41:41.833]         tryCatch({
  [13:41:41.833]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.833]                 plan = future::plan("next"))
  [13:41:41.833]         }, error = identity)
  [13:41:41.833]     })
  [13:41:41.833] }
  [13:41:41.834] - identifying globals and packages ...
  [13:41:41.834] getGlobalsAndPackages() ...
  [13:41:41.835] Searching for globals...
  [13:41:41.850] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:41.851] Searching for globals ... DONE
  [13:41:41.851] Resolving globals: FALSE
  [13:41:41.857] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:41.858] - globals: [1] '...future.x_ii'
  [13:41:41.858] 
  [13:41:41.859] getGlobalsAndPackages() ... DONE
  [13:41:41.859] List of 1
  [13:41:41.859]  $ ...future.x_ii: NULL
  [13:41:41.859]  - attr(*, "where")=List of 1
  [13:41:41.859]   ..$ ...future.x_ii:<environment: 0x5617ccdc1fc8> 
  [13:41:41.859]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:41.859]  - attr(*, "resolved")= logi FALSE
  [13:41:41.859]  - attr(*, "total_size")= num 0
  [13:41:41.866]   - R expression:
  [13:41:41.866] {
  [13:41:41.866]     doFuture::registerDoFuture()
  [13:41:41.866]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.866]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.866]         {
  [13:41:41.866]             a <- NULL
  [13:41:41.866]             b <- NULL
  [13:41:41.866]         }
  [13:41:41.866]         ...future.env <- environment()
  [13:41:41.866]         local({
  [13:41:41.866]             for (name in names(...future.x_jj)) {
  [13:41:41.866]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.866]                   inherits = FALSE)
  [13:41:41.866]             }
  [13:41:41.866]         })
  [13:41:41.866]         tryCatch({
  [13:41:41.866]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.866]                 plan = future::plan("next"))
  [13:41:41.866]         }, error = identity)
  [13:41:41.866]     })
  [13:41:41.866] }
  [13:41:41.867]   - globals: [1] '...future.x_ii'
  [13:41:41.868] List of 1
  [13:41:41.868]  $ ...future.x_ii: NULL
  [13:41:41.868]  - attr(*, "where")=List of 1
  [13:41:41.868]   ..$ ...future.x_ii:<environment: 0x5617ccdc1fc8> 
  [13:41:41.868]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:41.868]  - attr(*, "resolved")= logi FALSE
  [13:41:41.868]  - attr(*, "total_size")= num 0
  [13:41:41.874]   - packages: [1] 'doFuture'
  [13:41:41.875] - identifying globals and packages ... DONE
  [13:41:41.875] Number of chunks: 1
  [13:41:41.875] Number of futures (= number of chunks): 1
  [13:41:41.876] Launching 1 futures (chunks) ...
  [13:41:41.877] Chunk #1 of 1 ...
  [13:41:41.877]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:41.877] getGlobalsAndPackages() ...
  [13:41:41.878] Searching for globals...
  [13:41:41.879] 
  [13:41:41.883] Searching for globals ... DONE
  [13:41:41.884] - globals: [0] <none>
  [13:41:41.884] getGlobalsAndPackages() ... DONE
  [13:41:41.884] 
  [13:41:41.884] 
  [13:41:41.885]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:41.885] getGlobalsAndPackages() ...
  [13:41:41.886] - globals passed as-is: [1] '...future.x_ii'
  [13:41:41.886] Resolving globals: FALSE
  [13:41:41.887] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:41:41.888] - globals: [1] '...future.x_ii'
  [13:41:41.888] 
  [13:41:41.888] getGlobalsAndPackages() ... DONE
  [13:41:41.891] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:41.891] Packages needed by future strategies (n = 1): 'future'
  [13:41:41.897] {
  [13:41:41.897]     {
  [13:41:41.897]         ...future.startTime <- base::Sys.time()
  [13:41:41.897]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:41.897]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:41.897]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:41.897]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:41.897]             future.resolve.recursive = NULL, width = 80L)
  [13:41:41.897]         {
  [13:41:41.897]             {
  [13:41:41.897]                 {
  [13:41:41.897]                   has_future <- base::requireNamespace("future", 
  [13:41:41.897]                     quietly = TRUE)
  [13:41:41.897]                   version <- if (has_future) 
  [13:41:41.897]                     utils::packageVersion("future")
  [13:41:41.897]                   else NULL
  [13:41:41.897]                   if (!has_future || version < "1.8.0") {
  [13:41:41.897]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:41:41.897]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:41:41.897]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:41.897]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:41.897]                         "release", "version")], collapse = " "), 
  [13:41:41.897]                       hostname = base::Sys.info()[["nodename"]])
  [13:41:41.897]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:41.897]                       info)
  [13:41:41.897]                     info <- base::paste(info, collapse = "; ")
  [13:41:41.897]                     if (!has_future) {
  [13:41:41.897]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:41.897]                         info)
  [13:41:41.897]                     }
  [13:41:41.897]                     else {
  [13:41:41.897]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:41.897]                         info, version)
  [13:41:41.897]                     }
  [13:41:41.897]                     base::stop(msg)
  [13:41:41.897]                   }
  [13:41:41.897]                 }
  [13:41:41.897]                 base::local({
  [13:41:41.897]                   for (pkg in c("doFuture", "future")) {
  [13:41:41.897]                     base::loadNamespace(pkg)
  [13:41:41.897]                     base::library(pkg, character.only = TRUE)
  [13:41:41.897]                   }
  [13:41:41.897]                 })
  [13:41:41.897]             }
  [13:41:41.897]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:41.897]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:41.897]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:41.897]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:41.897]             {
  [13:41:41.897]                 if (substitute) 
  [13:41:41.897]                   expr <- substitute(expr)
  [13:41:41.897]                 if (is.function(workers)) 
  [13:41:41.897]                   workers <- workers()
  [13:41:41.897]                 workers <- as.integer(workers)
  [13:41:41.897]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:41.897]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:41.897]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:41.897]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:41.897]                     local = TRUE, label = label, ...))
  [13:41:41.897]                 }
  [13:41:41.897]                 oopts <- options(mc.cores = workers)
  [13:41:41.897]                 on.exit(options(oopts))
  [13:41:41.897]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:41.897]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.897]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:41.897]                   label = label, ...)
  [13:41:41.897]                 if (!future$lazy) 
  [13:41:41.897]                   future <- run(future)
  [13:41:41.897]                 invisible(future)
  [13:41:41.897]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:41.897]         }
  [13:41:41.897]     }
  [13:41:41.897]     if (base::is.na(TRUE)) {
  [13:41:41.897]     }
  [13:41:41.897]     else {
  [13:41:41.897]         if (TRUE) {
  [13:41:41.897]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:41.897]                 open = "w")
  [13:41:41.897]         }
  [13:41:41.897]         else {
  [13:41:41.897]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:41.897]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:41.897]         }
  [13:41:41.897]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:41.897]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:41.897]             base::sink(type = "output", split = FALSE)
  [13:41:41.897]             base::close(...future.stdout)
  [13:41:41.897]         }, add = TRUE)
  [13:41:41.897]     }
  [13:41:41.897]     ...future.frame <- base::sys.nframe()
  [13:41:41.897]     ...future.conditions <- base::list()
  [13:41:41.897]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:41.897]     ...future.result <- base::tryCatch({
  [13:41:41.897]         base::withCallingHandlers({
  [13:41:41.897]             ...future.value <- base::withVisible(base::local({
  [13:41:41.897]                 doFuture::registerDoFuture()
  [13:41:41.897]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:41.897]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:41.897]                   {
  [13:41:41.897]                     a <- NULL
  [13:41:41.897]                     b <- NULL
  [13:41:41.897]                   }
  [13:41:41.897]                   ...future.env <- environment()
  [13:41:41.897]                   local({
  [13:41:41.897]                     for (name in names(...future.x_jj)) {
  [13:41:41.897]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:41.897]                         inherits = FALSE)
  [13:41:41.897]                     }
  [13:41:41.897]                   })
  [13:41:41.897]                   tryCatch({
  [13:41:41.897]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:41.897]                       plan = future::plan("next"))
  [13:41:41.897]                   }, error = identity)
  [13:41:41.897]                 })
  [13:41:41.897]             }))
  [13:41:41.897]             future::FutureResult(value = ...future.value$value, 
  [13:41:41.897]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:41.897]                   ...future.rng), started = ...future.startTime, 
  [13:41:41.897]                 version = "1.8")
  [13:41:41.897]         }, condition = base::local({
  [13:41:41.897]             c <- base::c
  [13:41:41.897]             inherits <- base::inherits
  [13:41:41.897]             invokeRestart <- base::invokeRestart
  [13:41:41.897]             length <- base::length
  [13:41:41.897]             list <- base::list
  [13:41:41.897]             seq.int <- base::seq.int
  [13:41:41.897]             signalCondition <- base::signalCondition
  [13:41:41.897]             sys.calls <- base::sys.calls
  [13:41:41.897]             Sys.time <- base::Sys.time
  [13:41:41.897]             `[[` <- base::`[[`
  [13:41:41.897]             `+` <- base::`+`
  [13:41:41.897]             `<<-` <- base::`<<-`
  [13:41:41.897]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:41.897]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:41.897]                   3L)]
  [13:41:41.897]             }
  [13:41:41.897]             function(cond) {
  [13:41:41.897]                 if (inherits(cond, "error")) {
  [13:41:41.897]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:41.897]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:41.897]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:41.897]                   signalCondition(cond)
  [13:41:41.897]                 }
  [13:41:41.897]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:41.897]                 ))) {
  [13:41:41.897]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:41.897]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:41.897]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:41.897]                   if (!signal) {
  [13:41:41.897]                     muffleCondition <- function (cond) 
  [13:41:41.897]                     {
  [13:41:41.897]                       inherits <- base::inherits
  [13:41:41.897]                       invokeRestart <- base::invokeRestart
  [13:41:41.897]                       muffled <- FALSE
  [13:41:41.897]                       if (inherits(cond, "message")) {
  [13:41:41.897]                         invokeRestart("muffleMessage")
  [13:41:41.897]                         muffled <- TRUE
  [13:41:41.897]                       }
  [13:41:41.897]                       else if (inherits(cond, "warning")) {
  [13:41:41.897]                         invokeRestart("muffleWarning")
  [13:41:41.897]                         muffled <- TRUE
  [13:41:41.897]                       }
  [13:41:41.897]                       else if (inherits(cond, "condition")) {
  [13:41:41.897]                         computeRestarts <- base::computeRestarts
  [13:41:41.897]                         grepl <- base::grepl
  [13:41:41.897]                         is.null <- base::is.null
  [13:41:41.897]                         restarts <- computeRestarts(cond)
  [13:41:41.897]                         for (restart in restarts) {
  [13:41:41.897]                           name <- restart$name
  [13:41:41.897]                           if (is.null(name)) 
  [13:41:41.897]                             next
  [13:41:41.897]                           if (!grepl("^muffle", name)) 
  [13:41:41.897]                             next
  [13:41:41.897]                           invokeRestart(restart)
  [13:41:41.897]                           muffled <- TRUE
  [13:41:41.897]                           break
  [13:41:41.897]                         }
  [13:41:41.897]                       }
  [13:41:41.897]                       invisible(muffled)
  [13:41:41.897]                     }
  [13:41:41.897]                     muffleCondition(cond)
  [13:41:41.897]                   }
  [13:41:41.897]                 }
  [13:41:41.897]             }
  [13:41:41.897]         }))
  [13:41:41.897]     }, error = function(ex) {
  [13:41:41.897]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:41.897]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:41.897]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:41.897]     }, finally = {
  [13:41:41.897]         {
  [13:41:41.897]             NULL
  [13:41:41.897]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:41.897]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:41.897]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:41.897]                 label = NULL, ...) 
  [13:41:41.897]             {
  [13:41:41.897]                 if (substitute) 
  [13:41:41.897]                   expr <- substitute(expr)
  [13:41:41.897]                 local <- as.logical(local)
  [13:41:41.897]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:41.897]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.897]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:41.897]                   label = label, ...)
  [13:41:41.897]                 if (!future$lazy) 
  [13:41:41.897]                   future <- run(future)
  [13:41:41.897]                 invisible(future)
  [13:41:41.897]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:41.897]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:41.897]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:41.897]             {
  [13:41:41.897]                 if (substitute) 
  [13:41:41.897]                   expr <- substitute(expr)
  [13:41:41.897]                 if (is.function(workers)) 
  [13:41:41.897]                   workers <- workers()
  [13:41:41.897]                 workers <- as.integer(workers)
  [13:41:41.897]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:41.897]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:41.897]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:41.897]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:41.897]                     local = TRUE, label = label, ...))
  [13:41:41.897]                 }
  [13:41:41.897]                 oopts <- options(mc.cores = workers)
  [13:41:41.897]                 on.exit(options(oopts))
  [13:41:41.897]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:41.897]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:41.897]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:41.897]                   label = label, ...)
  [13:41:41.897]                 if (!future$lazy) 
  [13:41:41.897]                   future <- run(future)
  [13:41:41.897]                 invisible(future)
  [13:41:41.897]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:41.897]         }
  [13:41:41.897]         base::options(...future.oldOptions)
  [13:41:41.897]     })
  [13:41:41.897]     Sys.time
  [13:41:41.897]     if (base::is.na(TRUE)) {
  [13:41:41.897]     }
  [13:41:41.897]     else {
  [13:41:41.897]         base::sink(type = "output", split = FALSE)
  [13:41:41.897]         if (TRUE) {
  [13:41:41.897]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:41.897]         }
  [13:41:41.897]         else {
  [13:41:41.897]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:41.897]         }
  [13:41:41.897]         base::close(...future.stdout)
  [13:41:41.897]         ...future.stdout <- NULL
  [13:41:41.897]     }
  [13:41:41.897]     ...future.result$conditions <- ...future.conditions
  [13:41:41.897]     ...future.result
  [13:41:41.897] }
  [13:41:41.906] plan(): Setting new future strategy stack:
  [13:41:41.906] List of future strategies:
  [13:41:41.906] 1. multicore:
  [13:41:41.906]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:41.906]    - tweaked: FALSE
  [13:41:41.906]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.968] plan(): nbrOfWorkers() = 2
  [13:41:41.971] plan(): Setting new future strategy stack:
  [13:41:41.971] List of future strategies:
  [13:41:41.971] 1. sequential:
  [13:41:41.971]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:41.971]    - tweaked: FALSE
  [13:41:41.971]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.971] 2. multicore:
  [13:41:41.971]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:41.971]    - tweaked: FALSE
  [13:41:41.971]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:41.973] plan(): nbrOfWorkers() = 1
  [13:41:41.974] SequentialFuture started (and completed)
  [13:41:41.974] Chunk #1 of 1 ... DONE
  [13:41:41.974] Launching 1 futures (chunks) ... DONE
  [13:41:41.975] - resolving futures
  [13:41:41.975]   - gathering results & relaying conditions (except errors)
  [13:41:41.975] resolve() on list ...
  [13:41:41.976]  recursive: 0
  [13:41:41.976]  length: 1
  [13:41:41.977] 
  [13:41:41.977] Future #1
  [13:41:41.977] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:41:41.978] - nx: 1
  [13:41:41.978] - relay: TRUE
  [13:41:41.978] - stdout: TRUE
  [13:41:41.979] - signal: TRUE
  [13:41:41.979] - resignal: FALSE
  [13:41:41.979] - force: FALSE
  [13:41:41.979] - relayed: [n=1] FALSE
  [13:41:41.980] - queued futures: [n=1] FALSE
  [13:41:41.980]  - until=1
  [13:41:41.980]  - relaying element #1
  [13:41:41.981] - relayed: [n=1] TRUE
  [13:41:41.981] - queued futures: [n=1] TRUE
  [13:41:41.982] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:41:41.982]  length: 0 (resolved future 1)
  [13:41:41.982] Relaying remaining futures
  [13:41:41.983] signalConditionsASAP(NULL, pos=0) ...
  [13:41:41.983] - nx: 1
  [13:41:41.983] - relay: TRUE
  [13:41:41.983] - stdout: TRUE
  [13:41:41.984] - signal: TRUE
  [13:41:41.984] - resignal: FALSE
  [13:41:41.984] - force: FALSE
  [13:41:41.985] - relayed: [n=1] TRUE
  [13:41:41.985] - queued futures: [n=1] TRUE
   - flush all
  [13:41:41.985] - relayed: [n=1] TRUE
  [13:41:41.986] - queued futures: [n=1] TRUE
  [13:41:41.986] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:41.986] resolve() on list ... DONE
  [13:41:41.987] - collecting values of futures
  [13:41:41.987] - accumulating results
  [13:41:41.990] - processing errors (handler = 'stop')
  [13:41:41.990] - extracting results
  [13:41:42.007] doFuture() ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [13:41:42.008] plan(): Setting new future strategy stack:
  [13:41:42.009] List of future strategies:
  [13:41:42.009] 1. sequential:
  [13:41:42.009]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.009]    - tweaked: FALSE
  [13:41:42.009]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.009] 2. multisession:
  [13:41:42.009]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.009]    - tweaked: FALSE
  [13:41:42.009]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.010] plan(): nbrOfWorkers() = 1
  [13:41:42.011] doFuture() ...
  [13:41:42.028] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:42.029] - R expression:
  [13:41:42.033] {
  [13:41:42.033]     doFuture::registerDoFuture()
  [13:41:42.033]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.033]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.033]         {
  [13:41:42.033]             a <- NULL
  [13:41:42.033]             b <- NULL
  [13:41:42.033]         }
  [13:41:42.033]         ...future.env <- environment()
  [13:41:42.033]         local({
  [13:41:42.033]             for (name in names(...future.x_jj)) {
  [13:41:42.033]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.033]                   inherits = FALSE)
  [13:41:42.033]             }
  [13:41:42.033]         })
  [13:41:42.033]         tryCatch({
  [13:41:42.033]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.033]                 plan = future::plan("next"))
  [13:41:42.033]         }, error = identity)
  [13:41:42.033]     })
  [13:41:42.033] }
  [13:41:42.034] - identifying globals and packages ...
  [13:41:42.035] getGlobalsAndPackages() ...
  [13:41:42.035] Searching for globals...
  [13:41:42.060] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:42.061] Searching for globals ... DONE
  [13:41:42.061] Resolving globals: FALSE
  [13:41:42.091] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:42.091] - globals: [1] '...future.x_ii'
  [13:41:42.092] 
  [13:41:42.092] getGlobalsAndPackages() ... DONE
  [13:41:42.093] List of 1
  [13:41:42.093]  $ ...future.x_ii: NULL
  [13:41:42.093]  - attr(*, "where")=List of 1
  [13:41:42.093]   ..$ ...future.x_ii:<environment: 0x5617cbdbafa8> 
  [13:41:42.093]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.093]  - attr(*, "resolved")= logi FALSE
  [13:41:42.093]  - attr(*, "total_size")= num 0
  [13:41:42.100]   - R expression:
  [13:41:42.100] {
  [13:41:42.100]     doFuture::registerDoFuture()
  [13:41:42.100]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.100]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.100]         {
  [13:41:42.100]             a <- NULL
  [13:41:42.100]             b <- NULL
  [13:41:42.100]         }
  [13:41:42.100]         ...future.env <- environment()
  [13:41:42.100]         local({
  [13:41:42.100]             for (name in names(...future.x_jj)) {
  [13:41:42.100]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.100]                   inherits = FALSE)
  [13:41:42.100]             }
  [13:41:42.100]         })
  [13:41:42.100]         tryCatch({
  [13:41:42.100]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.100]                 plan = future::plan("next"))
  [13:41:42.100]         }, error = identity)
  [13:41:42.100]     })
  [13:41:42.100] }
  [13:41:42.101]   - globals: [1] '...future.x_ii'
  [13:41:42.101] List of 1
  [13:41:42.101]  $ ...future.x_ii: NULL
  [13:41:42.101]  - attr(*, "where")=List of 1
  [13:41:42.101]   ..$ ...future.x_ii:<environment: 0x5617cbdbafa8> 
  [13:41:42.101]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.101]  - attr(*, "resolved")= logi FALSE
  [13:41:42.101]  - attr(*, "total_size")= num 0
  [13:41:42.108]   - packages: [1] 'doFuture'
  [13:41:42.108] - identifying globals and packages ... DONE
  [13:41:42.109] Number of chunks: 1
  [13:41:42.109] Number of futures (= number of chunks): 1
  [13:41:42.110] Launching 1 futures (chunks) ...
  [13:41:42.110] Chunk #1 of 1 ...
  [13:41:42.111]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:42.111] getGlobalsAndPackages() ...
  [13:41:42.111] Searching for globals...
  [13:41:42.112] 
  [13:41:42.113] Searching for globals ... DONE
  [13:41:42.113] - globals: [0] <none>
  [13:41:42.113] getGlobalsAndPackages() ... DONE
  [13:41:42.114] 
  [13:41:42.114] 
  [13:41:42.114]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:42.115] getGlobalsAndPackages() ...
  [13:41:42.115] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.116] Resolving globals: FALSE
  [13:41:42.117] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:41:42.117] - globals: [1] '...future.x_ii'
  [13:41:42.118] 
  [13:41:42.118] getGlobalsAndPackages() ... DONE
  [13:41:42.149] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.149] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.156] {
  [13:41:42.156]     {
  [13:41:42.156]         ...future.startTime <- base::Sys.time()
  [13:41:42.156]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.156]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.156]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.156]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.156]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.156]         {
  [13:41:42.156]             {
  [13:41:42.156]                 {
  [13:41:42.156]                   has_future <- base::requireNamespace("future", 
  [13:41:42.156]                     quietly = TRUE)
  [13:41:42.156]                   version <- if (has_future) 
  [13:41:42.156]                     utils::packageVersion("future")
  [13:41:42.156]                   else NULL
  [13:41:42.156]                   if (!has_future || version < "1.8.0") {
  [13:41:42.156]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.156]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.156]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.156]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.156]                         "release", "version")], collapse = " "), 
  [13:41:42.156]                       hostname = base::Sys.info()[["nodename"]])
  [13:41:42.156]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.156]                       info)
  [13:41:42.156]                     info <- base::paste(info, collapse = "; ")
  [13:41:42.156]                     if (!has_future) {
  [13:41:42.156]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.156]                         info)
  [13:41:42.156]                     }
  [13:41:42.156]                     else {
  [13:41:42.156]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.156]                         info, version)
  [13:41:42.156]                     }
  [13:41:42.156]                     base::stop(msg)
  [13:41:42.156]                   }
  [13:41:42.156]                 }
  [13:41:42.156]                 base::local({
  [13:41:42.156]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.156]                     base::loadNamespace(pkg)
  [13:41:42.156]                     base::library(pkg, character.only = TRUE)
  [13:41:42.156]                   }
  [13:41:42.156]                 })
  [13:41:42.156]             }
  [13:41:42.156]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.156]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.156]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:42.156]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:42.156]                 ...) 
  [13:41:42.156]             {
  [13:41:42.156]                 if (substitute) 
  [13:41:42.156]                   expr <- substitute(expr)
  [13:41:42.156]                 if (is.function(workers)) 
  [13:41:42.156]                   workers <- workers()
  [13:41:42.156]                 workers <- as.integer(workers)
  [13:41:42.156]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:42.156]                   workers >= 1)
  [13:41:42.156]                 if (workers == 1L) {
  [13:41:42.156]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.156]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:42.156]                     local = TRUE, label = label, ...))
  [13:41:42.156]                 }
  [13:41:42.156]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:42.156]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:42.156]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.156]                   globals = globals, persistent = persistent, 
  [13:41:42.156]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:42.156]                   label = label, ...)
  [13:41:42.156]                 if (!future$lazy) 
  [13:41:42.156]                   future <- run(future)
  [13:41:42.156]                 invisible(future)
  [13:41:42.156]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.156]         }
  [13:41:42.156]     }
  [13:41:42.156]     if (base::is.na(TRUE)) {
  [13:41:42.156]     }
  [13:41:42.156]     else {
  [13:41:42.156]         if (TRUE) {
  [13:41:42.156]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.156]                 open = "w")
  [13:41:42.156]         }
  [13:41:42.156]         else {
  [13:41:42.156]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.156]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.156]         }
  [13:41:42.156]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.156]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.156]             base::sink(type = "output", split = FALSE)
  [13:41:42.156]             base::close(...future.stdout)
  [13:41:42.156]         }, add = TRUE)
  [13:41:42.156]     }
  [13:41:42.156]     ...future.frame <- base::sys.nframe()
  [13:41:42.156]     ...future.conditions <- base::list()
  [13:41:42.156]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.156]     ...future.result <- base::tryCatch({
  [13:41:42.156]         base::withCallingHandlers({
  [13:41:42.156]             ...future.value <- base::withVisible(base::local({
  [13:41:42.156]                 doFuture::registerDoFuture()
  [13:41:42.156]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.156]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.156]                   {
  [13:41:42.156]                     a <- NULL
  [13:41:42.156]                     b <- NULL
  [13:41:42.156]                   }
  [13:41:42.156]                   ...future.env <- environment()
  [13:41:42.156]                   local({
  [13:41:42.156]                     for (name in names(...future.x_jj)) {
  [13:41:42.156]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.156]                         inherits = FALSE)
  [13:41:42.156]                     }
  [13:41:42.156]                   })
  [13:41:42.156]                   tryCatch({
  [13:41:42.156]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.156]                       plan = future::plan("next"))
  [13:41:42.156]                   }, error = identity)
  [13:41:42.156]                 })
  [13:41:42.156]             }))
  [13:41:42.156]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.156]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.156]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.156]                 version = "1.8")
  [13:41:42.156]         }, condition = base::local({
  [13:41:42.156]             c <- base::c
  [13:41:42.156]             inherits <- base::inherits
  [13:41:42.156]             invokeRestart <- base::invokeRestart
  [13:41:42.156]             length <- base::length
  [13:41:42.156]             list <- base::list
  [13:41:42.156]             seq.int <- base::seq.int
  [13:41:42.156]             signalCondition <- base::signalCondition
  [13:41:42.156]             sys.calls <- base::sys.calls
  [13:41:42.156]             Sys.time <- base::Sys.time
  [13:41:42.156]             `[[` <- base::`[[`
  [13:41:42.156]             `+` <- base::`+`
  [13:41:42.156]             `<<-` <- base::`<<-`
  [13:41:42.156]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.156]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.156]                   3L)]
  [13:41:42.156]             }
  [13:41:42.156]             function(cond) {
  [13:41:42.156]                 if (inherits(cond, "error")) {
  [13:41:42.156]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.156]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.156]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.156]                   signalCondition(cond)
  [13:41:42.156]                 }
  [13:41:42.156]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:42.156]                 ))) {
  [13:41:42.156]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:42.156]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.156]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.156]                   if (!signal) {
  [13:41:42.156]                     muffleCondition <- function (cond) 
  [13:41:42.156]                     {
  [13:41:42.156]                       inherits <- base::inherits
  [13:41:42.156]                       invokeRestart <- base::invokeRestart
  [13:41:42.156]                       muffled <- FALSE
  [13:41:42.156]                       if (inherits(cond, "message")) {
  [13:41:42.156]                         invokeRestart("muffleMessage")
  [13:41:42.156]                         muffled <- TRUE
  [13:41:42.156]                       }
  [13:41:42.156]                       else if (inherits(cond, "warning")) {
  [13:41:42.156]                         invokeRestart("muffleWarning")
  [13:41:42.156]                         muffled <- TRUE
  [13:41:42.156]                       }
  [13:41:42.156]                       else if (inherits(cond, "condition")) {
  [13:41:42.156]                         computeRestarts <- base::computeRestarts
  [13:41:42.156]                         grepl <- base::grepl
  [13:41:42.156]                         is.null <- base::is.null
  [13:41:42.156]                         restarts <- computeRestarts(cond)
  [13:41:42.156]                         for (restart in restarts) {
  [13:41:42.156]                           name <- restart$name
  [13:41:42.156]                           if (is.null(name)) 
  [13:41:42.156]                             next
  [13:41:42.156]                           if (!grepl("^muffle", name)) 
  [13:41:42.156]                             next
  [13:41:42.156]                           invokeRestart(restart)
  [13:41:42.156]                           muffled <- TRUE
  [13:41:42.156]                           break
  [13:41:42.156]                         }
  [13:41:42.156]                       }
  [13:41:42.156]                       invisible(muffled)
  [13:41:42.156]                     }
  [13:41:42.156]                     muffleCondition(cond)
  [13:41:42.156]                   }
  [13:41:42.156]                 }
  [13:41:42.156]             }
  [13:41:42.156]         }))
  [13:41:42.156]     }, error = function(ex) {
  [13:41:42.156]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.156]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.156]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.156]     }, finally = {
  [13:41:42.156]         {
  [13:41:42.156]             NULL
  [13:41:42.156]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.156]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.156]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:42.156]                 label = NULL, ...) 
  [13:41:42.156]             {
  [13:41:42.156]                 if (substitute) 
  [13:41:42.156]                   expr <- substitute(expr)
  [13:41:42.156]                 local <- as.logical(local)
  [13:41:42.156]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.156]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.156]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.156]                   label = label, ...)
  [13:41:42.156]                 if (!future$lazy) 
  [13:41:42.156]                   future <- run(future)
  [13:41:42.156]                 invisible(future)
  [13:41:42.156]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.156]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:42.156]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:41:42.156]                 label = NULL, ...) 
  [13:41:42.156]             {
  [13:41:42.156]                 if (substitute) 
  [13:41:42.156]                   expr <- substitute(expr)
  [13:41:42.156]                 if (is.function(workers)) 
  [13:41:42.156]                   workers <- workers()
  [13:41:42.156]                 workers <- as.integer(workers)
  [13:41:42.156]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:42.156]                   workers >= 1)
  [13:41:42.156]                 if (workers == 1L) {
  [13:41:42.156]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.156]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:42.156]                     local = TRUE, label = label, ...))
  [13:41:42.156]                 }
  [13:41:42.156]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:42.156]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:42.156]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.156]                   globals = globals, persistent = persistent, 
  [13:41:42.156]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:42.156]                   label = label, ...)
  [13:41:42.156]                 if (!future$lazy) 
  [13:41:42.156]                   future <- run(future)
  [13:41:42.156]                 invisible(future)
  [13:41:42.156]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.156]         }
  [13:41:42.156]         base::options(...future.oldOptions)
  [13:41:42.156]     })
  [13:41:42.156]     Sys.time
  [13:41:42.156]     if (base::is.na(TRUE)) {
  [13:41:42.156]     }
  [13:41:42.156]     else {
  [13:41:42.156]         base::sink(type = "output", split = FALSE)
  [13:41:42.156]         if (TRUE) {
  [13:41:42.156]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.156]         }
  [13:41:42.156]         else {
  [13:41:42.156]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.156]         }
  [13:41:42.156]         base::close(...future.stdout)
  [13:41:42.156]         ...future.stdout <- NULL
  [13:41:42.156]     }
  [13:41:42.156]     ...future.result$conditions <- ...future.conditions
  [13:41:42.156]     ...future.result
  [13:41:42.156] }
  [13:41:42.180] plan(): Setting new future strategy stack:
  [13:41:42.180] List of future strategies:
  [13:41:42.180] 1. multisession:
  [13:41:42.180]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.180]    - tweaked: FALSE
  [13:41:42.180]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.182] plan(): nbrOfWorkers() = 2
  [13:41:42.185] plan(): Setting new future strategy stack:
  [13:41:42.185] List of future strategies:
  [13:41:42.185] 1. sequential:
  [13:41:42.185]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.185]    - tweaked: FALSE
  [13:41:42.185]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.185] 2. multisession:
  [13:41:42.185]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.185]    - tweaked: FALSE
  [13:41:42.185]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.187] plan(): nbrOfWorkers() = 1
  [13:41:42.191] SequentialFuture started (and completed)
  [13:41:42.192] Chunk #1 of 1 ... DONE
  [13:41:42.192] Launching 1 futures (chunks) ... DONE
  [13:41:42.192] - resolving futures
  [13:41:42.193]   - gathering results & relaying conditions (except errors)
  [13:41:42.193] resolve() on list ...
  [13:41:42.193]  recursive: 0
  [13:41:42.194]  length: 1
  [13:41:42.194] 
  [13:41:42.194] Future #1
  [13:41:42.211] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:41:42.211] - nx: 1
  [13:41:42.212] - relay: TRUE
  [13:41:42.212] - stdout: TRUE
  [13:41:42.212] - signal: TRUE
  [13:41:42.212] - resignal: FALSE
  [13:41:42.213] - force: FALSE
  [13:41:42.213] - relayed: [n=1] FALSE
  [13:41:42.213] - queued futures: [n=1] FALSE
  [13:41:42.214]  - until=1
  [13:41:42.214]  - relaying element #1
  [13:41:42.215] - relayed: [n=1] TRUE
  [13:41:42.215] - queued futures: [n=1] TRUE
  [13:41:42.215] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:41:42.216]  length: 0 (resolved future 1)
  [13:41:42.216] Relaying remaining futures
  [13:41:42.216] signalConditionsASAP(NULL, pos=0) ...
  [13:41:42.217] - nx: 1
  [13:41:42.217] - relay: TRUE
  [13:41:42.217] - stdout: TRUE
  [13:41:42.218] - signal: TRUE
  [13:41:42.218] - resignal: FALSE
  [13:41:42.218] - force: FALSE
  [13:41:42.218] - relayed: [n=1] TRUE
  [13:41:42.219] - queued futures: [n=1] TRUE
   - flush all
  [13:41:42.219] - relayed: [n=1] TRUE
  [13:41:42.220] - queued futures: [n=1] TRUE
  [13:41:42.220] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:42.220] resolve() on list ... DONE
  [13:41:42.221] - collecting values of futures
  [13:41:42.221] - accumulating results
  [13:41:42.224] - processing errors (handler = 'stop')
  [13:41:42.224] - extracting results
  [13:41:42.225] doFuture() ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [13:41:42.226] plan(): Setting new future strategy stack:
  [13:41:42.230] List of future strategies:
  [13:41:42.230] 1. sequential:
  [13:41:42.230]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.230]    - tweaked: FALSE
  [13:41:42.230]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.230] 2. cluster:
  [13:41:42.230]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.230]    - tweaked: FALSE
  [13:41:42.230]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.232] plan(): nbrOfWorkers() = 1
  [13:41:42.233] doFuture() ...
  [13:41:42.238] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:42.240] - R expression:
  [13:41:42.240] {
  [13:41:42.240]     doFuture::registerDoFuture()
  [13:41:42.240]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.240]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.240]         {
  [13:41:42.240]             a <- NULL
  [13:41:42.240]             b <- NULL
  [13:41:42.240]         }
  [13:41:42.240]         ...future.env <- environment()
  [13:41:42.240]         local({
  [13:41:42.240]             for (name in names(...future.x_jj)) {
  [13:41:42.240]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.240]                   inherits = FALSE)
  [13:41:42.240]             }
  [13:41:42.240]         })
  [13:41:42.240]         tryCatch({
  [13:41:42.240]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.240]                 plan = future::plan("next"))
  [13:41:42.240]         }, error = identity)
  [13:41:42.240]     })
  [13:41:42.240] }
  [13:41:42.241] - identifying globals and packages ...
  [13:41:42.241] getGlobalsAndPackages() ...
  [13:41:42.242] Searching for globals...
  [13:41:42.258] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:42.258] Searching for globals ... DONE
  [13:41:42.259] Resolving globals: FALSE
  [13:41:42.260] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:42.261] - globals: [1] '...future.x_ii'
  [13:41:42.261] 
  [13:41:42.262] getGlobalsAndPackages() ... DONE
  [13:41:42.262] List of 1
  [13:41:42.262]  $ ...future.x_ii: NULL
  [13:41:42.262]  - attr(*, "where")=List of 1
  [13:41:42.262]   ..$ ...future.x_ii:<environment: 0x5617cb089848> 
  [13:41:42.262]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.262]  - attr(*, "resolved")= logi FALSE
  [13:41:42.262]  - attr(*, "total_size")= num 0
  [13:41:42.269]   - R expression:
  [13:41:42.270] {
  [13:41:42.270]     doFuture::registerDoFuture()
  [13:41:42.270]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.270]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.270]         {
  [13:41:42.270]             a <- NULL
  [13:41:42.270]             b <- NULL
  [13:41:42.270]         }
  [13:41:42.270]         ...future.env <- environment()
  [13:41:42.270]         local({
  [13:41:42.270]             for (name in names(...future.x_jj)) {
  [13:41:42.270]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.270]                   inherits = FALSE)
  [13:41:42.270]             }
  [13:41:42.270]         })
  [13:41:42.270]         tryCatch({
  [13:41:42.270]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.270]                 plan = future::plan("next"))
  [13:41:42.270]         }, error = identity)
  [13:41:42.270]     })
  [13:41:42.270] }
  [13:41:42.271]   - globals: [1] '...future.x_ii'
  [13:41:42.271] List of 1
  [13:41:42.271]  $ ...future.x_ii: NULL
  [13:41:42.271]  - attr(*, "where")=List of 1
  [13:41:42.271]   ..$ ...future.x_ii:<environment: 0x5617cb089848> 
  [13:41:42.271]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.271]  - attr(*, "resolved")= logi FALSE
  [13:41:42.271]  - attr(*, "total_size")= num 0
  [13:41:42.278]   - packages: [1] 'doFuture'
  [13:41:42.278] - identifying globals and packages ... DONE
  [13:41:42.278] Number of chunks: 1
  [13:41:42.279] Number of futures (= number of chunks): 1
  [13:41:42.279] Launching 1 futures (chunks) ...
  [13:41:42.280] Chunk #1 of 1 ...
  [13:41:42.280]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:42.280] getGlobalsAndPackages() ...
  [13:41:42.281] Searching for globals...
  [13:41:42.301] 
  [13:41:42.302] Searching for globals ... DONE
  [13:41:42.302] - globals: [0] <none>
  [13:41:42.302] getGlobalsAndPackages() ... DONE
  [13:41:42.303] 
  [13:41:42.303] 
  [13:41:42.303]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:42.304] getGlobalsAndPackages() ...
  [13:41:42.304] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.305] Resolving globals: FALSE
  [13:41:42.306] The total size of the 1 globals is 672 bytes (672 bytes)
  [13:41:42.306] - globals: [1] '...future.x_ii'
  [13:41:42.307] 
  [13:41:42.307] getGlobalsAndPackages() ... DONE
  [13:41:42.309] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.310] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.325] {
  [13:41:42.325]     {
  [13:41:42.325]         ...future.startTime <- base::Sys.time()
  [13:41:42.325]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.325]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.325]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.325]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.325]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.325]         {
  [13:41:42.325]             {
  [13:41:42.325]                 {
  [13:41:42.325]                   has_future <- base::requireNamespace("future", 
  [13:41:42.325]                     quietly = TRUE)
  [13:41:42.325]                   version <- if (has_future) 
  [13:41:42.325]                     utils::packageVersion("future")
  [13:41:42.325]                   else NULL
  [13:41:42.325]                   if (!has_future || version < "1.8.0") {
  [13:41:42.325]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.325]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.325]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.325]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.325]                         "release", "version")], collapse = " "), 
  [13:41:42.325]                       hostname = base::Sys.info()[["nodename"]])
  [13:41:42.325]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.325]                       info)
  [13:41:42.325]                     info <- base::paste(info, collapse = "; ")
  [13:41:42.325]                     if (!has_future) {
  [13:41:42.325]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.325]                         info)
  [13:41:42.325]                     }
  [13:41:42.325]                     else {
  [13:41:42.325]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.325]                         info, version)
  [13:41:42.325]                     }
  [13:41:42.325]                     base::stop(msg)
  [13:41:42.325]                   }
  [13:41:42.325]                 }
  [13:41:42.325]                 base::local({
  [13:41:42.325]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.325]                     base::loadNamespace(pkg)
  [13:41:42.325]                     base::library(pkg, character.only = TRUE)
  [13:41:42.325]                   }
  [13:41:42.325]                 })
  [13:41:42.325]             }
  [13:41:42.325]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.325]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.325]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:41:42.325]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:41:42.325]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:42.325]                 ...) 
  [13:41:42.325]             {
  [13:41:42.325]                 if (substitute) 
  [13:41:42.325]                   expr <- substitute(expr)
  [13:41:42.325]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:42.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.325]                   globals = globals, persistent = persistent, 
  [13:41:42.325]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:42.325]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:42.325]                   label = label, ...)
  [13:41:42.325]                 if (!future$lazy) 
  [13:41:42.325]                   future <- run(future)
  [13:41:42.325]                 invisible(future)
  [13:41:42.325]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.325]         }
  [13:41:42.325]     }
  [13:41:42.325]     if (base::is.na(TRUE)) {
  [13:41:42.325]     }
  [13:41:42.325]     else {
  [13:41:42.325]         if (TRUE) {
  [13:41:42.325]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.325]                 open = "w")
  [13:41:42.325]         }
  [13:41:42.325]         else {
  [13:41:42.325]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.325]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.325]         }
  [13:41:42.325]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.325]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.325]             base::sink(type = "output", split = FALSE)
  [13:41:42.325]             base::close(...future.stdout)
  [13:41:42.325]         }, add = TRUE)
  [13:41:42.325]     }
  [13:41:42.325]     ...future.frame <- base::sys.nframe()
  [13:41:42.325]     ...future.conditions <- base::list()
  [13:41:42.325]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.325]     ...future.result <- base::tryCatch({
  [13:41:42.325]         base::withCallingHandlers({
  [13:41:42.325]             ...future.value <- base::withVisible(base::local({
  [13:41:42.325]                 doFuture::registerDoFuture()
  [13:41:42.325]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.325]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.325]                   {
  [13:41:42.325]                     a <- NULL
  [13:41:42.325]                     b <- NULL
  [13:41:42.325]                   }
  [13:41:42.325]                   ...future.env <- environment()
  [13:41:42.325]                   local({
  [13:41:42.325]                     for (name in names(...future.x_jj)) {
  [13:41:42.325]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.325]                         inherits = FALSE)
  [13:41:42.325]                     }
  [13:41:42.325]                   })
  [13:41:42.325]                   tryCatch({
  [13:41:42.325]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.325]                       plan = future::plan("next"))
  [13:41:42.325]                   }, error = identity)
  [13:41:42.325]                 })
  [13:41:42.325]             }))
  [13:41:42.325]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.325]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.325]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.325]                 version = "1.8")
  [13:41:42.325]         }, condition = base::local({
  [13:41:42.325]             c <- base::c
  [13:41:42.325]             inherits <- base::inherits
  [13:41:42.325]             invokeRestart <- base::invokeRestart
  [13:41:42.325]             length <- base::length
  [13:41:42.325]             list <- base::list
  [13:41:42.325]             seq.int <- base::seq.int
  [13:41:42.325]             signalCondition <- base::signalCondition
  [13:41:42.325]             sys.calls <- base::sys.calls
  [13:41:42.325]             Sys.time <- base::Sys.time
  [13:41:42.325]             `[[` <- base::`[[`
  [13:41:42.325]             `+` <- base::`+`
  [13:41:42.325]             `<<-` <- base::`<<-`
  [13:41:42.325]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.325]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.325]                   3L)]
  [13:41:42.325]             }
  [13:41:42.325]             function(cond) {
  [13:41:42.325]                 if (inherits(cond, "error")) {
  [13:41:42.325]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.325]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.325]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.325]                   signalCondition(cond)
  [13:41:42.325]                 }
  [13:41:42.325]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:42.325]                 ))) {
  [13:41:42.325]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:42.325]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.325]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.325]                   if (!signal) {
  [13:41:42.325]                     muffleCondition <- function (cond) 
  [13:41:42.325]                     {
  [13:41:42.325]                       inherits <- base::inherits
  [13:41:42.325]                       invokeRestart <- base::invokeRestart
  [13:41:42.325]                       muffled <- FALSE
  [13:41:42.325]                       if (inherits(cond, "message")) {
  [13:41:42.325]                         invokeRestart("muffleMessage")
  [13:41:42.325]                         muffled <- TRUE
  [13:41:42.325]                       }
  [13:41:42.325]                       else if (inherits(cond, "warning")) {
  [13:41:42.325]                         invokeRestart("muffleWarning")
  [13:41:42.325]                         muffled <- TRUE
  [13:41:42.325]                       }
  [13:41:42.325]                       else if (inherits(cond, "condition")) {
  [13:41:42.325]                         computeRestarts <- base::computeRestarts
  [13:41:42.325]                         grepl <- base::grepl
  [13:41:42.325]                         is.null <- base::is.null
  [13:41:42.325]                         restarts <- computeRestarts(cond)
  [13:41:42.325]                         for (restart in restarts) {
  [13:41:42.325]                           name <- restart$name
  [13:41:42.325]                           if (is.null(name)) 
  [13:41:42.325]                             next
  [13:41:42.325]                           if (!grepl("^muffle", name)) 
  [13:41:42.325]                             next
  [13:41:42.325]                           invokeRestart(restart)
  [13:41:42.325]                           muffled <- TRUE
  [13:41:42.325]                           break
  [13:41:42.325]                         }
  [13:41:42.325]                       }
  [13:41:42.325]                       invisible(muffled)
  [13:41:42.325]                     }
  [13:41:42.325]                     muffleCondition(cond)
  [13:41:42.325]                   }
  [13:41:42.325]                 }
  [13:41:42.325]             }
  [13:41:42.325]         }))
  [13:41:42.325]     }, error = function(ex) {
  [13:41:42.325]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.325]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.325]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.325]     }, finally = {
  [13:41:42.325]         {
  [13:41:42.325]             NULL
  [13:41:42.325]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.325]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.325]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:42.325]                 label = NULL, ...) 
  [13:41:42.325]             {
  [13:41:42.325]                 if (substitute) 
  [13:41:42.325]                   expr <- substitute(expr)
  [13:41:42.325]                 local <- as.logical(local)
  [13:41:42.325]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.325]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.325]                   label = label, ...)
  [13:41:42.325]                 if (!future$lazy) 
  [13:41:42.325]                   future <- run(future)
  [13:41:42.325]                 invisible(future)
  [13:41:42.325]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.325]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:42.325]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:41:42.325]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:41:42.325]                 label = NULL, ...) 
  [13:41:42.325]             {
  [13:41:42.325]                 if (substitute) 
  [13:41:42.325]                   expr <- substitute(expr)
  [13:41:42.325]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:42.325]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.325]                   globals = globals, persistent = persistent, 
  [13:41:42.325]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:42.325]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:42.325]                   label = label, ...)
  [13:41:42.325]                 if (!future$lazy) 
  [13:41:42.325]                   future <- run(future)
  [13:41:42.325]                 invisible(future)
  [13:41:42.325]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.325]         }
  [13:41:42.325]         base::options(...future.oldOptions)
  [13:41:42.325]     })
  [13:41:42.325]     Sys.time
  [13:41:42.325]     if (base::is.na(TRUE)) {
  [13:41:42.325]     }
  [13:41:42.325]     else {
  [13:41:42.325]         base::sink(type = "output", split = FALSE)
  [13:41:42.325]         if (TRUE) {
  [13:41:42.325]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.325]         }
  [13:41:42.325]         else {
  [13:41:42.325]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.325]         }
  [13:41:42.325]         base::close(...future.stdout)
  [13:41:42.325]         ...future.stdout <- NULL
  [13:41:42.325]     }
  [13:41:42.325]     ...future.result$conditions <- ...future.conditions
  [13:41:42.325]     ...future.result
  [13:41:42.325] }
  [13:41:42.333] plan(): Setting new future strategy stack:
  [13:41:42.334] List of future strategies:
  [13:41:42.334] 1. cluster:
  [13:41:42.334]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.334]    - tweaked: FALSE
  [13:41:42.334]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.337] plan(): nbrOfWorkers() = 2
  [13:41:42.340] plan(): Setting new future strategy stack:
  [13:41:42.340] List of future strategies:
  [13:41:42.340] 1. sequential:
  [13:41:42.340]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.340]    - tweaked: FALSE
  [13:41:42.340]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.340] 2. cluster:
  [13:41:42.340]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.340]    - tweaked: FALSE
  [13:41:42.340]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.342] plan(): nbrOfWorkers() = 1
  [13:41:42.342] SequentialFuture started (and completed)
  [13:41:42.343] Chunk #1 of 1 ... DONE
  [13:41:42.343] Launching 1 futures (chunks) ... DONE
  [13:41:42.343] - resolving futures
  [13:41:42.343]   - gathering results & relaying conditions (except errors)
  [13:41:42.344] resolve() on list ...
  [13:41:42.344]  recursive: 0
  [13:41:42.344]  length: 1
  [13:41:42.345] 
  [13:41:42.345] Future #1
  [13:41:42.345] signalConditionsASAP(SequentialFuture, pos=1) ...
  [13:41:42.346] - nx: 1
  [13:41:42.346] - relay: TRUE
  [13:41:42.346] - stdout: TRUE
  [13:41:42.347] - signal: TRUE
  [13:41:42.347] - resignal: FALSE
  [13:41:42.347] - force: FALSE
  [13:41:42.348] - relayed: [n=1] FALSE
  [13:41:42.348] - queued futures: [n=1] FALSE
  [13:41:42.348]  - until=1
  [13:41:42.348]  - relaying element #1
  [13:41:42.349] - relayed: [n=1] TRUE
  [13:41:42.349] - queued futures: [n=1] TRUE
  [13:41:42.350] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [13:41:42.350]  length: 0 (resolved future 1)
  [13:41:42.350] Relaying remaining futures
  [13:41:42.351] signalConditionsASAP(NULL, pos=0) ...
  [13:41:42.351] - nx: 1
  [13:41:42.351] - relay: TRUE
  [13:41:42.351] - stdout: TRUE
  [13:41:42.352] - signal: TRUE
  [13:41:42.352] - resignal: FALSE
  [13:41:42.352] - force: FALSE
  [13:41:42.353] - relayed: [n=1] TRUE
  [13:41:42.353] - queued futures: [n=1] TRUE
   - flush all
  [13:41:42.353] - relayed: [n=1] TRUE
  [13:41:42.354] - queued futures: [n=1] TRUE
  [13:41:42.354] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:42.354] resolve() on list ... DONE
  [13:41:42.355] - collecting values of futures
  [13:41:42.355] - accumulating results
  [13:41:42.358] - processing errors (handler = 'stop')
  [13:41:42.358] - extracting results
  [13:41:42.358] doFuture() ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [13:41:42.359] plan(): Setting new future strategy stack:
  [13:41:42.360] List of future strategies:
  [13:41:42.360] 1. multicore:
  [13:41:42.360]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.360]    - tweaked: FALSE
  [13:41:42.360]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.360] 2. sequential:
  [13:41:42.360]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.360]    - tweaked: FALSE
  [13:41:42.360]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.361] plan(): nbrOfWorkers() = 2
  [13:41:42.362] doFuture() ...
  [13:41:42.366] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:42.367] - R expression:
  [13:41:42.368] {
  [13:41:42.368]     doFuture::registerDoFuture()
  [13:41:42.368]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.368]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.368]         {
  [13:41:42.368]             a <- NULL
  [13:41:42.368]             b <- NULL
  [13:41:42.368]         }
  [13:41:42.368]         ...future.env <- environment()
  [13:41:42.368]         local({
  [13:41:42.368]             for (name in names(...future.x_jj)) {
  [13:41:42.368]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.368]                   inherits = FALSE)
  [13:41:42.368]             }
  [13:41:42.368]         })
  [13:41:42.368]         tryCatch({
  [13:41:42.368]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.368]                 plan = future::plan("next"))
  [13:41:42.368]         }, error = identity)
  [13:41:42.368]     })
  [13:41:42.368] }
  [13:41:42.369] - identifying globals and packages ...
  [13:41:42.369] getGlobalsAndPackages() ...
  [13:41:42.369] Searching for globals...
  [13:41:42.401] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:42.401] Searching for globals ... DONE
  [13:41:42.401] Resolving globals: FALSE
  [13:41:42.403] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:42.404] - globals: [1] '...future.x_ii'
  [13:41:42.404] 
  [13:41:42.404] getGlobalsAndPackages() ... DONE
  [13:41:42.405] List of 1
  [13:41:42.405]  $ ...future.x_ii: NULL
  [13:41:42.405]  - attr(*, "where")=List of 1
  [13:41:42.405]   ..$ ...future.x_ii:<environment: 0x5617cce52aa0> 
  [13:41:42.405]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.405]  - attr(*, "resolved")= logi FALSE
  [13:41:42.405]  - attr(*, "total_size")= num 0
  [13:41:42.412]   - R expression:
  [13:41:42.412] {
  [13:41:42.412]     doFuture::registerDoFuture()
  [13:41:42.412]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.412]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.412]         {
  [13:41:42.412]             a <- NULL
  [13:41:42.412]             b <- NULL
  [13:41:42.412]         }
  [13:41:42.412]         ...future.env <- environment()
  [13:41:42.412]         local({
  [13:41:42.412]             for (name in names(...future.x_jj)) {
  [13:41:42.412]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.412]                   inherits = FALSE)
  [13:41:42.412]             }
  [13:41:42.412]         })
  [13:41:42.412]         tryCatch({
  [13:41:42.412]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.412]                 plan = future::plan("next"))
  [13:41:42.412]         }, error = identity)
  [13:41:42.412]     })
  [13:41:42.412] }
  [13:41:42.413]   - globals: [1] '...future.x_ii'
  [13:41:42.413] List of 1
  [13:41:42.413]  $ ...future.x_ii: NULL
  [13:41:42.413]  - attr(*, "where")=List of 1
  [13:41:42.413]   ..$ ...future.x_ii:<environment: 0x5617cce52aa0> 
  [13:41:42.413]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.413]  - attr(*, "resolved")= logi FALSE
  [13:41:42.413]  - attr(*, "total_size")= num 0
  [13:41:42.419]   - packages: [1] 'doFuture'
  [13:41:42.420] - identifying globals and packages ... DONE
  [13:41:42.424] Number of chunks: 2
  [13:41:42.424] Number of futures (= number of chunks): 2
  [13:41:42.425] Launching 2 futures (chunks) ...
  [13:41:42.425] Chunk #1 of 2 ...
  [13:41:42.425]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:42.426] getGlobalsAndPackages() ...
  [13:41:42.426] Searching for globals...
  [13:41:42.427] 
  [13:41:42.427] Searching for globals ... DONE
  [13:41:42.428] - globals: [0] <none>
  [13:41:42.428] getGlobalsAndPackages() ... DONE
  [13:41:42.428] 
  [13:41:42.429] 
  [13:41:42.429]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:42.430] getGlobalsAndPackages() ...
  [13:41:42.431] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.431] Resolving globals: FALSE
  [13:41:42.432] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:42.432] - globals: [1] '...future.x_ii'
  [13:41:42.433] 
  [13:41:42.433] getGlobalsAndPackages() ... DONE
  [13:41:42.436] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.437] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.442] {
  [13:41:42.442]     {
  [13:41:42.442]         ...future.startTime <- base::Sys.time()
  [13:41:42.442]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.442]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.442]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.442]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.442]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.442]         {
  [13:41:42.442]             {
  [13:41:42.442]                 {
  [13:41:42.442]                   {
  [13:41:42.442]                     has_future <- base::requireNamespace("future", 
  [13:41:42.442]                       quietly = TRUE)
  [13:41:42.442]                     version <- if (has_future) 
  [13:41:42.442]                       utils::packageVersion("future")
  [13:41:42.442]                     else NULL
  [13:41:42.442]                     if (!has_future || version < "1.8.0") {
  [13:41:42.442]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.442]                         "", base::R.version$version.string), 
  [13:41:42.442]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.442]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.442]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.442]                           "release", "version")], collapse = " "), 
  [13:41:42.442]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:42.442]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.442]                         info)
  [13:41:42.442]                       info <- base::paste(info, collapse = "; ")
  [13:41:42.442]                       if (!has_future) {
  [13:41:42.442]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.442]                           info)
  [13:41:42.442]                       }
  [13:41:42.442]                       else {
  [13:41:42.442]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.442]                           info, version)
  [13:41:42.442]                       }
  [13:41:42.442]                       base::stop(msg)
  [13:41:42.442]                     }
  [13:41:42.442]                   }
  [13:41:42.442]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:42.442]                   base::options(mc.cores = 1L)
  [13:41:42.442]                 }
  [13:41:42.442]                 base::local({
  [13:41:42.442]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.442]                     base::loadNamespace(pkg)
  [13:41:42.442]                     base::library(pkg, character.only = TRUE)
  [13:41:42.442]                   }
  [13:41:42.442]                 })
  [13:41:42.442]             }
  [13:41:42.442]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.442]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.442]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:42.442]                 label = NULL, ...) 
  [13:41:42.442]             {
  [13:41:42.442]                 if (substitute) 
  [13:41:42.442]                   expr <- substitute(expr)
  [13:41:42.442]                 local <- as.logical(local)
  [13:41:42.442]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.442]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.442]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.442]                   label = label, ...)
  [13:41:42.442]                 if (!future$lazy) 
  [13:41:42.442]                   future <- run(future)
  [13:41:42.442]                 invisible(future)
  [13:41:42.442]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.442]         }
  [13:41:42.442]     }
  [13:41:42.442]     if (base::is.na(TRUE)) {
  [13:41:42.442]     }
  [13:41:42.442]     else {
  [13:41:42.442]         if (TRUE) {
  [13:41:42.442]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.442]                 open = "w")
  [13:41:42.442]         }
  [13:41:42.442]         else {
  [13:41:42.442]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.442]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.442]         }
  [13:41:42.442]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.442]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.442]             base::sink(type = "output", split = FALSE)
  [13:41:42.442]             base::close(...future.stdout)
  [13:41:42.442]         }, add = TRUE)
  [13:41:42.442]     }
  [13:41:42.442]     ...future.frame <- base::sys.nframe()
  [13:41:42.442]     ...future.conditions <- base::list()
  [13:41:42.442]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.442]     ...future.result <- base::tryCatch({
  [13:41:42.442]         base::withCallingHandlers({
  [13:41:42.442]             ...future.value <- base::withVisible(base::local({
  [13:41:42.442]                 doFuture::registerDoFuture()
  [13:41:42.442]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.442]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.442]                   {
  [13:41:42.442]                     a <- NULL
  [13:41:42.442]                     b <- NULL
  [13:41:42.442]                   }
  [13:41:42.442]                   ...future.env <- environment()
  [13:41:42.442]                   local({
  [13:41:42.442]                     for (name in names(...future.x_jj)) {
  [13:41:42.442]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.442]                         inherits = FALSE)
  [13:41:42.442]                     }
  [13:41:42.442]                   })
  [13:41:42.442]                   tryCatch({
  [13:41:42.442]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.442]                       plan = future::plan("next"))
  [13:41:42.442]                   }, error = identity)
  [13:41:42.442]                 })
  [13:41:42.442]             }))
  [13:41:42.442]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.442]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.442]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.442]                 version = "1.8")
  [13:41:42.442]         }, condition = base::local({
  [13:41:42.442]             c <- base::c
  [13:41:42.442]             inherits <- base::inherits
  [13:41:42.442]             invokeRestart <- base::invokeRestart
  [13:41:42.442]             length <- base::length
  [13:41:42.442]             list <- base::list
  [13:41:42.442]             seq.int <- base::seq.int
  [13:41:42.442]             signalCondition <- base::signalCondition
  [13:41:42.442]             sys.calls <- base::sys.calls
  [13:41:42.442]             Sys.time <- base::Sys.time
  [13:41:42.442]             `[[` <- base::`[[`
  [13:41:42.442]             `+` <- base::`+`
  [13:41:42.442]             `<<-` <- base::`<<-`
  [13:41:42.442]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.442]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.442]                   3L)]
  [13:41:42.442]             }
  [13:41:42.442]             function(cond) {
  [13:41:42.442]                 if (inherits(cond, "error")) {
  [13:41:42.442]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.442]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.442]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.442]                   signalCondition(cond)
  [13:41:42.442]                 }
  [13:41:42.442]                 else if (inherits(cond, "condition")) {
  [13:41:42.442]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:42.442]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.442]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.442]                   if (!signal) {
  [13:41:42.442]                     muffleCondition <- function (cond) 
  [13:41:42.442]                     {
  [13:41:42.442]                       inherits <- base::inherits
  [13:41:42.442]                       invokeRestart <- base::invokeRestart
  [13:41:42.442]                       muffled <- FALSE
  [13:41:42.442]                       if (inherits(cond, "message")) {
  [13:41:42.442]                         invokeRestart("muffleMessage")
  [13:41:42.442]                         muffled <- TRUE
  [13:41:42.442]                       }
  [13:41:42.442]                       else if (inherits(cond, "warning")) {
  [13:41:42.442]                         invokeRestart("muffleWarning")
  [13:41:42.442]                         muffled <- TRUE
  [13:41:42.442]                       }
  [13:41:42.442]                       else if (inherits(cond, "condition")) {
  [13:41:42.442]                         computeRestarts <- base::computeRestarts
  [13:41:42.442]                         grepl <- base::grepl
  [13:41:42.442]                         is.null <- base::is.null
  [13:41:42.442]                         restarts <- computeRestarts(cond)
  [13:41:42.442]                         for (restart in restarts) {
  [13:41:42.442]                           name <- restart$name
  [13:41:42.442]                           if (is.null(name)) 
  [13:41:42.442]                             next
  [13:41:42.442]                           if (!grepl("^muffle", name)) 
  [13:41:42.442]                             next
  [13:41:42.442]                           invokeRestart(restart)
  [13:41:42.442]                           muffled <- TRUE
  [13:41:42.442]                           break
  [13:41:42.442]                         }
  [13:41:42.442]                       }
  [13:41:42.442]                       invisible(muffled)
  [13:41:42.442]                     }
  [13:41:42.442]                     muffleCondition(cond)
  [13:41:42.442]                   }
  [13:41:42.442]                 }
  [13:41:42.442]             }
  [13:41:42.442]         }))
  [13:41:42.442]     }, error = function(ex) {
  [13:41:42.442]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.442]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.442]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.442]     }, finally = {
  [13:41:42.442]         {
  [13:41:42.442]             {
  [13:41:42.442]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:42.442]             }
  [13:41:42.442]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.442]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.442]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.442]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.442]             {
  [13:41:42.442]                 if (substitute) 
  [13:41:42.442]                   expr <- substitute(expr)
  [13:41:42.442]                 if (is.function(workers)) 
  [13:41:42.442]                   workers <- workers()
  [13:41:42.442]                 workers <- as.integer(workers)
  [13:41:42.442]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.442]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.442]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.442]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.442]                     local = TRUE, label = label, ...))
  [13:41:42.442]                 }
  [13:41:42.442]                 oopts <- options(mc.cores = workers)
  [13:41:42.442]                 on.exit(options(oopts))
  [13:41:42.442]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.442]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.442]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.442]                   label = label, ...)
  [13:41:42.442]                 if (!future$lazy) 
  [13:41:42.442]                   future <- run(future)
  [13:41:42.442]                 invisible(future)
  [13:41:42.442]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.442]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:42.442]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.442]             {
  [13:41:42.442]                 if (substitute) 
  [13:41:42.442]                   expr <- substitute(expr)
  [13:41:42.442]                 local <- as.logical(local)
  [13:41:42.442]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.442]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.442]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.442]                   label = label, ...)
  [13:41:42.442]                 if (!future$lazy) 
  [13:41:42.442]                   future <- run(future)
  [13:41:42.442]                 invisible(future)
  [13:41:42.442]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.442]         }
  [13:41:42.442]         base::options(...future.oldOptions)
  [13:41:42.442]     })
  [13:41:42.442]     Sys.time
  [13:41:42.442]     if (base::is.na(TRUE)) {
  [13:41:42.442]     }
  [13:41:42.442]     else {
  [13:41:42.442]         base::sink(type = "output", split = FALSE)
  [13:41:42.442]         if (TRUE) {
  [13:41:42.442]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.442]         }
  [13:41:42.442]         else {
  [13:41:42.442]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.442]         }
  [13:41:42.442]         base::close(...future.stdout)
  [13:41:42.442]         ...future.stdout <- NULL
  [13:41:42.442]     }
  [13:41:42.442]     ...future.result$conditions <- ...future.conditions
  [13:41:42.442]     ...future.result
  [13:41:42.442] }
  [13:41:42.453] requestCore(): workers = 2
  [13:41:42.458] MulticoreFuture started
  [13:41:42.459] Chunk #1 of 2 ... DONE
  [13:41:42.459] Chunk #2 of 2 ...
  [13:41:42.459]  - Finding globals in 'args_list' chunk #2 ...
  [13:41:42.460] getGlobalsAndPackages() ...
  [13:41:42.460] Searching for globals...
  [13:41:42.462] 
  [13:41:42.462] Searching for globals ... DONE
  [13:41:42.462] - globals: [0] <none>
  [13:41:42.463] getGlobalsAndPackages() ... DONE
  [13:41:42.463] 
  [13:41:42.463] 
  [13:41:42.464]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:41:42.465] getGlobalsAndPackages() ...
  [13:41:42.466] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.466] Resolving globals: FALSE
  [13:41:42.468] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:42.468] - globals: [1] '...future.x_ii'
  [13:41:42.469] 
  [13:41:42.469] getGlobalsAndPackages() ... DONE
  [13:41:42.473] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.473] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.478] plan(): Setting new future strategy stack:
  [13:41:42.479] List of future strategies:
  [13:41:42.479] 1. sequential:
  [13:41:42.479]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.479]    - tweaked: FALSE
  [13:41:42.479]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.481] plan(): nbrOfWorkers() = 1
  [13:41:42.483] plan(): Setting new future strategy stack:
  [13:41:42.483] List of future strategies:
  [13:41:42.483] 1. multicore:
  [13:41:42.483]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.483]    - tweaked: FALSE
  [13:41:42.483]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.483] 2. sequential:
  [13:41:42.483]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.483]    - tweaked: FALSE
  [13:41:42.483]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.486] plan(): nbrOfWorkers() = 2
  [13:41:42.481] {
  [13:41:42.481]     {
  [13:41:42.481]         ...future.startTime <- base::Sys.time()
  [13:41:42.481]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.481]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.481]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.481]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.481]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.481]         {
  [13:41:42.481]             {
  [13:41:42.481]                 {
  [13:41:42.481]                   {
  [13:41:42.481]                     has_future <- base::requireNamespace("future", 
  [13:41:42.481]                       quietly = TRUE)
  [13:41:42.481]                     version <- if (has_future) 
  [13:41:42.481]                       utils::packageVersion("future")
  [13:41:42.481]                     else NULL
  [13:41:42.481]                     if (!has_future || version < "1.8.0") {
  [13:41:42.481]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.481]                         "", base::R.version$version.string), 
  [13:41:42.481]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.481]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.481]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.481]                           "release", "version")], collapse = " "), 
  [13:41:42.481]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:42.481]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.481]                         info)
  [13:41:42.481]                       info <- base::paste(info, collapse = "; ")
  [13:41:42.481]                       if (!has_future) {
  [13:41:42.481]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.481]                           info)
  [13:41:42.481]                       }
  [13:41:42.481]                       else {
  [13:41:42.481]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.481]                           info, version)
  [13:41:42.481]                       }
  [13:41:42.481]                       base::stop(msg)
  [13:41:42.481]                     }
  [13:41:42.481]                   }
  [13:41:42.481]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:42.481]                   base::options(mc.cores = 1L)
  [13:41:42.481]                 }
  [13:41:42.481]                 base::local({
  [13:41:42.481]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.481]                     base::loadNamespace(pkg)
  [13:41:42.481]                     base::library(pkg, character.only = TRUE)
  [13:41:42.481]                   }
  [13:41:42.481]                 })
  [13:41:42.481]             }
  [13:41:42.481]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.481]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.481]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:42.481]                 label = NULL, ...) 
  [13:41:42.481]             {
  [13:41:42.481]                 if (substitute) 
  [13:41:42.481]                   expr <- substitute(expr)
  [13:41:42.481]                 local <- as.logical(local)
  [13:41:42.481]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.481]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.481]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.481]                   label = label, ...)
  [13:41:42.481]                 if (!future$lazy) 
  [13:41:42.481]                   future <- run(future)
  [13:41:42.481]                 invisible(future)
  [13:41:42.481]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.481]         }
  [13:41:42.481]     }
  [13:41:42.481]     if (base::is.na(TRUE)) {
  [13:41:42.481]     }
  [13:41:42.481]     else {
  [13:41:42.481]         if (TRUE) {
  [13:41:42.481]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.481]                 open = "w")
  [13:41:42.481]         }
  [13:41:42.481]         else {
  [13:41:42.481]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.481]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.481]         }
  [13:41:42.481]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.481]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.481]             base::sink(type = "output", split = FALSE)
  [13:41:42.481]             base::close(...future.stdout)
  [13:41:42.481]         }, add = TRUE)
  [13:41:42.481]     }
  [13:41:42.481]     ...future.frame <- base::sys.nframe()
  [13:41:42.481]     ...future.conditions <- base::list()
  [13:41:42.481]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.481]     ...future.result <- base::tryCatch({
  [13:41:42.481]         base::withCallingHandlers({
  [13:41:42.481]             ...future.value <- base::withVisible(base::local({
  [13:41:42.481]                 doFuture::registerDoFuture()
  [13:41:42.481]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.481]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.481]                   {
  [13:41:42.481]                     a <- NULL
  [13:41:42.481]                     b <- NULL
  [13:41:42.481]                   }
  [13:41:42.481]                   ...future.env <- environment()
  [13:41:42.481]                   local({
  [13:41:42.481]                     for (name in names(...future.x_jj)) {
  [13:41:42.481]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.481]                         inherits = FALSE)
  [13:41:42.481]                     }
  [13:41:42.481]                   })
  [13:41:42.481]                   tryCatch({
  [13:41:42.481]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.481]                       plan = future::plan("next"))
  [13:41:42.481]                   }, error = identity)
  [13:41:42.481]                 })
  [13:41:42.481]             }))
  [13:41:42.481]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.481]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.481]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.481]                 version = "1.8")
  [13:41:42.481]         }, condition = base::local({
  [13:41:42.481]             c <- base::c
  [13:41:42.481]             inherits <- base::inherits
  [13:41:42.481]             invokeRestart <- base::invokeRestart
  [13:41:42.481]             length <- base::length
  [13:41:42.481]             list <- base::list
  [13:41:42.481]             seq.int <- base::seq.int
  [13:41:42.481]             signalCondition <- base::signalCondition
  [13:41:42.481]             sys.calls <- base::sys.calls
  [13:41:42.481]             Sys.time <- base::Sys.time
  [13:41:42.481]             `[[` <- base::`[[`
  [13:41:42.481]             `+` <- base::`+`
  [13:41:42.481]             `<<-` <- base::`<<-`
  [13:41:42.481]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.481]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.481]                   3L)]
  [13:41:42.481]             }
  [13:41:42.481]             function(cond) {
  [13:41:42.481]                 if (inherits(cond, "error")) {
  [13:41:42.481]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.481]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.481]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.481]                   signalCondition(cond)
  [13:41:42.481]                 }
  [13:41:42.481]                 else if (inherits(cond, "condition")) {
  [13:41:42.481]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:42.481]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.481]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.481]                   if (!signal) {
  [13:41:42.481]                     muffleCondition <- function (cond) 
  [13:41:42.481]                     {
  [13:41:42.481]                       inherits <- base::inherits
  [13:41:42.481]                       invokeRestart <- base::invokeRestart
  [13:41:42.481]                       muffled <- FALSE
  [13:41:42.481]                       if (inherits(cond, "message")) {
  [13:41:42.481]                         invokeRestart("muffleMessage")
  [13:41:42.481]                         muffled <- TRUE
  [13:41:42.481]                       }
  [13:41:42.481]                       else if (inherits(cond, "warning")) {
  [13:41:42.481]                         invokeRestart("muffleWarning")
  [13:41:42.481]                         muffled <- TRUE
  [13:41:42.481]                       }
  [13:41:42.481]                       else if (inherits(cond, "condition")) {
  [13:41:42.481]                         computeRestarts <- base::computeRestarts
  [13:41:42.481]                         grepl <- base::grepl
  [13:41:42.481]                         is.null <- base::is.null
  [13:41:42.481]                         restarts <- computeRestarts(cond)
  [13:41:42.481]                         for (restart in restarts) {
  [13:41:42.481]                           name <- restart$name
  [13:41:42.481]                           if (is.null(name)) 
  [13:41:42.481]                             next
  [13:41:42.481]                           if (!grepl("^muffle", name)) 
  [13:41:42.481]                             next
  [13:41:42.481]                           invokeRestart(restart)
  [13:41:42.481]                           muffled <- TRUE
  [13:41:42.481]                           break
  [13:41:42.481]                         }
  [13:41:42.481]                       }
  [13:41:42.481]                       invisible(muffled)
  [13:41:42.481]                     }
  [13:41:42.481]                     muffleCondition(cond)
  [13:41:42.481]                   }
  [13:41:42.481]                 }
  [13:41:42.481]             }
  [13:41:42.481]         }))
  [13:41:42.481]     }, error = function(ex) {
  [13:41:42.481]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.481]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.481]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.481]     }, finally = {
  [13:41:42.481]         {
  [13:41:42.481]             {
  [13:41:42.481]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:42.481]             }
  [13:41:42.481]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.481]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.481]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.481]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.481]             {
  [13:41:42.481]                 if (substitute) 
  [13:41:42.481]                   expr <- substitute(expr)
  [13:41:42.481]                 if (is.function(workers)) 
  [13:41:42.481]                   workers <- workers()
  [13:41:42.481]                 workers <- as.integer(workers)
  [13:41:42.481]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.481]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.481]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.481]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.481]                     local = TRUE, label = label, ...))
  [13:41:42.481]                 }
  [13:41:42.481]                 oopts <- options(mc.cores = workers)
  [13:41:42.481]                 on.exit(options(oopts))
  [13:41:42.481]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.481]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.481]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.481]                   label = label, ...)
  [13:41:42.481]                 if (!future$lazy) 
  [13:41:42.481]                   future <- run(future)
  [13:41:42.481]                 invisible(future)
  [13:41:42.481]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.481]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:42.481]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.481]             {
  [13:41:42.481]                 if (substitute) 
  [13:41:42.481]                   expr <- substitute(expr)
  [13:41:42.481]                 local <- as.logical(local)
  [13:41:42.481]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:42.481]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.481]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:42.481]                   label = label, ...)
  [13:41:42.481]                 if (!future$lazy) 
  [13:41:42.481]                   future <- run(future)
  [13:41:42.481]                 invisible(future)
  [13:41:42.481]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.481]         }
  [13:41:42.481]         base::options(...future.oldOptions)
  [13:41:42.481]     })
  [13:41:42.481]     Sys.time
  [13:41:42.481]     if (base::is.na(TRUE)) {
  [13:41:42.481]     }
  [13:41:42.481]     else {
  [13:41:42.481]         base::sink(type = "output", split = FALSE)
  [13:41:42.481]         if (TRUE) {
  [13:41:42.481]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.481]         }
  [13:41:42.481]         else {
  [13:41:42.481]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.481]         }
  [13:41:42.481]         base::close(...future.stdout)
  [13:41:42.481]         ...future.stdout <- NULL
  [13:41:42.481]     }
  [13:41:42.481]     ...future.result$conditions <- ...future.conditions
  [13:41:42.481]     ...future.result
  [13:41:42.481] }
  [13:41:42.494] requestCore(): workers = 2
  [13:41:42.515] MulticoreFuture started
  [13:41:42.515] Chunk #2 of 2 ... DONE
  [13:41:42.516] Launching 2 futures (chunks) ... DONE
  [13:41:42.516] - resolving futures
  [13:41:42.517]   - gathering results & relaying conditions (except errors)
  [13:41:42.517] resolve() on list ...
  [13:41:42.518]  recursive: 0
  [13:41:42.518]  length: 2
  [13:41:42.518] 
  [13:41:42.522] Future #1
  [13:41:42.529] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:41:42.529] - nx: 2
  [13:41:42.530] - relay: TRUE
  [13:41:42.530] - stdout: TRUE
  [13:41:42.530] - signal: TRUE
  [13:41:42.531] - resignal: FALSE
  [13:41:42.531] - force: FALSE
  [13:41:42.531] - relayed: [n=2] FALSE, FALSE
  [13:41:42.532] - queued futures: [n=2] FALSE, FALSE
  [13:41:42.532]  - until=1
  [13:41:42.533]  - relaying element #1
  [13:41:42.533] - relayed: [n=2] TRUE, FALSE
  [13:41:42.534] - queued futures: [n=2] TRUE, FALSE
  [13:41:42.534] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:41:42.535]  length: 1 (resolved future 1)
  [13:41:42.539] plan(): Setting new future strategy stack:
  [13:41:42.540] List of future strategies:
  [13:41:42.540] 1. sequential:
  [13:41:42.540]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.540]    - tweaked: FALSE
  [13:41:42.540]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.541] plan(): nbrOfWorkers() = 1
  [13:41:42.544] plan(): Setting new future strategy stack:
  [13:41:42.545] List of future strategies:
  [13:41:42.545] 1. multicore:
  [13:41:42.545]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.545]    - tweaked: FALSE
  [13:41:42.545]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.545] 2. sequential:
  [13:41:42.545]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.545]    - tweaked: FALSE
  [13:41:42.545]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.547] plan(): nbrOfWorkers() = 2
  [13:41:42.549] Future #2
  [13:41:42.552] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:41:42.552] - nx: 2
  [13:41:42.552] - relay: TRUE
  [13:41:42.553] - stdout: TRUE
  [13:41:42.553] - signal: TRUE
  [13:41:42.554] - resignal: FALSE
  [13:41:42.554] - force: FALSE
  [13:41:42.554] - relayed: [n=2] TRUE, FALSE
  [13:41:42.555] - queued futures: [n=2] TRUE, FALSE
  [13:41:42.555]  - until=2
  [13:41:42.556]  - relaying element #2
  [13:41:42.556] - relayed: [n=2] TRUE, TRUE
  [13:41:42.557] - queued futures: [n=2] TRUE, TRUE
  [13:41:42.557] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:41:42.558]  length: 0 (resolved future 2)
  [13:41:42.558] Relaying remaining futures
  [13:41:42.558] signalConditionsASAP(NULL, pos=0) ...
  [13:41:42.559] - nx: 2
  [13:41:42.559] - relay: TRUE
  [13:41:42.559] - stdout: TRUE
  [13:41:42.560] - signal: TRUE
  [13:41:42.560] - resignal: FALSE
  [13:41:42.561] - force: FALSE
  [13:41:42.561] - relayed: [n=2] TRUE, TRUE
  [13:41:42.561] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:41:42.562] - relayed: [n=2] TRUE, TRUE
  [13:41:42.562] - queued futures: [n=2] TRUE, TRUE
  [13:41:42.563] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:42.563] resolve() on list ... DONE
  [13:41:42.564] - collecting values of futures
  [13:41:42.565] - accumulating results
  [13:41:42.572] - processing errors (handler = 'stop')
  [13:41:42.572] - extracting results
  [13:41:42.573] doFuture() ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [13:41:42.574] plan(): Setting new future strategy stack:
  [13:41:42.575] List of future strategies:
  [13:41:42.575] 1. multicore:
  [13:41:42.575]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.575]    - tweaked: FALSE
  [13:41:42.575]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.575] 2. multicore:
  [13:41:42.575]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.575]    - tweaked: FALSE
  [13:41:42.575]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.577] plan(): nbrOfWorkers() = 2
  [13:41:42.578] doFuture() ...
  [13:41:42.583] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:42.584] - R expression:
  [13:41:42.584] {
  [13:41:42.584]     doFuture::registerDoFuture()
  [13:41:42.584]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.584]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.584]         {
  [13:41:42.584]             a <- NULL
  [13:41:42.584]             b <- NULL
  [13:41:42.584]         }
  [13:41:42.584]         ...future.env <- environment()
  [13:41:42.584]         local({
  [13:41:42.584]             for (name in names(...future.x_jj)) {
  [13:41:42.584]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.584]                   inherits = FALSE)
  [13:41:42.584]             }
  [13:41:42.584]         })
  [13:41:42.584]         tryCatch({
  [13:41:42.584]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.584]                 plan = future::plan("next"))
  [13:41:42.584]         }, error = identity)
  [13:41:42.584]     })
  [13:41:42.584] }
  [13:41:42.585] - identifying globals and packages ...
  [13:41:42.586] getGlobalsAndPackages() ...
  [13:41:42.586] Searching for globals...
  [13:41:42.608] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:42.609] Searching for globals ... DONE
  [13:41:42.609] Resolving globals: FALSE
  [13:41:42.611] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:42.612] - globals: [1] '...future.x_ii'
  [13:41:42.612] 
  [13:41:42.613] getGlobalsAndPackages() ... DONE
  [13:41:42.613] List of 1
  [13:41:42.613]  $ ...future.x_ii: NULL
  [13:41:42.613]  - attr(*, "where")=List of 1
  [13:41:42.613]   ..$ ...future.x_ii:<environment: 0x5617ccd34ce8> 
  [13:41:42.613]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.613]  - attr(*, "resolved")= logi FALSE
  [13:41:42.613]  - attr(*, "total_size")= num 0
  [13:41:42.621]   - R expression:
  [13:41:42.621] {
  [13:41:42.621]     doFuture::registerDoFuture()
  [13:41:42.621]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.621]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.621]         {
  [13:41:42.621]             a <- NULL
  [13:41:42.621]             b <- NULL
  [13:41:42.621]         }
  [13:41:42.621]         ...future.env <- environment()
  [13:41:42.621]         local({
  [13:41:42.621]             for (name in names(...future.x_jj)) {
  [13:41:42.621]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.621]                   inherits = FALSE)
  [13:41:42.621]             }
  [13:41:42.621]         })
  [13:41:42.621]         tryCatch({
  [13:41:42.621]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.621]                 plan = future::plan("next"))
  [13:41:42.621]         }, error = identity)
  [13:41:42.621]     })
  [13:41:42.621] }
  [13:41:42.622]   - globals: [1] '...future.x_ii'
  [13:41:42.622] List of 1
  [13:41:42.622]  $ ...future.x_ii: NULL
  [13:41:42.622]  - attr(*, "where")=List of 1
  [13:41:42.622]   ..$ ...future.x_ii:<environment: 0x5617ccd34ce8> 
  [13:41:42.622]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.622]  - attr(*, "resolved")= logi FALSE
  [13:41:42.622]  - attr(*, "total_size")= num 0
  [13:41:42.628]   - packages: [1] 'doFuture'
  [13:41:42.629] - identifying globals and packages ... DONE
  [13:41:42.630] Number of chunks: 2
  [13:41:42.630] Number of futures (= number of chunks): 2
  [13:41:42.631] Launching 2 futures (chunks) ...
  [13:41:42.632] Chunk #1 of 2 ...
  [13:41:42.632]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:42.632] getGlobalsAndPackages() ...
  [13:41:42.632] Searching for globals...
  [13:41:42.633] 
  [13:41:42.634] Searching for globals ... DONE
  [13:41:42.634] - globals: [0] <none>
  [13:41:42.635] getGlobalsAndPackages() ... DONE
  [13:41:42.635] 
  [13:41:42.635] 
  [13:41:42.635]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:42.636] getGlobalsAndPackages() ...
  [13:41:42.637] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.637] Resolving globals: FALSE
  [13:41:42.638] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:42.639] - globals: [1] '...future.x_ii'
  [13:41:42.639] 
  [13:41:42.639] getGlobalsAndPackages() ... DONE
  [13:41:42.642] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.642] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.648] {
  [13:41:42.648]     {
  [13:41:42.648]         ...future.startTime <- base::Sys.time()
  [13:41:42.648]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.648]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.648]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.648]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.648]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.648]         {
  [13:41:42.648]             {
  [13:41:42.648]                 {
  [13:41:42.648]                   {
  [13:41:42.648]                     has_future <- base::requireNamespace("future", 
  [13:41:42.648]                       quietly = TRUE)
  [13:41:42.648]                     version <- if (has_future) 
  [13:41:42.648]                       utils::packageVersion("future")
  [13:41:42.648]                     else NULL
  [13:41:42.648]                     if (!has_future || version < "1.8.0") {
  [13:41:42.648]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.648]                         "", base::R.version$version.string), 
  [13:41:42.648]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.648]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.648]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.648]                           "release", "version")], collapse = " "), 
  [13:41:42.648]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:42.648]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.648]                         info)
  [13:41:42.648]                       info <- base::paste(info, collapse = "; ")
  [13:41:42.648]                       if (!has_future) {
  [13:41:42.648]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.648]                           info)
  [13:41:42.648]                       }
  [13:41:42.648]                       else {
  [13:41:42.648]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.648]                           info, version)
  [13:41:42.648]                       }
  [13:41:42.648]                       base::stop(msg)
  [13:41:42.648]                     }
  [13:41:42.648]                   }
  [13:41:42.648]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:42.648]                   base::options(mc.cores = 1L)
  [13:41:42.648]                 }
  [13:41:42.648]                 base::local({
  [13:41:42.648]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.648]                     base::loadNamespace(pkg)
  [13:41:42.648]                     base::library(pkg, character.only = TRUE)
  [13:41:42.648]                   }
  [13:41:42.648]                 })
  [13:41:42.648]             }
  [13:41:42.648]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.648]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.648]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.648]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.648]             {
  [13:41:42.648]                 if (substitute) 
  [13:41:42.648]                   expr <- substitute(expr)
  [13:41:42.648]                 if (is.function(workers)) 
  [13:41:42.648]                   workers <- workers()
  [13:41:42.648]                 workers <- as.integer(workers)
  [13:41:42.648]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.648]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.648]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.648]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.648]                     local = TRUE, label = label, ...))
  [13:41:42.648]                 }
  [13:41:42.648]                 oopts <- options(mc.cores = workers)
  [13:41:42.648]                 on.exit(options(oopts))
  [13:41:42.648]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.648]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.648]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.648]                   label = label, ...)
  [13:41:42.648]                 if (!future$lazy) 
  [13:41:42.648]                   future <- run(future)
  [13:41:42.648]                 invisible(future)
  [13:41:42.648]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.648]         }
  [13:41:42.648]     }
  [13:41:42.648]     if (base::is.na(TRUE)) {
  [13:41:42.648]     }
  [13:41:42.648]     else {
  [13:41:42.648]         if (TRUE) {
  [13:41:42.648]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.648]                 open = "w")
  [13:41:42.648]         }
  [13:41:42.648]         else {
  [13:41:42.648]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.648]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.648]         }
  [13:41:42.648]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.648]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.648]             base::sink(type = "output", split = FALSE)
  [13:41:42.648]             base::close(...future.stdout)
  [13:41:42.648]         }, add = TRUE)
  [13:41:42.648]     }
  [13:41:42.648]     ...future.frame <- base::sys.nframe()
  [13:41:42.648]     ...future.conditions <- base::list()
  [13:41:42.648]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.648]     ...future.result <- base::tryCatch({
  [13:41:42.648]         base::withCallingHandlers({
  [13:41:42.648]             ...future.value <- base::withVisible(base::local({
  [13:41:42.648]                 doFuture::registerDoFuture()
  [13:41:42.648]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.648]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.648]                   {
  [13:41:42.648]                     a <- NULL
  [13:41:42.648]                     b <- NULL
  [13:41:42.648]                   }
  [13:41:42.648]                   ...future.env <- environment()
  [13:41:42.648]                   local({
  [13:41:42.648]                     for (name in names(...future.x_jj)) {
  [13:41:42.648]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.648]                         inherits = FALSE)
  [13:41:42.648]                     }
  [13:41:42.648]                   })
  [13:41:42.648]                   tryCatch({
  [13:41:42.648]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.648]                       plan = future::plan("next"))
  [13:41:42.648]                   }, error = identity)
  [13:41:42.648]                 })
  [13:41:42.648]             }))
  [13:41:42.648]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.648]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.648]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.648]                 version = "1.8")
  [13:41:42.648]         }, condition = base::local({
  [13:41:42.648]             c <- base::c
  [13:41:42.648]             inherits <- base::inherits
  [13:41:42.648]             invokeRestart <- base::invokeRestart
  [13:41:42.648]             length <- base::length
  [13:41:42.648]             list <- base::list
  [13:41:42.648]             seq.int <- base::seq.int
  [13:41:42.648]             signalCondition <- base::signalCondition
  [13:41:42.648]             sys.calls <- base::sys.calls
  [13:41:42.648]             Sys.time <- base::Sys.time
  [13:41:42.648]             `[[` <- base::`[[`
  [13:41:42.648]             `+` <- base::`+`
  [13:41:42.648]             `<<-` <- base::`<<-`
  [13:41:42.648]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.648]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.648]                   3L)]
  [13:41:42.648]             }
  [13:41:42.648]             function(cond) {
  [13:41:42.648]                 if (inherits(cond, "error")) {
  [13:41:42.648]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.648]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.648]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.648]                   signalCondition(cond)
  [13:41:42.648]                 }
  [13:41:42.648]                 else if (inherits(cond, "condition")) {
  [13:41:42.648]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:42.648]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.648]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.648]                   if (!signal) {
  [13:41:42.648]                     muffleCondition <- function (cond) 
  [13:41:42.648]                     {
  [13:41:42.648]                       inherits <- base::inherits
  [13:41:42.648]                       invokeRestart <- base::invokeRestart
  [13:41:42.648]                       muffled <- FALSE
  [13:41:42.648]                       if (inherits(cond, "message")) {
  [13:41:42.648]                         invokeRestart("muffleMessage")
  [13:41:42.648]                         muffled <- TRUE
  [13:41:42.648]                       }
  [13:41:42.648]                       else if (inherits(cond, "warning")) {
  [13:41:42.648]                         invokeRestart("muffleWarning")
  [13:41:42.648]                         muffled <- TRUE
  [13:41:42.648]                       }
  [13:41:42.648]                       else if (inherits(cond, "condition")) {
  [13:41:42.648]                         computeRestarts <- base::computeRestarts
  [13:41:42.648]                         grepl <- base::grepl
  [13:41:42.648]                         is.null <- base::is.null
  [13:41:42.648]                         restarts <- computeRestarts(cond)
  [13:41:42.648]                         for (restart in restarts) {
  [13:41:42.648]                           name <- restart$name
  [13:41:42.648]                           if (is.null(name)) 
  [13:41:42.648]                             next
  [13:41:42.648]                           if (!grepl("^muffle", name)) 
  [13:41:42.648]                             next
  [13:41:42.648]                           invokeRestart(restart)
  [13:41:42.648]                           muffled <- TRUE
  [13:41:42.648]                           break
  [13:41:42.648]                         }
  [13:41:42.648]                       }
  [13:41:42.648]                       invisible(muffled)
  [13:41:42.648]                     }
  [13:41:42.648]                     muffleCondition(cond)
  [13:41:42.648]                   }
  [13:41:42.648]                 }
  [13:41:42.648]             }
  [13:41:42.648]         }))
  [13:41:42.648]     }, error = function(ex) {
  [13:41:42.648]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.648]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.648]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.648]     }, finally = {
  [13:41:42.648]         {
  [13:41:42.648]             {
  [13:41:42.648]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:42.648]             }
  [13:41:42.648]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.648]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.648]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.648]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.648]             {
  [13:41:42.648]                 if (substitute) 
  [13:41:42.648]                   expr <- substitute(expr)
  [13:41:42.648]                 if (is.function(workers)) 
  [13:41:42.648]                   workers <- workers()
  [13:41:42.648]                 workers <- as.integer(workers)
  [13:41:42.648]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.648]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.648]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.648]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.648]                     local = TRUE, label = label, ...))
  [13:41:42.648]                 }
  [13:41:42.648]                 oopts <- options(mc.cores = workers)
  [13:41:42.648]                 on.exit(options(oopts))
  [13:41:42.648]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.648]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.648]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.648]                   label = label, ...)
  [13:41:42.648]                 if (!future$lazy) 
  [13:41:42.648]                   future <- run(future)
  [13:41:42.648]                 invisible(future)
  [13:41:42.648]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.648]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.648]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.648]             {
  [13:41:42.648]                 if (substitute) 
  [13:41:42.648]                   expr <- substitute(expr)
  [13:41:42.648]                 if (is.function(workers)) 
  [13:41:42.648]                   workers <- workers()
  [13:41:42.648]                 workers <- as.integer(workers)
  [13:41:42.648]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.648]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.648]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.648]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.648]                     local = TRUE, label = label, ...))
  [13:41:42.648]                 }
  [13:41:42.648]                 oopts <- options(mc.cores = workers)
  [13:41:42.648]                 on.exit(options(oopts))
  [13:41:42.648]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.648]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.648]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.648]                   label = label, ...)
  [13:41:42.648]                 if (!future$lazy) 
  [13:41:42.648]                   future <- run(future)
  [13:41:42.648]                 invisible(future)
  [13:41:42.648]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.648]         }
  [13:41:42.648]         base::options(...future.oldOptions)
  [13:41:42.648]     })
  [13:41:42.648]     Sys.time
  [13:41:42.648]     if (base::is.na(TRUE)) {
  [13:41:42.648]     }
  [13:41:42.648]     else {
  [13:41:42.648]         base::sink(type = "output", split = FALSE)
  [13:41:42.648]         if (TRUE) {
  [13:41:42.648]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.648]         }
  [13:41:42.648]         else {
  [13:41:42.648]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.648]         }
  [13:41:42.648]         base::close(...future.stdout)
  [13:41:42.648]         ...future.stdout <- NULL
  [13:41:42.648]     }
  [13:41:42.648]     ...future.result$conditions <- ...future.conditions
  [13:41:42.648]     ...future.result
  [13:41:42.648] }
  [13:41:42.656] requestCore(): workers = 2
  [13:41:42.659] MulticoreFuture started
  [13:41:42.660] Chunk #1 of 2 ... DONE
  [13:41:42.660] Chunk #2 of 2 ...
  [13:41:42.661]  - Finding globals in 'args_list' chunk #2 ...
  [13:41:42.661] getGlobalsAndPackages() ...
  [13:41:42.662] Searching for globals...
  [13:41:42.663] 
  [13:41:42.664] Searching for globals ... DONE
  [13:41:42.664] - globals: [0] <none>
  [13:41:42.664] getGlobalsAndPackages() ... DONE
  [13:41:42.665] 
  [13:41:42.665] 
  [13:41:42.666]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:41:42.668] getGlobalsAndPackages() ...
  [13:41:42.668] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.669] Resolving globals: FALSE
  [13:41:42.670] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:42.671] - globals: [1] '...future.x_ii'
  [13:41:42.671] 
  [13:41:42.671] getGlobalsAndPackages() ... DONE
  [13:41:42.679] plan(): Setting new future strategy stack:
  [13:41:42.680] List of future strategies:
  [13:41:42.680] 1. multicore:
  [13:41:42.680]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.680]    - tweaked: FALSE
  [13:41:42.680]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.682] plan(): nbrOfWorkers() = 1
  [13:41:42.685] plan(): Setting new future strategy stack:
  [13:41:42.685] List of future strategies:
  [13:41:42.685] 1. multicore:
  [13:41:42.685]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.685]    - tweaked: FALSE
  [13:41:42.685]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.685] 2. multicore:
  [13:41:42.685]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.685]    - tweaked: FALSE
  [13:41:42.685]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.688] plan(): nbrOfWorkers() = 2
  [13:41:42.690] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.691] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.699] {
  [13:41:42.699]     {
  [13:41:42.699]         ...future.startTime <- base::Sys.time()
  [13:41:42.699]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.699]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.699]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.699]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.699]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.699]         {
  [13:41:42.699]             {
  [13:41:42.699]                 {
  [13:41:42.699]                   {
  [13:41:42.699]                     has_future <- base::requireNamespace("future", 
  [13:41:42.699]                       quietly = TRUE)
  [13:41:42.699]                     version <- if (has_future) 
  [13:41:42.699]                       utils::packageVersion("future")
  [13:41:42.699]                     else NULL
  [13:41:42.699]                     if (!has_future || version < "1.8.0") {
  [13:41:42.699]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.699]                         "", base::R.version$version.string), 
  [13:41:42.699]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.699]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.699]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.699]                           "release", "version")], collapse = " "), 
  [13:41:42.699]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:42.699]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.699]                         info)
  [13:41:42.699]                       info <- base::paste(info, collapse = "; ")
  [13:41:42.699]                       if (!has_future) {
  [13:41:42.699]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.699]                           info)
  [13:41:42.699]                       }
  [13:41:42.699]                       else {
  [13:41:42.699]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.699]                           info, version)
  [13:41:42.699]                       }
  [13:41:42.699]                       base::stop(msg)
  [13:41:42.699]                     }
  [13:41:42.699]                   }
  [13:41:42.699]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:42.699]                   base::options(mc.cores = 1L)
  [13:41:42.699]                 }
  [13:41:42.699]                 base::local({
  [13:41:42.699]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.699]                     base::loadNamespace(pkg)
  [13:41:42.699]                     base::library(pkg, character.only = TRUE)
  [13:41:42.699]                   }
  [13:41:42.699]                 })
  [13:41:42.699]             }
  [13:41:42.699]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.699]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.699]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.699]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.699]             {
  [13:41:42.699]                 if (substitute) 
  [13:41:42.699]                   expr <- substitute(expr)
  [13:41:42.699]                 if (is.function(workers)) 
  [13:41:42.699]                   workers <- workers()
  [13:41:42.699]                 workers <- as.integer(workers)
  [13:41:42.699]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.699]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.699]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.699]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.699]                     local = TRUE, label = label, ...))
  [13:41:42.699]                 }
  [13:41:42.699]                 oopts <- options(mc.cores = workers)
  [13:41:42.699]                 on.exit(options(oopts))
  [13:41:42.699]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.699]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.699]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.699]                   label = label, ...)
  [13:41:42.699]                 if (!future$lazy) 
  [13:41:42.699]                   future <- run(future)
  [13:41:42.699]                 invisible(future)
  [13:41:42.699]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.699]         }
  [13:41:42.699]     }
  [13:41:42.699]     if (base::is.na(TRUE)) {
  [13:41:42.699]     }
  [13:41:42.699]     else {
  [13:41:42.699]         if (TRUE) {
  [13:41:42.699]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.699]                 open = "w")
  [13:41:42.699]         }
  [13:41:42.699]         else {
  [13:41:42.699]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.699]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.699]         }
  [13:41:42.699]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.699]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.699]             base::sink(type = "output", split = FALSE)
  [13:41:42.699]             base::close(...future.stdout)
  [13:41:42.699]         }, add = TRUE)
  [13:41:42.699]     }
  [13:41:42.699]     ...future.frame <- base::sys.nframe()
  [13:41:42.699]     ...future.conditions <- base::list()
  [13:41:42.699]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.699]     ...future.result <- base::tryCatch({
  [13:41:42.699]         base::withCallingHandlers({
  [13:41:42.699]             ...future.value <- base::withVisible(base::local({
  [13:41:42.699]                 doFuture::registerDoFuture()
  [13:41:42.699]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.699]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.699]                   {
  [13:41:42.699]                     a <- NULL
  [13:41:42.699]                     b <- NULL
  [13:41:42.699]                   }
  [13:41:42.699]                   ...future.env <- environment()
  [13:41:42.699]                   local({
  [13:41:42.699]                     for (name in names(...future.x_jj)) {
  [13:41:42.699]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.699]                         inherits = FALSE)
  [13:41:42.699]                     }
  [13:41:42.699]                   })
  [13:41:42.699]                   tryCatch({
  [13:41:42.699]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.699]                       plan = future::plan("next"))
  [13:41:42.699]                   }, error = identity)
  [13:41:42.699]                 })
  [13:41:42.699]             }))
  [13:41:42.699]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.699]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.699]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.699]                 version = "1.8")
  [13:41:42.699]         }, condition = base::local({
  [13:41:42.699]             c <- base::c
  [13:41:42.699]             inherits <- base::inherits
  [13:41:42.699]             invokeRestart <- base::invokeRestart
  [13:41:42.699]             length <- base::length
  [13:41:42.699]             list <- base::list
  [13:41:42.699]             seq.int <- base::seq.int
  [13:41:42.699]             signalCondition <- base::signalCondition
  [13:41:42.699]             sys.calls <- base::sys.calls
  [13:41:42.699]             Sys.time <- base::Sys.time
  [13:41:42.699]             `[[` <- base::`[[`
  [13:41:42.699]             `+` <- base::`+`
  [13:41:42.699]             `<<-` <- base::`<<-`
  [13:41:42.699]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.699]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.699]                   3L)]
  [13:41:42.699]             }
  [13:41:42.699]             function(cond) {
  [13:41:42.699]                 if (inherits(cond, "error")) {
  [13:41:42.699]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.699]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.699]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.699]                   signalCondition(cond)
  [13:41:42.699]                 }
  [13:41:42.699]                 else if (inherits(cond, "condition")) {
  [13:41:42.699]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:42.699]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.699]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.699]                   if (!signal) {
  [13:41:42.699]                     muffleCondition <- function (cond) 
  [13:41:42.699]                     {
  [13:41:42.699]                       inherits <- base::inherits
  [13:41:42.699]                       invokeRestart <- base::invokeRestart
  [13:41:42.699]                       muffled <- FALSE
  [13:41:42.699]                       if (inherits(cond, "message")) {
  [13:41:42.699]                         invokeRestart("muffleMessage")
  [13:41:42.699]                         muffled <- TRUE
  [13:41:42.699]                       }
  [13:41:42.699]                       else if (inherits(cond, "warning")) {
  [13:41:42.699]                         invokeRestart("muffleWarning")
  [13:41:42.699]                         muffled <- TRUE
  [13:41:42.699]                       }
  [13:41:42.699]                       else if (inherits(cond, "condition")) {
  [13:41:42.699]                         computeRestarts <- base::computeRestarts
  [13:41:42.699]                         grepl <- base::grepl
  [13:41:42.699]                         is.null <- base::is.null
  [13:41:42.699]                         restarts <- computeRestarts(cond)
  [13:41:42.699]                         for (restart in restarts) {
  [13:41:42.699]                           name <- restart$name
  [13:41:42.699]                           if (is.null(name)) 
  [13:41:42.699]                             next
  [13:41:42.699]                           if (!grepl("^muffle", name)) 
  [13:41:42.699]                             next
  [13:41:42.699]                           invokeRestart(restart)
  [13:41:42.699]                           muffled <- TRUE
  [13:41:42.699]                           break
  [13:41:42.699]                         }
  [13:41:42.699]                       }
  [13:41:42.699]                       invisible(muffled)
  [13:41:42.699]                     }
  [13:41:42.699]                     muffleCondition(cond)
  [13:41:42.699]                   }
  [13:41:42.699]                 }
  [13:41:42.699]             }
  [13:41:42.699]         }))
  [13:41:42.699]     }, error = function(ex) {
  [13:41:42.699]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.699]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.699]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.699]     }, finally = {
  [13:41:42.699]         {
  [13:41:42.699]             {
  [13:41:42.699]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:42.699]             }
  [13:41:42.699]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.699]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.699]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.699]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.699]             {
  [13:41:42.699]                 if (substitute) 
  [13:41:42.699]                   expr <- substitute(expr)
  [13:41:42.699]                 if (is.function(workers)) 
  [13:41:42.699]                   workers <- workers()
  [13:41:42.699]                 workers <- as.integer(workers)
  [13:41:42.699]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.699]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.699]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.699]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.699]                     local = TRUE, label = label, ...))
  [13:41:42.699]                 }
  [13:41:42.699]                 oopts <- options(mc.cores = workers)
  [13:41:42.699]                 on.exit(options(oopts))
  [13:41:42.699]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.699]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.699]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.699]                   label = label, ...)
  [13:41:42.699]                 if (!future$lazy) 
  [13:41:42.699]                   future <- run(future)
  [13:41:42.699]                 invisible(future)
  [13:41:42.699]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.699]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.699]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.699]             {
  [13:41:42.699]                 if (substitute) 
  [13:41:42.699]                   expr <- substitute(expr)
  [13:41:42.699]                 if (is.function(workers)) 
  [13:41:42.699]                   workers <- workers()
  [13:41:42.699]                 workers <- as.integer(workers)
  [13:41:42.699]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.699]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.699]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.699]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.699]                     local = TRUE, label = label, ...))
  [13:41:42.699]                 }
  [13:41:42.699]                 oopts <- options(mc.cores = workers)
  [13:41:42.699]                 on.exit(options(oopts))
  [13:41:42.699]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.699]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.699]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.699]                   label = label, ...)
  [13:41:42.699]                 if (!future$lazy) 
  [13:41:42.699]                   future <- run(future)
  [13:41:42.699]                 invisible(future)
  [13:41:42.699]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.699]         }
  [13:41:42.699]         base::options(...future.oldOptions)
  [13:41:42.699]     })
  [13:41:42.699]     Sys.time
  [13:41:42.699]     if (base::is.na(TRUE)) {
  [13:41:42.699]     }
  [13:41:42.699]     else {
  [13:41:42.699]         base::sink(type = "output", split = FALSE)
  [13:41:42.699]         if (TRUE) {
  [13:41:42.699]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.699]         }
  [13:41:42.699]         else {
  [13:41:42.699]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.699]         }
  [13:41:42.699]         base::close(...future.stdout)
  [13:41:42.699]         ...future.stdout <- NULL
  [13:41:42.699]     }
  [13:41:42.699]     ...future.result$conditions <- ...future.conditions
  [13:41:42.699]     ...future.result
  [13:41:42.699] }
  [13:41:42.707] requestCore(): workers = 2
  [13:41:42.710] MulticoreFuture started
  [13:41:42.711] Chunk #2 of 2 ... DONE
  [13:41:42.712] Launching 2 futures (chunks) ... DONE
  [13:41:42.712] - resolving futures
  [13:41:42.712]   - gathering results & relaying conditions (except errors)
  [13:41:42.713] resolve() on list ...
  [13:41:42.721]  recursive: 0
  [13:41:42.721]  length: 2
  [13:41:42.722] 
  [13:41:42.723] Future #1
  [13:41:42.730] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:41:42.731] - nx: 2
  [13:41:42.731] - relay: TRUE
  [13:41:42.732] - stdout: TRUE
  [13:41:42.732] - signal: TRUE
  [13:41:42.733] - resignal: FALSE
  [13:41:42.733] - force: FALSE
  [13:41:42.733] - relayed: [n=2] FALSE, FALSE
  [13:41:42.734] - queued futures: [n=2] FALSE, FALSE
  [13:41:42.734]  - until=1
  [13:41:42.735]  - relaying element #1
  [13:41:42.736] - relayed: [n=2] TRUE, FALSE
  [13:41:42.736] - queued futures: [n=2] TRUE, FALSE
  [13:41:42.737] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:41:42.737]  length: 1 (resolved future 1)
  [13:41:42.741] plan(): Setting new future strategy stack:
  [13:41:42.742] List of future strategies:
  [13:41:42.742] 1. multicore:
  [13:41:42.742]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.742]    - tweaked: FALSE
  [13:41:42.742]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.745] plan(): nbrOfWorkers() = 1
  [13:41:42.763] plan(): Setting new future strategy stack:
  [13:41:42.764] List of future strategies:
  [13:41:42.764] 1. multicore:
  [13:41:42.764]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.764]    - tweaked: FALSE
  [13:41:42.764]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.764] 2. multicore:
  [13:41:42.764]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.764]    - tweaked: FALSE
  [13:41:42.764]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.766] plan(): nbrOfWorkers() = 2
  [13:41:42.767] Future #2
  [13:41:42.770] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:41:42.771] - nx: 2
  [13:41:42.771] - relay: TRUE
  [13:41:42.771] - stdout: TRUE
  [13:41:42.772] - signal: TRUE
  [13:41:42.772] - resignal: FALSE
  [13:41:42.773] - force: FALSE
  [13:41:42.773] - relayed: [n=2] TRUE, FALSE
  [13:41:42.773] - queued futures: [n=2] TRUE, FALSE
  [13:41:42.774]  - until=2
  [13:41:42.774]  - relaying element #2
  [13:41:42.775] - relayed: [n=2] TRUE, TRUE
  [13:41:42.775] - queued futures: [n=2] TRUE, TRUE
  [13:41:42.776] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:41:42.776]  length: 0 (resolved future 2)
  [13:41:42.777] Relaying remaining futures
  [13:41:42.777] signalConditionsASAP(NULL, pos=0) ...
  [13:41:42.777] - nx: 2
  [13:41:42.778] - relay: TRUE
  [13:41:42.778] - stdout: TRUE
  [13:41:42.778] - signal: TRUE
  [13:41:42.779] - resignal: FALSE
  [13:41:42.779] - force: FALSE
  [13:41:42.780] - relayed: [n=2] TRUE, TRUE
  [13:41:42.780] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:41:42.781] - relayed: [n=2] TRUE, TRUE
  [13:41:42.781] - queued futures: [n=2] TRUE, TRUE
  [13:41:42.781] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:42.782] resolve() on list ... DONE
  [13:41:42.782] - collecting values of futures
  [13:41:42.807] - accumulating results
  [13:41:42.810] - processing errors (handler = 'stop')
  [13:41:42.811] - extracting results
  [13:41:42.811] doFuture() ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [13:41:42.812] plan(): Setting new future strategy stack:
  [13:41:42.813] List of future strategies:
  [13:41:42.813] 1. multicore:
  [13:41:42.813]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.813]    - tweaked: FALSE
  [13:41:42.813]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.813] 2. multisession:
  [13:41:42.813]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.813]    - tweaked: FALSE
  [13:41:42.813]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.815] plan(): nbrOfWorkers() = 2
  [13:41:42.816] doFuture() ...
  [13:41:42.837] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:42.838] - R expression:
  [13:41:42.839] {
  [13:41:42.839]     doFuture::registerDoFuture()
  [13:41:42.839]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.839]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.839]         {
  [13:41:42.839]             a <- NULL
  [13:41:42.839]             b <- NULL
  [13:41:42.839]         }
  [13:41:42.839]         ...future.env <- environment()
  [13:41:42.839]         local({
  [13:41:42.839]             for (name in names(...future.x_jj)) {
  [13:41:42.839]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.839]                   inherits = FALSE)
  [13:41:42.839]             }
  [13:41:42.839]         })
  [13:41:42.839]         tryCatch({
  [13:41:42.839]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.839]                 plan = future::plan("next"))
  [13:41:42.839]         }, error = identity)
  [13:41:42.839]     })
  [13:41:42.839] }
  [13:41:42.840] - identifying globals and packages ...
  [13:41:42.840] getGlobalsAndPackages() ...
  [13:41:42.840] Searching for globals...
  [13:41:42.874] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:42.874] Searching for globals ... DONE
  [13:41:42.875] Resolving globals: FALSE
  [13:41:42.876] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:42.877] - globals: [1] '...future.x_ii'
  [13:41:42.877] 
  [13:41:42.877] getGlobalsAndPackages() ... DONE
  [13:41:42.878] List of 1
  [13:41:42.878]  $ ...future.x_ii: NULL
  [13:41:42.878]  - attr(*, "where")=List of 1
  [13:41:42.878]   ..$ ...future.x_ii:<environment: 0x5617cca8a2f8> 
  [13:41:42.878]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.878]  - attr(*, "resolved")= logi FALSE
  [13:41:42.878]  - attr(*, "total_size")= num 0
  [13:41:42.905]   - R expression:
  [13:41:42.905] {
  [13:41:42.905]     doFuture::registerDoFuture()
  [13:41:42.905]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.905]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.905]         {
  [13:41:42.905]             a <- NULL
  [13:41:42.905]             b <- NULL
  [13:41:42.905]         }
  [13:41:42.905]         ...future.env <- environment()
  [13:41:42.905]         local({
  [13:41:42.905]             for (name in names(...future.x_jj)) {
  [13:41:42.905]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.905]                   inherits = FALSE)
  [13:41:42.905]             }
  [13:41:42.905]         })
  [13:41:42.905]         tryCatch({
  [13:41:42.905]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.905]                 plan = future::plan("next"))
  [13:41:42.905]         }, error = identity)
  [13:41:42.905]     })
  [13:41:42.905] }
  [13:41:42.906]   - globals: [1] '...future.x_ii'
  [13:41:42.907] List of 1
  [13:41:42.907]  $ ...future.x_ii: NULL
  [13:41:42.907]  - attr(*, "where")=List of 1
  [13:41:42.907]   ..$ ...future.x_ii:<environment: 0x5617cca8a2f8> 
  [13:41:42.907]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:42.907]  - attr(*, "resolved")= logi FALSE
  [13:41:42.907]  - attr(*, "total_size")= num 0
  [13:41:42.913]   - packages: [1] 'doFuture'
  [13:41:42.913] - identifying globals and packages ... DONE
  [13:41:42.931] Number of chunks: 2
  [13:41:42.931] Number of futures (= number of chunks): 2
  [13:41:42.932] Launching 2 futures (chunks) ...
  [13:41:42.932] Chunk #1 of 2 ...
  [13:41:42.932]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:42.933] getGlobalsAndPackages() ...
  [13:41:42.933] Searching for globals...
  [13:41:42.934] 
  [13:41:42.934] Searching for globals ... DONE
  [13:41:42.935] - globals: [0] <none>
  [13:41:42.935] getGlobalsAndPackages() ... DONE
  [13:41:42.935] 
  [13:41:42.935] 
  [13:41:42.936]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:42.937] getGlobalsAndPackages() ...
  [13:41:42.937] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.937] Resolving globals: FALSE
  [13:41:42.938] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:42.939] - globals: [1] '...future.x_ii'
  [13:41:42.939] 
  [13:41:42.940] getGlobalsAndPackages() ... DONE
  [13:41:42.942] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:42.943] Packages needed by future strategies (n = 1): 'future'
  [13:41:42.965] {
  [13:41:42.965]     {
  [13:41:42.965]         ...future.startTime <- base::Sys.time()
  [13:41:42.965]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:42.965]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:42.965]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:42.965]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:42.965]             future.resolve.recursive = NULL, width = 80L)
  [13:41:42.965]         {
  [13:41:42.965]             {
  [13:41:42.965]                 {
  [13:41:42.965]                   {
  [13:41:42.965]                     has_future <- base::requireNamespace("future", 
  [13:41:42.965]                       quietly = TRUE)
  [13:41:42.965]                     version <- if (has_future) 
  [13:41:42.965]                       utils::packageVersion("future")
  [13:41:42.965]                     else NULL
  [13:41:42.965]                     if (!has_future || version < "1.8.0") {
  [13:41:42.965]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:42.965]                         "", base::R.version$version.string), 
  [13:41:42.965]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:42.965]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:42.965]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:42.965]                           "release", "version")], collapse = " "), 
  [13:41:42.965]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:42.965]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:42.965]                         info)
  [13:41:42.965]                       info <- base::paste(info, collapse = "; ")
  [13:41:42.965]                       if (!has_future) {
  [13:41:42.965]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:42.965]                           info)
  [13:41:42.965]                       }
  [13:41:42.965]                       else {
  [13:41:42.965]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:42.965]                           info, version)
  [13:41:42.965]                       }
  [13:41:42.965]                       base::stop(msg)
  [13:41:42.965]                     }
  [13:41:42.965]                   }
  [13:41:42.965]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:42.965]                   base::options(mc.cores = 1L)
  [13:41:42.965]                 }
  [13:41:42.965]                 base::local({
  [13:41:42.965]                   for (pkg in c("doFuture", "future")) {
  [13:41:42.965]                     base::loadNamespace(pkg)
  [13:41:42.965]                     base::library(pkg, character.only = TRUE)
  [13:41:42.965]                   }
  [13:41:42.965]                 })
  [13:41:42.965]             }
  [13:41:42.965]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:42.965]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.965]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:42.965]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:42.965]                 ...) 
  [13:41:42.965]             {
  [13:41:42.965]                 if (substitute) 
  [13:41:42.965]                   expr <- substitute(expr)
  [13:41:42.965]                 if (is.function(workers)) 
  [13:41:42.965]                   workers <- workers()
  [13:41:42.965]                 workers <- as.integer(workers)
  [13:41:42.965]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:42.965]                   workers >= 1)
  [13:41:42.965]                 if (workers == 1L) {
  [13:41:42.965]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.965]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:42.965]                     local = TRUE, label = label, ...))
  [13:41:42.965]                 }
  [13:41:42.965]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:42.965]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:42.965]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.965]                   globals = globals, persistent = persistent, 
  [13:41:42.965]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:42.965]                   label = label, ...)
  [13:41:42.965]                 if (!future$lazy) 
  [13:41:42.965]                   future <- run(future)
  [13:41:42.965]                 invisible(future)
  [13:41:42.965]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.965]         }
  [13:41:42.965]     }
  [13:41:42.965]     if (base::is.na(TRUE)) {
  [13:41:42.965]     }
  [13:41:42.965]     else {
  [13:41:42.965]         if (TRUE) {
  [13:41:42.965]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:42.965]                 open = "w")
  [13:41:42.965]         }
  [13:41:42.965]         else {
  [13:41:42.965]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:42.965]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:42.965]         }
  [13:41:42.965]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:42.965]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:42.965]             base::sink(type = "output", split = FALSE)
  [13:41:42.965]             base::close(...future.stdout)
  [13:41:42.965]         }, add = TRUE)
  [13:41:42.965]     }
  [13:41:42.965]     ...future.frame <- base::sys.nframe()
  [13:41:42.965]     ...future.conditions <- base::list()
  [13:41:42.965]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:42.965]     ...future.result <- base::tryCatch({
  [13:41:42.965]         base::withCallingHandlers({
  [13:41:42.965]             ...future.value <- base::withVisible(base::local({
  [13:41:42.965]                 doFuture::registerDoFuture()
  [13:41:42.965]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:42.965]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:42.965]                   {
  [13:41:42.965]                     a <- NULL
  [13:41:42.965]                     b <- NULL
  [13:41:42.965]                   }
  [13:41:42.965]                   ...future.env <- environment()
  [13:41:42.965]                   local({
  [13:41:42.965]                     for (name in names(...future.x_jj)) {
  [13:41:42.965]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:42.965]                         inherits = FALSE)
  [13:41:42.965]                     }
  [13:41:42.965]                   })
  [13:41:42.965]                   tryCatch({
  [13:41:42.965]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:42.965]                       plan = future::plan("next"))
  [13:41:42.965]                   }, error = identity)
  [13:41:42.965]                 })
  [13:41:42.965]             }))
  [13:41:42.965]             future::FutureResult(value = ...future.value$value, 
  [13:41:42.965]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.965]                   ...future.rng), started = ...future.startTime, 
  [13:41:42.965]                 version = "1.8")
  [13:41:42.965]         }, condition = base::local({
  [13:41:42.965]             c <- base::c
  [13:41:42.965]             inherits <- base::inherits
  [13:41:42.965]             invokeRestart <- base::invokeRestart
  [13:41:42.965]             length <- base::length
  [13:41:42.965]             list <- base::list
  [13:41:42.965]             seq.int <- base::seq.int
  [13:41:42.965]             signalCondition <- base::signalCondition
  [13:41:42.965]             sys.calls <- base::sys.calls
  [13:41:42.965]             Sys.time <- base::Sys.time
  [13:41:42.965]             `[[` <- base::`[[`
  [13:41:42.965]             `+` <- base::`+`
  [13:41:42.965]             `<<-` <- base::`<<-`
  [13:41:42.965]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:42.965]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:42.965]                   3L)]
  [13:41:42.965]             }
  [13:41:42.965]             function(cond) {
  [13:41:42.965]                 if (inherits(cond, "error")) {
  [13:41:42.965]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.965]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:42.965]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:42.965]                   signalCondition(cond)
  [13:41:42.965]                 }
  [13:41:42.965]                 else if (inherits(cond, "condition")) {
  [13:41:42.965]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:42.965]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:42.965]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:42.965]                   if (!signal) {
  [13:41:42.965]                     muffleCondition <- function (cond) 
  [13:41:42.965]                     {
  [13:41:42.965]                       inherits <- base::inherits
  [13:41:42.965]                       invokeRestart <- base::invokeRestart
  [13:41:42.965]                       muffled <- FALSE
  [13:41:42.965]                       if (inherits(cond, "message")) {
  [13:41:42.965]                         invokeRestart("muffleMessage")
  [13:41:42.965]                         muffled <- TRUE
  [13:41:42.965]                       }
  [13:41:42.965]                       else if (inherits(cond, "warning")) {
  [13:41:42.965]                         invokeRestart("muffleWarning")
  [13:41:42.965]                         muffled <- TRUE
  [13:41:42.965]                       }
  [13:41:42.965]                       else if (inherits(cond, "condition")) {
  [13:41:42.965]                         computeRestarts <- base::computeRestarts
  [13:41:42.965]                         grepl <- base::grepl
  [13:41:42.965]                         is.null <- base::is.null
  [13:41:42.965]                         restarts <- computeRestarts(cond)
  [13:41:42.965]                         for (restart in restarts) {
  [13:41:42.965]                           name <- restart$name
  [13:41:42.965]                           if (is.null(name)) 
  [13:41:42.965]                             next
  [13:41:42.965]                           if (!grepl("^muffle", name)) 
  [13:41:42.965]                             next
  [13:41:42.965]                           invokeRestart(restart)
  [13:41:42.965]                           muffled <- TRUE
  [13:41:42.965]                           break
  [13:41:42.965]                         }
  [13:41:42.965]                       }
  [13:41:42.965]                       invisible(muffled)
  [13:41:42.965]                     }
  [13:41:42.965]                     muffleCondition(cond)
  [13:41:42.965]                   }
  [13:41:42.965]                 }
  [13:41:42.965]             }
  [13:41:42.965]         }))
  [13:41:42.965]     }, error = function(ex) {
  [13:41:42.965]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:42.965]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:42.965]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:42.965]     }, finally = {
  [13:41:42.965]         {
  [13:41:42.965]             {
  [13:41:42.965]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:42.965]             }
  [13:41:42.965]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:42.965]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:42.965]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:42.965]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:42.965]             {
  [13:41:42.965]                 if (substitute) 
  [13:41:42.965]                   expr <- substitute(expr)
  [13:41:42.965]                 if (is.function(workers)) 
  [13:41:42.965]                   workers <- workers()
  [13:41:42.965]                 workers <- as.integer(workers)
  [13:41:42.965]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:42.965]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:42.965]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.965]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:42.965]                     local = TRUE, label = label, ...))
  [13:41:42.965]                 }
  [13:41:42.965]                 oopts <- options(mc.cores = workers)
  [13:41:42.965]                 on.exit(options(oopts))
  [13:41:42.965]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:42.965]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.965]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:42.965]                   label = label, ...)
  [13:41:42.965]                 if (!future$lazy) 
  [13:41:42.965]                   future <- run(future)
  [13:41:42.965]                 invisible(future)
  [13:41:42.965]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:42.965]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:42.965]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:41:42.965]                 label = NULL, ...) 
  [13:41:42.965]             {
  [13:41:42.965]                 if (substitute) 
  [13:41:42.965]                   expr <- substitute(expr)
  [13:41:42.965]                 if (is.function(workers)) 
  [13:41:42.965]                   workers <- workers()
  [13:41:42.965]                 workers <- as.integer(workers)
  [13:41:42.965]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:42.965]                   workers >= 1)
  [13:41:42.965]                 if (workers == 1L) {
  [13:41:42.965]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:42.965]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:42.965]                     local = TRUE, label = label, ...))
  [13:41:42.965]                 }
  [13:41:42.965]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:42.965]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:42.965]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:42.965]                   globals = globals, persistent = persistent, 
  [13:41:42.965]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:42.965]                   label = label, ...)
  [13:41:42.965]                 if (!future$lazy) 
  [13:41:42.965]                   future <- run(future)
  [13:41:42.965]                 invisible(future)
  [13:41:42.965]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:42.965]         }
  [13:41:42.965]         base::options(...future.oldOptions)
  [13:41:42.965]     })
  [13:41:42.965]     Sys.time
  [13:41:42.965]     if (base::is.na(TRUE)) {
  [13:41:42.965]     }
  [13:41:42.965]     else {
  [13:41:42.965]         base::sink(type = "output", split = FALSE)
  [13:41:42.965]         if (TRUE) {
  [13:41:42.965]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:42.965]         }
  [13:41:42.965]         else {
  [13:41:42.965]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:42.965]         }
  [13:41:42.965]         base::close(...future.stdout)
  [13:41:42.965]         ...future.stdout <- NULL
  [13:41:42.965]     }
  [13:41:42.965]     ...future.result$conditions <- ...future.conditions
  [13:41:42.965]     ...future.result
  [13:41:42.965] }
  [13:41:42.971] requestCore(): workers = 2
  [13:41:42.975] MulticoreFuture started
  [13:41:42.976] Chunk #1 of 2 ... DONE
  [13:41:42.976] Chunk #2 of 2 ...
  [13:41:42.976]  - Finding globals in 'args_list' chunk #2 ...
  [13:41:42.977] getGlobalsAndPackages() ...
  [13:41:42.977] Searching for globals...
  [13:41:42.987] plan(): Setting new future strategy stack:
  [13:41:42.988] List of future strategies:
  [13:41:42.988] 1. multisession:
  [13:41:42.988]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.988]    - tweaked: FALSE
  [13:41:42.988]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.990] plan(): nbrOfWorkers() = 1
  [13:41:42.993] plan(): Setting new future strategy stack:
  [13:41:42.995] 
  [13:41:42.993] List of future strategies:
  [13:41:42.993] 1. multicore:
  [13:41:42.993]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:42.993]    - tweaked: FALSE
  [13:41:42.993]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.993] 2. multisession:
  [13:41:42.993]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:42.993]    - tweaked: FALSE
  [13:41:42.993]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:42.995] Searching for globals ... DONE
  [13:41:42.995] - globals: [0] <none>
  [13:41:42.996] getGlobalsAndPackages() ... DONE
  [13:41:42.996] 
  [13:41:42.996] plan(): nbrOfWorkers() = 2
  [13:41:42.996] 
  [13:41:42.997]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:41:42.998] getGlobalsAndPackages() ...
  [13:41:42.998] - globals passed as-is: [1] '...future.x_ii'
  [13:41:42.999] Resolving globals: FALSE
  [13:41:43.000] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:43.000] - globals: [1] '...future.x_ii'
  [13:41:43.001] 
  [13:41:43.001] getGlobalsAndPackages() ... DONE
  [13:41:43.004] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:43.005] Packages needed by future strategies (n = 1): 'future'
  [13:41:43.012] {
  [13:41:43.012]     {
  [13:41:43.012]         ...future.startTime <- base::Sys.time()
  [13:41:43.012]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:43.012]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:43.012]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:43.012]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:43.012]             future.resolve.recursive = NULL, width = 80L)
  [13:41:43.012]         {
  [13:41:43.012]             {
  [13:41:43.012]                 {
  [13:41:43.012]                   {
  [13:41:43.012]                     has_future <- base::requireNamespace("future", 
  [13:41:43.012]                       quietly = TRUE)
  [13:41:43.012]                     version <- if (has_future) 
  [13:41:43.012]                       utils::packageVersion("future")
  [13:41:43.012]                     else NULL
  [13:41:43.012]                     if (!has_future || version < "1.8.0") {
  [13:41:43.012]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:43.012]                         "", base::R.version$version.string), 
  [13:41:43.012]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:43.012]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:43.012]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:43.012]                           "release", "version")], collapse = " "), 
  [13:41:43.012]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:43.012]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:43.012]                         info)
  [13:41:43.012]                       info <- base::paste(info, collapse = "; ")
  [13:41:43.012]                       if (!has_future) {
  [13:41:43.012]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:43.012]                           info)
  [13:41:43.012]                       }
  [13:41:43.012]                       else {
  [13:41:43.012]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:43.012]                           info, version)
  [13:41:43.012]                       }
  [13:41:43.012]                       base::stop(msg)
  [13:41:43.012]                     }
  [13:41:43.012]                   }
  [13:41:43.012]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:43.012]                   base::options(mc.cores = 1L)
  [13:41:43.012]                 }
  [13:41:43.012]                 base::local({
  [13:41:43.012]                   for (pkg in c("doFuture", "future")) {
  [13:41:43.012]                     base::loadNamespace(pkg)
  [13:41:43.012]                     base::library(pkg, character.only = TRUE)
  [13:41:43.012]                   }
  [13:41:43.012]                 })
  [13:41:43.012]             }
  [13:41:43.012]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:43.012]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.012]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:43.012]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:43.012]                 ...) 
  [13:41:43.012]             {
  [13:41:43.012]                 if (substitute) 
  [13:41:43.012]                   expr <- substitute(expr)
  [13:41:43.012]                 if (is.function(workers)) 
  [13:41:43.012]                   workers <- workers()
  [13:41:43.012]                 workers <- as.integer(workers)
  [13:41:43.012]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:43.012]                   workers >= 1)
  [13:41:43.012]                 if (workers == 1L) {
  [13:41:43.012]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:43.012]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:43.012]                     local = TRUE, label = label, ...))
  [13:41:43.012]                 }
  [13:41:43.012]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:43.012]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:43.012]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.012]                   globals = globals, persistent = persistent, 
  [13:41:43.012]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:43.012]                   label = label, ...)
  [13:41:43.012]                 if (!future$lazy) 
  [13:41:43.012]                   future <- run(future)
  [13:41:43.012]                 invisible(future)
  [13:41:43.012]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.012]         }
  [13:41:43.012]     }
  [13:41:43.012]     if (base::is.na(TRUE)) {
  [13:41:43.012]     }
  [13:41:43.012]     else {
  [13:41:43.012]         if (TRUE) {
  [13:41:43.012]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:43.012]                 open = "w")
  [13:41:43.012]         }
  [13:41:43.012]         else {
  [13:41:43.012]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:43.012]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:43.012]         }
  [13:41:43.012]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:43.012]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:43.012]             base::sink(type = "output", split = FALSE)
  [13:41:43.012]             base::close(...future.stdout)
  [13:41:43.012]         }, add = TRUE)
  [13:41:43.012]     }
  [13:41:43.012]     ...future.frame <- base::sys.nframe()
  [13:41:43.012]     ...future.conditions <- base::list()
  [13:41:43.012]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:43.012]     ...future.result <- base::tryCatch({
  [13:41:43.012]         base::withCallingHandlers({
  [13:41:43.012]             ...future.value <- base::withVisible(base::local({
  [13:41:43.012]                 doFuture::registerDoFuture()
  [13:41:43.012]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:43.012]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:43.012]                   {
  [13:41:43.012]                     a <- NULL
  [13:41:43.012]                     b <- NULL
  [13:41:43.012]                   }
  [13:41:43.012]                   ...future.env <- environment()
  [13:41:43.012]                   local({
  [13:41:43.012]                     for (name in names(...future.x_jj)) {
  [13:41:43.012]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:43.012]                         inherits = FALSE)
  [13:41:43.012]                     }
  [13:41:43.012]                   })
  [13:41:43.012]                   tryCatch({
  [13:41:43.012]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:43.012]                       plan = future::plan("next"))
  [13:41:43.012]                   }, error = identity)
  [13:41:43.012]                 })
  [13:41:43.012]             }))
  [13:41:43.012]             future::FutureResult(value = ...future.value$value, 
  [13:41:43.012]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.012]                   ...future.rng), started = ...future.startTime, 
  [13:41:43.012]                 version = "1.8")
  [13:41:43.012]         }, condition = base::local({
  [13:41:43.012]             c <- base::c
  [13:41:43.012]             inherits <- base::inherits
  [13:41:43.012]             invokeRestart <- base::invokeRestart
  [13:41:43.012]             length <- base::length
  [13:41:43.012]             list <- base::list
  [13:41:43.012]             seq.int <- base::seq.int
  [13:41:43.012]             signalCondition <- base::signalCondition
  [13:41:43.012]             sys.calls <- base::sys.calls
  [13:41:43.012]             Sys.time <- base::Sys.time
  [13:41:43.012]             `[[` <- base::`[[`
  [13:41:43.012]             `+` <- base::`+`
  [13:41:43.012]             `<<-` <- base::`<<-`
  [13:41:43.012]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:43.012]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:43.012]                   3L)]
  [13:41:43.012]             }
  [13:41:43.012]             function(cond) {
  [13:41:43.012]                 if (inherits(cond, "error")) {
  [13:41:43.012]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.012]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:43.012]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:43.012]                   signalCondition(cond)
  [13:41:43.012]                 }
  [13:41:43.012]                 else if (inherits(cond, "condition")) {
  [13:41:43.012]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:43.012]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.012]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:43.012]                   if (!signal) {
  [13:41:43.012]                     muffleCondition <- function (cond) 
  [13:41:43.012]                     {
  [13:41:43.012]                       inherits <- base::inherits
  [13:41:43.012]                       invokeRestart <- base::invokeRestart
  [13:41:43.012]                       muffled <- FALSE
  [13:41:43.012]                       if (inherits(cond, "message")) {
  [13:41:43.012]                         invokeRestart("muffleMessage")
  [13:41:43.012]                         muffled <- TRUE
  [13:41:43.012]                       }
  [13:41:43.012]                       else if (inherits(cond, "warning")) {
  [13:41:43.012]                         invokeRestart("muffleWarning")
  [13:41:43.012]                         muffled <- TRUE
  [13:41:43.012]                       }
  [13:41:43.012]                       else if (inherits(cond, "condition")) {
  [13:41:43.012]                         computeRestarts <- base::computeRestarts
  [13:41:43.012]                         grepl <- base::grepl
  [13:41:43.012]                         is.null <- base::is.null
  [13:41:43.012]                         restarts <- computeRestarts(cond)
  [13:41:43.012]                         for (restart in restarts) {
  [13:41:43.012]                           name <- restart$name
  [13:41:43.012]                           if (is.null(name)) 
  [13:41:43.012]                             next
  [13:41:43.012]                           if (!grepl("^muffle", name)) 
  [13:41:43.012]                             next
  [13:41:43.012]                           invokeRestart(restart)
  [13:41:43.012]                           muffled <- TRUE
  [13:41:43.012]                           break
  [13:41:43.012]                         }
  [13:41:43.012]                       }
  [13:41:43.012]                       invisible(muffled)
  [13:41:43.012]                     }
  [13:41:43.012]                     muffleCondition(cond)
  [13:41:43.012]                   }
  [13:41:43.012]                 }
  [13:41:43.012]             }
  [13:41:43.012]         }))
  [13:41:43.012]     }, error = function(ex) {
  [13:41:43.012]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:43.012]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.012]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:43.012]     }, finally = {
  [13:41:43.012]         {
  [13:41:43.012]             {
  [13:41:43.012]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:43.012]             }
  [13:41:43.012]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:43.012]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.012]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:43.012]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:43.012]             {
  [13:41:43.012]                 if (substitute) 
  [13:41:43.012]                   expr <- substitute(expr)
  [13:41:43.012]                 if (is.function(workers)) 
  [13:41:43.012]                   workers <- workers()
  [13:41:43.012]                 workers <- as.integer(workers)
  [13:41:43.012]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:43.012]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:43.012]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:43.012]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:43.012]                     local = TRUE, label = label, ...))
  [13:41:43.012]                 }
  [13:41:43.012]                 oopts <- options(mc.cores = workers)
  [13:41:43.012]                 on.exit(options(oopts))
  [13:41:43.012]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:43.012]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.012]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:43.012]                   label = label, ...)
  [13:41:43.012]                 if (!future$lazy) 
  [13:41:43.012]                   future <- run(future)
  [13:41:43.012]                 invisible(future)
  [13:41:43.012]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:43.012]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:43.012]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:41:43.012]                 label = NULL, ...) 
  [13:41:43.012]             {
  [13:41:43.012]                 if (substitute) 
  [13:41:43.012]                   expr <- substitute(expr)
  [13:41:43.012]                 if (is.function(workers)) 
  [13:41:43.012]                   workers <- workers()
  [13:41:43.012]                 workers <- as.integer(workers)
  [13:41:43.012]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:43.012]                   workers >= 1)
  [13:41:43.012]                 if (workers == 1L) {
  [13:41:43.012]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:43.012]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:43.012]                     local = TRUE, label = label, ...))
  [13:41:43.012]                 }
  [13:41:43.012]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:43.012]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:43.012]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.012]                   globals = globals, persistent = persistent, 
  [13:41:43.012]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:43.012]                   label = label, ...)
  [13:41:43.012]                 if (!future$lazy) 
  [13:41:43.012]                   future <- run(future)
  [13:41:43.012]                 invisible(future)
  [13:41:43.012]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.012]         }
  [13:41:43.012]         base::options(...future.oldOptions)
  [13:41:43.012]     })
  [13:41:43.012]     Sys.time
  [13:41:43.012]     if (base::is.na(TRUE)) {
  [13:41:43.012]     }
  [13:41:43.012]     else {
  [13:41:43.012]         base::sink(type = "output", split = FALSE)
  [13:41:43.012]         if (TRUE) {
  [13:41:43.012]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:43.012]         }
  [13:41:43.012]         else {
  [13:41:43.012]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:43.012]         }
  [13:41:43.012]         base::close(...future.stdout)
  [13:41:43.012]         ...future.stdout <- NULL
  [13:41:43.012]     }
  [13:41:43.012]     ...future.result$conditions <- ...future.conditions
  [13:41:43.012]     ...future.result
  [13:41:43.012] }
  [13:41:43.021] requestCore(): workers = 2
  [13:41:43.024] MulticoreFuture started
  [13:41:43.025] Chunk #2 of 2 ... DONE
  [13:41:43.026] Launching 2 futures (chunks) ... DONE
  [13:41:43.026] - resolving futures
  [13:41:43.026]   - gathering results & relaying conditions (except errors)
  [13:41:43.027] resolve() on list ...
  [13:41:43.027]  recursive: 0
  [13:41:43.028]  length: 2
  [13:41:43.028] 
  [13:41:43.029] Future #1
  [13:41:43.032] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:41:43.033] - nx: 2
  [13:41:43.033] - relay: TRUE
  [13:41:43.033] - stdout: TRUE
  [13:41:43.034] - signal: TRUE
  [13:41:43.034] - resignal: FALSE
  [13:41:43.034] - force: FALSE
  [13:41:43.035] - relayed: [n=2] FALSE, FALSE
  [13:41:43.035] - queued futures: [n=2] FALSE, FALSE
  [13:41:43.036]  - until=1
  [13:41:43.036]  - relaying element #1
  [13:41:43.037] - relayed: [n=2] TRUE, FALSE
  [13:41:43.037] - queued futures: [n=2] TRUE, FALSE
  [13:41:43.037] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:41:43.038]  length: 1 (resolved future 1)
  [13:41:43.043] plan(): Setting new future strategy stack:
  [13:41:43.043] List of future strategies:
  [13:41:43.043] 1. multisession:
  [13:41:43.043]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.043]    - tweaked: FALSE
  [13:41:43.043]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.046] plan(): nbrOfWorkers() = 1
  [13:41:43.048] plan(): Setting new future strategy stack:
  [13:41:43.049] List of future strategies:
  [13:41:43.049] 1. multicore:
  [13:41:43.049]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:43.049]    - tweaked: FALSE
  [13:41:43.049]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.049] 2. multisession:
  [13:41:43.049]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.049]    - tweaked: FALSE
  [13:41:43.049]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.051] plan(): nbrOfWorkers() = 2
  [13:41:43.055] Future #2
  [13:41:43.065] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:41:43.066] - nx: 2
  [13:41:43.066] - relay: TRUE
  [13:41:43.067] - stdout: TRUE
  [13:41:43.067] - signal: TRUE
  [13:41:43.067] - resignal: FALSE
  [13:41:43.068] - force: FALSE
  [13:41:43.068] - relayed: [n=2] TRUE, FALSE
  [13:41:43.068] - queued futures: [n=2] TRUE, FALSE
  [13:41:43.075]  - until=2
  [13:41:43.075]  - relaying element #2
  [13:41:43.076] - relayed: [n=2] TRUE, TRUE
  [13:41:43.076] - queued futures: [n=2] TRUE, TRUE
  [13:41:43.077] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:41:43.077]  length: 0 (resolved future 2)
  [13:41:43.077] Relaying remaining futures
  [13:41:43.078] signalConditionsASAP(NULL, pos=0) ...
  [13:41:43.078] - nx: 2
  [13:41:43.078] - relay: TRUE
  [13:41:43.079] - stdout: TRUE
  [13:41:43.079] - signal: TRUE
  [13:41:43.079] - resignal: FALSE
  [13:41:43.080] - force: FALSE
  [13:41:43.080] - relayed: [n=2] TRUE, TRUE
  [13:41:43.080] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:41:43.081] - relayed: [n=2] TRUE, TRUE
  [13:41:43.081] - queued futures: [n=2] TRUE, TRUE
  [13:41:43.082] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:43.082] resolve() on list ... DONE
  [13:41:43.082] - collecting values of futures
  [13:41:43.083] - accumulating results
  [13:41:43.086] - processing errors (handler = 'stop')
  [13:41:43.086] - extracting results
  [13:41:43.087] doFuture() ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [13:41:43.088] plan(): Setting new future strategy stack:
  [13:41:43.088] List of future strategies:
  [13:41:43.088] 1. multicore:
  [13:41:43.088]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:43.088]    - tweaked: FALSE
  [13:41:43.088]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.088] 2. cluster:
  [13:41:43.088]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.088]    - tweaked: FALSE
  [13:41:43.088]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.091] plan(): nbrOfWorkers() = 2
  [13:41:43.092] doFuture() ...
  [13:41:43.097] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:43.098] - R expression:
  [13:41:43.098] {
  [13:41:43.098]     doFuture::registerDoFuture()
  [13:41:43.098]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:43.098]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:43.098]         {
  [13:41:43.098]             a <- NULL
  [13:41:43.098]             b <- NULL
  [13:41:43.098]         }
  [13:41:43.098]         ...future.env <- environment()
  [13:41:43.098]         local({
  [13:41:43.098]             for (name in names(...future.x_jj)) {
  [13:41:43.098]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:43.098]                   inherits = FALSE)
  [13:41:43.098]             }
  [13:41:43.098]         })
  [13:41:43.098]         tryCatch({
  [13:41:43.098]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:43.098]                 plan = future::plan("next"))
  [13:41:43.098]         }, error = identity)
  [13:41:43.098]     })
  [13:41:43.098] }
  [13:41:43.100] - identifying globals and packages ...
  [13:41:43.100] getGlobalsAndPackages() ...
  [13:41:43.101] Searching for globals...
  [13:41:43.118] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:43.118] Searching for globals ... DONE
  [13:41:43.119] Resolving globals: FALSE
  [13:41:43.121] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:43.121] - globals: [1] '...future.x_ii'
  [13:41:43.122] 
  [13:41:43.122] getGlobalsAndPackages() ... DONE
  [13:41:43.122] List of 1
  [13:41:43.122]  $ ...future.x_ii: NULL
  [13:41:43.122]  - attr(*, "where")=List of 1
  [13:41:43.122]   ..$ ...future.x_ii:<environment: 0x5617cbffa498> 
  [13:41:43.122]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:43.122]  - attr(*, "resolved")= logi FALSE
  [13:41:43.122]  - attr(*, "total_size")= num 0
  [13:41:43.129]   - R expression:
  [13:41:43.129] {
  [13:41:43.129]     doFuture::registerDoFuture()
  [13:41:43.129]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:43.129]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:43.129]         {
  [13:41:43.129]             a <- NULL
  [13:41:43.129]             b <- NULL
  [13:41:43.129]         }
  [13:41:43.129]         ...future.env <- environment()
  [13:41:43.129]         local({
  [13:41:43.129]             for (name in names(...future.x_jj)) {
  [13:41:43.129]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:43.129]                   inherits = FALSE)
  [13:41:43.129]             }
  [13:41:43.129]         })
  [13:41:43.129]         tryCatch({
  [13:41:43.129]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:43.129]                 plan = future::plan("next"))
  [13:41:43.129]         }, error = identity)
  [13:41:43.129]     })
  [13:41:43.129] }
  [13:41:43.130]   - globals: [1] '...future.x_ii'
  [13:41:43.131] List of 1
  [13:41:43.131]  $ ...future.x_ii: NULL
  [13:41:43.131]  - attr(*, "where")=List of 1
  [13:41:43.131]   ..$ ...future.x_ii:<environment: 0x5617cbffa498> 
  [13:41:43.131]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:43.131]  - attr(*, "resolved")= logi FALSE
  [13:41:43.131]  - attr(*, "total_size")= num 0
  [13:41:43.142]   - packages: [1] 'doFuture'
  [13:41:43.142] - identifying globals and packages ... DONE
  [13:41:43.143] Number of chunks: 2
  [13:41:43.144] Number of futures (= number of chunks): 2
  [13:41:43.145] Launching 2 futures (chunks) ...
  [13:41:43.145] Chunk #1 of 2 ...
  [13:41:43.145]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:43.145] getGlobalsAndPackages() ...
  [13:41:43.146] Searching for globals...
  [13:41:43.147] 
  [13:41:43.147] Searching for globals ... DONE
  [13:41:43.147] - globals: [0] <none>
  [13:41:43.148] getGlobalsAndPackages() ... DONE
  [13:41:43.148] 
  [13:41:43.148] 
  [13:41:43.149]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:43.150] getGlobalsAndPackages() ...
  [13:41:43.150] - globals passed as-is: [1] '...future.x_ii'
  [13:41:43.151] Resolving globals: FALSE
  [13:41:43.152] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:43.152] - globals: [1] '...future.x_ii'
  [13:41:43.152] 
  [13:41:43.153] getGlobalsAndPackages() ... DONE
  [13:41:43.155] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:43.156] Packages needed by future strategies (n = 1): 'future'
  [13:41:43.162] {
  [13:41:43.162]     {
  [13:41:43.162]         ...future.startTime <- base::Sys.time()
  [13:41:43.162]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:43.162]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:43.162]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:43.162]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:43.162]             future.resolve.recursive = NULL, width = 80L)
  [13:41:43.162]         {
  [13:41:43.162]             {
  [13:41:43.162]                 {
  [13:41:43.162]                   {
  [13:41:43.162]                     has_future <- base::requireNamespace("future", 
  [13:41:43.162]                       quietly = TRUE)
  [13:41:43.162]                     version <- if (has_future) 
  [13:41:43.162]                       utils::packageVersion("future")
  [13:41:43.162]                     else NULL
  [13:41:43.162]                     if (!has_future || version < "1.8.0") {
  [13:41:43.162]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:43.162]                         "", base::R.version$version.string), 
  [13:41:43.162]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:43.162]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:43.162]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:43.162]                           "release", "version")], collapse = " "), 
  [13:41:43.162]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:43.162]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:43.162]                         info)
  [13:41:43.162]                       info <- base::paste(info, collapse = "; ")
  [13:41:43.162]                       if (!has_future) {
  [13:41:43.162]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:43.162]                           info)
  [13:41:43.162]                       }
  [13:41:43.162]                       else {
  [13:41:43.162]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:43.162]                           info, version)
  [13:41:43.162]                       }
  [13:41:43.162]                       base::stop(msg)
  [13:41:43.162]                     }
  [13:41:43.162]                   }
  [13:41:43.162]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:43.162]                   base::options(mc.cores = 1L)
  [13:41:43.162]                 }
  [13:41:43.162]                 base::local({
  [13:41:43.162]                   for (pkg in c("doFuture", "future")) {
  [13:41:43.162]                     base::loadNamespace(pkg)
  [13:41:43.162]                     base::library(pkg, character.only = TRUE)
  [13:41:43.162]                   }
  [13:41:43.162]                 })
  [13:41:43.162]             }
  [13:41:43.162]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:43.162]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.162]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:41:43.162]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:41:43.162]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:43.162]                 ...) 
  [13:41:43.162]             {
  [13:41:43.162]                 if (substitute) 
  [13:41:43.162]                   expr <- substitute(expr)
  [13:41:43.162]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:43.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.162]                   globals = globals, persistent = persistent, 
  [13:41:43.162]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:43.162]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:43.162]                   label = label, ...)
  [13:41:43.162]                 if (!future$lazy) 
  [13:41:43.162]                   future <- run(future)
  [13:41:43.162]                 invisible(future)
  [13:41:43.162]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.162]         }
  [13:41:43.162]     }
  [13:41:43.162]     if (base::is.na(TRUE)) {
  [13:41:43.162]     }
  [13:41:43.162]     else {
  [13:41:43.162]         if (TRUE) {
  [13:41:43.162]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:43.162]                 open = "w")
  [13:41:43.162]         }
  [13:41:43.162]         else {
  [13:41:43.162]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:43.162]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:43.162]         }
  [13:41:43.162]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:43.162]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:43.162]             base::sink(type = "output", split = FALSE)
  [13:41:43.162]             base::close(...future.stdout)
  [13:41:43.162]         }, add = TRUE)
  [13:41:43.162]     }
  [13:41:43.162]     ...future.frame <- base::sys.nframe()
  [13:41:43.162]     ...future.conditions <- base::list()
  [13:41:43.162]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:43.162]     ...future.result <- base::tryCatch({
  [13:41:43.162]         base::withCallingHandlers({
  [13:41:43.162]             ...future.value <- base::withVisible(base::local({
  [13:41:43.162]                 doFuture::registerDoFuture()
  [13:41:43.162]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:43.162]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:43.162]                   {
  [13:41:43.162]                     a <- NULL
  [13:41:43.162]                     b <- NULL
  [13:41:43.162]                   }
  [13:41:43.162]                   ...future.env <- environment()
  [13:41:43.162]                   local({
  [13:41:43.162]                     for (name in names(...future.x_jj)) {
  [13:41:43.162]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:43.162]                         inherits = FALSE)
  [13:41:43.162]                     }
  [13:41:43.162]                   })
  [13:41:43.162]                   tryCatch({
  [13:41:43.162]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:43.162]                       plan = future::plan("next"))
  [13:41:43.162]                   }, error = identity)
  [13:41:43.162]                 })
  [13:41:43.162]             }))
  [13:41:43.162]             future::FutureResult(value = ...future.value$value, 
  [13:41:43.162]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.162]                   ...future.rng), started = ...future.startTime, 
  [13:41:43.162]                 version = "1.8")
  [13:41:43.162]         }, condition = base::local({
  [13:41:43.162]             c <- base::c
  [13:41:43.162]             inherits <- base::inherits
  [13:41:43.162]             invokeRestart <- base::invokeRestart
  [13:41:43.162]             length <- base::length
  [13:41:43.162]             list <- base::list
  [13:41:43.162]             seq.int <- base::seq.int
  [13:41:43.162]             signalCondition <- base::signalCondition
  [13:41:43.162]             sys.calls <- base::sys.calls
  [13:41:43.162]             Sys.time <- base::Sys.time
  [13:41:43.162]             `[[` <- base::`[[`
  [13:41:43.162]             `+` <- base::`+`
  [13:41:43.162]             `<<-` <- base::`<<-`
  [13:41:43.162]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:43.162]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:43.162]                   3L)]
  [13:41:43.162]             }
  [13:41:43.162]             function(cond) {
  [13:41:43.162]                 if (inherits(cond, "error")) {
  [13:41:43.162]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.162]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:43.162]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:43.162]                   signalCondition(cond)
  [13:41:43.162]                 }
  [13:41:43.162]                 else if (inherits(cond, "condition")) {
  [13:41:43.162]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:43.162]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.162]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:43.162]                   if (!signal) {
  [13:41:43.162]                     muffleCondition <- function (cond) 
  [13:41:43.162]                     {
  [13:41:43.162]                       inherits <- base::inherits
  [13:41:43.162]                       invokeRestart <- base::invokeRestart
  [13:41:43.162]                       muffled <- FALSE
  [13:41:43.162]                       if (inherits(cond, "message")) {
  [13:41:43.162]                         invokeRestart("muffleMessage")
  [13:41:43.162]                         muffled <- TRUE
  [13:41:43.162]                       }
  [13:41:43.162]                       else if (inherits(cond, "warning")) {
  [13:41:43.162]                         invokeRestart("muffleWarning")
  [13:41:43.162]                         muffled <- TRUE
  [13:41:43.162]                       }
  [13:41:43.162]                       else if (inherits(cond, "condition")) {
  [13:41:43.162]                         computeRestarts <- base::computeRestarts
  [13:41:43.162]                         grepl <- base::grepl
  [13:41:43.162]                         is.null <- base::is.null
  [13:41:43.162]                         restarts <- computeRestarts(cond)
  [13:41:43.162]                         for (restart in restarts) {
  [13:41:43.162]                           name <- restart$name
  [13:41:43.162]                           if (is.null(name)) 
  [13:41:43.162]                             next
  [13:41:43.162]                           if (!grepl("^muffle", name)) 
  [13:41:43.162]                             next
  [13:41:43.162]                           invokeRestart(restart)
  [13:41:43.162]                           muffled <- TRUE
  [13:41:43.162]                           break
  [13:41:43.162]                         }
  [13:41:43.162]                       }
  [13:41:43.162]                       invisible(muffled)
  [13:41:43.162]                     }
  [13:41:43.162]                     muffleCondition(cond)
  [13:41:43.162]                   }
  [13:41:43.162]                 }
  [13:41:43.162]             }
  [13:41:43.162]         }))
  [13:41:43.162]     }, error = function(ex) {
  [13:41:43.162]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:43.162]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.162]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:43.162]     }, finally = {
  [13:41:43.162]         {
  [13:41:43.162]             {
  [13:41:43.162]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:43.162]             }
  [13:41:43.162]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:43.162]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.162]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:43.162]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:43.162]             {
  [13:41:43.162]                 if (substitute) 
  [13:41:43.162]                   expr <- substitute(expr)
  [13:41:43.162]                 if (is.function(workers)) 
  [13:41:43.162]                   workers <- workers()
  [13:41:43.162]                 workers <- as.integer(workers)
  [13:41:43.162]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:43.162]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:43.162]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:43.162]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:43.162]                     local = TRUE, label = label, ...))
  [13:41:43.162]                 }
  [13:41:43.162]                 oopts <- options(mc.cores = workers)
  [13:41:43.162]                 on.exit(options(oopts))
  [13:41:43.162]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:43.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.162]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:43.162]                   label = label, ...)
  [13:41:43.162]                 if (!future$lazy) 
  [13:41:43.162]                   future <- run(future)
  [13:41:43.162]                 invisible(future)
  [13:41:43.162]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:43.162]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:43.162]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:41:43.162]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:41:43.162]                 label = NULL, ...) 
  [13:41:43.162]             {
  [13:41:43.162]                 if (substitute) 
  [13:41:43.162]                   expr <- substitute(expr)
  [13:41:43.162]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:43.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.162]                   globals = globals, persistent = persistent, 
  [13:41:43.162]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:43.162]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:43.162]                   label = label, ...)
  [13:41:43.162]                 if (!future$lazy) 
  [13:41:43.162]                   future <- run(future)
  [13:41:43.162]                 invisible(future)
  [13:41:43.162]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.162]         }
  [13:41:43.162]         base::options(...future.oldOptions)
  [13:41:43.162]     })
  [13:41:43.162]     Sys.time
  [13:41:43.162]     if (base::is.na(TRUE)) {
  [13:41:43.162]     }
  [13:41:43.162]     else {
  [13:41:43.162]         base::sink(type = "output", split = FALSE)
  [13:41:43.162]         if (TRUE) {
  [13:41:43.162]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:43.162]         }
  [13:41:43.162]         else {
  [13:41:43.162]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:43.162]         }
  [13:41:43.162]         base::close(...future.stdout)
  [13:41:43.162]         ...future.stdout <- NULL
  [13:41:43.162]     }
  [13:41:43.162]     ...future.result$conditions <- ...future.conditions
  [13:41:43.162]     ...future.result
  [13:41:43.162] }
  [13:41:43.168] requestCore(): workers = 2
  [13:41:43.172] MulticoreFuture started
  [13:41:43.173] Chunk #1 of 2 ... DONE
  [13:41:43.173] Chunk #2 of 2 ...
  [13:41:43.174]  - Finding globals in 'args_list' chunk #2 ...
  [13:41:43.174] getGlobalsAndPackages() ...
  [13:41:43.175] Searching for globals...
  [13:41:43.176] 
  [13:41:43.177] Searching for globals ... DONE
  [13:41:43.177] - globals: [0] <none>
  [13:41:43.178] getGlobalsAndPackages() ... DONE
  [13:41:43.178] 
  [13:41:43.178] 
  [13:41:43.179]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:41:43.181] getGlobalsAndPackages() ...
  [13:41:43.181] - globals passed as-is: [1] '...future.x_ii'
  [13:41:43.182] Resolving globals: FALSE
  [13:41:43.183] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:43.184] - globals: [1] '...future.x_ii'
  [13:41:43.184] 
  [13:41:43.185] getGlobalsAndPackages() ... DONE
  [13:41:43.188] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:43.189] Packages needed by future strategies (n = 1): 'future'
  [13:41:43.194] plan(): Setting new future strategy stack:
  [13:41:43.195] List of future strategies:
  [13:41:43.195] 1. cluster:
  [13:41:43.195]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.195]    - tweaked: FALSE
  [13:41:43.195]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.198] plan(): nbrOfWorkers() = 1
  [13:41:43.200] plan(): Setting new future strategy stack:
  [13:41:43.201] List of future strategies:
  [13:41:43.201] 1. multicore:
  [13:41:43.201]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:43.201]    - tweaked: FALSE
  [13:41:43.201]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.201] 2. cluster:
  [13:41:43.201]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.201]    - tweaked: FALSE
  [13:41:43.201]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.203] plan(): nbrOfWorkers() = 2
  [13:41:43.205] {
  [13:41:43.205]     {
  [13:41:43.205]         ...future.startTime <- base::Sys.time()
  [13:41:43.205]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:43.205]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:43.205]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:43.205]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:43.205]             future.resolve.recursive = NULL, width = 80L)
  [13:41:43.205]         {
  [13:41:43.205]             {
  [13:41:43.205]                 {
  [13:41:43.205]                   {
  [13:41:43.205]                     has_future <- base::requireNamespace("future", 
  [13:41:43.205]                       quietly = TRUE)
  [13:41:43.205]                     version <- if (has_future) 
  [13:41:43.205]                       utils::packageVersion("future")
  [13:41:43.205]                     else NULL
  [13:41:43.205]                     if (!has_future || version < "1.8.0") {
  [13:41:43.205]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:43.205]                         "", base::R.version$version.string), 
  [13:41:43.205]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:43.205]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:43.205]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:43.205]                           "release", "version")], collapse = " "), 
  [13:41:43.205]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:43.205]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:43.205]                         info)
  [13:41:43.205]                       info <- base::paste(info, collapse = "; ")
  [13:41:43.205]                       if (!has_future) {
  [13:41:43.205]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:43.205]                           info)
  [13:41:43.205]                       }
  [13:41:43.205]                       else {
  [13:41:43.205]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:43.205]                           info, version)
  [13:41:43.205]                       }
  [13:41:43.205]                       base::stop(msg)
  [13:41:43.205]                     }
  [13:41:43.205]                   }
  [13:41:43.205]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:43.205]                   base::options(mc.cores = 1L)
  [13:41:43.205]                 }
  [13:41:43.205]                 base::local({
  [13:41:43.205]                   for (pkg in c("doFuture", "future")) {
  [13:41:43.205]                     base::loadNamespace(pkg)
  [13:41:43.205]                     base::library(pkg, character.only = TRUE)
  [13:41:43.205]                   }
  [13:41:43.205]                 })
  [13:41:43.205]             }
  [13:41:43.205]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:43.205]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.205]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:41:43.205]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:41:43.205]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:43.205]                 ...) 
  [13:41:43.205]             {
  [13:41:43.205]                 if (substitute) 
  [13:41:43.205]                   expr <- substitute(expr)
  [13:41:43.205]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:43.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.205]                   globals = globals, persistent = persistent, 
  [13:41:43.205]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:43.205]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:43.205]                   label = label, ...)
  [13:41:43.205]                 if (!future$lazy) 
  [13:41:43.205]                   future <- run(future)
  [13:41:43.205]                 invisible(future)
  [13:41:43.205]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.205]         }
  [13:41:43.205]     }
  [13:41:43.205]     if (base::is.na(TRUE)) {
  [13:41:43.205]     }
  [13:41:43.205]     else {
  [13:41:43.205]         if (TRUE) {
  [13:41:43.205]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:43.205]                 open = "w")
  [13:41:43.205]         }
  [13:41:43.205]         else {
  [13:41:43.205]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:43.205]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:43.205]         }
  [13:41:43.205]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:43.205]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:43.205]             base::sink(type = "output", split = FALSE)
  [13:41:43.205]             base::close(...future.stdout)
  [13:41:43.205]         }, add = TRUE)
  [13:41:43.205]     }
  [13:41:43.205]     ...future.frame <- base::sys.nframe()
  [13:41:43.205]     ...future.conditions <- base::list()
  [13:41:43.205]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:43.205]     ...future.result <- base::tryCatch({
  [13:41:43.205]         base::withCallingHandlers({
  [13:41:43.205]             ...future.value <- base::withVisible(base::local({
  [13:41:43.205]                 doFuture::registerDoFuture()
  [13:41:43.205]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:43.205]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:43.205]                   {
  [13:41:43.205]                     a <- NULL
  [13:41:43.205]                     b <- NULL
  [13:41:43.205]                   }
  [13:41:43.205]                   ...future.env <- environment()
  [13:41:43.205]                   local({
  [13:41:43.205]                     for (name in names(...future.x_jj)) {
  [13:41:43.205]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:43.205]                         inherits = FALSE)
  [13:41:43.205]                     }
  [13:41:43.205]                   })
  [13:41:43.205]                   tryCatch({
  [13:41:43.205]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:43.205]                       plan = future::plan("next"))
  [13:41:43.205]                   }, error = identity)
  [13:41:43.205]                 })
  [13:41:43.205]             }))
  [13:41:43.205]             future::FutureResult(value = ...future.value$value, 
  [13:41:43.205]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.205]                   ...future.rng), started = ...future.startTime, 
  [13:41:43.205]                 version = "1.8")
  [13:41:43.205]         }, condition = base::local({
  [13:41:43.205]             c <- base::c
  [13:41:43.205]             inherits <- base::inherits
  [13:41:43.205]             invokeRestart <- base::invokeRestart
  [13:41:43.205]             length <- base::length
  [13:41:43.205]             list <- base::list
  [13:41:43.205]             seq.int <- base::seq.int
  [13:41:43.205]             signalCondition <- base::signalCondition
  [13:41:43.205]             sys.calls <- base::sys.calls
  [13:41:43.205]             Sys.time <- base::Sys.time
  [13:41:43.205]             `[[` <- base::`[[`
  [13:41:43.205]             `+` <- base::`+`
  [13:41:43.205]             `<<-` <- base::`<<-`
  [13:41:43.205]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:43.205]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:43.205]                   3L)]
  [13:41:43.205]             }
  [13:41:43.205]             function(cond) {
  [13:41:43.205]                 if (inherits(cond, "error")) {
  [13:41:43.205]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.205]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:43.205]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:43.205]                   signalCondition(cond)
  [13:41:43.205]                 }
  [13:41:43.205]                 else if (inherits(cond, "condition")) {
  [13:41:43.205]                   signal <- FALSE && inherits(cond, character(0))
  [13:41:43.205]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:43.205]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:43.205]                   if (!signal) {
  [13:41:43.205]                     muffleCondition <- function (cond) 
  [13:41:43.205]                     {
  [13:41:43.205]                       inherits <- base::inherits
  [13:41:43.205]                       invokeRestart <- base::invokeRestart
  [13:41:43.205]                       muffled <- FALSE
  [13:41:43.205]                       if (inherits(cond, "message")) {
  [13:41:43.205]                         invokeRestart("muffleMessage")
  [13:41:43.205]                         muffled <- TRUE
  [13:41:43.205]                       }
  [13:41:43.205]                       else if (inherits(cond, "warning")) {
  [13:41:43.205]                         invokeRestart("muffleWarning")
  [13:41:43.205]                         muffled <- TRUE
  [13:41:43.205]                       }
  [13:41:43.205]                       else if (inherits(cond, "condition")) {
  [13:41:43.205]                         computeRestarts <- base::computeRestarts
  [13:41:43.205]                         grepl <- base::grepl
  [13:41:43.205]                         is.null <- base::is.null
  [13:41:43.205]                         restarts <- computeRestarts(cond)
  [13:41:43.205]                         for (restart in restarts) {
  [13:41:43.205]                           name <- restart$name
  [13:41:43.205]                           if (is.null(name)) 
  [13:41:43.205]                             next
  [13:41:43.205]                           if (!grepl("^muffle", name)) 
  [13:41:43.205]                             next
  [13:41:43.205]                           invokeRestart(restart)
  [13:41:43.205]                           muffled <- TRUE
  [13:41:43.205]                           break
  [13:41:43.205]                         }
  [13:41:43.205]                       }
  [13:41:43.205]                       invisible(muffled)
  [13:41:43.205]                     }
  [13:41:43.205]                     muffleCondition(cond)
  [13:41:43.205]                   }
  [13:41:43.205]                 }
  [13:41:43.205]             }
  [13:41:43.205]         }))
  [13:41:43.205]     }, error = function(ex) {
  [13:41:43.205]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:43.205]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:43.205]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:43.205]     }, finally = {
  [13:41:43.205]         {
  [13:41:43.205]             {
  [13:41:43.205]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:43.205]             }
  [13:41:43.205]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:43.205]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:43.205]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:41:43.205]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:43.205]             {
  [13:41:43.205]                 if (substitute) 
  [13:41:43.205]                   expr <- substitute(expr)
  [13:41:43.205]                 if (is.function(workers)) 
  [13:41:43.205]                   workers <- workers()
  [13:41:43.205]                 workers <- as.integer(workers)
  [13:41:43.205]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:41:43.205]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:41:43.205]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:43.205]                     lazy = lazy, seed = seed, globals = globals, 
  [13:41:43.205]                     local = TRUE, label = label, ...))
  [13:41:43.205]                 }
  [13:41:43.205]                 oopts <- options(mc.cores = workers)
  [13:41:43.205]                 on.exit(options(oopts))
  [13:41:43.205]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:41:43.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.205]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:41:43.205]                   label = label, ...)
  [13:41:43.205]                 if (!future$lazy) 
  [13:41:43.205]                   future <- run(future)
  [13:41:43.205]                 invisible(future)
  [13:41:43.205]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:43.205]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:41:43.205]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:41:43.205]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:41:43.205]                 label = NULL, ...) 
  [13:41:43.205]             {
  [13:41:43.205]                 if (substitute) 
  [13:41:43.205]                   expr <- substitute(expr)
  [13:41:43.205]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:41:43.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:43.205]                   globals = globals, persistent = persistent, 
  [13:41:43.205]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:41:43.205]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:41:43.205]                   label = label, ...)
  [13:41:43.205]                 if (!future$lazy) 
  [13:41:43.205]                   future <- run(future)
  [13:41:43.205]                 invisible(future)
  [13:41:43.205]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:43.205]         }
  [13:41:43.205]         base::options(...future.oldOptions)
  [13:41:43.205]     })
  [13:41:43.205]     Sys.time
  [13:41:43.205]     if (base::is.na(TRUE)) {
  [13:41:43.205]     }
  [13:41:43.205]     else {
  [13:41:43.205]         base::sink(type = "output", split = FALSE)
  [13:41:43.205]         if (TRUE) {
  [13:41:43.205]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:43.205]         }
  [13:41:43.205]         else {
  [13:41:43.205]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:43.205]         }
  [13:41:43.205]         base::close(...future.stdout)
  [13:41:43.205]         ...future.stdout <- NULL
  [13:41:43.205]     }
  [13:41:43.205]     ...future.result$conditions <- ...future.conditions
  [13:41:43.205]     ...future.result
  [13:41:43.205] }
  [13:41:43.212] requestCore(): workers = 2
  [13:41:43.236] MulticoreFuture started
  [13:41:43.237] Chunk #2 of 2 ... DONE
  [13:41:43.237] Launching 2 futures (chunks) ... DONE
  [13:41:43.238] - resolving futures
  [13:41:43.238]   - gathering results & relaying conditions (except errors)
  [13:41:43.239] resolve() on list ...
  [13:41:43.239]  recursive: 0
  [13:41:43.239]  length: 2
  [13:41:43.240] 
  [13:41:43.240] Future #1
  [13:41:43.243] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [13:41:43.244] - nx: 2
  [13:41:43.244] - relay: TRUE
  [13:41:43.245] - stdout: TRUE
  [13:41:43.245] - signal: TRUE
  [13:41:43.245] - resignal: FALSE
  [13:41:43.246] - force: FALSE
  [13:41:43.246] - relayed: [n=2] FALSE, FALSE
  [13:41:43.246] - queued futures: [n=2] FALSE, FALSE
  [13:41:43.247]  - until=1
  [13:41:43.247]  - relaying element #1
  [13:41:43.248] - relayed: [n=2] TRUE, FALSE
  [13:41:43.248] - queued futures: [n=2] TRUE, FALSE
  [13:41:43.249] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [13:41:43.249]  length: 1 (resolved future 1)
  [13:41:43.256] plan(): Setting new future strategy stack:
  [13:41:43.256] List of future strategies:
  [13:41:43.256] 1. cluster:
  [13:41:43.256]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.256]    - tweaked: FALSE
  [13:41:43.256]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.260] plan(): nbrOfWorkers() = 1
  [13:41:43.263] plan(): Setting new future strategy stack:
  [13:41:43.263] List of future strategies:
  [13:41:43.263] 1. multicore:
  [13:41:43.263]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:41:43.263]    - tweaked: FALSE
  [13:41:43.263]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.263] 2. cluster:
  [13:41:43.263]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.263]    - tweaked: FALSE
  [13:41:43.263]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.267] plan(): nbrOfWorkers() = 2
  [13:41:43.269] Future #2
  [13:41:43.272] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [13:41:43.272] - nx: 2
  [13:41:43.272] - relay: TRUE
  [13:41:43.273] - stdout: TRUE
  [13:41:43.273] - signal: TRUE
  [13:41:43.274] - resignal: FALSE
  [13:41:43.274] - force: FALSE
  [13:41:43.274] - relayed: [n=2] TRUE, FALSE
  [13:41:43.286] - queued futures: [n=2] TRUE, FALSE
  [13:41:43.287]  - until=2
  [13:41:43.287]  - relaying element #2
  [13:41:43.288] - relayed: [n=2] TRUE, TRUE
  [13:41:43.288] - queued futures: [n=2] TRUE, TRUE
  [13:41:43.289] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [13:41:43.289]  length: 0 (resolved future 2)
  [13:41:43.290] Relaying remaining futures
  [13:41:43.290] signalConditionsASAP(NULL, pos=0) ...
  [13:41:43.290] - nx: 2
  [13:41:43.291] - relay: TRUE
  [13:41:43.291] - stdout: TRUE
  [13:41:43.291] - signal: TRUE
  [13:41:43.292] - resignal: FALSE
  [13:41:43.292] - force: FALSE
  [13:41:43.292] - relayed: [n=2] TRUE, TRUE
  [13:41:43.293] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:41:43.293] - relayed: [n=2] TRUE, TRUE
  [13:41:43.294] - queued futures: [n=2] TRUE, TRUE
  [13:41:43.294] signalConditionsASAP(NULL, pos=0) ... done
  [13:41:43.294] resolve() on list ... DONE
  [13:41:43.295] - collecting values of futures
  [13:41:43.296] - accumulating results
  [13:41:43.299] - processing errors (handler = 'stop')
  [13:41:43.299] - extracting results
  [13:41:43.300] doFuture() ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [13:41:43.301] plan(): Setting new future strategy stack:
  [13:41:43.301] List of future strategies:
  [13:41:43.301] 1. multisession:
  [13:41:43.301]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.301]    - tweaked: FALSE
  [13:41:43.301]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.301] 2. sequential:
  [13:41:43.301]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.301]    - tweaked: FALSE
  [13:41:43.301]    - call: plan(list(a = strategy1, b = strategy2))
  [13:41:43.303] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:41:43.303] multisession:
  [13:41:43.303] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:41:43.303] - tweaked: FALSE
  [13:41:43.303] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 21631
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6293c855.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac6293c855.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6293c855.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=21631 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac12abb48b.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac12abb48b.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac12abb48b.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=21631 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
  [13:41:59.426] getGlobalsAndPackages() ...
  [13:41:59.427] Not searching for globals
  [13:41:59.428] - globals: [0] <none>
  [13:41:59.428] getGlobalsAndPackages() ... DONE
  [13:41:59.435] Packages needed by the future expression (n = 0): <none>
  [13:41:59.436] Packages needed by future strategies (n = 1): 'future'
  [13:41:59.444] {
  [13:41:59.444]     {
  [13:41:59.444]         ...future.startTime <- base::Sys.time()
  [13:41:59.444]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:59.444]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:59.444]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:59.444]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:59.444]             future.resolve.recursive = NULL, width = 80L)
  [13:41:59.444]         {
  [13:41:59.444]             {
  [13:41:59.444]                 {
  [13:41:59.444]                   {
  [13:41:59.444]                     has_future <- base::requireNamespace("future", 
  [13:41:59.444]                       quietly = TRUE)
  [13:41:59.444]                     version <- if (has_future) 
  [13:41:59.444]                       utils::packageVersion("future")
  [13:41:59.444]                     else NULL
  [13:41:59.444]                     if (!has_future || version < "1.8.0") {
  [13:41:59.444]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:59.444]                         "", base::R.version$version.string), 
  [13:41:59.444]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:59.444]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:59.444]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:59.444]                           "release", "version")], collapse = " "), 
  [13:41:59.444]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:59.444]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:59.444]                         info)
  [13:41:59.444]                       info <- base::paste(info, collapse = "; ")
  [13:41:59.444]                       if (!has_future) {
  [13:41:59.444]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:59.444]                           info)
  [13:41:59.444]                       }
  [13:41:59.444]                       else {
  [13:41:59.444]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:59.444]                           info, version)
  [13:41:59.444]                       }
  [13:41:59.444]                       base::stop(msg)
  [13:41:59.444]                     }
  [13:41:59.444]                   }
  [13:41:59.444]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:59.444]                   base::options(mc.cores = 1L)
  [13:41:59.444]                 }
  [13:41:59.444]                 base::local({
  [13:41:59.444]                   for (pkg in "future") {
  [13:41:59.444]                     base::loadNamespace(pkg)
  [13:41:59.444]                     base::library(pkg, character.only = TRUE)
  [13:41:59.444]                   }
  [13:41:59.444]                 })
  [13:41:59.444]             }
  [13:41:59.444]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:59.444]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.444]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:59.444]                 label = NULL, ...) 
  [13:41:59.444]             {
  [13:41:59.444]                 if (substitute) 
  [13:41:59.444]                   expr <- substitute(expr)
  [13:41:59.444]                 local <- as.logical(local)
  [13:41:59.444]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.444]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.444]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.444]                   label = label, ...)
  [13:41:59.444]                 if (!future$lazy) 
  [13:41:59.444]                   future <- run(future)
  [13:41:59.444]                 invisible(future)
  [13:41:59.444]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.444]         }
  [13:41:59.444]     }
  [13:41:59.444]     if (base::is.na(TRUE)) {
  [13:41:59.444]     }
  [13:41:59.444]     else {
  [13:41:59.444]         if (TRUE) {
  [13:41:59.444]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:59.444]                 open = "w")
  [13:41:59.444]         }
  [13:41:59.444]         else {
  [13:41:59.444]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:59.444]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:59.444]         }
  [13:41:59.444]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:59.444]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:59.444]             base::sink(type = "output", split = FALSE)
  [13:41:59.444]             base::close(...future.stdout)
  [13:41:59.444]         }, add = TRUE)
  [13:41:59.444]     }
  [13:41:59.444]     ...future.frame <- base::sys.nframe()
  [13:41:59.444]     ...future.conditions <- base::list()
  [13:41:59.444]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:59.444]     ...future.result <- base::tryCatch({
  [13:41:59.444]         base::withCallingHandlers({
  [13:41:59.444]             ...future.value <- base::withVisible(base::local({
  [13:41:59.444]                 ...future.sendCondition <- local({
  [13:41:59.444]                   sendCondition <- NULL
  [13:41:59.444]                   function(frame = 1L) {
  [13:41:59.444]                     if (is.function(sendCondition)) 
  [13:41:59.444]                       return(sendCondition)
  [13:41:59.444]                     ns <- getNamespace("parallel")
  [13:41:59.444]                     if (exists("sendData", mode = "function", 
  [13:41:59.444]                       envir = ns)) {
  [13:41:59.444]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:41:59.444]                         envir = ns)
  [13:41:59.444]                       envir <- sys.frame(frame)
  [13:41:59.444]                       master <- NULL
  [13:41:59.444]                       while (!identical(envir, .GlobalEnv) && 
  [13:41:59.444]                         !identical(envir, emptyenv())) {
  [13:41:59.444]                         if (exists("master", mode = "list", envir = envir, 
  [13:41:59.444]                           inherits = FALSE)) {
  [13:41:59.444]                           master <- get("master", mode = "list", 
  [13:41:59.444]                             envir = envir, inherits = FALSE)
  [13:41:59.444]                           if (inherits(master, "SOCKnode")) {
  [13:41:59.444]                             sendCondition <<- function(cond) {
  [13:41:59.444]                               data <- list(type = "VALUE", value = cond, 
  [13:41:59.444]                                 success = TRUE)
  [13:41:59.444]                               parallel_sendData(master, data)
  [13:41:59.444]                             }
  [13:41:59.444]                             return(sendCondition)
  [13:41:59.444]                           }
  [13:41:59.444]                         }
  [13:41:59.444]                         frame <- frame + 1L
  [13:41:59.444]                         envir <- sys.frame(frame)
  [13:41:59.444]                       }
  [13:41:59.444]                     }
  [13:41:59.444]                     sendCondition <<- function(cond) NULL
  [13:41:59.444]                   }
  [13:41:59.444]                 })
  [13:41:59.444]                 withCallingHandlers({
  [13:41:59.444]                   NA
  [13:41:59.444]                 }, immediateCondition = function(cond) {
  [13:41:59.444]                   sendCondition <- ...future.sendCondition()
  [13:41:59.444]                   sendCondition(cond)
  [13:41:59.444]                   muffleCondition <- function (cond) 
  [13:41:59.444]                   {
  [13:41:59.444]                     inherits <- base::inherits
  [13:41:59.444]                     invokeRestart <- base::invokeRestart
  [13:41:59.444]                     muffled <- FALSE
  [13:41:59.444]                     if (inherits(cond, "message")) {
  [13:41:59.444]                       invokeRestart("muffleMessage")
  [13:41:59.444]                       muffled <- TRUE
  [13:41:59.444]                     }
  [13:41:59.444]                     else if (inherits(cond, "warning")) {
  [13:41:59.444]                       invokeRestart("muffleWarning")
  [13:41:59.444]                       muffled <- TRUE
  [13:41:59.444]                     }
  [13:41:59.444]                     else if (inherits(cond, "condition")) {
  [13:41:59.444]                       computeRestarts <- base::computeRestarts
  [13:41:59.444]                       grepl <- base::grepl
  [13:41:59.444]                       is.null <- base::is.null
  [13:41:59.444]                       restarts <- computeRestarts(cond)
  [13:41:59.444]                       for (restart in restarts) {
  [13:41:59.444]                         name <- restart$name
  [13:41:59.444]                         if (is.null(name)) 
  [13:41:59.444]                           next
  [13:41:59.444]                         if (!grepl("^muffle", name)) 
  [13:41:59.444]                           next
  [13:41:59.444]                         invokeRestart(restart)
  [13:41:59.444]                         muffled <- TRUE
  [13:41:59.444]                         break
  [13:41:59.444]                       }
  [13:41:59.444]                     }
  [13:41:59.444]                     invisible(muffled)
  [13:41:59.444]                   }
  [13:41:59.444]                   muffleCondition(cond)
  [13:41:59.444]                 })
  [13:41:59.444]             }))
  [13:41:59.444]             future::FutureResult(value = ...future.value$value, 
  [13:41:59.444]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.444]                   ...future.rng), started = ...future.startTime, 
  [13:41:59.444]                 version = "1.8")
  [13:41:59.444]         }, condition = base::local({
  [13:41:59.444]             c <- base::c
  [13:41:59.444]             inherits <- base::inherits
  [13:41:59.444]             invokeRestart <- base::invokeRestart
  [13:41:59.444]             length <- base::length
  [13:41:59.444]             list <- base::list
  [13:41:59.444]             seq.int <- base::seq.int
  [13:41:59.444]             signalCondition <- base::signalCondition
  [13:41:59.444]             sys.calls <- base::sys.calls
  [13:41:59.444]             Sys.time <- base::Sys.time
  [13:41:59.444]             `[[` <- base::`[[`
  [13:41:59.444]             `+` <- base::`+`
  [13:41:59.444]             `<<-` <- base::`<<-`
  [13:41:59.444]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:59.444]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:59.444]                   3L)]
  [13:41:59.444]             }
  [13:41:59.444]             function(cond) {
  [13:41:59.444]                 if (inherits(cond, "error")) {
  [13:41:59.444]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.444]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:59.444]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:59.444]                   signalCondition(cond)
  [13:41:59.444]                 }
  [13:41:59.444]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:59.444]                 ))) {
  [13:41:59.444]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:59.444]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.444]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:59.444]                   if (!signal) {
  [13:41:59.444]                     muffleCondition <- function (cond) 
  [13:41:59.444]                     {
  [13:41:59.444]                       inherits <- base::inherits
  [13:41:59.444]                       invokeRestart <- base::invokeRestart
  [13:41:59.444]                       muffled <- FALSE
  [13:41:59.444]                       if (inherits(cond, "message")) {
  [13:41:59.444]                         invokeRestart("muffleMessage")
  [13:41:59.444]                         muffled <- TRUE
  [13:41:59.444]                       }
  [13:41:59.444]                       else if (inherits(cond, "warning")) {
  [13:41:59.444]                         invokeRestart("muffleWarning")
  [13:41:59.444]                         muffled <- TRUE
  [13:41:59.444]                       }
  [13:41:59.444]                       else if (inherits(cond, "condition")) {
  [13:41:59.444]                         computeRestarts <- base::computeRestarts
  [13:41:59.444]                         grepl <- base::grepl
  [13:41:59.444]                         is.null <- base::is.null
  [13:41:59.444]                         restarts <- computeRestarts(cond)
  [13:41:59.444]                         for (restart in restarts) {
  [13:41:59.444]                           name <- restart$name
  [13:41:59.444]                           if (is.null(name)) 
  [13:41:59.444]                             next
  [13:41:59.444]                           if (!grepl("^muffle", name)) 
  [13:41:59.444]                             next
  [13:41:59.444]                           invokeRestart(restart)
  [13:41:59.444]                           muffled <- TRUE
  [13:41:59.444]                           break
  [13:41:59.444]                         }
  [13:41:59.444]                       }
  [13:41:59.444]                       invisible(muffled)
  [13:41:59.444]                     }
  [13:41:59.444]                     muffleCondition(cond)
  [13:41:59.444]                   }
  [13:41:59.444]                 }
  [13:41:59.444]             }
  [13:41:59.444]         }))
  [13:41:59.444]     }, error = function(ex) {
  [13:41:59.444]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:59.444]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.444]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:59.444]     }, finally = {
  [13:41:59.444]         {
  [13:41:59.444]             {
  [13:41:59.444]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:59.444]             }
  [13:41:59.444]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:59.444]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.444]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:59.444]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:59.444]                 ...) 
  [13:41:59.444]             {
  [13:41:59.444]                 if (substitute) 
  [13:41:59.444]                   expr <- substitute(expr)
  [13:41:59.444]                 if (is.function(workers)) 
  [13:41:59.444]                   workers <- workers()
  [13:41:59.444]                 workers <- as.integer(workers)
  [13:41:59.444]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:59.444]                   workers >= 1)
  [13:41:59.444]                 if (workers == 1L) {
  [13:41:59.444]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:59.444]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:59.444]                     local = TRUE, label = label, ...))
  [13:41:59.444]                 }
  [13:41:59.444]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:59.444]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:59.444]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.444]                   globals = globals, persistent = persistent, 
  [13:41:59.444]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:59.444]                   label = label, ...)
  [13:41:59.444]                 if (!future$lazy) 
  [13:41:59.444]                   future <- run(future)
  [13:41:59.444]                 invisible(future)
  [13:41:59.444]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:59.444]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:59.444]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:59.444]             {
  [13:41:59.444]                 if (substitute) 
  [13:41:59.444]                   expr <- substitute(expr)
  [13:41:59.444]                 local <- as.logical(local)
  [13:41:59.444]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.444]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.444]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.444]                   label = label, ...)
  [13:41:59.444]                 if (!future$lazy) 
  [13:41:59.444]                   future <- run(future)
  [13:41:59.444]                 invisible(future)
  [13:41:59.444]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.444]         }
  [13:41:59.444]         base::options(...future.oldOptions)
  [13:41:59.444]     })
  [13:41:59.444]     Sys.time
  [13:41:59.444]     if (base::is.na(TRUE)) {
  [13:41:59.444]     }
  [13:41:59.444]     else {
  [13:41:59.444]         base::sink(type = "output", split = FALSE)
  [13:41:59.444]         if (TRUE) {
  [13:41:59.444]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:59.444]         }
  [13:41:59.444]         else {
  [13:41:59.444]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:59.444]         }
  [13:41:59.444]         base::close(...future.stdout)
  [13:41:59.444]         ...future.stdout <- NULL
  [13:41:59.444]     }
  [13:41:59.444]     ...future.result$conditions <- ...future.conditions
  [13:41:59.444]     ...future.result
  [13:41:59.444] }
  [13:41:59.468] MultisessionFuture started
  [13:41:59.469] result() for ClusterFuture ...
  [13:41:59.470] receiveMessageFromWorker() for ClusterFuture ...
  [13:41:59.471] - Validating connection of MultisessionFuture
  [13:41:59.721] - received message: FutureResult
  [13:41:59.722] - Received FutureResult
  [13:41:59.722] - Erased future from FutureRegistry
  [13:41:59.723] result() for ClusterFuture ...
  [13:41:59.723] - result already collected: FutureResult
  [13:41:59.724] result() for ClusterFuture ... done
  [13:41:59.724] receiveMessageFromWorker() for ClusterFuture ... done
  [13:41:59.724] result() for ClusterFuture ... done
  [13:41:59.725] result() for ClusterFuture ...
  [13:41:59.725] - result already collected: FutureResult
  [13:41:59.726] result() for ClusterFuture ... done
  [13:41:59.726] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:41:59.727] plan(): nbrOfWorkers() = 2
  [13:41:59.728] doFuture() ...
  [13:41:59.759] - dummy globals (as locals): [2] 'a', 'b'
  [13:41:59.760] - R expression:
  [13:41:59.761] {
  [13:41:59.761]     doFuture::registerDoFuture()
  [13:41:59.761]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:59.761]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:59.761]         {
  [13:41:59.761]             a <- NULL
  [13:41:59.761]             b <- NULL
  [13:41:59.761]         }
  [13:41:59.761]         ...future.env <- environment()
  [13:41:59.761]         local({
  [13:41:59.761]             for (name in names(...future.x_jj)) {
  [13:41:59.761]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:59.761]                   inherits = FALSE)
  [13:41:59.761]             }
  [13:41:59.761]         })
  [13:41:59.761]         tryCatch({
  [13:41:59.761]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:59.761]                 plan = future::plan("next"))
  [13:41:59.761]         }, error = identity)
  [13:41:59.761]     })
  [13:41:59.761] }
  [13:41:59.762] - identifying globals and packages ...
  [13:41:59.762] getGlobalsAndPackages() ...
  [13:41:59.763] Searching for globals...
  [13:41:59.797] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:41:59.797] Searching for globals ... DONE
  [13:41:59.798] Resolving globals: FALSE
  [13:41:59.816] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:41:59.816] - globals: [1] '...future.x_ii'
  [13:41:59.817] 
  [13:41:59.817] getGlobalsAndPackages() ... DONE
  [13:41:59.817] List of 1
  [13:41:59.817]  $ ...future.x_ii: NULL
  [13:41:59.817]  - attr(*, "where")=List of 1
  [13:41:59.817]   ..$ ...future.x_ii:<environment: 0x5617cb82e8d8> 
  [13:41:59.817]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:59.817]  - attr(*, "resolved")= logi FALSE
  [13:41:59.817]  - attr(*, "total_size")= num 0
  [13:41:59.825]   - R expression:
  [13:41:59.825] {
  [13:41:59.825]     doFuture::registerDoFuture()
  [13:41:59.825]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:59.825]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:59.825]         {
  [13:41:59.825]             a <- NULL
  [13:41:59.825]             b <- NULL
  [13:41:59.825]         }
  [13:41:59.825]         ...future.env <- environment()
  [13:41:59.825]         local({
  [13:41:59.825]             for (name in names(...future.x_jj)) {
  [13:41:59.825]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:41:59.825]                   inherits = FALSE)
  [13:41:59.825]             }
  [13:41:59.825]         })
  [13:41:59.825]         tryCatch({
  [13:41:59.825]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:59.825]                 plan = future::plan("next"))
  [13:41:59.825]         }, error = identity)
  [13:41:59.825]     })
  [13:41:59.825] }
  [13:41:59.826]   - globals: [1] '...future.x_ii'
  [13:41:59.826] List of 1
  [13:41:59.826]  $ ...future.x_ii: NULL
  [13:41:59.826]  - attr(*, "where")=List of 1
  [13:41:59.826]   ..$ ...future.x_ii:<environment: 0x5617cb82e8d8> 
  [13:41:59.826]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:41:59.826]  - attr(*, "resolved")= logi FALSE
  [13:41:59.826]  - attr(*, "total_size")= num 0
  [13:41:59.850]   - packages: [1] 'doFuture'
  [13:41:59.850] - identifying globals and packages ... DONE
  [13:41:59.852] Number of chunks: 2
  [13:41:59.852] Number of futures (= number of chunks): 2
  [13:41:59.853] Launching 2 futures (chunks) ...
  [13:41:59.860] Chunk #1 of 2 ...
  [13:41:59.860]  - Finding globals in 'args_list' chunk #1 ...
  [13:41:59.860] getGlobalsAndPackages() ...
  [13:41:59.861] Searching for globals...
  [13:41:59.862] 
  [13:41:59.878] Searching for globals ... DONE
  [13:41:59.879] - globals: [0] <none>
  [13:41:59.879] getGlobalsAndPackages() ... DONE
  [13:41:59.880] 
  [13:41:59.880] 
  [13:41:59.880]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:41:59.890] getGlobalsAndPackages() ...
  [13:41:59.890] - globals passed as-is: [1] '...future.x_ii'
  [13:41:59.891] Resolving globals: FALSE
  [13:41:59.892] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:59.892] - globals: [1] '...future.x_ii'
  [13:41:59.893] 
  [13:41:59.893] getGlobalsAndPackages() ... DONE
  [13:41:59.914] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:59.914] Packages needed by future strategies (n = 1): 'future'
  [13:41:59.921] {
  [13:41:59.921]     {
  [13:41:59.921]         ...future.startTime <- base::Sys.time()
  [13:41:59.921]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:59.921]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:59.921]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:59.921]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:59.921]             future.resolve.recursive = NULL, width = 80L)
  [13:41:59.921]         {
  [13:41:59.921]             {
  [13:41:59.921]                 {
  [13:41:59.921]                   {
  [13:41:59.921]                     has_future <- base::requireNamespace("future", 
  [13:41:59.921]                       quietly = TRUE)
  [13:41:59.921]                     version <- if (has_future) 
  [13:41:59.921]                       utils::packageVersion("future")
  [13:41:59.921]                     else NULL
  [13:41:59.921]                     if (!has_future || version < "1.8.0") {
  [13:41:59.921]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:59.921]                         "", base::R.version$version.string), 
  [13:41:59.921]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:59.921]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:59.921]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:59.921]                           "release", "version")], collapse = " "), 
  [13:41:59.921]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:59.921]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:59.921]                         info)
  [13:41:59.921]                       info <- base::paste(info, collapse = "; ")
  [13:41:59.921]                       if (!has_future) {
  [13:41:59.921]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:59.921]                           info)
  [13:41:59.921]                       }
  [13:41:59.921]                       else {
  [13:41:59.921]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:59.921]                           info, version)
  [13:41:59.921]                       }
  [13:41:59.921]                       base::stop(msg)
  [13:41:59.921]                     }
  [13:41:59.921]                   }
  [13:41:59.921]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:59.921]                   base::options(mc.cores = 1L)
  [13:41:59.921]                 }
  [13:41:59.921]                 base::local({
  [13:41:59.921]                   for (pkg in c("doFuture", "future")) {
  [13:41:59.921]                     base::loadNamespace(pkg)
  [13:41:59.921]                     base::library(pkg, character.only = TRUE)
  [13:41:59.921]                   }
  [13:41:59.921]                 })
  [13:41:59.921]             }
  [13:41:59.921]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:59.921]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.921]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:59.921]                 label = NULL, ...) 
  [13:41:59.921]             {
  [13:41:59.921]                 if (substitute) 
  [13:41:59.921]                   expr <- substitute(expr)
  [13:41:59.921]                 local <- as.logical(local)
  [13:41:59.921]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.921]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.921]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.921]                   label = label, ...)
  [13:41:59.921]                 if (!future$lazy) 
  [13:41:59.921]                   future <- run(future)
  [13:41:59.921]                 invisible(future)
  [13:41:59.921]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.921]         }
  [13:41:59.921]     }
  [13:41:59.921]     if (base::is.na(TRUE)) {
  [13:41:59.921]     }
  [13:41:59.921]     else {
  [13:41:59.921]         if (TRUE) {
  [13:41:59.921]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:59.921]                 open = "w")
  [13:41:59.921]         }
  [13:41:59.921]         else {
  [13:41:59.921]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:59.921]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:59.921]         }
  [13:41:59.921]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:59.921]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:59.921]             base::sink(type = "output", split = FALSE)
  [13:41:59.921]             base::close(...future.stdout)
  [13:41:59.921]         }, add = TRUE)
  [13:41:59.921]     }
  [13:41:59.921]     ...future.frame <- base::sys.nframe()
  [13:41:59.921]     ...future.conditions <- base::list()
  [13:41:59.921]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:59.921]     ...future.result <- base::tryCatch({
  [13:41:59.921]         base::withCallingHandlers({
  [13:41:59.921]             ...future.value <- base::withVisible(base::local({
  [13:41:59.921]                 ...future.sendCondition <- local({
  [13:41:59.921]                   sendCondition <- NULL
  [13:41:59.921]                   function(frame = 1L) {
  [13:41:59.921]                     if (is.function(sendCondition)) 
  [13:41:59.921]                       return(sendCondition)
  [13:41:59.921]                     ns <- getNamespace("parallel")
  [13:41:59.921]                     if (exists("sendData", mode = "function", 
  [13:41:59.921]                       envir = ns)) {
  [13:41:59.921]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:41:59.921]                         envir = ns)
  [13:41:59.921]                       envir <- sys.frame(frame)
  [13:41:59.921]                       master <- NULL
  [13:41:59.921]                       while (!identical(envir, .GlobalEnv) && 
  [13:41:59.921]                         !identical(envir, emptyenv())) {
  [13:41:59.921]                         if (exists("master", mode = "list", envir = envir, 
  [13:41:59.921]                           inherits = FALSE)) {
  [13:41:59.921]                           master <- get("master", mode = "list", 
  [13:41:59.921]                             envir = envir, inherits = FALSE)
  [13:41:59.921]                           if (inherits(master, "SOCKnode")) {
  [13:41:59.921]                             sendCondition <<- function(cond) {
  [13:41:59.921]                               data <- list(type = "VALUE", value = cond, 
  [13:41:59.921]                                 success = TRUE)
  [13:41:59.921]                               parallel_sendData(master, data)
  [13:41:59.921]                             }
  [13:41:59.921]                             return(sendCondition)
  [13:41:59.921]                           }
  [13:41:59.921]                         }
  [13:41:59.921]                         frame <- frame + 1L
  [13:41:59.921]                         envir <- sys.frame(frame)
  [13:41:59.921]                       }
  [13:41:59.921]                     }
  [13:41:59.921]                     sendCondition <<- function(cond) NULL
  [13:41:59.921]                   }
  [13:41:59.921]                 })
  [13:41:59.921]                 withCallingHandlers({
  [13:41:59.921]                   {
  [13:41:59.921]                     doFuture::registerDoFuture()
  [13:41:59.921]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:59.921]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:59.921]                       {
  [13:41:59.921]                         a <- NULL
  [13:41:59.921]                         b <- NULL
  [13:41:59.921]                       }
  [13:41:59.921]                       ...future.env <- environment()
  [13:41:59.921]                       local({
  [13:41:59.921]                         for (name in names(...future.x_jj)) {
  [13:41:59.921]                           assign(name, ...future.x_jj[[name]], 
  [13:41:59.921]                             envir = ...future.env, inherits = FALSE)
  [13:41:59.921]                         }
  [13:41:59.921]                       })
  [13:41:59.921]                       tryCatch({
  [13:41:59.921]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:59.921]                           plan = future::plan("next"))
  [13:41:59.921]                       }, error = identity)
  [13:41:59.921]                     })
  [13:41:59.921]                   }
  [13:41:59.921]                 }, immediateCondition = function(cond) {
  [13:41:59.921]                   sendCondition <- ...future.sendCondition()
  [13:41:59.921]                   sendCondition(cond)
  [13:41:59.921]                   muffleCondition <- function (cond) 
  [13:41:59.921]                   {
  [13:41:59.921]                     inherits <- base::inherits
  [13:41:59.921]                     invokeRestart <- base::invokeRestart
  [13:41:59.921]                     muffled <- FALSE
  [13:41:59.921]                     if (inherits(cond, "message")) {
  [13:41:59.921]                       invokeRestart("muffleMessage")
  [13:41:59.921]                       muffled <- TRUE
  [13:41:59.921]                     }
  [13:41:59.921]                     else if (inherits(cond, "warning")) {
  [13:41:59.921]                       invokeRestart("muffleWarning")
  [13:41:59.921]                       muffled <- TRUE
  [13:41:59.921]                     }
  [13:41:59.921]                     else if (inherits(cond, "condition")) {
  [13:41:59.921]                       computeRestarts <- base::computeRestarts
  [13:41:59.921]                       grepl <- base::grepl
  [13:41:59.921]                       is.null <- base::is.null
  [13:41:59.921]                       restarts <- computeRestarts(cond)
  [13:41:59.921]                       for (restart in restarts) {
  [13:41:59.921]                         name <- restart$name
  [13:41:59.921]                         if (is.null(name)) 
  [13:41:59.921]                           next
  [13:41:59.921]                         if (!grepl("^muffle", name)) 
  [13:41:59.921]                           next
  [13:41:59.921]                         invokeRestart(restart)
  [13:41:59.921]                         muffled <- TRUE
  [13:41:59.921]                         break
  [13:41:59.921]                       }
  [13:41:59.921]                     }
  [13:41:59.921]                     invisible(muffled)
  [13:41:59.921]                   }
  [13:41:59.921]                   muffleCondition(cond)
  [13:41:59.921]                 })
  [13:41:59.921]             }))
  [13:41:59.921]             future::FutureResult(value = ...future.value$value, 
  [13:41:59.921]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.921]                   ...future.rng), started = ...future.startTime, 
  [13:41:59.921]                 version = "1.8")
  [13:41:59.921]         }, condition = base::local({
  [13:41:59.921]             c <- base::c
  [13:41:59.921]             inherits <- base::inherits
  [13:41:59.921]             invokeRestart <- base::invokeRestart
  [13:41:59.921]             length <- base::length
  [13:41:59.921]             list <- base::list
  [13:41:59.921]             seq.int <- base::seq.int
  [13:41:59.921]             signalCondition <- base::signalCondition
  [13:41:59.921]             sys.calls <- base::sys.calls
  [13:41:59.921]             Sys.time <- base::Sys.time
  [13:41:59.921]             `[[` <- base::`[[`
  [13:41:59.921]             `+` <- base::`+`
  [13:41:59.921]             `<<-` <- base::`<<-`
  [13:41:59.921]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:59.921]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:59.921]                   3L)]
  [13:41:59.921]             }
  [13:41:59.921]             function(cond) {
  [13:41:59.921]                 if (inherits(cond, "error")) {
  [13:41:59.921]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.921]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:59.921]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:59.921]                   signalCondition(cond)
  [13:41:59.921]                 }
  [13:41:59.921]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:59.921]                 ))) {
  [13:41:59.921]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:59.921]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.921]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:59.921]                   if (!signal) {
  [13:41:59.921]                     muffleCondition <- function (cond) 
  [13:41:59.921]                     {
  [13:41:59.921]                       inherits <- base::inherits
  [13:41:59.921]                       invokeRestart <- base::invokeRestart
  [13:41:59.921]                       muffled <- FALSE
  [13:41:59.921]                       if (inherits(cond, "message")) {
  [13:41:59.921]                         invokeRestart("muffleMessage")
  [13:41:59.921]                         muffled <- TRUE
  [13:41:59.921]                       }
  [13:41:59.921]                       else if (inherits(cond, "warning")) {
  [13:41:59.921]                         invokeRestart("muffleWarning")
  [13:41:59.921]                         muffled <- TRUE
  [13:41:59.921]                       }
  [13:41:59.921]                       else if (inherits(cond, "condition")) {
  [13:41:59.921]                         computeRestarts <- base::computeRestarts
  [13:41:59.921]                         grepl <- base::grepl
  [13:41:59.921]                         is.null <- base::is.null
  [13:41:59.921]                         restarts <- computeRestarts(cond)
  [13:41:59.921]                         for (restart in restarts) {
  [13:41:59.921]                           name <- restart$name
  [13:41:59.921]                           if (is.null(name)) 
  [13:41:59.921]                             next
  [13:41:59.921]                           if (!grepl("^muffle", name)) 
  [13:41:59.921]                             next
  [13:41:59.921]                           invokeRestart(restart)
  [13:41:59.921]                           muffled <- TRUE
  [13:41:59.921]                           break
  [13:41:59.921]                         }
  [13:41:59.921]                       }
  [13:41:59.921]                       invisible(muffled)
  [13:41:59.921]                     }
  [13:41:59.921]                     muffleCondition(cond)
  [13:41:59.921]                   }
  [13:41:59.921]                 }
  [13:41:59.921]             }
  [13:41:59.921]         }))
  [13:41:59.921]     }, error = function(ex) {
  [13:41:59.921]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:59.921]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.921]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:59.921]     }, finally = {
  [13:41:59.921]         {
  [13:41:59.921]             {
  [13:41:59.921]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:59.921]             }
  [13:41:59.921]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:59.921]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.921]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:59.921]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:59.921]                 ...) 
  [13:41:59.921]             {
  [13:41:59.921]                 if (substitute) 
  [13:41:59.921]                   expr <- substitute(expr)
  [13:41:59.921]                 if (is.function(workers)) 
  [13:41:59.921]                   workers <- workers()
  [13:41:59.921]                 workers <- as.integer(workers)
  [13:41:59.921]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:59.921]                   workers >= 1)
  [13:41:59.921]                 if (workers == 1L) {
  [13:41:59.921]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:59.921]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:59.921]                     local = TRUE, label = label, ...))
  [13:41:59.921]                 }
  [13:41:59.921]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:59.921]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:59.921]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.921]                   globals = globals, persistent = persistent, 
  [13:41:59.921]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:59.921]                   label = label, ...)
  [13:41:59.921]                 if (!future$lazy) 
  [13:41:59.921]                   future <- run(future)
  [13:41:59.921]                 invisible(future)
  [13:41:59.921]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:59.921]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:59.921]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:59.921]             {
  [13:41:59.921]                 if (substitute) 
  [13:41:59.921]                   expr <- substitute(expr)
  [13:41:59.921]                 local <- as.logical(local)
  [13:41:59.921]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.921]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.921]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.921]                   label = label, ...)
  [13:41:59.921]                 if (!future$lazy) 
  [13:41:59.921]                   future <- run(future)
  [13:41:59.921]                 invisible(future)
  [13:41:59.921]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.921]         }
  [13:41:59.921]         base::options(...future.oldOptions)
  [13:41:59.921]     })
  [13:41:59.921]     Sys.time
  [13:41:59.921]     if (base::is.na(TRUE)) {
  [13:41:59.921]     }
  [13:41:59.921]     else {
  [13:41:59.921]         base::sink(type = "output", split = FALSE)
  [13:41:59.921]         if (TRUE) {
  [13:41:59.921]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:59.921]         }
  [13:41:59.921]         else {
  [13:41:59.921]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:59.921]         }
  [13:41:59.921]         base::close(...future.stdout)
  [13:41:59.921]         ...future.stdout <- NULL
  [13:41:59.921]     }
  [13:41:59.921]     ...future.result$conditions <- ...future.conditions
  [13:41:59.921]     ...future.result
  [13:41:59.921] }
  [13:41:59.931] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:41:59.931] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:41:59.933] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:41:59.933] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:41:59.935] MultisessionFuture started
  [13:41:59.936] Chunk #1 of 2 ... DONE
  [13:41:59.936] Chunk #2 of 2 ...
  [13:41:59.937]  - Finding globals in 'args_list' chunk #2 ...
  [13:41:59.937] getGlobalsAndPackages() ...
  [13:41:59.937] Searching for globals...
  [13:41:59.938] 
  [13:41:59.939] Searching for globals ... DONE
  [13:41:59.939] - globals: [0] <none>
  [13:41:59.939] getGlobalsAndPackages() ... DONE
  [13:41:59.940] 
  [13:41:59.940] 
  [13:41:59.940]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:41:59.950] getGlobalsAndPackages() ...
  [13:41:59.951] - globals passed as-is: [1] '...future.x_ii'
  [13:41:59.951] Resolving globals: FALSE
  [13:41:59.952] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:41:59.953] - globals: [1] '...future.x_ii'
  [13:41:59.953] 
  [13:41:59.953] getGlobalsAndPackages() ... DONE
  [13:41:59.958] Packages needed by the future expression (n = 1): 'doFuture'
  [13:41:59.959] Packages needed by future strategies (n = 1): 'future'
  [13:41:59.966] {
  [13:41:59.966]     {
  [13:41:59.966]         ...future.startTime <- base::Sys.time()
  [13:41:59.966]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:41:59.966]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:41:59.966]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:41:59.966]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:41:59.966]             future.resolve.recursive = NULL, width = 80L)
  [13:41:59.966]         {
  [13:41:59.966]             {
  [13:41:59.966]                 {
  [13:41:59.966]                   {
  [13:41:59.966]                     has_future <- base::requireNamespace("future", 
  [13:41:59.966]                       quietly = TRUE)
  [13:41:59.966]                     version <- if (has_future) 
  [13:41:59.966]                       utils::packageVersion("future")
  [13:41:59.966]                     else NULL
  [13:41:59.966]                     if (!has_future || version < "1.8.0") {
  [13:41:59.966]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:41:59.966]                         "", base::R.version$version.string), 
  [13:41:59.966]                         platform = base::sprintf("%s (%s-bit)", 
  [13:41:59.966]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:41:59.966]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:41:59.966]                           "release", "version")], collapse = " "), 
  [13:41:59.966]                         hostname = base::Sys.info()[["nodename"]])
  [13:41:59.966]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:41:59.966]                         info)
  [13:41:59.966]                       info <- base::paste(info, collapse = "; ")
  [13:41:59.966]                       if (!has_future) {
  [13:41:59.966]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:41:59.966]                           info)
  [13:41:59.966]                       }
  [13:41:59.966]                       else {
  [13:41:59.966]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:41:59.966]                           info, version)
  [13:41:59.966]                       }
  [13:41:59.966]                       base::stop(msg)
  [13:41:59.966]                     }
  [13:41:59.966]                   }
  [13:41:59.966]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:41:59.966]                   base::options(mc.cores = 1L)
  [13:41:59.966]                 }
  [13:41:59.966]                 base::local({
  [13:41:59.966]                   for (pkg in c("doFuture", "future")) {
  [13:41:59.966]                     base::loadNamespace(pkg)
  [13:41:59.966]                     base::library(pkg, character.only = TRUE)
  [13:41:59.966]                   }
  [13:41:59.966]                 })
  [13:41:59.966]             }
  [13:41:59.966]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:41:59.966]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.966]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:41:59.966]                 label = NULL, ...) 
  [13:41:59.966]             {
  [13:41:59.966]                 if (substitute) 
  [13:41:59.966]                   expr <- substitute(expr)
  [13:41:59.966]                 local <- as.logical(local)
  [13:41:59.966]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.966]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.966]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.966]                   label = label, ...)
  [13:41:59.966]                 if (!future$lazy) 
  [13:41:59.966]                   future <- run(future)
  [13:41:59.966]                 invisible(future)
  [13:41:59.966]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.966]         }
  [13:41:59.966]     }
  [13:41:59.966]     if (base::is.na(TRUE)) {
  [13:41:59.966]     }
  [13:41:59.966]     else {
  [13:41:59.966]         if (TRUE) {
  [13:41:59.966]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:41:59.966]                 open = "w")
  [13:41:59.966]         }
  [13:41:59.966]         else {
  [13:41:59.966]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:41:59.966]                 windows = "NUL", "/dev/null"), open = "w")
  [13:41:59.966]         }
  [13:41:59.966]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:41:59.966]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:41:59.966]             base::sink(type = "output", split = FALSE)
  [13:41:59.966]             base::close(...future.stdout)
  [13:41:59.966]         }, add = TRUE)
  [13:41:59.966]     }
  [13:41:59.966]     ...future.frame <- base::sys.nframe()
  [13:41:59.966]     ...future.conditions <- base::list()
  [13:41:59.966]     ...future.rng <- base::globalenv()$.Random.seed
  [13:41:59.966]     ...future.result <- base::tryCatch({
  [13:41:59.966]         base::withCallingHandlers({
  [13:41:59.966]             ...future.value <- base::withVisible(base::local({
  [13:41:59.966]                 ...future.sendCondition <- local({
  [13:41:59.966]                   sendCondition <- NULL
  [13:41:59.966]                   function(frame = 1L) {
  [13:41:59.966]                     if (is.function(sendCondition)) 
  [13:41:59.966]                       return(sendCondition)
  [13:41:59.966]                     ns <- getNamespace("parallel")
  [13:41:59.966]                     if (exists("sendData", mode = "function", 
  [13:41:59.966]                       envir = ns)) {
  [13:41:59.966]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:41:59.966]                         envir = ns)
  [13:41:59.966]                       envir <- sys.frame(frame)
  [13:41:59.966]                       master <- NULL
  [13:41:59.966]                       while (!identical(envir, .GlobalEnv) && 
  [13:41:59.966]                         !identical(envir, emptyenv())) {
  [13:41:59.966]                         if (exists("master", mode = "list", envir = envir, 
  [13:41:59.966]                           inherits = FALSE)) {
  [13:41:59.966]                           master <- get("master", mode = "list", 
  [13:41:59.966]                             envir = envir, inherits = FALSE)
  [13:41:59.966]                           if (inherits(master, "SOCKnode")) {
  [13:41:59.966]                             sendCondition <<- function(cond) {
  [13:41:59.966]                               data <- list(type = "VALUE", value = cond, 
  [13:41:59.966]                                 success = TRUE)
  [13:41:59.966]                               parallel_sendData(master, data)
  [13:41:59.966]                             }
  [13:41:59.966]                             return(sendCondition)
  [13:41:59.966]                           }
  [13:41:59.966]                         }
  [13:41:59.966]                         frame <- frame + 1L
  [13:41:59.966]                         envir <- sys.frame(frame)
  [13:41:59.966]                       }
  [13:41:59.966]                     }
  [13:41:59.966]                     sendCondition <<- function(cond) NULL
  [13:41:59.966]                   }
  [13:41:59.966]                 })
  [13:41:59.966]                 withCallingHandlers({
  [13:41:59.966]                   {
  [13:41:59.966]                     doFuture::registerDoFuture()
  [13:41:59.966]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:41:59.966]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:41:59.966]                       {
  [13:41:59.966]                         a <- NULL
  [13:41:59.966]                         b <- NULL
  [13:41:59.966]                       }
  [13:41:59.966]                       ...future.env <- environment()
  [13:41:59.966]                       local({
  [13:41:59.966]                         for (name in names(...future.x_jj)) {
  [13:41:59.966]                           assign(name, ...future.x_jj[[name]], 
  [13:41:59.966]                             envir = ...future.env, inherits = FALSE)
  [13:41:59.966]                         }
  [13:41:59.966]                       })
  [13:41:59.966]                       tryCatch({
  [13:41:59.966]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:41:59.966]                           plan = future::plan("next"))
  [13:41:59.966]                       }, error = identity)
  [13:41:59.966]                     })
  [13:41:59.966]                   }
  [13:41:59.966]                 }, immediateCondition = function(cond) {
  [13:41:59.966]                   sendCondition <- ...future.sendCondition()
  [13:41:59.966]                   sendCondition(cond)
  [13:41:59.966]                   muffleCondition <- function (cond) 
  [13:41:59.966]                   {
  [13:41:59.966]                     inherits <- base::inherits
  [13:41:59.966]                     invokeRestart <- base::invokeRestart
  [13:41:59.966]                     muffled <- FALSE
  [13:41:59.966]                     if (inherits(cond, "message")) {
  [13:41:59.966]                       invokeRestart("muffleMessage")
  [13:41:59.966]                       muffled <- TRUE
  [13:41:59.966]                     }
  [13:41:59.966]                     else if (inherits(cond, "warning")) {
  [13:41:59.966]                       invokeRestart("muffleWarning")
  [13:41:59.966]                       muffled <- TRUE
  [13:41:59.966]                     }
  [13:41:59.966]                     else if (inherits(cond, "condition")) {
  [13:41:59.966]                       computeRestarts <- base::computeRestarts
  [13:41:59.966]                       grepl <- base::grepl
  [13:41:59.966]                       is.null <- base::is.null
  [13:41:59.966]                       restarts <- computeRestarts(cond)
  [13:41:59.966]                       for (restart in restarts) {
  [13:41:59.966]                         name <- restart$name
  [13:41:59.966]                         if (is.null(name)) 
  [13:41:59.966]                           next
  [13:41:59.966]                         if (!grepl("^muffle", name)) 
  [13:41:59.966]                           next
  [13:41:59.966]                         invokeRestart(restart)
  [13:41:59.966]                         muffled <- TRUE
  [13:41:59.966]                         break
  [13:41:59.966]                       }
  [13:41:59.966]                     }
  [13:41:59.966]                     invisible(muffled)
  [13:41:59.966]                   }
  [13:41:59.966]                   muffleCondition(cond)
  [13:41:59.966]                 })
  [13:41:59.966]             }))
  [13:41:59.966]             future::FutureResult(value = ...future.value$value, 
  [13:41:59.966]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.966]                   ...future.rng), started = ...future.startTime, 
  [13:41:59.966]                 version = "1.8")
  [13:41:59.966]         }, condition = base::local({
  [13:41:59.966]             c <- base::c
  [13:41:59.966]             inherits <- base::inherits
  [13:41:59.966]             invokeRestart <- base::invokeRestart
  [13:41:59.966]             length <- base::length
  [13:41:59.966]             list <- base::list
  [13:41:59.966]             seq.int <- base::seq.int
  [13:41:59.966]             signalCondition <- base::signalCondition
  [13:41:59.966]             sys.calls <- base::sys.calls
  [13:41:59.966]             Sys.time <- base::Sys.time
  [13:41:59.966]             `[[` <- base::`[[`
  [13:41:59.966]             `+` <- base::`+`
  [13:41:59.966]             `<<-` <- base::`<<-`
  [13:41:59.966]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:41:59.966]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:41:59.966]                   3L)]
  [13:41:59.966]             }
  [13:41:59.966]             function(cond) {
  [13:41:59.966]                 if (inherits(cond, "error")) {
  [13:41:59.966]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.966]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:41:59.966]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:41:59.966]                   signalCondition(cond)
  [13:41:59.966]                 }
  [13:41:59.966]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:41:59.966]                 ))) {
  [13:41:59.966]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:41:59.966]                   ...future.conditions[[length(...future.conditions) + 
  [13:41:59.966]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:41:59.966]                   if (!signal) {
  [13:41:59.966]                     muffleCondition <- function (cond) 
  [13:41:59.966]                     {
  [13:41:59.966]                       inherits <- base::inherits
  [13:41:59.966]                       invokeRestart <- base::invokeRestart
  [13:41:59.966]                       muffled <- FALSE
  [13:41:59.966]                       if (inherits(cond, "message")) {
  [13:41:59.966]                         invokeRestart("muffleMessage")
  [13:41:59.966]                         muffled <- TRUE
  [13:41:59.966]                       }
  [13:41:59.966]                       else if (inherits(cond, "warning")) {
  [13:41:59.966]                         invokeRestart("muffleWarning")
  [13:41:59.966]                         muffled <- TRUE
  [13:41:59.966]                       }
  [13:41:59.966]                       else if (inherits(cond, "condition")) {
  [13:41:59.966]                         computeRestarts <- base::computeRestarts
  [13:41:59.966]                         grepl <- base::grepl
  [13:41:59.966]                         is.null <- base::is.null
  [13:41:59.966]                         restarts <- computeRestarts(cond)
  [13:41:59.966]                         for (restart in restarts) {
  [13:41:59.966]                           name <- restart$name
  [13:41:59.966]                           if (is.null(name)) 
  [13:41:59.966]                             next
  [13:41:59.966]                           if (!grepl("^muffle", name)) 
  [13:41:59.966]                             next
  [13:41:59.966]                           invokeRestart(restart)
  [13:41:59.966]                           muffled <- TRUE
  [13:41:59.966]                           break
  [13:41:59.966]                         }
  [13:41:59.966]                       }
  [13:41:59.966]                       invisible(muffled)
  [13:41:59.966]                     }
  [13:41:59.966]                     muffleCondition(cond)
  [13:41:59.966]                   }
  [13:41:59.966]                 }
  [13:41:59.966]             }
  [13:41:59.966]         }))
  [13:41:59.966]     }, error = function(ex) {
  [13:41:59.966]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:41:59.966]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:41:59.966]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:41:59.966]     }, finally = {
  [13:41:59.966]         {
  [13:41:59.966]             {
  [13:41:59.966]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:41:59.966]             }
  [13:41:59.966]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:41:59.966]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:41:59.966]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:41:59.966]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:41:59.966]                 ...) 
  [13:41:59.966]             {
  [13:41:59.966]                 if (substitute) 
  [13:41:59.966]                   expr <- substitute(expr)
  [13:41:59.966]                 if (is.function(workers)) 
  [13:41:59.966]                   workers <- workers()
  [13:41:59.966]                 workers <- as.integer(workers)
  [13:41:59.966]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:41:59.966]                   workers >= 1)
  [13:41:59.966]                 if (workers == 1L) {
  [13:41:59.966]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:41:59.966]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:41:59.966]                     local = TRUE, label = label, ...))
  [13:41:59.966]                 }
  [13:41:59.966]                 workers <- ClusterRegistry("start", workers = workers)
  [13:41:59.966]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:41:59.966]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.966]                   globals = globals, persistent = persistent, 
  [13:41:59.966]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:41:59.966]                   label = label, ...)
  [13:41:59.966]                 if (!future$lazy) 
  [13:41:59.966]                   future <- run(future)
  [13:41:59.966]                 invisible(future)
  [13:41:59.966]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:41:59.966]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:41:59.966]                 earlySignal = FALSE, label = NULL, ...) 
  [13:41:59.966]             {
  [13:41:59.966]                 if (substitute) 
  [13:41:59.966]                   expr <- substitute(expr)
  [13:41:59.966]                 local <- as.logical(local)
  [13:41:59.966]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:41:59.966]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:41:59.966]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:41:59.966]                   label = label, ...)
  [13:41:59.966]                 if (!future$lazy) 
  [13:41:59.966]                   future <- run(future)
  [13:41:59.966]                 invisible(future)
  [13:41:59.966]             }), .cleanup = FALSE, .init = FALSE)
  [13:41:59.966]         }
  [13:41:59.966]         base::options(...future.oldOptions)
  [13:41:59.966]     })
  [13:41:59.966]     Sys.time
  [13:41:59.966]     if (base::is.na(TRUE)) {
  [13:41:59.966]     }
  [13:41:59.966]     else {
  [13:41:59.966]         base::sink(type = "output", split = FALSE)
  [13:41:59.966]         if (TRUE) {
  [13:41:59.966]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:41:59.966]         }
  [13:41:59.966]         else {
  [13:41:59.966]             ...future.result["stdout"] <- base::list(NULL)
  [13:41:59.966]         }
  [13:41:59.966]         base::close(...future.stdout)
  [13:41:59.966]         ...future.stdout <- NULL
  [13:41:59.966]     }
  [13:41:59.966]     ...future.result$conditions <- ...future.conditions
  [13:41:59.966]     ...future.result
  [13:41:59.966] }
  [13:41:59.975] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:41:59.976] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:41:59.977] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:42:00.013] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:42:00.015] MultisessionFuture started
  [13:42:00.015] Chunk #2 of 2 ... DONE
  [13:42:00.016] Launching 2 futures (chunks) ... DONE
  [13:42:00.016] - resolving futures
  [13:42:00.016]   - gathering results & relaying conditions (except errors)
  [13:42:00.016] resolve() on list ...
  [13:42:00.017]  recursive: 0
  [13:42:00.017]  length: 2
  [13:42:00.017] 
  [13:42:00.369] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:00.369] - Validating connection of MultisessionFuture
  [13:42:00.411] - received message: FutureResult
  [13:42:00.411] - Received FutureResult
  [13:42:00.412] - Erased future from FutureRegistry
  [13:42:00.412] result() for ClusterFuture ...
  [13:42:00.413] - result already collected: FutureResult
  [13:42:00.413] result() for ClusterFuture ... done
  [13:42:00.413] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:00.414] Future #2
  [13:42:00.414] result() for ClusterFuture ...
  [13:42:00.415] - result already collected: FutureResult
  [13:42:00.415] result() for ClusterFuture ... done
  [13:42:00.415] result() for ClusterFuture ...
  [13:42:00.416] - result already collected: FutureResult
  [13:42:00.416] result() for ClusterFuture ... done
  [13:42:00.417] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:42:00.417] - nx: 2
  [13:42:00.417] - relay: TRUE
  [13:42:00.417] - stdout: TRUE
  [13:42:00.418] - signal: TRUE
  [13:42:00.418] - resignal: FALSE
  [13:42:00.418] - force: FALSE
  [13:42:00.419] - relayed: [n=2] FALSE, FALSE
  [13:42:00.419] - queued futures: [n=2] FALSE, FALSE
  [13:42:00.420]  - until=1
  [13:42:00.420]  - relaying element #1
  [13:42:00.420] - relayed: [n=2] FALSE, FALSE
  [13:42:00.420] - queued futures: [n=2] FALSE, TRUE
  [13:42:00.421] signalConditionsASAP(NULL, pos=2) ... done
  [13:42:00.421]  length: 1 (resolved future 2)
  [13:42:00.523] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:00.524] - Validating connection of MultisessionFuture
  [13:42:00.525] - received message: FutureResult
  [13:42:00.525] - Received FutureResult
  [13:42:00.526] - Erased future from FutureRegistry
  [13:42:00.526] result() for ClusterFuture ...
  [13:42:00.527] - result already collected: FutureResult
  [13:42:00.527] result() for ClusterFuture ... done
  [13:42:00.527] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:00.528] Future #1
  [13:42:00.528] result() for ClusterFuture ...
  [13:42:00.529] - result already collected: FutureResult
  [13:42:00.529] result() for ClusterFuture ... done
  [13:42:00.529] result() for ClusterFuture ...
  [13:42:00.530] - result already collected: FutureResult
  [13:42:00.530] result() for ClusterFuture ... done
  [13:42:00.541] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:42:00.542] - nx: 2
  [13:42:00.543] - relay: TRUE
  [13:42:00.543] - stdout: TRUE
  [13:42:00.544] - signal: TRUE
  [13:42:00.544] - resignal: FALSE
  [13:42:00.545] - force: FALSE
  [13:42:00.545] - relayed: [n=2] FALSE, FALSE
  [13:42:00.546] - queued futures: [n=2] FALSE, TRUE
  [13:42:00.547]  - until=1
  [13:42:00.547]  - relaying element #1
  [13:42:00.548] result() for ClusterFuture ...
  [13:42:00.548] - result already collected: FutureResult
  [13:42:00.549] result() for ClusterFuture ... done
  [13:42:00.550] result() for ClusterFuture ...
  [13:42:00.550] - result already collected: FutureResult
  [13:42:00.551] result() for ClusterFuture ... done
  [13:42:00.551] result() for ClusterFuture ...
  [13:42:00.552] - result already collected: FutureResult
  [13:42:00.552] result() for ClusterFuture ... done
  [13:42:00.553] result() for ClusterFuture ...
  [13:42:00.553] - result already collected: FutureResult
  [13:42:00.554] result() for ClusterFuture ... done
  [13:42:00.570] - relayed: [n=2] TRUE, FALSE
  [13:42:00.571] - queued futures: [n=2] TRUE, TRUE
  [13:42:00.572] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:42:00.573]  length: 0 (resolved future 1)
  [13:42:00.573] Relaying remaining futures
  [13:42:00.574] signalConditionsASAP(NULL, pos=0) ...
  [13:42:00.574] - nx: 2
  [13:42:00.575] - relay: TRUE
  [13:42:00.575] - stdout: TRUE
  [13:42:00.575] - signal: TRUE
  [13:42:00.576] - resignal: FALSE
  [13:42:00.591] - force: FALSE
  [13:42:00.591] - relayed: [n=2] TRUE, FALSE
  [13:42:00.592] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:42:00.593]  - relaying element #2
  [13:42:00.593] result() for ClusterFuture ...
  [13:42:00.594] - result already collected: FutureResult
  [13:42:00.594] result() for ClusterFuture ... done
  [13:42:00.595] result() for ClusterFuture ...
  [13:42:00.595] - result already collected: FutureResult
  [13:42:00.596] result() for ClusterFuture ... done
  [13:42:00.596] result() for ClusterFuture ...
  [13:42:00.597] - result already collected: FutureResult
  [13:42:00.597] result() for ClusterFuture ... done
  [13:42:00.598] result() for ClusterFuture ...
  [13:42:00.598] - result already collected: FutureResult
  [13:42:00.599] result() for ClusterFuture ... done
  [13:42:00.599] - relayed: [n=2] TRUE, TRUE
  [13:42:00.600] - queued futures: [n=2] TRUE, TRUE
  [13:42:00.600] signalConditionsASAP(MultisessionFuture, pos=0) ... done
  [13:42:00.600] resolve() on list ... DONE
  [13:42:00.601] - collecting values of futures
  [13:42:00.602] result() for ClusterFuture ...
  [13:42:00.602] - result already collected: FutureResult
  [13:42:00.603] result() for ClusterFuture ... done
  [13:42:00.603] result() for ClusterFuture ...
  [13:42:00.603] - result already collected: FutureResult
  [13:42:00.604] result() for ClusterFuture ... done
  [13:42:00.605] result() for ClusterFuture ...
  [13:42:00.605] - result already collected: FutureResult
  [13:42:00.605] result() for ClusterFuture ... done
  [13:42:00.606] result() for ClusterFuture ...
  [13:42:00.614] - result already collected: FutureResult
  [13:42:00.615] result() for ClusterFuture ... done
  [13:42:00.616] - accumulating results
  [13:42:00.621] - processing errors (handler = 'stop')
  [13:42:00.622] - extracting results
  [13:42:00.622] doFuture() ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [13:42:00.625] plan(): Setting new future strategy stack:
  [13:42:00.625] List of future strategies:
  [13:42:00.625] 1. multisession:
  [13:42:00.625]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:00.625]    - tweaked: FALSE
  [13:42:00.625]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:00.625] 2. multicore:
  [13:42:00.625]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:42:00.625]    - tweaked: FALSE
  [13:42:00.625]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:00.685] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:42:00.686] multisession:
  [13:42:00.686] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:00.686] - tweaked: FALSE
  [13:42:00.686] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 23749
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6ffd707a.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac6ffd707a.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6ffd707a.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=23749 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac44a717a9.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac44a717a9.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac44a717a9.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=23749 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
  [13:42:16.521] getGlobalsAndPackages() ...
  [13:42:16.521] Not searching for globals
  [13:42:16.522] - globals: [0] <none>
  [13:42:16.522] getGlobalsAndPackages() ... DONE
  [13:42:16.528] Packages needed by the future expression (n = 0): <none>
  [13:42:16.528] Packages needed by future strategies (n = 1): 'future'
  [13:42:16.547] {
  [13:42:16.547]     {
  [13:42:16.547]         ...future.startTime <- base::Sys.time()
  [13:42:16.547]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:16.547]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:16.547]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:16.547]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:16.547]             future.resolve.recursive = NULL, width = 80L)
  [13:42:16.547]         {
  [13:42:16.547]             {
  [13:42:16.547]                 {
  [13:42:16.547]                   {
  [13:42:16.547]                     has_future <- base::requireNamespace("future", 
  [13:42:16.547]                       quietly = TRUE)
  [13:42:16.547]                     version <- if (has_future) 
  [13:42:16.547]                       utils::packageVersion("future")
  [13:42:16.547]                     else NULL
  [13:42:16.547]                     if (!has_future || version < "1.8.0") {
  [13:42:16.547]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:16.547]                         "", base::R.version$version.string), 
  [13:42:16.547]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:16.547]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:16.547]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:16.547]                           "release", "version")], collapse = " "), 
  [13:42:16.547]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:16.547]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:16.547]                         info)
  [13:42:16.547]                       info <- base::paste(info, collapse = "; ")
  [13:42:16.547]                       if (!has_future) {
  [13:42:16.547]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:16.547]                           info)
  [13:42:16.547]                       }
  [13:42:16.547]                       else {
  [13:42:16.547]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:16.547]                           info, version)
  [13:42:16.547]                       }
  [13:42:16.547]                       base::stop(msg)
  [13:42:16.547]                     }
  [13:42:16.547]                   }
  [13:42:16.547]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:16.547]                   base::options(mc.cores = 1L)
  [13:42:16.547]                 }
  [13:42:16.547]                 base::local({
  [13:42:16.547]                   for (pkg in "future") {
  [13:42:16.547]                     base::loadNamespace(pkg)
  [13:42:16.547]                     base::library(pkg, character.only = TRUE)
  [13:42:16.547]                   }
  [13:42:16.547]                 })
  [13:42:16.547]             }
  [13:42:16.547]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:16.547]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:16.547]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:16.547]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:16.547]             {
  [13:42:16.547]                 if (substitute) 
  [13:42:16.547]                   expr <- substitute(expr)
  [13:42:16.547]                 if (is.function(workers)) 
  [13:42:16.547]                   workers <- workers()
  [13:42:16.547]                 workers <- as.integer(workers)
  [13:42:16.547]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:16.547]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:16.547]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.547]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:16.547]                     local = TRUE, label = label, ...))
  [13:42:16.547]                 }
  [13:42:16.547]                 oopts <- options(mc.cores = workers)
  [13:42:16.547]                 on.exit(options(oopts))
  [13:42:16.547]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:16.547]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.547]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:16.547]                   label = label, ...)
  [13:42:16.547]                 if (!future$lazy) 
  [13:42:16.547]                   future <- run(future)
  [13:42:16.547]                 invisible(future)
  [13:42:16.547]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:16.547]         }
  [13:42:16.547]     }
  [13:42:16.547]     if (base::is.na(TRUE)) {
  [13:42:16.547]     }
  [13:42:16.547]     else {
  [13:42:16.547]         if (TRUE) {
  [13:42:16.547]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:16.547]                 open = "w")
  [13:42:16.547]         }
  [13:42:16.547]         else {
  [13:42:16.547]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:16.547]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:16.547]         }
  [13:42:16.547]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:16.547]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:16.547]             base::sink(type = "output", split = FALSE)
  [13:42:16.547]             base::close(...future.stdout)
  [13:42:16.547]         }, add = TRUE)
  [13:42:16.547]     }
  [13:42:16.547]     ...future.frame <- base::sys.nframe()
  [13:42:16.547]     ...future.conditions <- base::list()
  [13:42:16.547]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:16.547]     ...future.result <- base::tryCatch({
  [13:42:16.547]         base::withCallingHandlers({
  [13:42:16.547]             ...future.value <- base::withVisible(base::local({
  [13:42:16.547]                 ...future.sendCondition <- local({
  [13:42:16.547]                   sendCondition <- NULL
  [13:42:16.547]                   function(frame = 1L) {
  [13:42:16.547]                     if (is.function(sendCondition)) 
  [13:42:16.547]                       return(sendCondition)
  [13:42:16.547]                     ns <- getNamespace("parallel")
  [13:42:16.547]                     if (exists("sendData", mode = "function", 
  [13:42:16.547]                       envir = ns)) {
  [13:42:16.547]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:16.547]                         envir = ns)
  [13:42:16.547]                       envir <- sys.frame(frame)
  [13:42:16.547]                       master <- NULL
  [13:42:16.547]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:16.547]                         !identical(envir, emptyenv())) {
  [13:42:16.547]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:16.547]                           inherits = FALSE)) {
  [13:42:16.547]                           master <- get("master", mode = "list", 
  [13:42:16.547]                             envir = envir, inherits = FALSE)
  [13:42:16.547]                           if (inherits(master, "SOCKnode")) {
  [13:42:16.547]                             sendCondition <<- function(cond) {
  [13:42:16.547]                               data <- list(type = "VALUE", value = cond, 
  [13:42:16.547]                                 success = TRUE)
  [13:42:16.547]                               parallel_sendData(master, data)
  [13:42:16.547]                             }
  [13:42:16.547]                             return(sendCondition)
  [13:42:16.547]                           }
  [13:42:16.547]                         }
  [13:42:16.547]                         frame <- frame + 1L
  [13:42:16.547]                         envir <- sys.frame(frame)
  [13:42:16.547]                       }
  [13:42:16.547]                     }
  [13:42:16.547]                     sendCondition <<- function(cond) NULL
  [13:42:16.547]                   }
  [13:42:16.547]                 })
  [13:42:16.547]                 withCallingHandlers({
  [13:42:16.547]                   NA
  [13:42:16.547]                 }, immediateCondition = function(cond) {
  [13:42:16.547]                   sendCondition <- ...future.sendCondition()
  [13:42:16.547]                   sendCondition(cond)
  [13:42:16.547]                   muffleCondition <- function (cond) 
  [13:42:16.547]                   {
  [13:42:16.547]                     inherits <- base::inherits
  [13:42:16.547]                     invokeRestart <- base::invokeRestart
  [13:42:16.547]                     muffled <- FALSE
  [13:42:16.547]                     if (inherits(cond, "message")) {
  [13:42:16.547]                       invokeRestart("muffleMessage")
  [13:42:16.547]                       muffled <- TRUE
  [13:42:16.547]                     }
  [13:42:16.547]                     else if (inherits(cond, "warning")) {
  [13:42:16.547]                       invokeRestart("muffleWarning")
  [13:42:16.547]                       muffled <- TRUE
  [13:42:16.547]                     }
  [13:42:16.547]                     else if (inherits(cond, "condition")) {
  [13:42:16.547]                       computeRestarts <- base::computeRestarts
  [13:42:16.547]                       grepl <- base::grepl
  [13:42:16.547]                       is.null <- base::is.null
  [13:42:16.547]                       restarts <- computeRestarts(cond)
  [13:42:16.547]                       for (restart in restarts) {
  [13:42:16.547]                         name <- restart$name
  [13:42:16.547]                         if (is.null(name)) 
  [13:42:16.547]                           next
  [13:42:16.547]                         if (!grepl("^muffle", name)) 
  [13:42:16.547]                           next
  [13:42:16.547]                         invokeRestart(restart)
  [13:42:16.547]                         muffled <- TRUE
  [13:42:16.547]                         break
  [13:42:16.547]                       }
  [13:42:16.547]                     }
  [13:42:16.547]                     invisible(muffled)
  [13:42:16.547]                   }
  [13:42:16.547]                   muffleCondition(cond)
  [13:42:16.547]                 })
  [13:42:16.547]             }))
  [13:42:16.547]             future::FutureResult(value = ...future.value$value, 
  [13:42:16.547]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:16.547]                   ...future.rng), started = ...future.startTime, 
  [13:42:16.547]                 version = "1.8")
  [13:42:16.547]         }, condition = base::local({
  [13:42:16.547]             c <- base::c
  [13:42:16.547]             inherits <- base::inherits
  [13:42:16.547]             invokeRestart <- base::invokeRestart
  [13:42:16.547]             length <- base::length
  [13:42:16.547]             list <- base::list
  [13:42:16.547]             seq.int <- base::seq.int
  [13:42:16.547]             signalCondition <- base::signalCondition
  [13:42:16.547]             sys.calls <- base::sys.calls
  [13:42:16.547]             Sys.time <- base::Sys.time
  [13:42:16.547]             `[[` <- base::`[[`
  [13:42:16.547]             `+` <- base::`+`
  [13:42:16.547]             `<<-` <- base::`<<-`
  [13:42:16.547]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:16.547]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:16.547]                   3L)]
  [13:42:16.547]             }
  [13:42:16.547]             function(cond) {
  [13:42:16.547]                 if (inherits(cond, "error")) {
  [13:42:16.547]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:16.547]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:16.547]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:16.547]                   signalCondition(cond)
  [13:42:16.547]                 }
  [13:42:16.547]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:16.547]                 ))) {
  [13:42:16.547]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:16.547]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:16.547]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:16.547]                   if (!signal) {
  [13:42:16.547]                     muffleCondition <- function (cond) 
  [13:42:16.547]                     {
  [13:42:16.547]                       inherits <- base::inherits
  [13:42:16.547]                       invokeRestart <- base::invokeRestart
  [13:42:16.547]                       muffled <- FALSE
  [13:42:16.547]                       if (inherits(cond, "message")) {
  [13:42:16.547]                         invokeRestart("muffleMessage")
  [13:42:16.547]                         muffled <- TRUE
  [13:42:16.547]                       }
  [13:42:16.547]                       else if (inherits(cond, "warning")) {
  [13:42:16.547]                         invokeRestart("muffleWarning")
  [13:42:16.547]                         muffled <- TRUE
  [13:42:16.547]                       }
  [13:42:16.547]                       else if (inherits(cond, "condition")) {
  [13:42:16.547]                         computeRestarts <- base::computeRestarts
  [13:42:16.547]                         grepl <- base::grepl
  [13:42:16.547]                         is.null <- base::is.null
  [13:42:16.547]                         restarts <- computeRestarts(cond)
  [13:42:16.547]                         for (restart in restarts) {
  [13:42:16.547]                           name <- restart$name
  [13:42:16.547]                           if (is.null(name)) 
  [13:42:16.547]                             next
  [13:42:16.547]                           if (!grepl("^muffle", name)) 
  [13:42:16.547]                             next
  [13:42:16.547]                           invokeRestart(restart)
  [13:42:16.547]                           muffled <- TRUE
  [13:42:16.547]                           break
  [13:42:16.547]                         }
  [13:42:16.547]                       }
  [13:42:16.547]                       invisible(muffled)
  [13:42:16.547]                     }
  [13:42:16.547]                     muffleCondition(cond)
  [13:42:16.547]                   }
  [13:42:16.547]                 }
  [13:42:16.547]             }
  [13:42:16.547]         }))
  [13:42:16.547]     }, error = function(ex) {
  [13:42:16.547]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:16.547]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:16.547]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:16.547]     }, finally = {
  [13:42:16.547]         {
  [13:42:16.547]             {
  [13:42:16.547]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:16.547]             }
  [13:42:16.547]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:16.547]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:16.547]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:16.547]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:16.547]                 ...) 
  [13:42:16.547]             {
  [13:42:16.547]                 if (substitute) 
  [13:42:16.547]                   expr <- substitute(expr)
  [13:42:16.547]                 if (is.function(workers)) 
  [13:42:16.547]                   workers <- workers()
  [13:42:16.547]                 workers <- as.integer(workers)
  [13:42:16.547]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:16.547]                   workers >= 1)
  [13:42:16.547]                 if (workers == 1L) {
  [13:42:16.547]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.547]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:16.547]                     local = TRUE, label = label, ...))
  [13:42:16.547]                 }
  [13:42:16.547]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:16.547]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:16.547]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.547]                   globals = globals, persistent = persistent, 
  [13:42:16.547]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:16.547]                   label = label, ...)
  [13:42:16.547]                 if (!future$lazy) 
  [13:42:16.547]                   future <- run(future)
  [13:42:16.547]                 invisible(future)
  [13:42:16.547]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:16.547]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:16.547]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:16.547]             {
  [13:42:16.547]                 if (substitute) 
  [13:42:16.547]                   expr <- substitute(expr)
  [13:42:16.547]                 if (is.function(workers)) 
  [13:42:16.547]                   workers <- workers()
  [13:42:16.547]                 workers <- as.integer(workers)
  [13:42:16.547]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:16.547]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:16.547]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.547]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:16.547]                     local = TRUE, label = label, ...))
  [13:42:16.547]                 }
  [13:42:16.547]                 oopts <- options(mc.cores = workers)
  [13:42:16.547]                 on.exit(options(oopts))
  [13:42:16.547]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:16.547]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.547]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:16.547]                   label = label, ...)
  [13:42:16.547]                 if (!future$lazy) 
  [13:42:16.547]                   future <- run(future)
  [13:42:16.547]                 invisible(future)
  [13:42:16.547]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:16.547]         }
  [13:42:16.547]         base::options(...future.oldOptions)
  [13:42:16.547]     })
  [13:42:16.547]     Sys.time
  [13:42:16.547]     if (base::is.na(TRUE)) {
  [13:42:16.547]     }
  [13:42:16.547]     else {
  [13:42:16.547]         base::sink(type = "output", split = FALSE)
  [13:42:16.547]         if (TRUE) {
  [13:42:16.547]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:16.547]         }
  [13:42:16.547]         else {
  [13:42:16.547]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:16.547]         }
  [13:42:16.547]         base::close(...future.stdout)
  [13:42:16.547]         ...future.stdout <- NULL
  [13:42:16.547]     }
  [13:42:16.547]     ...future.result$conditions <- ...future.conditions
  [13:42:16.547]     ...future.result
  [13:42:16.547] }
  [13:42:16.566] MultisessionFuture started
  [13:42:16.567] result() for ClusterFuture ...
  [13:42:16.567] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:16.568] - Validating connection of MultisessionFuture
  [13:42:16.772] - received message: FutureResult
  [13:42:16.772] - Received FutureResult
  [13:42:16.772] - Erased future from FutureRegistry
  [13:42:16.773] result() for ClusterFuture ...
  [13:42:16.773] - result already collected: FutureResult
  [13:42:16.774] result() for ClusterFuture ... done
  [13:42:16.774] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:16.774] result() for ClusterFuture ... done
  [13:42:16.775] result() for ClusterFuture ...
  [13:42:16.775] - result already collected: FutureResult
  [13:42:16.775] result() for ClusterFuture ... done
  [13:42:16.776] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:42:16.777] plan(): nbrOfWorkers() = 2
  [13:42:16.778] doFuture() ...
  [13:42:16.782] - dummy globals (as locals): [2] 'a', 'b'
  [13:42:16.783] - R expression:
  [13:42:16.783] {
  [13:42:16.783]     doFuture::registerDoFuture()
  [13:42:16.783]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:16.783]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:16.783]         {
  [13:42:16.783]             a <- NULL
  [13:42:16.783]             b <- NULL
  [13:42:16.783]         }
  [13:42:16.783]         ...future.env <- environment()
  [13:42:16.783]         local({
  [13:42:16.783]             for (name in names(...future.x_jj)) {
  [13:42:16.783]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:16.783]                   inherits = FALSE)
  [13:42:16.783]             }
  [13:42:16.783]         })
  [13:42:16.783]         tryCatch({
  [13:42:16.783]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:16.783]                 plan = future::plan("next"))
  [13:42:16.783]         }, error = identity)
  [13:42:16.783]     })
  [13:42:16.783] }
  [13:42:16.784] - identifying globals and packages ...
  [13:42:16.785] getGlobalsAndPackages() ...
  [13:42:16.785] Searching for globals...
  [13:42:16.939] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:42:16.940] Searching for globals ... DONE
  [13:42:16.940] Resolving globals: FALSE
  [13:42:16.942] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:42:16.942] - globals: [1] '...future.x_ii'
  [13:42:16.943] 
  [13:42:16.943] getGlobalsAndPackages() ... DONE
  [13:42:16.944] List of 1
  [13:42:16.944]  $ ...future.x_ii: NULL
  [13:42:16.944]  - attr(*, "where")=List of 1
  [13:42:16.944]   ..$ ...future.x_ii:<environment: 0x5617ccdb4ce8> 
  [13:42:16.944]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:16.944]  - attr(*, "resolved")= logi FALSE
  [13:42:16.944]  - attr(*, "total_size")= num 0
  [13:42:16.950]   - R expression:
  [13:42:16.951] {
  [13:42:16.951]     doFuture::registerDoFuture()
  [13:42:16.951]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:16.951]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:16.951]         {
  [13:42:16.951]             a <- NULL
  [13:42:16.951]             b <- NULL
  [13:42:16.951]         }
  [13:42:16.951]         ...future.env <- environment()
  [13:42:16.951]         local({
  [13:42:16.951]             for (name in names(...future.x_jj)) {
  [13:42:16.951]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:16.951]                   inherits = FALSE)
  [13:42:16.951]             }
  [13:42:16.951]         })
  [13:42:16.951]         tryCatch({
  [13:42:16.951]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:16.951]                 plan = future::plan("next"))
  [13:42:16.951]         }, error = identity)
  [13:42:16.951]     })
  [13:42:16.951] }
  [13:42:16.952]   - globals: [1] '...future.x_ii'
  [13:42:16.952] List of 1
  [13:42:16.952]  $ ...future.x_ii: NULL
  [13:42:16.952]  - attr(*, "where")=List of 1
  [13:42:16.952]   ..$ ...future.x_ii:<environment: 0x5617ccdb4ce8> 
  [13:42:16.952]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:16.952]  - attr(*, "resolved")= logi FALSE
  [13:42:16.952]  - attr(*, "total_size")= num 0
  [13:42:16.958]   - packages: [1] 'doFuture'
  [13:42:16.959] - identifying globals and packages ... DONE
  [13:42:16.960] Number of chunks: 2
  [13:42:16.961] Number of futures (= number of chunks): 2
  [13:42:16.961] Launching 2 futures (chunks) ...
  [13:42:16.962] Chunk #1 of 2 ...
  [13:42:16.962]  - Finding globals in 'args_list' chunk #1 ...
  [13:42:16.962] getGlobalsAndPackages() ...
  [13:42:16.963] Searching for globals...
  [13:42:16.964] 
  [13:42:16.964] Searching for globals ... DONE
  [13:42:16.964] - globals: [0] <none>
  [13:42:16.964] getGlobalsAndPackages() ... DONE
  [13:42:16.965] 
  [13:42:16.965] 
  [13:42:16.965]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:42:16.974] getGlobalsAndPackages() ...
  [13:42:16.975] - globals passed as-is: [1] '...future.x_ii'
  [13:42:16.975] Resolving globals: FALSE
  [13:42:16.976] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:16.977] - globals: [1] '...future.x_ii'
  [13:42:16.977] 
  [13:42:16.977] getGlobalsAndPackages() ... DONE
  [13:42:16.982] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:16.983] Packages needed by future strategies (n = 1): 'future'
  [13:42:16.989] {
  [13:42:16.989]     {
  [13:42:16.989]         ...future.startTime <- base::Sys.time()
  [13:42:16.989]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:16.989]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:16.989]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:16.989]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:16.989]             future.resolve.recursive = NULL, width = 80L)
  [13:42:16.989]         {
  [13:42:16.989]             {
  [13:42:16.989]                 {
  [13:42:16.989]                   {
  [13:42:16.989]                     has_future <- base::requireNamespace("future", 
  [13:42:16.989]                       quietly = TRUE)
  [13:42:16.989]                     version <- if (has_future) 
  [13:42:16.989]                       utils::packageVersion("future")
  [13:42:16.989]                     else NULL
  [13:42:16.989]                     if (!has_future || version < "1.8.0") {
  [13:42:16.989]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:16.989]                         "", base::R.version$version.string), 
  [13:42:16.989]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:16.989]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:16.989]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:16.989]                           "release", "version")], collapse = " "), 
  [13:42:16.989]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:16.989]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:16.989]                         info)
  [13:42:16.989]                       info <- base::paste(info, collapse = "; ")
  [13:42:16.989]                       if (!has_future) {
  [13:42:16.989]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:16.989]                           info)
  [13:42:16.989]                       }
  [13:42:16.989]                       else {
  [13:42:16.989]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:16.989]                           info, version)
  [13:42:16.989]                       }
  [13:42:16.989]                       base::stop(msg)
  [13:42:16.989]                     }
  [13:42:16.989]                   }
  [13:42:16.989]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:16.989]                   base::options(mc.cores = 1L)
  [13:42:16.989]                 }
  [13:42:16.989]                 base::local({
  [13:42:16.989]                   for (pkg in c("doFuture", "future")) {
  [13:42:16.989]                     base::loadNamespace(pkg)
  [13:42:16.989]                     base::library(pkg, character.only = TRUE)
  [13:42:16.989]                   }
  [13:42:16.989]                 })
  [13:42:16.989]             }
  [13:42:16.989]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:16.989]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:16.989]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:16.989]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:16.989]             {
  [13:42:16.989]                 if (substitute) 
  [13:42:16.989]                   expr <- substitute(expr)
  [13:42:16.989]                 if (is.function(workers)) 
  [13:42:16.989]                   workers <- workers()
  [13:42:16.989]                 workers <- as.integer(workers)
  [13:42:16.989]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:16.989]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:16.989]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.989]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:16.989]                     local = TRUE, label = label, ...))
  [13:42:16.989]                 }
  [13:42:16.989]                 oopts <- options(mc.cores = workers)
  [13:42:16.989]                 on.exit(options(oopts))
  [13:42:16.989]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:16.989]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.989]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:16.989]                   label = label, ...)
  [13:42:16.989]                 if (!future$lazy) 
  [13:42:16.989]                   future <- run(future)
  [13:42:16.989]                 invisible(future)
  [13:42:16.989]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:16.989]         }
  [13:42:16.989]     }
  [13:42:16.989]     if (base::is.na(TRUE)) {
  [13:42:16.989]     }
  [13:42:16.989]     else {
  [13:42:16.989]         if (TRUE) {
  [13:42:16.989]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:16.989]                 open = "w")
  [13:42:16.989]         }
  [13:42:16.989]         else {
  [13:42:16.989]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:16.989]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:16.989]         }
  [13:42:16.989]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:16.989]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:16.989]             base::sink(type = "output", split = FALSE)
  [13:42:16.989]             base::close(...future.stdout)
  [13:42:16.989]         }, add = TRUE)
  [13:42:16.989]     }
  [13:42:16.989]     ...future.frame <- base::sys.nframe()
  [13:42:16.989]     ...future.conditions <- base::list()
  [13:42:16.989]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:16.989]     ...future.result <- base::tryCatch({
  [13:42:16.989]         base::withCallingHandlers({
  [13:42:16.989]             ...future.value <- base::withVisible(base::local({
  [13:42:16.989]                 ...future.sendCondition <- local({
  [13:42:16.989]                   sendCondition <- NULL
  [13:42:16.989]                   function(frame = 1L) {
  [13:42:16.989]                     if (is.function(sendCondition)) 
  [13:42:16.989]                       return(sendCondition)
  [13:42:16.989]                     ns <- getNamespace("parallel")
  [13:42:16.989]                     if (exists("sendData", mode = "function", 
  [13:42:16.989]                       envir = ns)) {
  [13:42:16.989]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:16.989]                         envir = ns)
  [13:42:16.989]                       envir <- sys.frame(frame)
  [13:42:16.989]                       master <- NULL
  [13:42:16.989]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:16.989]                         !identical(envir, emptyenv())) {
  [13:42:16.989]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:16.989]                           inherits = FALSE)) {
  [13:42:16.989]                           master <- get("master", mode = "list", 
  [13:42:16.989]                             envir = envir, inherits = FALSE)
  [13:42:16.989]                           if (inherits(master, "SOCKnode")) {
  [13:42:16.989]                             sendCondition <<- function(cond) {
  [13:42:16.989]                               data <- list(type = "VALUE", value = cond, 
  [13:42:16.989]                                 success = TRUE)
  [13:42:16.989]                               parallel_sendData(master, data)
  [13:42:16.989]                             }
  [13:42:16.989]                             return(sendCondition)
  [13:42:16.989]                           }
  [13:42:16.989]                         }
  [13:42:16.989]                         frame <- frame + 1L
  [13:42:16.989]                         envir <- sys.frame(frame)
  [13:42:16.989]                       }
  [13:42:16.989]                     }
  [13:42:16.989]                     sendCondition <<- function(cond) NULL
  [13:42:16.989]                   }
  [13:42:16.989]                 })
  [13:42:16.989]                 withCallingHandlers({
  [13:42:16.989]                   {
  [13:42:16.989]                     doFuture::registerDoFuture()
  [13:42:16.989]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:16.989]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:16.989]                       {
  [13:42:16.989]                         a <- NULL
  [13:42:16.989]                         b <- NULL
  [13:42:16.989]                       }
  [13:42:16.989]                       ...future.env <- environment()
  [13:42:16.989]                       local({
  [13:42:16.989]                         for (name in names(...future.x_jj)) {
  [13:42:16.989]                           assign(name, ...future.x_jj[[name]], 
  [13:42:16.989]                             envir = ...future.env, inherits = FALSE)
  [13:42:16.989]                         }
  [13:42:16.989]                       })
  [13:42:16.989]                       tryCatch({
  [13:42:16.989]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:16.989]                           plan = future::plan("next"))
  [13:42:16.989]                       }, error = identity)
  [13:42:16.989]                     })
  [13:42:16.989]                   }
  [13:42:16.989]                 }, immediateCondition = function(cond) {
  [13:42:16.989]                   sendCondition <- ...future.sendCondition()
  [13:42:16.989]                   sendCondition(cond)
  [13:42:16.989]                   muffleCondition <- function (cond) 
  [13:42:16.989]                   {
  [13:42:16.989]                     inherits <- base::inherits
  [13:42:16.989]                     invokeRestart <- base::invokeRestart
  [13:42:16.989]                     muffled <- FALSE
  [13:42:16.989]                     if (inherits(cond, "message")) {
  [13:42:16.989]                       invokeRestart("muffleMessage")
  [13:42:16.989]                       muffled <- TRUE
  [13:42:16.989]                     }
  [13:42:16.989]                     else if (inherits(cond, "warning")) {
  [13:42:16.989]                       invokeRestart("muffleWarning")
  [13:42:16.989]                       muffled <- TRUE
  [13:42:16.989]                     }
  [13:42:16.989]                     else if (inherits(cond, "condition")) {
  [13:42:16.989]                       computeRestarts <- base::computeRestarts
  [13:42:16.989]                       grepl <- base::grepl
  [13:42:16.989]                       is.null <- base::is.null
  [13:42:16.989]                       restarts <- computeRestarts(cond)
  [13:42:16.989]                       for (restart in restarts) {
  [13:42:16.989]                         name <- restart$name
  [13:42:16.989]                         if (is.null(name)) 
  [13:42:16.989]                           next
  [13:42:16.989]                         if (!grepl("^muffle", name)) 
  [13:42:16.989]                           next
  [13:42:16.989]                         invokeRestart(restart)
  [13:42:16.989]                         muffled <- TRUE
  [13:42:16.989]                         break
  [13:42:16.989]                       }
  [13:42:16.989]                     }
  [13:42:16.989]                     invisible(muffled)
  [13:42:16.989]                   }
  [13:42:16.989]                   muffleCondition(cond)
  [13:42:16.989]                 })
  [13:42:16.989]             }))
  [13:42:16.989]             future::FutureResult(value = ...future.value$value, 
  [13:42:16.989]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:16.989]                   ...future.rng), started = ...future.startTime, 
  [13:42:16.989]                 version = "1.8")
  [13:42:16.989]         }, condition = base::local({
  [13:42:16.989]             c <- base::c
  [13:42:16.989]             inherits <- base::inherits
  [13:42:16.989]             invokeRestart <- base::invokeRestart
  [13:42:16.989]             length <- base::length
  [13:42:16.989]             list <- base::list
  [13:42:16.989]             seq.int <- base::seq.int
  [13:42:16.989]             signalCondition <- base::signalCondition
  [13:42:16.989]             sys.calls <- base::sys.calls
  [13:42:16.989]             Sys.time <- base::Sys.time
  [13:42:16.989]             `[[` <- base::`[[`
  [13:42:16.989]             `+` <- base::`+`
  [13:42:16.989]             `<<-` <- base::`<<-`
  [13:42:16.989]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:16.989]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:16.989]                   3L)]
  [13:42:16.989]             }
  [13:42:16.989]             function(cond) {
  [13:42:16.989]                 if (inherits(cond, "error")) {
  [13:42:16.989]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:16.989]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:16.989]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:16.989]                   signalCondition(cond)
  [13:42:16.989]                 }
  [13:42:16.989]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:16.989]                 ))) {
  [13:42:16.989]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:16.989]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:16.989]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:16.989]                   if (!signal) {
  [13:42:16.989]                     muffleCondition <- function (cond) 
  [13:42:16.989]                     {
  [13:42:16.989]                       inherits <- base::inherits
  [13:42:16.989]                       invokeRestart <- base::invokeRestart
  [13:42:16.989]                       muffled <- FALSE
  [13:42:16.989]                       if (inherits(cond, "message")) {
  [13:42:16.989]                         invokeRestart("muffleMessage")
  [13:42:16.989]                         muffled <- TRUE
  [13:42:16.989]                       }
  [13:42:16.989]                       else if (inherits(cond, "warning")) {
  [13:42:16.989]                         invokeRestart("muffleWarning")
  [13:42:16.989]                         muffled <- TRUE
  [13:42:16.989]                       }
  [13:42:16.989]                       else if (inherits(cond, "condition")) {
  [13:42:16.989]                         computeRestarts <- base::computeRestarts
  [13:42:16.989]                         grepl <- base::grepl
  [13:42:16.989]                         is.null <- base::is.null
  [13:42:16.989]                         restarts <- computeRestarts(cond)
  [13:42:16.989]                         for (restart in restarts) {
  [13:42:16.989]                           name <- restart$name
  [13:42:16.989]                           if (is.null(name)) 
  [13:42:16.989]                             next
  [13:42:16.989]                           if (!grepl("^muffle", name)) 
  [13:42:16.989]                             next
  [13:42:16.989]                           invokeRestart(restart)
  [13:42:16.989]                           muffled <- TRUE
  [13:42:16.989]                           break
  [13:42:16.989]                         }
  [13:42:16.989]                       }
  [13:42:16.989]                       invisible(muffled)
  [13:42:16.989]                     }
  [13:42:16.989]                     muffleCondition(cond)
  [13:42:16.989]                   }
  [13:42:16.989]                 }
  [13:42:16.989]             }
  [13:42:16.989]         }))
  [13:42:16.989]     }, error = function(ex) {
  [13:42:16.989]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:16.989]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:16.989]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:16.989]     }, finally = {
  [13:42:16.989]         {
  [13:42:16.989]             {
  [13:42:16.989]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:16.989]             }
  [13:42:16.989]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:16.989]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:16.989]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:16.989]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:16.989]                 ...) 
  [13:42:16.989]             {
  [13:42:16.989]                 if (substitute) 
  [13:42:16.989]                   expr <- substitute(expr)
  [13:42:16.989]                 if (is.function(workers)) 
  [13:42:16.989]                   workers <- workers()
  [13:42:16.989]                 workers <- as.integer(workers)
  [13:42:16.989]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:16.989]                   workers >= 1)
  [13:42:16.989]                 if (workers == 1L) {
  [13:42:16.989]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.989]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:16.989]                     local = TRUE, label = label, ...))
  [13:42:16.989]                 }
  [13:42:16.989]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:16.989]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:16.989]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.989]                   globals = globals, persistent = persistent, 
  [13:42:16.989]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:16.989]                   label = label, ...)
  [13:42:16.989]                 if (!future$lazy) 
  [13:42:16.989]                   future <- run(future)
  [13:42:16.989]                 invisible(future)
  [13:42:16.989]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:16.989]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:16.989]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:16.989]             {
  [13:42:16.989]                 if (substitute) 
  [13:42:16.989]                   expr <- substitute(expr)
  [13:42:16.989]                 if (is.function(workers)) 
  [13:42:16.989]                   workers <- workers()
  [13:42:16.989]                 workers <- as.integer(workers)
  [13:42:16.989]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:16.989]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:16.989]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:16.989]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:16.989]                     local = TRUE, label = label, ...))
  [13:42:16.989]                 }
  [13:42:16.989]                 oopts <- options(mc.cores = workers)
  [13:42:16.989]                 on.exit(options(oopts))
  [13:42:16.989]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:16.989]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:16.989]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:16.989]                   label = label, ...)
  [13:42:16.989]                 if (!future$lazy) 
  [13:42:16.989]                   future <- run(future)
  [13:42:16.989]                 invisible(future)
  [13:42:16.989]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:16.989]         }
  [13:42:16.989]         base::options(...future.oldOptions)
  [13:42:16.989]     })
  [13:42:16.989]     Sys.time
  [13:42:16.989]     if (base::is.na(TRUE)) {
  [13:42:16.989]     }
  [13:42:16.989]     else {
  [13:42:16.989]         base::sink(type = "output", split = FALSE)
  [13:42:16.989]         if (TRUE) {
  [13:42:16.989]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:16.989]         }
  [13:42:16.989]         else {
  [13:42:16.989]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:16.989]         }
  [13:42:16.989]         base::close(...future.stdout)
  [13:42:16.989]         ...future.stdout <- NULL
  [13:42:16.989]     }
  [13:42:16.989]     ...future.result$conditions <- ...future.conditions
  [13:42:16.989]     ...future.result
  [13:42:16.989] }
  [13:42:17.003] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:42:17.004] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:42:17.005] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:42:17.005] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:42:17.007] MultisessionFuture started
  [13:42:17.007] Chunk #1 of 2 ... DONE
  [13:42:17.008] Chunk #2 of 2 ...
  [13:42:17.008]  - Finding globals in 'args_list' chunk #2 ...
  [13:42:17.008] getGlobalsAndPackages() ...
  [13:42:17.008] Searching for globals...
  [13:42:17.010] 
  [13:42:17.010] Searching for globals ... DONE
  [13:42:17.010] - globals: [0] <none>
  [13:42:17.011] getGlobalsAndPackages() ... DONE
  [13:42:17.011] 
  [13:42:17.011] 
  [13:42:17.012]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:42:17.019] getGlobalsAndPackages() ...
  [13:42:17.020] - globals passed as-is: [1] '...future.x_ii'
  [13:42:17.020] Resolving globals: FALSE
  [13:42:17.021] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:17.022] - globals: [1] '...future.x_ii'
  [13:42:17.022] 
  [13:42:17.022] getGlobalsAndPackages() ... DONE
  [13:42:17.027] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:17.027] Packages needed by future strategies (n = 1): 'future'
  [13:42:17.034] {
  [13:42:17.034]     {
  [13:42:17.034]         ...future.startTime <- base::Sys.time()
  [13:42:17.034]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:17.034]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:17.034]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:17.034]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:17.034]             future.resolve.recursive = NULL, width = 80L)
  [13:42:17.034]         {
  [13:42:17.034]             {
  [13:42:17.034]                 {
  [13:42:17.034]                   {
  [13:42:17.034]                     has_future <- base::requireNamespace("future", 
  [13:42:17.034]                       quietly = TRUE)
  [13:42:17.034]                     version <- if (has_future) 
  [13:42:17.034]                       utils::packageVersion("future")
  [13:42:17.034]                     else NULL
  [13:42:17.034]                     if (!has_future || version < "1.8.0") {
  [13:42:17.034]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:17.034]                         "", base::R.version$version.string), 
  [13:42:17.034]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:17.034]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:17.034]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:17.034]                           "release", "version")], collapse = " "), 
  [13:42:17.034]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:17.034]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:17.034]                         info)
  [13:42:17.034]                       info <- base::paste(info, collapse = "; ")
  [13:42:17.034]                       if (!has_future) {
  [13:42:17.034]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:17.034]                           info)
  [13:42:17.034]                       }
  [13:42:17.034]                       else {
  [13:42:17.034]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:17.034]                           info, version)
  [13:42:17.034]                       }
  [13:42:17.034]                       base::stop(msg)
  [13:42:17.034]                     }
  [13:42:17.034]                   }
  [13:42:17.034]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:17.034]                   base::options(mc.cores = 1L)
  [13:42:17.034]                 }
  [13:42:17.034]                 base::local({
  [13:42:17.034]                   for (pkg in c("doFuture", "future")) {
  [13:42:17.034]                     base::loadNamespace(pkg)
  [13:42:17.034]                     base::library(pkg, character.only = TRUE)
  [13:42:17.034]                   }
  [13:42:17.034]                 })
  [13:42:17.034]             }
  [13:42:17.034]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:17.034]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:17.034]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:17.034]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:17.034]             {
  [13:42:17.034]                 if (substitute) 
  [13:42:17.034]                   expr <- substitute(expr)
  [13:42:17.034]                 if (is.function(workers)) 
  [13:42:17.034]                   workers <- workers()
  [13:42:17.034]                 workers <- as.integer(workers)
  [13:42:17.034]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:17.034]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:17.034]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:17.034]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:17.034]                     local = TRUE, label = label, ...))
  [13:42:17.034]                 }
  [13:42:17.034]                 oopts <- options(mc.cores = workers)
  [13:42:17.034]                 on.exit(options(oopts))
  [13:42:17.034]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:17.034]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:17.034]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:17.034]                   label = label, ...)
  [13:42:17.034]                 if (!future$lazy) 
  [13:42:17.034]                   future <- run(future)
  [13:42:17.034]                 invisible(future)
  [13:42:17.034]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:17.034]         }
  [13:42:17.034]     }
  [13:42:17.034]     if (base::is.na(TRUE)) {
  [13:42:17.034]     }
  [13:42:17.034]     else {
  [13:42:17.034]         if (TRUE) {
  [13:42:17.034]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:17.034]                 open = "w")
  [13:42:17.034]         }
  [13:42:17.034]         else {
  [13:42:17.034]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:17.034]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:17.034]         }
  [13:42:17.034]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:17.034]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:17.034]             base::sink(type = "output", split = FALSE)
  [13:42:17.034]             base::close(...future.stdout)
  [13:42:17.034]         }, add = TRUE)
  [13:42:17.034]     }
  [13:42:17.034]     ...future.frame <- base::sys.nframe()
  [13:42:17.034]     ...future.conditions <- base::list()
  [13:42:17.034]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:17.034]     ...future.result <- base::tryCatch({
  [13:42:17.034]         base::withCallingHandlers({
  [13:42:17.034]             ...future.value <- base::withVisible(base::local({
  [13:42:17.034]                 ...future.sendCondition <- local({
  [13:42:17.034]                   sendCondition <- NULL
  [13:42:17.034]                   function(frame = 1L) {
  [13:42:17.034]                     if (is.function(sendCondition)) 
  [13:42:17.034]                       return(sendCondition)
  [13:42:17.034]                     ns <- getNamespace("parallel")
  [13:42:17.034]                     if (exists("sendData", mode = "function", 
  [13:42:17.034]                       envir = ns)) {
  [13:42:17.034]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:17.034]                         envir = ns)
  [13:42:17.034]                       envir <- sys.frame(frame)
  [13:42:17.034]                       master <- NULL
  [13:42:17.034]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:17.034]                         !identical(envir, emptyenv())) {
  [13:42:17.034]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:17.034]                           inherits = FALSE)) {
  [13:42:17.034]                           master <- get("master", mode = "list", 
  [13:42:17.034]                             envir = envir, inherits = FALSE)
  [13:42:17.034]                           if (inherits(master, "SOCKnode")) {
  [13:42:17.034]                             sendCondition <<- function(cond) {
  [13:42:17.034]                               data <- list(type = "VALUE", value = cond, 
  [13:42:17.034]                                 success = TRUE)
  [13:42:17.034]                               parallel_sendData(master, data)
  [13:42:17.034]                             }
  [13:42:17.034]                             return(sendCondition)
  [13:42:17.034]                           }
  [13:42:17.034]                         }
  [13:42:17.034]                         frame <- frame + 1L
  [13:42:17.034]                         envir <- sys.frame(frame)
  [13:42:17.034]                       }
  [13:42:17.034]                     }
  [13:42:17.034]                     sendCondition <<- function(cond) NULL
  [13:42:17.034]                   }
  [13:42:17.034]                 })
  [13:42:17.034]                 withCallingHandlers({
  [13:42:17.034]                   {
  [13:42:17.034]                     doFuture::registerDoFuture()
  [13:42:17.034]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:17.034]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:17.034]                       {
  [13:42:17.034]                         a <- NULL
  [13:42:17.034]                         b <- NULL
  [13:42:17.034]                       }
  [13:42:17.034]                       ...future.env <- environment()
  [13:42:17.034]                       local({
  [13:42:17.034]                         for (name in names(...future.x_jj)) {
  [13:42:17.034]                           assign(name, ...future.x_jj[[name]], 
  [13:42:17.034]                             envir = ...future.env, inherits = FALSE)
  [13:42:17.034]                         }
  [13:42:17.034]                       })
  [13:42:17.034]                       tryCatch({
  [13:42:17.034]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:17.034]                           plan = future::plan("next"))
  [13:42:17.034]                       }, error = identity)
  [13:42:17.034]                     })
  [13:42:17.034]                   }
  [13:42:17.034]                 }, immediateCondition = function(cond) {
  [13:42:17.034]                   sendCondition <- ...future.sendCondition()
  [13:42:17.034]                   sendCondition(cond)
  [13:42:17.034]                   muffleCondition <- function (cond) 
  [13:42:17.034]                   {
  [13:42:17.034]                     inherits <- base::inherits
  [13:42:17.034]                     invokeRestart <- base::invokeRestart
  [13:42:17.034]                     muffled <- FALSE
  [13:42:17.034]                     if (inherits(cond, "message")) {
  [13:42:17.034]                       invokeRestart("muffleMessage")
  [13:42:17.034]                       muffled <- TRUE
  [13:42:17.034]                     }
  [13:42:17.034]                     else if (inherits(cond, "warning")) {
  [13:42:17.034]                       invokeRestart("muffleWarning")
  [13:42:17.034]                       muffled <- TRUE
  [13:42:17.034]                     }
  [13:42:17.034]                     else if (inherits(cond, "condition")) {
  [13:42:17.034]                       computeRestarts <- base::computeRestarts
  [13:42:17.034]                       grepl <- base::grepl
  [13:42:17.034]                       is.null <- base::is.null
  [13:42:17.034]                       restarts <- computeRestarts(cond)
  [13:42:17.034]                       for (restart in restarts) {
  [13:42:17.034]                         name <- restart$name
  [13:42:17.034]                         if (is.null(name)) 
  [13:42:17.034]                           next
  [13:42:17.034]                         if (!grepl("^muffle", name)) 
  [13:42:17.034]                           next
  [13:42:17.034]                         invokeRestart(restart)
  [13:42:17.034]                         muffled <- TRUE
  [13:42:17.034]                         break
  [13:42:17.034]                       }
  [13:42:17.034]                     }
  [13:42:17.034]                     invisible(muffled)
  [13:42:17.034]                   }
  [13:42:17.034]                   muffleCondition(cond)
  [13:42:17.034]                 })
  [13:42:17.034]             }))
  [13:42:17.034]             future::FutureResult(value = ...future.value$value, 
  [13:42:17.034]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:17.034]                   ...future.rng), started = ...future.startTime, 
  [13:42:17.034]                 version = "1.8")
  [13:42:17.034]         }, condition = base::local({
  [13:42:17.034]             c <- base::c
  [13:42:17.034]             inherits <- base::inherits
  [13:42:17.034]             invokeRestart <- base::invokeRestart
  [13:42:17.034]             length <- base::length
  [13:42:17.034]             list <- base::list
  [13:42:17.034]             seq.int <- base::seq.int
  [13:42:17.034]             signalCondition <- base::signalCondition
  [13:42:17.034]             sys.calls <- base::sys.calls
  [13:42:17.034]             Sys.time <- base::Sys.time
  [13:42:17.034]             `[[` <- base::`[[`
  [13:42:17.034]             `+` <- base::`+`
  [13:42:17.034]             `<<-` <- base::`<<-`
  [13:42:17.034]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:17.034]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:17.034]                   3L)]
  [13:42:17.034]             }
  [13:42:17.034]             function(cond) {
  [13:42:17.034]                 if (inherits(cond, "error")) {
  [13:42:17.034]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:17.034]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:17.034]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:17.034]                   signalCondition(cond)
  [13:42:17.034]                 }
  [13:42:17.034]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:17.034]                 ))) {
  [13:42:17.034]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:17.034]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:17.034]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:17.034]                   if (!signal) {
  [13:42:17.034]                     muffleCondition <- function (cond) 
  [13:42:17.034]                     {
  [13:42:17.034]                       inherits <- base::inherits
  [13:42:17.034]                       invokeRestart <- base::invokeRestart
  [13:42:17.034]                       muffled <- FALSE
  [13:42:17.034]                       if (inherits(cond, "message")) {
  [13:42:17.034]                         invokeRestart("muffleMessage")
  [13:42:17.034]                         muffled <- TRUE
  [13:42:17.034]                       }
  [13:42:17.034]                       else if (inherits(cond, "warning")) {
  [13:42:17.034]                         invokeRestart("muffleWarning")
  [13:42:17.034]                         muffled <- TRUE
  [13:42:17.034]                       }
  [13:42:17.034]                       else if (inherits(cond, "condition")) {
  [13:42:17.034]                         computeRestarts <- base::computeRestarts
  [13:42:17.034]                         grepl <- base::grepl
  [13:42:17.034]                         is.null <- base::is.null
  [13:42:17.034]                         restarts <- computeRestarts(cond)
  [13:42:17.034]                         for (restart in restarts) {
  [13:42:17.034]                           name <- restart$name
  [13:42:17.034]                           if (is.null(name)) 
  [13:42:17.034]                             next
  [13:42:17.034]                           if (!grepl("^muffle", name)) 
  [13:42:17.034]                             next
  [13:42:17.034]                           invokeRestart(restart)
  [13:42:17.034]                           muffled <- TRUE
  [13:42:17.034]                           break
  [13:42:17.034]                         }
  [13:42:17.034]                       }
  [13:42:17.034]                       invisible(muffled)
  [13:42:17.034]                     }
  [13:42:17.034]                     muffleCondition(cond)
  [13:42:17.034]                   }
  [13:42:17.034]                 }
  [13:42:17.034]             }
  [13:42:17.034]         }))
  [13:42:17.034]     }, error = function(ex) {
  [13:42:17.034]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:17.034]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:17.034]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:17.034]     }, finally = {
  [13:42:17.034]         {
  [13:42:17.034]             {
  [13:42:17.034]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:17.034]             }
  [13:42:17.034]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:17.034]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:17.034]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:17.034]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:17.034]                 ...) 
  [13:42:17.034]             {
  [13:42:17.034]                 if (substitute) 
  [13:42:17.034]                   expr <- substitute(expr)
  [13:42:17.034]                 if (is.function(workers)) 
  [13:42:17.034]                   workers <- workers()
  [13:42:17.034]                 workers <- as.integer(workers)
  [13:42:17.034]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:17.034]                   workers >= 1)
  [13:42:17.034]                 if (workers == 1L) {
  [13:42:17.034]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:17.034]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:17.034]                     local = TRUE, label = label, ...))
  [13:42:17.034]                 }
  [13:42:17.034]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:17.034]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:17.034]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:17.034]                   globals = globals, persistent = persistent, 
  [13:42:17.034]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:17.034]                   label = label, ...)
  [13:42:17.034]                 if (!future$lazy) 
  [13:42:17.034]                   future <- run(future)
  [13:42:17.034]                 invisible(future)
  [13:42:17.034]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:17.034]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:42:17.034]                 earlySignal = FALSE, label = NULL, ...) 
  [13:42:17.034]             {
  [13:42:17.034]                 if (substitute) 
  [13:42:17.034]                   expr <- substitute(expr)
  [13:42:17.034]                 if (is.function(workers)) 
  [13:42:17.034]                   workers <- workers()
  [13:42:17.034]                 workers <- as.integer(workers)
  [13:42:17.034]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:42:17.034]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:42:17.034]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:17.034]                     lazy = lazy, seed = seed, globals = globals, 
  [13:42:17.034]                     local = TRUE, label = label, ...))
  [13:42:17.034]                 }
  [13:42:17.034]                 oopts <- options(mc.cores = workers)
  [13:42:17.034]                 on.exit(options(oopts))
  [13:42:17.034]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:42:17.034]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:17.034]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:42:17.034]                   label = label, ...)
  [13:42:17.034]                 if (!future$lazy) 
  [13:42:17.034]                   future <- run(future)
  [13:42:17.034]                 invisible(future)
  [13:42:17.034]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:17.034]         }
  [13:42:17.034]         base::options(...future.oldOptions)
  [13:42:17.034]     })
  [13:42:17.034]     Sys.time
  [13:42:17.034]     if (base::is.na(TRUE)) {
  [13:42:17.034]     }
  [13:42:17.034]     else {
  [13:42:17.034]         base::sink(type = "output", split = FALSE)
  [13:42:17.034]         if (TRUE) {
  [13:42:17.034]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:17.034]         }
  [13:42:17.034]         else {
  [13:42:17.034]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:17.034]         }
  [13:42:17.034]         base::close(...future.stdout)
  [13:42:17.034]         ...future.stdout <- NULL
  [13:42:17.034]     }
  [13:42:17.034]     ...future.result$conditions <- ...future.conditions
  [13:42:17.034]     ...future.result
  [13:42:17.034] }
  [13:42:17.043] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:42:17.044] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:42:17.045] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:42:17.046] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:42:17.054] MultisessionFuture started
  [13:42:17.054] Chunk #2 of 2 ... DONE
  [13:42:17.055] Launching 2 futures (chunks) ... DONE
  [13:42:17.055] - resolving futures
  [13:42:17.055]   - gathering results & relaying conditions (except errors)
  [13:42:17.056] resolve() on list ...
  [13:42:17.056]  recursive: 0
  [13:42:17.056]  length: 2
  [13:42:17.056] 
  [13:42:17.373] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:17.374] - Validating connection of MultisessionFuture
  [13:42:17.419] - received message: FutureResult
  [13:42:17.420] - Received FutureResult
  [13:42:17.420] - Erased future from FutureRegistry
  [13:42:17.421] result() for ClusterFuture ...
  [13:42:17.421] - result already collected: FutureResult
  [13:42:17.421] result() for ClusterFuture ... done
  [13:42:17.422] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:17.422] Future #2
  [13:42:17.423] result() for ClusterFuture ...
  [13:42:17.423] - result already collected: FutureResult
  [13:42:17.423] result() for ClusterFuture ... done
  [13:42:17.424] result() for ClusterFuture ...
  [13:42:17.424] - result already collected: FutureResult
  [13:42:17.424] result() for ClusterFuture ... done
  [13:42:17.425] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:42:17.425] - nx: 2
  [13:42:17.425] - relay: TRUE
  [13:42:17.426] - stdout: TRUE
  [13:42:17.426] - signal: TRUE
  [13:42:17.426] - resignal: FALSE
  [13:42:17.427] - force: FALSE
  [13:42:17.427] - relayed: [n=2] FALSE, FALSE
  [13:42:17.427] - queued futures: [n=2] FALSE, FALSE
  [13:42:17.428]  - until=1
  [13:42:17.428]  - relaying element #1
  [13:42:17.428] - relayed: [n=2] FALSE, FALSE
  [13:42:17.429] - queued futures: [n=2] FALSE, TRUE
  [13:42:17.429] signalConditionsASAP(NULL, pos=2) ... done
  [13:42:17.429]  length: 1 (resolved future 2)
  [13:42:17.532] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:17.532] - Validating connection of MultisessionFuture
  [13:42:17.534] - received message: FutureResult
  [13:42:17.534] - Received FutureResult
  [13:42:17.534] - Erased future from FutureRegistry
  [13:42:17.535] result() for ClusterFuture ...
  [13:42:17.535] - result already collected: FutureResult
  [13:42:17.536] result() for ClusterFuture ... done
  [13:42:17.536] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:17.536] Future #1
  [13:42:17.537] result() for ClusterFuture ...
  [13:42:17.537] - result already collected: FutureResult
  [13:42:17.537] result() for ClusterFuture ... done
  [13:42:17.538] result() for ClusterFuture ...
  [13:42:17.538] - result already collected: FutureResult
  [13:42:17.538] result() for ClusterFuture ... done
  [13:42:17.539] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:42:17.539] - nx: 2
  [13:42:17.539] - relay: TRUE
  [13:42:17.540] - stdout: TRUE
  [13:42:17.540] - signal: TRUE
  [13:42:17.540] - resignal: FALSE
  [13:42:17.541] - force: FALSE
  [13:42:17.541] - relayed: [n=2] FALSE, FALSE
  [13:42:17.541] - queued futures: [n=2] FALSE, TRUE
  [13:42:17.542]  - until=1
  [13:42:17.542]  - relaying element #1
  [13:42:17.542] result() for ClusterFuture ...
  [13:42:17.559] - result already collected: FutureResult
  [13:42:17.559] result() for ClusterFuture ... done
  [13:42:17.560] result() for ClusterFuture ...
  [13:42:17.560] - result already collected: FutureResult
  [13:42:17.560] result() for ClusterFuture ... done
  [13:42:17.561] result() for ClusterFuture ...
  [13:42:17.561] - result already collected: FutureResult
  [13:42:17.561] result() for ClusterFuture ... done
  [13:42:17.562] result() for ClusterFuture ...
  [13:42:17.562] - result already collected: FutureResult
  [13:42:17.562] result() for ClusterFuture ... done
  [13:42:17.563] - relayed: [n=2] TRUE, FALSE
  [13:42:17.563] - queued futures: [n=2] TRUE, TRUE
  [13:42:17.564] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:42:17.564]  length: 0 (resolved future 1)
  [13:42:17.564] Relaying remaining futures
  [13:42:17.565] signalConditionsASAP(NULL, pos=0) ...
  [13:42:17.565] - nx: 2
  [13:42:17.565] - relay: TRUE
  [13:42:17.565] - stdout: TRUE
  [13:42:17.572] - signal: TRUE
  [13:42:17.573] - resignal: FALSE
  [13:42:17.573] - force: FALSE
  [13:42:17.573] - relayed: [n=2] TRUE, FALSE
  [13:42:17.574] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:42:17.574]  - relaying element #2
  [13:42:17.575] result() for ClusterFuture ...
  [13:42:17.575] - result already collected: FutureResult
  [13:42:17.575] result() for ClusterFuture ... done
  [13:42:17.576] result() for ClusterFuture ...
  [13:42:17.576] - result already collected: FutureResult
  [13:42:17.577] result() for ClusterFuture ... done
  [13:42:17.577] result() for ClusterFuture ...
  [13:42:17.578] - result already collected: FutureResult
  [13:42:17.578] result() for ClusterFuture ... done
  [13:42:17.578] result() for ClusterFuture ...
  [13:42:17.579] - result already collected: FutureResult
  [13:42:17.579] result() for ClusterFuture ... done
  [13:42:17.579] - relayed: [n=2] TRUE, TRUE
  [13:42:17.580] - queued futures: [n=2] TRUE, TRUE
  [13:42:17.580] signalConditionsASAP(MultisessionFuture, pos=0) ... done
  [13:42:17.580] resolve() on list ... DONE
  [13:42:17.581] - collecting values of futures
  [13:42:17.581] result() for ClusterFuture ...
  [13:42:17.582] - result already collected: FutureResult
  [13:42:17.582] result() for ClusterFuture ... done
  [13:42:17.582] result() for ClusterFuture ...
  [13:42:17.583] - result already collected: FutureResult
  [13:42:17.583] result() for ClusterFuture ... done
  [13:42:17.584] result() for ClusterFuture ...
  [13:42:17.584] - result already collected: FutureResult
  [13:42:17.584] result() for ClusterFuture ... done
  [13:42:17.585] result() for ClusterFuture ...
  [13:42:17.585] - result already collected: FutureResult
  [13:42:17.585] result() for ClusterFuture ... done
  [13:42:17.586] - accumulating results
  [13:42:17.605] - processing errors (handler = 'stop')
  [13:42:17.605] - extracting results
  [13:42:17.606] doFuture() ... DONE
  - plan(list('multisession', 'multicore')) ... DONE
  - plan(list('multisession', 'multisession')) ...
  [13:42:17.607] plan(): Setting new future strategy stack:
  [13:42:17.607] List of future strategies:
  [13:42:17.607] 1. multisession:
  [13:42:17.607]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:17.607]    - tweaked: FALSE
  [13:42:17.607]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:17.607] 2. multisession:
  [13:42:17.607]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:17.607]    - tweaked: FALSE
  [13:42:17.607]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:17.623] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:42:17.623] multisession:
  [13:42:17.623] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:17.623] - tweaked: FALSE
  [13:42:17.623] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 24346
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac75641bff.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac75641bff.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac75641bff.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24346 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6a80f0cb.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac6a80f0cb.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac6a80f0cb.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=24346 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
  [13:42:34.237] getGlobalsAndPackages() ...
  [13:42:34.238] Not searching for globals
  [13:42:34.238] - globals: [0] <none>
  [13:42:34.238] getGlobalsAndPackages() ... DONE
  [13:42:34.245] Packages needed by the future expression (n = 0): <none>
  [13:42:34.246] Packages needed by future strategies (n = 1): 'future'
  [13:42:34.252] {
  [13:42:34.252]     {
  [13:42:34.252]         ...future.startTime <- base::Sys.time()
  [13:42:34.252]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:34.252]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:34.252]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:34.252]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:34.252]             future.resolve.recursive = NULL, width = 80L)
  [13:42:34.252]         {
  [13:42:34.252]             {
  [13:42:34.252]                 {
  [13:42:34.252]                   {
  [13:42:34.252]                     has_future <- base::requireNamespace("future", 
  [13:42:34.252]                       quietly = TRUE)
  [13:42:34.252]                     version <- if (has_future) 
  [13:42:34.252]                       utils::packageVersion("future")
  [13:42:34.252]                     else NULL
  [13:42:34.252]                     if (!has_future || version < "1.8.0") {
  [13:42:34.252]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:34.252]                         "", base::R.version$version.string), 
  [13:42:34.252]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:34.252]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:34.252]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:34.252]                           "release", "version")], collapse = " "), 
  [13:42:34.252]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:34.252]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:34.252]                         info)
  [13:42:34.252]                       info <- base::paste(info, collapse = "; ")
  [13:42:34.252]                       if (!has_future) {
  [13:42:34.252]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:34.252]                           info)
  [13:42:34.252]                       }
  [13:42:34.252]                       else {
  [13:42:34.252]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:34.252]                           info, version)
  [13:42:34.252]                       }
  [13:42:34.252]                       base::stop(msg)
  [13:42:34.252]                     }
  [13:42:34.252]                   }
  [13:42:34.252]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:34.252]                   base::options(mc.cores = 1L)
  [13:42:34.252]                 }
  [13:42:34.252]                 base::local({
  [13:42:34.252]                   for (pkg in "future") {
  [13:42:34.252]                     base::loadNamespace(pkg)
  [13:42:34.252]                     base::library(pkg, character.only = TRUE)
  [13:42:34.252]                   }
  [13:42:34.252]                 })
  [13:42:34.252]             }
  [13:42:34.252]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:34.252]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.252]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.252]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.252]                 ...) 
  [13:42:34.252]             {
  [13:42:34.252]                 if (substitute) 
  [13:42:34.252]                   expr <- substitute(expr)
  [13:42:34.252]                 if (is.function(workers)) 
  [13:42:34.252]                   workers <- workers()
  [13:42:34.252]                 workers <- as.integer(workers)
  [13:42:34.252]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.252]                   workers >= 1)
  [13:42:34.252]                 if (workers == 1L) {
  [13:42:34.252]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.252]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.252]                     local = TRUE, label = label, ...))
  [13:42:34.252]                 }
  [13:42:34.252]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.252]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.252]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.252]                   globals = globals, persistent = persistent, 
  [13:42:34.252]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.252]                   label = label, ...)
  [13:42:34.252]                 if (!future$lazy) 
  [13:42:34.252]                   future <- run(future)
  [13:42:34.252]                 invisible(future)
  [13:42:34.252]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.252]         }
  [13:42:34.252]     }
  [13:42:34.252]     if (base::is.na(TRUE)) {
  [13:42:34.252]     }
  [13:42:34.252]     else {
  [13:42:34.252]         if (TRUE) {
  [13:42:34.252]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:34.252]                 open = "w")
  [13:42:34.252]         }
  [13:42:34.252]         else {
  [13:42:34.252]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:34.252]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:34.252]         }
  [13:42:34.252]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:34.252]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:34.252]             base::sink(type = "output", split = FALSE)
  [13:42:34.252]             base::close(...future.stdout)
  [13:42:34.252]         }, add = TRUE)
  [13:42:34.252]     }
  [13:42:34.252]     ...future.frame <- base::sys.nframe()
  [13:42:34.252]     ...future.conditions <- base::list()
  [13:42:34.252]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:34.252]     ...future.result <- base::tryCatch({
  [13:42:34.252]         base::withCallingHandlers({
  [13:42:34.252]             ...future.value <- base::withVisible(base::local({
  [13:42:34.252]                 ...future.sendCondition <- local({
  [13:42:34.252]                   sendCondition <- NULL
  [13:42:34.252]                   function(frame = 1L) {
  [13:42:34.252]                     if (is.function(sendCondition)) 
  [13:42:34.252]                       return(sendCondition)
  [13:42:34.252]                     ns <- getNamespace("parallel")
  [13:42:34.252]                     if (exists("sendData", mode = "function", 
  [13:42:34.252]                       envir = ns)) {
  [13:42:34.252]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:34.252]                         envir = ns)
  [13:42:34.252]                       envir <- sys.frame(frame)
  [13:42:34.252]                       master <- NULL
  [13:42:34.252]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:34.252]                         !identical(envir, emptyenv())) {
  [13:42:34.252]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:34.252]                           inherits = FALSE)) {
  [13:42:34.252]                           master <- get("master", mode = "list", 
  [13:42:34.252]                             envir = envir, inherits = FALSE)
  [13:42:34.252]                           if (inherits(master, "SOCKnode")) {
  [13:42:34.252]                             sendCondition <<- function(cond) {
  [13:42:34.252]                               data <- list(type = "VALUE", value = cond, 
  [13:42:34.252]                                 success = TRUE)
  [13:42:34.252]                               parallel_sendData(master, data)
  [13:42:34.252]                             }
  [13:42:34.252]                             return(sendCondition)
  [13:42:34.252]                           }
  [13:42:34.252]                         }
  [13:42:34.252]                         frame <- frame + 1L
  [13:42:34.252]                         envir <- sys.frame(frame)
  [13:42:34.252]                       }
  [13:42:34.252]                     }
  [13:42:34.252]                     sendCondition <<- function(cond) NULL
  [13:42:34.252]                   }
  [13:42:34.252]                 })
  [13:42:34.252]                 withCallingHandlers({
  [13:42:34.252]                   NA
  [13:42:34.252]                 }, immediateCondition = function(cond) {
  [13:42:34.252]                   sendCondition <- ...future.sendCondition()
  [13:42:34.252]                   sendCondition(cond)
  [13:42:34.252]                   muffleCondition <- function (cond) 
  [13:42:34.252]                   {
  [13:42:34.252]                     inherits <- base::inherits
  [13:42:34.252]                     invokeRestart <- base::invokeRestart
  [13:42:34.252]                     muffled <- FALSE
  [13:42:34.252]                     if (inherits(cond, "message")) {
  [13:42:34.252]                       invokeRestart("muffleMessage")
  [13:42:34.252]                       muffled <- TRUE
  [13:42:34.252]                     }
  [13:42:34.252]                     else if (inherits(cond, "warning")) {
  [13:42:34.252]                       invokeRestart("muffleWarning")
  [13:42:34.252]                       muffled <- TRUE
  [13:42:34.252]                     }
  [13:42:34.252]                     else if (inherits(cond, "condition")) {
  [13:42:34.252]                       computeRestarts <- base::computeRestarts
  [13:42:34.252]                       grepl <- base::grepl
  [13:42:34.252]                       is.null <- base::is.null
  [13:42:34.252]                       restarts <- computeRestarts(cond)
  [13:42:34.252]                       for (restart in restarts) {
  [13:42:34.252]                         name <- restart$name
  [13:42:34.252]                         if (is.null(name)) 
  [13:42:34.252]                           next
  [13:42:34.252]                         if (!grepl("^muffle", name)) 
  [13:42:34.252]                           next
  [13:42:34.252]                         invokeRestart(restart)
  [13:42:34.252]                         muffled <- TRUE
  [13:42:34.252]                         break
  [13:42:34.252]                       }
  [13:42:34.252]                     }
  [13:42:34.252]                     invisible(muffled)
  [13:42:34.252]                   }
  [13:42:34.252]                   muffleCondition(cond)
  [13:42:34.252]                 })
  [13:42:34.252]             }))
  [13:42:34.252]             future::FutureResult(value = ...future.value$value, 
  [13:42:34.252]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.252]                   ...future.rng), started = ...future.startTime, 
  [13:42:34.252]                 version = "1.8")
  [13:42:34.252]         }, condition = base::local({
  [13:42:34.252]             c <- base::c
  [13:42:34.252]             inherits <- base::inherits
  [13:42:34.252]             invokeRestart <- base::invokeRestart
  [13:42:34.252]             length <- base::length
  [13:42:34.252]             list <- base::list
  [13:42:34.252]             seq.int <- base::seq.int
  [13:42:34.252]             signalCondition <- base::signalCondition
  [13:42:34.252]             sys.calls <- base::sys.calls
  [13:42:34.252]             Sys.time <- base::Sys.time
  [13:42:34.252]             `[[` <- base::`[[`
  [13:42:34.252]             `+` <- base::`+`
  [13:42:34.252]             `<<-` <- base::`<<-`
  [13:42:34.252]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:34.252]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:34.252]                   3L)]
  [13:42:34.252]             }
  [13:42:34.252]             function(cond) {
  [13:42:34.252]                 if (inherits(cond, "error")) {
  [13:42:34.252]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.252]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:34.252]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:34.252]                   signalCondition(cond)
  [13:42:34.252]                 }
  [13:42:34.252]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:34.252]                 ))) {
  [13:42:34.252]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:34.252]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.252]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:34.252]                   if (!signal) {
  [13:42:34.252]                     muffleCondition <- function (cond) 
  [13:42:34.252]                     {
  [13:42:34.252]                       inherits <- base::inherits
  [13:42:34.252]                       invokeRestart <- base::invokeRestart
  [13:42:34.252]                       muffled <- FALSE
  [13:42:34.252]                       if (inherits(cond, "message")) {
  [13:42:34.252]                         invokeRestart("muffleMessage")
  [13:42:34.252]                         muffled <- TRUE
  [13:42:34.252]                       }
  [13:42:34.252]                       else if (inherits(cond, "warning")) {
  [13:42:34.252]                         invokeRestart("muffleWarning")
  [13:42:34.252]                         muffled <- TRUE
  [13:42:34.252]                       }
  [13:42:34.252]                       else if (inherits(cond, "condition")) {
  [13:42:34.252]                         computeRestarts <- base::computeRestarts
  [13:42:34.252]                         grepl <- base::grepl
  [13:42:34.252]                         is.null <- base::is.null
  [13:42:34.252]                         restarts <- computeRestarts(cond)
  [13:42:34.252]                         for (restart in restarts) {
  [13:42:34.252]                           name <- restart$name
  [13:42:34.252]                           if (is.null(name)) 
  [13:42:34.252]                             next
  [13:42:34.252]                           if (!grepl("^muffle", name)) 
  [13:42:34.252]                             next
  [13:42:34.252]                           invokeRestart(restart)
  [13:42:34.252]                           muffled <- TRUE
  [13:42:34.252]                           break
  [13:42:34.252]                         }
  [13:42:34.252]                       }
  [13:42:34.252]                       invisible(muffled)
  [13:42:34.252]                     }
  [13:42:34.252]                     muffleCondition(cond)
  [13:42:34.252]                   }
  [13:42:34.252]                 }
  [13:42:34.252]             }
  [13:42:34.252]         }))
  [13:42:34.252]     }, error = function(ex) {
  [13:42:34.252]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:34.252]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.252]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:34.252]     }, finally = {
  [13:42:34.252]         {
  [13:42:34.252]             {
  [13:42:34.252]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:34.252]             }
  [13:42:34.252]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:34.252]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.252]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.252]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.252]                 ...) 
  [13:42:34.252]             {
  [13:42:34.252]                 if (substitute) 
  [13:42:34.252]                   expr <- substitute(expr)
  [13:42:34.252]                 if (is.function(workers)) 
  [13:42:34.252]                   workers <- workers()
  [13:42:34.252]                 workers <- as.integer(workers)
  [13:42:34.252]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.252]                   workers >= 1)
  [13:42:34.252]                 if (workers == 1L) {
  [13:42:34.252]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.252]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.252]                     local = TRUE, label = label, ...))
  [13:42:34.252]                 }
  [13:42:34.252]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.252]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.252]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.252]                   globals = globals, persistent = persistent, 
  [13:42:34.252]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.252]                   label = label, ...)
  [13:42:34.252]                 if (!future$lazy) 
  [13:42:34.252]                   future <- run(future)
  [13:42:34.252]                 invisible(future)
  [13:42:34.252]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:34.252]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:34.252]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:42:34.252]                 label = NULL, ...) 
  [13:42:34.252]             {
  [13:42:34.252]                 if (substitute) 
  [13:42:34.252]                   expr <- substitute(expr)
  [13:42:34.252]                 if (is.function(workers)) 
  [13:42:34.252]                   workers <- workers()
  [13:42:34.252]                 workers <- as.integer(workers)
  [13:42:34.252]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.252]                   workers >= 1)
  [13:42:34.252]                 if (workers == 1L) {
  [13:42:34.252]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.252]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.252]                     local = TRUE, label = label, ...))
  [13:42:34.252]                 }
  [13:42:34.252]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.252]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.252]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.252]                   globals = globals, persistent = persistent, 
  [13:42:34.252]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.252]                   label = label, ...)
  [13:42:34.252]                 if (!future$lazy) 
  [13:42:34.252]                   future <- run(future)
  [13:42:34.252]                 invisible(future)
  [13:42:34.252]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.252]         }
  [13:42:34.252]         base::options(...future.oldOptions)
  [13:42:34.252]     })
  [13:42:34.252]     Sys.time
  [13:42:34.252]     if (base::is.na(TRUE)) {
  [13:42:34.252]     }
  [13:42:34.252]     else {
  [13:42:34.252]         base::sink(type = "output", split = FALSE)
  [13:42:34.252]         if (TRUE) {
  [13:42:34.252]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:34.252]         }
  [13:42:34.252]         else {
  [13:42:34.252]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:34.252]         }
  [13:42:34.252]         base::close(...future.stdout)
  [13:42:34.252]         ...future.stdout <- NULL
  [13:42:34.252]     }
  [13:42:34.252]     ...future.result$conditions <- ...future.conditions
  [13:42:34.252]     ...future.result
  [13:42:34.252] }
  [13:42:34.264] MultisessionFuture started
  [13:42:34.264] result() for ClusterFuture ...
  [13:42:34.265] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:34.265] - Validating connection of MultisessionFuture
  [13:42:34.439] - received message: FutureResult
  [13:42:34.440] - Received FutureResult
  [13:42:34.440] - Erased future from FutureRegistry
  [13:42:34.441] result() for ClusterFuture ...
  [13:42:34.441] - result already collected: FutureResult
  [13:42:34.441] result() for ClusterFuture ... done
  [13:42:34.442] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:34.442] result() for ClusterFuture ... done
  [13:42:34.442] result() for ClusterFuture ...
  [13:42:34.443] - result already collected: FutureResult
  [13:42:34.443] result() for ClusterFuture ... done
  [13:42:34.444] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:42:34.444] plan(): nbrOfWorkers() = 2
  [13:42:34.445] doFuture() ...
  [13:42:34.450] - dummy globals (as locals): [2] 'a', 'b'
  [13:42:34.451] - R expression:
  [13:42:34.451] {
  [13:42:34.451]     doFuture::registerDoFuture()
  [13:42:34.451]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:34.451]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:34.451]         {
  [13:42:34.451]             a <- NULL
  [13:42:34.451]             b <- NULL
  [13:42:34.451]         }
  [13:42:34.451]         ...future.env <- environment()
  [13:42:34.451]         local({
  [13:42:34.451]             for (name in names(...future.x_jj)) {
  [13:42:34.451]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:34.451]                   inherits = FALSE)
  [13:42:34.451]             }
  [13:42:34.451]         })
  [13:42:34.451]         tryCatch({
  [13:42:34.451]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:34.451]                 plan = future::plan("next"))
  [13:42:34.451]         }, error = identity)
  [13:42:34.451]     })
  [13:42:34.451] }
  [13:42:34.452] - identifying globals and packages ...
  [13:42:34.452] getGlobalsAndPackages() ...
  [13:42:34.453] Searching for globals...
  [13:42:34.493] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:42:34.493] Searching for globals ... DONE
  [13:42:34.494] Resolving globals: FALSE
  [13:42:34.496] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:42:34.496] - globals: [1] '...future.x_ii'
  [13:42:34.496] 
  [13:42:34.497] getGlobalsAndPackages() ... DONE
  [13:42:34.497] List of 1
  [13:42:34.497]  $ ...future.x_ii: NULL
  [13:42:34.497]  - attr(*, "where")=List of 1
  [13:42:34.497]   ..$ ...future.x_ii:<environment: 0x5617cd026098> 
  [13:42:34.497]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:34.497]  - attr(*, "resolved")= logi FALSE
  [13:42:34.497]  - attr(*, "total_size")= num 0
  [13:42:34.519]   - R expression:
  [13:42:34.520] {
  [13:42:34.520]     doFuture::registerDoFuture()
  [13:42:34.520]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:34.520]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:34.520]         {
  [13:42:34.520]             a <- NULL
  [13:42:34.520]             b <- NULL
  [13:42:34.520]         }
  [13:42:34.520]         ...future.env <- environment()
  [13:42:34.520]         local({
  [13:42:34.520]             for (name in names(...future.x_jj)) {
  [13:42:34.520]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:34.520]                   inherits = FALSE)
  [13:42:34.520]             }
  [13:42:34.520]         })
  [13:42:34.520]         tryCatch({
  [13:42:34.520]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:34.520]                 plan = future::plan("next"))
  [13:42:34.520]         }, error = identity)
  [13:42:34.520]     })
  [13:42:34.520] }
  [13:42:34.521]   - globals: [1] '...future.x_ii'
  [13:42:34.521] List of 1
  [13:42:34.521]  $ ...future.x_ii: NULL
  [13:42:34.521]  - attr(*, "where")=List of 1
  [13:42:34.521]   ..$ ...future.x_ii:<environment: 0x5617cd026098> 
  [13:42:34.521]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:34.521]  - attr(*, "resolved")= logi FALSE
  [13:42:34.521]  - attr(*, "total_size")= num 0
  [13:42:34.527]   - packages: [1] 'doFuture'
  [13:42:34.528] - identifying globals and packages ... DONE
  [13:42:34.529] Number of chunks: 2
  [13:42:34.529] Number of futures (= number of chunks): 2
  [13:42:34.530] Launching 2 futures (chunks) ...
  [13:42:34.530] Chunk #1 of 2 ...
  [13:42:34.531]  - Finding globals in 'args_list' chunk #1 ...
  [13:42:34.531] getGlobalsAndPackages() ...
  [13:42:34.531] Searching for globals...
  [13:42:34.532] 
  [13:42:34.533] Searching for globals ... DONE
  [13:42:34.533] - globals: [0] <none>
  [13:42:34.533] getGlobalsAndPackages() ... DONE
  [13:42:34.533] 
  [13:42:34.534] 
  [13:42:34.534]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:42:34.558] getGlobalsAndPackages() ...
  [13:42:34.559] - globals passed as-is: [1] '...future.x_ii'
  [13:42:34.559] Resolving globals: FALSE
  [13:42:34.560] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:34.561] - globals: [1] '...future.x_ii'
  [13:42:34.561] 
  [13:42:34.561] getGlobalsAndPackages() ... DONE
  [13:42:34.566] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:34.587] Packages needed by future strategies (n = 1): 'future'
  [13:42:34.595] {
  [13:42:34.595]     {
  [13:42:34.595]         ...future.startTime <- base::Sys.time()
  [13:42:34.595]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:34.595]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:34.595]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:34.595]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:34.595]             future.resolve.recursive = NULL, width = 80L)
  [13:42:34.595]         {
  [13:42:34.595]             {
  [13:42:34.595]                 {
  [13:42:34.595]                   {
  [13:42:34.595]                     has_future <- base::requireNamespace("future", 
  [13:42:34.595]                       quietly = TRUE)
  [13:42:34.595]                     version <- if (has_future) 
  [13:42:34.595]                       utils::packageVersion("future")
  [13:42:34.595]                     else NULL
  [13:42:34.595]                     if (!has_future || version < "1.8.0") {
  [13:42:34.595]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:34.595]                         "", base::R.version$version.string), 
  [13:42:34.595]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:34.595]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:34.595]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:34.595]                           "release", "version")], collapse = " "), 
  [13:42:34.595]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:34.595]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:34.595]                         info)
  [13:42:34.595]                       info <- base::paste(info, collapse = "; ")
  [13:42:34.595]                       if (!has_future) {
  [13:42:34.595]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:34.595]                           info)
  [13:42:34.595]                       }
  [13:42:34.595]                       else {
  [13:42:34.595]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:34.595]                           info, version)
  [13:42:34.595]                       }
  [13:42:34.595]                       base::stop(msg)
  [13:42:34.595]                     }
  [13:42:34.595]                   }
  [13:42:34.595]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:34.595]                   base::options(mc.cores = 1L)
  [13:42:34.595]                 }
  [13:42:34.595]                 base::local({
  [13:42:34.595]                   for (pkg in c("doFuture", "future")) {
  [13:42:34.595]                     base::loadNamespace(pkg)
  [13:42:34.595]                     base::library(pkg, character.only = TRUE)
  [13:42:34.595]                   }
  [13:42:34.595]                 })
  [13:42:34.595]             }
  [13:42:34.595]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:34.595]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.595]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.595]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.595]                 ...) 
  [13:42:34.595]             {
  [13:42:34.595]                 if (substitute) 
  [13:42:34.595]                   expr <- substitute(expr)
  [13:42:34.595]                 if (is.function(workers)) 
  [13:42:34.595]                   workers <- workers()
  [13:42:34.595]                 workers <- as.integer(workers)
  [13:42:34.595]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.595]                   workers >= 1)
  [13:42:34.595]                 if (workers == 1L) {
  [13:42:34.595]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.595]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.595]                     local = TRUE, label = label, ...))
  [13:42:34.595]                 }
  [13:42:34.595]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.595]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.595]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.595]                   globals = globals, persistent = persistent, 
  [13:42:34.595]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.595]                   label = label, ...)
  [13:42:34.595]                 if (!future$lazy) 
  [13:42:34.595]                   future <- run(future)
  [13:42:34.595]                 invisible(future)
  [13:42:34.595]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.595]         }
  [13:42:34.595]     }
  [13:42:34.595]     if (base::is.na(TRUE)) {
  [13:42:34.595]     }
  [13:42:34.595]     else {
  [13:42:34.595]         if (TRUE) {
  [13:42:34.595]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:34.595]                 open = "w")
  [13:42:34.595]         }
  [13:42:34.595]         else {
  [13:42:34.595]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:34.595]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:34.595]         }
  [13:42:34.595]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:34.595]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:34.595]             base::sink(type = "output", split = FALSE)
  [13:42:34.595]             base::close(...future.stdout)
  [13:42:34.595]         }, add = TRUE)
  [13:42:34.595]     }
  [13:42:34.595]     ...future.frame <- base::sys.nframe()
  [13:42:34.595]     ...future.conditions <- base::list()
  [13:42:34.595]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:34.595]     ...future.result <- base::tryCatch({
  [13:42:34.595]         base::withCallingHandlers({
  [13:42:34.595]             ...future.value <- base::withVisible(base::local({
  [13:42:34.595]                 ...future.sendCondition <- local({
  [13:42:34.595]                   sendCondition <- NULL
  [13:42:34.595]                   function(frame = 1L) {
  [13:42:34.595]                     if (is.function(sendCondition)) 
  [13:42:34.595]                       return(sendCondition)
  [13:42:34.595]                     ns <- getNamespace("parallel")
  [13:42:34.595]                     if (exists("sendData", mode = "function", 
  [13:42:34.595]                       envir = ns)) {
  [13:42:34.595]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:34.595]                         envir = ns)
  [13:42:34.595]                       envir <- sys.frame(frame)
  [13:42:34.595]                       master <- NULL
  [13:42:34.595]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:34.595]                         !identical(envir, emptyenv())) {
  [13:42:34.595]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:34.595]                           inherits = FALSE)) {
  [13:42:34.595]                           master <- get("master", mode = "list", 
  [13:42:34.595]                             envir = envir, inherits = FALSE)
  [13:42:34.595]                           if (inherits(master, "SOCKnode")) {
  [13:42:34.595]                             sendCondition <<- function(cond) {
  [13:42:34.595]                               data <- list(type = "VALUE", value = cond, 
  [13:42:34.595]                                 success = TRUE)
  [13:42:34.595]                               parallel_sendData(master, data)
  [13:42:34.595]                             }
  [13:42:34.595]                             return(sendCondition)
  [13:42:34.595]                           }
  [13:42:34.595]                         }
  [13:42:34.595]                         frame <- frame + 1L
  [13:42:34.595]                         envir <- sys.frame(frame)
  [13:42:34.595]                       }
  [13:42:34.595]                     }
  [13:42:34.595]                     sendCondition <<- function(cond) NULL
  [13:42:34.595]                   }
  [13:42:34.595]                 })
  [13:42:34.595]                 withCallingHandlers({
  [13:42:34.595]                   {
  [13:42:34.595]                     doFuture::registerDoFuture()
  [13:42:34.595]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:34.595]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:34.595]                       {
  [13:42:34.595]                         a <- NULL
  [13:42:34.595]                         b <- NULL
  [13:42:34.595]                       }
  [13:42:34.595]                       ...future.env <- environment()
  [13:42:34.595]                       local({
  [13:42:34.595]                         for (name in names(...future.x_jj)) {
  [13:42:34.595]                           assign(name, ...future.x_jj[[name]], 
  [13:42:34.595]                             envir = ...future.env, inherits = FALSE)
  [13:42:34.595]                         }
  [13:42:34.595]                       })
  [13:42:34.595]                       tryCatch({
  [13:42:34.595]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:34.595]                           plan = future::plan("next"))
  [13:42:34.595]                       }, error = identity)
  [13:42:34.595]                     })
  [13:42:34.595]                   }
  [13:42:34.595]                 }, immediateCondition = function(cond) {
  [13:42:34.595]                   sendCondition <- ...future.sendCondition()
  [13:42:34.595]                   sendCondition(cond)
  [13:42:34.595]                   muffleCondition <- function (cond) 
  [13:42:34.595]                   {
  [13:42:34.595]                     inherits <- base::inherits
  [13:42:34.595]                     invokeRestart <- base::invokeRestart
  [13:42:34.595]                     muffled <- FALSE
  [13:42:34.595]                     if (inherits(cond, "message")) {
  [13:42:34.595]                       invokeRestart("muffleMessage")
  [13:42:34.595]                       muffled <- TRUE
  [13:42:34.595]                     }
  [13:42:34.595]                     else if (inherits(cond, "warning")) {
  [13:42:34.595]                       invokeRestart("muffleWarning")
  [13:42:34.595]                       muffled <- TRUE
  [13:42:34.595]                     }
  [13:42:34.595]                     else if (inherits(cond, "condition")) {
  [13:42:34.595]                       computeRestarts <- base::computeRestarts
  [13:42:34.595]                       grepl <- base::grepl
  [13:42:34.595]                       is.null <- base::is.null
  [13:42:34.595]                       restarts <- computeRestarts(cond)
  [13:42:34.595]                       for (restart in restarts) {
  [13:42:34.595]                         name <- restart$name
  [13:42:34.595]                         if (is.null(name)) 
  [13:42:34.595]                           next
  [13:42:34.595]                         if (!grepl("^muffle", name)) 
  [13:42:34.595]                           next
  [13:42:34.595]                         invokeRestart(restart)
  [13:42:34.595]                         muffled <- TRUE
  [13:42:34.595]                         break
  [13:42:34.595]                       }
  [13:42:34.595]                     }
  [13:42:34.595]                     invisible(muffled)
  [13:42:34.595]                   }
  [13:42:34.595]                   muffleCondition(cond)
  [13:42:34.595]                 })
  [13:42:34.595]             }))
  [13:42:34.595]             future::FutureResult(value = ...future.value$value, 
  [13:42:34.595]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.595]                   ...future.rng), started = ...future.startTime, 
  [13:42:34.595]                 version = "1.8")
  [13:42:34.595]         }, condition = base::local({
  [13:42:34.595]             c <- base::c
  [13:42:34.595]             inherits <- base::inherits
  [13:42:34.595]             invokeRestart <- base::invokeRestart
  [13:42:34.595]             length <- base::length
  [13:42:34.595]             list <- base::list
  [13:42:34.595]             seq.int <- base::seq.int
  [13:42:34.595]             signalCondition <- base::signalCondition
  [13:42:34.595]             sys.calls <- base::sys.calls
  [13:42:34.595]             Sys.time <- base::Sys.time
  [13:42:34.595]             `[[` <- base::`[[`
  [13:42:34.595]             `+` <- base::`+`
  [13:42:34.595]             `<<-` <- base::`<<-`
  [13:42:34.595]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:34.595]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:34.595]                   3L)]
  [13:42:34.595]             }
  [13:42:34.595]             function(cond) {
  [13:42:34.595]                 if (inherits(cond, "error")) {
  [13:42:34.595]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.595]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:34.595]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:34.595]                   signalCondition(cond)
  [13:42:34.595]                 }
  [13:42:34.595]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:34.595]                 ))) {
  [13:42:34.595]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:34.595]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.595]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:34.595]                   if (!signal) {
  [13:42:34.595]                     muffleCondition <- function (cond) 
  [13:42:34.595]                     {
  [13:42:34.595]                       inherits <- base::inherits
  [13:42:34.595]                       invokeRestart <- base::invokeRestart
  [13:42:34.595]                       muffled <- FALSE
  [13:42:34.595]                       if (inherits(cond, "message")) {
  [13:42:34.595]                         invokeRestart("muffleMessage")
  [13:42:34.595]                         muffled <- TRUE
  [13:42:34.595]                       }
  [13:42:34.595]                       else if (inherits(cond, "warning")) {
  [13:42:34.595]                         invokeRestart("muffleWarning")
  [13:42:34.595]                         muffled <- TRUE
  [13:42:34.595]                       }
  [13:42:34.595]                       else if (inherits(cond, "condition")) {
  [13:42:34.595]                         computeRestarts <- base::computeRestarts
  [13:42:34.595]                         grepl <- base::grepl
  [13:42:34.595]                         is.null <- base::is.null
  [13:42:34.595]                         restarts <- computeRestarts(cond)
  [13:42:34.595]                         for (restart in restarts) {
  [13:42:34.595]                           name <- restart$name
  [13:42:34.595]                           if (is.null(name)) 
  [13:42:34.595]                             next
  [13:42:34.595]                           if (!grepl("^muffle", name)) 
  [13:42:34.595]                             next
  [13:42:34.595]                           invokeRestart(restart)
  [13:42:34.595]                           muffled <- TRUE
  [13:42:34.595]                           break
  [13:42:34.595]                         }
  [13:42:34.595]                       }
  [13:42:34.595]                       invisible(muffled)
  [13:42:34.595]                     }
  [13:42:34.595]                     muffleCondition(cond)
  [13:42:34.595]                   }
  [13:42:34.595]                 }
  [13:42:34.595]             }
  [13:42:34.595]         }))
  [13:42:34.595]     }, error = function(ex) {
  [13:42:34.595]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:34.595]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.595]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:34.595]     }, finally = {
  [13:42:34.595]         {
  [13:42:34.595]             {
  [13:42:34.595]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:34.595]             }
  [13:42:34.595]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:34.595]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.595]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.595]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.595]                 ...) 
  [13:42:34.595]             {
  [13:42:34.595]                 if (substitute) 
  [13:42:34.595]                   expr <- substitute(expr)
  [13:42:34.595]                 if (is.function(workers)) 
  [13:42:34.595]                   workers <- workers()
  [13:42:34.595]                 workers <- as.integer(workers)
  [13:42:34.595]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.595]                   workers >= 1)
  [13:42:34.595]                 if (workers == 1L) {
  [13:42:34.595]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.595]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.595]                     local = TRUE, label = label, ...))
  [13:42:34.595]                 }
  [13:42:34.595]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.595]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.595]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.595]                   globals = globals, persistent = persistent, 
  [13:42:34.595]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.595]                   label = label, ...)
  [13:42:34.595]                 if (!future$lazy) 
  [13:42:34.595]                   future <- run(future)
  [13:42:34.595]                 invisible(future)
  [13:42:34.595]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:34.595]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:34.595]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:42:34.595]                 label = NULL, ...) 
  [13:42:34.595]             {
  [13:42:34.595]                 if (substitute) 
  [13:42:34.595]                   expr <- substitute(expr)
  [13:42:34.595]                 if (is.function(workers)) 
  [13:42:34.595]                   workers <- workers()
  [13:42:34.595]                 workers <- as.integer(workers)
  [13:42:34.595]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.595]                   workers >= 1)
  [13:42:34.595]                 if (workers == 1L) {
  [13:42:34.595]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.595]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.595]                     local = TRUE, label = label, ...))
  [13:42:34.595]                 }
  [13:42:34.595]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.595]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.595]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.595]                   globals = globals, persistent = persistent, 
  [13:42:34.595]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.595]                   label = label, ...)
  [13:42:34.595]                 if (!future$lazy) 
  [13:42:34.595]                   future <- run(future)
  [13:42:34.595]                 invisible(future)
  [13:42:34.595]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.595]         }
  [13:42:34.595]         base::options(...future.oldOptions)
  [13:42:34.595]     })
  [13:42:34.595]     Sys.time
  [13:42:34.595]     if (base::is.na(TRUE)) {
  [13:42:34.595]     }
  [13:42:34.595]     else {
  [13:42:34.595]         base::sink(type = "output", split = FALSE)
  [13:42:34.595]         if (TRUE) {
  [13:42:34.595]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:34.595]         }
  [13:42:34.595]         else {
  [13:42:34.595]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:34.595]         }
  [13:42:34.595]         base::close(...future.stdout)
  [13:42:34.595]         ...future.stdout <- NULL
  [13:42:34.595]     }
  [13:42:34.595]     ...future.result$conditions <- ...future.conditions
  [13:42:34.595]     ...future.result
  [13:42:34.595] }
  [13:42:34.604] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:42:34.605] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:42:34.606] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:42:34.606] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:42:34.608] MultisessionFuture started
  [13:42:34.608] Chunk #1 of 2 ... DONE
  [13:42:34.609] Chunk #2 of 2 ...
  [13:42:34.609]  - Finding globals in 'args_list' chunk #2 ...
  [13:42:34.609] getGlobalsAndPackages() ...
  [13:42:34.610] Searching for globals...
  [13:42:34.611] 
  [13:42:34.611] Searching for globals ... DONE
  [13:42:34.611] - globals: [0] <none>
  [13:42:34.611] getGlobalsAndPackages() ... DONE
  [13:42:34.612] 
  [13:42:34.612] 
  [13:42:34.612]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:42:34.621] getGlobalsAndPackages() ...
  [13:42:34.621] - globals passed as-is: [1] '...future.x_ii'
  [13:42:34.622] Resolving globals: FALSE
  [13:42:34.623] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:34.623] - globals: [1] '...future.x_ii'
  [13:42:34.623] 
  [13:42:34.624] getGlobalsAndPackages() ... DONE
  [13:42:34.628] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:34.629] Packages needed by future strategies (n = 1): 'future'
  [13:42:34.635] {
  [13:42:34.635]     {
  [13:42:34.635]         ...future.startTime <- base::Sys.time()
  [13:42:34.635]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:34.635]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:34.635]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:34.635]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:34.635]             future.resolve.recursive = NULL, width = 80L)
  [13:42:34.635]         {
  [13:42:34.635]             {
  [13:42:34.635]                 {
  [13:42:34.635]                   {
  [13:42:34.635]                     has_future <- base::requireNamespace("future", 
  [13:42:34.635]                       quietly = TRUE)
  [13:42:34.635]                     version <- if (has_future) 
  [13:42:34.635]                       utils::packageVersion("future")
  [13:42:34.635]                     else NULL
  [13:42:34.635]                     if (!has_future || version < "1.8.0") {
  [13:42:34.635]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:34.635]                         "", base::R.version$version.string), 
  [13:42:34.635]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:34.635]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:34.635]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:34.635]                           "release", "version")], collapse = " "), 
  [13:42:34.635]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:34.635]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:34.635]                         info)
  [13:42:34.635]                       info <- base::paste(info, collapse = "; ")
  [13:42:34.635]                       if (!has_future) {
  [13:42:34.635]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:34.635]                           info)
  [13:42:34.635]                       }
  [13:42:34.635]                       else {
  [13:42:34.635]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:34.635]                           info, version)
  [13:42:34.635]                       }
  [13:42:34.635]                       base::stop(msg)
  [13:42:34.635]                     }
  [13:42:34.635]                   }
  [13:42:34.635]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:34.635]                   base::options(mc.cores = 1L)
  [13:42:34.635]                 }
  [13:42:34.635]                 base::local({
  [13:42:34.635]                   for (pkg in c("doFuture", "future")) {
  [13:42:34.635]                     base::loadNamespace(pkg)
  [13:42:34.635]                     base::library(pkg, character.only = TRUE)
  [13:42:34.635]                   }
  [13:42:34.635]                 })
  [13:42:34.635]             }
  [13:42:34.635]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:34.635]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.635]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.635]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.635]                 ...) 
  [13:42:34.635]             {
  [13:42:34.635]                 if (substitute) 
  [13:42:34.635]                   expr <- substitute(expr)
  [13:42:34.635]                 if (is.function(workers)) 
  [13:42:34.635]                   workers <- workers()
  [13:42:34.635]                 workers <- as.integer(workers)
  [13:42:34.635]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.635]                   workers >= 1)
  [13:42:34.635]                 if (workers == 1L) {
  [13:42:34.635]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.635]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.635]                     local = TRUE, label = label, ...))
  [13:42:34.635]                 }
  [13:42:34.635]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.635]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.635]                   globals = globals, persistent = persistent, 
  [13:42:34.635]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.635]                   label = label, ...)
  [13:42:34.635]                 if (!future$lazy) 
  [13:42:34.635]                   future <- run(future)
  [13:42:34.635]                 invisible(future)
  [13:42:34.635]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.635]         }
  [13:42:34.635]     }
  [13:42:34.635]     if (base::is.na(TRUE)) {
  [13:42:34.635]     }
  [13:42:34.635]     else {
  [13:42:34.635]         if (TRUE) {
  [13:42:34.635]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:34.635]                 open = "w")
  [13:42:34.635]         }
  [13:42:34.635]         else {
  [13:42:34.635]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:34.635]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:34.635]         }
  [13:42:34.635]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:34.635]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:34.635]             base::sink(type = "output", split = FALSE)
  [13:42:34.635]             base::close(...future.stdout)
  [13:42:34.635]         }, add = TRUE)
  [13:42:34.635]     }
  [13:42:34.635]     ...future.frame <- base::sys.nframe()
  [13:42:34.635]     ...future.conditions <- base::list()
  [13:42:34.635]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:34.635]     ...future.result <- base::tryCatch({
  [13:42:34.635]         base::withCallingHandlers({
  [13:42:34.635]             ...future.value <- base::withVisible(base::local({
  [13:42:34.635]                 ...future.sendCondition <- local({
  [13:42:34.635]                   sendCondition <- NULL
  [13:42:34.635]                   function(frame = 1L) {
  [13:42:34.635]                     if (is.function(sendCondition)) 
  [13:42:34.635]                       return(sendCondition)
  [13:42:34.635]                     ns <- getNamespace("parallel")
  [13:42:34.635]                     if (exists("sendData", mode = "function", 
  [13:42:34.635]                       envir = ns)) {
  [13:42:34.635]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:34.635]                         envir = ns)
  [13:42:34.635]                       envir <- sys.frame(frame)
  [13:42:34.635]                       master <- NULL
  [13:42:34.635]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:34.635]                         !identical(envir, emptyenv())) {
  [13:42:34.635]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:34.635]                           inherits = FALSE)) {
  [13:42:34.635]                           master <- get("master", mode = "list", 
  [13:42:34.635]                             envir = envir, inherits = FALSE)
  [13:42:34.635]                           if (inherits(master, "SOCKnode")) {
  [13:42:34.635]                             sendCondition <<- function(cond) {
  [13:42:34.635]                               data <- list(type = "VALUE", value = cond, 
  [13:42:34.635]                                 success = TRUE)
  [13:42:34.635]                               parallel_sendData(master, data)
  [13:42:34.635]                             }
  [13:42:34.635]                             return(sendCondition)
  [13:42:34.635]                           }
  [13:42:34.635]                         }
  [13:42:34.635]                         frame <- frame + 1L
  [13:42:34.635]                         envir <- sys.frame(frame)
  [13:42:34.635]                       }
  [13:42:34.635]                     }
  [13:42:34.635]                     sendCondition <<- function(cond) NULL
  [13:42:34.635]                   }
  [13:42:34.635]                 })
  [13:42:34.635]                 withCallingHandlers({
  [13:42:34.635]                   {
  [13:42:34.635]                     doFuture::registerDoFuture()
  [13:42:34.635]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:34.635]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:34.635]                       {
  [13:42:34.635]                         a <- NULL
  [13:42:34.635]                         b <- NULL
  [13:42:34.635]                       }
  [13:42:34.635]                       ...future.env <- environment()
  [13:42:34.635]                       local({
  [13:42:34.635]                         for (name in names(...future.x_jj)) {
  [13:42:34.635]                           assign(name, ...future.x_jj[[name]], 
  [13:42:34.635]                             envir = ...future.env, inherits = FALSE)
  [13:42:34.635]                         }
  [13:42:34.635]                       })
  [13:42:34.635]                       tryCatch({
  [13:42:34.635]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:34.635]                           plan = future::plan("next"))
  [13:42:34.635]                       }, error = identity)
  [13:42:34.635]                     })
  [13:42:34.635]                   }
  [13:42:34.635]                 }, immediateCondition = function(cond) {
  [13:42:34.635]                   sendCondition <- ...future.sendCondition()
  [13:42:34.635]                   sendCondition(cond)
  [13:42:34.635]                   muffleCondition <- function (cond) 
  [13:42:34.635]                   {
  [13:42:34.635]                     inherits <- base::inherits
  [13:42:34.635]                     invokeRestart <- base::invokeRestart
  [13:42:34.635]                     muffled <- FALSE
  [13:42:34.635]                     if (inherits(cond, "message")) {
  [13:42:34.635]                       invokeRestart("muffleMessage")
  [13:42:34.635]                       muffled <- TRUE
  [13:42:34.635]                     }
  [13:42:34.635]                     else if (inherits(cond, "warning")) {
  [13:42:34.635]                       invokeRestart("muffleWarning")
  [13:42:34.635]                       muffled <- TRUE
  [13:42:34.635]                     }
  [13:42:34.635]                     else if (inherits(cond, "condition")) {
  [13:42:34.635]                       computeRestarts <- base::computeRestarts
  [13:42:34.635]                       grepl <- base::grepl
  [13:42:34.635]                       is.null <- base::is.null
  [13:42:34.635]                       restarts <- computeRestarts(cond)
  [13:42:34.635]                       for (restart in restarts) {
  [13:42:34.635]                         name <- restart$name
  [13:42:34.635]                         if (is.null(name)) 
  [13:42:34.635]                           next
  [13:42:34.635]                         if (!grepl("^muffle", name)) 
  [13:42:34.635]                           next
  [13:42:34.635]                         invokeRestart(restart)
  [13:42:34.635]                         muffled <- TRUE
  [13:42:34.635]                         break
  [13:42:34.635]                       }
  [13:42:34.635]                     }
  [13:42:34.635]                     invisible(muffled)
  [13:42:34.635]                   }
  [13:42:34.635]                   muffleCondition(cond)
  [13:42:34.635]                 })
  [13:42:34.635]             }))
  [13:42:34.635]             future::FutureResult(value = ...future.value$value, 
  [13:42:34.635]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.635]                   ...future.rng), started = ...future.startTime, 
  [13:42:34.635]                 version = "1.8")
  [13:42:34.635]         }, condition = base::local({
  [13:42:34.635]             c <- base::c
  [13:42:34.635]             inherits <- base::inherits
  [13:42:34.635]             invokeRestart <- base::invokeRestart
  [13:42:34.635]             length <- base::length
  [13:42:34.635]             list <- base::list
  [13:42:34.635]             seq.int <- base::seq.int
  [13:42:34.635]             signalCondition <- base::signalCondition
  [13:42:34.635]             sys.calls <- base::sys.calls
  [13:42:34.635]             Sys.time <- base::Sys.time
  [13:42:34.635]             `[[` <- base::`[[`
  [13:42:34.635]             `+` <- base::`+`
  [13:42:34.635]             `<<-` <- base::`<<-`
  [13:42:34.635]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:34.635]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:34.635]                   3L)]
  [13:42:34.635]             }
  [13:42:34.635]             function(cond) {
  [13:42:34.635]                 if (inherits(cond, "error")) {
  [13:42:34.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.635]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:34.635]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:34.635]                   signalCondition(cond)
  [13:42:34.635]                 }
  [13:42:34.635]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:34.635]                 ))) {
  [13:42:34.635]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:34.635]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:34.635]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:34.635]                   if (!signal) {
  [13:42:34.635]                     muffleCondition <- function (cond) 
  [13:42:34.635]                     {
  [13:42:34.635]                       inherits <- base::inherits
  [13:42:34.635]                       invokeRestart <- base::invokeRestart
  [13:42:34.635]                       muffled <- FALSE
  [13:42:34.635]                       if (inherits(cond, "message")) {
  [13:42:34.635]                         invokeRestart("muffleMessage")
  [13:42:34.635]                         muffled <- TRUE
  [13:42:34.635]                       }
  [13:42:34.635]                       else if (inherits(cond, "warning")) {
  [13:42:34.635]                         invokeRestart("muffleWarning")
  [13:42:34.635]                         muffled <- TRUE
  [13:42:34.635]                       }
  [13:42:34.635]                       else if (inherits(cond, "condition")) {
  [13:42:34.635]                         computeRestarts <- base::computeRestarts
  [13:42:34.635]                         grepl <- base::grepl
  [13:42:34.635]                         is.null <- base::is.null
  [13:42:34.635]                         restarts <- computeRestarts(cond)
  [13:42:34.635]                         for (restart in restarts) {
  [13:42:34.635]                           name <- restart$name
  [13:42:34.635]                           if (is.null(name)) 
  [13:42:34.635]                             next
  [13:42:34.635]                           if (!grepl("^muffle", name)) 
  [13:42:34.635]                             next
  [13:42:34.635]                           invokeRestart(restart)
  [13:42:34.635]                           muffled <- TRUE
  [13:42:34.635]                           break
  [13:42:34.635]                         }
  [13:42:34.635]                       }
  [13:42:34.635]                       invisible(muffled)
  [13:42:34.635]                     }
  [13:42:34.635]                     muffleCondition(cond)
  [13:42:34.635]                   }
  [13:42:34.635]                 }
  [13:42:34.635]             }
  [13:42:34.635]         }))
  [13:42:34.635]     }, error = function(ex) {
  [13:42:34.635]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:34.635]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:34.635]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:34.635]     }, finally = {
  [13:42:34.635]         {
  [13:42:34.635]             {
  [13:42:34.635]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:34.635]             }
  [13:42:34.635]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:34.635]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:34.635]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:34.635]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:34.635]                 ...) 
  [13:42:34.635]             {
  [13:42:34.635]                 if (substitute) 
  [13:42:34.635]                   expr <- substitute(expr)
  [13:42:34.635]                 if (is.function(workers)) 
  [13:42:34.635]                   workers <- workers()
  [13:42:34.635]                 workers <- as.integer(workers)
  [13:42:34.635]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.635]                   workers >= 1)
  [13:42:34.635]                 if (workers == 1L) {
  [13:42:34.635]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.635]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.635]                     local = TRUE, label = label, ...))
  [13:42:34.635]                 }
  [13:42:34.635]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.635]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.635]                   globals = globals, persistent = persistent, 
  [13:42:34.635]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.635]                   label = label, ...)
  [13:42:34.635]                 if (!future$lazy) 
  [13:42:34.635]                   future <- run(future)
  [13:42:34.635]                 invisible(future)
  [13:42:34.635]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:34.635]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:34.635]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:42:34.635]                 label = NULL, ...) 
  [13:42:34.635]             {
  [13:42:34.635]                 if (substitute) 
  [13:42:34.635]                   expr <- substitute(expr)
  [13:42:34.635]                 if (is.function(workers)) 
  [13:42:34.635]                   workers <- workers()
  [13:42:34.635]                 workers <- as.integer(workers)
  [13:42:34.635]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:34.635]                   workers >= 1)
  [13:42:34.635]                 if (workers == 1L) {
  [13:42:34.635]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:34.635]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:34.635]                     local = TRUE, label = label, ...))
  [13:42:34.635]                 }
  [13:42:34.635]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:34.635]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:34.635]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:34.635]                   globals = globals, persistent = persistent, 
  [13:42:34.635]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:34.635]                   label = label, ...)
  [13:42:34.635]                 if (!future$lazy) 
  [13:42:34.635]                   future <- run(future)
  [13:42:34.635]                 invisible(future)
  [13:42:34.635]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:34.635]         }
  [13:42:34.635]         base::options(...future.oldOptions)
  [13:42:34.635]     })
  [13:42:34.635]     Sys.time
  [13:42:34.635]     if (base::is.na(TRUE)) {
  [13:42:34.635]     }
  [13:42:34.635]     else {
  [13:42:34.635]         base::sink(type = "output", split = FALSE)
  [13:42:34.635]         if (TRUE) {
  [13:42:34.635]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:34.635]         }
  [13:42:34.635]         else {
  [13:42:34.635]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:34.635]         }
  [13:42:34.635]         base::close(...future.stdout)
  [13:42:34.635]         ...future.stdout <- NULL
  [13:42:34.635]     }
  [13:42:34.635]     ...future.result$conditions <- ...future.conditions
  [13:42:34.635]     ...future.result
  [13:42:34.635] }
  [13:42:34.645] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:42:34.645] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:42:34.647] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:42:34.647] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:42:34.649] MultisessionFuture started
  [13:42:34.649] Chunk #2 of 2 ... DONE
  [13:42:34.649] Launching 2 futures (chunks) ... DONE
  [13:42:34.650] - resolving futures
  [13:42:34.650]   - gathering results & relaying conditions (except errors)
  [13:42:34.650] resolve() on list ...
  [13:42:34.651]  recursive: 0
  [13:42:34.651]  length: 2
  [13:42:34.651] 
  [13:42:35.157] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:35.157] - Validating connection of MultisessionFuture
  [13:42:35.159] - received message: FutureResult
  [13:42:35.159] - Received FutureResult
  [13:42:35.160] - Erased future from FutureRegistry
  [13:42:35.160] result() for ClusterFuture ...
  [13:42:35.160] - result already collected: FutureResult
  [13:42:35.161] result() for ClusterFuture ... done
  [13:42:35.161] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:35.161] Future #1
  [13:42:35.162] result() for ClusterFuture ...
  [13:42:35.162] - result already collected: FutureResult
  [13:42:35.162] result() for ClusterFuture ... done
  [13:42:35.163] result() for ClusterFuture ...
  [13:42:35.163] - result already collected: FutureResult
  [13:42:35.163] result() for ClusterFuture ... done
  [13:42:35.164] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:42:35.164] - nx: 2
  [13:42:35.164] - relay: TRUE
  [13:42:35.165] - stdout: TRUE
  [13:42:35.165] - signal: TRUE
  [13:42:35.165] - resignal: FALSE
  [13:42:35.166] - force: FALSE
  [13:42:35.166] - relayed: [n=2] FALSE, FALSE
  [13:42:35.166] - queued futures: [n=2] FALSE, FALSE
  [13:42:35.167]  - until=1
  [13:42:35.167]  - relaying element #1
  [13:42:35.167] result() for ClusterFuture ...
  [13:42:35.167] - result already collected: FutureResult
  [13:42:35.168] result() for ClusterFuture ... done
  [13:42:35.168] result() for ClusterFuture ...
  [13:42:35.168] - result already collected: FutureResult
  [13:42:35.169] result() for ClusterFuture ... done
  [13:42:35.169] result() for ClusterFuture ...
  [13:42:35.169] - result already collected: FutureResult
  [13:42:35.169] result() for ClusterFuture ... done
  [13:42:35.170] result() for ClusterFuture ...
  [13:42:35.170] - result already collected: FutureResult
  [13:42:35.186] result() for ClusterFuture ... done
  [13:42:35.187] - relayed: [n=2] TRUE, FALSE
  [13:42:35.187] - queued futures: [n=2] TRUE, FALSE
  [13:42:35.188] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:42:35.188]  length: 1 (resolved future 1)
  [13:42:35.204] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:35.204] - Validating connection of MultisessionFuture
  [13:42:35.247] - received message: FutureResult
  [13:42:35.248] - Received FutureResult
  [13:42:35.248] - Erased future from FutureRegistry
  [13:42:35.249] result() for ClusterFuture ...
  [13:42:35.249] - result already collected: FutureResult
  [13:42:35.249] result() for ClusterFuture ... done
  [13:42:35.250] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:35.250] Future #2
  [13:42:35.250] result() for ClusterFuture ...
  [13:42:35.251] - result already collected: FutureResult
  [13:42:35.251] result() for ClusterFuture ... done
  [13:42:35.251] result() for ClusterFuture ...
  [13:42:35.252] - result already collected: FutureResult
  [13:42:35.252] result() for ClusterFuture ... done
  [13:42:35.252] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:42:35.253] - nx: 2
  [13:42:35.253] - relay: TRUE
  [13:42:35.253] - stdout: TRUE
  [13:42:35.253] - signal: TRUE
  [13:42:35.254] - resignal: FALSE
  [13:42:35.254] - force: FALSE
  [13:42:35.254] - relayed: [n=2] TRUE, FALSE
  [13:42:35.255] - queued futures: [n=2] TRUE, FALSE
  [13:42:35.255]  - until=2
  [13:42:35.255]  - relaying element #2
  [13:42:35.256] result() for ClusterFuture ...
  [13:42:35.256] - result already collected: FutureResult
  [13:42:35.256] result() for ClusterFuture ... done
  [13:42:35.257] result() for ClusterFuture ...
  [13:42:35.257] - result already collected: FutureResult
  [13:42:35.257] result() for ClusterFuture ... done
  [13:42:35.258] result() for ClusterFuture ...
  [13:42:35.258] - result already collected: FutureResult
  [13:42:35.259] result() for ClusterFuture ... done
  [13:42:35.259] result() for ClusterFuture ...
  [13:42:35.259] - result already collected: FutureResult
  [13:42:35.260] result() for ClusterFuture ... done
  [13:42:35.260] - relayed: [n=2] TRUE, TRUE
  [13:42:35.260] - queued futures: [n=2] TRUE, TRUE
  [13:42:35.261] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:42:35.261]  length: 0 (resolved future 2)
  [13:42:35.261] Relaying remaining futures
  [13:42:35.262] signalConditionsASAP(NULL, pos=0) ...
  [13:42:35.262] - nx: 2
  [13:42:35.262] - relay: TRUE
  [13:42:35.262] - stdout: TRUE
  [13:42:35.263] - signal: TRUE
  [13:42:35.263] - resignal: FALSE
  [13:42:35.263] - force: FALSE
  [13:42:35.264] - relayed: [n=2] TRUE, TRUE
  [13:42:35.264] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:42:35.264] - relayed: [n=2] TRUE, TRUE
  [13:42:35.265] - queued futures: [n=2] TRUE, TRUE
  [13:42:35.265] signalConditionsASAP(NULL, pos=0) ... done
  [13:42:35.265] resolve() on list ... DONE
  [13:42:35.266] - collecting values of futures
  [13:42:35.266] result() for ClusterFuture ...
  [13:42:35.266] - result already collected: FutureResult
  [13:42:35.267] result() for ClusterFuture ... done
  [13:42:35.267] result() for ClusterFuture ...
  [13:42:35.267] - result already collected: FutureResult
  [13:42:35.268] result() for ClusterFuture ... done
  [13:42:35.268] result() for ClusterFuture ...
  [13:42:35.268] - result already collected: FutureResult
  [13:42:35.269] result() for ClusterFuture ... done
  [13:42:35.269] result() for ClusterFuture ...
  [13:42:35.269] - result already collected: FutureResult
  [13:42:35.270] result() for ClusterFuture ... done
  [13:42:35.270] - accumulating results
  [13:42:35.273] - processing errors (handler = 'stop')
  [13:42:35.273] - extracting results
  [13:42:35.274] doFuture() ... DONE
  - plan(list('multisession', 'multisession')) ... DONE
  - plan(list('multisession', 'cluster')) ...
  [13:42:35.281] plan(): Setting new future strategy stack:
  [13:42:35.281] List of future strategies:
  [13:42:35.281] 1. multisession:
  [13:42:35.281]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:35.281]    - tweaked: FALSE
  [13:42:35.281]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:35.281] 2. cluster:
  [13:42:35.281]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:35.281]    - tweaked: FALSE
  [13:42:35.281]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:35.284] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [13:42:35.284] multisession:
  [13:42:35.284] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:35.284] - tweaked: FALSE
  [13:42:35.284] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 25099
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac30b2d2cd.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac30b2d2cd.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac30b2d2cd.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=25099 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac7c1d64c.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac7c1d64c.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac7c1d64c.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=25099 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
  [13:42:51.196] getGlobalsAndPackages() ...
  [13:42:51.197] Not searching for globals
  [13:42:51.197] - globals: [0] <none>
  [13:42:51.197] getGlobalsAndPackages() ... DONE
  [13:42:51.201] Packages needed by the future expression (n = 0): <none>
  [13:42:51.202] Packages needed by future strategies (n = 1): 'future'
  [13:42:51.224] {
  [13:42:51.224]     {
  [13:42:51.224]         ...future.startTime <- base::Sys.time()
  [13:42:51.224]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:51.224]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:51.224]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:51.224]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:51.224]             future.resolve.recursive = NULL, width = 80L)
  [13:42:51.224]         {
  [13:42:51.224]             {
  [13:42:51.224]                 {
  [13:42:51.224]                   {
  [13:42:51.224]                     has_future <- base::requireNamespace("future", 
  [13:42:51.224]                       quietly = TRUE)
  [13:42:51.224]                     version <- if (has_future) 
  [13:42:51.224]                       utils::packageVersion("future")
  [13:42:51.224]                     else NULL
  [13:42:51.224]                     if (!has_future || version < "1.8.0") {
  [13:42:51.224]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:51.224]                         "", base::R.version$version.string), 
  [13:42:51.224]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:51.224]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:51.224]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:51.224]                           "release", "version")], collapse = " "), 
  [13:42:51.224]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:51.224]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:51.224]                         info)
  [13:42:51.224]                       info <- base::paste(info, collapse = "; ")
  [13:42:51.224]                       if (!has_future) {
  [13:42:51.224]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:51.224]                           info)
  [13:42:51.224]                       }
  [13:42:51.224]                       else {
  [13:42:51.224]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:51.224]                           info, version)
  [13:42:51.224]                       }
  [13:42:51.224]                       base::stop(msg)
  [13:42:51.224]                     }
  [13:42:51.224]                   }
  [13:42:51.224]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:51.224]                   base::options(mc.cores = 1L)
  [13:42:51.224]                 }
  [13:42:51.224]                 base::local({
  [13:42:51.224]                   for (pkg in "future") {
  [13:42:51.224]                     base::loadNamespace(pkg)
  [13:42:51.224]                     base::library(pkg, character.only = TRUE)
  [13:42:51.224]                   }
  [13:42:51.224]                 })
  [13:42:51.224]             }
  [13:42:51.224]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:51.224]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.224]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:42:51.224]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:42:51.224]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.224]                 ...) 
  [13:42:51.224]             {
  [13:42:51.224]                 if (substitute) 
  [13:42:51.224]                   expr <- substitute(expr)
  [13:42:51.224]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.224]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.224]                   globals = globals, persistent = persistent, 
  [13:42:51.224]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.224]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.224]                   label = label, ...)
  [13:42:51.224]                 if (!future$lazy) 
  [13:42:51.224]                   future <- run(future)
  [13:42:51.224]                 invisible(future)
  [13:42:51.224]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.224]         }
  [13:42:51.224]     }
  [13:42:51.224]     if (base::is.na(TRUE)) {
  [13:42:51.224]     }
  [13:42:51.224]     else {
  [13:42:51.224]         if (TRUE) {
  [13:42:51.224]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:51.224]                 open = "w")
  [13:42:51.224]         }
  [13:42:51.224]         else {
  [13:42:51.224]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:51.224]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:51.224]         }
  [13:42:51.224]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:51.224]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:51.224]             base::sink(type = "output", split = FALSE)
  [13:42:51.224]             base::close(...future.stdout)
  [13:42:51.224]         }, add = TRUE)
  [13:42:51.224]     }
  [13:42:51.224]     ...future.frame <- base::sys.nframe()
  [13:42:51.224]     ...future.conditions <- base::list()
  [13:42:51.224]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:51.224]     ...future.result <- base::tryCatch({
  [13:42:51.224]         base::withCallingHandlers({
  [13:42:51.224]             ...future.value <- base::withVisible(base::local({
  [13:42:51.224]                 ...future.sendCondition <- local({
  [13:42:51.224]                   sendCondition <- NULL
  [13:42:51.224]                   function(frame = 1L) {
  [13:42:51.224]                     if (is.function(sendCondition)) 
  [13:42:51.224]                       return(sendCondition)
  [13:42:51.224]                     ns <- getNamespace("parallel")
  [13:42:51.224]                     if (exists("sendData", mode = "function", 
  [13:42:51.224]                       envir = ns)) {
  [13:42:51.224]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:51.224]                         envir = ns)
  [13:42:51.224]                       envir <- sys.frame(frame)
  [13:42:51.224]                       master <- NULL
  [13:42:51.224]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:51.224]                         !identical(envir, emptyenv())) {
  [13:42:51.224]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:51.224]                           inherits = FALSE)) {
  [13:42:51.224]                           master <- get("master", mode = "list", 
  [13:42:51.224]                             envir = envir, inherits = FALSE)
  [13:42:51.224]                           if (inherits(master, "SOCKnode")) {
  [13:42:51.224]                             sendCondition <<- function(cond) {
  [13:42:51.224]                               data <- list(type = "VALUE", value = cond, 
  [13:42:51.224]                                 success = TRUE)
  [13:42:51.224]                               parallel_sendData(master, data)
  [13:42:51.224]                             }
  [13:42:51.224]                             return(sendCondition)
  [13:42:51.224]                           }
  [13:42:51.224]                         }
  [13:42:51.224]                         frame <- frame + 1L
  [13:42:51.224]                         envir <- sys.frame(frame)
  [13:42:51.224]                       }
  [13:42:51.224]                     }
  [13:42:51.224]                     sendCondition <<- function(cond) NULL
  [13:42:51.224]                   }
  [13:42:51.224]                 })
  [13:42:51.224]                 withCallingHandlers({
  [13:42:51.224]                   NA
  [13:42:51.224]                 }, immediateCondition = function(cond) {
  [13:42:51.224]                   sendCondition <- ...future.sendCondition()
  [13:42:51.224]                   sendCondition(cond)
  [13:42:51.224]                   muffleCondition <- function (cond) 
  [13:42:51.224]                   {
  [13:42:51.224]                     inherits <- base::inherits
  [13:42:51.224]                     invokeRestart <- base::invokeRestart
  [13:42:51.224]                     muffled <- FALSE
  [13:42:51.224]                     if (inherits(cond, "message")) {
  [13:42:51.224]                       invokeRestart("muffleMessage")
  [13:42:51.224]                       muffled <- TRUE
  [13:42:51.224]                     }
  [13:42:51.224]                     else if (inherits(cond, "warning")) {
  [13:42:51.224]                       invokeRestart("muffleWarning")
  [13:42:51.224]                       muffled <- TRUE
  [13:42:51.224]                     }
  [13:42:51.224]                     else if (inherits(cond, "condition")) {
  [13:42:51.224]                       computeRestarts <- base::computeRestarts
  [13:42:51.224]                       grepl <- base::grepl
  [13:42:51.224]                       is.null <- base::is.null
  [13:42:51.224]                       restarts <- computeRestarts(cond)
  [13:42:51.224]                       for (restart in restarts) {
  [13:42:51.224]                         name <- restart$name
  [13:42:51.224]                         if (is.null(name)) 
  [13:42:51.224]                           next
  [13:42:51.224]                         if (!grepl("^muffle", name)) 
  [13:42:51.224]                           next
  [13:42:51.224]                         invokeRestart(restart)
  [13:42:51.224]                         muffled <- TRUE
  [13:42:51.224]                         break
  [13:42:51.224]                       }
  [13:42:51.224]                     }
  [13:42:51.224]                     invisible(muffled)
  [13:42:51.224]                   }
  [13:42:51.224]                   muffleCondition(cond)
  [13:42:51.224]                 })
  [13:42:51.224]             }))
  [13:42:51.224]             future::FutureResult(value = ...future.value$value, 
  [13:42:51.224]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.224]                   ...future.rng), started = ...future.startTime, 
  [13:42:51.224]                 version = "1.8")
  [13:42:51.224]         }, condition = base::local({
  [13:42:51.224]             c <- base::c
  [13:42:51.224]             inherits <- base::inherits
  [13:42:51.224]             invokeRestart <- base::invokeRestart
  [13:42:51.224]             length <- base::length
  [13:42:51.224]             list <- base::list
  [13:42:51.224]             seq.int <- base::seq.int
  [13:42:51.224]             signalCondition <- base::signalCondition
  [13:42:51.224]             sys.calls <- base::sys.calls
  [13:42:51.224]             Sys.time <- base::Sys.time
  [13:42:51.224]             `[[` <- base::`[[`
  [13:42:51.224]             `+` <- base::`+`
  [13:42:51.224]             `<<-` <- base::`<<-`
  [13:42:51.224]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:51.224]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:51.224]                   3L)]
  [13:42:51.224]             }
  [13:42:51.224]             function(cond) {
  [13:42:51.224]                 if (inherits(cond, "error")) {
  [13:42:51.224]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.224]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:51.224]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:51.224]                   signalCondition(cond)
  [13:42:51.224]                 }
  [13:42:51.224]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:51.224]                 ))) {
  [13:42:51.224]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:51.224]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.224]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:51.224]                   if (!signal) {
  [13:42:51.224]                     muffleCondition <- function (cond) 
  [13:42:51.224]                     {
  [13:42:51.224]                       inherits <- base::inherits
  [13:42:51.224]                       invokeRestart <- base::invokeRestart
  [13:42:51.224]                       muffled <- FALSE
  [13:42:51.224]                       if (inherits(cond, "message")) {
  [13:42:51.224]                         invokeRestart("muffleMessage")
  [13:42:51.224]                         muffled <- TRUE
  [13:42:51.224]                       }
  [13:42:51.224]                       else if (inherits(cond, "warning")) {
  [13:42:51.224]                         invokeRestart("muffleWarning")
  [13:42:51.224]                         muffled <- TRUE
  [13:42:51.224]                       }
  [13:42:51.224]                       else if (inherits(cond, "condition")) {
  [13:42:51.224]                         computeRestarts <- base::computeRestarts
  [13:42:51.224]                         grepl <- base::grepl
  [13:42:51.224]                         is.null <- base::is.null
  [13:42:51.224]                         restarts <- computeRestarts(cond)
  [13:42:51.224]                         for (restart in restarts) {
  [13:42:51.224]                           name <- restart$name
  [13:42:51.224]                           if (is.null(name)) 
  [13:42:51.224]                             next
  [13:42:51.224]                           if (!grepl("^muffle", name)) 
  [13:42:51.224]                             next
  [13:42:51.224]                           invokeRestart(restart)
  [13:42:51.224]                           muffled <- TRUE
  [13:42:51.224]                           break
  [13:42:51.224]                         }
  [13:42:51.224]                       }
  [13:42:51.224]                       invisible(muffled)
  [13:42:51.224]                     }
  [13:42:51.224]                     muffleCondition(cond)
  [13:42:51.224]                   }
  [13:42:51.224]                 }
  [13:42:51.224]             }
  [13:42:51.224]         }))
  [13:42:51.224]     }, error = function(ex) {
  [13:42:51.224]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:51.224]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.224]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:51.224]     }, finally = {
  [13:42:51.224]         {
  [13:42:51.224]             {
  [13:42:51.224]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:51.224]             }
  [13:42:51.224]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:51.224]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.224]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:51.224]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.224]                 ...) 
  [13:42:51.224]             {
  [13:42:51.224]                 if (substitute) 
  [13:42:51.224]                   expr <- substitute(expr)
  [13:42:51.224]                 if (is.function(workers)) 
  [13:42:51.224]                   workers <- workers()
  [13:42:51.224]                 workers <- as.integer(workers)
  [13:42:51.224]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:51.224]                   workers >= 1)
  [13:42:51.224]                 if (workers == 1L) {
  [13:42:51.224]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:51.224]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:51.224]                     local = TRUE, label = label, ...))
  [13:42:51.224]                 }
  [13:42:51.224]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:51.224]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:51.224]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.224]                   globals = globals, persistent = persistent, 
  [13:42:51.224]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:51.224]                   label = label, ...)
  [13:42:51.224]                 if (!future$lazy) 
  [13:42:51.224]                   future <- run(future)
  [13:42:51.224]                 invisible(future)
  [13:42:51.224]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:51.224]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:51.224]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:42:51.224]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:42:51.224]                 label = NULL, ...) 
  [13:42:51.224]             {
  [13:42:51.224]                 if (substitute) 
  [13:42:51.224]                   expr <- substitute(expr)
  [13:42:51.224]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.224]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.224]                   globals = globals, persistent = persistent, 
  [13:42:51.224]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.224]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.224]                   label = label, ...)
  [13:42:51.224]                 if (!future$lazy) 
  [13:42:51.224]                   future <- run(future)
  [13:42:51.224]                 invisible(future)
  [13:42:51.224]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.224]         }
  [13:42:51.224]         base::options(...future.oldOptions)
  [13:42:51.224]     })
  [13:42:51.224]     Sys.time
  [13:42:51.224]     if (base::is.na(TRUE)) {
  [13:42:51.224]     }
  [13:42:51.224]     else {
  [13:42:51.224]         base::sink(type = "output", split = FALSE)
  [13:42:51.224]         if (TRUE) {
  [13:42:51.224]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:51.224]         }
  [13:42:51.224]         else {
  [13:42:51.224]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:51.224]         }
  [13:42:51.224]         base::close(...future.stdout)
  [13:42:51.224]         ...future.stdout <- NULL
  [13:42:51.224]     }
  [13:42:51.224]     ...future.result$conditions <- ...future.conditions
  [13:42:51.224]     ...future.result
  [13:42:51.224] }
  [13:42:51.253] MultisessionFuture started
  [13:42:51.253] result() for ClusterFuture ...
  [13:42:51.254] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:51.254] - Validating connection of MultisessionFuture
  [13:42:51.533] - received message: FutureResult
  [13:42:51.534] - Received FutureResult
  [13:42:51.534] - Erased future from FutureRegistry
  [13:42:51.534] result() for ClusterFuture ...
  [13:42:51.535] - result already collected: FutureResult
  [13:42:51.535] result() for ClusterFuture ... done
  [13:42:51.536] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:51.536] result() for ClusterFuture ... done
  [13:42:51.536] result() for ClusterFuture ...
  [13:42:51.537] - result already collected: FutureResult
  [13:42:51.537] result() for ClusterFuture ... done
  [13:42:51.537] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:42:51.538] plan(): nbrOfWorkers() = 2
  [13:42:51.539] doFuture() ...
  [13:42:51.544] - dummy globals (as locals): [2] 'a', 'b'
  [13:42:51.545] - R expression:
  [13:42:51.545] {
  [13:42:51.545]     doFuture::registerDoFuture()
  [13:42:51.545]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:51.545]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:51.545]         {
  [13:42:51.545]             a <- NULL
  [13:42:51.545]             b <- NULL
  [13:42:51.545]         }
  [13:42:51.545]         ...future.env <- environment()
  [13:42:51.545]         local({
  [13:42:51.545]             for (name in names(...future.x_jj)) {
  [13:42:51.545]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:51.545]                   inherits = FALSE)
  [13:42:51.545]             }
  [13:42:51.545]         })
  [13:42:51.545]         tryCatch({
  [13:42:51.545]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:51.545]                 plan = future::plan("next"))
  [13:42:51.545]         }, error = identity)
  [13:42:51.545]     })
  [13:42:51.545] }
  [13:42:51.546] - identifying globals and packages ...
  [13:42:51.555] getGlobalsAndPackages() ...
  [13:42:51.555] Searching for globals...
  [13:42:51.570] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:42:51.571] Searching for globals ... DONE
  [13:42:51.571] Resolving globals: FALSE
  [13:42:51.573] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:42:51.573] - globals: [1] '...future.x_ii'
  [13:42:51.573] 
  [13:42:51.574] getGlobalsAndPackages() ... DONE
  [13:42:51.574] List of 1
  [13:42:51.574]  $ ...future.x_ii: NULL
  [13:42:51.574]  - attr(*, "where")=List of 1
  [13:42:51.574]   ..$ ...future.x_ii:<environment: 0x5617cb66cb28> 
  [13:42:51.574]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:51.574]  - attr(*, "resolved")= logi FALSE
  [13:42:51.574]  - attr(*, "total_size")= num 0
  [13:42:51.596]   - R expression:
  [13:42:51.596] {
  [13:42:51.596]     doFuture::registerDoFuture()
  [13:42:51.596]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:51.596]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:51.596]         {
  [13:42:51.596]             a <- NULL
  [13:42:51.596]             b <- NULL
  [13:42:51.596]         }
  [13:42:51.596]         ...future.env <- environment()
  [13:42:51.596]         local({
  [13:42:51.596]             for (name in names(...future.x_jj)) {
  [13:42:51.596]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:42:51.596]                   inherits = FALSE)
  [13:42:51.596]             }
  [13:42:51.596]         })
  [13:42:51.596]         tryCatch({
  [13:42:51.596]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:51.596]                 plan = future::plan("next"))
  [13:42:51.596]         }, error = identity)
  [13:42:51.596]     })
  [13:42:51.596] }
  [13:42:51.597]   - globals: [1] '...future.x_ii'
  [13:42:51.598] List of 1
  [13:42:51.598]  $ ...future.x_ii: NULL
  [13:42:51.598]  - attr(*, "where")=List of 1
  [13:42:51.598]   ..$ ...future.x_ii:<environment: 0x5617cb66cb28> 
  [13:42:51.598]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:42:51.598]  - attr(*, "resolved")= logi FALSE
  [13:42:51.598]  - attr(*, "total_size")= num 0
  [13:42:51.620]   - packages: [1] 'doFuture'
  [13:42:51.621] - identifying globals and packages ... DONE
  [13:42:51.622] Number of chunks: 2
  [13:42:51.622] Number of futures (= number of chunks): 2
  [13:42:51.623] Launching 2 futures (chunks) ...
  [13:42:51.623] Chunk #1 of 2 ...
  [13:42:51.624]  - Finding globals in 'args_list' chunk #1 ...
  [13:42:51.624] getGlobalsAndPackages() ...
  [13:42:51.624] Searching for globals...
  [13:42:51.625] 
  [13:42:51.626] Searching for globals ... DONE
  [13:42:51.626] - globals: [0] <none>
  [13:42:51.626] getGlobalsAndPackages() ... DONE
  [13:42:51.627] 
  [13:42:51.627] 
  [13:42:51.627]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:42:51.651] getGlobalsAndPackages() ...
  [13:42:51.652] - globals passed as-is: [1] '...future.x_ii'
  [13:42:51.652] Resolving globals: FALSE
  [13:42:51.653] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:51.654] - globals: [1] '...future.x_ii'
  [13:42:51.654] 
  [13:42:51.654] getGlobalsAndPackages() ... DONE
  [13:42:51.659] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:51.659] Packages needed by future strategies (n = 1): 'future'
  [13:42:51.682] {
  [13:42:51.682]     {
  [13:42:51.682]         ...future.startTime <- base::Sys.time()
  [13:42:51.682]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:51.682]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:51.682]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:51.682]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:51.682]             future.resolve.recursive = NULL, width = 80L)
  [13:42:51.682]         {
  [13:42:51.682]             {
  [13:42:51.682]                 {
  [13:42:51.682]                   {
  [13:42:51.682]                     has_future <- base::requireNamespace("future", 
  [13:42:51.682]                       quietly = TRUE)
  [13:42:51.682]                     version <- if (has_future) 
  [13:42:51.682]                       utils::packageVersion("future")
  [13:42:51.682]                     else NULL
  [13:42:51.682]                     if (!has_future || version < "1.8.0") {
  [13:42:51.682]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:51.682]                         "", base::R.version$version.string), 
  [13:42:51.682]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:51.682]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:51.682]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:51.682]                           "release", "version")], collapse = " "), 
  [13:42:51.682]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:51.682]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:51.682]                         info)
  [13:42:51.682]                       info <- base::paste(info, collapse = "; ")
  [13:42:51.682]                       if (!has_future) {
  [13:42:51.682]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:51.682]                           info)
  [13:42:51.682]                       }
  [13:42:51.682]                       else {
  [13:42:51.682]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:51.682]                           info, version)
  [13:42:51.682]                       }
  [13:42:51.682]                       base::stop(msg)
  [13:42:51.682]                     }
  [13:42:51.682]                   }
  [13:42:51.682]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:51.682]                   base::options(mc.cores = 1L)
  [13:42:51.682]                 }
  [13:42:51.682]                 base::local({
  [13:42:51.682]                   for (pkg in c("doFuture", "future")) {
  [13:42:51.682]                     base::loadNamespace(pkg)
  [13:42:51.682]                     base::library(pkg, character.only = TRUE)
  [13:42:51.682]                   }
  [13:42:51.682]                 })
  [13:42:51.682]             }
  [13:42:51.682]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:51.682]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.682]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:42:51.682]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:42:51.682]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.682]                 ...) 
  [13:42:51.682]             {
  [13:42:51.682]                 if (substitute) 
  [13:42:51.682]                   expr <- substitute(expr)
  [13:42:51.682]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.682]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.682]                   globals = globals, persistent = persistent, 
  [13:42:51.682]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.682]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.682]                   label = label, ...)
  [13:42:51.682]                 if (!future$lazy) 
  [13:42:51.682]                   future <- run(future)
  [13:42:51.682]                 invisible(future)
  [13:42:51.682]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.682]         }
  [13:42:51.682]     }
  [13:42:51.682]     if (base::is.na(TRUE)) {
  [13:42:51.682]     }
  [13:42:51.682]     else {
  [13:42:51.682]         if (TRUE) {
  [13:42:51.682]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:51.682]                 open = "w")
  [13:42:51.682]         }
  [13:42:51.682]         else {
  [13:42:51.682]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:51.682]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:51.682]         }
  [13:42:51.682]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:51.682]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:51.682]             base::sink(type = "output", split = FALSE)
  [13:42:51.682]             base::close(...future.stdout)
  [13:42:51.682]         }, add = TRUE)
  [13:42:51.682]     }
  [13:42:51.682]     ...future.frame <- base::sys.nframe()
  [13:42:51.682]     ...future.conditions <- base::list()
  [13:42:51.682]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:51.682]     ...future.result <- base::tryCatch({
  [13:42:51.682]         base::withCallingHandlers({
  [13:42:51.682]             ...future.value <- base::withVisible(base::local({
  [13:42:51.682]                 ...future.sendCondition <- local({
  [13:42:51.682]                   sendCondition <- NULL
  [13:42:51.682]                   function(frame = 1L) {
  [13:42:51.682]                     if (is.function(sendCondition)) 
  [13:42:51.682]                       return(sendCondition)
  [13:42:51.682]                     ns <- getNamespace("parallel")
  [13:42:51.682]                     if (exists("sendData", mode = "function", 
  [13:42:51.682]                       envir = ns)) {
  [13:42:51.682]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:51.682]                         envir = ns)
  [13:42:51.682]                       envir <- sys.frame(frame)
  [13:42:51.682]                       master <- NULL
  [13:42:51.682]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:51.682]                         !identical(envir, emptyenv())) {
  [13:42:51.682]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:51.682]                           inherits = FALSE)) {
  [13:42:51.682]                           master <- get("master", mode = "list", 
  [13:42:51.682]                             envir = envir, inherits = FALSE)
  [13:42:51.682]                           if (inherits(master, "SOCKnode")) {
  [13:42:51.682]                             sendCondition <<- function(cond) {
  [13:42:51.682]                               data <- list(type = "VALUE", value = cond, 
  [13:42:51.682]                                 success = TRUE)
  [13:42:51.682]                               parallel_sendData(master, data)
  [13:42:51.682]                             }
  [13:42:51.682]                             return(sendCondition)
  [13:42:51.682]                           }
  [13:42:51.682]                         }
  [13:42:51.682]                         frame <- frame + 1L
  [13:42:51.682]                         envir <- sys.frame(frame)
  [13:42:51.682]                       }
  [13:42:51.682]                     }
  [13:42:51.682]                     sendCondition <<- function(cond) NULL
  [13:42:51.682]                   }
  [13:42:51.682]                 })
  [13:42:51.682]                 withCallingHandlers({
  [13:42:51.682]                   {
  [13:42:51.682]                     doFuture::registerDoFuture()
  [13:42:51.682]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:51.682]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:51.682]                       {
  [13:42:51.682]                         a <- NULL
  [13:42:51.682]                         b <- NULL
  [13:42:51.682]                       }
  [13:42:51.682]                       ...future.env <- environment()
  [13:42:51.682]                       local({
  [13:42:51.682]                         for (name in names(...future.x_jj)) {
  [13:42:51.682]                           assign(name, ...future.x_jj[[name]], 
  [13:42:51.682]                             envir = ...future.env, inherits = FALSE)
  [13:42:51.682]                         }
  [13:42:51.682]                       })
  [13:42:51.682]                       tryCatch({
  [13:42:51.682]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:51.682]                           plan = future::plan("next"))
  [13:42:51.682]                       }, error = identity)
  [13:42:51.682]                     })
  [13:42:51.682]                   }
  [13:42:51.682]                 }, immediateCondition = function(cond) {
  [13:42:51.682]                   sendCondition <- ...future.sendCondition()
  [13:42:51.682]                   sendCondition(cond)
  [13:42:51.682]                   muffleCondition <- function (cond) 
  [13:42:51.682]                   {
  [13:42:51.682]                     inherits <- base::inherits
  [13:42:51.682]                     invokeRestart <- base::invokeRestart
  [13:42:51.682]                     muffled <- FALSE
  [13:42:51.682]                     if (inherits(cond, "message")) {
  [13:42:51.682]                       invokeRestart("muffleMessage")
  [13:42:51.682]                       muffled <- TRUE
  [13:42:51.682]                     }
  [13:42:51.682]                     else if (inherits(cond, "warning")) {
  [13:42:51.682]                       invokeRestart("muffleWarning")
  [13:42:51.682]                       muffled <- TRUE
  [13:42:51.682]                     }
  [13:42:51.682]                     else if (inherits(cond, "condition")) {
  [13:42:51.682]                       computeRestarts <- base::computeRestarts
  [13:42:51.682]                       grepl <- base::grepl
  [13:42:51.682]                       is.null <- base::is.null
  [13:42:51.682]                       restarts <- computeRestarts(cond)
  [13:42:51.682]                       for (restart in restarts) {
  [13:42:51.682]                         name <- restart$name
  [13:42:51.682]                         if (is.null(name)) 
  [13:42:51.682]                           next
  [13:42:51.682]                         if (!grepl("^muffle", name)) 
  [13:42:51.682]                           next
  [13:42:51.682]                         invokeRestart(restart)
  [13:42:51.682]                         muffled <- TRUE
  [13:42:51.682]                         break
  [13:42:51.682]                       }
  [13:42:51.682]                     }
  [13:42:51.682]                     invisible(muffled)
  [13:42:51.682]                   }
  [13:42:51.682]                   muffleCondition(cond)
  [13:42:51.682]                 })
  [13:42:51.682]             }))
  [13:42:51.682]             future::FutureResult(value = ...future.value$value, 
  [13:42:51.682]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.682]                   ...future.rng), started = ...future.startTime, 
  [13:42:51.682]                 version = "1.8")
  [13:42:51.682]         }, condition = base::local({
  [13:42:51.682]             c <- base::c
  [13:42:51.682]             inherits <- base::inherits
  [13:42:51.682]             invokeRestart <- base::invokeRestart
  [13:42:51.682]             length <- base::length
  [13:42:51.682]             list <- base::list
  [13:42:51.682]             seq.int <- base::seq.int
  [13:42:51.682]             signalCondition <- base::signalCondition
  [13:42:51.682]             sys.calls <- base::sys.calls
  [13:42:51.682]             Sys.time <- base::Sys.time
  [13:42:51.682]             `[[` <- base::`[[`
  [13:42:51.682]             `+` <- base::`+`
  [13:42:51.682]             `<<-` <- base::`<<-`
  [13:42:51.682]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:51.682]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:51.682]                   3L)]
  [13:42:51.682]             }
  [13:42:51.682]             function(cond) {
  [13:42:51.682]                 if (inherits(cond, "error")) {
  [13:42:51.682]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.682]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:51.682]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:51.682]                   signalCondition(cond)
  [13:42:51.682]                 }
  [13:42:51.682]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:51.682]                 ))) {
  [13:42:51.682]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:51.682]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.682]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:51.682]                   if (!signal) {
  [13:42:51.682]                     muffleCondition <- function (cond) 
  [13:42:51.682]                     {
  [13:42:51.682]                       inherits <- base::inherits
  [13:42:51.682]                       invokeRestart <- base::invokeRestart
  [13:42:51.682]                       muffled <- FALSE
  [13:42:51.682]                       if (inherits(cond, "message")) {
  [13:42:51.682]                         invokeRestart("muffleMessage")
  [13:42:51.682]                         muffled <- TRUE
  [13:42:51.682]                       }
  [13:42:51.682]                       else if (inherits(cond, "warning")) {
  [13:42:51.682]                         invokeRestart("muffleWarning")
  [13:42:51.682]                         muffled <- TRUE
  [13:42:51.682]                       }
  [13:42:51.682]                       else if (inherits(cond, "condition")) {
  [13:42:51.682]                         computeRestarts <- base::computeRestarts
  [13:42:51.682]                         grepl <- base::grepl
  [13:42:51.682]                         is.null <- base::is.null
  [13:42:51.682]                         restarts <- computeRestarts(cond)
  [13:42:51.682]                         for (restart in restarts) {
  [13:42:51.682]                           name <- restart$name
  [13:42:51.682]                           if (is.null(name)) 
  [13:42:51.682]                             next
  [13:42:51.682]                           if (!grepl("^muffle", name)) 
  [13:42:51.682]                             next
  [13:42:51.682]                           invokeRestart(restart)
  [13:42:51.682]                           muffled <- TRUE
  [13:42:51.682]                           break
  [13:42:51.682]                         }
  [13:42:51.682]                       }
  [13:42:51.682]                       invisible(muffled)
  [13:42:51.682]                     }
  [13:42:51.682]                     muffleCondition(cond)
  [13:42:51.682]                   }
  [13:42:51.682]                 }
  [13:42:51.682]             }
  [13:42:51.682]         }))
  [13:42:51.682]     }, error = function(ex) {
  [13:42:51.682]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:51.682]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.682]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:51.682]     }, finally = {
  [13:42:51.682]         {
  [13:42:51.682]             {
  [13:42:51.682]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:51.682]             }
  [13:42:51.682]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:51.682]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.682]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:51.682]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.682]                 ...) 
  [13:42:51.682]             {
  [13:42:51.682]                 if (substitute) 
  [13:42:51.682]                   expr <- substitute(expr)
  [13:42:51.682]                 if (is.function(workers)) 
  [13:42:51.682]                   workers <- workers()
  [13:42:51.682]                 workers <- as.integer(workers)
  [13:42:51.682]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:51.682]                   workers >= 1)
  [13:42:51.682]                 if (workers == 1L) {
  [13:42:51.682]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:51.682]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:51.682]                     local = TRUE, label = label, ...))
  [13:42:51.682]                 }
  [13:42:51.682]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:51.682]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:51.682]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.682]                   globals = globals, persistent = persistent, 
  [13:42:51.682]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:51.682]                   label = label, ...)
  [13:42:51.682]                 if (!future$lazy) 
  [13:42:51.682]                   future <- run(future)
  [13:42:51.682]                 invisible(future)
  [13:42:51.682]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:51.682]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:51.682]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:42:51.682]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:42:51.682]                 label = NULL, ...) 
  [13:42:51.682]             {
  [13:42:51.682]                 if (substitute) 
  [13:42:51.682]                   expr <- substitute(expr)
  [13:42:51.682]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.682]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.682]                   globals = globals, persistent = persistent, 
  [13:42:51.682]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.682]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.682]                   label = label, ...)
  [13:42:51.682]                 if (!future$lazy) 
  [13:42:51.682]                   future <- run(future)
  [13:42:51.682]                 invisible(future)
  [13:42:51.682]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.682]         }
  [13:42:51.682]         base::options(...future.oldOptions)
  [13:42:51.682]     })
  [13:42:51.682]     Sys.time
  [13:42:51.682]     if (base::is.na(TRUE)) {
  [13:42:51.682]     }
  [13:42:51.682]     else {
  [13:42:51.682]         base::sink(type = "output", split = FALSE)
  [13:42:51.682]         if (TRUE) {
  [13:42:51.682]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:51.682]         }
  [13:42:51.682]         else {
  [13:42:51.682]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:51.682]         }
  [13:42:51.682]         base::close(...future.stdout)
  [13:42:51.682]         ...future.stdout <- NULL
  [13:42:51.682]     }
  [13:42:51.682]     ...future.result$conditions <- ...future.conditions
  [13:42:51.682]     ...future.result
  [13:42:51.682] }
  [13:42:51.707] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:42:51.708] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:42:51.709] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:42:51.709] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:42:51.711] MultisessionFuture started
  [13:42:51.711] Chunk #1 of 2 ... DONE
  [13:42:51.711] Chunk #2 of 2 ...
  [13:42:51.712]  - Finding globals in 'args_list' chunk #2 ...
  [13:42:51.712] getGlobalsAndPackages() ...
  [13:42:51.712] Searching for globals...
  [13:42:51.713] 
  [13:42:51.714] Searching for globals ... DONE
  [13:42:51.714] - globals: [0] <none>
  [13:42:51.714] getGlobalsAndPackages() ... DONE
  [13:42:51.715] 
  [13:42:51.715] 
  [13:42:51.715]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:42:51.739] getGlobalsAndPackages() ...
  [13:42:51.740] - globals passed as-is: [1] '...future.x_ii'
  [13:42:51.740] Resolving globals: FALSE
  [13:42:51.741] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:42:51.742] - globals: [1] '...future.x_ii'
  [13:42:51.742] 
  [13:42:51.742] getGlobalsAndPackages() ... DONE
  [13:42:51.747] Packages needed by the future expression (n = 1): 'doFuture'
  [13:42:51.747] Packages needed by future strategies (n = 1): 'future'
  [13:42:51.794] {
  [13:42:51.794]     {
  [13:42:51.794]         ...future.startTime <- base::Sys.time()
  [13:42:51.794]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:42:51.794]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:42:51.794]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:42:51.794]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:42:51.794]             future.resolve.recursive = NULL, width = 80L)
  [13:42:51.794]         {
  [13:42:51.794]             {
  [13:42:51.794]                 {
  [13:42:51.794]                   {
  [13:42:51.794]                     has_future <- base::requireNamespace("future", 
  [13:42:51.794]                       quietly = TRUE)
  [13:42:51.794]                     version <- if (has_future) 
  [13:42:51.794]                       utils::packageVersion("future")
  [13:42:51.794]                     else NULL
  [13:42:51.794]                     if (!has_future || version < "1.8.0") {
  [13:42:51.794]                       info <- base::c(r_version = base::gsub("R version ", 
  [13:42:51.794]                         "", base::R.version$version.string), 
  [13:42:51.794]                         platform = base::sprintf("%s (%s-bit)", 
  [13:42:51.794]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:42:51.794]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:42:51.794]                           "release", "version")], collapse = " "), 
  [13:42:51.794]                         hostname = base::Sys.info()[["nodename"]])
  [13:42:51.794]                       info <- base::sprintf("%s: %s", base::names(info), 
  [13:42:51.794]                         info)
  [13:42:51.794]                       info <- base::paste(info, collapse = "; ")
  [13:42:51.794]                       if (!has_future) {
  [13:42:51.794]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:42:51.794]                           info)
  [13:42:51.794]                       }
  [13:42:51.794]                       else {
  [13:42:51.794]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:42:51.794]                           info, version)
  [13:42:51.794]                       }
  [13:42:51.794]                       base::stop(msg)
  [13:42:51.794]                     }
  [13:42:51.794]                   }
  [13:42:51.794]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [13:42:51.794]                   base::options(mc.cores = 1L)
  [13:42:51.794]                 }
  [13:42:51.794]                 base::local({
  [13:42:51.794]                   for (pkg in c("doFuture", "future")) {
  [13:42:51.794]                     base::loadNamespace(pkg)
  [13:42:51.794]                     base::library(pkg, character.only = TRUE)
  [13:42:51.794]                   }
  [13:42:51.794]                 })
  [13:42:51.794]             }
  [13:42:51.794]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:42:51.794]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.794]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:42:51.794]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:42:51.794]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.794]                 ...) 
  [13:42:51.794]             {
  [13:42:51.794]                 if (substitute) 
  [13:42:51.794]                   expr <- substitute(expr)
  [13:42:51.794]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.794]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.794]                   globals = globals, persistent = persistent, 
  [13:42:51.794]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.794]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.794]                   label = label, ...)
  [13:42:51.794]                 if (!future$lazy) 
  [13:42:51.794]                   future <- run(future)
  [13:42:51.794]                 invisible(future)
  [13:42:51.794]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.794]         }
  [13:42:51.794]     }
  [13:42:51.794]     if (base::is.na(TRUE)) {
  [13:42:51.794]     }
  [13:42:51.794]     else {
  [13:42:51.794]         if (TRUE) {
  [13:42:51.794]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:42:51.794]                 open = "w")
  [13:42:51.794]         }
  [13:42:51.794]         else {
  [13:42:51.794]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:42:51.794]                 windows = "NUL", "/dev/null"), open = "w")
  [13:42:51.794]         }
  [13:42:51.794]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:42:51.794]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:42:51.794]             base::sink(type = "output", split = FALSE)
  [13:42:51.794]             base::close(...future.stdout)
  [13:42:51.794]         }, add = TRUE)
  [13:42:51.794]     }
  [13:42:51.794]     ...future.frame <- base::sys.nframe()
  [13:42:51.794]     ...future.conditions <- base::list()
  [13:42:51.794]     ...future.rng <- base::globalenv()$.Random.seed
  [13:42:51.794]     ...future.result <- base::tryCatch({
  [13:42:51.794]         base::withCallingHandlers({
  [13:42:51.794]             ...future.value <- base::withVisible(base::local({
  [13:42:51.794]                 ...future.sendCondition <- local({
  [13:42:51.794]                   sendCondition <- NULL
  [13:42:51.794]                   function(frame = 1L) {
  [13:42:51.794]                     if (is.function(sendCondition)) 
  [13:42:51.794]                       return(sendCondition)
  [13:42:51.794]                     ns <- getNamespace("parallel")
  [13:42:51.794]                     if (exists("sendData", mode = "function", 
  [13:42:51.794]                       envir = ns)) {
  [13:42:51.794]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:42:51.794]                         envir = ns)
  [13:42:51.794]                       envir <- sys.frame(frame)
  [13:42:51.794]                       master <- NULL
  [13:42:51.794]                       while (!identical(envir, .GlobalEnv) && 
  [13:42:51.794]                         !identical(envir, emptyenv())) {
  [13:42:51.794]                         if (exists("master", mode = "list", envir = envir, 
  [13:42:51.794]                           inherits = FALSE)) {
  [13:42:51.794]                           master <- get("master", mode = "list", 
  [13:42:51.794]                             envir = envir, inherits = FALSE)
  [13:42:51.794]                           if (inherits(master, "SOCKnode")) {
  [13:42:51.794]                             sendCondition <<- function(cond) {
  [13:42:51.794]                               data <- list(type = "VALUE", value = cond, 
  [13:42:51.794]                                 success = TRUE)
  [13:42:51.794]                               parallel_sendData(master, data)
  [13:42:51.794]                             }
  [13:42:51.794]                             return(sendCondition)
  [13:42:51.794]                           }
  [13:42:51.794]                         }
  [13:42:51.794]                         frame <- frame + 1L
  [13:42:51.794]                         envir <- sys.frame(frame)
  [13:42:51.794]                       }
  [13:42:51.794]                     }
  [13:42:51.794]                     sendCondition <<- function(cond) NULL
  [13:42:51.794]                   }
  [13:42:51.794]                 })
  [13:42:51.794]                 withCallingHandlers({
  [13:42:51.794]                   {
  [13:42:51.794]                     doFuture::registerDoFuture()
  [13:42:51.794]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:42:51.794]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:42:51.794]                       {
  [13:42:51.794]                         a <- NULL
  [13:42:51.794]                         b <- NULL
  [13:42:51.794]                       }
  [13:42:51.794]                       ...future.env <- environment()
  [13:42:51.794]                       local({
  [13:42:51.794]                         for (name in names(...future.x_jj)) {
  [13:42:51.794]                           assign(name, ...future.x_jj[[name]], 
  [13:42:51.794]                             envir = ...future.env, inherits = FALSE)
  [13:42:51.794]                         }
  [13:42:51.794]                       })
  [13:42:51.794]                       tryCatch({
  [13:42:51.794]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:42:51.794]                           plan = future::plan("next"))
  [13:42:51.794]                       }, error = identity)
  [13:42:51.794]                     })
  [13:42:51.794]                   }
  [13:42:51.794]                 }, immediateCondition = function(cond) {
  [13:42:51.794]                   sendCondition <- ...future.sendCondition()
  [13:42:51.794]                   sendCondition(cond)
  [13:42:51.794]                   muffleCondition <- function (cond) 
  [13:42:51.794]                   {
  [13:42:51.794]                     inherits <- base::inherits
  [13:42:51.794]                     invokeRestart <- base::invokeRestart
  [13:42:51.794]                     muffled <- FALSE
  [13:42:51.794]                     if (inherits(cond, "message")) {
  [13:42:51.794]                       invokeRestart("muffleMessage")
  [13:42:51.794]                       muffled <- TRUE
  [13:42:51.794]                     }
  [13:42:51.794]                     else if (inherits(cond, "warning")) {
  [13:42:51.794]                       invokeRestart("muffleWarning")
  [13:42:51.794]                       muffled <- TRUE
  [13:42:51.794]                     }
  [13:42:51.794]                     else if (inherits(cond, "condition")) {
  [13:42:51.794]                       computeRestarts <- base::computeRestarts
  [13:42:51.794]                       grepl <- base::grepl
  [13:42:51.794]                       is.null <- base::is.null
  [13:42:51.794]                       restarts <- computeRestarts(cond)
  [13:42:51.794]                       for (restart in restarts) {
  [13:42:51.794]                         name <- restart$name
  [13:42:51.794]                         if (is.null(name)) 
  [13:42:51.794]                           next
  [13:42:51.794]                         if (!grepl("^muffle", name)) 
  [13:42:51.794]                           next
  [13:42:51.794]                         invokeRestart(restart)
  [13:42:51.794]                         muffled <- TRUE
  [13:42:51.794]                         break
  [13:42:51.794]                       }
  [13:42:51.794]                     }
  [13:42:51.794]                     invisible(muffled)
  [13:42:51.794]                   }
  [13:42:51.794]                   muffleCondition(cond)
  [13:42:51.794]                 })
  [13:42:51.794]             }))
  [13:42:51.794]             future::FutureResult(value = ...future.value$value, 
  [13:42:51.794]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.794]                   ...future.rng), started = ...future.startTime, 
  [13:42:51.794]                 version = "1.8")
  [13:42:51.794]         }, condition = base::local({
  [13:42:51.794]             c <- base::c
  [13:42:51.794]             inherits <- base::inherits
  [13:42:51.794]             invokeRestart <- base::invokeRestart
  [13:42:51.794]             length <- base::length
  [13:42:51.794]             list <- base::list
  [13:42:51.794]             seq.int <- base::seq.int
  [13:42:51.794]             signalCondition <- base::signalCondition
  [13:42:51.794]             sys.calls <- base::sys.calls
  [13:42:51.794]             Sys.time <- base::Sys.time
  [13:42:51.794]             `[[` <- base::`[[`
  [13:42:51.794]             `+` <- base::`+`
  [13:42:51.794]             `<<-` <- base::`<<-`
  [13:42:51.794]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:42:51.794]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:42:51.794]                   3L)]
  [13:42:51.794]             }
  [13:42:51.794]             function(cond) {
  [13:42:51.794]                 if (inherits(cond, "error")) {
  [13:42:51.794]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.794]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:42:51.794]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:42:51.794]                   signalCondition(cond)
  [13:42:51.794]                 }
  [13:42:51.794]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:42:51.794]                 ))) {
  [13:42:51.794]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:42:51.794]                   ...future.conditions[[length(...future.conditions) + 
  [13:42:51.794]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:42:51.794]                   if (!signal) {
  [13:42:51.794]                     muffleCondition <- function (cond) 
  [13:42:51.794]                     {
  [13:42:51.794]                       inherits <- base::inherits
  [13:42:51.794]                       invokeRestart <- base::invokeRestart
  [13:42:51.794]                       muffled <- FALSE
  [13:42:51.794]                       if (inherits(cond, "message")) {
  [13:42:51.794]                         invokeRestart("muffleMessage")
  [13:42:51.794]                         muffled <- TRUE
  [13:42:51.794]                       }
  [13:42:51.794]                       else if (inherits(cond, "warning")) {
  [13:42:51.794]                         invokeRestart("muffleWarning")
  [13:42:51.794]                         muffled <- TRUE
  [13:42:51.794]                       }
  [13:42:51.794]                       else if (inherits(cond, "condition")) {
  [13:42:51.794]                         computeRestarts <- base::computeRestarts
  [13:42:51.794]                         grepl <- base::grepl
  [13:42:51.794]                         is.null <- base::is.null
  [13:42:51.794]                         restarts <- computeRestarts(cond)
  [13:42:51.794]                         for (restart in restarts) {
  [13:42:51.794]                           name <- restart$name
  [13:42:51.794]                           if (is.null(name)) 
  [13:42:51.794]                             next
  [13:42:51.794]                           if (!grepl("^muffle", name)) 
  [13:42:51.794]                             next
  [13:42:51.794]                           invokeRestart(restart)
  [13:42:51.794]                           muffled <- TRUE
  [13:42:51.794]                           break
  [13:42:51.794]                         }
  [13:42:51.794]                       }
  [13:42:51.794]                       invisible(muffled)
  [13:42:51.794]                     }
  [13:42:51.794]                     muffleCondition(cond)
  [13:42:51.794]                   }
  [13:42:51.794]                 }
  [13:42:51.794]             }
  [13:42:51.794]         }))
  [13:42:51.794]     }, error = function(ex) {
  [13:42:51.794]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:42:51.794]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:42:51.794]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:42:51.794]     }, finally = {
  [13:42:51.794]         {
  [13:42:51.794]             {
  [13:42:51.794]                 base::options(mc.cores = ...future.mc.cores.old)
  [13:42:51.794]             }
  [13:42:51.794]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:42:51.794]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:42:51.794]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:42:51.794]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:42:51.794]                 ...) 
  [13:42:51.794]             {
  [13:42:51.794]                 if (substitute) 
  [13:42:51.794]                   expr <- substitute(expr)
  [13:42:51.794]                 if (is.function(workers)) 
  [13:42:51.794]                   workers <- workers()
  [13:42:51.794]                 workers <- as.integer(workers)
  [13:42:51.794]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:42:51.794]                   workers >= 1)
  [13:42:51.794]                 if (workers == 1L) {
  [13:42:51.794]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:42:51.794]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:42:51.794]                     local = TRUE, label = label, ...))
  [13:42:51.794]                 }
  [13:42:51.794]                 workers <- ClusterRegistry("start", workers = workers)
  [13:42:51.794]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:42:51.794]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.794]                   globals = globals, persistent = persistent, 
  [13:42:51.794]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:42:51.794]                   label = label, ...)
  [13:42:51.794]                 if (!future$lazy) 
  [13:42:51.794]                   future <- run(future)
  [13:42:51.794]                 invisible(future)
  [13:42:51.794]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:42:51.794]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:42:51.794]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [13:42:51.794]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [13:42:51.794]                 label = NULL, ...) 
  [13:42:51.794]             {
  [13:42:51.794]                 if (substitute) 
  [13:42:51.794]                   expr <- substitute(expr)
  [13:42:51.794]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:42:51.794]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:42:51.794]                   globals = globals, persistent = persistent, 
  [13:42:51.794]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:42:51.794]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:42:51.794]                   label = label, ...)
  [13:42:51.794]                 if (!future$lazy) 
  [13:42:51.794]                   future <- run(future)
  [13:42:51.794]                 invisible(future)
  [13:42:51.794]             }), .cleanup = FALSE, .init = FALSE)
  [13:42:51.794]         }
  [13:42:51.794]         base::options(...future.oldOptions)
  [13:42:51.794]     })
  [13:42:51.794]     Sys.time
  [13:42:51.794]     if (base::is.na(TRUE)) {
  [13:42:51.794]     }
  [13:42:51.794]     else {
  [13:42:51.794]         base::sink(type = "output", split = FALSE)
  [13:42:51.794]         if (TRUE) {
  [13:42:51.794]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:42:51.794]         }
  [13:42:51.794]         else {
  [13:42:51.794]             ...future.result["stdout"] <- base::list(NULL)
  [13:42:51.794]         }
  [13:42:51.794]         base::close(...future.stdout)
  [13:42:51.794]         ...future.stdout <- NULL
  [13:42:51.794]     }
  [13:42:51.794]     ...future.result$conditions <- ...future.conditions
  [13:42:51.794]     ...future.result
  [13:42:51.794] }
  [13:42:51.819] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:42:51.819] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:42:51.820] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:42:51.821] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:42:51.827] MultisessionFuture started
  [13:42:51.828] Chunk #2 of 2 ... DONE
  [13:42:51.828] Launching 2 futures (chunks) ... DONE
  [13:42:51.828] - resolving futures
  [13:42:51.829]   - gathering results & relaying conditions (except errors)
  [13:42:51.829] resolve() on list ...
  [13:42:51.829]  recursive: 0
  [13:42:51.829]  length: 2
  [13:42:51.830] 
  [13:42:51.994] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:51.994] - Validating connection of MultisessionFuture
  [13:42:52.035] - received message: FutureResult
  [13:42:52.035] - Received FutureResult
  [13:42:52.036] - Erased future from FutureRegistry
  [13:42:52.036] result() for ClusterFuture ...
  [13:42:52.037] - result already collected: FutureResult
  [13:42:52.037] result() for ClusterFuture ... done
  [13:42:52.037] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:52.037] Future #1
  [13:42:52.038] result() for ClusterFuture ...
  [13:42:52.038] - result already collected: FutureResult
  [13:42:52.038] result() for ClusterFuture ... done
  [13:42:52.039] result() for ClusterFuture ...
  [13:42:52.039] - result already collected: FutureResult
  [13:42:52.039] result() for ClusterFuture ... done
  [13:42:52.040] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [13:42:52.040] - nx: 2
  [13:42:52.040] - relay: TRUE
  [13:42:52.041] - stdout: TRUE
  [13:42:52.041] - signal: TRUE
  [13:42:52.041] - resignal: FALSE
  [13:42:52.041] - force: FALSE
  [13:42:52.042] - relayed: [n=2] FALSE, FALSE
  [13:42:52.042] - queued futures: [n=2] FALSE, FALSE
  [13:42:52.042]  - until=1
  [13:42:52.043]  - relaying element #1
  [13:42:52.043] result() for ClusterFuture ...
  [13:42:52.043] - result already collected: FutureResult
  [13:42:52.043] result() for ClusterFuture ... done
  [13:42:52.044] result() for ClusterFuture ...
  [13:42:52.044] - result already collected: FutureResult
  [13:42:52.044] result() for ClusterFuture ... done
  [13:42:52.045] result() for ClusterFuture ...
  [13:42:52.045] - result already collected: FutureResult
  [13:42:52.045] result() for ClusterFuture ... done
  [13:42:52.046] result() for ClusterFuture ...
  [13:42:52.046] - result already collected: FutureResult
  [13:42:52.046] result() for ClusterFuture ... done
  [13:42:52.047] - relayed: [n=2] TRUE, FALSE
  [13:42:52.047] - queued futures: [n=2] TRUE, FALSE
  [13:42:52.047] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [13:42:52.048]  length: 1 (resolved future 1)
  [13:42:52.196] receiveMessageFromWorker() for ClusterFuture ...
  [13:42:52.197] - Validating connection of MultisessionFuture
  [13:42:52.239] - received message: FutureResult
  [13:42:52.239] - Received FutureResult
  [13:42:52.240] - Erased future from FutureRegistry
  [13:42:52.240] result() for ClusterFuture ...
  [13:42:52.240] - result already collected: FutureResult
  [13:42:52.241] result() for ClusterFuture ... done
  [13:42:52.241] receiveMessageFromWorker() for ClusterFuture ... done
  [13:42:52.241] Future #2
  [13:42:52.242] result() for ClusterFuture ...
  [13:42:52.242] - result already collected: FutureResult
  [13:42:52.242] result() for ClusterFuture ... done
  [13:42:52.243] result() for ClusterFuture ...
  [13:42:52.243] - result already collected: FutureResult
  [13:42:52.243] result() for ClusterFuture ... done
  [13:42:52.244] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [13:42:52.244] - nx: 2
  [13:42:52.244] - relay: TRUE
  [13:42:52.245] - stdout: TRUE
  [13:42:52.245] - signal: TRUE
  [13:42:52.245] - resignal: FALSE
  [13:42:52.246] - force: FALSE
  [13:42:52.246] - relayed: [n=2] TRUE, FALSE
  [13:42:52.246] - queued futures: [n=2] TRUE, FALSE
  [13:42:52.247]  - until=2
  [13:42:52.247]  - relaying element #2
  [13:42:52.247] result() for ClusterFuture ...
  [13:42:52.247] - result already collected: FutureResult
  [13:42:52.248] result() for ClusterFuture ... done
  [13:42:52.248] result() for ClusterFuture ...
  [13:42:52.248] - result already collected: FutureResult
  [13:42:52.249] result() for ClusterFuture ... done
  [13:42:52.249] result() for ClusterFuture ...
  [13:42:52.250] - result already collected: FutureResult
  [13:42:52.250] result() for ClusterFuture ... done
  [13:42:52.250] result() for ClusterFuture ...
  [13:42:52.251] - result already collected: FutureResult
  [13:42:52.251] result() for ClusterFuture ... done
  [13:42:52.251] - relayed: [n=2] TRUE, TRUE
  [13:42:52.251] - queued futures: [n=2] TRUE, TRUE
  [13:42:52.252] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [13:42:52.252]  length: 0 (resolved future 2)
  [13:42:52.252] Relaying remaining futures
  [13:42:52.253] signalConditionsASAP(NULL, pos=0) ...
  [13:42:52.253] - nx: 2
  [13:42:52.253] - relay: TRUE
  [13:42:52.253] - stdout: TRUE
  [13:42:52.254] - signal: TRUE
  [13:42:52.254] - resignal: FALSE
  [13:42:52.254] - force: FALSE
  [13:42:52.259] - relayed: [n=2] TRUE, TRUE
  [13:42:52.259] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:42:52.260] - relayed: [n=2] TRUE, TRUE
  [13:42:52.260] - queued futures: [n=2] TRUE, TRUE
  [13:42:52.260] signalConditionsASAP(NULL, pos=0) ... done
  [13:42:52.261] resolve() on list ... DONE
  [13:42:52.261] - collecting values of futures
  [13:42:52.261] result() for ClusterFuture ...
  [13:42:52.261] - result already collected: FutureResult
  [13:42:52.262] result() for ClusterFuture ... done
  [13:42:52.262] result() for ClusterFuture ...
  [13:42:52.262] - result already collected: FutureResult
  [13:42:52.263] result() for ClusterFuture ... done
  [13:42:52.263] result() for ClusterFuture ...
  [13:42:52.263] - result already collected: FutureResult
  [13:42:52.264] result() for ClusterFuture ... done
  [13:42:52.264] result() for ClusterFuture ...
  [13:42:52.264] - result already collected: FutureResult
  [13:42:52.265] result() for ClusterFuture ... done
  [13:42:52.265] - accumulating results
  [13:42:52.268] - processing errors (handler = 'stop')
  [13:42:52.268] - extracting results
  [13:42:52.269] doFuture() ... DONE
  - plan(list('multisession', 'cluster')) ... DONE
  - plan(list('cluster', 'sequential')) ...
  [13:42:52.270] plan(): Setting new future strategy stack:
  [13:42:52.270] List of future strategies:
  [13:42:52.270] 1. cluster:
  [13:42:52.270]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:52.270]    - tweaked: FALSE
  [13:42:52.270]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:52.270] 2. sequential:
  [13:42:52.270]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [13:42:52.270]    - tweaked: FALSE
  [13:42:52.270]    - call: plan(list(a = strategy1, b = strategy2))
  [13:42:52.287] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:42:52.287] cluster:
  [13:42:52.287] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:42:52.287] - tweaked: FALSE
  [13:42:52.287] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 30820
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac9dff4dc.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac9dff4dc.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac9dff4dc.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=30820 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac7fa96ed3.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac7fa96ed3.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac7fa96ed3.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=30820 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
  [13:43:08.896] getGlobalsAndPackages() ...
  [13:43:08.896] Not searching for globals
  [13:43:08.897] - globals: [0] <none>
  [13:43:08.897] getGlobalsAndPackages() ... DONE
  [13:43:08.902] Packages needed by the future expression (n = 0): <none>
  [13:43:08.939] Packages needed by future strategies (n = 1): 'future'
  [13:43:08.947] {
  [13:43:08.947]     {
  [13:43:08.947]         ...future.startTime <- base::Sys.time()
  [13:43:08.947]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:08.947]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:08.947]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:08.947]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:08.947]             future.resolve.recursive = NULL, width = 80L)
  [13:43:08.947]         {
  [13:43:08.947]             {
  [13:43:08.947]                 {
  [13:43:08.947]                   has_future <- base::requireNamespace("future", 
  [13:43:08.947]                     quietly = TRUE)
  [13:43:08.947]                   version <- if (has_future) 
  [13:43:08.947]                     utils::packageVersion("future")
  [13:43:08.947]                   else NULL
  [13:43:08.947]                   if (!has_future || version < "1.8.0") {
  [13:43:08.947]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:08.947]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:08.947]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:08.947]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:08.947]                         "release", "version")], collapse = " "), 
  [13:43:08.947]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:08.947]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:08.947]                       info)
  [13:43:08.947]                     info <- base::paste(info, collapse = "; ")
  [13:43:08.947]                     if (!has_future) {
  [13:43:08.947]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:08.947]                         info)
  [13:43:08.947]                     }
  [13:43:08.947]                     else {
  [13:43:08.947]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:08.947]                         info, version)
  [13:43:08.947]                     }
  [13:43:08.947]                     base::stop(msg)
  [13:43:08.947]                   }
  [13:43:08.947]                 }
  [13:43:08.947]                 base::local({
  [13:43:08.947]                   for (pkg in "future") {
  [13:43:08.947]                     base::loadNamespace(pkg)
  [13:43:08.947]                     base::library(pkg, character.only = TRUE)
  [13:43:08.947]                   }
  [13:43:08.947]                 })
  [13:43:08.947]             }
  [13:43:08.947]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:08.947]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:08.947]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:43:08.947]                 label = NULL, ...) 
  [13:43:08.947]             {
  [13:43:08.947]                 if (substitute) 
  [13:43:08.947]                   expr <- substitute(expr)
  [13:43:08.947]                 local <- as.logical(local)
  [13:43:08.947]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:08.947]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:08.947]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:08.947]                   label = label, ...)
  [13:43:08.947]                 if (!future$lazy) 
  [13:43:08.947]                   future <- run(future)
  [13:43:08.947]                 invisible(future)
  [13:43:08.947]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:08.947]         }
  [13:43:08.947]     }
  [13:43:08.947]     if (base::is.na(TRUE)) {
  [13:43:08.947]     }
  [13:43:08.947]     else {
  [13:43:08.947]         if (TRUE) {
  [13:43:08.947]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:08.947]                 open = "w")
  [13:43:08.947]         }
  [13:43:08.947]         else {
  [13:43:08.947]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:08.947]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:08.947]         }
  [13:43:08.947]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:08.947]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:08.947]             base::sink(type = "output", split = FALSE)
  [13:43:08.947]             base::close(...future.stdout)
  [13:43:08.947]         }, add = TRUE)
  [13:43:08.947]     }
  [13:43:08.947]     ...future.frame <- base::sys.nframe()
  [13:43:08.947]     ...future.conditions <- base::list()
  [13:43:08.947]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:08.947]     ...future.result <- base::tryCatch({
  [13:43:08.947]         base::withCallingHandlers({
  [13:43:08.947]             ...future.value <- base::withVisible(base::local({
  [13:43:08.947]                 ...future.sendCondition <- local({
  [13:43:08.947]                   sendCondition <- NULL
  [13:43:08.947]                   function(frame = 1L) {
  [13:43:08.947]                     if (is.function(sendCondition)) 
  [13:43:08.947]                       return(sendCondition)
  [13:43:08.947]                     ns <- getNamespace("parallel")
  [13:43:08.947]                     if (exists("sendData", mode = "function", 
  [13:43:08.947]                       envir = ns)) {
  [13:43:08.947]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:08.947]                         envir = ns)
  [13:43:08.947]                       envir <- sys.frame(frame)
  [13:43:08.947]                       master <- NULL
  [13:43:08.947]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:08.947]                         !identical(envir, emptyenv())) {
  [13:43:08.947]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:08.947]                           inherits = FALSE)) {
  [13:43:08.947]                           master <- get("master", mode = "list", 
  [13:43:08.947]                             envir = envir, inherits = FALSE)
  [13:43:08.947]                           if (inherits(master, "SOCKnode")) {
  [13:43:08.947]                             sendCondition <<- function(cond) {
  [13:43:08.947]                               data <- list(type = "VALUE", value = cond, 
  [13:43:08.947]                                 success = TRUE)
  [13:43:08.947]                               parallel_sendData(master, data)
  [13:43:08.947]                             }
  [13:43:08.947]                             return(sendCondition)
  [13:43:08.947]                           }
  [13:43:08.947]                         }
  [13:43:08.947]                         frame <- frame + 1L
  [13:43:08.947]                         envir <- sys.frame(frame)
  [13:43:08.947]                       }
  [13:43:08.947]                     }
  [13:43:08.947]                     sendCondition <<- function(cond) NULL
  [13:43:08.947]                   }
  [13:43:08.947]                 })
  [13:43:08.947]                 withCallingHandlers({
  [13:43:08.947]                   NA
  [13:43:08.947]                 }, immediateCondition = function(cond) {
  [13:43:08.947]                   sendCondition <- ...future.sendCondition()
  [13:43:08.947]                   sendCondition(cond)
  [13:43:08.947]                   muffleCondition <- function (cond) 
  [13:43:08.947]                   {
  [13:43:08.947]                     inherits <- base::inherits
  [13:43:08.947]                     invokeRestart <- base::invokeRestart
  [13:43:08.947]                     muffled <- FALSE
  [13:43:08.947]                     if (inherits(cond, "message")) {
  [13:43:08.947]                       invokeRestart("muffleMessage")
  [13:43:08.947]                       muffled <- TRUE
  [13:43:08.947]                     }
  [13:43:08.947]                     else if (inherits(cond, "warning")) {
  [13:43:08.947]                       invokeRestart("muffleWarning")
  [13:43:08.947]                       muffled <- TRUE
  [13:43:08.947]                     }
  [13:43:08.947]                     else if (inherits(cond, "condition")) {
  [13:43:08.947]                       computeRestarts <- base::computeRestarts
  [13:43:08.947]                       grepl <- base::grepl
  [13:43:08.947]                       is.null <- base::is.null
  [13:43:08.947]                       restarts <- computeRestarts(cond)
  [13:43:08.947]                       for (restart in restarts) {
  [13:43:08.947]                         name <- restart$name
  [13:43:08.947]                         if (is.null(name)) 
  [13:43:08.947]                           next
  [13:43:08.947]                         if (!grepl("^muffle", name)) 
  [13:43:08.947]                           next
  [13:43:08.947]                         invokeRestart(restart)
  [13:43:08.947]                         muffled <- TRUE
  [13:43:08.947]                         break
  [13:43:08.947]                       }
  [13:43:08.947]                     }
  [13:43:08.947]                     invisible(muffled)
  [13:43:08.947]                   }
  [13:43:08.947]                   muffleCondition(cond)
  [13:43:08.947]                 })
  [13:43:08.947]             }))
  [13:43:08.947]             future::FutureResult(value = ...future.value$value, 
  [13:43:08.947]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:08.947]                   ...future.rng), started = ...future.startTime, 
  [13:43:08.947]                 version = "1.8")
  [13:43:08.947]         }, condition = base::local({
  [13:43:08.947]             c <- base::c
  [13:43:08.947]             inherits <- base::inherits
  [13:43:08.947]             invokeRestart <- base::invokeRestart
  [13:43:08.947]             length <- base::length
  [13:43:08.947]             list <- base::list
  [13:43:08.947]             seq.int <- base::seq.int
  [13:43:08.947]             signalCondition <- base::signalCondition
  [13:43:08.947]             sys.calls <- base::sys.calls
  [13:43:08.947]             Sys.time <- base::Sys.time
  [13:43:08.947]             `[[` <- base::`[[`
  [13:43:08.947]             `+` <- base::`+`
  [13:43:08.947]             `<<-` <- base::`<<-`
  [13:43:08.947]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:08.947]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:08.947]                   3L)]
  [13:43:08.947]             }
  [13:43:08.947]             function(cond) {
  [13:43:08.947]                 if (inherits(cond, "error")) {
  [13:43:08.947]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:08.947]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:08.947]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:08.947]                   signalCondition(cond)
  [13:43:08.947]                 }
  [13:43:08.947]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:08.947]                 ))) {
  [13:43:08.947]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:08.947]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:08.947]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:08.947]                   if (!signal) {
  [13:43:08.947]                     muffleCondition <- function (cond) 
  [13:43:08.947]                     {
  [13:43:08.947]                       inherits <- base::inherits
  [13:43:08.947]                       invokeRestart <- base::invokeRestart
  [13:43:08.947]                       muffled <- FALSE
  [13:43:08.947]                       if (inherits(cond, "message")) {
  [13:43:08.947]                         invokeRestart("muffleMessage")
  [13:43:08.947]                         muffled <- TRUE
  [13:43:08.947]                       }
  [13:43:08.947]                       else if (inherits(cond, "warning")) {
  [13:43:08.947]                         invokeRestart("muffleWarning")
  [13:43:08.947]                         muffled <- TRUE
  [13:43:08.947]                       }
  [13:43:08.947]                       else if (inherits(cond, "condition")) {
  [13:43:08.947]                         computeRestarts <- base::computeRestarts
  [13:43:08.947]                         grepl <- base::grepl
  [13:43:08.947]                         is.null <- base::is.null
  [13:43:08.947]                         restarts <- computeRestarts(cond)
  [13:43:08.947]                         for (restart in restarts) {
  [13:43:08.947]                           name <- restart$name
  [13:43:08.947]                           if (is.null(name)) 
  [13:43:08.947]                             next
  [13:43:08.947]                           if (!grepl("^muffle", name)) 
  [13:43:08.947]                             next
  [13:43:08.947]                           invokeRestart(restart)
  [13:43:08.947]                           muffled <- TRUE
  [13:43:08.947]                           break
  [13:43:08.947]                         }
  [13:43:08.947]                       }
  [13:43:08.947]                       invisible(muffled)
  [13:43:08.947]                     }
  [13:43:08.947]                     muffleCondition(cond)
  [13:43:08.947]                   }
  [13:43:08.947]                 }
  [13:43:08.947]             }
  [13:43:08.947]         }))
  [13:43:08.947]     }, error = function(ex) {
  [13:43:08.947]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:08.947]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:08.947]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:08.947]     }, finally = {
  [13:43:08.947]         {
  [13:43:08.947]             NULL
  [13:43:08.947]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:08.947]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:08.947]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:08.947]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:08.947]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:08.947]                 ...) 
  [13:43:08.947]             {
  [13:43:08.947]                 if (substitute) 
  [13:43:08.947]                   expr <- substitute(expr)
  [13:43:08.947]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:08.947]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:08.947]                   globals = globals, persistent = persistent, 
  [13:43:08.947]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:08.947]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:08.947]                   label = label, ...)
  [13:43:08.947]                 if (!future$lazy) 
  [13:43:08.947]                   future <- run(future)
  [13:43:08.947]                 invisible(future)
  [13:43:08.947]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:08.947]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:43:08.947]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:08.947]             {
  [13:43:08.947]                 if (substitute) 
  [13:43:08.947]                   expr <- substitute(expr)
  [13:43:08.947]                 local <- as.logical(local)
  [13:43:08.947]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:08.947]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:08.947]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:08.947]                   label = label, ...)
  [13:43:08.947]                 if (!future$lazy) 
  [13:43:08.947]                   future <- run(future)
  [13:43:08.947]                 invisible(future)
  [13:43:08.947]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:08.947]         }
  [13:43:08.947]         base::options(...future.oldOptions)
  [13:43:08.947]     })
  [13:43:08.947]     Sys.time
  [13:43:08.947]     if (base::is.na(TRUE)) {
  [13:43:08.947]     }
  [13:43:08.947]     else {
  [13:43:08.947]         base::sink(type = "output", split = FALSE)
  [13:43:08.947]         if (TRUE) {
  [13:43:08.947]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:08.947]         }
  [13:43:08.947]         else {
  [13:43:08.947]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:08.947]         }
  [13:43:08.947]         base::close(...future.stdout)
  [13:43:08.947]         ...future.stdout <- NULL
  [13:43:08.947]     }
  [13:43:08.947]     ...future.result$conditions <- ...future.conditions
  [13:43:08.947]     ...future.result
  [13:43:08.947] }
  [13:43:08.974] ClusterFuture started
  [13:43:08.975] result() for ClusterFuture ...
  [13:43:08.975] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:08.976] - Validating connection of ClusterFuture
  [13:43:09.162] - received message: FutureResult
  [13:43:09.162] - Received FutureResult
  [13:43:09.163] - Erased future from FutureRegistry
  [13:43:09.163] result() for ClusterFuture ...
  [13:43:09.163] - result already collected: FutureResult
  [13:43:09.164] result() for ClusterFuture ... done
  [13:43:09.164] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:09.165] result() for ClusterFuture ... done
  [13:43:09.165] result() for ClusterFuture ...
  [13:43:09.166] - result already collected: FutureResult
  [13:43:09.166] result() for ClusterFuture ... done
  [13:43:09.166] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:43:09.168] plan(): nbrOfWorkers() = 2
  [13:43:09.169] doFuture() ...
  [13:43:09.175] - dummy globals (as locals): [2] 'a', 'b'
  [13:43:09.176] - R expression:
  [13:43:09.176] {
  [13:43:09.176]     doFuture::registerDoFuture()
  [13:43:09.176]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:09.176]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:09.176]         {
  [13:43:09.176]             a <- NULL
  [13:43:09.176]             b <- NULL
  [13:43:09.176]         }
  [13:43:09.176]         ...future.env <- environment()
  [13:43:09.176]         local({
  [13:43:09.176]             for (name in names(...future.x_jj)) {
  [13:43:09.176]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:09.176]                   inherits = FALSE)
  [13:43:09.176]             }
  [13:43:09.176]         })
  [13:43:09.176]         tryCatch({
  [13:43:09.176]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:09.176]                 plan = future::plan("next"))
  [13:43:09.176]         }, error = identity)
  [13:43:09.176]     })
  [13:43:09.176] }
  [13:43:09.177] - identifying globals and packages ...
  [13:43:09.178] getGlobalsAndPackages() ...
  [13:43:09.178] Searching for globals...
  [13:43:09.237] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:43:09.238] Searching for globals ... DONE
  [13:43:09.238] Resolving globals: FALSE
  [13:43:09.240] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:43:09.241] - globals: [1] '...future.x_ii'
  [13:43:09.241] 
  [13:43:09.241] getGlobalsAndPackages() ... DONE
  [13:43:09.242] List of 1
  [13:43:09.242]  $ ...future.x_ii: NULL
  [13:43:09.242]  - attr(*, "where")=List of 1
  [13:43:09.242]   ..$ ...future.x_ii:<environment: 0x5617cca881a8> 
  [13:43:09.242]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:09.242]  - attr(*, "resolved")= logi FALSE
  [13:43:09.242]  - attr(*, "total_size")= num 0
  [13:43:09.249]   - R expression:
  [13:43:09.249] {
  [13:43:09.249]     doFuture::registerDoFuture()
  [13:43:09.249]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:09.249]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:09.249]         {
  [13:43:09.249]             a <- NULL
  [13:43:09.249]             b <- NULL
  [13:43:09.249]         }
  [13:43:09.249]         ...future.env <- environment()
  [13:43:09.249]         local({
  [13:43:09.249]             for (name in names(...future.x_jj)) {
  [13:43:09.249]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:09.249]                   inherits = FALSE)
  [13:43:09.249]             }
  [13:43:09.249]         })
  [13:43:09.249]         tryCatch({
  [13:43:09.249]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:09.249]                 plan = future::plan("next"))
  [13:43:09.249]         }, error = identity)
  [13:43:09.249]     })
  [13:43:09.249] }
  [13:43:09.250]   - globals: [1] '...future.x_ii'
  [13:43:09.267] List of 1
  [13:43:09.267]  $ ...future.x_ii: NULL
  [13:43:09.267]  - attr(*, "where")=List of 1
  [13:43:09.267]   ..$ ...future.x_ii:<environment: 0x5617cca881a8> 
  [13:43:09.267]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:09.267]  - attr(*, "resolved")= logi FALSE
  [13:43:09.267]  - attr(*, "total_size")= num 0
  [13:43:09.274]   - packages: [1] 'doFuture'
  [13:43:09.274] - identifying globals and packages ... DONE
  [13:43:09.276] Number of chunks: 2
  [13:43:09.277] Number of futures (= number of chunks): 2
  [13:43:09.277] Launching 2 futures (chunks) ...
  [13:43:09.278] Chunk #1 of 2 ...
  [13:43:09.278]  - Finding globals in 'args_list' chunk #1 ...
  [13:43:09.278] getGlobalsAndPackages() ...
  [13:43:09.279] Searching for globals...
  [13:43:09.280] 
  [13:43:09.280] Searching for globals ... DONE
  [13:43:09.281] - globals: [0] <none>
  [13:43:09.281] getGlobalsAndPackages() ... DONE
  [13:43:09.281] 
  [13:43:09.281] 
  [13:43:09.282]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:43:09.291] getGlobalsAndPackages() ...
  [13:43:09.292] - globals passed as-is: [1] '...future.x_ii'
  [13:43:09.292] Resolving globals: FALSE
  [13:43:09.293] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:09.294] - globals: [1] '...future.x_ii'
  [13:43:09.294] 
  [13:43:09.295] getGlobalsAndPackages() ... DONE
  [13:43:09.299] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:09.300] Packages needed by future strategies (n = 1): 'future'
  [13:43:09.306] {
  [13:43:09.306]     {
  [13:43:09.306]         ...future.startTime <- base::Sys.time()
  [13:43:09.306]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:09.306]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:09.306]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:09.306]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:09.306]             future.resolve.recursive = NULL, width = 80L)
  [13:43:09.306]         {
  [13:43:09.306]             {
  [13:43:09.306]                 {
  [13:43:09.306]                   has_future <- base::requireNamespace("future", 
  [13:43:09.306]                     quietly = TRUE)
  [13:43:09.306]                   version <- if (has_future) 
  [13:43:09.306]                     utils::packageVersion("future")
  [13:43:09.306]                   else NULL
  [13:43:09.306]                   if (!has_future || version < "1.8.0") {
  [13:43:09.306]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:09.306]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:09.306]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:09.306]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:09.306]                         "release", "version")], collapse = " "), 
  [13:43:09.306]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:09.306]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:09.306]                       info)
  [13:43:09.306]                     info <- base::paste(info, collapse = "; ")
  [13:43:09.306]                     if (!has_future) {
  [13:43:09.306]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:09.306]                         info)
  [13:43:09.306]                     }
  [13:43:09.306]                     else {
  [13:43:09.306]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:09.306]                         info, version)
  [13:43:09.306]                     }
  [13:43:09.306]                     base::stop(msg)
  [13:43:09.306]                   }
  [13:43:09.306]                 }
  [13:43:09.306]                 base::local({
  [13:43:09.306]                   for (pkg in c("doFuture", "future")) {
  [13:43:09.306]                     base::loadNamespace(pkg)
  [13:43:09.306]                     base::library(pkg, character.only = TRUE)
  [13:43:09.306]                   }
  [13:43:09.306]                 })
  [13:43:09.306]             }
  [13:43:09.306]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:09.306]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:09.306]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:43:09.306]                 label = NULL, ...) 
  [13:43:09.306]             {
  [13:43:09.306]                 if (substitute) 
  [13:43:09.306]                   expr <- substitute(expr)
  [13:43:09.306]                 local <- as.logical(local)
  [13:43:09.306]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:09.306]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.306]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:09.306]                   label = label, ...)
  [13:43:09.306]                 if (!future$lazy) 
  [13:43:09.306]                   future <- run(future)
  [13:43:09.306]                 invisible(future)
  [13:43:09.306]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:09.306]         }
  [13:43:09.306]     }
  [13:43:09.306]     if (base::is.na(TRUE)) {
  [13:43:09.306]     }
  [13:43:09.306]     else {
  [13:43:09.306]         if (TRUE) {
  [13:43:09.306]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:09.306]                 open = "w")
  [13:43:09.306]         }
  [13:43:09.306]         else {
  [13:43:09.306]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:09.306]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:09.306]         }
  [13:43:09.306]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:09.306]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:09.306]             base::sink(type = "output", split = FALSE)
  [13:43:09.306]             base::close(...future.stdout)
  [13:43:09.306]         }, add = TRUE)
  [13:43:09.306]     }
  [13:43:09.306]     ...future.frame <- base::sys.nframe()
  [13:43:09.306]     ...future.conditions <- base::list()
  [13:43:09.306]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:09.306]     ...future.result <- base::tryCatch({
  [13:43:09.306]         base::withCallingHandlers({
  [13:43:09.306]             ...future.value <- base::withVisible(base::local({
  [13:43:09.306]                 ...future.sendCondition <- local({
  [13:43:09.306]                   sendCondition <- NULL
  [13:43:09.306]                   function(frame = 1L) {
  [13:43:09.306]                     if (is.function(sendCondition)) 
  [13:43:09.306]                       return(sendCondition)
  [13:43:09.306]                     ns <- getNamespace("parallel")
  [13:43:09.306]                     if (exists("sendData", mode = "function", 
  [13:43:09.306]                       envir = ns)) {
  [13:43:09.306]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:09.306]                         envir = ns)
  [13:43:09.306]                       envir <- sys.frame(frame)
  [13:43:09.306]                       master <- NULL
  [13:43:09.306]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:09.306]                         !identical(envir, emptyenv())) {
  [13:43:09.306]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:09.306]                           inherits = FALSE)) {
  [13:43:09.306]                           master <- get("master", mode = "list", 
  [13:43:09.306]                             envir = envir, inherits = FALSE)
  [13:43:09.306]                           if (inherits(master, "SOCKnode")) {
  [13:43:09.306]                             sendCondition <<- function(cond) {
  [13:43:09.306]                               data <- list(type = "VALUE", value = cond, 
  [13:43:09.306]                                 success = TRUE)
  [13:43:09.306]                               parallel_sendData(master, data)
  [13:43:09.306]                             }
  [13:43:09.306]                             return(sendCondition)
  [13:43:09.306]                           }
  [13:43:09.306]                         }
  [13:43:09.306]                         frame <- frame + 1L
  [13:43:09.306]                         envir <- sys.frame(frame)
  [13:43:09.306]                       }
  [13:43:09.306]                     }
  [13:43:09.306]                     sendCondition <<- function(cond) NULL
  [13:43:09.306]                   }
  [13:43:09.306]                 })
  [13:43:09.306]                 withCallingHandlers({
  [13:43:09.306]                   {
  [13:43:09.306]                     doFuture::registerDoFuture()
  [13:43:09.306]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:09.306]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:09.306]                       {
  [13:43:09.306]                         a <- NULL
  [13:43:09.306]                         b <- NULL
  [13:43:09.306]                       }
  [13:43:09.306]                       ...future.env <- environment()
  [13:43:09.306]                       local({
  [13:43:09.306]                         for (name in names(...future.x_jj)) {
  [13:43:09.306]                           assign(name, ...future.x_jj[[name]], 
  [13:43:09.306]                             envir = ...future.env, inherits = FALSE)
  [13:43:09.306]                         }
  [13:43:09.306]                       })
  [13:43:09.306]                       tryCatch({
  [13:43:09.306]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:09.306]                           plan = future::plan("next"))
  [13:43:09.306]                       }, error = identity)
  [13:43:09.306]                     })
  [13:43:09.306]                   }
  [13:43:09.306]                 }, immediateCondition = function(cond) {
  [13:43:09.306]                   sendCondition <- ...future.sendCondition()
  [13:43:09.306]                   sendCondition(cond)
  [13:43:09.306]                   muffleCondition <- function (cond) 
  [13:43:09.306]                   {
  [13:43:09.306]                     inherits <- base::inherits
  [13:43:09.306]                     invokeRestart <- base::invokeRestart
  [13:43:09.306]                     muffled <- FALSE
  [13:43:09.306]                     if (inherits(cond, "message")) {
  [13:43:09.306]                       invokeRestart("muffleMessage")
  [13:43:09.306]                       muffled <- TRUE
  [13:43:09.306]                     }
  [13:43:09.306]                     else if (inherits(cond, "warning")) {
  [13:43:09.306]                       invokeRestart("muffleWarning")
  [13:43:09.306]                       muffled <- TRUE
  [13:43:09.306]                     }
  [13:43:09.306]                     else if (inherits(cond, "condition")) {
  [13:43:09.306]                       computeRestarts <- base::computeRestarts
  [13:43:09.306]                       grepl <- base::grepl
  [13:43:09.306]                       is.null <- base::is.null
  [13:43:09.306]                       restarts <- computeRestarts(cond)
  [13:43:09.306]                       for (restart in restarts) {
  [13:43:09.306]                         name <- restart$name
  [13:43:09.306]                         if (is.null(name)) 
  [13:43:09.306]                           next
  [13:43:09.306]                         if (!grepl("^muffle", name)) 
  [13:43:09.306]                           next
  [13:43:09.306]                         invokeRestart(restart)
  [13:43:09.306]                         muffled <- TRUE
  [13:43:09.306]                         break
  [13:43:09.306]                       }
  [13:43:09.306]                     }
  [13:43:09.306]                     invisible(muffled)
  [13:43:09.306]                   }
  [13:43:09.306]                   muffleCondition(cond)
  [13:43:09.306]                 })
  [13:43:09.306]             }))
  [13:43:09.306]             future::FutureResult(value = ...future.value$value, 
  [13:43:09.306]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:09.306]                   ...future.rng), started = ...future.startTime, 
  [13:43:09.306]                 version = "1.8")
  [13:43:09.306]         }, condition = base::local({
  [13:43:09.306]             c <- base::c
  [13:43:09.306]             inherits <- base::inherits
  [13:43:09.306]             invokeRestart <- base::invokeRestart
  [13:43:09.306]             length <- base::length
  [13:43:09.306]             list <- base::list
  [13:43:09.306]             seq.int <- base::seq.int
  [13:43:09.306]             signalCondition <- base::signalCondition
  [13:43:09.306]             sys.calls <- base::sys.calls
  [13:43:09.306]             Sys.time <- base::Sys.time
  [13:43:09.306]             `[[` <- base::`[[`
  [13:43:09.306]             `+` <- base::`+`
  [13:43:09.306]             `<<-` <- base::`<<-`
  [13:43:09.306]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:09.306]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:09.306]                   3L)]
  [13:43:09.306]             }
  [13:43:09.306]             function(cond) {
  [13:43:09.306]                 if (inherits(cond, "error")) {
  [13:43:09.306]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:09.306]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:09.306]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:09.306]                   signalCondition(cond)
  [13:43:09.306]                 }
  [13:43:09.306]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:09.306]                 ))) {
  [13:43:09.306]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:09.306]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:09.306]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:09.306]                   if (!signal) {
  [13:43:09.306]                     muffleCondition <- function (cond) 
  [13:43:09.306]                     {
  [13:43:09.306]                       inherits <- base::inherits
  [13:43:09.306]                       invokeRestart <- base::invokeRestart
  [13:43:09.306]                       muffled <- FALSE
  [13:43:09.306]                       if (inherits(cond, "message")) {
  [13:43:09.306]                         invokeRestart("muffleMessage")
  [13:43:09.306]                         muffled <- TRUE
  [13:43:09.306]                       }
  [13:43:09.306]                       else if (inherits(cond, "warning")) {
  [13:43:09.306]                         invokeRestart("muffleWarning")
  [13:43:09.306]                         muffled <- TRUE
  [13:43:09.306]                       }
  [13:43:09.306]                       else if (inherits(cond, "condition")) {
  [13:43:09.306]                         computeRestarts <- base::computeRestarts
  [13:43:09.306]                         grepl <- base::grepl
  [13:43:09.306]                         is.null <- base::is.null
  [13:43:09.306]                         restarts <- computeRestarts(cond)
  [13:43:09.306]                         for (restart in restarts) {
  [13:43:09.306]                           name <- restart$name
  [13:43:09.306]                           if (is.null(name)) 
  [13:43:09.306]                             next
  [13:43:09.306]                           if (!grepl("^muffle", name)) 
  [13:43:09.306]                             next
  [13:43:09.306]                           invokeRestart(restart)
  [13:43:09.306]                           muffled <- TRUE
  [13:43:09.306]                           break
  [13:43:09.306]                         }
  [13:43:09.306]                       }
  [13:43:09.306]                       invisible(muffled)
  [13:43:09.306]                     }
  [13:43:09.306]                     muffleCondition(cond)
  [13:43:09.306]                   }
  [13:43:09.306]                 }
  [13:43:09.306]             }
  [13:43:09.306]         }))
  [13:43:09.306]     }, error = function(ex) {
  [13:43:09.306]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:09.306]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:09.306]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:09.306]     }, finally = {
  [13:43:09.306]         {
  [13:43:09.306]             NULL
  [13:43:09.306]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:09.306]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:09.306]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:09.306]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:09.306]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:09.306]                 ...) 
  [13:43:09.306]             {
  [13:43:09.306]                 if (substitute) 
  [13:43:09.306]                   expr <- substitute(expr)
  [13:43:09.306]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:09.306]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.306]                   globals = globals, persistent = persistent, 
  [13:43:09.306]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:09.306]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:09.306]                   label = label, ...)
  [13:43:09.306]                 if (!future$lazy) 
  [13:43:09.306]                   future <- run(future)
  [13:43:09.306]                 invisible(future)
  [13:43:09.306]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:09.306]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:43:09.306]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:09.306]             {
  [13:43:09.306]                 if (substitute) 
  [13:43:09.306]                   expr <- substitute(expr)
  [13:43:09.306]                 local <- as.logical(local)
  [13:43:09.306]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:09.306]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.306]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:09.306]                   label = label, ...)
  [13:43:09.306]                 if (!future$lazy) 
  [13:43:09.306]                   future <- run(future)
  [13:43:09.306]                 invisible(future)
  [13:43:09.306]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:09.306]         }
  [13:43:09.306]         base::options(...future.oldOptions)
  [13:43:09.306]     })
  [13:43:09.306]     Sys.time
  [13:43:09.306]     if (base::is.na(TRUE)) {
  [13:43:09.306]     }
  [13:43:09.306]     else {
  [13:43:09.306]         base::sink(type = "output", split = FALSE)
  [13:43:09.306]         if (TRUE) {
  [13:43:09.306]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:09.306]         }
  [13:43:09.306]         else {
  [13:43:09.306]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:09.306]         }
  [13:43:09.306]         base::close(...future.stdout)
  [13:43:09.306]         ...future.stdout <- NULL
  [13:43:09.306]     }
  [13:43:09.306]     ...future.result$conditions <- ...future.conditions
  [13:43:09.306]     ...future.result
  [13:43:09.306] }
  [13:43:09.316] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:43:09.317] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:43:09.318] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:43:09.318] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:43:09.325] ClusterFuture started
  [13:43:09.325] Chunk #1 of 2 ... DONE
  [13:43:09.325] Chunk #2 of 2 ...
  [13:43:09.326]  - Finding globals in 'args_list' chunk #2 ...
  [13:43:09.326] getGlobalsAndPackages() ...
  [13:43:09.327] Searching for globals...
  [13:43:09.328] 
  [13:43:09.328] Searching for globals ... DONE
  [13:43:09.328] - globals: [0] <none>
  [13:43:09.329] getGlobalsAndPackages() ... DONE
  [13:43:09.329] 
  [13:43:09.329] 
  [13:43:09.330]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:43:09.339] getGlobalsAndPackages() ...
  [13:43:09.339] - globals passed as-is: [1] '...future.x_ii'
  [13:43:09.340] Resolving globals: FALSE
  [13:43:09.341] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:09.341] - globals: [1] '...future.x_ii'
  [13:43:09.342] 
  [13:43:09.342] getGlobalsAndPackages() ... DONE
  [13:43:09.347] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:09.347] Packages needed by future strategies (n = 1): 'future'
  [13:43:09.354] {
  [13:43:09.354]     {
  [13:43:09.354]         ...future.startTime <- base::Sys.time()
  [13:43:09.354]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:09.354]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:09.354]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:09.354]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:09.354]             future.resolve.recursive = NULL, width = 80L)
  [13:43:09.354]         {
  [13:43:09.354]             {
  [13:43:09.354]                 {
  [13:43:09.354]                   has_future <- base::requireNamespace("future", 
  [13:43:09.354]                     quietly = TRUE)
  [13:43:09.354]                   version <- if (has_future) 
  [13:43:09.354]                     utils::packageVersion("future")
  [13:43:09.354]                   else NULL
  [13:43:09.354]                   if (!has_future || version < "1.8.0") {
  [13:43:09.354]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:09.354]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:09.354]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:09.354]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:09.354]                         "release", "version")], collapse = " "), 
  [13:43:09.354]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:09.354]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:09.354]                       info)
  [13:43:09.354]                     info <- base::paste(info, collapse = "; ")
  [13:43:09.354]                     if (!has_future) {
  [13:43:09.354]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:09.354]                         info)
  [13:43:09.354]                     }
  [13:43:09.354]                     else {
  [13:43:09.354]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:09.354]                         info, version)
  [13:43:09.354]                     }
  [13:43:09.354]                     base::stop(msg)
  [13:43:09.354]                   }
  [13:43:09.354]                 }
  [13:43:09.354]                 base::local({
  [13:43:09.354]                   for (pkg in c("doFuture", "future")) {
  [13:43:09.354]                     base::loadNamespace(pkg)
  [13:43:09.354]                     base::library(pkg, character.only = TRUE)
  [13:43:09.354]                   }
  [13:43:09.354]                 })
  [13:43:09.354]             }
  [13:43:09.354]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:09.354]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:09.354]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [13:43:09.354]                 label = NULL, ...) 
  [13:43:09.354]             {
  [13:43:09.354]                 if (substitute) 
  [13:43:09.354]                   expr <- substitute(expr)
  [13:43:09.354]                 local <- as.logical(local)
  [13:43:09.354]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:09.354]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.354]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:09.354]                   label = label, ...)
  [13:43:09.354]                 if (!future$lazy) 
  [13:43:09.354]                   future <- run(future)
  [13:43:09.354]                 invisible(future)
  [13:43:09.354]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:09.354]         }
  [13:43:09.354]     }
  [13:43:09.354]     if (base::is.na(TRUE)) {
  [13:43:09.354]     }
  [13:43:09.354]     else {
  [13:43:09.354]         if (TRUE) {
  [13:43:09.354]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:09.354]                 open = "w")
  [13:43:09.354]         }
  [13:43:09.354]         else {
  [13:43:09.354]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:09.354]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:09.354]         }
  [13:43:09.354]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:09.354]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:09.354]             base::sink(type = "output", split = FALSE)
  [13:43:09.354]             base::close(...future.stdout)
  [13:43:09.354]         }, add = TRUE)
  [13:43:09.354]     }
  [13:43:09.354]     ...future.frame <- base::sys.nframe()
  [13:43:09.354]     ...future.conditions <- base::list()
  [13:43:09.354]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:09.354]     ...future.result <- base::tryCatch({
  [13:43:09.354]         base::withCallingHandlers({
  [13:43:09.354]             ...future.value <- base::withVisible(base::local({
  [13:43:09.354]                 ...future.sendCondition <- local({
  [13:43:09.354]                   sendCondition <- NULL
  [13:43:09.354]                   function(frame = 1L) {
  [13:43:09.354]                     if (is.function(sendCondition)) 
  [13:43:09.354]                       return(sendCondition)
  [13:43:09.354]                     ns <- getNamespace("parallel")
  [13:43:09.354]                     if (exists("sendData", mode = "function", 
  [13:43:09.354]                       envir = ns)) {
  [13:43:09.354]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:09.354]                         envir = ns)
  [13:43:09.354]                       envir <- sys.frame(frame)
  [13:43:09.354]                       master <- NULL
  [13:43:09.354]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:09.354]                         !identical(envir, emptyenv())) {
  [13:43:09.354]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:09.354]                           inherits = FALSE)) {
  [13:43:09.354]                           master <- get("master", mode = "list", 
  [13:43:09.354]                             envir = envir, inherits = FALSE)
  [13:43:09.354]                           if (inherits(master, "SOCKnode")) {
  [13:43:09.354]                             sendCondition <<- function(cond) {
  [13:43:09.354]                               data <- list(type = "VALUE", value = cond, 
  [13:43:09.354]                                 success = TRUE)
  [13:43:09.354]                               parallel_sendData(master, data)
  [13:43:09.354]                             }
  [13:43:09.354]                             return(sendCondition)
  [13:43:09.354]                           }
  [13:43:09.354]                         }
  [13:43:09.354]                         frame <- frame + 1L
  [13:43:09.354]                         envir <- sys.frame(frame)
  [13:43:09.354]                       }
  [13:43:09.354]                     }
  [13:43:09.354]                     sendCondition <<- function(cond) NULL
  [13:43:09.354]                   }
  [13:43:09.354]                 })
  [13:43:09.354]                 withCallingHandlers({
  [13:43:09.354]                   {
  [13:43:09.354]                     doFuture::registerDoFuture()
  [13:43:09.354]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:09.354]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:09.354]                       {
  [13:43:09.354]                         a <- NULL
  [13:43:09.354]                         b <- NULL
  [13:43:09.354]                       }
  [13:43:09.354]                       ...future.env <- environment()
  [13:43:09.354]                       local({
  [13:43:09.354]                         for (name in names(...future.x_jj)) {
  [13:43:09.354]                           assign(name, ...future.x_jj[[name]], 
  [13:43:09.354]                             envir = ...future.env, inherits = FALSE)
  [13:43:09.354]                         }
  [13:43:09.354]                       })
  [13:43:09.354]                       tryCatch({
  [13:43:09.354]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:09.354]                           plan = future::plan("next"))
  [13:43:09.354]                       }, error = identity)
  [13:43:09.354]                     })
  [13:43:09.354]                   }
  [13:43:09.354]                 }, immediateCondition = function(cond) {
  [13:43:09.354]                   sendCondition <- ...future.sendCondition()
  [13:43:09.354]                   sendCondition(cond)
  [13:43:09.354]                   muffleCondition <- function (cond) 
  [13:43:09.354]                   {
  [13:43:09.354]                     inherits <- base::inherits
  [13:43:09.354]                     invokeRestart <- base::invokeRestart
  [13:43:09.354]                     muffled <- FALSE
  [13:43:09.354]                     if (inherits(cond, "message")) {
  [13:43:09.354]                       invokeRestart("muffleMessage")
  [13:43:09.354]                       muffled <- TRUE
  [13:43:09.354]                     }
  [13:43:09.354]                     else if (inherits(cond, "warning")) {
  [13:43:09.354]                       invokeRestart("muffleWarning")
  [13:43:09.354]                       muffled <- TRUE
  [13:43:09.354]                     }
  [13:43:09.354]                     else if (inherits(cond, "condition")) {
  [13:43:09.354]                       computeRestarts <- base::computeRestarts
  [13:43:09.354]                       grepl <- base::grepl
  [13:43:09.354]                       is.null <- base::is.null
  [13:43:09.354]                       restarts <- computeRestarts(cond)
  [13:43:09.354]                       for (restart in restarts) {
  [13:43:09.354]                         name <- restart$name
  [13:43:09.354]                         if (is.null(name)) 
  [13:43:09.354]                           next
  [13:43:09.354]                         if (!grepl("^muffle", name)) 
  [13:43:09.354]                           next
  [13:43:09.354]                         invokeRestart(restart)
  [13:43:09.354]                         muffled <- TRUE
  [13:43:09.354]                         break
  [13:43:09.354]                       }
  [13:43:09.354]                     }
  [13:43:09.354]                     invisible(muffled)
  [13:43:09.354]                   }
  [13:43:09.354]                   muffleCondition(cond)
  [13:43:09.354]                 })
  [13:43:09.354]             }))
  [13:43:09.354]             future::FutureResult(value = ...future.value$value, 
  [13:43:09.354]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:09.354]                   ...future.rng), started = ...future.startTime, 
  [13:43:09.354]                 version = "1.8")
  [13:43:09.354]         }, condition = base::local({
  [13:43:09.354]             c <- base::c
  [13:43:09.354]             inherits <- base::inherits
  [13:43:09.354]             invokeRestart <- base::invokeRestart
  [13:43:09.354]             length <- base::length
  [13:43:09.354]             list <- base::list
  [13:43:09.354]             seq.int <- base::seq.int
  [13:43:09.354]             signalCondition <- base::signalCondition
  [13:43:09.354]             sys.calls <- base::sys.calls
  [13:43:09.354]             Sys.time <- base::Sys.time
  [13:43:09.354]             `[[` <- base::`[[`
  [13:43:09.354]             `+` <- base::`+`
  [13:43:09.354]             `<<-` <- base::`<<-`
  [13:43:09.354]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:09.354]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:09.354]                   3L)]
  [13:43:09.354]             }
  [13:43:09.354]             function(cond) {
  [13:43:09.354]                 if (inherits(cond, "error")) {
  [13:43:09.354]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:09.354]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:09.354]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:09.354]                   signalCondition(cond)
  [13:43:09.354]                 }
  [13:43:09.354]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:09.354]                 ))) {
  [13:43:09.354]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:09.354]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:09.354]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:09.354]                   if (!signal) {
  [13:43:09.354]                     muffleCondition <- function (cond) 
  [13:43:09.354]                     {
  [13:43:09.354]                       inherits <- base::inherits
  [13:43:09.354]                       invokeRestart <- base::invokeRestart
  [13:43:09.354]                       muffled <- FALSE
  [13:43:09.354]                       if (inherits(cond, "message")) {
  [13:43:09.354]                         invokeRestart("muffleMessage")
  [13:43:09.354]                         muffled <- TRUE
  [13:43:09.354]                       }
  [13:43:09.354]                       else if (inherits(cond, "warning")) {
  [13:43:09.354]                         invokeRestart("muffleWarning")
  [13:43:09.354]                         muffled <- TRUE
  [13:43:09.354]                       }
  [13:43:09.354]                       else if (inherits(cond, "condition")) {
  [13:43:09.354]                         computeRestarts <- base::computeRestarts
  [13:43:09.354]                         grepl <- base::grepl
  [13:43:09.354]                         is.null <- base::is.null
  [13:43:09.354]                         restarts <- computeRestarts(cond)
  [13:43:09.354]                         for (restart in restarts) {
  [13:43:09.354]                           name <- restart$name
  [13:43:09.354]                           if (is.null(name)) 
  [13:43:09.354]                             next
  [13:43:09.354]                           if (!grepl("^muffle", name)) 
  [13:43:09.354]                             next
  [13:43:09.354]                           invokeRestart(restart)
  [13:43:09.354]                           muffled <- TRUE
  [13:43:09.354]                           break
  [13:43:09.354]                         }
  [13:43:09.354]                       }
  [13:43:09.354]                       invisible(muffled)
  [13:43:09.354]                     }
  [13:43:09.354]                     muffleCondition(cond)
  [13:43:09.354]                   }
  [13:43:09.354]                 }
  [13:43:09.354]             }
  [13:43:09.354]         }))
  [13:43:09.354]     }, error = function(ex) {
  [13:43:09.354]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:09.354]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:09.354]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:09.354]     }, finally = {
  [13:43:09.354]         {
  [13:43:09.354]             NULL
  [13:43:09.354]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:09.354]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:09.354]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:09.354]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:09.354]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:09.354]                 ...) 
  [13:43:09.354]             {
  [13:43:09.354]                 if (substitute) 
  [13:43:09.354]                   expr <- substitute(expr)
  [13:43:09.354]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:09.354]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.354]                   globals = globals, persistent = persistent, 
  [13:43:09.354]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:09.354]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:09.354]                   label = label, ...)
  [13:43:09.354]                 if (!future$lazy) 
  [13:43:09.354]                   future <- run(future)
  [13:43:09.354]                 invisible(future)
  [13:43:09.354]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:09.354]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [13:43:09.354]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:09.354]             {
  [13:43:09.354]                 if (substitute) 
  [13:43:09.354]                   expr <- substitute(expr)
  [13:43:09.354]                 local <- as.logical(local)
  [13:43:09.354]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [13:43:09.354]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:09.354]                   globals = globals, local = local, earlySignal = earlySignal, 
  [13:43:09.354]                   label = label, ...)
  [13:43:09.354]                 if (!future$lazy) 
  [13:43:09.354]                   future <- run(future)
  [13:43:09.354]                 invisible(future)
  [13:43:09.354]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:09.354]         }
  [13:43:09.354]         base::options(...future.oldOptions)
  [13:43:09.354]     })
  [13:43:09.354]     Sys.time
  [13:43:09.354]     if (base::is.na(TRUE)) {
  [13:43:09.354]     }
  [13:43:09.354]     else {
  [13:43:09.354]         base::sink(type = "output", split = FALSE)
  [13:43:09.354]         if (TRUE) {
  [13:43:09.354]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:09.354]         }
  [13:43:09.354]         else {
  [13:43:09.354]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:09.354]         }
  [13:43:09.354]         base::close(...future.stdout)
  [13:43:09.354]         ...future.stdout <- NULL
  [13:43:09.354]     }
  [13:43:09.354]     ...future.result$conditions <- ...future.conditions
  [13:43:09.354]     ...future.result
  [13:43:09.354] }
  [13:43:09.364] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:43:09.364] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:43:09.365] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:43:09.366] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:43:09.367] ClusterFuture started
  [13:43:09.368] Chunk #2 of 2 ... DONE
  [13:43:09.368] Launching 2 futures (chunks) ... DONE
  [13:43:09.369] - resolving futures
  [13:43:09.369]   - gathering results & relaying conditions (except errors)
  [13:43:09.369] resolve() on list ...
  [13:43:09.370]  recursive: 0
  [13:43:09.370]  length: 2
  [13:43:09.386] 
  [13:43:09.892] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:09.893] - Validating connection of ClusterFuture
  [13:43:09.894] - received message: FutureResult
  [13:43:09.894] - Received FutureResult
  [13:43:09.894] - Erased future from FutureRegistry
  [13:43:09.895] result() for ClusterFuture ...
  [13:43:09.895] - result already collected: FutureResult
  [13:43:09.895] result() for ClusterFuture ... done
  [13:43:09.896] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:09.896] Future #1
  [13:43:09.897] result() for ClusterFuture ...
  [13:43:09.897] - result already collected: FutureResult
  [13:43:09.897] result() for ClusterFuture ... done
  [13:43:09.898] result() for ClusterFuture ...
  [13:43:09.898] - result already collected: FutureResult
  [13:43:09.898] result() for ClusterFuture ... done
  [13:43:09.899] signalConditionsASAP(ClusterFuture, pos=1) ...
  [13:43:09.899] - nx: 2
  [13:43:09.899] - relay: TRUE
  [13:43:09.900] - stdout: TRUE
  [13:43:09.900] - signal: TRUE
  [13:43:09.900] - resignal: FALSE
  [13:43:09.901] - force: FALSE
  [13:43:09.901] - relayed: [n=2] FALSE, FALSE
  [13:43:09.901] - queued futures: [n=2] FALSE, FALSE
  [13:43:09.902]  - until=1
  [13:43:09.902]  - relaying element #1
  [13:43:09.902] result() for ClusterFuture ...
  [13:43:09.903] - result already collected: FutureResult
  [13:43:09.903] result() for ClusterFuture ... done
  [13:43:09.903] result() for ClusterFuture ...
  [13:43:09.904] - result already collected: FutureResult
  [13:43:09.904] result() for ClusterFuture ... done
  [13:43:09.905] result() for ClusterFuture ...
  [13:43:09.905] - result already collected: FutureResult
  [13:43:09.905] result() for ClusterFuture ... done
  [13:43:09.906] result() for ClusterFuture ...
  [13:43:09.906] - result already collected: FutureResult
  [13:43:09.922] result() for ClusterFuture ... done
  [13:43:09.923] - relayed: [n=2] TRUE, FALSE
  [13:43:09.923] - queued futures: [n=2] TRUE, FALSE
  [13:43:09.924] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [13:43:09.924]  length: 1 (resolved future 1)
  [13:43:09.926] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:09.926] - Validating connection of ClusterFuture
  [13:43:09.927] - received message: FutureResult
  [13:43:09.928] - Received FutureResult
  [13:43:09.928] - Erased future from FutureRegistry
  [13:43:09.928] result() for ClusterFuture ...
  [13:43:09.929] - result already collected: FutureResult
  [13:43:09.929] result() for ClusterFuture ... done
  [13:43:09.930] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:09.930] Future #2
  [13:43:09.930] result() for ClusterFuture ...
  [13:43:09.931] - result already collected: FutureResult
  [13:43:09.931] result() for ClusterFuture ... done
  [13:43:09.931] result() for ClusterFuture ...
  [13:43:09.936] - result already collected: FutureResult
  [13:43:09.937] result() for ClusterFuture ... done
  [13:43:09.937] signalConditionsASAP(ClusterFuture, pos=2) ...
  [13:43:09.938] - nx: 2
  [13:43:09.938] - relay: TRUE
  [13:43:09.955] - stdout: TRUE
  [13:43:09.955] - signal: TRUE
  [13:43:09.955] - resignal: FALSE
  [13:43:09.956] - force: FALSE
  [13:43:09.956] - relayed: [n=2] TRUE, FALSE
  [13:43:09.956] - queued futures: [n=2] TRUE, FALSE
  [13:43:09.957]  - until=2
  [13:43:09.957]  - relaying element #2
  [13:43:09.958] result() for ClusterFuture ...
  [13:43:09.958] - result already collected: FutureResult
  [13:43:09.958] result() for ClusterFuture ... done
  [13:43:09.959] result() for ClusterFuture ...
  [13:43:09.959] - result already collected: FutureResult
  [13:43:09.959] result() for ClusterFuture ... done
  [13:43:09.960] result() for ClusterFuture ...
  [13:43:09.960] - result already collected: FutureResult
  [13:43:09.961] result() for ClusterFuture ... done
  [13:43:09.961] result() for ClusterFuture ...
  [13:43:09.961] - result already collected: FutureResult
  [13:43:09.962] result() for ClusterFuture ... done
  [13:43:09.962] - relayed: [n=2] TRUE, TRUE
  [13:43:09.963] - queued futures: [n=2] TRUE, TRUE
  [13:43:09.963] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [13:43:09.963]  length: 0 (resolved future 2)
  [13:43:09.964] Relaying remaining futures
  [13:43:09.964] signalConditionsASAP(NULL, pos=0) ...
  [13:43:09.964] - nx: 2
  [13:43:09.965] - relay: TRUE
  [13:43:09.965] - stdout: TRUE
  [13:43:09.965] - signal: TRUE
  [13:43:09.966] - resignal: FALSE
  [13:43:09.966] - force: FALSE
  [13:43:09.966] - relayed: [n=2] TRUE, TRUE
  [13:43:09.966] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:43:09.967] - relayed: [n=2] TRUE, TRUE
  [13:43:09.967] - queued futures: [n=2] TRUE, TRUE
  [13:43:09.968] signalConditionsASAP(NULL, pos=0) ... done
  [13:43:09.968] resolve() on list ... DONE
  [13:43:09.968] - collecting values of futures
  [13:43:09.969] result() for ClusterFuture ...
  [13:43:09.969] - result already collected: FutureResult
  [13:43:09.969] result() for ClusterFuture ... done
  [13:43:09.970] result() for ClusterFuture ...
  [13:43:09.970] - result already collected: FutureResult
  [13:43:09.984] result() for ClusterFuture ... done
  [13:43:09.984] result() for ClusterFuture ...
  [13:43:09.985] - result already collected: FutureResult
  [13:43:09.985] result() for ClusterFuture ... done
  [13:43:09.985] result() for ClusterFuture ...
  [13:43:09.986] - result already collected: FutureResult
  [13:43:09.986] result() for ClusterFuture ... done
  [13:43:09.987] - accumulating results
  [13:43:09.989] - processing errors (handler = 'stop')
  [13:43:09.990] - extracting results
  [13:43:09.990] doFuture() ... DONE
  - plan(list('cluster', 'sequential')) ... DONE
  - plan(list('cluster', 'multicore')) ...
  [13:43:09.992] plan(): Setting new future strategy stack:
  [13:43:09.992] List of future strategies:
  [13:43:09.992] 1. cluster:
  [13:43:09.992]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:09.992]    - tweaked: FALSE
  [13:43:09.992]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:09.992] 2. multicore:
  [13:43:09.992]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [13:43:09.992]    - tweaked: FALSE
  [13:43:09.992]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:09.997] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:43:09.997] cluster:
  [13:43:09.997] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:09.997] - tweaked: FALSE
  [13:43:09.997] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 39351
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac2c075be1.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac2c075be1.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac2c075be1.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=39351 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac576fc766.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac576fc766.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac576fc766.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=39351 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
  [13:43:26.092] getGlobalsAndPackages() ...
  [13:43:26.093] Not searching for globals
  [13:43:26.093] - globals: [0] <none>
  [13:43:26.094] getGlobalsAndPackages() ... DONE
  [13:43:26.097] Packages needed by the future expression (n = 0): <none>
  [13:43:26.098] Packages needed by future strategies (n = 1): 'future'
  [13:43:26.108] {
  [13:43:26.108]     {
  [13:43:26.108]         ...future.startTime <- base::Sys.time()
  [13:43:26.108]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:26.108]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:26.108]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:26.108]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:26.108]             future.resolve.recursive = NULL, width = 80L)
  [13:43:26.108]         {
  [13:43:26.108]             {
  [13:43:26.108]                 {
  [13:43:26.108]                   has_future <- base::requireNamespace("future", 
  [13:43:26.108]                     quietly = TRUE)
  [13:43:26.108]                   version <- if (has_future) 
  [13:43:26.108]                     utils::packageVersion("future")
  [13:43:26.108]                   else NULL
  [13:43:26.108]                   if (!has_future || version < "1.8.0") {
  [13:43:26.108]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:26.108]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:26.108]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:26.108]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:26.108]                         "release", "version")], collapse = " "), 
  [13:43:26.108]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:26.108]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:26.108]                       info)
  [13:43:26.108]                     info <- base::paste(info, collapse = "; ")
  [13:43:26.108]                     if (!has_future) {
  [13:43:26.108]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:26.108]                         info)
  [13:43:26.108]                     }
  [13:43:26.108]                     else {
  [13:43:26.108]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:26.108]                         info, version)
  [13:43:26.108]                     }
  [13:43:26.108]                     base::stop(msg)
  [13:43:26.108]                   }
  [13:43:26.108]                 }
  [13:43:26.108]                 base::local({
  [13:43:26.108]                   for (pkg in "future") {
  [13:43:26.108]                     base::loadNamespace(pkg)
  [13:43:26.108]                     base::library(pkg, character.only = TRUE)
  [13:43:26.108]                   }
  [13:43:26.108]                 })
  [13:43:26.108]             }
  [13:43:26.108]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:26.108]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.108]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.108]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.108]             {
  [13:43:26.108]                 if (substitute) 
  [13:43:26.108]                   expr <- substitute(expr)
  [13:43:26.108]                 if (is.function(workers)) 
  [13:43:26.108]                   workers <- workers()
  [13:43:26.108]                 workers <- as.integer(workers)
  [13:43:26.108]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.108]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.108]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.108]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.108]                     local = TRUE, label = label, ...))
  [13:43:26.108]                 }
  [13:43:26.108]                 oopts <- options(mc.cores = workers)
  [13:43:26.108]                 on.exit(options(oopts))
  [13:43:26.108]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.108]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.108]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.108]                   label = label, ...)
  [13:43:26.108]                 if (!future$lazy) 
  [13:43:26.108]                   future <- run(future)
  [13:43:26.108]                 invisible(future)
  [13:43:26.108]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.108]         }
  [13:43:26.108]     }
  [13:43:26.108]     if (base::is.na(TRUE)) {
  [13:43:26.108]     }
  [13:43:26.108]     else {
  [13:43:26.108]         if (TRUE) {
  [13:43:26.108]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:26.108]                 open = "w")
  [13:43:26.108]         }
  [13:43:26.108]         else {
  [13:43:26.108]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:26.108]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:26.108]         }
  [13:43:26.108]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:26.108]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:26.108]             base::sink(type = "output", split = FALSE)
  [13:43:26.108]             base::close(...future.stdout)
  [13:43:26.108]         }, add = TRUE)
  [13:43:26.108]     }
  [13:43:26.108]     ...future.frame <- base::sys.nframe()
  [13:43:26.108]     ...future.conditions <- base::list()
  [13:43:26.108]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:26.108]     ...future.result <- base::tryCatch({
  [13:43:26.108]         base::withCallingHandlers({
  [13:43:26.108]             ...future.value <- base::withVisible(base::local({
  [13:43:26.108]                 ...future.sendCondition <- local({
  [13:43:26.108]                   sendCondition <- NULL
  [13:43:26.108]                   function(frame = 1L) {
  [13:43:26.108]                     if (is.function(sendCondition)) 
  [13:43:26.108]                       return(sendCondition)
  [13:43:26.108]                     ns <- getNamespace("parallel")
  [13:43:26.108]                     if (exists("sendData", mode = "function", 
  [13:43:26.108]                       envir = ns)) {
  [13:43:26.108]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:26.108]                         envir = ns)
  [13:43:26.108]                       envir <- sys.frame(frame)
  [13:43:26.108]                       master <- NULL
  [13:43:26.108]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:26.108]                         !identical(envir, emptyenv())) {
  [13:43:26.108]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:26.108]                           inherits = FALSE)) {
  [13:43:26.108]                           master <- get("master", mode = "list", 
  [13:43:26.108]                             envir = envir, inherits = FALSE)
  [13:43:26.108]                           if (inherits(master, "SOCKnode")) {
  [13:43:26.108]                             sendCondition <<- function(cond) {
  [13:43:26.108]                               data <- list(type = "VALUE", value = cond, 
  [13:43:26.108]                                 success = TRUE)
  [13:43:26.108]                               parallel_sendData(master, data)
  [13:43:26.108]                             }
  [13:43:26.108]                             return(sendCondition)
  [13:43:26.108]                           }
  [13:43:26.108]                         }
  [13:43:26.108]                         frame <- frame + 1L
  [13:43:26.108]                         envir <- sys.frame(frame)
  [13:43:26.108]                       }
  [13:43:26.108]                     }
  [13:43:26.108]                     sendCondition <<- function(cond) NULL
  [13:43:26.108]                   }
  [13:43:26.108]                 })
  [13:43:26.108]                 withCallingHandlers({
  [13:43:26.108]                   NA
  [13:43:26.108]                 }, immediateCondition = function(cond) {
  [13:43:26.108]                   sendCondition <- ...future.sendCondition()
  [13:43:26.108]                   sendCondition(cond)
  [13:43:26.108]                   muffleCondition <- function (cond) 
  [13:43:26.108]                   {
  [13:43:26.108]                     inherits <- base::inherits
  [13:43:26.108]                     invokeRestart <- base::invokeRestart
  [13:43:26.108]                     muffled <- FALSE
  [13:43:26.108]                     if (inherits(cond, "message")) {
  [13:43:26.108]                       invokeRestart("muffleMessage")
  [13:43:26.108]                       muffled <- TRUE
  [13:43:26.108]                     }
  [13:43:26.108]                     else if (inherits(cond, "warning")) {
  [13:43:26.108]                       invokeRestart("muffleWarning")
  [13:43:26.108]                       muffled <- TRUE
  [13:43:26.108]                     }
  [13:43:26.108]                     else if (inherits(cond, "condition")) {
  [13:43:26.108]                       computeRestarts <- base::computeRestarts
  [13:43:26.108]                       grepl <- base::grepl
  [13:43:26.108]                       is.null <- base::is.null
  [13:43:26.108]                       restarts <- computeRestarts(cond)
  [13:43:26.108]                       for (restart in restarts) {
  [13:43:26.108]                         name <- restart$name
  [13:43:26.108]                         if (is.null(name)) 
  [13:43:26.108]                           next
  [13:43:26.108]                         if (!grepl("^muffle", name)) 
  [13:43:26.108]                           next
  [13:43:26.108]                         invokeRestart(restart)
  [13:43:26.108]                         muffled <- TRUE
  [13:43:26.108]                         break
  [13:43:26.108]                       }
  [13:43:26.108]                     }
  [13:43:26.108]                     invisible(muffled)
  [13:43:26.108]                   }
  [13:43:26.108]                   muffleCondition(cond)
  [13:43:26.108]                 })
  [13:43:26.108]             }))
  [13:43:26.108]             future::FutureResult(value = ...future.value$value, 
  [13:43:26.108]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.108]                   ...future.rng), started = ...future.startTime, 
  [13:43:26.108]                 version = "1.8")
  [13:43:26.108]         }, condition = base::local({
  [13:43:26.108]             c <- base::c
  [13:43:26.108]             inherits <- base::inherits
  [13:43:26.108]             invokeRestart <- base::invokeRestart
  [13:43:26.108]             length <- base::length
  [13:43:26.108]             list <- base::list
  [13:43:26.108]             seq.int <- base::seq.int
  [13:43:26.108]             signalCondition <- base::signalCondition
  [13:43:26.108]             sys.calls <- base::sys.calls
  [13:43:26.108]             Sys.time <- base::Sys.time
  [13:43:26.108]             `[[` <- base::`[[`
  [13:43:26.108]             `+` <- base::`+`
  [13:43:26.108]             `<<-` <- base::`<<-`
  [13:43:26.108]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:26.108]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:26.108]                   3L)]
  [13:43:26.108]             }
  [13:43:26.108]             function(cond) {
  [13:43:26.108]                 if (inherits(cond, "error")) {
  [13:43:26.108]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.108]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:26.108]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:26.108]                   signalCondition(cond)
  [13:43:26.108]                 }
  [13:43:26.108]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:26.108]                 ))) {
  [13:43:26.108]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:26.108]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.108]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:26.108]                   if (!signal) {
  [13:43:26.108]                     muffleCondition <- function (cond) 
  [13:43:26.108]                     {
  [13:43:26.108]                       inherits <- base::inherits
  [13:43:26.108]                       invokeRestart <- base::invokeRestart
  [13:43:26.108]                       muffled <- FALSE
  [13:43:26.108]                       if (inherits(cond, "message")) {
  [13:43:26.108]                         invokeRestart("muffleMessage")
  [13:43:26.108]                         muffled <- TRUE
  [13:43:26.108]                       }
  [13:43:26.108]                       else if (inherits(cond, "warning")) {
  [13:43:26.108]                         invokeRestart("muffleWarning")
  [13:43:26.108]                         muffled <- TRUE
  [13:43:26.108]                       }
  [13:43:26.108]                       else if (inherits(cond, "condition")) {
  [13:43:26.108]                         computeRestarts <- base::computeRestarts
  [13:43:26.108]                         grepl <- base::grepl
  [13:43:26.108]                         is.null <- base::is.null
  [13:43:26.108]                         restarts <- computeRestarts(cond)
  [13:43:26.108]                         for (restart in restarts) {
  [13:43:26.108]                           name <- restart$name
  [13:43:26.108]                           if (is.null(name)) 
  [13:43:26.108]                             next
  [13:43:26.108]                           if (!grepl("^muffle", name)) 
  [13:43:26.108]                             next
  [13:43:26.108]                           invokeRestart(restart)
  [13:43:26.108]                           muffled <- TRUE
  [13:43:26.108]                           break
  [13:43:26.108]                         }
  [13:43:26.108]                       }
  [13:43:26.108]                       invisible(muffled)
  [13:43:26.108]                     }
  [13:43:26.108]                     muffleCondition(cond)
  [13:43:26.108]                   }
  [13:43:26.108]                 }
  [13:43:26.108]             }
  [13:43:26.108]         }))
  [13:43:26.108]     }, error = function(ex) {
  [13:43:26.108]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:26.108]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.108]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:26.108]     }, finally = {
  [13:43:26.108]         {
  [13:43:26.108]             NULL
  [13:43:26.108]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:26.108]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.108]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:26.108]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:26.108]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:26.108]                 ...) 
  [13:43:26.108]             {
  [13:43:26.108]                 if (substitute) 
  [13:43:26.108]                   expr <- substitute(expr)
  [13:43:26.108]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:26.108]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.108]                   globals = globals, persistent = persistent, 
  [13:43:26.108]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:26.108]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:26.108]                   label = label, ...)
  [13:43:26.108]                 if (!future$lazy) 
  [13:43:26.108]                   future <- run(future)
  [13:43:26.108]                 invisible(future)
  [13:43:26.108]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:26.108]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.108]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.108]             {
  [13:43:26.108]                 if (substitute) 
  [13:43:26.108]                   expr <- substitute(expr)
  [13:43:26.108]                 if (is.function(workers)) 
  [13:43:26.108]                   workers <- workers()
  [13:43:26.108]                 workers <- as.integer(workers)
  [13:43:26.108]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.108]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.108]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.108]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.108]                     local = TRUE, label = label, ...))
  [13:43:26.108]                 }
  [13:43:26.108]                 oopts <- options(mc.cores = workers)
  [13:43:26.108]                 on.exit(options(oopts))
  [13:43:26.108]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.108]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.108]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.108]                   label = label, ...)
  [13:43:26.108]                 if (!future$lazy) 
  [13:43:26.108]                   future <- run(future)
  [13:43:26.108]                 invisible(future)
  [13:43:26.108]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.108]         }
  [13:43:26.108]         base::options(...future.oldOptions)
  [13:43:26.108]     })
  [13:43:26.108]     Sys.time
  [13:43:26.108]     if (base::is.na(TRUE)) {
  [13:43:26.108]     }
  [13:43:26.108]     else {
  [13:43:26.108]         base::sink(type = "output", split = FALSE)
  [13:43:26.108]         if (TRUE) {
  [13:43:26.108]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:26.108]         }
  [13:43:26.108]         else {
  [13:43:26.108]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:26.108]         }
  [13:43:26.108]         base::close(...future.stdout)
  [13:43:26.108]         ...future.stdout <- NULL
  [13:43:26.108]     }
  [13:43:26.108]     ...future.result$conditions <- ...future.conditions
  [13:43:26.108]     ...future.result
  [13:43:26.108] }
  [13:43:26.123] ClusterFuture started
  [13:43:26.123] result() for ClusterFuture ...
  [13:43:26.124] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:26.124] - Validating connection of ClusterFuture
  [13:43:26.382] - received message: FutureResult
  [13:43:26.382] - Received FutureResult
  [13:43:26.383] - Erased future from FutureRegistry
  [13:43:26.383] result() for ClusterFuture ...
  [13:43:26.384] - result already collected: FutureResult
  [13:43:26.384] result() for ClusterFuture ... done
  [13:43:26.385] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:26.385] result() for ClusterFuture ... done
  [13:43:26.385] result() for ClusterFuture ...
  [13:43:26.386] - result already collected: FutureResult
  [13:43:26.386] result() for ClusterFuture ... done
  [13:43:26.387] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:43:26.388] plan(): nbrOfWorkers() = 2
  [13:43:26.389] doFuture() ...
  [13:43:26.403] - dummy globals (as locals): [2] 'a', 'b'
  [13:43:26.404] - R expression:
  [13:43:26.404] {
  [13:43:26.404]     doFuture::registerDoFuture()
  [13:43:26.404]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:26.404]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:26.404]         {
  [13:43:26.404]             a <- NULL
  [13:43:26.404]             b <- NULL
  [13:43:26.404]         }
  [13:43:26.404]         ...future.env <- environment()
  [13:43:26.404]         local({
  [13:43:26.404]             for (name in names(...future.x_jj)) {
  [13:43:26.404]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:26.404]                   inherits = FALSE)
  [13:43:26.404]             }
  [13:43:26.404]         })
  [13:43:26.404]         tryCatch({
  [13:43:26.404]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:26.404]                 plan = future::plan("next"))
  [13:43:26.404]         }, error = identity)
  [13:43:26.404]     })
  [13:43:26.404] }
  [13:43:26.405] - identifying globals and packages ...
  [13:43:26.406] getGlobalsAndPackages() ...
  [13:43:26.406] Searching for globals...
  [13:43:26.444] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:43:26.444] Searching for globals ... DONE
  [13:43:26.445] Resolving globals: FALSE
  [13:43:26.446] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:43:26.447] - globals: [1] '...future.x_ii'
  [13:43:26.447] 
  [13:43:26.448] getGlobalsAndPackages() ... DONE
  [13:43:26.448] List of 1
  [13:43:26.448]  $ ...future.x_ii: NULL
  [13:43:26.448]  - attr(*, "where")=List of 1
  [13:43:26.448]   ..$ ...future.x_ii:<environment: 0x5617cb462d90> 
  [13:43:26.448]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:26.448]  - attr(*, "resolved")= logi FALSE
  [13:43:26.448]  - attr(*, "total_size")= num 0
  [13:43:26.455]   - R expression:
  [13:43:26.455] {
  [13:43:26.455]     doFuture::registerDoFuture()
  [13:43:26.455]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:26.455]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:26.455]         {
  [13:43:26.455]             a <- NULL
  [13:43:26.455]             b <- NULL
  [13:43:26.455]         }
  [13:43:26.455]         ...future.env <- environment()
  [13:43:26.455]         local({
  [13:43:26.455]             for (name in names(...future.x_jj)) {
  [13:43:26.455]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:26.455]                   inherits = FALSE)
  [13:43:26.455]             }
  [13:43:26.455]         })
  [13:43:26.455]         tryCatch({
  [13:43:26.455]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:26.455]                 plan = future::plan("next"))
  [13:43:26.455]         }, error = identity)
  [13:43:26.455]     })
  [13:43:26.455] }
  [13:43:26.456]   - globals: [1] '...future.x_ii'
  [13:43:26.456] List of 1
  [13:43:26.456]  $ ...future.x_ii: NULL
  [13:43:26.456]  - attr(*, "where")=List of 1
  [13:43:26.456]   ..$ ...future.x_ii:<environment: 0x5617cb462d90> 
  [13:43:26.456]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:26.456]  - attr(*, "resolved")= logi FALSE
  [13:43:26.456]  - attr(*, "total_size")= num 0
  [13:43:26.485]   - packages: [1] 'doFuture'
  [13:43:26.485] - identifying globals and packages ... DONE
  [13:43:26.488] Number of chunks: 2
  [13:43:26.488] Number of futures (= number of chunks): 2
  [13:43:26.489] Launching 2 futures (chunks) ...
  [13:43:26.489] Chunk #1 of 2 ...
  [13:43:26.490]  - Finding globals in 'args_list' chunk #1 ...
  [13:43:26.490] getGlobalsAndPackages() ...
  [13:43:26.490] Searching for globals...
  [13:43:26.491] 
  [13:43:26.492] Searching for globals ... DONE
  [13:43:26.492] - globals: [0] <none>
  [13:43:26.493] getGlobalsAndPackages() ... DONE
  [13:43:26.493] 
  [13:43:26.493] 
  [13:43:26.494]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:43:26.519] getGlobalsAndPackages() ...
  [13:43:26.520] - globals passed as-is: [1] '...future.x_ii'
  [13:43:26.520] Resolving globals: FALSE
  [13:43:26.521] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:26.522] - globals: [1] '...future.x_ii'
  [13:43:26.522] 
  [13:43:26.522] getGlobalsAndPackages() ... DONE
  [13:43:26.542] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:26.543] Packages needed by future strategies (n = 1): 'future'
  [13:43:26.549] {
  [13:43:26.549]     {
  [13:43:26.549]         ...future.startTime <- base::Sys.time()
  [13:43:26.549]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:26.549]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:26.549]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:26.549]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:26.549]             future.resolve.recursive = NULL, width = 80L)
  [13:43:26.549]         {
  [13:43:26.549]             {
  [13:43:26.549]                 {
  [13:43:26.549]                   has_future <- base::requireNamespace("future", 
  [13:43:26.549]                     quietly = TRUE)
  [13:43:26.549]                   version <- if (has_future) 
  [13:43:26.549]                     utils::packageVersion("future")
  [13:43:26.549]                   else NULL
  [13:43:26.549]                   if (!has_future || version < "1.8.0") {
  [13:43:26.549]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:26.549]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:26.549]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:26.549]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:26.549]                         "release", "version")], collapse = " "), 
  [13:43:26.549]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:26.549]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:26.549]                       info)
  [13:43:26.549]                     info <- base::paste(info, collapse = "; ")
  [13:43:26.549]                     if (!has_future) {
  [13:43:26.549]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:26.549]                         info)
  [13:43:26.549]                     }
  [13:43:26.549]                     else {
  [13:43:26.549]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:26.549]                         info, version)
  [13:43:26.549]                     }
  [13:43:26.549]                     base::stop(msg)
  [13:43:26.549]                   }
  [13:43:26.549]                 }
  [13:43:26.549]                 base::local({
  [13:43:26.549]                   for (pkg in c("doFuture", "future")) {
  [13:43:26.549]                     base::loadNamespace(pkg)
  [13:43:26.549]                     base::library(pkg, character.only = TRUE)
  [13:43:26.549]                   }
  [13:43:26.549]                 })
  [13:43:26.549]             }
  [13:43:26.549]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:26.549]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.549]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.549]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.549]             {
  [13:43:26.549]                 if (substitute) 
  [13:43:26.549]                   expr <- substitute(expr)
  [13:43:26.549]                 if (is.function(workers)) 
  [13:43:26.549]                   workers <- workers()
  [13:43:26.549]                 workers <- as.integer(workers)
  [13:43:26.549]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.549]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.549]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.549]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.549]                     local = TRUE, label = label, ...))
  [13:43:26.549]                 }
  [13:43:26.549]                 oopts <- options(mc.cores = workers)
  [13:43:26.549]                 on.exit(options(oopts))
  [13:43:26.549]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.549]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.549]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.549]                   label = label, ...)
  [13:43:26.549]                 if (!future$lazy) 
  [13:43:26.549]                   future <- run(future)
  [13:43:26.549]                 invisible(future)
  [13:43:26.549]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.549]         }
  [13:43:26.549]     }
  [13:43:26.549]     if (base::is.na(TRUE)) {
  [13:43:26.549]     }
  [13:43:26.549]     else {
  [13:43:26.549]         if (TRUE) {
  [13:43:26.549]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:26.549]                 open = "w")
  [13:43:26.549]         }
  [13:43:26.549]         else {
  [13:43:26.549]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:26.549]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:26.549]         }
  [13:43:26.549]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:26.549]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:26.549]             base::sink(type = "output", split = FALSE)
  [13:43:26.549]             base::close(...future.stdout)
  [13:43:26.549]         }, add = TRUE)
  [13:43:26.549]     }
  [13:43:26.549]     ...future.frame <- base::sys.nframe()
  [13:43:26.549]     ...future.conditions <- base::list()
  [13:43:26.549]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:26.549]     ...future.result <- base::tryCatch({
  [13:43:26.549]         base::withCallingHandlers({
  [13:43:26.549]             ...future.value <- base::withVisible(base::local({
  [13:43:26.549]                 ...future.sendCondition <- local({
  [13:43:26.549]                   sendCondition <- NULL
  [13:43:26.549]                   function(frame = 1L) {
  [13:43:26.549]                     if (is.function(sendCondition)) 
  [13:43:26.549]                       return(sendCondition)
  [13:43:26.549]                     ns <- getNamespace("parallel")
  [13:43:26.549]                     if (exists("sendData", mode = "function", 
  [13:43:26.549]                       envir = ns)) {
  [13:43:26.549]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:26.549]                         envir = ns)
  [13:43:26.549]                       envir <- sys.frame(frame)
  [13:43:26.549]                       master <- NULL
  [13:43:26.549]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:26.549]                         !identical(envir, emptyenv())) {
  [13:43:26.549]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:26.549]                           inherits = FALSE)) {
  [13:43:26.549]                           master <- get("master", mode = "list", 
  [13:43:26.549]                             envir = envir, inherits = FALSE)
  [13:43:26.549]                           if (inherits(master, "SOCKnode")) {
  [13:43:26.549]                             sendCondition <<- function(cond) {
  [13:43:26.549]                               data <- list(type = "VALUE", value = cond, 
  [13:43:26.549]                                 success = TRUE)
  [13:43:26.549]                               parallel_sendData(master, data)
  [13:43:26.549]                             }
  [13:43:26.549]                             return(sendCondition)
  [13:43:26.549]                           }
  [13:43:26.549]                         }
  [13:43:26.549]                         frame <- frame + 1L
  [13:43:26.549]                         envir <- sys.frame(frame)
  [13:43:26.549]                       }
  [13:43:26.549]                     }
  [13:43:26.549]                     sendCondition <<- function(cond) NULL
  [13:43:26.549]                   }
  [13:43:26.549]                 })
  [13:43:26.549]                 withCallingHandlers({
  [13:43:26.549]                   {
  [13:43:26.549]                     doFuture::registerDoFuture()
  [13:43:26.549]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:26.549]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:26.549]                       {
  [13:43:26.549]                         a <- NULL
  [13:43:26.549]                         b <- NULL
  [13:43:26.549]                       }
  [13:43:26.549]                       ...future.env <- environment()
  [13:43:26.549]                       local({
  [13:43:26.549]                         for (name in names(...future.x_jj)) {
  [13:43:26.549]                           assign(name, ...future.x_jj[[name]], 
  [13:43:26.549]                             envir = ...future.env, inherits = FALSE)
  [13:43:26.549]                         }
  [13:43:26.549]                       })
  [13:43:26.549]                       tryCatch({
  [13:43:26.549]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:26.549]                           plan = future::plan("next"))
  [13:43:26.549]                       }, error = identity)
  [13:43:26.549]                     })
  [13:43:26.549]                   }
  [13:43:26.549]                 }, immediateCondition = function(cond) {
  [13:43:26.549]                   sendCondition <- ...future.sendCondition()
  [13:43:26.549]                   sendCondition(cond)
  [13:43:26.549]                   muffleCondition <- function (cond) 
  [13:43:26.549]                   {
  [13:43:26.549]                     inherits <- base::inherits
  [13:43:26.549]                     invokeRestart <- base::invokeRestart
  [13:43:26.549]                     muffled <- FALSE
  [13:43:26.549]                     if (inherits(cond, "message")) {
  [13:43:26.549]                       invokeRestart("muffleMessage")
  [13:43:26.549]                       muffled <- TRUE
  [13:43:26.549]                     }
  [13:43:26.549]                     else if (inherits(cond, "warning")) {
  [13:43:26.549]                       invokeRestart("muffleWarning")
  [13:43:26.549]                       muffled <- TRUE
  [13:43:26.549]                     }
  [13:43:26.549]                     else if (inherits(cond, "condition")) {
  [13:43:26.549]                       computeRestarts <- base::computeRestarts
  [13:43:26.549]                       grepl <- base::grepl
  [13:43:26.549]                       is.null <- base::is.null
  [13:43:26.549]                       restarts <- computeRestarts(cond)
  [13:43:26.549]                       for (restart in restarts) {
  [13:43:26.549]                         name <- restart$name
  [13:43:26.549]                         if (is.null(name)) 
  [13:43:26.549]                           next
  [13:43:26.549]                         if (!grepl("^muffle", name)) 
  [13:43:26.549]                           next
  [13:43:26.549]                         invokeRestart(restart)
  [13:43:26.549]                         muffled <- TRUE
  [13:43:26.549]                         break
  [13:43:26.549]                       }
  [13:43:26.549]                     }
  [13:43:26.549]                     invisible(muffled)
  [13:43:26.549]                   }
  [13:43:26.549]                   muffleCondition(cond)
  [13:43:26.549]                 })
  [13:43:26.549]             }))
  [13:43:26.549]             future::FutureResult(value = ...future.value$value, 
  [13:43:26.549]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.549]                   ...future.rng), started = ...future.startTime, 
  [13:43:26.549]                 version = "1.8")
  [13:43:26.549]         }, condition = base::local({
  [13:43:26.549]             c <- base::c
  [13:43:26.549]             inherits <- base::inherits
  [13:43:26.549]             invokeRestart <- base::invokeRestart
  [13:43:26.549]             length <- base::length
  [13:43:26.549]             list <- base::list
  [13:43:26.549]             seq.int <- base::seq.int
  [13:43:26.549]             signalCondition <- base::signalCondition
  [13:43:26.549]             sys.calls <- base::sys.calls
  [13:43:26.549]             Sys.time <- base::Sys.time
  [13:43:26.549]             `[[` <- base::`[[`
  [13:43:26.549]             `+` <- base::`+`
  [13:43:26.549]             `<<-` <- base::`<<-`
  [13:43:26.549]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:26.549]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:26.549]                   3L)]
  [13:43:26.549]             }
  [13:43:26.549]             function(cond) {
  [13:43:26.549]                 if (inherits(cond, "error")) {
  [13:43:26.549]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.549]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:26.549]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:26.549]                   signalCondition(cond)
  [13:43:26.549]                 }
  [13:43:26.549]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:26.549]                 ))) {
  [13:43:26.549]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:26.549]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.549]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:26.549]                   if (!signal) {
  [13:43:26.549]                     muffleCondition <- function (cond) 
  [13:43:26.549]                     {
  [13:43:26.549]                       inherits <- base::inherits
  [13:43:26.549]                       invokeRestart <- base::invokeRestart
  [13:43:26.549]                       muffled <- FALSE
  [13:43:26.549]                       if (inherits(cond, "message")) {
  [13:43:26.549]                         invokeRestart("muffleMessage")
  [13:43:26.549]                         muffled <- TRUE
  [13:43:26.549]                       }
  [13:43:26.549]                       else if (inherits(cond, "warning")) {
  [13:43:26.549]                         invokeRestart("muffleWarning")
  [13:43:26.549]                         muffled <- TRUE
  [13:43:26.549]                       }
  [13:43:26.549]                       else if (inherits(cond, "condition")) {
  [13:43:26.549]                         computeRestarts <- base::computeRestarts
  [13:43:26.549]                         grepl <- base::grepl
  [13:43:26.549]                         is.null <- base::is.null
  [13:43:26.549]                         restarts <- computeRestarts(cond)
  [13:43:26.549]                         for (restart in restarts) {
  [13:43:26.549]                           name <- restart$name
  [13:43:26.549]                           if (is.null(name)) 
  [13:43:26.549]                             next
  [13:43:26.549]                           if (!grepl("^muffle", name)) 
  [13:43:26.549]                             next
  [13:43:26.549]                           invokeRestart(restart)
  [13:43:26.549]                           muffled <- TRUE
  [13:43:26.549]                           break
  [13:43:26.549]                         }
  [13:43:26.549]                       }
  [13:43:26.549]                       invisible(muffled)
  [13:43:26.549]                     }
  [13:43:26.549]                     muffleCondition(cond)
  [13:43:26.549]                   }
  [13:43:26.549]                 }
  [13:43:26.549]             }
  [13:43:26.549]         }))
  [13:43:26.549]     }, error = function(ex) {
  [13:43:26.549]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:26.549]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.549]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:26.549]     }, finally = {
  [13:43:26.549]         {
  [13:43:26.549]             NULL
  [13:43:26.549]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:26.549]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.549]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:26.549]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:26.549]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:26.549]                 ...) 
  [13:43:26.549]             {
  [13:43:26.549]                 if (substitute) 
  [13:43:26.549]                   expr <- substitute(expr)
  [13:43:26.549]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:26.549]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.549]                   globals = globals, persistent = persistent, 
  [13:43:26.549]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:26.549]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:26.549]                   label = label, ...)
  [13:43:26.549]                 if (!future$lazy) 
  [13:43:26.549]                   future <- run(future)
  [13:43:26.549]                 invisible(future)
  [13:43:26.549]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:26.549]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.549]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.549]             {
  [13:43:26.549]                 if (substitute) 
  [13:43:26.549]                   expr <- substitute(expr)
  [13:43:26.549]                 if (is.function(workers)) 
  [13:43:26.549]                   workers <- workers()
  [13:43:26.549]                 workers <- as.integer(workers)
  [13:43:26.549]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.549]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.549]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.549]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.549]                     local = TRUE, label = label, ...))
  [13:43:26.549]                 }
  [13:43:26.549]                 oopts <- options(mc.cores = workers)
  [13:43:26.549]                 on.exit(options(oopts))
  [13:43:26.549]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.549]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.549]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.549]                   label = label, ...)
  [13:43:26.549]                 if (!future$lazy) 
  [13:43:26.549]                   future <- run(future)
  [13:43:26.549]                 invisible(future)
  [13:43:26.549]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.549]         }
  [13:43:26.549]         base::options(...future.oldOptions)
  [13:43:26.549]     })
  [13:43:26.549]     Sys.time
  [13:43:26.549]     if (base::is.na(TRUE)) {
  [13:43:26.549]     }
  [13:43:26.549]     else {
  [13:43:26.549]         base::sink(type = "output", split = FALSE)
  [13:43:26.549]         if (TRUE) {
  [13:43:26.549]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:26.549]         }
  [13:43:26.549]         else {
  [13:43:26.549]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:26.549]         }
  [13:43:26.549]         base::close(...future.stdout)
  [13:43:26.549]         ...future.stdout <- NULL
  [13:43:26.549]     }
  [13:43:26.549]     ...future.result$conditions <- ...future.conditions
  [13:43:26.549]     ...future.result
  [13:43:26.549] }
  [13:43:26.571] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:43:26.571] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:43:26.587] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:43:26.587] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:43:26.589] ClusterFuture started
  [13:43:26.589] Chunk #1 of 2 ... DONE
  [13:43:26.589] Chunk #2 of 2 ...
  [13:43:26.590]  - Finding globals in 'args_list' chunk #2 ...
  [13:43:26.590] getGlobalsAndPackages() ...
  [13:43:26.590] Searching for globals...
  [13:43:26.591] 
  [13:43:26.592] Searching for globals ... DONE
  [13:43:26.592] - globals: [0] <none>
  [13:43:26.592] getGlobalsAndPackages() ... DONE
  [13:43:26.593] 
  [13:43:26.593] 
  [13:43:26.593]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:43:26.615] getGlobalsAndPackages() ...
  [13:43:26.615] - globals passed as-is: [1] '...future.x_ii'
  [13:43:26.616] Resolving globals: FALSE
  [13:43:26.617] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:26.617] - globals: [1] '...future.x_ii'
  [13:43:26.618] 
  [13:43:26.618] getGlobalsAndPackages() ... DONE
  [13:43:26.622] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:26.623] Packages needed by future strategies (n = 1): 'future'
  [13:43:26.651] {
  [13:43:26.651]     {
  [13:43:26.651]         ...future.startTime <- base::Sys.time()
  [13:43:26.651]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:26.651]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:26.651]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:26.651]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:26.651]             future.resolve.recursive = NULL, width = 80L)
  [13:43:26.651]         {
  [13:43:26.651]             {
  [13:43:26.651]                 {
  [13:43:26.651]                   has_future <- base::requireNamespace("future", 
  [13:43:26.651]                     quietly = TRUE)
  [13:43:26.651]                   version <- if (has_future) 
  [13:43:26.651]                     utils::packageVersion("future")
  [13:43:26.651]                   else NULL
  [13:43:26.651]                   if (!has_future || version < "1.8.0") {
  [13:43:26.651]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:26.651]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:26.651]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:26.651]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:26.651]                         "release", "version")], collapse = " "), 
  [13:43:26.651]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:26.651]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:26.651]                       info)
  [13:43:26.651]                     info <- base::paste(info, collapse = "; ")
  [13:43:26.651]                     if (!has_future) {
  [13:43:26.651]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:26.651]                         info)
  [13:43:26.651]                     }
  [13:43:26.651]                     else {
  [13:43:26.651]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:26.651]                         info, version)
  [13:43:26.651]                     }
  [13:43:26.651]                     base::stop(msg)
  [13:43:26.651]                   }
  [13:43:26.651]                 }
  [13:43:26.651]                 base::local({
  [13:43:26.651]                   for (pkg in c("doFuture", "future")) {
  [13:43:26.651]                     base::loadNamespace(pkg)
  [13:43:26.651]                     base::library(pkg, character.only = TRUE)
  [13:43:26.651]                   }
  [13:43:26.651]                 })
  [13:43:26.651]             }
  [13:43:26.651]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:26.651]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.651]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.651]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.651]             {
  [13:43:26.651]                 if (substitute) 
  [13:43:26.651]                   expr <- substitute(expr)
  [13:43:26.651]                 if (is.function(workers)) 
  [13:43:26.651]                   workers <- workers()
  [13:43:26.651]                 workers <- as.integer(workers)
  [13:43:26.651]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.651]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.651]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.651]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.651]                     local = TRUE, label = label, ...))
  [13:43:26.651]                 }
  [13:43:26.651]                 oopts <- options(mc.cores = workers)
  [13:43:26.651]                 on.exit(options(oopts))
  [13:43:26.651]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.651]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.651]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.651]                   label = label, ...)
  [13:43:26.651]                 if (!future$lazy) 
  [13:43:26.651]                   future <- run(future)
  [13:43:26.651]                 invisible(future)
  [13:43:26.651]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.651]         }
  [13:43:26.651]     }
  [13:43:26.651]     if (base::is.na(TRUE)) {
  [13:43:26.651]     }
  [13:43:26.651]     else {
  [13:43:26.651]         if (TRUE) {
  [13:43:26.651]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:26.651]                 open = "w")
  [13:43:26.651]         }
  [13:43:26.651]         else {
  [13:43:26.651]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:26.651]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:26.651]         }
  [13:43:26.651]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:26.651]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:26.651]             base::sink(type = "output", split = FALSE)
  [13:43:26.651]             base::close(...future.stdout)
  [13:43:26.651]         }, add = TRUE)
  [13:43:26.651]     }
  [13:43:26.651]     ...future.frame <- base::sys.nframe()
  [13:43:26.651]     ...future.conditions <- base::list()
  [13:43:26.651]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:26.651]     ...future.result <- base::tryCatch({
  [13:43:26.651]         base::withCallingHandlers({
  [13:43:26.651]             ...future.value <- base::withVisible(base::local({
  [13:43:26.651]                 ...future.sendCondition <- local({
  [13:43:26.651]                   sendCondition <- NULL
  [13:43:26.651]                   function(frame = 1L) {
  [13:43:26.651]                     if (is.function(sendCondition)) 
  [13:43:26.651]                       return(sendCondition)
  [13:43:26.651]                     ns <- getNamespace("parallel")
  [13:43:26.651]                     if (exists("sendData", mode = "function", 
  [13:43:26.651]                       envir = ns)) {
  [13:43:26.651]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:26.651]                         envir = ns)
  [13:43:26.651]                       envir <- sys.frame(frame)
  [13:43:26.651]                       master <- NULL
  [13:43:26.651]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:26.651]                         !identical(envir, emptyenv())) {
  [13:43:26.651]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:26.651]                           inherits = FALSE)) {
  [13:43:26.651]                           master <- get("master", mode = "list", 
  [13:43:26.651]                             envir = envir, inherits = FALSE)
  [13:43:26.651]                           if (inherits(master, "SOCKnode")) {
  [13:43:26.651]                             sendCondition <<- function(cond) {
  [13:43:26.651]                               data <- list(type = "VALUE", value = cond, 
  [13:43:26.651]                                 success = TRUE)
  [13:43:26.651]                               parallel_sendData(master, data)
  [13:43:26.651]                             }
  [13:43:26.651]                             return(sendCondition)
  [13:43:26.651]                           }
  [13:43:26.651]                         }
  [13:43:26.651]                         frame <- frame + 1L
  [13:43:26.651]                         envir <- sys.frame(frame)
  [13:43:26.651]                       }
  [13:43:26.651]                     }
  [13:43:26.651]                     sendCondition <<- function(cond) NULL
  [13:43:26.651]                   }
  [13:43:26.651]                 })
  [13:43:26.651]                 withCallingHandlers({
  [13:43:26.651]                   {
  [13:43:26.651]                     doFuture::registerDoFuture()
  [13:43:26.651]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:26.651]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:26.651]                       {
  [13:43:26.651]                         a <- NULL
  [13:43:26.651]                         b <- NULL
  [13:43:26.651]                       }
  [13:43:26.651]                       ...future.env <- environment()
  [13:43:26.651]                       local({
  [13:43:26.651]                         for (name in names(...future.x_jj)) {
  [13:43:26.651]                           assign(name, ...future.x_jj[[name]], 
  [13:43:26.651]                             envir = ...future.env, inherits = FALSE)
  [13:43:26.651]                         }
  [13:43:26.651]                       })
  [13:43:26.651]                       tryCatch({
  [13:43:26.651]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:26.651]                           plan = future::plan("next"))
  [13:43:26.651]                       }, error = identity)
  [13:43:26.651]                     })
  [13:43:26.651]                   }
  [13:43:26.651]                 }, immediateCondition = function(cond) {
  [13:43:26.651]                   sendCondition <- ...future.sendCondition()
  [13:43:26.651]                   sendCondition(cond)
  [13:43:26.651]                   muffleCondition <- function (cond) 
  [13:43:26.651]                   {
  [13:43:26.651]                     inherits <- base::inherits
  [13:43:26.651]                     invokeRestart <- base::invokeRestart
  [13:43:26.651]                     muffled <- FALSE
  [13:43:26.651]                     if (inherits(cond, "message")) {
  [13:43:26.651]                       invokeRestart("muffleMessage")
  [13:43:26.651]                       muffled <- TRUE
  [13:43:26.651]                     }
  [13:43:26.651]                     else if (inherits(cond, "warning")) {
  [13:43:26.651]                       invokeRestart("muffleWarning")
  [13:43:26.651]                       muffled <- TRUE
  [13:43:26.651]                     }
  [13:43:26.651]                     else if (inherits(cond, "condition")) {
  [13:43:26.651]                       computeRestarts <- base::computeRestarts
  [13:43:26.651]                       grepl <- base::grepl
  [13:43:26.651]                       is.null <- base::is.null
  [13:43:26.651]                       restarts <- computeRestarts(cond)
  [13:43:26.651]                       for (restart in restarts) {
  [13:43:26.651]                         name <- restart$name
  [13:43:26.651]                         if (is.null(name)) 
  [13:43:26.651]                           next
  [13:43:26.651]                         if (!grepl("^muffle", name)) 
  [13:43:26.651]                           next
  [13:43:26.651]                         invokeRestart(restart)
  [13:43:26.651]                         muffled <- TRUE
  [13:43:26.651]                         break
  [13:43:26.651]                       }
  [13:43:26.651]                     }
  [13:43:26.651]                     invisible(muffled)
  [13:43:26.651]                   }
  [13:43:26.651]                   muffleCondition(cond)
  [13:43:26.651]                 })
  [13:43:26.651]             }))
  [13:43:26.651]             future::FutureResult(value = ...future.value$value, 
  [13:43:26.651]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.651]                   ...future.rng), started = ...future.startTime, 
  [13:43:26.651]                 version = "1.8")
  [13:43:26.651]         }, condition = base::local({
  [13:43:26.651]             c <- base::c
  [13:43:26.651]             inherits <- base::inherits
  [13:43:26.651]             invokeRestart <- base::invokeRestart
  [13:43:26.651]             length <- base::length
  [13:43:26.651]             list <- base::list
  [13:43:26.651]             seq.int <- base::seq.int
  [13:43:26.651]             signalCondition <- base::signalCondition
  [13:43:26.651]             sys.calls <- base::sys.calls
  [13:43:26.651]             Sys.time <- base::Sys.time
  [13:43:26.651]             `[[` <- base::`[[`
  [13:43:26.651]             `+` <- base::`+`
  [13:43:26.651]             `<<-` <- base::`<<-`
  [13:43:26.651]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:26.651]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:26.651]                   3L)]
  [13:43:26.651]             }
  [13:43:26.651]             function(cond) {
  [13:43:26.651]                 if (inherits(cond, "error")) {
  [13:43:26.651]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.651]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:26.651]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:26.651]                   signalCondition(cond)
  [13:43:26.651]                 }
  [13:43:26.651]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:26.651]                 ))) {
  [13:43:26.651]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:26.651]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:26.651]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:26.651]                   if (!signal) {
  [13:43:26.651]                     muffleCondition <- function (cond) 
  [13:43:26.651]                     {
  [13:43:26.651]                       inherits <- base::inherits
  [13:43:26.651]                       invokeRestart <- base::invokeRestart
  [13:43:26.651]                       muffled <- FALSE
  [13:43:26.651]                       if (inherits(cond, "message")) {
  [13:43:26.651]                         invokeRestart("muffleMessage")
  [13:43:26.651]                         muffled <- TRUE
  [13:43:26.651]                       }
  [13:43:26.651]                       else if (inherits(cond, "warning")) {
  [13:43:26.651]                         invokeRestart("muffleWarning")
  [13:43:26.651]                         muffled <- TRUE
  [13:43:26.651]                       }
  [13:43:26.651]                       else if (inherits(cond, "condition")) {
  [13:43:26.651]                         computeRestarts <- base::computeRestarts
  [13:43:26.651]                         grepl <- base::grepl
  [13:43:26.651]                         is.null <- base::is.null
  [13:43:26.651]                         restarts <- computeRestarts(cond)
  [13:43:26.651]                         for (restart in restarts) {
  [13:43:26.651]                           name <- restart$name
  [13:43:26.651]                           if (is.null(name)) 
  [13:43:26.651]                             next
  [13:43:26.651]                           if (!grepl("^muffle", name)) 
  [13:43:26.651]                             next
  [13:43:26.651]                           invokeRestart(restart)
  [13:43:26.651]                           muffled <- TRUE
  [13:43:26.651]                           break
  [13:43:26.651]                         }
  [13:43:26.651]                       }
  [13:43:26.651]                       invisible(muffled)
  [13:43:26.651]                     }
  [13:43:26.651]                     muffleCondition(cond)
  [13:43:26.651]                   }
  [13:43:26.651]                 }
  [13:43:26.651]             }
  [13:43:26.651]         }))
  [13:43:26.651]     }, error = function(ex) {
  [13:43:26.651]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:26.651]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:26.651]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:26.651]     }, finally = {
  [13:43:26.651]         {
  [13:43:26.651]             NULL
  [13:43:26.651]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:26.651]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:26.651]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:26.651]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:26.651]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:26.651]                 ...) 
  [13:43:26.651]             {
  [13:43:26.651]                 if (substitute) 
  [13:43:26.651]                   expr <- substitute(expr)
  [13:43:26.651]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:26.651]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.651]                   globals = globals, persistent = persistent, 
  [13:43:26.651]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:26.651]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:26.651]                   label = label, ...)
  [13:43:26.651]                 if (!future$lazy) 
  [13:43:26.651]                   future <- run(future)
  [13:43:26.651]                 invisible(future)
  [13:43:26.651]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:26.651]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [13:43:26.651]                 earlySignal = FALSE, label = NULL, ...) 
  [13:43:26.651]             {
  [13:43:26.651]                 if (substitute) 
  [13:43:26.651]                   expr <- substitute(expr)
  [13:43:26.651]                 if (is.function(workers)) 
  [13:43:26.651]                   workers <- workers()
  [13:43:26.651]                 workers <- as.integer(workers)
  [13:43:26.651]                 stop_if_not(is.finite(workers), workers >= 1L)
  [13:43:26.651]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [13:43:26.651]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:26.651]                     lazy = lazy, seed = seed, globals = globals, 
  [13:43:26.651]                     local = TRUE, label = label, ...))
  [13:43:26.651]                 }
  [13:43:26.651]                 oopts <- options(mc.cores = workers)
  [13:43:26.651]                 on.exit(options(oopts))
  [13:43:26.651]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [13:43:26.651]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:26.651]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [13:43:26.651]                   label = label, ...)
  [13:43:26.651]                 if (!future$lazy) 
  [13:43:26.651]                   future <- run(future)
  [13:43:26.651]                 invisible(future)
  [13:43:26.651]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:26.651]         }
  [13:43:26.651]         base::options(...future.oldOptions)
  [13:43:26.651]     })
  [13:43:26.651]     Sys.time
  [13:43:26.651]     if (base::is.na(TRUE)) {
  [13:43:26.651]     }
  [13:43:26.651]     else {
  [13:43:26.651]         base::sink(type = "output", split = FALSE)
  [13:43:26.651]         if (TRUE) {
  [13:43:26.651]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:26.651]         }
  [13:43:26.651]         else {
  [13:43:26.651]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:26.651]         }
  [13:43:26.651]         base::close(...future.stdout)
  [13:43:26.651]         ...future.stdout <- NULL
  [13:43:26.651]     }
  [13:43:26.651]     ...future.result$conditions <- ...future.conditions
  [13:43:26.651]     ...future.result
  [13:43:26.651] }
  [13:43:26.666] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:43:26.667] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:43:26.668] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:43:26.668] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:43:26.670] ClusterFuture started
  [13:43:26.670] Chunk #2 of 2 ... DONE
  [13:43:26.671] Launching 2 futures (chunks) ... DONE
  [13:43:26.671] - resolving futures
  [13:43:26.671]   - gathering results & relaying conditions (except errors)
  [13:43:26.672] resolve() on list ...
  [13:43:26.672]  recursive: 0
  [13:43:26.672]  length: 2
  [13:43:26.673] 
  [13:43:26.846] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:26.847] - Validating connection of ClusterFuture
  [13:43:26.887] - received message: FutureResult
  [13:43:26.888] - Received FutureResult
  [13:43:26.888] - Erased future from FutureRegistry
  [13:43:26.888] result() for ClusterFuture ...
  [13:43:26.889] - result already collected: FutureResult
  [13:43:26.889] result() for ClusterFuture ... done
  [13:43:26.890] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:26.890] Future #1
  [13:43:26.890] result() for ClusterFuture ...
  [13:43:26.891] - result already collected: FutureResult
  [13:43:26.891] result() for ClusterFuture ... done
  [13:43:26.891] result() for ClusterFuture ...
  [13:43:26.892] - result already collected: FutureResult
  [13:43:26.892] result() for ClusterFuture ... done
  [13:43:26.892] signalConditionsASAP(ClusterFuture, pos=1) ...
  [13:43:26.893] - nx: 2
  [13:43:26.893] - relay: TRUE
  [13:43:26.893] - stdout: TRUE
  [13:43:26.893] - signal: TRUE
  [13:43:26.894] - resignal: FALSE
  [13:43:26.894] - force: FALSE
  [13:43:26.894] - relayed: [n=2] FALSE, FALSE
  [13:43:26.895] - queued futures: [n=2] FALSE, FALSE
  [13:43:26.895]  - until=1
  [13:43:26.895]  - relaying element #1
  [13:43:26.896] result() for ClusterFuture ...
  [13:43:26.896] - result already collected: FutureResult
  [13:43:26.896] result() for ClusterFuture ... done
  [13:43:26.897] result() for ClusterFuture ...
  [13:43:26.897] - result already collected: FutureResult
  [13:43:26.898] result() for ClusterFuture ... done
  [13:43:26.898] result() for ClusterFuture ...
  [13:43:26.898] - result already collected: FutureResult
  [13:43:26.899] result() for ClusterFuture ... done
  [13:43:26.899] result() for ClusterFuture ...
  [13:43:26.900] - result already collected: FutureResult
  [13:43:26.900] result() for ClusterFuture ... done
  [13:43:26.900] - relayed: [n=2] TRUE, FALSE
  [13:43:26.900] - queued futures: [n=2] TRUE, FALSE
  [13:43:26.901] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [13:43:26.901]  length: 1 (resolved future 1)
  [13:43:27.225] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:27.225] - Validating connection of ClusterFuture
  [13:43:27.227] - received message: FutureResult
  [13:43:27.227] - Received FutureResult
  [13:43:27.227] - Erased future from FutureRegistry
  [13:43:27.228] result() for ClusterFuture ...
  [13:43:27.228] - result already collected: FutureResult
  [13:43:27.228] result() for ClusterFuture ... done
  [13:43:27.229] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:27.229] Future #2
  [13:43:27.229] result() for ClusterFuture ...
  [13:43:27.230] - result already collected: FutureResult
  [13:43:27.230] result() for ClusterFuture ... done
  [13:43:27.230] result() for ClusterFuture ...
  [13:43:27.231] - result already collected: FutureResult
  [13:43:27.231] result() for ClusterFuture ... done
  [13:43:27.231] signalConditionsASAP(ClusterFuture, pos=2) ...
  [13:43:27.232] - nx: 2
  [13:43:27.232] - relay: TRUE
  [13:43:27.232] - stdout: TRUE
  [13:43:27.233] - signal: TRUE
  [13:43:27.233] - resignal: FALSE
  [13:43:27.233] - force: FALSE
  [13:43:27.233] - relayed: [n=2] TRUE, FALSE
  [13:43:27.234] - queued futures: [n=2] TRUE, FALSE
  [13:43:27.234]  - until=2
  [13:43:27.234]  - relaying element #2
  [13:43:27.235] result() for ClusterFuture ...
  [13:43:27.235] - result already collected: FutureResult
  [13:43:27.235] result() for ClusterFuture ... done
  [13:43:27.236] result() for ClusterFuture ...
  [13:43:27.236] - result already collected: FutureResult
  [13:43:27.236] result() for ClusterFuture ... done
  [13:43:27.237] result() for ClusterFuture ...
  [13:43:27.237] - result already collected: FutureResult
  [13:43:27.237] result() for ClusterFuture ... done
  [13:43:27.238] result() for ClusterFuture ...
  [13:43:27.238] - result already collected: FutureResult
  [13:43:27.255] result() for ClusterFuture ... done
  [13:43:27.255] - relayed: [n=2] TRUE, TRUE
  [13:43:27.255] - queued futures: [n=2] TRUE, TRUE
  [13:43:27.256] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [13:43:27.256]  length: 0 (resolved future 2)
  [13:43:27.256] Relaying remaining futures
  [13:43:27.257] signalConditionsASAP(NULL, pos=0) ...
  [13:43:27.257] - nx: 2
  [13:43:27.257] - relay: TRUE
  [13:43:27.258] - stdout: TRUE
  [13:43:27.258] - signal: TRUE
  [13:43:27.258] - resignal: FALSE
  [13:43:27.259] - force: FALSE
  [13:43:27.259] - relayed: [n=2] TRUE, TRUE
  [13:43:27.259] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:43:27.260] - relayed: [n=2] TRUE, TRUE
  [13:43:27.260] - queued futures: [n=2] TRUE, TRUE
  [13:43:27.261] signalConditionsASAP(NULL, pos=0) ... done
  [13:43:27.266] resolve() on list ... DONE
  [13:43:27.267] - collecting values of futures
  [13:43:27.267] result() for ClusterFuture ...
  [13:43:27.267] - result already collected: FutureResult
  [13:43:27.268] result() for ClusterFuture ... done
  [13:43:27.268] result() for ClusterFuture ...
  [13:43:27.269] - result already collected: FutureResult
  [13:43:27.269] result() for ClusterFuture ... done
  [13:43:27.269] result() for ClusterFuture ...
  [13:43:27.270] - result already collected: FutureResult
  [13:43:27.270] result() for ClusterFuture ... done
  [13:43:27.286] result() for ClusterFuture ...
  [13:43:27.287] - result already collected: FutureResult
  [13:43:27.287] result() for ClusterFuture ... done
  [13:43:27.288] - accumulating results
  [13:43:27.291] - processing errors (handler = 'stop')
  [13:43:27.291] - extracting results
  [13:43:27.291] doFuture() ... DONE
  - plan(list('cluster', 'multicore')) ... DONE
  - plan(list('cluster', 'multisession')) ...
  [13:43:27.293] plan(): Setting new future strategy stack:
  [13:43:27.293] List of future strategies:
  [13:43:27.293] 1. cluster:
  [13:43:27.293]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:27.293]    - tweaked: FALSE
  [13:43:27.293]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:27.293] 2. multisession:
  [13:43:27.293]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:27.293]    - tweaked: FALSE
  [13:43:27.293]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:27.296] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:43:27.296] cluster:
  [13:43:27.296] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:27.296] - tweaked: FALSE
  [13:43:27.296] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 23593
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac43986cc.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac43986cc.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac43986cc.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=23593 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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac53406f8c.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac53406f8c.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac53406f8c.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=23593 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
  [13:43:42.932] getGlobalsAndPackages() ...
  [13:43:42.933] Not searching for globals
  [13:43:42.933] - globals: [0] <none>
  [13:43:42.933] getGlobalsAndPackages() ... DONE
  [13:43:42.937] Packages needed by the future expression (n = 0): <none>
  [13:43:42.938] Packages needed by future strategies (n = 1): 'future'
  [13:43:42.953] {
  [13:43:42.953]     {
  [13:43:42.953]         ...future.startTime <- base::Sys.time()
  [13:43:42.953]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:42.953]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:42.953]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:42.953]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:42.953]             future.resolve.recursive = NULL, width = 80L)
  [13:43:42.953]         {
  [13:43:42.953]             {
  [13:43:42.953]                 {
  [13:43:42.953]                   has_future <- base::requireNamespace("future", 
  [13:43:42.953]                     quietly = TRUE)
  [13:43:42.953]                   version <- if (has_future) 
  [13:43:42.953]                     utils::packageVersion("future")
  [13:43:42.953]                   else NULL
  [13:43:42.953]                   if (!has_future || version < "1.8.0") {
  [13:43:42.953]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:42.953]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:42.953]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:42.953]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:42.953]                         "release", "version")], collapse = " "), 
  [13:43:42.953]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:42.953]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:42.953]                       info)
  [13:43:42.953]                     info <- base::paste(info, collapse = "; ")
  [13:43:42.953]                     if (!has_future) {
  [13:43:42.953]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:42.953]                         info)
  [13:43:42.953]                     }
  [13:43:42.953]                     else {
  [13:43:42.953]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:42.953]                         info, version)
  [13:43:42.953]                     }
  [13:43:42.953]                     base::stop(msg)
  [13:43:42.953]                   }
  [13:43:42.953]                 }
  [13:43:42.953]                 base::local({
  [13:43:42.953]                   for (pkg in "future") {
  [13:43:42.953]                     base::loadNamespace(pkg)
  [13:43:42.953]                     base::library(pkg, character.only = TRUE)
  [13:43:42.953]                   }
  [13:43:42.953]                 })
  [13:43:42.953]             }
  [13:43:42.953]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:42.953]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:42.953]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:43:42.953]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:42.953]                 ...) 
  [13:43:42.953]             {
  [13:43:42.953]                 if (substitute) 
  [13:43:42.953]                   expr <- substitute(expr)
  [13:43:42.953]                 if (is.function(workers)) 
  [13:43:42.953]                   workers <- workers()
  [13:43:42.953]                 workers <- as.integer(workers)
  [13:43:42.953]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:42.953]                   workers >= 1)
  [13:43:42.953]                 if (workers == 1L) {
  [13:43:42.953]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:42.953]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:42.953]                     local = TRUE, label = label, ...))
  [13:43:42.953]                 }
  [13:43:42.953]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:42.953]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:42.953]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:42.953]                   globals = globals, persistent = persistent, 
  [13:43:42.953]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:42.953]                   label = label, ...)
  [13:43:42.953]                 if (!future$lazy) 
  [13:43:42.953]                   future <- run(future)
  [13:43:42.953]                 invisible(future)
  [13:43:42.953]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:42.953]         }
  [13:43:42.953]     }
  [13:43:42.953]     if (base::is.na(TRUE)) {
  [13:43:42.953]     }
  [13:43:42.953]     else {
  [13:43:42.953]         if (TRUE) {
  [13:43:42.953]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:42.953]                 open = "w")
  [13:43:42.953]         }
  [13:43:42.953]         else {
  [13:43:42.953]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:42.953]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:42.953]         }
  [13:43:42.953]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:42.953]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:42.953]             base::sink(type = "output", split = FALSE)
  [13:43:42.953]             base::close(...future.stdout)
  [13:43:42.953]         }, add = TRUE)
  [13:43:42.953]     }
  [13:43:42.953]     ...future.frame <- base::sys.nframe()
  [13:43:42.953]     ...future.conditions <- base::list()
  [13:43:42.953]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:42.953]     ...future.result <- base::tryCatch({
  [13:43:42.953]         base::withCallingHandlers({
  [13:43:42.953]             ...future.value <- base::withVisible(base::local({
  [13:43:42.953]                 ...future.sendCondition <- local({
  [13:43:42.953]                   sendCondition <- NULL
  [13:43:42.953]                   function(frame = 1L) {
  [13:43:42.953]                     if (is.function(sendCondition)) 
  [13:43:42.953]                       return(sendCondition)
  [13:43:42.953]                     ns <- getNamespace("parallel")
  [13:43:42.953]                     if (exists("sendData", mode = "function", 
  [13:43:42.953]                       envir = ns)) {
  [13:43:42.953]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:42.953]                         envir = ns)
  [13:43:42.953]                       envir <- sys.frame(frame)
  [13:43:42.953]                       master <- NULL
  [13:43:42.953]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:42.953]                         !identical(envir, emptyenv())) {
  [13:43:42.953]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:42.953]                           inherits = FALSE)) {
  [13:43:42.953]                           master <- get("master", mode = "list", 
  [13:43:42.953]                             envir = envir, inherits = FALSE)
  [13:43:42.953]                           if (inherits(master, "SOCKnode")) {
  [13:43:42.953]                             sendCondition <<- function(cond) {
  [13:43:42.953]                               data <- list(type = "VALUE", value = cond, 
  [13:43:42.953]                                 success = TRUE)
  [13:43:42.953]                               parallel_sendData(master, data)
  [13:43:42.953]                             }
  [13:43:42.953]                             return(sendCondition)
  [13:43:42.953]                           }
  [13:43:42.953]                         }
  [13:43:42.953]                         frame <- frame + 1L
  [13:43:42.953]                         envir <- sys.frame(frame)
  [13:43:42.953]                       }
  [13:43:42.953]                     }
  [13:43:42.953]                     sendCondition <<- function(cond) NULL
  [13:43:42.953]                   }
  [13:43:42.953]                 })
  [13:43:42.953]                 withCallingHandlers({
  [13:43:42.953]                   NA
  [13:43:42.953]                 }, immediateCondition = function(cond) {
  [13:43:42.953]                   sendCondition <- ...future.sendCondition()
  [13:43:42.953]                   sendCondition(cond)
  [13:43:42.953]                   muffleCondition <- function (cond) 
  [13:43:42.953]                   {
  [13:43:42.953]                     inherits <- base::inherits
  [13:43:42.953]                     invokeRestart <- base::invokeRestart
  [13:43:42.953]                     muffled <- FALSE
  [13:43:42.953]                     if (inherits(cond, "message")) {
  [13:43:42.953]                       invokeRestart("muffleMessage")
  [13:43:42.953]                       muffled <- TRUE
  [13:43:42.953]                     }
  [13:43:42.953]                     else if (inherits(cond, "warning")) {
  [13:43:42.953]                       invokeRestart("muffleWarning")
  [13:43:42.953]                       muffled <- TRUE
  [13:43:42.953]                     }
  [13:43:42.953]                     else if (inherits(cond, "condition")) {
  [13:43:42.953]                       computeRestarts <- base::computeRestarts
  [13:43:42.953]                       grepl <- base::grepl
  [13:43:42.953]                       is.null <- base::is.null
  [13:43:42.953]                       restarts <- computeRestarts(cond)
  [13:43:42.953]                       for (restart in restarts) {
  [13:43:42.953]                         name <- restart$name
  [13:43:42.953]                         if (is.null(name)) 
  [13:43:42.953]                           next
  [13:43:42.953]                         if (!grepl("^muffle", name)) 
  [13:43:42.953]                           next
  [13:43:42.953]                         invokeRestart(restart)
  [13:43:42.953]                         muffled <- TRUE
  [13:43:42.953]                         break
  [13:43:42.953]                       }
  [13:43:42.953]                     }
  [13:43:42.953]                     invisible(muffled)
  [13:43:42.953]                   }
  [13:43:42.953]                   muffleCondition(cond)
  [13:43:42.953]                 })
  [13:43:42.953]             }))
  [13:43:42.953]             future::FutureResult(value = ...future.value$value, 
  [13:43:42.953]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:42.953]                   ...future.rng), started = ...future.startTime, 
  [13:43:42.953]                 version = "1.8")
  [13:43:42.953]         }, condition = base::local({
  [13:43:42.953]             c <- base::c
  [13:43:42.953]             inherits <- base::inherits
  [13:43:42.953]             invokeRestart <- base::invokeRestart
  [13:43:42.953]             length <- base::length
  [13:43:42.953]             list <- base::list
  [13:43:42.953]             seq.int <- base::seq.int
  [13:43:42.953]             signalCondition <- base::signalCondition
  [13:43:42.953]             sys.calls <- base::sys.calls
  [13:43:42.953]             Sys.time <- base::Sys.time
  [13:43:42.953]             `[[` <- base::`[[`
  [13:43:42.953]             `+` <- base::`+`
  [13:43:42.953]             `<<-` <- base::`<<-`
  [13:43:42.953]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:42.953]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:42.953]                   3L)]
  [13:43:42.953]             }
  [13:43:42.953]             function(cond) {
  [13:43:42.953]                 if (inherits(cond, "error")) {
  [13:43:42.953]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:42.953]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:42.953]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:42.953]                   signalCondition(cond)
  [13:43:42.953]                 }
  [13:43:42.953]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:42.953]                 ))) {
  [13:43:42.953]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:42.953]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:42.953]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:42.953]                   if (!signal) {
  [13:43:42.953]                     muffleCondition <- function (cond) 
  [13:43:42.953]                     {
  [13:43:42.953]                       inherits <- base::inherits
  [13:43:42.953]                       invokeRestart <- base::invokeRestart
  [13:43:42.953]                       muffled <- FALSE
  [13:43:42.953]                       if (inherits(cond, "message")) {
  [13:43:42.953]                         invokeRestart("muffleMessage")
  [13:43:42.953]                         muffled <- TRUE
  [13:43:42.953]                       }
  [13:43:42.953]                       else if (inherits(cond, "warning")) {
  [13:43:42.953]                         invokeRestart("muffleWarning")
  [13:43:42.953]                         muffled <- TRUE
  [13:43:42.953]                       }
  [13:43:42.953]                       else if (inherits(cond, "condition")) {
  [13:43:42.953]                         computeRestarts <- base::computeRestarts
  [13:43:42.953]                         grepl <- base::grepl
  [13:43:42.953]                         is.null <- base::is.null
  [13:43:42.953]                         restarts <- computeRestarts(cond)
  [13:43:42.953]                         for (restart in restarts) {
  [13:43:42.953]                           name <- restart$name
  [13:43:42.953]                           if (is.null(name)) 
  [13:43:42.953]                             next
  [13:43:42.953]                           if (!grepl("^muffle", name)) 
  [13:43:42.953]                             next
  [13:43:42.953]                           invokeRestart(restart)
  [13:43:42.953]                           muffled <- TRUE
  [13:43:42.953]                           break
  [13:43:42.953]                         }
  [13:43:42.953]                       }
  [13:43:42.953]                       invisible(muffled)
  [13:43:42.953]                     }
  [13:43:42.953]                     muffleCondition(cond)
  [13:43:42.953]                   }
  [13:43:42.953]                 }
  [13:43:42.953]             }
  [13:43:42.953]         }))
  [13:43:42.953]     }, error = function(ex) {
  [13:43:42.953]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:42.953]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:42.953]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:42.953]     }, finally = {
  [13:43:42.953]         {
  [13:43:42.953]             NULL
  [13:43:42.953]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:42.953]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:42.953]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:42.953]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:42.953]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:42.953]                 ...) 
  [13:43:42.953]             {
  [13:43:42.953]                 if (substitute) 
  [13:43:42.953]                   expr <- substitute(expr)
  [13:43:42.953]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:42.953]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:42.953]                   globals = globals, persistent = persistent, 
  [13:43:42.953]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:42.953]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:42.953]                   label = label, ...)
  [13:43:42.953]                 if (!future$lazy) 
  [13:43:42.953]                   future <- run(future)
  [13:43:42.953]                 invisible(future)
  [13:43:42.953]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:42.953]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:43:42.953]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:43:42.953]                 label = NULL, ...) 
  [13:43:42.953]             {
  [13:43:42.953]                 if (substitute) 
  [13:43:42.953]                   expr <- substitute(expr)
  [13:43:42.953]                 if (is.function(workers)) 
  [13:43:42.953]                   workers <- workers()
  [13:43:42.953]                 workers <- as.integer(workers)
  [13:43:42.953]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:42.953]                   workers >= 1)
  [13:43:42.953]                 if (workers == 1L) {
  [13:43:42.953]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:42.953]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:42.953]                     local = TRUE, label = label, ...))
  [13:43:42.953]                 }
  [13:43:42.953]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:42.953]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:42.953]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:42.953]                   globals = globals, persistent = persistent, 
  [13:43:42.953]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:42.953]                   label = label, ...)
  [13:43:42.953]                 if (!future$lazy) 
  [13:43:42.953]                   future <- run(future)
  [13:43:42.953]                 invisible(future)
  [13:43:42.953]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:42.953]         }
  [13:43:42.953]         base::options(...future.oldOptions)
  [13:43:42.953]     })
  [13:43:42.953]     Sys.time
  [13:43:42.953]     if (base::is.na(TRUE)) {
  [13:43:42.953]     }
  [13:43:42.953]     else {
  [13:43:42.953]         base::sink(type = "output", split = FALSE)
  [13:43:42.953]         if (TRUE) {
  [13:43:42.953]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:42.953]         }
  [13:43:42.953]         else {
  [13:43:42.953]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:42.953]         }
  [13:43:42.953]         base::close(...future.stdout)
  [13:43:42.953]         ...future.stdout <- NULL
  [13:43:42.953]     }
  [13:43:42.953]     ...future.result$conditions <- ...future.conditions
  [13:43:42.953]     ...future.result
  [13:43:42.953] }
  [13:43:42.984] ClusterFuture started
  [13:43:42.985] result() for ClusterFuture ...
  [13:43:42.985] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:42.986] - Validating connection of ClusterFuture
  [13:43:43.257] - received message: FutureResult
  [13:43:43.257] - Received FutureResult
  [13:43:43.258] - Erased future from FutureRegistry
  [13:43:43.258] result() for ClusterFuture ...
  [13:43:43.259] - result already collected: FutureResult
  [13:43:43.259] result() for ClusterFuture ... done
  [13:43:43.259] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:43.260] result() for ClusterFuture ... done
  [13:43:43.260] result() for ClusterFuture ...
  [13:43:43.261] - result already collected: FutureResult
  [13:43:43.261] result() for ClusterFuture ... done
  [13:43:43.261] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [13:43:43.263] plan(): nbrOfWorkers() = 2
  [13:43:43.264] doFuture() ...
  [13:43:43.288] - dummy globals (as locals): [2] 'a', 'b'
  [13:43:43.290] - R expression:
  [13:43:43.290] {
  [13:43:43.290]     doFuture::registerDoFuture()
  [13:43:43.290]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:43.290]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:43.290]         {
  [13:43:43.290]             a <- NULL
  [13:43:43.290]             b <- NULL
  [13:43:43.290]         }
  [13:43:43.290]         ...future.env <- environment()
  [13:43:43.290]         local({
  [13:43:43.290]             for (name in names(...future.x_jj)) {
  [13:43:43.290]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:43.290]                   inherits = FALSE)
  [13:43:43.290]             }
  [13:43:43.290]         })
  [13:43:43.290]         tryCatch({
  [13:43:43.290]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:43.290]                 plan = future::plan("next"))
  [13:43:43.290]         }, error = identity)
  [13:43:43.290]     })
  [13:43:43.290] }
  [13:43:43.291] - identifying globals and packages ...
  [13:43:43.292] getGlobalsAndPackages() ...
  [13:43:43.292] Searching for globals...
  [13:43:43.326] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [13:43:43.326] Searching for globals ... DONE
  [13:43:43.343] Resolving globals: FALSE
  [13:43:43.345] The total size of the 1 globals is 0 bytes (0 bytes)
  [13:43:43.345] - globals: [1] '...future.x_ii'
  [13:43:43.346] 
  [13:43:43.346] getGlobalsAndPackages() ... DONE
  [13:43:43.346] List of 1
  [13:43:43.346]  $ ...future.x_ii: NULL
  [13:43:43.346]  - attr(*, "where")=List of 1
  [13:43:43.346]   ..$ ...future.x_ii:<environment: 0x5617cb31fe58> 
  [13:43:43.346]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:43.346]  - attr(*, "resolved")= logi FALSE
  [13:43:43.346]  - attr(*, "total_size")= num 0
  [13:43:43.353]   - R expression:
  [13:43:43.354] {
  [13:43:43.354]     doFuture::registerDoFuture()
  [13:43:43.354]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:43.354]         ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:43.354]         {
  [13:43:43.354]             a <- NULL
  [13:43:43.354]             b <- NULL
  [13:43:43.354]         }
  [13:43:43.354]         ...future.env <- environment()
  [13:43:43.354]         local({
  [13:43:43.354]             for (name in names(...future.x_jj)) {
  [13:43:43.354]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [13:43:43.354]                   inherits = FALSE)
  [13:43:43.354]             }
  [13:43:43.354]         })
  [13:43:43.354]         tryCatch({
  [13:43:43.354]             list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:43.354]                 plan = future::plan("next"))
  [13:43:43.354]         }, error = identity)
  [13:43:43.354]     })
  [13:43:43.354] }
  [13:43:43.355]   - globals: [1] '...future.x_ii'
  [13:43:43.355] List of 1
  [13:43:43.355]  $ ...future.x_ii: NULL
  [13:43:43.355]  - attr(*, "where")=List of 1
  [13:43:43.355]   ..$ ...future.x_ii:<environment: 0x5617cb31fe58> 
  [13:43:43.355]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [13:43:43.355]  - attr(*, "resolved")= logi FALSE
  [13:43:43.355]  - attr(*, "total_size")= num 0
  [13:43:43.382]   - packages: [1] 'doFuture'
  [13:43:43.382] - identifying globals and packages ... DONE
  [13:43:43.384] Number of chunks: 2
  [13:43:43.384] Number of futures (= number of chunks): 2
  [13:43:43.385] Launching 2 futures (chunks) ...
  [13:43:43.385] Chunk #1 of 2 ...
  [13:43:43.386]  - Finding globals in 'args_list' chunk #1 ...
  [13:43:43.386] getGlobalsAndPackages() ...
  [13:43:43.386] Searching for globals...
  [13:43:43.387] 
  [13:43:43.388] Searching for globals ... DONE
  [13:43:43.388] - globals: [0] <none>
  [13:43:43.388] getGlobalsAndPackages() ... DONE
  [13:43:43.389] 
  [13:43:43.389] 
  [13:43:43.389]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [13:43:43.399] getGlobalsAndPackages() ...
  [13:43:43.399] - globals passed as-is: [1] '...future.x_ii'
  [13:43:43.400] Resolving globals: FALSE
  [13:43:43.401] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:43.401] - globals: [1] '...future.x_ii'
  [13:43:43.401] 
  [13:43:43.402] getGlobalsAndPackages() ... DONE
  [13:43:43.406] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:43.406] Packages needed by future strategies (n = 1): 'future'
  [13:43:43.413] {
  [13:43:43.413]     {
  [13:43:43.413]         ...future.startTime <- base::Sys.time()
  [13:43:43.413]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:43.413]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:43.413]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:43.413]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:43.413]             future.resolve.recursive = NULL, width = 80L)
  [13:43:43.413]         {
  [13:43:43.413]             {
  [13:43:43.413]                 {
  [13:43:43.413]                   has_future <- base::requireNamespace("future", 
  [13:43:43.413]                     quietly = TRUE)
  [13:43:43.413]                   version <- if (has_future) 
  [13:43:43.413]                     utils::packageVersion("future")
  [13:43:43.413]                   else NULL
  [13:43:43.413]                   if (!has_future || version < "1.8.0") {
  [13:43:43.413]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:43.413]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:43.413]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:43.413]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:43.413]                         "release", "version")], collapse = " "), 
  [13:43:43.413]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:43.413]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:43.413]                       info)
  [13:43:43.413]                     info <- base::paste(info, collapse = "; ")
  [13:43:43.413]                     if (!has_future) {
  [13:43:43.413]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:43.413]                         info)
  [13:43:43.413]                     }
  [13:43:43.413]                     else {
  [13:43:43.413]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:43.413]                         info, version)
  [13:43:43.413]                     }
  [13:43:43.413]                     base::stop(msg)
  [13:43:43.413]                   }
  [13:43:43.413]                 }
  [13:43:43.413]                 base::local({
  [13:43:43.413]                   for (pkg in c("doFuture", "future")) {
  [13:43:43.413]                     base::loadNamespace(pkg)
  [13:43:43.413]                     base::library(pkg, character.only = TRUE)
  [13:43:43.413]                   }
  [13:43:43.413]                 })
  [13:43:43.413]             }
  [13:43:43.413]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:43.413]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:43.413]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:43:43.413]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:43.413]                 ...) 
  [13:43:43.413]             {
  [13:43:43.413]                 if (substitute) 
  [13:43:43.413]                   expr <- substitute(expr)
  [13:43:43.413]                 if (is.function(workers)) 
  [13:43:43.413]                   workers <- workers()
  [13:43:43.413]                 workers <- as.integer(workers)
  [13:43:43.413]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:43.413]                   workers >= 1)
  [13:43:43.413]                 if (workers == 1L) {
  [13:43:43.413]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:43.413]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:43.413]                     local = TRUE, label = label, ...))
  [13:43:43.413]                 }
  [13:43:43.413]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:43.413]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:43.413]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.413]                   globals = globals, persistent = persistent, 
  [13:43:43.413]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:43.413]                   label = label, ...)
  [13:43:43.413]                 if (!future$lazy) 
  [13:43:43.413]                   future <- run(future)
  [13:43:43.413]                 invisible(future)
  [13:43:43.413]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:43.413]         }
  [13:43:43.413]     }
  [13:43:43.413]     if (base::is.na(TRUE)) {
  [13:43:43.413]     }
  [13:43:43.413]     else {
  [13:43:43.413]         if (TRUE) {
  [13:43:43.413]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:43.413]                 open = "w")
  [13:43:43.413]         }
  [13:43:43.413]         else {
  [13:43:43.413]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:43.413]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:43.413]         }
  [13:43:43.413]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:43.413]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:43.413]             base::sink(type = "output", split = FALSE)
  [13:43:43.413]             base::close(...future.stdout)
  [13:43:43.413]         }, add = TRUE)
  [13:43:43.413]     }
  [13:43:43.413]     ...future.frame <- base::sys.nframe()
  [13:43:43.413]     ...future.conditions <- base::list()
  [13:43:43.413]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:43.413]     ...future.result <- base::tryCatch({
  [13:43:43.413]         base::withCallingHandlers({
  [13:43:43.413]             ...future.value <- base::withVisible(base::local({
  [13:43:43.413]                 ...future.sendCondition <- local({
  [13:43:43.413]                   sendCondition <- NULL
  [13:43:43.413]                   function(frame = 1L) {
  [13:43:43.413]                     if (is.function(sendCondition)) 
  [13:43:43.413]                       return(sendCondition)
  [13:43:43.413]                     ns <- getNamespace("parallel")
  [13:43:43.413]                     if (exists("sendData", mode = "function", 
  [13:43:43.413]                       envir = ns)) {
  [13:43:43.413]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:43.413]                         envir = ns)
  [13:43:43.413]                       envir <- sys.frame(frame)
  [13:43:43.413]                       master <- NULL
  [13:43:43.413]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:43.413]                         !identical(envir, emptyenv())) {
  [13:43:43.413]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:43.413]                           inherits = FALSE)) {
  [13:43:43.413]                           master <- get("master", mode = "list", 
  [13:43:43.413]                             envir = envir, inherits = FALSE)
  [13:43:43.413]                           if (inherits(master, "SOCKnode")) {
  [13:43:43.413]                             sendCondition <<- function(cond) {
  [13:43:43.413]                               data <- list(type = "VALUE", value = cond, 
  [13:43:43.413]                                 success = TRUE)
  [13:43:43.413]                               parallel_sendData(master, data)
  [13:43:43.413]                             }
  [13:43:43.413]                             return(sendCondition)
  [13:43:43.413]                           }
  [13:43:43.413]                         }
  [13:43:43.413]                         frame <- frame + 1L
  [13:43:43.413]                         envir <- sys.frame(frame)
  [13:43:43.413]                       }
  [13:43:43.413]                     }
  [13:43:43.413]                     sendCondition <<- function(cond) NULL
  [13:43:43.413]                   }
  [13:43:43.413]                 })
  [13:43:43.413]                 withCallingHandlers({
  [13:43:43.413]                   {
  [13:43:43.413]                     doFuture::registerDoFuture()
  [13:43:43.413]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:43.413]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:43.413]                       {
  [13:43:43.413]                         a <- NULL
  [13:43:43.413]                         b <- NULL
  [13:43:43.413]                       }
  [13:43:43.413]                       ...future.env <- environment()
  [13:43:43.413]                       local({
  [13:43:43.413]                         for (name in names(...future.x_jj)) {
  [13:43:43.413]                           assign(name, ...future.x_jj[[name]], 
  [13:43:43.413]                             envir = ...future.env, inherits = FALSE)
  [13:43:43.413]                         }
  [13:43:43.413]                       })
  [13:43:43.413]                       tryCatch({
  [13:43:43.413]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:43.413]                           plan = future::plan("next"))
  [13:43:43.413]                       }, error = identity)
  [13:43:43.413]                     })
  [13:43:43.413]                   }
  [13:43:43.413]                 }, immediateCondition = function(cond) {
  [13:43:43.413]                   sendCondition <- ...future.sendCondition()
  [13:43:43.413]                   sendCondition(cond)
  [13:43:43.413]                   muffleCondition <- function (cond) 
  [13:43:43.413]                   {
  [13:43:43.413]                     inherits <- base::inherits
  [13:43:43.413]                     invokeRestart <- base::invokeRestart
  [13:43:43.413]                     muffled <- FALSE
  [13:43:43.413]                     if (inherits(cond, "message")) {
  [13:43:43.413]                       invokeRestart("muffleMessage")
  [13:43:43.413]                       muffled <- TRUE
  [13:43:43.413]                     }
  [13:43:43.413]                     else if (inherits(cond, "warning")) {
  [13:43:43.413]                       invokeRestart("muffleWarning")
  [13:43:43.413]                       muffled <- TRUE
  [13:43:43.413]                     }
  [13:43:43.413]                     else if (inherits(cond, "condition")) {
  [13:43:43.413]                       computeRestarts <- base::computeRestarts
  [13:43:43.413]                       grepl <- base::grepl
  [13:43:43.413]                       is.null <- base::is.null
  [13:43:43.413]                       restarts <- computeRestarts(cond)
  [13:43:43.413]                       for (restart in restarts) {
  [13:43:43.413]                         name <- restart$name
  [13:43:43.413]                         if (is.null(name)) 
  [13:43:43.413]                           next
  [13:43:43.413]                         if (!grepl("^muffle", name)) 
  [13:43:43.413]                           next
  [13:43:43.413]                         invokeRestart(restart)
  [13:43:43.413]                         muffled <- TRUE
  [13:43:43.413]                         break
  [13:43:43.413]                       }
  [13:43:43.413]                     }
  [13:43:43.413]                     invisible(muffled)
  [13:43:43.413]                   }
  [13:43:43.413]                   muffleCondition(cond)
  [13:43:43.413]                 })
  [13:43:43.413]             }))
  [13:43:43.413]             future::FutureResult(value = ...future.value$value, 
  [13:43:43.413]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:43.413]                   ...future.rng), started = ...future.startTime, 
  [13:43:43.413]                 version = "1.8")
  [13:43:43.413]         }, condition = base::local({
  [13:43:43.413]             c <- base::c
  [13:43:43.413]             inherits <- base::inherits
  [13:43:43.413]             invokeRestart <- base::invokeRestart
  [13:43:43.413]             length <- base::length
  [13:43:43.413]             list <- base::list
  [13:43:43.413]             seq.int <- base::seq.int
  [13:43:43.413]             signalCondition <- base::signalCondition
  [13:43:43.413]             sys.calls <- base::sys.calls
  [13:43:43.413]             Sys.time <- base::Sys.time
  [13:43:43.413]             `[[` <- base::`[[`
  [13:43:43.413]             `+` <- base::`+`
  [13:43:43.413]             `<<-` <- base::`<<-`
  [13:43:43.413]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:43.413]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:43.413]                   3L)]
  [13:43:43.413]             }
  [13:43:43.413]             function(cond) {
  [13:43:43.413]                 if (inherits(cond, "error")) {
  [13:43:43.413]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:43.413]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:43.413]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:43.413]                   signalCondition(cond)
  [13:43:43.413]                 }
  [13:43:43.413]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:43.413]                 ))) {
  [13:43:43.413]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:43.413]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:43.413]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:43.413]                   if (!signal) {
  [13:43:43.413]                     muffleCondition <- function (cond) 
  [13:43:43.413]                     {
  [13:43:43.413]                       inherits <- base::inherits
  [13:43:43.413]                       invokeRestart <- base::invokeRestart
  [13:43:43.413]                       muffled <- FALSE
  [13:43:43.413]                       if (inherits(cond, "message")) {
  [13:43:43.413]                         invokeRestart("muffleMessage")
  [13:43:43.413]                         muffled <- TRUE
  [13:43:43.413]                       }
  [13:43:43.413]                       else if (inherits(cond, "warning")) {
  [13:43:43.413]                         invokeRestart("muffleWarning")
  [13:43:43.413]                         muffled <- TRUE
  [13:43:43.413]                       }
  [13:43:43.413]                       else if (inherits(cond, "condition")) {
  [13:43:43.413]                         computeRestarts <- base::computeRestarts
  [13:43:43.413]                         grepl <- base::grepl
  [13:43:43.413]                         is.null <- base::is.null
  [13:43:43.413]                         restarts <- computeRestarts(cond)
  [13:43:43.413]                         for (restart in restarts) {
  [13:43:43.413]                           name <- restart$name
  [13:43:43.413]                           if (is.null(name)) 
  [13:43:43.413]                             next
  [13:43:43.413]                           if (!grepl("^muffle", name)) 
  [13:43:43.413]                             next
  [13:43:43.413]                           invokeRestart(restart)
  [13:43:43.413]                           muffled <- TRUE
  [13:43:43.413]                           break
  [13:43:43.413]                         }
  [13:43:43.413]                       }
  [13:43:43.413]                       invisible(muffled)
  [13:43:43.413]                     }
  [13:43:43.413]                     muffleCondition(cond)
  [13:43:43.413]                   }
  [13:43:43.413]                 }
  [13:43:43.413]             }
  [13:43:43.413]         }))
  [13:43:43.413]     }, error = function(ex) {
  [13:43:43.413]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:43.413]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:43.413]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:43.413]     }, finally = {
  [13:43:43.413]         {
  [13:43:43.413]             NULL
  [13:43:43.413]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:43.413]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:43.413]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:43.413]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:43.413]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:43.413]                 ...) 
  [13:43:43.413]             {
  [13:43:43.413]                 if (substitute) 
  [13:43:43.413]                   expr <- substitute(expr)
  [13:43:43.413]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:43.413]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.413]                   globals = globals, persistent = persistent, 
  [13:43:43.413]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:43.413]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:43.413]                   label = label, ...)
  [13:43:43.413]                 if (!future$lazy) 
  [13:43:43.413]                   future <- run(future)
  [13:43:43.413]                 invisible(future)
  [13:43:43.413]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:43.413]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:43:43.413]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:43:43.413]                 label = NULL, ...) 
  [13:43:43.413]             {
  [13:43:43.413]                 if (substitute) 
  [13:43:43.413]                   expr <- substitute(expr)
  [13:43:43.413]                 if (is.function(workers)) 
  [13:43:43.413]                   workers <- workers()
  [13:43:43.413]                 workers <- as.integer(workers)
  [13:43:43.413]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:43.413]                   workers >= 1)
  [13:43:43.413]                 if (workers == 1L) {
  [13:43:43.413]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:43.413]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:43.413]                     local = TRUE, label = label, ...))
  [13:43:43.413]                 }
  [13:43:43.413]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:43.413]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:43.413]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.413]                   globals = globals, persistent = persistent, 
  [13:43:43.413]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:43.413]                   label = label, ...)
  [13:43:43.413]                 if (!future$lazy) 
  [13:43:43.413]                   future <- run(future)
  [13:43:43.413]                 invisible(future)
  [13:43:43.413]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:43.413]         }
  [13:43:43.413]         base::options(...future.oldOptions)
  [13:43:43.413]     })
  [13:43:43.413]     Sys.time
  [13:43:43.413]     if (base::is.na(TRUE)) {
  [13:43:43.413]     }
  [13:43:43.413]     else {
  [13:43:43.413]         base::sink(type = "output", split = FALSE)
  [13:43:43.413]         if (TRUE) {
  [13:43:43.413]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:43.413]         }
  [13:43:43.413]         else {
  [13:43:43.413]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:43.413]         }
  [13:43:43.413]         base::close(...future.stdout)
  [13:43:43.413]         ...future.stdout <- NULL
  [13:43:43.413]     }
  [13:43:43.413]     ...future.result$conditions <- ...future.conditions
  [13:43:43.413]     ...future.result
  [13:43:43.413] }
  [13:43:43.422] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [13:43:43.423] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [13:43:43.424] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [13:43:43.424] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [13:43:43.426] ClusterFuture started
  [13:43:43.426] Chunk #1 of 2 ... DONE
  [13:43:43.426] Chunk #2 of 2 ...
  [13:43:43.427]  - Finding globals in 'args_list' chunk #2 ...
  [13:43:43.427] getGlobalsAndPackages() ...
  [13:43:43.427] Searching for globals...
  [13:43:43.428] 
  [13:43:43.429] Searching for globals ... DONE
  [13:43:43.429] - globals: [0] <none>
  [13:43:43.429] getGlobalsAndPackages() ... DONE
  [13:43:43.430] 
  [13:43:43.430] 
  [13:43:43.430]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [13:43:43.439] getGlobalsAndPackages() ...
  [13:43:43.440] - globals passed as-is: [1] '...future.x_ii'
  [13:43:43.440] Resolving globals: FALSE
  [13:43:43.441] The total size of the 1 globals is 336 bytes (336 bytes)
  [13:43:43.441] - globals: [1] '...future.x_ii'
  [13:43:43.442] 
  [13:43:43.442] getGlobalsAndPackages() ... DONE
  [13:43:43.446] Packages needed by the future expression (n = 1): 'doFuture'
  [13:43:43.447] Packages needed by future strategies (n = 1): 'future'
  [13:43:43.457] {
  [13:43:43.457]     {
  [13:43:43.457]         ...future.startTime <- base::Sys.time()
  [13:43:43.457]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [13:43:43.457]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [13:43:43.457]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [13:43:43.457]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [13:43:43.457]             future.resolve.recursive = NULL, width = 80L)
  [13:43:43.457]         {
  [13:43:43.457]             {
  [13:43:43.457]                 {
  [13:43:43.457]                   has_future <- base::requireNamespace("future", 
  [13:43:43.457]                     quietly = TRUE)
  [13:43:43.457]                   version <- if (has_future) 
  [13:43:43.457]                     utils::packageVersion("future")
  [13:43:43.457]                   else NULL
  [13:43:43.457]                   if (!has_future || version < "1.8.0") {
  [13:43:43.457]                     info <- base::c(r_version = base::gsub("R version ", 
  [13:43:43.457]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [13:43:43.457]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [13:43:43.457]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [13:43:43.457]                         "release", "version")], collapse = " "), 
  [13:43:43.457]                       hostname = base::Sys.info()[["nodename"]])
  [13:43:43.457]                     info <- base::sprintf("%s: %s", base::names(info), 
  [13:43:43.457]                       info)
  [13:43:43.457]                     info <- base::paste(info, collapse = "; ")
  [13:43:43.457]                     if (!has_future) {
  [13:43:43.457]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [13:43:43.457]                         info)
  [13:43:43.457]                     }
  [13:43:43.457]                     else {
  [13:43:43.457]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [13:43:43.457]                         info, version)
  [13:43:43.457]                     }
  [13:43:43.457]                     base::stop(msg)
  [13:43:43.457]                   }
  [13:43:43.457]                 }
  [13:43:43.457]                 base::local({
  [13:43:43.457]                   for (pkg in c("doFuture", "future")) {
  [13:43:43.457]                     base::loadNamespace(pkg)
  [13:43:43.457]                     base::library(pkg, character.only = TRUE)
  [13:43:43.457]                   }
  [13:43:43.457]                 })
  [13:43:43.457]             }
  [13:43:43.457]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [13:43:43.457]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:43.457]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [13:43:43.457]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:43.457]                 ...) 
  [13:43:43.457]             {
  [13:43:43.457]                 if (substitute) 
  [13:43:43.457]                   expr <- substitute(expr)
  [13:43:43.457]                 if (is.function(workers)) 
  [13:43:43.457]                   workers <- workers()
  [13:43:43.457]                 workers <- as.integer(workers)
  [13:43:43.457]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:43.457]                   workers >= 1)
  [13:43:43.457]                 if (workers == 1L) {
  [13:43:43.457]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:43.457]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:43.457]                     local = TRUE, label = label, ...))
  [13:43:43.457]                 }
  [13:43:43.457]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:43.457]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:43.457]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.457]                   globals = globals, persistent = persistent, 
  [13:43:43.457]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:43.457]                   label = label, ...)
  [13:43:43.457]                 if (!future$lazy) 
  [13:43:43.457]                   future <- run(future)
  [13:43:43.457]                 invisible(future)
  [13:43:43.457]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:43.457]         }
  [13:43:43.457]     }
  [13:43:43.457]     if (base::is.na(TRUE)) {
  [13:43:43.457]     }
  [13:43:43.457]     else {
  [13:43:43.457]         if (TRUE) {
  [13:43:43.457]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [13:43:43.457]                 open = "w")
  [13:43:43.457]         }
  [13:43:43.457]         else {
  [13:43:43.457]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [13:43:43.457]                 windows = "NUL", "/dev/null"), open = "w")
  [13:43:43.457]         }
  [13:43:43.457]         base::sink(...future.stdout, type = "output", split = FALSE)
  [13:43:43.457]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [13:43:43.457]             base::sink(type = "output", split = FALSE)
  [13:43:43.457]             base::close(...future.stdout)
  [13:43:43.457]         }, add = TRUE)
  [13:43:43.457]     }
  [13:43:43.457]     ...future.frame <- base::sys.nframe()
  [13:43:43.457]     ...future.conditions <- base::list()
  [13:43:43.457]     ...future.rng <- base::globalenv()$.Random.seed
  [13:43:43.457]     ...future.result <- base::tryCatch({
  [13:43:43.457]         base::withCallingHandlers({
  [13:43:43.457]             ...future.value <- base::withVisible(base::local({
  [13:43:43.457]                 ...future.sendCondition <- local({
  [13:43:43.457]                   sendCondition <- NULL
  [13:43:43.457]                   function(frame = 1L) {
  [13:43:43.457]                     if (is.function(sendCondition)) 
  [13:43:43.457]                       return(sendCondition)
  [13:43:43.457]                     ns <- getNamespace("parallel")
  [13:43:43.457]                     if (exists("sendData", mode = "function", 
  [13:43:43.457]                       envir = ns)) {
  [13:43:43.457]                       parallel_sendData <- get("sendData", mode = "function", 
  [13:43:43.457]                         envir = ns)
  [13:43:43.457]                       envir <- sys.frame(frame)
  [13:43:43.457]                       master <- NULL
  [13:43:43.457]                       while (!identical(envir, .GlobalEnv) && 
  [13:43:43.457]                         !identical(envir, emptyenv())) {
  [13:43:43.457]                         if (exists("master", mode = "list", envir = envir, 
  [13:43:43.457]                           inherits = FALSE)) {
  [13:43:43.457]                           master <- get("master", mode = "list", 
  [13:43:43.457]                             envir = envir, inherits = FALSE)
  [13:43:43.457]                           if (inherits(master, "SOCKnode")) {
  [13:43:43.457]                             sendCondition <<- function(cond) {
  [13:43:43.457]                               data <- list(type = "VALUE", value = cond, 
  [13:43:43.457]                                 success = TRUE)
  [13:43:43.457]                               parallel_sendData(master, data)
  [13:43:43.457]                             }
  [13:43:43.457]                             return(sendCondition)
  [13:43:43.457]                           }
  [13:43:43.457]                         }
  [13:43:43.457]                         frame <- frame + 1L
  [13:43:43.457]                         envir <- sys.frame(frame)
  [13:43:43.457]                       }
  [13:43:43.457]                     }
  [13:43:43.457]                     sendCondition <<- function(cond) NULL
  [13:43:43.457]                   }
  [13:43:43.457]                 })
  [13:43:43.457]                 withCallingHandlers({
  [13:43:43.457]                   {
  [13:43:43.457]                     doFuture::registerDoFuture()
  [13:43:43.457]                     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [13:43:43.457]                       ...future.x_jj <- ...future.x_ii[[jj]]
  [13:43:43.457]                       {
  [13:43:43.457]                         a <- NULL
  [13:43:43.457]                         b <- NULL
  [13:43:43.457]                       }
  [13:43:43.457]                       ...future.env <- environment()
  [13:43:43.457]                       local({
  [13:43:43.457]                         for (name in names(...future.x_jj)) {
  [13:43:43.457]                           assign(name, ...future.x_jj[[name]], 
  [13:43:43.457]                             envir = ...future.env, inherits = FALSE)
  [13:43:43.457]                         }
  [13:43:43.457]                       })
  [13:43:43.457]                       tryCatch({
  [13:43:43.457]                         list(a = a, b = b, plan_b = future::plan("list"), 
  [13:43:43.457]                           plan = future::plan("next"))
  [13:43:43.457]                       }, error = identity)
  [13:43:43.457]                     })
  [13:43:43.457]                   }
  [13:43:43.457]                 }, immediateCondition = function(cond) {
  [13:43:43.457]                   sendCondition <- ...future.sendCondition()
  [13:43:43.457]                   sendCondition(cond)
  [13:43:43.457]                   muffleCondition <- function (cond) 
  [13:43:43.457]                   {
  [13:43:43.457]                     inherits <- base::inherits
  [13:43:43.457]                     invokeRestart <- base::invokeRestart
  [13:43:43.457]                     muffled <- FALSE
  [13:43:43.457]                     if (inherits(cond, "message")) {
  [13:43:43.457]                       invokeRestart("muffleMessage")
  [13:43:43.457]                       muffled <- TRUE
  [13:43:43.457]                     }
  [13:43:43.457]                     else if (inherits(cond, "warning")) {
  [13:43:43.457]                       invokeRestart("muffleWarning")
  [13:43:43.457]                       muffled <- TRUE
  [13:43:43.457]                     }
  [13:43:43.457]                     else if (inherits(cond, "condition")) {
  [13:43:43.457]                       computeRestarts <- base::computeRestarts
  [13:43:43.457]                       grepl <- base::grepl
  [13:43:43.457]                       is.null <- base::is.null
  [13:43:43.457]                       restarts <- computeRestarts(cond)
  [13:43:43.457]                       for (restart in restarts) {
  [13:43:43.457]                         name <- restart$name
  [13:43:43.457]                         if (is.null(name)) 
  [13:43:43.457]                           next
  [13:43:43.457]                         if (!grepl("^muffle", name)) 
  [13:43:43.457]                           next
  [13:43:43.457]                         invokeRestart(restart)
  [13:43:43.457]                         muffled <- TRUE
  [13:43:43.457]                         break
  [13:43:43.457]                       }
  [13:43:43.457]                     }
  [13:43:43.457]                     invisible(muffled)
  [13:43:43.457]                   }
  [13:43:43.457]                   muffleCondition(cond)
  [13:43:43.457]                 })
  [13:43:43.457]             }))
  [13:43:43.457]             future::FutureResult(value = ...future.value$value, 
  [13:43:43.457]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:43.457]                   ...future.rng), started = ...future.startTime, 
  [13:43:43.457]                 version = "1.8")
  [13:43:43.457]         }, condition = base::local({
  [13:43:43.457]             c <- base::c
  [13:43:43.457]             inherits <- base::inherits
  [13:43:43.457]             invokeRestart <- base::invokeRestart
  [13:43:43.457]             length <- base::length
  [13:43:43.457]             list <- base::list
  [13:43:43.457]             seq.int <- base::seq.int
  [13:43:43.457]             signalCondition <- base::signalCondition
  [13:43:43.457]             sys.calls <- base::sys.calls
  [13:43:43.457]             Sys.time <- base::Sys.time
  [13:43:43.457]             `[[` <- base::`[[`
  [13:43:43.457]             `+` <- base::`+`
  [13:43:43.457]             `<<-` <- base::`<<-`
  [13:43:43.457]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [13:43:43.457]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [13:43:43.457]                   3L)]
  [13:43:43.457]             }
  [13:43:43.457]             function(cond) {
  [13:43:43.457]                 if (inherits(cond, "error")) {
  [13:43:43.457]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:43.457]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [13:43:43.457]                     cond$call), timestamp = Sys.time(), signaled = 0L)
  [13:43:43.457]                   signalCondition(cond)
  [13:43:43.457]                 }
  [13:43:43.457]                 else if (inherits(cond, c("condition", "immediateCondition"
  [13:43:43.457]                 ))) {
  [13:43:43.457]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [13:43:43.457]                   ...future.conditions[[length(...future.conditions) + 
  [13:43:43.457]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [13:43:43.457]                   if (!signal) {
  [13:43:43.457]                     muffleCondition <- function (cond) 
  [13:43:43.457]                     {
  [13:43:43.457]                       inherits <- base::inherits
  [13:43:43.457]                       invokeRestart <- base::invokeRestart
  [13:43:43.457]                       muffled <- FALSE
  [13:43:43.457]                       if (inherits(cond, "message")) {
  [13:43:43.457]                         invokeRestart("muffleMessage")
  [13:43:43.457]                         muffled <- TRUE
  [13:43:43.457]                       }
  [13:43:43.457]                       else if (inherits(cond, "warning")) {
  [13:43:43.457]                         invokeRestart("muffleWarning")
  [13:43:43.457]                         muffled <- TRUE
  [13:43:43.457]                       }
  [13:43:43.457]                       else if (inherits(cond, "condition")) {
  [13:43:43.457]                         computeRestarts <- base::computeRestarts
  [13:43:43.457]                         grepl <- base::grepl
  [13:43:43.457]                         is.null <- base::is.null
  [13:43:43.457]                         restarts <- computeRestarts(cond)
  [13:43:43.457]                         for (restart in restarts) {
  [13:43:43.457]                           name <- restart$name
  [13:43:43.457]                           if (is.null(name)) 
  [13:43:43.457]                             next
  [13:43:43.457]                           if (!grepl("^muffle", name)) 
  [13:43:43.457]                             next
  [13:43:43.457]                           invokeRestart(restart)
  [13:43:43.457]                           muffled <- TRUE
  [13:43:43.457]                           break
  [13:43:43.457]                         }
  [13:43:43.457]                       }
  [13:43:43.457]                       invisible(muffled)
  [13:43:43.457]                     }
  [13:43:43.457]                     muffleCondition(cond)
  [13:43:43.457]                   }
  [13:43:43.457]                 }
  [13:43:43.457]             }
  [13:43:43.457]         }))
  [13:43:43.457]     }, error = function(ex) {
  [13:43:43.457]         base::structure(base::list(value = NULL, visible = NULL, 
  [13:43:43.457]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [13:43:43.457]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [13:43:43.457]     }, finally = {
  [13:43:43.457]         {
  [13:43:43.457]             NULL
  [13:43:43.457]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [13:43:43.457]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [13:43:43.457]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [13:43:43.457]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [13:43:43.457]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [13:43:43.457]                 ...) 
  [13:43:43.457]             {
  [13:43:43.457]                 if (substitute) 
  [13:43:43.457]                   expr <- substitute(expr)
  [13:43:43.457]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [13:43:43.457]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.457]                   globals = globals, persistent = persistent, 
  [13:43:43.457]                   workers = workers, user = user, revtunnel = revtunnel, 
  [13:43:43.457]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [13:43:43.457]                   label = label, ...)
  [13:43:43.457]                 if (!future$lazy) 
  [13:43:43.457]                   future <- run(future)
  [13:43:43.457]                 invisible(future)
  [13:43:43.457]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [13:43:43.457]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [13:43:43.457]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [13:43:43.457]                 label = NULL, ...) 
  [13:43:43.457]             {
  [13:43:43.457]                 if (substitute) 
  [13:43:43.457]                   expr <- substitute(expr)
  [13:43:43.457]                 if (is.function(workers)) 
  [13:43:43.457]                   workers <- workers()
  [13:43:43.457]                 workers <- as.integer(workers)
  [13:43:43.457]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [13:43:43.457]                   workers >= 1)
  [13:43:43.457]                 if (workers == 1L) {
  [13:43:43.457]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [13:43:43.457]                     lazy = TRUE, seed = seed, globals = globals, 
  [13:43:43.457]                     local = TRUE, label = label, ...))
  [13:43:43.457]                 }
  [13:43:43.457]                 workers <- ClusterRegistry("start", workers = workers)
  [13:43:43.457]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [13:43:43.457]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [13:43:43.457]                   globals = globals, persistent = persistent, 
  [13:43:43.457]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [13:43:43.457]                   label = label, ...)
  [13:43:43.457]                 if (!future$lazy) 
  [13:43:43.457]                   future <- run(future)
  [13:43:43.457]                 invisible(future)
  [13:43:43.457]             }), .cleanup = FALSE, .init = FALSE)
  [13:43:43.457]         }
  [13:43:43.457]         base::options(...future.oldOptions)
  [13:43:43.457]     })
  [13:43:43.457]     Sys.time
  [13:43:43.457]     if (base::is.na(TRUE)) {
  [13:43:43.457]     }
  [13:43:43.457]     else {
  [13:43:43.457]         base::sink(type = "output", split = FALSE)
  [13:43:43.457]         if (TRUE) {
  [13:43:43.457]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [13:43:43.457]         }
  [13:43:43.457]         else {
  [13:43:43.457]             ...future.result["stdout"] <- base::list(NULL)
  [13:43:43.457]         }
  [13:43:43.457]         base::close(...future.stdout)
  [13:43:43.457]         ...future.stdout <- NULL
  [13:43:43.457]     }
  [13:43:43.457]     ...future.result$conditions <- ...future.conditions
  [13:43:43.457]     ...future.result
  [13:43:43.457] }
  [13:43:43.467] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [13:43:43.468] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [13:43:43.469] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [13:43:43.469] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [13:43:43.487] ClusterFuture started
  [13:43:43.487] Chunk #2 of 2 ... DONE
  [13:43:43.488] Launching 2 futures (chunks) ... DONE
  [13:43:43.488] - resolving futures
  [13:43:43.488]   - gathering results & relaying conditions (except errors)
  [13:43:43.489] resolve() on list ...
  [13:43:43.489]  recursive: 0
  [13:43:43.489]  length: 2
  [13:43:43.490] 
  [13:43:43.625] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:43.625] - Validating connection of ClusterFuture
  [13:43:43.671] - received message: FutureResult
  [13:43:43.672] - Received FutureResult
  [13:43:43.672] - Erased future from FutureRegistry
  [13:43:43.672] result() for ClusterFuture ...
  [13:43:43.673] - result already collected: FutureResult
  [13:43:43.673] result() for ClusterFuture ... done
  [13:43:43.674] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:43.674] Future #1
  [13:43:43.674] result() for ClusterFuture ...
  [13:43:43.675] - result already collected: FutureResult
  [13:43:43.675] result() for ClusterFuture ... done
  [13:43:43.675] result() for ClusterFuture ...
  [13:43:43.676] - result already collected: FutureResult
  [13:43:43.676] result() for ClusterFuture ... done
  [13:43:43.676] signalConditionsASAP(ClusterFuture, pos=1) ...
  [13:43:43.677] - nx: 2
  [13:43:43.677] - relay: TRUE
  [13:43:43.677] - stdout: TRUE
  [13:43:43.678] - signal: TRUE
  [13:43:43.678] - resignal: FALSE
  [13:43:43.678] - force: FALSE
  [13:43:43.678] - relayed: [n=2] FALSE, FALSE
  [13:43:43.679] - queued futures: [n=2] FALSE, FALSE
  [13:43:43.679]  - until=1
  [13:43:43.679]  - relaying element #1
  [13:43:43.680] result() for ClusterFuture ...
  [13:43:43.680] - result already collected: FutureResult
  [13:43:43.680] result() for ClusterFuture ... done
  [13:43:43.681] result() for ClusterFuture ...
  [13:43:43.681] - result already collected: FutureResult
  [13:43:43.682] result() for ClusterFuture ... done
  [13:43:43.682] result() for ClusterFuture ...
  [13:43:43.682] - result already collected: FutureResult
  [13:43:43.683] result() for ClusterFuture ... done
  [13:43:43.683] result() for ClusterFuture ...
  [13:43:43.683] - result already collected: FutureResult
  [13:43:43.684] result() for ClusterFuture ... done
  [13:43:43.684] - relayed: [n=2] TRUE, FALSE
  [13:43:43.684] - queued futures: [n=2] TRUE, FALSE
  [13:43:43.685] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [13:43:43.685]  length: 1 (resolved future 1)
  [13:43:43.742] receiveMessageFromWorker() for ClusterFuture ...
  [13:43:43.743] - Validating connection of ClusterFuture
  [13:43:43.783] - received message: FutureResult
  [13:43:43.784] - Received FutureResult
  [13:43:43.784] - Erased future from FutureRegistry
  [13:43:43.785] result() for ClusterFuture ...
  [13:43:43.785] - result already collected: FutureResult
  [13:43:43.786] result() for ClusterFuture ... done
  [13:43:43.786] receiveMessageFromWorker() for ClusterFuture ... done
  [13:43:43.786] Future #2
  [13:43:43.787] result() for ClusterFuture ...
  [13:43:43.787] - result already collected: FutureResult
  [13:43:43.788] result() for ClusterFuture ... done
  [13:43:43.788] result() for ClusterFuture ...
  [13:43:43.788] - result already collected: FutureResult
  [13:43:43.789] result() for ClusterFuture ... done
  [13:43:43.789] signalConditionsASAP(ClusterFuture, pos=2) ...
  [13:43:43.789] - nx: 2
  [13:43:43.790] - relay: TRUE
  [13:43:43.790] - stdout: TRUE
  [13:43:43.790] - signal: TRUE
  [13:43:43.791] - resignal: FALSE
  [13:43:43.791] - force: FALSE
  [13:43:43.791] - relayed: [n=2] TRUE, FALSE
  [13:43:43.791] - queued futures: [n=2] TRUE, FALSE
  [13:43:43.792]  - until=2
  [13:43:43.792]  - relaying element #2
  [13:43:43.792] result() for ClusterFuture ...
  [13:43:43.793] - result already collected: FutureResult
  [13:43:43.793] result() for ClusterFuture ... done
  [13:43:43.793] result() for ClusterFuture ...
  [13:43:43.794] - result already collected: FutureResult
  [13:43:43.794] result() for ClusterFuture ... done
  [13:43:43.795] result() for ClusterFuture ...
  [13:43:43.795] - result already collected: FutureResult
  [13:43:43.795] result() for ClusterFuture ... done
  [13:43:43.796] result() for ClusterFuture ...
  [13:43:43.796] - result already collected: FutureResult
  [13:43:43.796] result() for ClusterFuture ... done
  [13:43:43.797] - relayed: [n=2] TRUE, TRUE
  [13:43:43.797] - queued futures: [n=2] TRUE, TRUE
  [13:43:43.797] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [13:43:43.798]  length: 0 (resolved future 2)
  [13:43:43.798] Relaying remaining futures
  [13:43:43.798] signalConditionsASAP(NULL, pos=0) ...
  [13:43:43.799] - nx: 2
  [13:43:43.799] - relay: TRUE
  [13:43:43.799] - stdout: TRUE
  [13:43:43.799] - signal: TRUE
  [13:43:43.800] - resignal: FALSE
  [13:43:43.800] - force: FALSE
  [13:43:43.800] - relayed: [n=2] TRUE, TRUE
  [13:43:43.801] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [13:43:43.801] - relayed: [n=2] TRUE, TRUE
  [13:43:43.802] - queued futures: [n=2] TRUE, TRUE
  [13:43:43.802] signalConditionsASAP(NULL, pos=0) ... done
  [13:43:43.802] resolve() on list ... DONE
  [13:43:43.819] - collecting values of futures
  [13:43:43.819] result() for ClusterFuture ...
  [13:43:43.819] - result already collected: FutureResult
  [13:43:43.820] result() for ClusterFuture ... done
  [13:43:43.820] result() for ClusterFuture ...
  [13:43:43.831] - result already collected: FutureResult
  [13:43:43.832] result() for ClusterFuture ... done
  [13:43:43.832] result() for ClusterFuture ...
  [13:43:43.833] - result already collected: FutureResult
  [13:43:43.833] result() for ClusterFuture ... done
  [13:43:43.833] result() for ClusterFuture ...
  [13:43:43.834] - result already collected: FutureResult
  [13:43:43.834] result() for ClusterFuture ... done
  [13:43:43.835] - accumulating results
  [13:43:43.837] - processing errors (handler = 'stop')
  [13:43:43.855] - extracting results
  [13:43:43.855] doFuture() ... DONE
  - plan(list('cluster', 'multisession')) ... DONE
  - plan(list('cluster', 'cluster')) ...
  [13:43:43.856] plan(): Setting new future strategy stack:
  [13:43:43.857] List of future strategies:
  [13:43:43.857] 1. cluster:
  [13:43:43.857]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:43.857]    - tweaked: FALSE
  [13:43:43.857]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:43.857] 2. cluster:
  [13:43:43.857]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:43.857]    - tweaked: FALSE
  [13:43:43.857]    - call: plan(list(a = strategy1, b = strategy2))
  [13:43:43.858] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [13:43:43.859] cluster:
  [13:43:43.859] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [13:43:43.859] - tweaked: FALSE
  [13:43:43.859] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 27017
  [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-patched-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac27aa899e.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpLRcu1T/future.parent=14764.39ac27aa899e.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac27aa899e.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=27017 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 27017 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 27017 cannot be opened
  Killing worker process (PID 30375) if still alive
  [13:43:45.961] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(14764, signal = 0L)
  [1] TRUE
  Call: tools::pskill(14764, signal = 0L)
  [1] TRUE
  [13:43:45.962] - success
  [13:43:45.962] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 30375) 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 'gimli'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 27017 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 27017 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-patched-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:14764:gimli:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpLRcu1T/future.parent=14764.39ac27aa899e.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=27017 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 30375) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted