Running ‘DEPRECATED.R’ [1s/1s]
  Running ‘cluster-missing-doFuture-pkg.R’ [1s/3s]
  Running ‘doRNG,dopar.R’ [2s/40s]
  Running ‘doRNG,dorng.R’ [5s/46s]
  Running ‘foreach,errors.R’ [6s/125s]
  Running ‘foreach,globals.R’ [7s/127s]
  Running ‘foreach,nested.R’ [5s/106s]
  Running ‘foreach,nested_dopar.R’ [15s/271s]
  Running ‘foreach.R’ [10s/60s]
  Running ‘future.BatchJobs.R’ [27s/42s]
  Running ‘future.batchtools.R’ [36s/48s]
  Running ‘options.R’ [2s/23s]
  Running ‘registerDoFuture.R’ [2s/37s]
  Running ‘times.R’ [2s/40s]
  Running ‘zzz_opt-in,NMF.R’ [0s/1s]
  Running ‘zzz_opt-in,TSP.R’ [0s/1s]
  Running ‘zzz_opt-in,caret.R’ [0s/1s]
  Running ‘zzz_opt-in,foreach.R’ [0s/1s]
  Running ‘zzz_opt-in,glmnet.R’ [0s/1s]
  Running ‘zzz_opt-in,plyr.R’ [0s/1s]
Running the tests in ‘tests/foreach,nested.R’ failed.
Complete output:
  > source("incl/start.R")
  Loading required package: globals
  Loading required package: future
  Loading required package: foreach
  Loading required package: iterators
  Loading required package: parallel
  [20:18:26.657] plan(): Setting new future strategy stack:
  [20:18:26.658] List of future strategies:
  [20:18:26.658] 1. sequential:
  [20:18:26.658]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:26.658]    - tweaked: FALSE
  [20:18:26.658]    - call: future::plan(future::sequential)
  [20:18:26.660] plan(): nbrOfWorkers() = 1
  > 
  > strategies <- future:::supportedStrategies()
  > strategies <- setdiff(strategies, "multiprocess")
  > 
  > message("*** doFuture - nested w/ %:% ...")
  *** doFuture - nested w/ %:% ...
  > 
  > registerDoFuture()
  > 
  > for (strategy1 in strategies) {
  +   for (strategy2 in strategies) {
  +     message(sprintf("- plan(list('%s', '%s')) ...", strategy1, strategy2))
  +     plan(list(a = strategy1, b = strategy2))
  +     nested <- plan("list")
  + 
  +     as <- 1:2
  +     bs <- 3:1
  +     x <- foreach(a = as) %:% foreach(b = bs) %dopar% {
  +       list(a = a, b = b, plan_b = future::plan("list"), plan = future::plan())
  +     }
  + 
  +     stopifnot(length(x) == length(as))
  +     for (aa in seq_along(as)) {
  +       x_aa <- x[[aa]]
  +       stopifnot(length(x_aa) == length(bs))
  +       a <- as[aa]
  +       for (bb in seq_along(bs)) {
  +         x_aa_bb <- x_aa[[bb]]
  +         b <- bs[bb]
  +         stopifnot(
  +           length(x_aa_bb) == 4L,
  +           all(names(x_aa_bb) == c("a", "b", "plan_b", "plan")),
  +           x_aa_bb$a == a,
  +           x_aa_bb$b == b,
  +           length(x_aa_bb$plan_b) == length(nested[-1]),
  +           inherits(x_aa_bb$plan_b[[1]], strategy2),
  +           inherits(x_aa_bb$plan, strategy2)
  +         )
  +       }
  +     }
  + 
  +     message(sprintf("- plan(list('%s', '%s')) ... DONE", strategy1, strategy2))
  +   }
  + }
  - plan(list('sequential', 'sequential')) ...
  [20:18:26.775] plan(): Setting new future strategy stack:
  [20:18:26.775] List of future strategies:
  [20:18:26.775] 1. sequential:
  [20:18:26.775]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:26.775]    - tweaked: FALSE
  [20:18:26.775]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:26.775] 2. sequential:
  [20:18:26.775]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:26.775]    - tweaked: FALSE
  [20:18:26.775]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:26.832] plan(): nbrOfWorkers() = 1
  [20:18:26.833] doFuture() ...
  [20:18:26.839] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:26.840] - R expression:
  [20:18:26.840] {
  [20:18:26.840]     doFuture::registerDoFuture()
  [20:18:26.840]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:26.840]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:26.840]         {
  [20:18:26.840]             a <- NULL
  [20:18:26.840]             b <- NULL
  [20:18:26.840]         }
  [20:18:26.840]         ...future.env <- environment()
  [20:18:26.840]         local({
  [20:18:26.840]             for (name in names(...future.x_jj)) {
  [20:18:26.840]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:26.840]                   inherits = FALSE)
  [20:18:26.840]             }
  [20:18:26.840]         })
  [20:18:26.840]         tryCatch({
  [20:18:26.840]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:26.840]                 plan = future::plan())
  [20:18:26.840]         }, error = identity)
  [20:18:26.840]     })
  [20:18:26.840] }
  [20:18:26.841] - identifying globals and packages ...
  [20:18:26.863] getGlobalsAndPackages() ...
  [20:18:26.863] Searching for globals...
  [20:18:26.904] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:26.904] Searching for globals ... DONE
  [20:18:26.905] Resolving globals: FALSE
  [20:18:26.923] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:26.923] - globals: [1] '...future.x_ii'
  [20:18:26.924] 
  [20:18:26.924] getGlobalsAndPackages() ... DONE
  [20:18:26.924] List of 1
  [20:18:26.924]  $ ...future.x_ii: NULL
  [20:18:26.924]  - attr(*, "where")=List of 1
  [20:18:26.924]   ..$ ...future.x_ii:<environment: 0x55aab3209cb0> 
  [20:18:26.924]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:26.924]  - attr(*, "resolved")= logi FALSE
  [20:18:26.924]  - attr(*, "total_size")= num 0
  [20:18:26.935]   - R expression:
  [20:18:26.935] {
  [20:18:26.935]     doFuture::registerDoFuture()
  [20:18:26.935]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:26.935]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:26.935]         {
  [20:18:26.935]             a <- NULL
  [20:18:26.935]             b <- NULL
  [20:18:26.935]         }
  [20:18:26.935]         ...future.env <- environment()
  [20:18:26.935]         local({
  [20:18:26.935]             for (name in names(...future.x_jj)) {
  [20:18:26.935]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:26.935]                   inherits = FALSE)
  [20:18:26.935]             }
  [20:18:26.935]         })
  [20:18:26.935]         tryCatch({
  [20:18:26.935]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:26.935]                 plan = future::plan())
  [20:18:26.935]         }, error = identity)
  [20:18:26.935]     })
  [20:18:26.935] }
  [20:18:26.935]   - globals: [1] '...future.x_ii'
  [20:18:26.936] List of 1
  [20:18:26.936]  $ ...future.x_ii: NULL
  [20:18:26.936]  - attr(*, "where")=List of 1
  [20:18:26.936]   ..$ ...future.x_ii:<environment: 0x55aab3209cb0> 
  [20:18:26.936]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:26.936]  - attr(*, "resolved")= logi FALSE
  [20:18:26.936]  - attr(*, "total_size")= num 0
  [20:18:26.957]   - packages: [1] 'doFuture'
  [20:18:26.958] - identifying globals and packages ... DONE
  [20:18:26.958] Number of chunks: 1
  [20:18:26.959] Number of futures (= number of chunks): 1
  [20:18:26.959] Launching 1 futures (chunks) ...
  [20:18:26.959] Chunk #1 of 1 ...
  [20:18:26.960]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:26.960] getGlobalsAndPackages() ...
  [20:18:26.960] Searching for globals...
  [20:18:26.961] 
  [20:18:26.962] Searching for globals ... DONE
  [20:18:26.962] - globals: [0] <none>
  [20:18:26.962] getGlobalsAndPackages() ... DONE
  [20:18:26.962] 
  [20:18:26.963] 
  [20:18:26.963]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:26.964] getGlobalsAndPackages() ...
  [20:18:26.964] - globals passed as-is: [1] '...future.x_ii'
  [20:18:26.964] Resolving globals: FALSE
  [20:18:26.965] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:18:26.966] - globals: [1] '...future.x_ii'
  [20:18:26.966] 
  [20:18:26.966] getGlobalsAndPackages() ... DONE
  [20:18:26.968] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:26.969] Packages needed by future strategies (n = 1): 'future'
  [20:18:26.973] {
  [20:18:26.973]     {
  [20:18:26.973]         ...future.startTime <- Sys.time()
  [20:18:26.973]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:26.973]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:26.973]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [20:18:26.973]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:26.973]             future.resolve.recursive = NULL, width = 80L)
  [20:18:26.973]         {
  [20:18:26.973]             {
  [20:18:26.973]                 {
  [20:18:26.973]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:18:26.973]                   version <- if (has_future) 
  [20:18:26.973]                     packageVersion("future")
  [20:18:26.973]                   else NULL
  [20:18:26.973]                   if (!has_future || version < "1.8.0") {
  [20:18:26.973]                     info <- c(r_version = gsub("R version ", 
  [20:18:26.973]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:26.973]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:26.973]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:18:26.973]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:26.973]                     info <- sprintf("%s: %s", names(info), info)
  [20:18:26.973]                     info <- paste(info, collapse = "; ")
  [20:18:26.973]                     if (!has_future) {
  [20:18:26.973]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:26.973]                         info)
  [20:18:26.973]                     }
  [20:18:26.973]                     else {
  [20:18:26.973]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:26.973]                         info, version)
  [20:18:26.973]                     }
  [20:18:26.973]                     stop(msg)
  [20:18:26.973]                   }
  [20:18:26.973]                 }
  [20:18:26.973]                 local({
  [20:18:26.973]                   for (pkg in c("doFuture", "future")) {
  [20:18:26.973]                     loadNamespace(pkg)
  [20:18:26.973]                     library(pkg, character.only = TRUE)
  [20:18:26.973]                   }
  [20:18:26.973]                 })
  [20:18:26.973]             }
  [20:18:26.973]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:26.973]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:26.973]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:26.973]                 label = NULL, ...) 
  [20:18:26.973]             {
  [20:18:26.973]                 if (substitute) 
  [20:18:26.973]                   expr <- substitute(expr)
  [20:18:26.973]                 local <- as.logical(local)
  [20:18:26.973]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:26.973]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:26.973]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:26.973]                   label = label, ...)
  [20:18:26.973]                 if (!future$lazy) 
  [20:18:26.973]                   future <- run(future)
  [20:18:26.973]                 invisible(future)
  [20:18:26.973]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:26.973]         }
  [20:18:26.973]     }
  [20:18:26.973]     if (is.na(TRUE)) {
  [20:18:26.973]     }
  [20:18:26.973]     else {
  [20:18:26.973]         if (TRUE) {
  [20:18:26.973]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:26.973]         }
  [20:18:26.973]         else {
  [20:18:26.973]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:26.973]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:26.973]         }
  [20:18:26.973]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:26.973]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:26.973]             sink(type = "output", split = FALSE)
  [20:18:26.973]             close(...future.stdout)
  [20:18:26.973]         }, add = TRUE)
  [20:18:26.973]     }
  [20:18:26.973]     ...future.frame <- sys.nframe()
  [20:18:26.973]     ...future.conditions <- list()
  [20:18:26.973]     ...future.result <- tryCatch({
  [20:18:26.973]         withCallingHandlers({
  [20:18:26.973]             ...future.value <- withVisible(local({
  [20:18:26.973]                 doFuture::registerDoFuture()
  [20:18:26.973]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:26.973]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:26.973]                   {
  [20:18:26.973]                     a <- NULL
  [20:18:26.973]                     b <- NULL
  [20:18:26.973]                   }
  [20:18:26.973]                   ...future.env <- environment()
  [20:18:26.973]                   local({
  [20:18:26.973]                     for (name in names(...future.x_jj)) {
  [20:18:26.973]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:26.973]                         inherits = FALSE)
  [20:18:26.973]                     }
  [20:18:26.973]                   })
  [20:18:26.973]                   tryCatch({
  [20:18:26.973]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:26.973]                       plan = future::plan())
  [20:18:26.973]                   }, error = identity)
  [20:18:26.973]                 })
  [20:18:26.973]             }))
  [20:18:26.973]             future::FutureResult(value = ...future.value$value, 
  [20:18:26.973]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:26.973]                 version = "1.8")
  [20:18:26.973]         }, condition = local({
  [20:18:26.973]             inherits <- base::inherits
  [20:18:26.973]             invokeRestart <- base::invokeRestart
  [20:18:26.973]             length <- base::length
  [20:18:26.973]             seq.int <- base::seq.int
  [20:18:26.973]             sys.calls <- base::sys.calls
  [20:18:26.973]             `[[` <- base::`[[`
  [20:18:26.973]             `+` <- base::`+`
  [20:18:26.973]             `<<-` <- base::`<<-`
  [20:18:26.973]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:26.973]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:26.973]                   3L)]
  [20:18:26.973]             }
  [20:18:26.973]             function(cond) {
  [20:18:26.973]                 if (inherits(cond, "error")) {
  [20:18:26.973]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:26.973]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:26.973]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:26.973]                     signaled = 0L)
  [20:18:26.973]                   signalCondition(cond)
  [20:18:26.973]                 }
  [20:18:26.973]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:18:26.973]                 ))) {
  [20:18:26.973]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:18:26.973]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:26.973]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:26.973]                   if (!signal) {
  [20:18:26.973]                     muffleCondition <- function (cond) 
  [20:18:26.973]                     {
  [20:18:26.973]                       inherits <- base::inherits
  [20:18:26.973]                       invokeRestart <- base::invokeRestart
  [20:18:26.973]                       muffled <- FALSE
  [20:18:26.973]                       if (inherits(cond, "message")) {
  [20:18:26.973]                         invokeRestart("muffleMessage")
  [20:18:26.973]                         muffled <- TRUE
  [20:18:26.973]                       }
  [20:18:26.973]                       else if (inherits(cond, "warning")) {
  [20:18:26.973]                         invokeRestart("muffleWarning")
  [20:18:26.973]                         muffled <- TRUE
  [20:18:26.973]                       }
  [20:18:26.973]                       else if (inherits(cond, "condition")) {
  [20:18:26.973]                         computeRestarts <- base::computeRestarts
  [20:18:26.973]                         grepl <- base::grepl
  [20:18:26.973]                         is.null <- base::is.null
  [20:18:26.973]                         restarts <- computeRestarts(cond)
  [20:18:26.973]                         for (restart in restarts) {
  [20:18:26.973]                           name <- restart$name
  [20:18:26.973]                           if (is.null(name)) 
  [20:18:26.973]                             next
  [20:18:26.973]                           if (!grepl("^muffle", name)) 
  [20:18:26.973]                             next
  [20:18:26.973]                           invokeRestart(restart)
  [20:18:26.973]                           muffled <- TRUE
  [20:18:26.973]                           break
  [20:18:26.973]                         }
  [20:18:26.973]                       }
  [20:18:26.973]                       invisible(muffled)
  [20:18:26.973]                     }
  [20:18:26.973]                     muffleCondition(cond)
  [20:18:26.973]                   }
  [20:18:26.973]                 }
  [20:18:26.973]             }
  [20:18:26.973]         }))
  [20:18:26.973]     }, error = function(ex) {
  [20:18:26.973]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:26.973]             version = "1.8"), class = "FutureResult")
  [20:18:26.973]     }, finally = {
  [20:18:26.973]         {
  [20:18:26.973]             NULL
  [20:18:26.973]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:26.973]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:26.973]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:26.973]                 label = NULL, ...) 
  [20:18:26.973]             {
  [20:18:26.973]                 if (substitute) 
  [20:18:26.973]                   expr <- substitute(expr)
  [20:18:26.973]                 local <- as.logical(local)
  [20:18:26.973]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:26.973]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:26.973]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:26.973]                   label = label, ...)
  [20:18:26.973]                 if (!future$lazy) 
  [20:18:26.973]                   future <- run(future)
  [20:18:26.973]                 invisible(future)
  [20:18:26.973]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:26.973]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:26.973]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:26.973]             {
  [20:18:26.973]                 if (substitute) 
  [20:18:26.973]                   expr <- substitute(expr)
  [20:18:26.973]                 local <- as.logical(local)
  [20:18:26.973]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:26.973]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:26.973]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:26.973]                   label = label, ...)
  [20:18:26.973]                 if (!future$lazy) 
  [20:18:26.973]                   future <- run(future)
  [20:18:26.973]                 invisible(future)
  [20:18:26.973]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:26.973]         }
  [20:18:26.973]         options(...future.oldOptions)
  [20:18:26.973]     })
  [20:18:26.973]     if (is.na(TRUE)) {
  [20:18:26.973]     }
  [20:18:26.973]     else {
  [20:18:26.973]         sink(type = "output", split = FALSE)
  [20:18:26.973]         if (TRUE) {
  [20:18:26.973]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:26.973]         }
  [20:18:26.973]         else {
  [20:18:26.973]             ...future.result["stdout"] <- list(NULL)
  [20:18:26.973]         }
  [20:18:26.973]         close(...future.stdout)
  [20:18:26.973]         ...future.stdout <- NULL
  [20:18:26.973]     }
  [20:18:26.973]     ...future.result$conditions <- ...future.conditions
  [20:18:26.973]     ...future.result
  [20:18:26.973] }
  [20:18:26.978] plan(): Setting new future strategy stack:
  [20:18:26.978] List of future strategies:
  [20:18:26.978] 1. sequential:
  [20:18:26.978]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:26.978]    - tweaked: FALSE
  [20:18:26.978]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:26.979] plan(): nbrOfWorkers() = 1
  [20:18:26.999] plan(): Setting new future strategy stack:
  [20:18:27.000] List of future strategies:
  [20:18:27.000] 1. sequential:
  [20:18:27.000]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.000]    - tweaked: FALSE
  [20:18:27.000]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.000] 2. sequential:
  [20:18:27.000]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.000]    - tweaked: FALSE
  [20:18:27.000]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.001] plan(): nbrOfWorkers() = 1
  [20:18:27.001] SequentialFuture started (and completed)
  [20:18:27.002] Chunk #1 of 1 ... DONE
  [20:18:27.002] Launching 1 futures (chunks) ... DONE
  [20:18:27.003] - resolving futures
  [20:18:27.003]   - gathering results & relaying conditions (except errors)
  [20:18:27.004] resolve() on list ...
  [20:18:27.004]  recursive: 0
  [20:18:27.004]  length: 1
  [20:18:27.005] 
  [20:18:27.005] Future #1
  [20:18:27.006] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:18:27.006] - nx: 1
  [20:18:27.006] - relay: TRUE
  [20:18:27.006] - stdout: TRUE
  [20:18:27.007] - signal: TRUE
  [20:18:27.007] - resignal: FALSE
  [20:18:27.007] - force: FALSE
  [20:18:27.007] - relayed: [n=1] FALSE
  [20:18:27.008] - queued futures: [n=1] FALSE
  [20:18:27.008]  - until=1
  [20:18:27.008]  - relaying element #1
  [20:18:27.008] - relayed: [n=1] TRUE
  [20:18:27.009] - queued futures: [n=1] TRUE
  [20:18:27.009] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:18:27.009]  length: 0 (resolved future 1)
  [20:18:27.010] Relaying remaining futures
  [20:18:27.010] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.010] - nx: 1
  [20:18:27.010] - relay: TRUE
  [20:18:27.011] - stdout: TRUE
  [20:18:27.011] - signal: TRUE
  [20:18:27.011] - resignal: FALSE
  [20:18:27.011] - force: FALSE
  [20:18:27.012] - relayed: [n=1] TRUE
  [20:18:27.012] - queued futures: [n=1] TRUE
   - flush all
  [20:18:27.012] - relayed: [n=1] TRUE
  [20:18:27.012] - queued futures: [n=1] TRUE
  [20:18:27.013] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.013] resolve() on list ... DONE
  [20:18:27.013] - collecting values of futures
  [20:18:27.014] - accumulating results
  [20:18:27.017] - processing errors (handler = 'stop')
  [20:18:27.018] - extracting results
  [20:18:27.018] doFuture() ... DONE
  - plan(list('sequential', 'sequential')) ... DONE
  - plan(list('sequential', 'multicore')) ...
  [20:18:27.019] plan(): Setting new future strategy stack:
  [20:18:27.020] List of future strategies:
  [20:18:27.020] 1. sequential:
  [20:18:27.020]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.020]    - tweaked: FALSE
  [20:18:27.020]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.020] 2. multicore:
  [20:18:27.020]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.020]    - tweaked: FALSE
  [20:18:27.020]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.021] plan(): nbrOfWorkers() = 1
  [20:18:27.022] doFuture() ...
  [20:18:27.025] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.026] - R expression:
  [20:18:27.026] {
  [20:18:27.026]     doFuture::registerDoFuture()
  [20:18:27.026]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.026]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.026]         {
  [20:18:27.026]             a <- NULL
  [20:18:27.026]             b <- NULL
  [20:18:27.026]         }
  [20:18:27.026]         ...future.env <- environment()
  [20:18:27.026]         local({
  [20:18:27.026]             for (name in names(...future.x_jj)) {
  [20:18:27.026]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.026]                   inherits = FALSE)
  [20:18:27.026]             }
  [20:18:27.026]         })
  [20:18:27.026]         tryCatch({
  [20:18:27.026]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.026]                 plan = future::plan())
  [20:18:27.026]         }, error = identity)
  [20:18:27.026]     })
  [20:18:27.026] }
  [20:18:27.027] - identifying globals and packages ...
  [20:18:27.028] getGlobalsAndPackages() ...
  [20:18:27.028] Searching for globals...
  [20:18:27.040] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.041] Searching for globals ... DONE
  [20:18:27.041] Resolving globals: FALSE
  [20:18:27.042] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.043] - globals: [1] '...future.x_ii'
  [20:18:27.043] 
  [20:18:27.043] getGlobalsAndPackages() ... DONE
  [20:18:27.044] List of 1
  [20:18:27.044]  $ ...future.x_ii: NULL
  [20:18:27.044]  - attr(*, "where")=List of 1
  [20:18:27.044]   ..$ ...future.x_ii:<environment: 0x55aab2989c00> 
  [20:18:27.044]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.044]  - attr(*, "resolved")= logi FALSE
  [20:18:27.044]  - attr(*, "total_size")= num 0
  [20:18:27.052]   - R expression:
  [20:18:27.053] {
  [20:18:27.053]     doFuture::registerDoFuture()
  [20:18:27.053]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.053]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.053]         {
  [20:18:27.053]             a <- NULL
  [20:18:27.053]             b <- NULL
  [20:18:27.053]         }
  [20:18:27.053]         ...future.env <- environment()
  [20:18:27.053]         local({
  [20:18:27.053]             for (name in names(...future.x_jj)) {
  [20:18:27.053]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.053]                   inherits = FALSE)
  [20:18:27.053]             }
  [20:18:27.053]         })
  [20:18:27.053]         tryCatch({
  [20:18:27.053]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.053]                 plan = future::plan())
  [20:18:27.053]         }, error = identity)
  [20:18:27.053]     })
  [20:18:27.053] }
  [20:18:27.053]   - globals: [1] '...future.x_ii'
  [20:18:27.054] List of 1
  [20:18:27.054]  $ ...future.x_ii: NULL
  [20:18:27.054]  - attr(*, "where")=List of 1
  [20:18:27.054]   ..$ ...future.x_ii:<environment: 0x55aab2989c00> 
  [20:18:27.054]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.054]  - attr(*, "resolved")= logi FALSE
  [20:18:27.054]  - attr(*, "total_size")= num 0
  [20:18:27.059]   - packages: [1] 'doFuture'
  [20:18:27.059] - identifying globals and packages ... DONE
  [20:18:27.059] Number of chunks: 1
  [20:18:27.059] Number of futures (= number of chunks): 1
  [20:18:27.060] Launching 1 futures (chunks) ...
  [20:18:27.060] Chunk #1 of 1 ...
  [20:18:27.060]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.060] getGlobalsAndPackages() ...
  [20:18:27.061] Searching for globals...
  [20:18:27.061] 
  [20:18:27.062] Searching for globals ... DONE
  [20:18:27.062] - globals: [0] <none>
  [20:18:27.062] getGlobalsAndPackages() ... DONE
  [20:18:27.062] 
  [20:18:27.063] 
  [20:18:27.063]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.063] getGlobalsAndPackages() ...
  [20:18:27.063] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.064] Resolving globals: FALSE
  [20:18:27.065] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:18:27.065] - globals: [1] '...future.x_ii'
  [20:18:27.065] 
  [20:18:27.065] getGlobalsAndPackages() ... DONE
  [20:18:27.067] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.067] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.071] {
  [20:18:27.071]     {
  [20:18:27.071]         ...future.startTime <- Sys.time()
  [20:18:27.071]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.071]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.071]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.071]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.071]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.071]         {
  [20:18:27.071]             {
  [20:18:27.071]                 {
  [20:18:27.071]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:18:27.071]                   version <- if (has_future) 
  [20:18:27.071]                     packageVersion("future")
  [20:18:27.071]                   else NULL
  [20:18:27.071]                   if (!has_future || version < "1.8.0") {
  [20:18:27.071]                     info <- c(r_version = gsub("R version ", 
  [20:18:27.071]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.071]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.071]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.071]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.071]                     info <- sprintf("%s: %s", names(info), info)
  [20:18:27.071]                     info <- paste(info, collapse = "; ")
  [20:18:27.071]                     if (!has_future) {
  [20:18:27.071]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.071]                         info)
  [20:18:27.071]                     }
  [20:18:27.071]                     else {
  [20:18:27.071]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.071]                         info, version)
  [20:18:27.071]                     }
  [20:18:27.071]                     stop(msg)
  [20:18:27.071]                   }
  [20:18:27.071]                 }
  [20:18:27.071]                 local({
  [20:18:27.071]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.071]                     loadNamespace(pkg)
  [20:18:27.071]                     library(pkg, character.only = TRUE)
  [20:18:27.071]                   }
  [20:18:27.071]                 })
  [20:18:27.071]             }
  [20:18:27.071]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.071]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.071]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.071]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.071]             {
  [20:18:27.071]                 if (substitute) 
  [20:18:27.071]                   expr <- substitute(expr)
  [20:18:27.071]                 if (is.function(workers)) 
  [20:18:27.071]                   workers <- workers()
  [20:18:27.071]                 workers <- as.integer(workers)
  [20:18:27.071]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.071]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.071]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.071]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.071]                     local = TRUE, label = label, ...))
  [20:18:27.071]                 }
  [20:18:27.071]                 oopts <- options(mc.cores = workers)
  [20:18:27.071]                 on.exit(options(oopts))
  [20:18:27.071]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.071]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.071]                   label = label, ...)
  [20:18:27.071]                 if (!future$lazy) 
  [20:18:27.071]                   future <- run(future)
  [20:18:27.071]                 invisible(future)
  [20:18:27.071]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.071]         }
  [20:18:27.071]     }
  [20:18:27.071]     if (is.na(TRUE)) {
  [20:18:27.071]     }
  [20:18:27.071]     else {
  [20:18:27.071]         if (TRUE) {
  [20:18:27.071]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.071]         }
  [20:18:27.071]         else {
  [20:18:27.071]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.071]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.071]         }
  [20:18:27.071]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.071]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.071]             sink(type = "output", split = FALSE)
  [20:18:27.071]             close(...future.stdout)
  [20:18:27.071]         }, add = TRUE)
  [20:18:27.071]     }
  [20:18:27.071]     ...future.frame <- sys.nframe()
  [20:18:27.071]     ...future.conditions <- list()
  [20:18:27.071]     ...future.result <- tryCatch({
  [20:18:27.071]         withCallingHandlers({
  [20:18:27.071]             ...future.value <- withVisible(local({
  [20:18:27.071]                 doFuture::registerDoFuture()
  [20:18:27.071]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.071]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.071]                   {
  [20:18:27.071]                     a <- NULL
  [20:18:27.071]                     b <- NULL
  [20:18:27.071]                   }
  [20:18:27.071]                   ...future.env <- environment()
  [20:18:27.071]                   local({
  [20:18:27.071]                     for (name in names(...future.x_jj)) {
  [20:18:27.071]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.071]                         inherits = FALSE)
  [20:18:27.071]                     }
  [20:18:27.071]                   })
  [20:18:27.071]                   tryCatch({
  [20:18:27.071]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.071]                       plan = future::plan())
  [20:18:27.071]                   }, error = identity)
  [20:18:27.071]                 })
  [20:18:27.071]             }))
  [20:18:27.071]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.071]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.071]                 version = "1.8")
  [20:18:27.071]         }, condition = local({
  [20:18:27.071]             inherits <- base::inherits
  [20:18:27.071]             invokeRestart <- base::invokeRestart
  [20:18:27.071]             length <- base::length
  [20:18:27.071]             seq.int <- base::seq.int
  [20:18:27.071]             sys.calls <- base::sys.calls
  [20:18:27.071]             `[[` <- base::`[[`
  [20:18:27.071]             `+` <- base::`+`
  [20:18:27.071]             `<<-` <- base::`<<-`
  [20:18:27.071]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.071]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.071]                   3L)]
  [20:18:27.071]             }
  [20:18:27.071]             function(cond) {
  [20:18:27.071]                 if (inherits(cond, "error")) {
  [20:18:27.071]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.071]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.071]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.071]                     signaled = 0L)
  [20:18:27.071]                   signalCondition(cond)
  [20:18:27.071]                 }
  [20:18:27.071]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:18:27.071]                 ))) {
  [20:18:27.071]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:18:27.071]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.071]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.071]                   if (!signal) {
  [20:18:27.071]                     muffleCondition <- function (cond) 
  [20:18:27.071]                     {
  [20:18:27.071]                       inherits <- base::inherits
  [20:18:27.071]                       invokeRestart <- base::invokeRestart
  [20:18:27.071]                       muffled <- FALSE
  [20:18:27.071]                       if (inherits(cond, "message")) {
  [20:18:27.071]                         invokeRestart("muffleMessage")
  [20:18:27.071]                         muffled <- TRUE
  [20:18:27.071]                       }
  [20:18:27.071]                       else if (inherits(cond, "warning")) {
  [20:18:27.071]                         invokeRestart("muffleWarning")
  [20:18:27.071]                         muffled <- TRUE
  [20:18:27.071]                       }
  [20:18:27.071]                       else if (inherits(cond, "condition")) {
  [20:18:27.071]                         computeRestarts <- base::computeRestarts
  [20:18:27.071]                         grepl <- base::grepl
  [20:18:27.071]                         is.null <- base::is.null
  [20:18:27.071]                         restarts <- computeRestarts(cond)
  [20:18:27.071]                         for (restart in restarts) {
  [20:18:27.071]                           name <- restart$name
  [20:18:27.071]                           if (is.null(name)) 
  [20:18:27.071]                             next
  [20:18:27.071]                           if (!grepl("^muffle", name)) 
  [20:18:27.071]                             next
  [20:18:27.071]                           invokeRestart(restart)
  [20:18:27.071]                           muffled <- TRUE
  [20:18:27.071]                           break
  [20:18:27.071]                         }
  [20:18:27.071]                       }
  [20:18:27.071]                       invisible(muffled)
  [20:18:27.071]                     }
  [20:18:27.071]                     muffleCondition(cond)
  [20:18:27.071]                   }
  [20:18:27.071]                 }
  [20:18:27.071]             }
  [20:18:27.071]         }))
  [20:18:27.071]     }, error = function(ex) {
  [20:18:27.071]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.071]             version = "1.8"), class = "FutureResult")
  [20:18:27.071]     }, finally = {
  [20:18:27.071]         {
  [20:18:27.071]             NULL
  [20:18:27.071]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.071]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.071]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:27.071]                 label = NULL, ...) 
  [20:18:27.071]             {
  [20:18:27.071]                 if (substitute) 
  [20:18:27.071]                   expr <- substitute(expr)
  [20:18:27.071]                 local <- as.logical(local)
  [20:18:27.071]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.071]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.071]                   label = label, ...)
  [20:18:27.071]                 if (!future$lazy) 
  [20:18:27.071]                   future <- run(future)
  [20:18:27.071]                 invisible(future)
  [20:18:27.071]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.071]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.071]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.071]             {
  [20:18:27.071]                 if (substitute) 
  [20:18:27.071]                   expr <- substitute(expr)
  [20:18:27.071]                 if (is.function(workers)) 
  [20:18:27.071]                   workers <- workers()
  [20:18:27.071]                 workers <- as.integer(workers)
  [20:18:27.071]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.071]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.071]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.071]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.071]                     local = TRUE, label = label, ...))
  [20:18:27.071]                 }
  [20:18:27.071]                 oopts <- options(mc.cores = workers)
  [20:18:27.071]                 on.exit(options(oopts))
  [20:18:27.071]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.071]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.071]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.071]                   label = label, ...)
  [20:18:27.071]                 if (!future$lazy) 
  [20:18:27.071]                   future <- run(future)
  [20:18:27.071]                 invisible(future)
  [20:18:27.071]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.071]         }
  [20:18:27.071]         options(...future.oldOptions)
  [20:18:27.071]     })
  [20:18:27.071]     if (is.na(TRUE)) {
  [20:18:27.071]     }
  [20:18:27.071]     else {
  [20:18:27.071]         sink(type = "output", split = FALSE)
  [20:18:27.071]         if (TRUE) {
  [20:18:27.071]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.071]         }
  [20:18:27.071]         else {
  [20:18:27.071]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.071]         }
  [20:18:27.071]         close(...future.stdout)
  [20:18:27.071]         ...future.stdout <- NULL
  [20:18:27.071]     }
  [20:18:27.071]     ...future.result$conditions <- ...future.conditions
  [20:18:27.071]     ...future.result
  [20:18:27.071] }
  [20:18:27.076] plan(): Setting new future strategy stack:
  [20:18:27.076] List of future strategies:
  [20:18:27.076] 1. multicore:
  [20:18:27.076]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.076]    - tweaked: FALSE
  [20:18:27.076]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.151] plan(): nbrOfWorkers() = 2
  [20:18:27.153] plan(): Setting new future strategy stack:
  [20:18:27.154] List of future strategies:
  [20:18:27.154] 1. sequential:
  [20:18:27.154]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.154]    - tweaked: FALSE
  [20:18:27.154]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.154] 2. multicore:
  [20:18:27.154]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.154]    - tweaked: FALSE
  [20:18:27.154]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.155] plan(): nbrOfWorkers() = 1
  [20:18:27.155] SequentialFuture started (and completed)
  [20:18:27.156] Chunk #1 of 1 ... DONE
  [20:18:27.156] Launching 1 futures (chunks) ... DONE
  [20:18:27.156] - resolving futures
  [20:18:27.156]   - gathering results & relaying conditions (except errors)
  [20:18:27.157] resolve() on list ...
  [20:18:27.157]  recursive: 0
  [20:18:27.157]  length: 1
  [20:18:27.157] 
  [20:18:27.158] Future #1
  [20:18:27.158] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:18:27.158] - nx: 1
  [20:18:27.158] - relay: TRUE
  [20:18:27.159] - stdout: TRUE
  [20:18:27.159] - signal: TRUE
  [20:18:27.159] - resignal: FALSE
  [20:18:27.159] - force: FALSE
  [20:18:27.160] - relayed: [n=1] FALSE
  [20:18:27.160] - queued futures: [n=1] FALSE
  [20:18:27.160]  - until=1
  [20:18:27.160]  - relaying element #1
  [20:18:27.161] - relayed: [n=1] TRUE
  [20:18:27.161] - queued futures: [n=1] TRUE
  [20:18:27.161] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:18:27.162]  length: 0 (resolved future 1)
  [20:18:27.162] Relaying remaining futures
  [20:18:27.162] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.162] - nx: 1
  [20:18:27.163] - relay: TRUE
  [20:18:27.163] - stdout: TRUE
  [20:18:27.163] - signal: TRUE
  [20:18:27.163] - resignal: FALSE
  [20:18:27.163] - force: FALSE
  [20:18:27.164] - relayed: [n=1] TRUE
  [20:18:27.164] - queued futures: [n=1] TRUE
   - flush all
  [20:18:27.164] - relayed: [n=1] TRUE
  [20:18:27.165] - queued futures: [n=1] TRUE
  [20:18:27.165] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.165] resolve() on list ... DONE
  [20:18:27.165] - collecting values of futures
  [20:18:27.174] - accumulating results
  [20:18:27.176] - processing errors (handler = 'stop')
  [20:18:27.177] - extracting results
  [20:18:27.177] doFuture() ... DONE
  - plan(list('sequential', 'multicore')) ... DONE
  - plan(list('sequential', 'multisession')) ...
  [20:18:27.178] plan(): Setting new future strategy stack:
  [20:18:27.178] List of future strategies:
  [20:18:27.178] 1. sequential:
  [20:18:27.178]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.178]    - tweaked: FALSE
  [20:18:27.178]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.178] 2. multisession:
  [20:18:27.178]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.178]    - tweaked: FALSE
  [20:18:27.178]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.179] plan(): nbrOfWorkers() = 1
  [20:18:27.180] doFuture() ...
  [20:18:27.184] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.185] - R expression:
  [20:18:27.185] {
  [20:18:27.185]     doFuture::registerDoFuture()
  [20:18:27.185]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.185]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.185]         {
  [20:18:27.185]             a <- NULL
  [20:18:27.185]             b <- NULL
  [20:18:27.185]         }
  [20:18:27.185]         ...future.env <- environment()
  [20:18:27.185]         local({
  [20:18:27.185]             for (name in names(...future.x_jj)) {
  [20:18:27.185]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.185]                   inherits = FALSE)
  [20:18:27.185]             }
  [20:18:27.185]         })
  [20:18:27.185]         tryCatch({
  [20:18:27.185]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.185]                 plan = future::plan())
  [20:18:27.185]         }, error = identity)
  [20:18:27.185]     })
  [20:18:27.185] }
  [20:18:27.186] - identifying globals and packages ...
  [20:18:27.198] getGlobalsAndPackages() ...
  [20:18:27.199] Searching for globals...
  [20:18:27.219] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.219] Searching for globals ... DONE
  [20:18:27.219] Resolving globals: FALSE
  [20:18:27.221] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.221] - globals: [1] '...future.x_ii'
  [20:18:27.221] 
  [20:18:27.221] getGlobalsAndPackages() ... DONE
  [20:18:27.222] List of 1
  [20:18:27.222]  $ ...future.x_ii: NULL
  [20:18:27.222]  - attr(*, "where")=List of 1
  [20:18:27.222]   ..$ ...future.x_ii:<environment: 0x55aab2db3660> 
  [20:18:27.222]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.222]  - attr(*, "resolved")= logi FALSE
  [20:18:27.222]  - attr(*, "total_size")= num 0
  [20:18:27.227]   - R expression:
  [20:18:27.228] {
  [20:18:27.228]     doFuture::registerDoFuture()
  [20:18:27.228]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.228]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.228]         {
  [20:18:27.228]             a <- NULL
  [20:18:27.228]             b <- NULL
  [20:18:27.228]         }
  [20:18:27.228]         ...future.env <- environment()
  [20:18:27.228]         local({
  [20:18:27.228]             for (name in names(...future.x_jj)) {
  [20:18:27.228]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.228]                   inherits = FALSE)
  [20:18:27.228]             }
  [20:18:27.228]         })
  [20:18:27.228]         tryCatch({
  [20:18:27.228]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.228]                 plan = future::plan())
  [20:18:27.228]         }, error = identity)
  [20:18:27.228]     })
  [20:18:27.228] }
  [20:18:27.228]   - globals: [1] '...future.x_ii'
  [20:18:27.229] List of 1
  [20:18:27.229]  $ ...future.x_ii: NULL
  [20:18:27.229]  - attr(*, "where")=List of 1
  [20:18:27.229]   ..$ ...future.x_ii:<environment: 0x55aab2db3660> 
  [20:18:27.229]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.229]  - attr(*, "resolved")= logi FALSE
  [20:18:27.229]  - attr(*, "total_size")= num 0
  [20:18:27.235]   - packages: [1] 'doFuture'
  [20:18:27.235] - identifying globals and packages ... DONE
  [20:18:27.236] Number of chunks: 1
  [20:18:27.236] Number of futures (= number of chunks): 1
  [20:18:27.236] Launching 1 futures (chunks) ...
  [20:18:27.236] Chunk #1 of 1 ...
  [20:18:27.237]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.237] getGlobalsAndPackages() ...
  [20:18:27.237] Searching for globals...
  [20:18:27.238] 
  [20:18:27.239] Searching for globals ... DONE
  [20:18:27.239] - globals: [0] <none>
  [20:18:27.239] getGlobalsAndPackages() ... DONE
  [20:18:27.239] 
  [20:18:27.240] 
  [20:18:27.240]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.240] getGlobalsAndPackages() ...
  [20:18:27.241] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.241] Resolving globals: FALSE
  [20:18:27.242] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:18:27.242] - globals: [1] '...future.x_ii'
  [20:18:27.242] 
  [20:18:27.243] getGlobalsAndPackages() ... DONE
  [20:18:27.245] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.245] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.249] {
  [20:18:27.249]     {
  [20:18:27.249]         ...future.startTime <- Sys.time()
  [20:18:27.249]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.249]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.249]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.249]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.249]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.249]         {
  [20:18:27.249]             {
  [20:18:27.249]                 {
  [20:18:27.249]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:18:27.249]                   version <- if (has_future) 
  [20:18:27.249]                     packageVersion("future")
  [20:18:27.249]                   else NULL
  [20:18:27.249]                   if (!has_future || version < "1.8.0") {
  [20:18:27.249]                     info <- c(r_version = gsub("R version ", 
  [20:18:27.249]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.249]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.249]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.249]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.249]                     info <- sprintf("%s: %s", names(info), info)
  [20:18:27.249]                     info <- paste(info, collapse = "; ")
  [20:18:27.249]                     if (!has_future) {
  [20:18:27.249]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.249]                         info)
  [20:18:27.249]                     }
  [20:18:27.249]                     else {
  [20:18:27.249]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.249]                         info, version)
  [20:18:27.249]                     }
  [20:18:27.249]                     stop(msg)
  [20:18:27.249]                   }
  [20:18:27.249]                 }
  [20:18:27.249]                 local({
  [20:18:27.249]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.249]                     loadNamespace(pkg)
  [20:18:27.249]                     library(pkg, character.only = TRUE)
  [20:18:27.249]                   }
  [20:18:27.249]                 })
  [20:18:27.249]             }
  [20:18:27.249]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.249]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.249]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:27.249]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:27.249]                 ...) 
  [20:18:27.249]             {
  [20:18:27.249]                 if (substitute) 
  [20:18:27.249]                   expr <- substitute(expr)
  [20:18:27.249]                 if (is.function(workers)) 
  [20:18:27.249]                   workers <- workers()
  [20:18:27.249]                 workers <- as.integer(workers)
  [20:18:27.249]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.249]                   workers >= 1)
  [20:18:27.249]                 if (workers == 1L) {
  [20:18:27.249]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.249]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.249]                     local = TRUE, label = label, ...))
  [20:18:27.249]                 }
  [20:18:27.249]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.249]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.249]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.249]                   globals = globals, persistent = persistent, 
  [20:18:27.249]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.249]                   label = label, ...)
  [20:18:27.249]                 if (!future$lazy) 
  [20:18:27.249]                   future <- run(future)
  [20:18:27.249]                 invisible(future)
  [20:18:27.249]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.249]         }
  [20:18:27.249]     }
  [20:18:27.249]     if (is.na(TRUE)) {
  [20:18:27.249]     }
  [20:18:27.249]     else {
  [20:18:27.249]         if (TRUE) {
  [20:18:27.249]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.249]         }
  [20:18:27.249]         else {
  [20:18:27.249]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.249]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.249]         }
  [20:18:27.249]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.249]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.249]             sink(type = "output", split = FALSE)
  [20:18:27.249]             close(...future.stdout)
  [20:18:27.249]         }, add = TRUE)
  [20:18:27.249]     }
  [20:18:27.249]     ...future.frame <- sys.nframe()
  [20:18:27.249]     ...future.conditions <- list()
  [20:18:27.249]     ...future.result <- tryCatch({
  [20:18:27.249]         withCallingHandlers({
  [20:18:27.249]             ...future.value <- withVisible(local({
  [20:18:27.249]                 doFuture::registerDoFuture()
  [20:18:27.249]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.249]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.249]                   {
  [20:18:27.249]                     a <- NULL
  [20:18:27.249]                     b <- NULL
  [20:18:27.249]                   }
  [20:18:27.249]                   ...future.env <- environment()
  [20:18:27.249]                   local({
  [20:18:27.249]                     for (name in names(...future.x_jj)) {
  [20:18:27.249]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.249]                         inherits = FALSE)
  [20:18:27.249]                     }
  [20:18:27.249]                   })
  [20:18:27.249]                   tryCatch({
  [20:18:27.249]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.249]                       plan = future::plan())
  [20:18:27.249]                   }, error = identity)
  [20:18:27.249]                 })
  [20:18:27.249]             }))
  [20:18:27.249]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.249]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.249]                 version = "1.8")
  [20:18:27.249]         }, condition = local({
  [20:18:27.249]             inherits <- base::inherits
  [20:18:27.249]             invokeRestart <- base::invokeRestart
  [20:18:27.249]             length <- base::length
  [20:18:27.249]             seq.int <- base::seq.int
  [20:18:27.249]             sys.calls <- base::sys.calls
  [20:18:27.249]             `[[` <- base::`[[`
  [20:18:27.249]             `+` <- base::`+`
  [20:18:27.249]             `<<-` <- base::`<<-`
  [20:18:27.249]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.249]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.249]                   3L)]
  [20:18:27.249]             }
  [20:18:27.249]             function(cond) {
  [20:18:27.249]                 if (inherits(cond, "error")) {
  [20:18:27.249]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.249]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.249]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.249]                     signaled = 0L)
  [20:18:27.249]                   signalCondition(cond)
  [20:18:27.249]                 }
  [20:18:27.249]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:18:27.249]                 ))) {
  [20:18:27.249]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:18:27.249]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.249]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.249]                   if (!signal) {
  [20:18:27.249]                     muffleCondition <- function (cond) 
  [20:18:27.249]                     {
  [20:18:27.249]                       inherits <- base::inherits
  [20:18:27.249]                       invokeRestart <- base::invokeRestart
  [20:18:27.249]                       muffled <- FALSE
  [20:18:27.249]                       if (inherits(cond, "message")) {
  [20:18:27.249]                         invokeRestart("muffleMessage")
  [20:18:27.249]                         muffled <- TRUE
  [20:18:27.249]                       }
  [20:18:27.249]                       else if (inherits(cond, "warning")) {
  [20:18:27.249]                         invokeRestart("muffleWarning")
  [20:18:27.249]                         muffled <- TRUE
  [20:18:27.249]                       }
  [20:18:27.249]                       else if (inherits(cond, "condition")) {
  [20:18:27.249]                         computeRestarts <- base::computeRestarts
  [20:18:27.249]                         grepl <- base::grepl
  [20:18:27.249]                         is.null <- base::is.null
  [20:18:27.249]                         restarts <- computeRestarts(cond)
  [20:18:27.249]                         for (restart in restarts) {
  [20:18:27.249]                           name <- restart$name
  [20:18:27.249]                           if (is.null(name)) 
  [20:18:27.249]                             next
  [20:18:27.249]                           if (!grepl("^muffle", name)) 
  [20:18:27.249]                             next
  [20:18:27.249]                           invokeRestart(restart)
  [20:18:27.249]                           muffled <- TRUE
  [20:18:27.249]                           break
  [20:18:27.249]                         }
  [20:18:27.249]                       }
  [20:18:27.249]                       invisible(muffled)
  [20:18:27.249]                     }
  [20:18:27.249]                     muffleCondition(cond)
  [20:18:27.249]                   }
  [20:18:27.249]                 }
  [20:18:27.249]             }
  [20:18:27.249]         }))
  [20:18:27.249]     }, error = function(ex) {
  [20:18:27.249]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.249]             version = "1.8"), class = "FutureResult")
  [20:18:27.249]     }, finally = {
  [20:18:27.249]         {
  [20:18:27.249]             NULL
  [20:18:27.249]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.249]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.249]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:27.249]                 label = NULL, ...) 
  [20:18:27.249]             {
  [20:18:27.249]                 if (substitute) 
  [20:18:27.249]                   expr <- substitute(expr)
  [20:18:27.249]                 local <- as.logical(local)
  [20:18:27.249]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.249]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.249]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.249]                   label = label, ...)
  [20:18:27.249]                 if (!future$lazy) 
  [20:18:27.249]                   future <- run(future)
  [20:18:27.249]                 invisible(future)
  [20:18:27.249]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.249]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:27.249]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:18:27.249]                 label = NULL, ...) 
  [20:18:27.249]             {
  [20:18:27.249]                 if (substitute) 
  [20:18:27.249]                   expr <- substitute(expr)
  [20:18:27.249]                 if (is.function(workers)) 
  [20:18:27.249]                   workers <- workers()
  [20:18:27.249]                 workers <- as.integer(workers)
  [20:18:27.249]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.249]                   workers >= 1)
  [20:18:27.249]                 if (workers == 1L) {
  [20:18:27.249]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.249]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.249]                     local = TRUE, label = label, ...))
  [20:18:27.249]                 }
  [20:18:27.249]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.249]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.249]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.249]                   globals = globals, persistent = persistent, 
  [20:18:27.249]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.249]                   label = label, ...)
  [20:18:27.249]                 if (!future$lazy) 
  [20:18:27.249]                   future <- run(future)
  [20:18:27.249]                 invisible(future)
  [20:18:27.249]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.249]         }
  [20:18:27.249]         options(...future.oldOptions)
  [20:18:27.249]     })
  [20:18:27.249]     if (is.na(TRUE)) {
  [20:18:27.249]     }
  [20:18:27.249]     else {
  [20:18:27.249]         sink(type = "output", split = FALSE)
  [20:18:27.249]         if (TRUE) {
  [20:18:27.249]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.249]         }
  [20:18:27.249]         else {
  [20:18:27.249]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.249]         }
  [20:18:27.249]         close(...future.stdout)
  [20:18:27.249]         ...future.stdout <- NULL
  [20:18:27.249]     }
  [20:18:27.249]     ...future.result$conditions <- ...future.conditions
  [20:18:27.249]     ...future.result
  [20:18:27.249] }
  [20:18:27.254] plan(): Setting new future strategy stack:
  [20:18:27.255] List of future strategies:
  [20:18:27.255] 1. multisession:
  [20:18:27.255]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.255]    - tweaked: FALSE
  [20:18:27.255]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.256] plan(): nbrOfWorkers() = 2
  [20:18:27.258] plan(): Setting new future strategy stack:
  [20:18:27.258] List of future strategies:
  [20:18:27.258] 1. sequential:
  [20:18:27.258]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.258]    - tweaked: FALSE
  [20:18:27.258]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.258] 2. multisession:
  [20:18:27.258]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.258]    - tweaked: FALSE
  [20:18:27.258]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.259] plan(): nbrOfWorkers() = 1
  [20:18:27.260] SequentialFuture started (and completed)
  [20:18:27.260] Chunk #1 of 1 ... DONE
  [20:18:27.260] Launching 1 futures (chunks) ... DONE
  [20:18:27.261] - resolving futures
  [20:18:27.261]   - gathering results & relaying conditions (except errors)
  [20:18:27.261] resolve() on list ...
  [20:18:27.261]  recursive: 0
  [20:18:27.261]  length: 1
  [20:18:27.262] 
  [20:18:27.262] Future #1
  [20:18:27.262] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:18:27.263] - nx: 1
  [20:18:27.263] - relay: TRUE
  [20:18:27.263] - stdout: TRUE
  [20:18:27.263] - signal: TRUE
  [20:18:27.264] - resignal: FALSE
  [20:18:27.267] - force: FALSE
  [20:18:27.267] - relayed: [n=1] FALSE
  [20:18:27.268] - queued futures: [n=1] FALSE
  [20:18:27.268]  - until=1
  [20:18:27.268]  - relaying element #1
  [20:18:27.269] - relayed: [n=1] TRUE
  [20:18:27.269] - queued futures: [n=1] TRUE
  [20:18:27.269] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:18:27.270]  length: 0 (resolved future 1)
  [20:18:27.270] Relaying remaining futures
  [20:18:27.270] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.270] - nx: 1
  [20:18:27.273] - relay: TRUE
  [20:18:27.274] - stdout: TRUE
  [20:18:27.274] - signal: TRUE
  [20:18:27.274] - resignal: FALSE
  [20:18:27.274] - force: FALSE
  [20:18:27.275] - relayed: [n=1] TRUE
  [20:18:27.275] - queued futures: [n=1] TRUE
   - flush all
  [20:18:27.275] - relayed: [n=1] TRUE
  [20:18:27.276] - queued futures: [n=1] TRUE
  [20:18:27.276] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.276] resolve() on list ... DONE
  [20:18:27.276] - collecting values of futures
  [20:18:27.277] - accumulating results
  [20:18:27.279] - processing errors (handler = 'stop')
  [20:18:27.279] - extracting results
  [20:18:27.280] doFuture() ... DONE
  - plan(list('sequential', 'multisession')) ... DONE
  - plan(list('sequential', 'cluster')) ...
  [20:18:27.281] plan(): Setting new future strategy stack:
  [20:18:27.281] List of future strategies:
  [20:18:27.281] 1. sequential:
  [20:18:27.281]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.281]    - tweaked: FALSE
  [20:18:27.281]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.281] 2. cluster:
  [20:18:27.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, ...)
  [20:18:27.281]    - tweaked: FALSE
  [20:18:27.281]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.296] plan(): nbrOfWorkers() = 1
  [20:18:27.297] doFuture() ...
  [20:18:27.300] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.301] - R expression:
  [20:18:27.302] {
  [20:18:27.302]     doFuture::registerDoFuture()
  [20:18:27.302]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.302]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.302]         {
  [20:18:27.302]             a <- NULL
  [20:18:27.302]             b <- NULL
  [20:18:27.302]         }
  [20:18:27.302]         ...future.env <- environment()
  [20:18:27.302]         local({
  [20:18:27.302]             for (name in names(...future.x_jj)) {
  [20:18:27.302]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.302]                   inherits = FALSE)
  [20:18:27.302]             }
  [20:18:27.302]         })
  [20:18:27.302]         tryCatch({
  [20:18:27.302]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.302]                 plan = future::plan())
  [20:18:27.302]         }, error = identity)
  [20:18:27.302]     })
  [20:18:27.302] }
  [20:18:27.302] - identifying globals and packages ...
  [20:18:27.303] getGlobalsAndPackages() ...
  [20:18:27.303] Searching for globals...
  [20:18:27.316] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.316] Searching for globals ... DONE
  [20:18:27.316] Resolving globals: FALSE
  [20:18:27.318] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.318] - globals: [1] '...future.x_ii'
  [20:18:27.318] 
  [20:18:27.319] getGlobalsAndPackages() ... DONE
  [20:18:27.319] List of 1
  [20:18:27.319]  $ ...future.x_ii: NULL
  [20:18:27.319]  - attr(*, "where")=List of 1
  [20:18:27.319]   ..$ ...future.x_ii:<environment: 0x55aab093aad0> 
  [20:18:27.319]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.319]  - attr(*, "resolved")= logi FALSE
  [20:18:27.319]  - attr(*, "total_size")= num 0
  [20:18:27.325]   - R expression:
  [20:18:27.325] {
  [20:18:27.325]     doFuture::registerDoFuture()
  [20:18:27.325]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.325]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.325]         {
  [20:18:27.325]             a <- NULL
  [20:18:27.325]             b <- NULL
  [20:18:27.325]         }
  [20:18:27.325]         ...future.env <- environment()
  [20:18:27.325]         local({
  [20:18:27.325]             for (name in names(...future.x_jj)) {
  [20:18:27.325]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.325]                   inherits = FALSE)
  [20:18:27.325]             }
  [20:18:27.325]         })
  [20:18:27.325]         tryCatch({
  [20:18:27.325]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.325]                 plan = future::plan())
  [20:18:27.325]         }, error = identity)
  [20:18:27.325]     })
  [20:18:27.325] }
  [20:18:27.326]   - globals: [1] '...future.x_ii'
  [20:18:27.326] List of 1
  [20:18:27.326]  $ ...future.x_ii: NULL
  [20:18:27.326]  - attr(*, "where")=List of 1
  [20:18:27.326]   ..$ ...future.x_ii:<environment: 0x55aab093aad0> 
  [20:18:27.326]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.326]  - attr(*, "resolved")= logi FALSE
  [20:18:27.326]  - attr(*, "total_size")= num 0
  [20:18:27.332]   - packages: [1] 'doFuture'
  [20:18:27.332] - identifying globals and packages ... DONE
  [20:18:27.333] Number of chunks: 1
  [20:18:27.333] Number of futures (= number of chunks): 1
  [20:18:27.333] Launching 1 futures (chunks) ...
  [20:18:27.333] Chunk #1 of 1 ...
  [20:18:27.334]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.334] getGlobalsAndPackages() ...
  [20:18:27.334] Searching for globals...
  [20:18:27.335] 
  [20:18:27.335] Searching for globals ... DONE
  [20:18:27.336] - globals: [0] <none>
  [20:18:27.336] getGlobalsAndPackages() ... DONE
  [20:18:27.336] 
  [20:18:27.336] 
  [20:18:27.337]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.337] getGlobalsAndPackages() ...
  [20:18:27.337] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.338] Resolving globals: FALSE
  [20:18:27.338] The total size of the 1 globals is 672 bytes (672 bytes)
  [20:18:27.339] - globals: [1] '...future.x_ii'
  [20:18:27.339] 
  [20:18:27.339] getGlobalsAndPackages() ... DONE
  [20:18:27.341] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.341] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.347] {
  [20:18:27.347]     {
  [20:18:27.347]         ...future.startTime <- Sys.time()
  [20:18:27.347]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.347]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.347]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.347]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.347]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.347]         {
  [20:18:27.347]             {
  [20:18:27.347]                 {
  [20:18:27.347]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:18:27.347]                   version <- if (has_future) 
  [20:18:27.347]                     packageVersion("future")
  [20:18:27.347]                   else NULL
  [20:18:27.347]                   if (!has_future || version < "1.8.0") {
  [20:18:27.347]                     info <- c(r_version = gsub("R version ", 
  [20:18:27.347]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.347]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.347]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.347]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.347]                     info <- sprintf("%s: %s", names(info), info)
  [20:18:27.347]                     info <- paste(info, collapse = "; ")
  [20:18:27.347]                     if (!has_future) {
  [20:18:27.347]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.347]                         info)
  [20:18:27.347]                     }
  [20:18:27.347]                     else {
  [20:18:27.347]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.347]                         info, version)
  [20:18:27.347]                     }
  [20:18:27.347]                     stop(msg)
  [20:18:27.347]                   }
  [20:18:27.347]                 }
  [20:18:27.347]                 local({
  [20:18:27.347]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.347]                     loadNamespace(pkg)
  [20:18:27.347]                     library(pkg, character.only = TRUE)
  [20:18:27.347]                   }
  [20:18:27.347]                 })
  [20:18:27.347]             }
  [20:18:27.347]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.347]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.347]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:18:27.347]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:18:27.347]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:27.347]                 ...) 
  [20:18:27.347]             {
  [20:18:27.347]                 if (substitute) 
  [20:18:27.347]                   expr <- substitute(expr)
  [20:18:27.347]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:27.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.347]                   globals = globals, persistent = persistent, 
  [20:18:27.347]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:27.347]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:27.347]                   label = label, ...)
  [20:18:27.347]                 if (!future$lazy) 
  [20:18:27.347]                   future <- run(future)
  [20:18:27.347]                 invisible(future)
  [20:18:27.347]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.347]         }
  [20:18:27.347]     }
  [20:18:27.347]     if (is.na(TRUE)) {
  [20:18:27.347]     }
  [20:18:27.347]     else {
  [20:18:27.347]         if (TRUE) {
  [20:18:27.347]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.347]         }
  [20:18:27.347]         else {
  [20:18:27.347]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.347]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.347]         }
  [20:18:27.347]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.347]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.347]             sink(type = "output", split = FALSE)
  [20:18:27.347]             close(...future.stdout)
  [20:18:27.347]         }, add = TRUE)
  [20:18:27.347]     }
  [20:18:27.347]     ...future.frame <- sys.nframe()
  [20:18:27.347]     ...future.conditions <- list()
  [20:18:27.347]     ...future.result <- tryCatch({
  [20:18:27.347]         withCallingHandlers({
  [20:18:27.347]             ...future.value <- withVisible(local({
  [20:18:27.347]                 doFuture::registerDoFuture()
  [20:18:27.347]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.347]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.347]                   {
  [20:18:27.347]                     a <- NULL
  [20:18:27.347]                     b <- NULL
  [20:18:27.347]                   }
  [20:18:27.347]                   ...future.env <- environment()
  [20:18:27.347]                   local({
  [20:18:27.347]                     for (name in names(...future.x_jj)) {
  [20:18:27.347]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.347]                         inherits = FALSE)
  [20:18:27.347]                     }
  [20:18:27.347]                   })
  [20:18:27.347]                   tryCatch({
  [20:18:27.347]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.347]                       plan = future::plan())
  [20:18:27.347]                   }, error = identity)
  [20:18:27.347]                 })
  [20:18:27.347]             }))
  [20:18:27.347]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.347]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.347]                 version = "1.8")
  [20:18:27.347]         }, condition = local({
  [20:18:27.347]             inherits <- base::inherits
  [20:18:27.347]             invokeRestart <- base::invokeRestart
  [20:18:27.347]             length <- base::length
  [20:18:27.347]             seq.int <- base::seq.int
  [20:18:27.347]             sys.calls <- base::sys.calls
  [20:18:27.347]             `[[` <- base::`[[`
  [20:18:27.347]             `+` <- base::`+`
  [20:18:27.347]             `<<-` <- base::`<<-`
  [20:18:27.347]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.347]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.347]                   3L)]
  [20:18:27.347]             }
  [20:18:27.347]             function(cond) {
  [20:18:27.347]                 if (inherits(cond, "error")) {
  [20:18:27.347]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.347]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.347]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.347]                     signaled = 0L)
  [20:18:27.347]                   signalCondition(cond)
  [20:18:27.347]                 }
  [20:18:27.347]                 else if (inherits(cond, c("condition", "immediateCondition"
  [20:18:27.347]                 ))) {
  [20:18:27.347]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [20:18:27.347]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.347]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.347]                   if (!signal) {
  [20:18:27.347]                     muffleCondition <- function (cond) 
  [20:18:27.347]                     {
  [20:18:27.347]                       inherits <- base::inherits
  [20:18:27.347]                       invokeRestart <- base::invokeRestart
  [20:18:27.347]                       muffled <- FALSE
  [20:18:27.347]                       if (inherits(cond, "message")) {
  [20:18:27.347]                         invokeRestart("muffleMessage")
  [20:18:27.347]                         muffled <- TRUE
  [20:18:27.347]                       }
  [20:18:27.347]                       else if (inherits(cond, "warning")) {
  [20:18:27.347]                         invokeRestart("muffleWarning")
  [20:18:27.347]                         muffled <- TRUE
  [20:18:27.347]                       }
  [20:18:27.347]                       else if (inherits(cond, "condition")) {
  [20:18:27.347]                         computeRestarts <- base::computeRestarts
  [20:18:27.347]                         grepl <- base::grepl
  [20:18:27.347]                         is.null <- base::is.null
  [20:18:27.347]                         restarts <- computeRestarts(cond)
  [20:18:27.347]                         for (restart in restarts) {
  [20:18:27.347]                           name <- restart$name
  [20:18:27.347]                           if (is.null(name)) 
  [20:18:27.347]                             next
  [20:18:27.347]                           if (!grepl("^muffle", name)) 
  [20:18:27.347]                             next
  [20:18:27.347]                           invokeRestart(restart)
  [20:18:27.347]                           muffled <- TRUE
  [20:18:27.347]                           break
  [20:18:27.347]                         }
  [20:18:27.347]                       }
  [20:18:27.347]                       invisible(muffled)
  [20:18:27.347]                     }
  [20:18:27.347]                     muffleCondition(cond)
  [20:18:27.347]                   }
  [20:18:27.347]                 }
  [20:18:27.347]             }
  [20:18:27.347]         }))
  [20:18:27.347]     }, error = function(ex) {
  [20:18:27.347]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.347]             version = "1.8"), class = "FutureResult")
  [20:18:27.347]     }, finally = {
  [20:18:27.347]         {
  [20:18:27.347]             NULL
  [20:18:27.347]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.347]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.347]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:27.347]                 label = NULL, ...) 
  [20:18:27.347]             {
  [20:18:27.347]                 if (substitute) 
  [20:18:27.347]                   expr <- substitute(expr)
  [20:18:27.347]                 local <- as.logical(local)
  [20:18:27.347]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.347]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.347]                   label = label, ...)
  [20:18:27.347]                 if (!future$lazy) 
  [20:18:27.347]                   future <- run(future)
  [20:18:27.347]                 invisible(future)
  [20:18:27.347]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.347]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:27.347]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:18:27.347]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:18:27.347]                 label = NULL, ...) 
  [20:18:27.347]             {
  [20:18:27.347]                 if (substitute) 
  [20:18:27.347]                   expr <- substitute(expr)
  [20:18:27.347]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:27.347]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.347]                   globals = globals, persistent = persistent, 
  [20:18:27.347]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:27.347]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:27.347]                   label = label, ...)
  [20:18:27.347]                 if (!future$lazy) 
  [20:18:27.347]                   future <- run(future)
  [20:18:27.347]                 invisible(future)
  [20:18:27.347]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.347]         }
  [20:18:27.347]         options(...future.oldOptions)
  [20:18:27.347]     })
  [20:18:27.347]     if (is.na(TRUE)) {
  [20:18:27.347]     }
  [20:18:27.347]     else {
  [20:18:27.347]         sink(type = "output", split = FALSE)
  [20:18:27.347]         if (TRUE) {
  [20:18:27.347]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.347]         }
  [20:18:27.347]         else {
  [20:18:27.347]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.347]         }
  [20:18:27.347]         close(...future.stdout)
  [20:18:27.347]         ...future.stdout <- NULL
  [20:18:27.347]     }
  [20:18:27.347]     ...future.result$conditions <- ...future.conditions
  [20:18:27.347]     ...future.result
  [20:18:27.347] }
  [20:18:27.353] plan(): Setting new future strategy stack:
  [20:18:27.353] List of future strategies:
  [20:18:27.353] 1. cluster:
  [20:18:27.353]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.353]    - tweaked: FALSE
  [20:18:27.353]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.358] plan(): nbrOfWorkers() = 2
  [20:18:27.360] plan(): Setting new future strategy stack:
  [20:18:27.360] List of future strategies:
  [20:18:27.360] 1. sequential:
  [20:18:27.360]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.360]    - tweaked: FALSE
  [20:18:27.360]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.360] 2. cluster:
  [20:18:27.360]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.360]    - tweaked: FALSE
  [20:18:27.360]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.362] plan(): nbrOfWorkers() = 1
  [20:18:27.362] SequentialFuture started (and completed)
  [20:18:27.362] Chunk #1 of 1 ... DONE
  [20:18:27.363] Launching 1 futures (chunks) ... DONE
  [20:18:27.363] - resolving futures
  [20:18:27.363]   - gathering results & relaying conditions (except errors)
  [20:18:27.363] resolve() on list ...
  [20:18:27.364]  recursive: 0
  [20:18:27.364]  length: 1
  [20:18:27.364] 
  [20:18:27.364] Future #1
  [20:18:27.365] signalConditionsASAP(SequentialFuture, pos=1) ...
  [20:18:27.365] - nx: 1
  [20:18:27.365] - relay: TRUE
  [20:18:27.365] - stdout: TRUE
  [20:18:27.366] - signal: TRUE
  [20:18:27.366] - resignal: FALSE
  [20:18:27.366] - force: FALSE
  [20:18:27.367] - relayed: [n=1] FALSE
  [20:18:27.367] - queued futures: [n=1] FALSE
  [20:18:27.367]  - until=1
  [20:18:27.367]  - relaying element #1
  [20:18:27.368] - relayed: [n=1] TRUE
  [20:18:27.368] - queued futures: [n=1] TRUE
  [20:18:27.368] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [20:18:27.369]  length: 0 (resolved future 1)
  [20:18:27.369] Relaying remaining futures
  [20:18:27.369] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.369] - nx: 1
  [20:18:27.370] - relay: TRUE
  [20:18:27.370] - stdout: TRUE
  [20:18:27.370] - signal: TRUE
  [20:18:27.370] - resignal: FALSE
  [20:18:27.371] - force: FALSE
  [20:18:27.371] - relayed: [n=1] TRUE
  [20:18:27.371] - queued futures: [n=1] TRUE
   - flush all
  [20:18:27.371] - relayed: [n=1] TRUE
  [20:18:27.372] - queued futures: [n=1] TRUE
  [20:18:27.372] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.372] resolve() on list ... DONE
  [20:18:27.372] - collecting values of futures
  [20:18:27.373] - accumulating results
  [20:18:27.375] - processing errors (handler = 'stop')
  [20:18:27.375] - extracting results
  [20:18:27.375] doFuture() ... DONE
  - plan(list('sequential', 'cluster')) ... DONE
  - plan(list('multicore', 'sequential')) ...
  [20:18:27.377] plan(): Setting new future strategy stack:
  [20:18:27.377] List of future strategies:
  [20:18:27.377] 1. multicore:
  [20:18:27.377]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.377]    - tweaked: FALSE
  [20:18:27.377]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.377] 2. sequential:
  [20:18:27.377]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.377]    - tweaked: FALSE
  [20:18:27.377]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.379] plan(): nbrOfWorkers() = 2
  [20:18:27.379] doFuture() ...
  [20:18:27.383] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.384] - R expression:
  [20:18:27.384] {
  [20:18:27.384]     doFuture::registerDoFuture()
  [20:18:27.384]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.384]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.384]         {
  [20:18:27.384]             a <- NULL
  [20:18:27.384]             b <- NULL
  [20:18:27.384]         }
  [20:18:27.384]         ...future.env <- environment()
  [20:18:27.384]         local({
  [20:18:27.384]             for (name in names(...future.x_jj)) {
  [20:18:27.384]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.384]                   inherits = FALSE)
  [20:18:27.384]             }
  [20:18:27.384]         })
  [20:18:27.384]         tryCatch({
  [20:18:27.384]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.384]                 plan = future::plan())
  [20:18:27.384]         }, error = identity)
  [20:18:27.384]     })
  [20:18:27.384] }
  [20:18:27.385] - identifying globals and packages ...
  [20:18:27.385] getGlobalsAndPackages() ...
  [20:18:27.385] Searching for globals...
  [20:18:27.429] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.430] Searching for globals ... DONE
  [20:18:27.430] Resolving globals: FALSE
  [20:18:27.431] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.432] - globals: [1] '...future.x_ii'
  [20:18:27.432] 
  [20:18:27.432] getGlobalsAndPackages() ... DONE
  [20:18:27.433] List of 1
  [20:18:27.433]  $ ...future.x_ii: NULL
  [20:18:27.433]  - attr(*, "where")=List of 1
  [20:18:27.433]   ..$ ...future.x_ii:<environment: 0x55aab287cbb8> 
  [20:18:27.433]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.433]  - attr(*, "resolved")= logi FALSE
  [20:18:27.433]  - attr(*, "total_size")= num 0
  [20:18:27.445]   - R expression:
  [20:18:27.445] {
  [20:18:27.445]     doFuture::registerDoFuture()
  [20:18:27.445]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.445]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.445]         {
  [20:18:27.445]             a <- NULL
  [20:18:27.445]             b <- NULL
  [20:18:27.445]         }
  [20:18:27.445]         ...future.env <- environment()
  [20:18:27.445]         local({
  [20:18:27.445]             for (name in names(...future.x_jj)) {
  [20:18:27.445]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.445]                   inherits = FALSE)
  [20:18:27.445]             }
  [20:18:27.445]         })
  [20:18:27.445]         tryCatch({
  [20:18:27.445]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.445]                 plan = future::plan())
  [20:18:27.445]         }, error = identity)
  [20:18:27.445]     })
  [20:18:27.445] }
  [20:18:27.446]   - globals: [1] '...future.x_ii'
  [20:18:27.446] List of 1
  [20:18:27.446]  $ ...future.x_ii: NULL
  [20:18:27.446]  - attr(*, "where")=List of 1
  [20:18:27.446]   ..$ ...future.x_ii:<environment: 0x55aab287cbb8> 
  [20:18:27.446]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.446]  - attr(*, "resolved")= logi FALSE
  [20:18:27.446]  - attr(*, "total_size")= num 0
  [20:18:27.468]   - packages: [1] 'doFuture'
  [20:18:27.468] - identifying globals and packages ... DONE
  [20:18:27.471] Number of chunks: 2
  [20:18:27.471] Number of futures (= number of chunks): 2
  [20:18:27.472] Launching 2 futures (chunks) ...
  [20:18:27.472] Chunk #1 of 2 ...
  [20:18:27.472]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.472] getGlobalsAndPackages() ...
  [20:18:27.473] Searching for globals...
  [20:18:27.473] 
  [20:18:27.474] Searching for globals ... DONE
  [20:18:27.474] - globals: [0] <none>
  [20:18:27.474] getGlobalsAndPackages() ... DONE
  [20:18:27.474] 
  [20:18:27.475] 
  [20:18:27.475]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.476] getGlobalsAndPackages() ...
  [20:18:27.476] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.476] Resolving globals: FALSE
  [20:18:27.477] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.477] - globals: [1] '...future.x_ii'
  [20:18:27.478] 
  [20:18:27.478] getGlobalsAndPackages() ... DONE
  [20:18:27.480] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.480] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.500] {
  [20:18:27.500]     {
  [20:18:27.500]         ...future.startTime <- Sys.time()
  [20:18:27.500]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.500]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.500]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.500]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.500]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.500]         {
  [20:18:27.500]             {
  [20:18:27.500]                 {
  [20:18:27.500]                   {
  [20:18:27.500]                     has_future <- requireNamespace("future", 
  [20:18:27.500]                       quietly = TRUE)
  [20:18:27.500]                     version <- if (has_future) 
  [20:18:27.500]                       packageVersion("future")
  [20:18:27.500]                     else NULL
  [20:18:27.500]                     if (!has_future || version < "1.8.0") {
  [20:18:27.500]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.500]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.500]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.500]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.500]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.500]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.500]                         info)
  [20:18:27.500]                       info <- paste(info, collapse = "; ")
  [20:18:27.500]                       if (!has_future) {
  [20:18:27.500]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.500]                           info)
  [20:18:27.500]                       }
  [20:18:27.500]                       else {
  [20:18:27.500]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.500]                           info, version)
  [20:18:27.500]                       }
  [20:18:27.500]                       stop(msg)
  [20:18:27.500]                     }
  [20:18:27.500]                   }
  [20:18:27.500]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.500]                   options(mc.cores = 1L)
  [20:18:27.500]                 }
  [20:18:27.500]                 local({
  [20:18:27.500]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.500]                     loadNamespace(pkg)
  [20:18:27.500]                     library(pkg, character.only = TRUE)
  [20:18:27.500]                   }
  [20:18:27.500]                 })
  [20:18:27.500]             }
  [20:18:27.500]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.500]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.500]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:27.500]                 label = NULL, ...) 
  [20:18:27.500]             {
  [20:18:27.500]                 if (substitute) 
  [20:18:27.500]                   expr <- substitute(expr)
  [20:18:27.500]                 local <- as.logical(local)
  [20:18:27.500]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.500]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.500]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.500]                   label = label, ...)
  [20:18:27.500]                 if (!future$lazy) 
  [20:18:27.500]                   future <- run(future)
  [20:18:27.500]                 invisible(future)
  [20:18:27.500]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.500]         }
  [20:18:27.500]     }
  [20:18:27.500]     if (is.na(TRUE)) {
  [20:18:27.500]     }
  [20:18:27.500]     else {
  [20:18:27.500]         if (TRUE) {
  [20:18:27.500]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.500]         }
  [20:18:27.500]         else {
  [20:18:27.500]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.500]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.500]         }
  [20:18:27.500]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.500]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.500]             sink(type = "output", split = FALSE)
  [20:18:27.500]             close(...future.stdout)
  [20:18:27.500]         }, add = TRUE)
  [20:18:27.500]     }
  [20:18:27.500]     ...future.frame <- sys.nframe()
  [20:18:27.500]     ...future.conditions <- list()
  [20:18:27.500]     ...future.result <- tryCatch({
  [20:18:27.500]         withCallingHandlers({
  [20:18:27.500]             ...future.value <- withVisible(local({
  [20:18:27.500]                 doFuture::registerDoFuture()
  [20:18:27.500]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.500]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.500]                   {
  [20:18:27.500]                     a <- NULL
  [20:18:27.500]                     b <- NULL
  [20:18:27.500]                   }
  [20:18:27.500]                   ...future.env <- environment()
  [20:18:27.500]                   local({
  [20:18:27.500]                     for (name in names(...future.x_jj)) {
  [20:18:27.500]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.500]                         inherits = FALSE)
  [20:18:27.500]                     }
  [20:18:27.500]                   })
  [20:18:27.500]                   tryCatch({
  [20:18:27.500]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.500]                       plan = future::plan())
  [20:18:27.500]                   }, error = identity)
  [20:18:27.500]                 })
  [20:18:27.500]             }))
  [20:18:27.500]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.500]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.500]                 version = "1.8")
  [20:18:27.500]         }, condition = local({
  [20:18:27.500]             inherits <- base::inherits
  [20:18:27.500]             invokeRestart <- base::invokeRestart
  [20:18:27.500]             length <- base::length
  [20:18:27.500]             seq.int <- base::seq.int
  [20:18:27.500]             sys.calls <- base::sys.calls
  [20:18:27.500]             `[[` <- base::`[[`
  [20:18:27.500]             `+` <- base::`+`
  [20:18:27.500]             `<<-` <- base::`<<-`
  [20:18:27.500]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.500]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.500]                   3L)]
  [20:18:27.500]             }
  [20:18:27.500]             function(cond) {
  [20:18:27.500]                 if (inherits(cond, "error")) {
  [20:18:27.500]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.500]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.500]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.500]                     signaled = 0L)
  [20:18:27.500]                   signalCondition(cond)
  [20:18:27.500]                 }
  [20:18:27.500]                 else if (inherits(cond, "condition")) {
  [20:18:27.500]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.500]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.500]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.500]                   if (!signal) {
  [20:18:27.500]                     muffleCondition <- function (cond) 
  [20:18:27.500]                     {
  [20:18:27.500]                       inherits <- base::inherits
  [20:18:27.500]                       invokeRestart <- base::invokeRestart
  [20:18:27.500]                       muffled <- FALSE
  [20:18:27.500]                       if (inherits(cond, "message")) {
  [20:18:27.500]                         invokeRestart("muffleMessage")
  [20:18:27.500]                         muffled <- TRUE
  [20:18:27.500]                       }
  [20:18:27.500]                       else if (inherits(cond, "warning")) {
  [20:18:27.500]                         invokeRestart("muffleWarning")
  [20:18:27.500]                         muffled <- TRUE
  [20:18:27.500]                       }
  [20:18:27.500]                       else if (inherits(cond, "condition")) {
  [20:18:27.500]                         computeRestarts <- base::computeRestarts
  [20:18:27.500]                         grepl <- base::grepl
  [20:18:27.500]                         is.null <- base::is.null
  [20:18:27.500]                         restarts <- computeRestarts(cond)
  [20:18:27.500]                         for (restart in restarts) {
  [20:18:27.500]                           name <- restart$name
  [20:18:27.500]                           if (is.null(name)) 
  [20:18:27.500]                             next
  [20:18:27.500]                           if (!grepl("^muffle", name)) 
  [20:18:27.500]                             next
  [20:18:27.500]                           invokeRestart(restart)
  [20:18:27.500]                           muffled <- TRUE
  [20:18:27.500]                           break
  [20:18:27.500]                         }
  [20:18:27.500]                       }
  [20:18:27.500]                       invisible(muffled)
  [20:18:27.500]                     }
  [20:18:27.500]                     muffleCondition(cond)
  [20:18:27.500]                   }
  [20:18:27.500]                 }
  [20:18:27.500]             }
  [20:18:27.500]         }))
  [20:18:27.500]     }, error = function(ex) {
  [20:18:27.500]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.500]             version = "1.8"), class = "FutureResult")
  [20:18:27.500]     }, finally = {
  [20:18:27.500]         {
  [20:18:27.500]             {
  [20:18:27.500]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.500]             }
  [20:18:27.500]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.500]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.500]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.500]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.500]             {
  [20:18:27.500]                 if (substitute) 
  [20:18:27.500]                   expr <- substitute(expr)
  [20:18:27.500]                 if (is.function(workers)) 
  [20:18:27.500]                   workers <- workers()
  [20:18:27.500]                 workers <- as.integer(workers)
  [20:18:27.500]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.500]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.500]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.500]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.500]                     local = TRUE, label = label, ...))
  [20:18:27.500]                 }
  [20:18:27.500]                 oopts <- options(mc.cores = workers)
  [20:18:27.500]                 on.exit(options(oopts))
  [20:18:27.500]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.500]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.500]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.500]                   label = label, ...)
  [20:18:27.500]                 if (!future$lazy) 
  [20:18:27.500]                   future <- run(future)
  [20:18:27.500]                 invisible(future)
  [20:18:27.500]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.500]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:27.500]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.500]             {
  [20:18:27.500]                 if (substitute) 
  [20:18:27.500]                   expr <- substitute(expr)
  [20:18:27.500]                 local <- as.logical(local)
  [20:18:27.500]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.500]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.500]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.500]                   label = label, ...)
  [20:18:27.500]                 if (!future$lazy) 
  [20:18:27.500]                   future <- run(future)
  [20:18:27.500]                 invisible(future)
  [20:18:27.500]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.500]         }
  [20:18:27.500]         options(...future.oldOptions)
  [20:18:27.500]     })
  [20:18:27.500]     if (is.na(TRUE)) {
  [20:18:27.500]     }
  [20:18:27.500]     else {
  [20:18:27.500]         sink(type = "output", split = FALSE)
  [20:18:27.500]         if (TRUE) {
  [20:18:27.500]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.500]         }
  [20:18:27.500]         else {
  [20:18:27.500]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.500]         }
  [20:18:27.500]         close(...future.stdout)
  [20:18:27.500]         ...future.stdout <- NULL
  [20:18:27.500]     }
  [20:18:27.500]     ...future.result$conditions <- ...future.conditions
  [20:18:27.500]     ...future.result
  [20:18:27.500] }
  [20:18:27.504] requestCore(): workers = 2
  [20:18:27.509] MulticoreFuture started
  [20:18:27.510] Chunk #1 of 2 ... DONE
  [20:18:27.510] Chunk #2 of 2 ...
  [20:18:27.510]  - Finding globals in 'args_list' chunk #2 ...
  [20:18:27.511] getGlobalsAndPackages() ...
  [20:18:27.511] Searching for globals...
  [20:18:27.512] 
  [20:18:27.513] Searching for globals ... DONE
  [20:18:27.513] - globals: [0] <none>
  [20:18:27.513] getGlobalsAndPackages() ... DONE
  [20:18:27.513] 
  [20:18:27.517] 
  [20:18:27.518]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:18:27.519] getGlobalsAndPackages() ...
  [20:18:27.520] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.520] Resolving globals: FALSE
  [20:18:27.521] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.522] - globals: [1] '...future.x_ii'
  [20:18:27.522] 
  [20:18:27.522] getGlobalsAndPackages() ... DONE
  [20:18:27.522] plan(): Setting new future strategy stack:
  [20:18:27.523] List of future strategies:
  [20:18:27.523] 1. sequential:
  [20:18:27.523]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.523]    - tweaked: FALSE
  [20:18:27.523]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.524] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.524] plan(): nbrOfWorkers() = 1
  [20:18:27.525] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.526] plan(): Setting new future strategy stack:
  [20:18:27.526] List of future strategies:
  [20:18:27.526] 1. multicore:
  [20:18:27.526]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.526]    - tweaked: FALSE
  [20:18:27.526]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.526] 2. sequential:
  [20:18:27.526]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.526]    - tweaked: FALSE
  [20:18:27.526]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.528] plan(): nbrOfWorkers() = 2
  [20:18:27.529] {
  [20:18:27.529]     {
  [20:18:27.529]         ...future.startTime <- Sys.time()
  [20:18:27.529]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.529]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.529]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.529]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.529]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.529]         {
  [20:18:27.529]             {
  [20:18:27.529]                 {
  [20:18:27.529]                   {
  [20:18:27.529]                     has_future <- requireNamespace("future", 
  [20:18:27.529]                       quietly = TRUE)
  [20:18:27.529]                     version <- if (has_future) 
  [20:18:27.529]                       packageVersion("future")
  [20:18:27.529]                     else NULL
  [20:18:27.529]                     if (!has_future || version < "1.8.0") {
  [20:18:27.529]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.529]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.529]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.529]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.529]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.529]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.529]                         info)
  [20:18:27.529]                       info <- paste(info, collapse = "; ")
  [20:18:27.529]                       if (!has_future) {
  [20:18:27.529]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.529]                           info)
  [20:18:27.529]                       }
  [20:18:27.529]                       else {
  [20:18:27.529]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.529]                           info, version)
  [20:18:27.529]                       }
  [20:18:27.529]                       stop(msg)
  [20:18:27.529]                     }
  [20:18:27.529]                   }
  [20:18:27.529]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.529]                   options(mc.cores = 1L)
  [20:18:27.529]                 }
  [20:18:27.529]                 local({
  [20:18:27.529]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.529]                     loadNamespace(pkg)
  [20:18:27.529]                     library(pkg, character.only = TRUE)
  [20:18:27.529]                   }
  [20:18:27.529]                 })
  [20:18:27.529]             }
  [20:18:27.529]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.529]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.529]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:27.529]                 label = NULL, ...) 
  [20:18:27.529]             {
  [20:18:27.529]                 if (substitute) 
  [20:18:27.529]                   expr <- substitute(expr)
  [20:18:27.529]                 local <- as.logical(local)
  [20:18:27.529]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.529]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.529]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.529]                   label = label, ...)
  [20:18:27.529]                 if (!future$lazy) 
  [20:18:27.529]                   future <- run(future)
  [20:18:27.529]                 invisible(future)
  [20:18:27.529]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.529]         }
  [20:18:27.529]     }
  [20:18:27.529]     if (is.na(TRUE)) {
  [20:18:27.529]     }
  [20:18:27.529]     else {
  [20:18:27.529]         if (TRUE) {
  [20:18:27.529]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.529]         }
  [20:18:27.529]         else {
  [20:18:27.529]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.529]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.529]         }
  [20:18:27.529]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.529]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.529]             sink(type = "output", split = FALSE)
  [20:18:27.529]             close(...future.stdout)
  [20:18:27.529]         }, add = TRUE)
  [20:18:27.529]     }
  [20:18:27.529]     ...future.frame <- sys.nframe()
  [20:18:27.529]     ...future.conditions <- list()
  [20:18:27.529]     ...future.result <- tryCatch({
  [20:18:27.529]         withCallingHandlers({
  [20:18:27.529]             ...future.value <- withVisible(local({
  [20:18:27.529]                 doFuture::registerDoFuture()
  [20:18:27.529]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.529]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.529]                   {
  [20:18:27.529]                     a <- NULL
  [20:18:27.529]                     b <- NULL
  [20:18:27.529]                   }
  [20:18:27.529]                   ...future.env <- environment()
  [20:18:27.529]                   local({
  [20:18:27.529]                     for (name in names(...future.x_jj)) {
  [20:18:27.529]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.529]                         inherits = FALSE)
  [20:18:27.529]                     }
  [20:18:27.529]                   })
  [20:18:27.529]                   tryCatch({
  [20:18:27.529]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.529]                       plan = future::plan())
  [20:18:27.529]                   }, error = identity)
  [20:18:27.529]                 })
  [20:18:27.529]             }))
  [20:18:27.529]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.529]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.529]                 version = "1.8")
  [20:18:27.529]         }, condition = local({
  [20:18:27.529]             inherits <- base::inherits
  [20:18:27.529]             invokeRestart <- base::invokeRestart
  [20:18:27.529]             length <- base::length
  [20:18:27.529]             seq.int <- base::seq.int
  [20:18:27.529]             sys.calls <- base::sys.calls
  [20:18:27.529]             `[[` <- base::`[[`
  [20:18:27.529]             `+` <- base::`+`
  [20:18:27.529]             `<<-` <- base::`<<-`
  [20:18:27.529]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.529]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.529]                   3L)]
  [20:18:27.529]             }
  [20:18:27.529]             function(cond) {
  [20:18:27.529]                 if (inherits(cond, "error")) {
  [20:18:27.529]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.529]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.529]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.529]                     signaled = 0L)
  [20:18:27.529]                   signalCondition(cond)
  [20:18:27.529]                 }
  [20:18:27.529]                 else if (inherits(cond, "condition")) {
  [20:18:27.529]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.529]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.529]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.529]                   if (!signal) {
  [20:18:27.529]                     muffleCondition <- function (cond) 
  [20:18:27.529]                     {
  [20:18:27.529]                       inherits <- base::inherits
  [20:18:27.529]                       invokeRestart <- base::invokeRestart
  [20:18:27.529]                       muffled <- FALSE
  [20:18:27.529]                       if (inherits(cond, "message")) {
  [20:18:27.529]                         invokeRestart("muffleMessage")
  [20:18:27.529]                         muffled <- TRUE
  [20:18:27.529]                       }
  [20:18:27.529]                       else if (inherits(cond, "warning")) {
  [20:18:27.529]                         invokeRestart("muffleWarning")
  [20:18:27.529]                         muffled <- TRUE
  [20:18:27.529]                       }
  [20:18:27.529]                       else if (inherits(cond, "condition")) {
  [20:18:27.529]                         computeRestarts <- base::computeRestarts
  [20:18:27.529]                         grepl <- base::grepl
  [20:18:27.529]                         is.null <- base::is.null
  [20:18:27.529]                         restarts <- computeRestarts(cond)
  [20:18:27.529]                         for (restart in restarts) {
  [20:18:27.529]                           name <- restart$name
  [20:18:27.529]                           if (is.null(name)) 
  [20:18:27.529]                             next
  [20:18:27.529]                           if (!grepl("^muffle", name)) 
  [20:18:27.529]                             next
  [20:18:27.529]                           invokeRestart(restart)
  [20:18:27.529]                           muffled <- TRUE
  [20:18:27.529]                           break
  [20:18:27.529]                         }
  [20:18:27.529]                       }
  [20:18:27.529]                       invisible(muffled)
  [20:18:27.529]                     }
  [20:18:27.529]                     muffleCondition(cond)
  [20:18:27.529]                   }
  [20:18:27.529]                 }
  [20:18:27.529]             }
  [20:18:27.529]         }))
  [20:18:27.529]     }, error = function(ex) {
  [20:18:27.529]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.529]             version = "1.8"), class = "FutureResult")
  [20:18:27.529]     }, finally = {
  [20:18:27.529]         {
  [20:18:27.529]             {
  [20:18:27.529]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.529]             }
  [20:18:27.529]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.529]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.529]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.529]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.529]             {
  [20:18:27.529]                 if (substitute) 
  [20:18:27.529]                   expr <- substitute(expr)
  [20:18:27.529]                 if (is.function(workers)) 
  [20:18:27.529]                   workers <- workers()
  [20:18:27.529]                 workers <- as.integer(workers)
  [20:18:27.529]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.529]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.529]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.529]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.529]                     local = TRUE, label = label, ...))
  [20:18:27.529]                 }
  [20:18:27.529]                 oopts <- options(mc.cores = workers)
  [20:18:27.529]                 on.exit(options(oopts))
  [20:18:27.529]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.529]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.529]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.529]                   label = label, ...)
  [20:18:27.529]                 if (!future$lazy) 
  [20:18:27.529]                   future <- run(future)
  [20:18:27.529]                 invisible(future)
  [20:18:27.529]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.529]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:27.529]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.529]             {
  [20:18:27.529]                 if (substitute) 
  [20:18:27.529]                   expr <- substitute(expr)
  [20:18:27.529]                 local <- as.logical(local)
  [20:18:27.529]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:27.529]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.529]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:27.529]                   label = label, ...)
  [20:18:27.529]                 if (!future$lazy) 
  [20:18:27.529]                   future <- run(future)
  [20:18:27.529]                 invisible(future)
  [20:18:27.529]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.529]         }
  [20:18:27.529]         options(...future.oldOptions)
  [20:18:27.529]     })
  [20:18:27.529]     if (is.na(TRUE)) {
  [20:18:27.529]     }
  [20:18:27.529]     else {
  [20:18:27.529]         sink(type = "output", split = FALSE)
  [20:18:27.529]         if (TRUE) {
  [20:18:27.529]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.529]         }
  [20:18:27.529]         else {
  [20:18:27.529]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.529]         }
  [20:18:27.529]         close(...future.stdout)
  [20:18:27.529]         ...future.stdout <- NULL
  [20:18:27.529]     }
  [20:18:27.529]     ...future.result$conditions <- ...future.conditions
  [20:18:27.529]     ...future.result
  [20:18:27.529] }
  [20:18:27.533] requestCore(): workers = 2
  [20:18:27.544] MulticoreFuture started
  [20:18:27.545] Chunk #2 of 2 ... DONE
  [20:18:27.547] Launching 2 futures (chunks) ... DONE
  [20:18:27.547] - resolving futures
  [20:18:27.547]   - gathering results & relaying conditions (except errors)
  [20:18:27.548] resolve() on list ...
  [20:18:27.548]  recursive: 0
  [20:18:27.548]  length: 2
  [20:18:27.548] 
  [20:18:27.552] Future #1
  [20:18:27.557] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:18:27.557] - nx: 2
  [20:18:27.558] plan(): Setting new future strategy stack:
  [20:18:27.558] List of future strategies:
  [20:18:27.558] 1. sequential:
  [20:18:27.558]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.558]    - tweaked: FALSE
  [20:18:27.558]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.560] plan(): nbrOfWorkers() = 1
  [20:18:27.562] plan(): Setting new future strategy stack:
  [20:18:27.562] List of future strategies:
  [20:18:27.562] 1. multicore:
  [20:18:27.562]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.562]    - tweaked: FALSE
  [20:18:27.562]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.562] 2. sequential:
  [20:18:27.562]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.562]    - tweaked: FALSE
  [20:18:27.562]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.564] plan(): nbrOfWorkers() = 2
  [20:18:27.557] - relay: TRUE
  [20:18:27.565] - stdout: TRUE
  [20:18:27.566] - signal: TRUE
  [20:18:27.566] - resignal: FALSE
  [20:18:27.566] - force: FALSE
  [20:18:27.567] - relayed: [n=2] FALSE, FALSE
  [20:18:27.567] - queued futures: [n=2] FALSE, FALSE
  [20:18:27.567]  - until=1
  [20:18:27.568]  - relaying element #1
  [20:18:27.568] - relayed: [n=2] TRUE, FALSE
  [20:18:27.569] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.569] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:18:27.569]  length: 1 (resolved future 1)
  [20:18:27.570] Future #2
  [20:18:27.576] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:18:27.577] - nx: 2
  [20:18:27.577] - relay: TRUE
  [20:18:27.577] - stdout: TRUE
  [20:18:27.577] - signal: TRUE
  [20:18:27.578] - resignal: FALSE
  [20:18:27.578] - force: FALSE
  [20:18:27.578] - relayed: [n=2] TRUE, FALSE
  [20:18:27.579] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.579]  - until=2
  [20:18:27.579]  - relaying element #2
  [20:18:27.580] - relayed: [n=2] TRUE, TRUE
  [20:18:27.580] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.581] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:18:27.581]  length: 0 (resolved future 2)
  [20:18:27.581] Relaying remaining futures
  [20:18:27.581] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.582] - nx: 2
  [20:18:27.582] - relay: TRUE
  [20:18:27.582] - stdout: TRUE
  [20:18:27.583] - signal: TRUE
  [20:18:27.583] - resignal: FALSE
  [20:18:27.583] - force: FALSE
  [20:18:27.583] - relayed: [n=2] TRUE, TRUE
  [20:18:27.584] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:18:27.584] - relayed: [n=2] TRUE, TRUE
  [20:18:27.584] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.585] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.585] resolve() on list ... DONE
  [20:18:27.585] - collecting values of futures
  [20:18:27.586] - accumulating results
  [20:18:27.588] - processing errors (handler = 'stop')
  [20:18:27.589] - extracting results
  [20:18:27.589] doFuture() ... DONE
  - plan(list('multicore', 'sequential')) ... DONE
  - plan(list('multicore', 'multicore')) ...
  [20:18:27.590] plan(): Setting new future strategy stack:
  [20:18:27.590] List of future strategies:
  [20:18:27.590] 1. multicore:
  [20:18:27.590]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.590]    - tweaked: FALSE
  [20:18:27.590]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.590] 2. multicore:
  [20:18:27.590]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.590]    - tweaked: FALSE
  [20:18:27.590]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.592] plan(): nbrOfWorkers() = 2
  [20:18:27.593] doFuture() ...
  [20:18:27.597] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.598] - R expression:
  [20:18:27.598] {
  [20:18:27.598]     doFuture::registerDoFuture()
  [20:18:27.598]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.598]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.598]         {
  [20:18:27.598]             a <- NULL
  [20:18:27.598]             b <- NULL
  [20:18:27.598]         }
  [20:18:27.598]         ...future.env <- environment()
  [20:18:27.598]         local({
  [20:18:27.598]             for (name in names(...future.x_jj)) {
  [20:18:27.598]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.598]                   inherits = FALSE)
  [20:18:27.598]             }
  [20:18:27.598]         })
  [20:18:27.598]         tryCatch({
  [20:18:27.598]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.598]                 plan = future::plan())
  [20:18:27.598]         }, error = identity)
  [20:18:27.598]     })
  [20:18:27.598] }
  [20:18:27.599] - identifying globals and packages ...
  [20:18:27.599] getGlobalsAndPackages() ...
  [20:18:27.600] Searching for globals...
  [20:18:27.614] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.615] Searching for globals ... DONE
  [20:18:27.615] Resolving globals: FALSE
  [20:18:27.617] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.617] - globals: [1] '...future.x_ii'
  [20:18:27.617] 
  [20:18:27.618] getGlobalsAndPackages() ... DONE
  [20:18:27.618] List of 1
  [20:18:27.618]  $ ...future.x_ii: NULL
  [20:18:27.618]  - attr(*, "where")=List of 1
  [20:18:27.618]   ..$ ...future.x_ii:<environment: 0x55aab1beddf0> 
  [20:18:27.618]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.618]  - attr(*, "resolved")= logi FALSE
  [20:18:27.618]  - attr(*, "total_size")= num 0
  [20:18:27.625]   - R expression:
  [20:18:27.625] {
  [20:18:27.625]     doFuture::registerDoFuture()
  [20:18:27.625]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.625]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.625]         {
  [20:18:27.625]             a <- NULL
  [20:18:27.625]             b <- NULL
  [20:18:27.625]         }
  [20:18:27.625]         ...future.env <- environment()
  [20:18:27.625]         local({
  [20:18:27.625]             for (name in names(...future.x_jj)) {
  [20:18:27.625]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.625]                   inherits = FALSE)
  [20:18:27.625]             }
  [20:18:27.625]         })
  [20:18:27.625]         tryCatch({
  [20:18:27.625]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.625]                 plan = future::plan())
  [20:18:27.625]         }, error = identity)
  [20:18:27.625]     })
  [20:18:27.625] }
  [20:18:27.626]   - globals: [1] '...future.x_ii'
  [20:18:27.626] List of 1
  [20:18:27.626]  $ ...future.x_ii: NULL
  [20:18:27.626]  - attr(*, "where")=List of 1
  [20:18:27.626]   ..$ ...future.x_ii:<environment: 0x55aab1beddf0> 
  [20:18:27.626]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.626]  - attr(*, "resolved")= logi FALSE
  [20:18:27.626]  - attr(*, "total_size")= num 0
  [20:18:27.636]   - packages: [1] 'doFuture'
  [20:18:27.636] - identifying globals and packages ... DONE
  [20:18:27.637] Number of chunks: 2
  [20:18:27.638] Number of futures (= number of chunks): 2
  [20:18:27.638] Launching 2 futures (chunks) ...
  [20:18:27.638] Chunk #1 of 2 ...
  [20:18:27.638]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.639] getGlobalsAndPackages() ...
  [20:18:27.639] Searching for globals...
  [20:18:27.640] 
  [20:18:27.640] Searching for globals ... DONE
  [20:18:27.640] - globals: [0] <none>
  [20:18:27.640] getGlobalsAndPackages() ... DONE
  [20:18:27.641] 
  [20:18:27.641] 
  [20:18:27.641]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.642] getGlobalsAndPackages() ...
  [20:18:27.642] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.643] Resolving globals: FALSE
  [20:18:27.643] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.644] - globals: [1] '...future.x_ii'
  [20:18:27.644] 
  [20:18:27.644] getGlobalsAndPackages() ... DONE
  [20:18:27.646] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.646] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.650] {
  [20:18:27.650]     {
  [20:18:27.650]         ...future.startTime <- Sys.time()
  [20:18:27.650]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.650]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.650]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.650]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.650]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.650]         {
  [20:18:27.650]             {
  [20:18:27.650]                 {
  [20:18:27.650]                   {
  [20:18:27.650]                     has_future <- requireNamespace("future", 
  [20:18:27.650]                       quietly = TRUE)
  [20:18:27.650]                     version <- if (has_future) 
  [20:18:27.650]                       packageVersion("future")
  [20:18:27.650]                     else NULL
  [20:18:27.650]                     if (!has_future || version < "1.8.0") {
  [20:18:27.650]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.650]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.650]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.650]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.650]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.650]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.650]                         info)
  [20:18:27.650]                       info <- paste(info, collapse = "; ")
  [20:18:27.650]                       if (!has_future) {
  [20:18:27.650]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.650]                           info)
  [20:18:27.650]                       }
  [20:18:27.650]                       else {
  [20:18:27.650]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.650]                           info, version)
  [20:18:27.650]                       }
  [20:18:27.650]                       stop(msg)
  [20:18:27.650]                     }
  [20:18:27.650]                   }
  [20:18:27.650]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.650]                   options(mc.cores = 1L)
  [20:18:27.650]                 }
  [20:18:27.650]                 local({
  [20:18:27.650]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.650]                     loadNamespace(pkg)
  [20:18:27.650]                     library(pkg, character.only = TRUE)
  [20:18:27.650]                   }
  [20:18:27.650]                 })
  [20:18:27.650]             }
  [20:18:27.650]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.650]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.650]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.650]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.650]             {
  [20:18:27.650]                 if (substitute) 
  [20:18:27.650]                   expr <- substitute(expr)
  [20:18:27.650]                 if (is.function(workers)) 
  [20:18:27.650]                   workers <- workers()
  [20:18:27.650]                 workers <- as.integer(workers)
  [20:18:27.650]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.650]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.650]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.650]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.650]                     local = TRUE, label = label, ...))
  [20:18:27.650]                 }
  [20:18:27.650]                 oopts <- options(mc.cores = workers)
  [20:18:27.650]                 on.exit(options(oopts))
  [20:18:27.650]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.650]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.650]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.650]                   label = label, ...)
  [20:18:27.650]                 if (!future$lazy) 
  [20:18:27.650]                   future <- run(future)
  [20:18:27.650]                 invisible(future)
  [20:18:27.650]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.650]         }
  [20:18:27.650]     }
  [20:18:27.650]     if (is.na(TRUE)) {
  [20:18:27.650]     }
  [20:18:27.650]     else {
  [20:18:27.650]         if (TRUE) {
  [20:18:27.650]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.650]         }
  [20:18:27.650]         else {
  [20:18:27.650]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.650]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.650]         }
  [20:18:27.650]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.650]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.650]             sink(type = "output", split = FALSE)
  [20:18:27.650]             close(...future.stdout)
  [20:18:27.650]         }, add = TRUE)
  [20:18:27.650]     }
  [20:18:27.650]     ...future.frame <- sys.nframe()
  [20:18:27.650]     ...future.conditions <- list()
  [20:18:27.650]     ...future.result <- tryCatch({
  [20:18:27.650]         withCallingHandlers({
  [20:18:27.650]             ...future.value <- withVisible(local({
  [20:18:27.650]                 doFuture::registerDoFuture()
  [20:18:27.650]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.650]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.650]                   {
  [20:18:27.650]                     a <- NULL
  [20:18:27.650]                     b <- NULL
  [20:18:27.650]                   }
  [20:18:27.650]                   ...future.env <- environment()
  [20:18:27.650]                   local({
  [20:18:27.650]                     for (name in names(...future.x_jj)) {
  [20:18:27.650]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.650]                         inherits = FALSE)
  [20:18:27.650]                     }
  [20:18:27.650]                   })
  [20:18:27.650]                   tryCatch({
  [20:18:27.650]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.650]                       plan = future::plan())
  [20:18:27.650]                   }, error = identity)
  [20:18:27.650]                 })
  [20:18:27.650]             }))
  [20:18:27.650]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.650]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.650]                 version = "1.8")
  [20:18:27.650]         }, condition = local({
  [20:18:27.650]             inherits <- base::inherits
  [20:18:27.650]             invokeRestart <- base::invokeRestart
  [20:18:27.650]             length <- base::length
  [20:18:27.650]             seq.int <- base::seq.int
  [20:18:27.650]             sys.calls <- base::sys.calls
  [20:18:27.650]             `[[` <- base::`[[`
  [20:18:27.650]             `+` <- base::`+`
  [20:18:27.650]             `<<-` <- base::`<<-`
  [20:18:27.650]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.650]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.650]                   3L)]
  [20:18:27.650]             }
  [20:18:27.650]             function(cond) {
  [20:18:27.650]                 if (inherits(cond, "error")) {
  [20:18:27.650]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.650]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.650]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.650]                     signaled = 0L)
  [20:18:27.650]                   signalCondition(cond)
  [20:18:27.650]                 }
  [20:18:27.650]                 else if (inherits(cond, "condition")) {
  [20:18:27.650]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.650]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.650]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.650]                   if (!signal) {
  [20:18:27.650]                     muffleCondition <- function (cond) 
  [20:18:27.650]                     {
  [20:18:27.650]                       inherits <- base::inherits
  [20:18:27.650]                       invokeRestart <- base::invokeRestart
  [20:18:27.650]                       muffled <- FALSE
  [20:18:27.650]                       if (inherits(cond, "message")) {
  [20:18:27.650]                         invokeRestart("muffleMessage")
  [20:18:27.650]                         muffled <- TRUE
  [20:18:27.650]                       }
  [20:18:27.650]                       else if (inherits(cond, "warning")) {
  [20:18:27.650]                         invokeRestart("muffleWarning")
  [20:18:27.650]                         muffled <- TRUE
  [20:18:27.650]                       }
  [20:18:27.650]                       else if (inherits(cond, "condition")) {
  [20:18:27.650]                         computeRestarts <- base::computeRestarts
  [20:18:27.650]                         grepl <- base::grepl
  [20:18:27.650]                         is.null <- base::is.null
  [20:18:27.650]                         restarts <- computeRestarts(cond)
  [20:18:27.650]                         for (restart in restarts) {
  [20:18:27.650]                           name <- restart$name
  [20:18:27.650]                           if (is.null(name)) 
  [20:18:27.650]                             next
  [20:18:27.650]                           if (!grepl("^muffle", name)) 
  [20:18:27.650]                             next
  [20:18:27.650]                           invokeRestart(restart)
  [20:18:27.650]                           muffled <- TRUE
  [20:18:27.650]                           break
  [20:18:27.650]                         }
  [20:18:27.650]                       }
  [20:18:27.650]                       invisible(muffled)
  [20:18:27.650]                     }
  [20:18:27.650]                     muffleCondition(cond)
  [20:18:27.650]                   }
  [20:18:27.650]                 }
  [20:18:27.650]             }
  [20:18:27.650]         }))
  [20:18:27.650]     }, error = function(ex) {
  [20:18:27.650]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.650]             version = "1.8"), class = "FutureResult")
  [20:18:27.650]     }, finally = {
  [20:18:27.650]         {
  [20:18:27.650]             {
  [20:18:27.650]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.650]             }
  [20:18:27.650]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.650]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.650]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.650]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.650]             {
  [20:18:27.650]                 if (substitute) 
  [20:18:27.650]                   expr <- substitute(expr)
  [20:18:27.650]                 if (is.function(workers)) 
  [20:18:27.650]                   workers <- workers()
  [20:18:27.650]                 workers <- as.integer(workers)
  [20:18:27.650]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.650]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.650]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.650]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.650]                     local = TRUE, label = label, ...))
  [20:18:27.650]                 }
  [20:18:27.650]                 oopts <- options(mc.cores = workers)
  [20:18:27.650]                 on.exit(options(oopts))
  [20:18:27.650]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.650]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.650]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.650]                   label = label, ...)
  [20:18:27.650]                 if (!future$lazy) 
  [20:18:27.650]                   future <- run(future)
  [20:18:27.650]                 invisible(future)
  [20:18:27.650]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.650]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.650]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.650]             {
  [20:18:27.650]                 if (substitute) 
  [20:18:27.650]                   expr <- substitute(expr)
  [20:18:27.650]                 if (is.function(workers)) 
  [20:18:27.650]                   workers <- workers()
  [20:18:27.650]                 workers <- as.integer(workers)
  [20:18:27.650]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.650]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.650]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.650]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.650]                     local = TRUE, label = label, ...))
  [20:18:27.650]                 }
  [20:18:27.650]                 oopts <- options(mc.cores = workers)
  [20:18:27.650]                 on.exit(options(oopts))
  [20:18:27.650]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.650]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.650]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.650]                   label = label, ...)
  [20:18:27.650]                 if (!future$lazy) 
  [20:18:27.650]                   future <- run(future)
  [20:18:27.650]                 invisible(future)
  [20:18:27.650]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.650]         }
  [20:18:27.650]         options(...future.oldOptions)
  [20:18:27.650]     })
  [20:18:27.650]     if (is.na(TRUE)) {
  [20:18:27.650]     }
  [20:18:27.650]     else {
  [20:18:27.650]         sink(type = "output", split = FALSE)
  [20:18:27.650]         if (TRUE) {
  [20:18:27.650]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.650]         }
  [20:18:27.650]         else {
  [20:18:27.650]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.650]         }
  [20:18:27.650]         close(...future.stdout)
  [20:18:27.650]         ...future.stdout <- NULL
  [20:18:27.650]     }
  [20:18:27.650]     ...future.result$conditions <- ...future.conditions
  [20:18:27.650]     ...future.result
  [20:18:27.650] }
  [20:18:27.655] requestCore(): workers = 2
  [20:18:27.658] MulticoreFuture started
  [20:18:27.660] Chunk #1 of 2 ... DONE
  [20:18:27.660] Chunk #2 of 2 ...
  [20:18:27.660]  - Finding globals in 'args_list' chunk #2 ...
  [20:18:27.661] getGlobalsAndPackages() ...
  [20:18:27.661] Searching for globals...
  [20:18:27.663] 
  [20:18:27.663] Searching for globals ... DONE
  [20:18:27.663] - globals: [0] <none>
  [20:18:27.664] getGlobalsAndPackages() ... DONE
  [20:18:27.664] 
  [20:18:27.664] 
  [20:18:27.665]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:18:27.666] getGlobalsAndPackages() ...
  [20:18:27.667] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.667] Resolving globals: FALSE
  [20:18:27.668] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.669] - globals: [1] '...future.x_ii'
  [20:18:27.669] 
  [20:18:27.669] getGlobalsAndPackages() ... DONE
  [20:18:27.670] plan(): Setting new future strategy stack:
  [20:18:27.672] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.671] List of future strategies:
  [20:18:27.671] 1. multicore:
  [20:18:27.671]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.671]    - tweaked: FALSE
  [20:18:27.671]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.672] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.673] plan(): nbrOfWorkers() = 1
  [20:18:27.676] plan(): Setting new future strategy stack:
  [20:18:27.676] List of future strategies:
  [20:18:27.676] 1. multicore:
  [20:18:27.676]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.676]    - tweaked: FALSE
  [20:18:27.676]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.676] 2. multicore:
  [20:18:27.676]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.676]    - tweaked: FALSE
  [20:18:27.676]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.678] plan(): nbrOfWorkers() = 2
  [20:18:27.677] {
  [20:18:27.677]     {
  [20:18:27.677]         ...future.startTime <- Sys.time()
  [20:18:27.677]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.677]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.677]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.677]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.677]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.677]         {
  [20:18:27.677]             {
  [20:18:27.677]                 {
  [20:18:27.677]                   {
  [20:18:27.677]                     has_future <- requireNamespace("future", 
  [20:18:27.677]                       quietly = TRUE)
  [20:18:27.677]                     version <- if (has_future) 
  [20:18:27.677]                       packageVersion("future")
  [20:18:27.677]                     else NULL
  [20:18:27.677]                     if (!has_future || version < "1.8.0") {
  [20:18:27.677]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.677]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.677]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.677]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.677]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.677]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.677]                         info)
  [20:18:27.677]                       info <- paste(info, collapse = "; ")
  [20:18:27.677]                       if (!has_future) {
  [20:18:27.677]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.677]                           info)
  [20:18:27.677]                       }
  [20:18:27.677]                       else {
  [20:18:27.677]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.677]                           info, version)
  [20:18:27.677]                       }
  [20:18:27.677]                       stop(msg)
  [20:18:27.677]                     }
  [20:18:27.677]                   }
  [20:18:27.677]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.677]                   options(mc.cores = 1L)
  [20:18:27.677]                 }
  [20:18:27.677]                 local({
  [20:18:27.677]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.677]                     loadNamespace(pkg)
  [20:18:27.677]                     library(pkg, character.only = TRUE)
  [20:18:27.677]                   }
  [20:18:27.677]                 })
  [20:18:27.677]             }
  [20:18:27.677]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.677]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.677]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.677]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.677]             {
  [20:18:27.677]                 if (substitute) 
  [20:18:27.677]                   expr <- substitute(expr)
  [20:18:27.677]                 if (is.function(workers)) 
  [20:18:27.677]                   workers <- workers()
  [20:18:27.677]                 workers <- as.integer(workers)
  [20:18:27.677]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.677]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.677]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.677]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.677]                     local = TRUE, label = label, ...))
  [20:18:27.677]                 }
  [20:18:27.677]                 oopts <- options(mc.cores = workers)
  [20:18:27.677]                 on.exit(options(oopts))
  [20:18:27.677]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.677]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.677]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.677]                   label = label, ...)
  [20:18:27.677]                 if (!future$lazy) 
  [20:18:27.677]                   future <- run(future)
  [20:18:27.677]                 invisible(future)
  [20:18:27.677]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.677]         }
  [20:18:27.677]     }
  [20:18:27.677]     if (is.na(TRUE)) {
  [20:18:27.677]     }
  [20:18:27.677]     else {
  [20:18:27.677]         if (TRUE) {
  [20:18:27.677]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.677]         }
  [20:18:27.677]         else {
  [20:18:27.677]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.677]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.677]         }
  [20:18:27.677]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.677]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.677]             sink(type = "output", split = FALSE)
  [20:18:27.677]             close(...future.stdout)
  [20:18:27.677]         }, add = TRUE)
  [20:18:27.677]     }
  [20:18:27.677]     ...future.frame <- sys.nframe()
  [20:18:27.677]     ...future.conditions <- list()
  [20:18:27.677]     ...future.result <- tryCatch({
  [20:18:27.677]         withCallingHandlers({
  [20:18:27.677]             ...future.value <- withVisible(local({
  [20:18:27.677]                 doFuture::registerDoFuture()
  [20:18:27.677]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.677]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.677]                   {
  [20:18:27.677]                     a <- NULL
  [20:18:27.677]                     b <- NULL
  [20:18:27.677]                   }
  [20:18:27.677]                   ...future.env <- environment()
  [20:18:27.677]                   local({
  [20:18:27.677]                     for (name in names(...future.x_jj)) {
  [20:18:27.677]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.677]                         inherits = FALSE)
  [20:18:27.677]                     }
  [20:18:27.677]                   })
  [20:18:27.677]                   tryCatch({
  [20:18:27.677]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.677]                       plan = future::plan())
  [20:18:27.677]                   }, error = identity)
  [20:18:27.677]                 })
  [20:18:27.677]             }))
  [20:18:27.677]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.677]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.677]                 version = "1.8")
  [20:18:27.677]         }, condition = local({
  [20:18:27.677]             inherits <- base::inherits
  [20:18:27.677]             invokeRestart <- base::invokeRestart
  [20:18:27.677]             length <- base::length
  [20:18:27.677]             seq.int <- base::seq.int
  [20:18:27.677]             sys.calls <- base::sys.calls
  [20:18:27.677]             `[[` <- base::`[[`
  [20:18:27.677]             `+` <- base::`+`
  [20:18:27.677]             `<<-` <- base::`<<-`
  [20:18:27.677]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.677]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.677]                   3L)]
  [20:18:27.677]             }
  [20:18:27.677]             function(cond) {
  [20:18:27.677]                 if (inherits(cond, "error")) {
  [20:18:27.677]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.677]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.677]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.677]                     signaled = 0L)
  [20:18:27.677]                   signalCondition(cond)
  [20:18:27.677]                 }
  [20:18:27.677]                 else if (inherits(cond, "condition")) {
  [20:18:27.677]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.677]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.677]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.677]                   if (!signal) {
  [20:18:27.677]                     muffleCondition <- function (cond) 
  [20:18:27.677]                     {
  [20:18:27.677]                       inherits <- base::inherits
  [20:18:27.677]                       invokeRestart <- base::invokeRestart
  [20:18:27.677]                       muffled <- FALSE
  [20:18:27.677]                       if (inherits(cond, "message")) {
  [20:18:27.677]                         invokeRestart("muffleMessage")
  [20:18:27.677]                         muffled <- TRUE
  [20:18:27.677]                       }
  [20:18:27.677]                       else if (inherits(cond, "warning")) {
  [20:18:27.677]                         invokeRestart("muffleWarning")
  [20:18:27.677]                         muffled <- TRUE
  [20:18:27.677]                       }
  [20:18:27.677]                       else if (inherits(cond, "condition")) {
  [20:18:27.677]                         computeRestarts <- base::computeRestarts
  [20:18:27.677]                         grepl <- base::grepl
  [20:18:27.677]                         is.null <- base::is.null
  [20:18:27.677]                         restarts <- computeRestarts(cond)
  [20:18:27.677]                         for (restart in restarts) {
  [20:18:27.677]                           name <- restart$name
  [20:18:27.677]                           if (is.null(name)) 
  [20:18:27.677]                             next
  [20:18:27.677]                           if (!grepl("^muffle", name)) 
  [20:18:27.677]                             next
  [20:18:27.677]                           invokeRestart(restart)
  [20:18:27.677]                           muffled <- TRUE
  [20:18:27.677]                           break
  [20:18:27.677]                         }
  [20:18:27.677]                       }
  [20:18:27.677]                       invisible(muffled)
  [20:18:27.677]                     }
  [20:18:27.677]                     muffleCondition(cond)
  [20:18:27.677]                   }
  [20:18:27.677]                 }
  [20:18:27.677]             }
  [20:18:27.677]         }))
  [20:18:27.677]     }, error = function(ex) {
  [20:18:27.677]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.677]             version = "1.8"), class = "FutureResult")
  [20:18:27.677]     }, finally = {
  [20:18:27.677]         {
  [20:18:27.677]             {
  [20:18:27.677]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.677]             }
  [20:18:27.677]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.677]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.677]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.677]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.677]             {
  [20:18:27.677]                 if (substitute) 
  [20:18:27.677]                   expr <- substitute(expr)
  [20:18:27.677]                 if (is.function(workers)) 
  [20:18:27.677]                   workers <- workers()
  [20:18:27.677]                 workers <- as.integer(workers)
  [20:18:27.677]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.677]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.677]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.677]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.677]                     local = TRUE, label = label, ...))
  [20:18:27.677]                 }
  [20:18:27.677]                 oopts <- options(mc.cores = workers)
  [20:18:27.677]                 on.exit(options(oopts))
  [20:18:27.677]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.677]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.677]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.677]                   label = label, ...)
  [20:18:27.677]                 if (!future$lazy) 
  [20:18:27.677]                   future <- run(future)
  [20:18:27.677]                 invisible(future)
  [20:18:27.677]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.677]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.677]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.677]             {
  [20:18:27.677]                 if (substitute) 
  [20:18:27.677]                   expr <- substitute(expr)
  [20:18:27.677]                 if (is.function(workers)) 
  [20:18:27.677]                   workers <- workers()
  [20:18:27.677]                 workers <- as.integer(workers)
  [20:18:27.677]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.677]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.677]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.677]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.677]                     local = TRUE, label = label, ...))
  [20:18:27.677]                 }
  [20:18:27.677]                 oopts <- options(mc.cores = workers)
  [20:18:27.677]                 on.exit(options(oopts))
  [20:18:27.677]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.677]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.677]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.677]                   label = label, ...)
  [20:18:27.677]                 if (!future$lazy) 
  [20:18:27.677]                   future <- run(future)
  [20:18:27.677]                 invisible(future)
  [20:18:27.677]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.677]         }
  [20:18:27.677]         options(...future.oldOptions)
  [20:18:27.677]     })
  [20:18:27.677]     if (is.na(TRUE)) {
  [20:18:27.677]     }
  [20:18:27.677]     else {
  [20:18:27.677]         sink(type = "output", split = FALSE)
  [20:18:27.677]         if (TRUE) {
  [20:18:27.677]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.677]         }
  [20:18:27.677]         else {
  [20:18:27.677]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.677]         }
  [20:18:27.677]         close(...future.stdout)
  [20:18:27.677]         ...future.stdout <- NULL
  [20:18:27.677]     }
  [20:18:27.677]     ...future.result$conditions <- ...future.conditions
  [20:18:27.677]     ...future.result
  [20:18:27.677] }
  [20:18:27.682] requestCore(): workers = 2
  [20:18:27.686] MulticoreFuture started
  [20:18:27.688] Chunk #2 of 2 ... DONE
  [20:18:27.688] Launching 2 futures (chunks) ... DONE
  [20:18:27.688] - resolving futures
  [20:18:27.689]   - gathering results & relaying conditions (except errors)
  [20:18:27.689] resolve() on list ...
  [20:18:27.690]  recursive: 0
  [20:18:27.690]  length: 2
  [20:18:27.690] 
  [20:18:27.691] Future #1
  [20:18:27.695] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:18:27.696] - nx: 2
  [20:18:27.696] - relay: TRUE
  [20:18:27.696] - stdout: TRUE
  [20:18:27.696] - signal: TRUE
  [20:18:27.697] - resignal: FALSE
  [20:18:27.697] - force: FALSE
  [20:18:27.697] - relayed: [n=2] FALSE, FALSE
  [20:18:27.698] - queued futures: [n=2] FALSE, FALSE
  [20:18:27.698]  - until=1
  [20:18:27.698]  - relaying element #1
  [20:18:27.700] - relayed: [n=2] TRUE, FALSE
  [20:18:27.700] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.700] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:18:27.701]  length: 1 (resolved future 1)
  [20:18:27.710] plan(): Setting new future strategy stack:
  [20:18:27.710] List of future strategies:
  [20:18:27.710] 1. multicore:
  [20:18:27.710]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.710]    - tweaked: FALSE
  [20:18:27.710]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.713] plan(): nbrOfWorkers() = 1
  [20:18:27.715] plan(): Setting new future strategy stack:
  [20:18:27.715] List of future strategies:
  [20:18:27.715] 1. multicore:
  [20:18:27.715]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.715]    - tweaked: FALSE
  [20:18:27.715]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.715] 2. multicore:
  [20:18:27.715]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.715]    - tweaked: FALSE
  [20:18:27.715]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.717] plan(): nbrOfWorkers() = 2
  [20:18:27.719] Future #2
  [20:18:27.721] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:18:27.721] - nx: 2
  [20:18:27.722] - relay: TRUE
  [20:18:27.722] - stdout: TRUE
  [20:18:27.722] - signal: TRUE
  [20:18:27.722] - resignal: FALSE
  [20:18:27.723] - force: FALSE
  [20:18:27.723] - relayed: [n=2] TRUE, FALSE
  [20:18:27.723] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.724]  - until=2
  [20:18:27.724]  - relaying element #2
  [20:18:27.724] - relayed: [n=2] TRUE, TRUE
  [20:18:27.725] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.725] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:18:27.725]  length: 0 (resolved future 2)
  [20:18:27.726] Relaying remaining futures
  [20:18:27.726] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.726] - nx: 2
  [20:18:27.727] - relay: TRUE
  [20:18:27.727] - stdout: TRUE
  [20:18:27.727] - signal: TRUE
  [20:18:27.727] - resignal: FALSE
  [20:18:27.728] - force: FALSE
  [20:18:27.728] - relayed: [n=2] TRUE, TRUE
  [20:18:27.728] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:18:27.729] - relayed: [n=2] TRUE, TRUE
  [20:18:27.729] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.729] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.730] resolve() on list ... DONE
  [20:18:27.730] - collecting values of futures
  [20:18:27.730] - accumulating results
  [20:18:27.746] - processing errors (handler = 'stop')
  [20:18:27.746] - extracting results
  [20:18:27.747] doFuture() ... DONE
  - plan(list('multicore', 'multicore')) ... DONE
  - plan(list('multicore', 'multisession')) ...
  [20:18:27.748] plan(): Setting new future strategy stack:
  [20:18:27.748] List of future strategies:
  [20:18:27.748] 1. multicore:
  [20:18:27.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.748]    - tweaked: FALSE
  [20:18:27.748]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.748] 2. multisession:
  [20:18:27.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.748]    - tweaked: FALSE
  [20:18:27.748]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.758] plan(): nbrOfWorkers() = 2
  [20:18:27.759] doFuture() ...
  [20:18:27.764] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.765] - R expression:
  [20:18:27.765] {
  [20:18:27.765]     doFuture::registerDoFuture()
  [20:18:27.765]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.765]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.765]         {
  [20:18:27.765]             a <- NULL
  [20:18:27.765]             b <- NULL
  [20:18:27.765]         }
  [20:18:27.765]         ...future.env <- environment()
  [20:18:27.765]         local({
  [20:18:27.765]             for (name in names(...future.x_jj)) {
  [20:18:27.765]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.765]                   inherits = FALSE)
  [20:18:27.765]             }
  [20:18:27.765]         })
  [20:18:27.765]         tryCatch({
  [20:18:27.765]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.765]                 plan = future::plan())
  [20:18:27.765]         }, error = identity)
  [20:18:27.765]     })
  [20:18:27.765] }
  [20:18:27.774] - identifying globals and packages ...
  [20:18:27.774] getGlobalsAndPackages() ...
  [20:18:27.775] Searching for globals...
  [20:18:27.798] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:27.799] Searching for globals ... DONE
  [20:18:27.799] Resolving globals: FALSE
  [20:18:27.801] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:27.801] - globals: [1] '...future.x_ii'
  [20:18:27.801] 
  [20:18:27.810] getGlobalsAndPackages() ... DONE
  [20:18:27.810] List of 1
  [20:18:27.810]  $ ...future.x_ii: NULL
  [20:18:27.810]  - attr(*, "where")=List of 1
  [20:18:27.810]   ..$ ...future.x_ii:<environment: 0x55aab0a37be8> 
  [20:18:27.810]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.810]  - attr(*, "resolved")= logi FALSE
  [20:18:27.810]  - attr(*, "total_size")= num 0
  [20:18:27.817]   - R expression:
  [20:18:27.817] {
  [20:18:27.817]     doFuture::registerDoFuture()
  [20:18:27.817]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.817]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.817]         {
  [20:18:27.817]             a <- NULL
  [20:18:27.817]             b <- NULL
  [20:18:27.817]         }
  [20:18:27.817]         ...future.env <- environment()
  [20:18:27.817]         local({
  [20:18:27.817]             for (name in names(...future.x_jj)) {
  [20:18:27.817]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.817]                   inherits = FALSE)
  [20:18:27.817]             }
  [20:18:27.817]         })
  [20:18:27.817]         tryCatch({
  [20:18:27.817]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.817]                 plan = future::plan())
  [20:18:27.817]         }, error = identity)
  [20:18:27.817]     })
  [20:18:27.817] }
  [20:18:27.818]   - globals: [1] '...future.x_ii'
  [20:18:27.818] List of 1
  [20:18:27.818]  $ ...future.x_ii: NULL
  [20:18:27.818]  - attr(*, "where")=List of 1
  [20:18:27.818]   ..$ ...future.x_ii:<environment: 0x55aab0a37be8> 
  [20:18:27.818]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:27.818]  - attr(*, "resolved")= logi FALSE
  [20:18:27.818]  - attr(*, "total_size")= num 0
  [20:18:27.840]   - packages: [1] 'doFuture'
  [20:18:27.841] - identifying globals and packages ... DONE
  [20:18:27.842] Number of chunks: 2
  [20:18:27.842] Number of futures (= number of chunks): 2
  [20:18:27.842] Launching 2 futures (chunks) ...
  [20:18:27.843] Chunk #1 of 2 ...
  [20:18:27.843]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:27.843] getGlobalsAndPackages() ...
  [20:18:27.843] Searching for globals...
  [20:18:27.844] 
  [20:18:27.845] Searching for globals ... DONE
  [20:18:27.845] - globals: [0] <none>
  [20:18:27.845] getGlobalsAndPackages() ... DONE
  [20:18:27.845] 
  [20:18:27.845] 
  [20:18:27.854]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:27.855] getGlobalsAndPackages() ...
  [20:18:27.855] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.856] Resolving globals: FALSE
  [20:18:27.857] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.860] - globals: [1] '...future.x_ii'
  [20:18:27.861] 
  [20:18:27.861] getGlobalsAndPackages() ... DONE
  [20:18:27.879] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.879] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.883] {
  [20:18:27.883]     {
  [20:18:27.883]         ...future.startTime <- Sys.time()
  [20:18:27.883]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.883]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.883]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.883]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.883]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.883]         {
  [20:18:27.883]             {
  [20:18:27.883]                 {
  [20:18:27.883]                   {
  [20:18:27.883]                     has_future <- requireNamespace("future", 
  [20:18:27.883]                       quietly = TRUE)
  [20:18:27.883]                     version <- if (has_future) 
  [20:18:27.883]                       packageVersion("future")
  [20:18:27.883]                     else NULL
  [20:18:27.883]                     if (!has_future || version < "1.8.0") {
  [20:18:27.883]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.883]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.883]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.883]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.883]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.883]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.883]                         info)
  [20:18:27.883]                       info <- paste(info, collapse = "; ")
  [20:18:27.883]                       if (!has_future) {
  [20:18:27.883]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.883]                           info)
  [20:18:27.883]                       }
  [20:18:27.883]                       else {
  [20:18:27.883]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.883]                           info, version)
  [20:18:27.883]                       }
  [20:18:27.883]                       stop(msg)
  [20:18:27.883]                     }
  [20:18:27.883]                   }
  [20:18:27.883]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.883]                   options(mc.cores = 1L)
  [20:18:27.883]                 }
  [20:18:27.883]                 local({
  [20:18:27.883]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.883]                     loadNamespace(pkg)
  [20:18:27.883]                     library(pkg, character.only = TRUE)
  [20:18:27.883]                   }
  [20:18:27.883]                 })
  [20:18:27.883]             }
  [20:18:27.883]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.883]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.883]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:27.883]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:27.883]                 ...) 
  [20:18:27.883]             {
  [20:18:27.883]                 if (substitute) 
  [20:18:27.883]                   expr <- substitute(expr)
  [20:18:27.883]                 if (is.function(workers)) 
  [20:18:27.883]                   workers <- workers()
  [20:18:27.883]                 workers <- as.integer(workers)
  [20:18:27.883]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.883]                   workers >= 1)
  [20:18:27.883]                 if (workers == 1L) {
  [20:18:27.883]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.883]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.883]                     local = TRUE, label = label, ...))
  [20:18:27.883]                 }
  [20:18:27.883]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.883]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.883]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.883]                   globals = globals, persistent = persistent, 
  [20:18:27.883]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.883]                   label = label, ...)
  [20:18:27.883]                 if (!future$lazy) 
  [20:18:27.883]                   future <- run(future)
  [20:18:27.883]                 invisible(future)
  [20:18:27.883]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.883]         }
  [20:18:27.883]     }
  [20:18:27.883]     if (is.na(TRUE)) {
  [20:18:27.883]     }
  [20:18:27.883]     else {
  [20:18:27.883]         if (TRUE) {
  [20:18:27.883]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.883]         }
  [20:18:27.883]         else {
  [20:18:27.883]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.883]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.883]         }
  [20:18:27.883]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.883]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.883]             sink(type = "output", split = FALSE)
  [20:18:27.883]             close(...future.stdout)
  [20:18:27.883]         }, add = TRUE)
  [20:18:27.883]     }
  [20:18:27.883]     ...future.frame <- sys.nframe()
  [20:18:27.883]     ...future.conditions <- list()
  [20:18:27.883]     ...future.result <- tryCatch({
  [20:18:27.883]         withCallingHandlers({
  [20:18:27.883]             ...future.value <- withVisible(local({
  [20:18:27.883]                 doFuture::registerDoFuture()
  [20:18:27.883]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.883]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.883]                   {
  [20:18:27.883]                     a <- NULL
  [20:18:27.883]                     b <- NULL
  [20:18:27.883]                   }
  [20:18:27.883]                   ...future.env <- environment()
  [20:18:27.883]                   local({
  [20:18:27.883]                     for (name in names(...future.x_jj)) {
  [20:18:27.883]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.883]                         inherits = FALSE)
  [20:18:27.883]                     }
  [20:18:27.883]                   })
  [20:18:27.883]                   tryCatch({
  [20:18:27.883]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.883]                       plan = future::plan())
  [20:18:27.883]                   }, error = identity)
  [20:18:27.883]                 })
  [20:18:27.883]             }))
  [20:18:27.883]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.883]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.883]                 version = "1.8")
  [20:18:27.883]         }, condition = local({
  [20:18:27.883]             inherits <- base::inherits
  [20:18:27.883]             invokeRestart <- base::invokeRestart
  [20:18:27.883]             length <- base::length
  [20:18:27.883]             seq.int <- base::seq.int
  [20:18:27.883]             sys.calls <- base::sys.calls
  [20:18:27.883]             `[[` <- base::`[[`
  [20:18:27.883]             `+` <- base::`+`
  [20:18:27.883]             `<<-` <- base::`<<-`
  [20:18:27.883]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.883]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.883]                   3L)]
  [20:18:27.883]             }
  [20:18:27.883]             function(cond) {
  [20:18:27.883]                 if (inherits(cond, "error")) {
  [20:18:27.883]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.883]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.883]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.883]                     signaled = 0L)
  [20:18:27.883]                   signalCondition(cond)
  [20:18:27.883]                 }
  [20:18:27.883]                 else if (inherits(cond, "condition")) {
  [20:18:27.883]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.883]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.883]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.883]                   if (!signal) {
  [20:18:27.883]                     muffleCondition <- function (cond) 
  [20:18:27.883]                     {
  [20:18:27.883]                       inherits <- base::inherits
  [20:18:27.883]                       invokeRestart <- base::invokeRestart
  [20:18:27.883]                       muffled <- FALSE
  [20:18:27.883]                       if (inherits(cond, "message")) {
  [20:18:27.883]                         invokeRestart("muffleMessage")
  [20:18:27.883]                         muffled <- TRUE
  [20:18:27.883]                       }
  [20:18:27.883]                       else if (inherits(cond, "warning")) {
  [20:18:27.883]                         invokeRestart("muffleWarning")
  [20:18:27.883]                         muffled <- TRUE
  [20:18:27.883]                       }
  [20:18:27.883]                       else if (inherits(cond, "condition")) {
  [20:18:27.883]                         computeRestarts <- base::computeRestarts
  [20:18:27.883]                         grepl <- base::grepl
  [20:18:27.883]                         is.null <- base::is.null
  [20:18:27.883]                         restarts <- computeRestarts(cond)
  [20:18:27.883]                         for (restart in restarts) {
  [20:18:27.883]                           name <- restart$name
  [20:18:27.883]                           if (is.null(name)) 
  [20:18:27.883]                             next
  [20:18:27.883]                           if (!grepl("^muffle", name)) 
  [20:18:27.883]                             next
  [20:18:27.883]                           invokeRestart(restart)
  [20:18:27.883]                           muffled <- TRUE
  [20:18:27.883]                           break
  [20:18:27.883]                         }
  [20:18:27.883]                       }
  [20:18:27.883]                       invisible(muffled)
  [20:18:27.883]                     }
  [20:18:27.883]                     muffleCondition(cond)
  [20:18:27.883]                   }
  [20:18:27.883]                 }
  [20:18:27.883]             }
  [20:18:27.883]         }))
  [20:18:27.883]     }, error = function(ex) {
  [20:18:27.883]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.883]             version = "1.8"), class = "FutureResult")
  [20:18:27.883]     }, finally = {
  [20:18:27.883]         {
  [20:18:27.883]             {
  [20:18:27.883]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.883]             }
  [20:18:27.883]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.883]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.883]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.883]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.883]             {
  [20:18:27.883]                 if (substitute) 
  [20:18:27.883]                   expr <- substitute(expr)
  [20:18:27.883]                 if (is.function(workers)) 
  [20:18:27.883]                   workers <- workers()
  [20:18:27.883]                 workers <- as.integer(workers)
  [20:18:27.883]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.883]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.883]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.883]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.883]                     local = TRUE, label = label, ...))
  [20:18:27.883]                 }
  [20:18:27.883]                 oopts <- options(mc.cores = workers)
  [20:18:27.883]                 on.exit(options(oopts))
  [20:18:27.883]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.883]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.883]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.883]                   label = label, ...)
  [20:18:27.883]                 if (!future$lazy) 
  [20:18:27.883]                   future <- run(future)
  [20:18:27.883]                 invisible(future)
  [20:18:27.883]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.883]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:27.883]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:18:27.883]                 label = NULL, ...) 
  [20:18:27.883]             {
  [20:18:27.883]                 if (substitute) 
  [20:18:27.883]                   expr <- substitute(expr)
  [20:18:27.883]                 if (is.function(workers)) 
  [20:18:27.883]                   workers <- workers()
  [20:18:27.883]                 workers <- as.integer(workers)
  [20:18:27.883]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.883]                   workers >= 1)
  [20:18:27.883]                 if (workers == 1L) {
  [20:18:27.883]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.883]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.883]                     local = TRUE, label = label, ...))
  [20:18:27.883]                 }
  [20:18:27.883]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.883]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.883]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.883]                   globals = globals, persistent = persistent, 
  [20:18:27.883]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.883]                   label = label, ...)
  [20:18:27.883]                 if (!future$lazy) 
  [20:18:27.883]                   future <- run(future)
  [20:18:27.883]                 invisible(future)
  [20:18:27.883]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.883]         }
  [20:18:27.883]         options(...future.oldOptions)
  [20:18:27.883]     })
  [20:18:27.883]     if (is.na(TRUE)) {
  [20:18:27.883]     }
  [20:18:27.883]     else {
  [20:18:27.883]         sink(type = "output", split = FALSE)
  [20:18:27.883]         if (TRUE) {
  [20:18:27.883]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.883]         }
  [20:18:27.883]         else {
  [20:18:27.883]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.883]         }
  [20:18:27.883]         close(...future.stdout)
  [20:18:27.883]         ...future.stdout <- NULL
  [20:18:27.883]     }
  [20:18:27.883]     ...future.result$conditions <- ...future.conditions
  [20:18:27.883]     ...future.result
  [20:18:27.883] }
  [20:18:27.887] requestCore(): workers = 2
  [20:18:27.891] MulticoreFuture started
  [20:18:27.892] Chunk #1 of 2 ... DONE
  [20:18:27.892] Chunk #2 of 2 ...
  [20:18:27.893]  - Finding globals in 'args_list' chunk #2 ...
  [20:18:27.893] getGlobalsAndPackages() ...
  [20:18:27.906] plan(): Setting new future strategy stack:
  [20:18:27.907] List of future strategies:
  [20:18:27.907] 1. multisession:
  [20:18:27.907]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.907]    - tweaked: FALSE
  [20:18:27.907]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.893] Searching for globals...
  [20:18:27.909] plan(): nbrOfWorkers() = 1
  [20:18:27.911] 
  [20:18:27.911] Searching for globals ... DONE
  [20:18:27.911] - globals: [0] <none>
  [20:18:27.911] plan(): Setting new future strategy stack:
  [20:18:27.912] getGlobalsAndPackages() ... DONE
  [20:18:27.912] 
  [20:18:27.912] 
  [20:18:27.912]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:18:27.912] List of future strategies:
  [20:18:27.912] 1. multicore:
  [20:18:27.912]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.912]    - tweaked: FALSE
  [20:18:27.912]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.912] 2. multisession:
  [20:18:27.912]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.912]    - tweaked: FALSE
  [20:18:27.912]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.914] getGlobalsAndPackages() ...
  [20:18:27.914] plan(): nbrOfWorkers() = 2
  [20:18:27.914] - globals passed as-is: [1] '...future.x_ii'
  [20:18:27.914] Resolving globals: FALSE
  [20:18:27.915] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:27.916] - globals: [1] '...future.x_ii'
  [20:18:27.916] 
  [20:18:27.916] getGlobalsAndPackages() ... DONE
  [20:18:27.918] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:27.919] Packages needed by future strategies (n = 1): 'future'
  [20:18:27.923] {
  [20:18:27.923]     {
  [20:18:27.923]         ...future.startTime <- Sys.time()
  [20:18:27.923]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:27.923]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:27.923]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:27.923]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:27.923]             future.resolve.recursive = NULL, width = 80L)
  [20:18:27.923]         {
  [20:18:27.923]             {
  [20:18:27.923]                 {
  [20:18:27.923]                   {
  [20:18:27.923]                     has_future <- requireNamespace("future", 
  [20:18:27.923]                       quietly = TRUE)
  [20:18:27.923]                     version <- if (has_future) 
  [20:18:27.923]                       packageVersion("future")
  [20:18:27.923]                     else NULL
  [20:18:27.923]                     if (!has_future || version < "1.8.0") {
  [20:18:27.923]                       info <- c(r_version = gsub("R version ", 
  [20:18:27.923]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:27.923]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:27.923]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:27.923]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:27.923]                       info <- sprintf("%s: %s", names(info), 
  [20:18:27.923]                         info)
  [20:18:27.923]                       info <- paste(info, collapse = "; ")
  [20:18:27.923]                       if (!has_future) {
  [20:18:27.923]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:27.923]                           info)
  [20:18:27.923]                       }
  [20:18:27.923]                       else {
  [20:18:27.923]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:27.923]                           info, version)
  [20:18:27.923]                       }
  [20:18:27.923]                       stop(msg)
  [20:18:27.923]                     }
  [20:18:27.923]                   }
  [20:18:27.923]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:27.923]                   options(mc.cores = 1L)
  [20:18:27.923]                 }
  [20:18:27.923]                 local({
  [20:18:27.923]                   for (pkg in c("doFuture", "future")) {
  [20:18:27.923]                     loadNamespace(pkg)
  [20:18:27.923]                     library(pkg, character.only = TRUE)
  [20:18:27.923]                   }
  [20:18:27.923]                 })
  [20:18:27.923]             }
  [20:18:27.923]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:27.923]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.923]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:27.923]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:27.923]                 ...) 
  [20:18:27.923]             {
  [20:18:27.923]                 if (substitute) 
  [20:18:27.923]                   expr <- substitute(expr)
  [20:18:27.923]                 if (is.function(workers)) 
  [20:18:27.923]                   workers <- workers()
  [20:18:27.923]                 workers <- as.integer(workers)
  [20:18:27.923]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.923]                   workers >= 1)
  [20:18:27.923]                 if (workers == 1L) {
  [20:18:27.923]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.923]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.923]                     local = TRUE, label = label, ...))
  [20:18:27.923]                 }
  [20:18:27.923]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.923]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.923]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.923]                   globals = globals, persistent = persistent, 
  [20:18:27.923]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.923]                   label = label, ...)
  [20:18:27.923]                 if (!future$lazy) 
  [20:18:27.923]                   future <- run(future)
  [20:18:27.923]                 invisible(future)
  [20:18:27.923]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.923]         }
  [20:18:27.923]     }
  [20:18:27.923]     if (is.na(TRUE)) {
  [20:18:27.923]     }
  [20:18:27.923]     else {
  [20:18:27.923]         if (TRUE) {
  [20:18:27.923]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:27.923]         }
  [20:18:27.923]         else {
  [20:18:27.923]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:27.923]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:27.923]         }
  [20:18:27.923]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:27.923]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:27.923]             sink(type = "output", split = FALSE)
  [20:18:27.923]             close(...future.stdout)
  [20:18:27.923]         }, add = TRUE)
  [20:18:27.923]     }
  [20:18:27.923]     ...future.frame <- sys.nframe()
  [20:18:27.923]     ...future.conditions <- list()
  [20:18:27.923]     ...future.result <- tryCatch({
  [20:18:27.923]         withCallingHandlers({
  [20:18:27.923]             ...future.value <- withVisible(local({
  [20:18:27.923]                 doFuture::registerDoFuture()
  [20:18:27.923]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.923]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.923]                   {
  [20:18:27.923]                     a <- NULL
  [20:18:27.923]                     b <- NULL
  [20:18:27.923]                   }
  [20:18:27.923]                   ...future.env <- environment()
  [20:18:27.923]                   local({
  [20:18:27.923]                     for (name in names(...future.x_jj)) {
  [20:18:27.923]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.923]                         inherits = FALSE)
  [20:18:27.923]                     }
  [20:18:27.923]                   })
  [20:18:27.923]                   tryCatch({
  [20:18:27.923]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.923]                       plan = future::plan())
  [20:18:27.923]                   }, error = identity)
  [20:18:27.923]                 })
  [20:18:27.923]             }))
  [20:18:27.923]             future::FutureResult(value = ...future.value$value, 
  [20:18:27.923]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:27.923]                 version = "1.8")
  [20:18:27.923]         }, condition = local({
  [20:18:27.923]             inherits <- base::inherits
  [20:18:27.923]             invokeRestart <- base::invokeRestart
  [20:18:27.923]             length <- base::length
  [20:18:27.923]             seq.int <- base::seq.int
  [20:18:27.923]             sys.calls <- base::sys.calls
  [20:18:27.923]             `[[` <- base::`[[`
  [20:18:27.923]             `+` <- base::`+`
  [20:18:27.923]             `<<-` <- base::`<<-`
  [20:18:27.923]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:27.923]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:27.923]                   3L)]
  [20:18:27.923]             }
  [20:18:27.923]             function(cond) {
  [20:18:27.923]                 if (inherits(cond, "error")) {
  [20:18:27.923]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.923]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:27.923]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:27.923]                     signaled = 0L)
  [20:18:27.923]                   signalCondition(cond)
  [20:18:27.923]                 }
  [20:18:27.923]                 else if (inherits(cond, "condition")) {
  [20:18:27.923]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:27.923]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:27.923]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:27.923]                   if (!signal) {
  [20:18:27.923]                     muffleCondition <- function (cond) 
  [20:18:27.923]                     {
  [20:18:27.923]                       inherits <- base::inherits
  [20:18:27.923]                       invokeRestart <- base::invokeRestart
  [20:18:27.923]                       muffled <- FALSE
  [20:18:27.923]                       if (inherits(cond, "message")) {
  [20:18:27.923]                         invokeRestart("muffleMessage")
  [20:18:27.923]                         muffled <- TRUE
  [20:18:27.923]                       }
  [20:18:27.923]                       else if (inherits(cond, "warning")) {
  [20:18:27.923]                         invokeRestart("muffleWarning")
  [20:18:27.923]                         muffled <- TRUE
  [20:18:27.923]                       }
  [20:18:27.923]                       else if (inherits(cond, "condition")) {
  [20:18:27.923]                         computeRestarts <- base::computeRestarts
  [20:18:27.923]                         grepl <- base::grepl
  [20:18:27.923]                         is.null <- base::is.null
  [20:18:27.923]                         restarts <- computeRestarts(cond)
  [20:18:27.923]                         for (restart in restarts) {
  [20:18:27.923]                           name <- restart$name
  [20:18:27.923]                           if (is.null(name)) 
  [20:18:27.923]                             next
  [20:18:27.923]                           if (!grepl("^muffle", name)) 
  [20:18:27.923]                             next
  [20:18:27.923]                           invokeRestart(restart)
  [20:18:27.923]                           muffled <- TRUE
  [20:18:27.923]                           break
  [20:18:27.923]                         }
  [20:18:27.923]                       }
  [20:18:27.923]                       invisible(muffled)
  [20:18:27.923]                     }
  [20:18:27.923]                     muffleCondition(cond)
  [20:18:27.923]                   }
  [20:18:27.923]                 }
  [20:18:27.923]             }
  [20:18:27.923]         }))
  [20:18:27.923]     }, error = function(ex) {
  [20:18:27.923]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:27.923]             version = "1.8"), class = "FutureResult")
  [20:18:27.923]     }, finally = {
  [20:18:27.923]         {
  [20:18:27.923]             {
  [20:18:27.923]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:27.923]             }
  [20:18:27.923]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:27.923]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:27.923]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:27.923]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:27.923]             {
  [20:18:27.923]                 if (substitute) 
  [20:18:27.923]                   expr <- substitute(expr)
  [20:18:27.923]                 if (is.function(workers)) 
  [20:18:27.923]                   workers <- workers()
  [20:18:27.923]                 workers <- as.integer(workers)
  [20:18:27.923]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:27.923]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:27.923]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.923]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:27.923]                     local = TRUE, label = label, ...))
  [20:18:27.923]                 }
  [20:18:27.923]                 oopts <- options(mc.cores = workers)
  [20:18:27.923]                 on.exit(options(oopts))
  [20:18:27.923]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:27.923]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.923]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:27.923]                   label = label, ...)
  [20:18:27.923]                 if (!future$lazy) 
  [20:18:27.923]                   future <- run(future)
  [20:18:27.923]                 invisible(future)
  [20:18:27.923]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:27.923]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:27.923]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:18:27.923]                 label = NULL, ...) 
  [20:18:27.923]             {
  [20:18:27.923]                 if (substitute) 
  [20:18:27.923]                   expr <- substitute(expr)
  [20:18:27.923]                 if (is.function(workers)) 
  [20:18:27.923]                   workers <- workers()
  [20:18:27.923]                 workers <- as.integer(workers)
  [20:18:27.923]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:27.923]                   workers >= 1)
  [20:18:27.923]                 if (workers == 1L) {
  [20:18:27.923]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:27.923]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:27.923]                     local = TRUE, label = label, ...))
  [20:18:27.923]                 }
  [20:18:27.923]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:27.923]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:27.923]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:27.923]                   globals = globals, persistent = persistent, 
  [20:18:27.923]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:27.923]                   label = label, ...)
  [20:18:27.923]                 if (!future$lazy) 
  [20:18:27.923]                   future <- run(future)
  [20:18:27.923]                 invisible(future)
  [20:18:27.923]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:27.923]         }
  [20:18:27.923]         options(...future.oldOptions)
  [20:18:27.923]     })
  [20:18:27.923]     if (is.na(TRUE)) {
  [20:18:27.923]     }
  [20:18:27.923]     else {
  [20:18:27.923]         sink(type = "output", split = FALSE)
  [20:18:27.923]         if (TRUE) {
  [20:18:27.923]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:27.923]         }
  [20:18:27.923]         else {
  [20:18:27.923]             ...future.result["stdout"] <- list(NULL)
  [20:18:27.923]         }
  [20:18:27.923]         close(...future.stdout)
  [20:18:27.923]         ...future.stdout <- NULL
  [20:18:27.923]     }
  [20:18:27.923]     ...future.result$conditions <- ...future.conditions
  [20:18:27.923]     ...future.result
  [20:18:27.923] }
  [20:18:27.936] requestCore(): workers = 2
  [20:18:27.939] MulticoreFuture started
  [20:18:27.940] Chunk #2 of 2 ... DONE
  [20:18:27.941] Launching 2 futures (chunks) ... DONE
  [20:18:27.941] - resolving futures
  [20:18:27.941]   - gathering results & relaying conditions (except errors)
  [20:18:27.942] resolve() on list ...
  [20:18:27.942]  recursive: 0
  [20:18:27.942]  length: 2
  [20:18:27.943] 
  [20:18:27.943] Future #1
  [20:18:27.950] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:18:27.950] - nx: 2
  [20:18:27.950] - relay: TRUE
  [20:18:27.951] - stdout: TRUE
  [20:18:27.951] - signal: TRUE
  [20:18:27.951] - resignal: FALSE
  [20:18:27.951] - force: FALSE
  [20:18:27.952] - relayed: [n=2] FALSE, FALSE
  [20:18:27.952] - queued futures: [n=2] FALSE, FALSE
  [20:18:27.952]  - until=1
  [20:18:27.952]  - relaying element #1
  [20:18:27.953] - relayed: [n=2] TRUE, FALSE
  [20:18:27.953] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.953] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:18:27.954]  length: 1 (resolved future 1)
  [20:18:27.954] plan(): Setting new future strategy stack:
  [20:18:27.954] List of future strategies:
  [20:18:27.954] 1. multisession:
  [20:18:27.954]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.954]    - tweaked: FALSE
  [20:18:27.954]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.957] plan(): nbrOfWorkers() = 1
  [20:18:27.959] plan(): Setting new future strategy stack:
  [20:18:27.959] List of future strategies:
  [20:18:27.959] 1. multicore:
  [20:18:27.959]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.959]    - tweaked: FALSE
  [20:18:27.959]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.959] 2. multisession:
  [20:18:27.959]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.959]    - tweaked: FALSE
  [20:18:27.959]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.961] plan(): nbrOfWorkers() = 2
  [20:18:27.963] Future #2
  [20:18:27.965] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:18:27.965] - nx: 2
  [20:18:27.965] - relay: TRUE
  [20:18:27.966] - stdout: TRUE
  [20:18:27.966] - signal: TRUE
  [20:18:27.966] - resignal: FALSE
  [20:18:27.967] - force: FALSE
  [20:18:27.967] - relayed: [n=2] TRUE, FALSE
  [20:18:27.967] - queued futures: [n=2] TRUE, FALSE
  [20:18:27.967]  - until=2
  [20:18:27.968]  - relaying element #2
  [20:18:27.968] - relayed: [n=2] TRUE, TRUE
  [20:18:27.968] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.969] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:18:27.969]  length: 0 (resolved future 2)
  [20:18:27.969] Relaying remaining futures
  [20:18:27.970] signalConditionsASAP(NULL, pos=0) ...
  [20:18:27.970] - nx: 2
  [20:18:27.970] - relay: TRUE
  [20:18:27.971] - stdout: TRUE
  [20:18:27.971] - signal: TRUE
  [20:18:27.971] - resignal: FALSE
  [20:18:27.971] - force: FALSE
  [20:18:27.972] - relayed: [n=2] TRUE, TRUE
  [20:18:27.972] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:18:27.972] - relayed: [n=2] TRUE, TRUE
  [20:18:27.973] - queued futures: [n=2] TRUE, TRUE
  [20:18:27.973] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:27.973] resolve() on list ... DONE
  [20:18:27.973] - collecting values of futures
  [20:18:27.974] - accumulating results
  [20:18:27.977] - processing errors (handler = 'stop')
  [20:18:27.977] - extracting results
  [20:18:27.977] doFuture() ... DONE
  - plan(list('multicore', 'multisession')) ... DONE
  - plan(list('multicore', 'cluster')) ...
  [20:18:27.988] plan(): Setting new future strategy stack:
  [20:18:27.988] List of future strategies:
  [20:18:27.988] 1. multicore:
  [20:18:27.988]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:27.988]    - tweaked: FALSE
  [20:18:27.988]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.988] 2. cluster:
  [20:18:27.988]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:27.988]    - tweaked: FALSE
  [20:18:27.988]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:27.990] plan(): nbrOfWorkers() = 2
  [20:18:27.991] doFuture() ...
  [20:18:27.995] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:27.996] - R expression:
  [20:18:27.996] {
  [20:18:27.996]     doFuture::registerDoFuture()
  [20:18:27.996]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:27.996]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:27.996]         {
  [20:18:27.996]             a <- NULL
  [20:18:27.996]             b <- NULL
  [20:18:27.996]         }
  [20:18:27.996]         ...future.env <- environment()
  [20:18:27.996]         local({
  [20:18:27.996]             for (name in names(...future.x_jj)) {
  [20:18:27.996]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:27.996]                   inherits = FALSE)
  [20:18:27.996]             }
  [20:18:27.996]         })
  [20:18:27.996]         tryCatch({
  [20:18:27.996]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:27.996]                 plan = future::plan())
  [20:18:27.996]         }, error = identity)
  [20:18:27.996]     })
  [20:18:27.996] }
  [20:18:27.997] - identifying globals and packages ...
  [20:18:28.017] getGlobalsAndPackages() ...
  [20:18:28.017] Searching for globals...
  [20:18:28.041] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:28.042] Searching for globals ... DONE
  [20:18:28.042] Resolving globals: FALSE
  [20:18:28.043] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:28.044] - globals: [1] '...future.x_ii'
  [20:18:28.044] 
  [20:18:28.044] getGlobalsAndPackages() ... DONE
  [20:18:28.045] List of 1
  [20:18:28.045]  $ ...future.x_ii: NULL
  [20:18:28.045]  - attr(*, "where")=List of 1
  [20:18:28.045]   ..$ ...future.x_ii:<environment: 0x55aab1b83140> 
  [20:18:28.045]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:28.045]  - attr(*, "resolved")= logi FALSE
  [20:18:28.045]  - attr(*, "total_size")= num 0
  [20:18:28.059]   - R expression:
  [20:18:28.059] {
  [20:18:28.059]     doFuture::registerDoFuture()
  [20:18:28.059]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:28.059]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:28.059]         {
  [20:18:28.059]             a <- NULL
  [20:18:28.059]             b <- NULL
  [20:18:28.059]         }
  [20:18:28.059]         ...future.env <- environment()
  [20:18:28.059]         local({
  [20:18:28.059]             for (name in names(...future.x_jj)) {
  [20:18:28.059]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:28.059]                   inherits = FALSE)
  [20:18:28.059]             }
  [20:18:28.059]         })
  [20:18:28.059]         tryCatch({
  [20:18:28.059]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:28.059]                 plan = future::plan())
  [20:18:28.059]         }, error = identity)
  [20:18:28.059]     })
  [20:18:28.059] }
  [20:18:28.060]   - globals: [1] '...future.x_ii'
  [20:18:28.060] List of 1
  [20:18:28.060]  $ ...future.x_ii: NULL
  [20:18:28.060]  - attr(*, "where")=List of 1
  [20:18:28.060]   ..$ ...future.x_ii:<environment: 0x55aab1b83140> 
  [20:18:28.060]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:28.060]  - attr(*, "resolved")= logi FALSE
  [20:18:28.060]  - attr(*, "total_size")= num 0
  [20:18:28.089]   - packages: [1] 'doFuture'
  [20:18:28.089] - identifying globals and packages ... DONE
  [20:18:28.094] Number of chunks: 2
  [20:18:28.095] Number of futures (= number of chunks): 2
  [20:18:28.095] Launching 2 futures (chunks) ...
  [20:18:28.095] Chunk #1 of 2 ...
  [20:18:28.095]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:28.096] getGlobalsAndPackages() ...
  [20:18:28.096] Searching for globals...
  [20:18:28.097] 
  [20:18:28.097] Searching for globals ... DONE
  [20:18:28.097] - globals: [0] <none>
  [20:18:28.097] getGlobalsAndPackages() ... DONE
  [20:18:28.098] 
  [20:18:28.098] 
  [20:18:28.098]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:28.099] getGlobalsAndPackages() ...
  [20:18:28.099] - globals passed as-is: [1] '...future.x_ii'
  [20:18:28.100] Resolving globals: FALSE
  [20:18:28.100] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:28.101] - globals: [1] '...future.x_ii'
  [20:18:28.101] 
  [20:18:28.101] getGlobalsAndPackages() ... DONE
  [20:18:28.103] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:28.103] Packages needed by future strategies (n = 1): 'future'
  [20:18:28.126] {
  [20:18:28.126]     {
  [20:18:28.126]         ...future.startTime <- Sys.time()
  [20:18:28.126]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:28.126]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:28.126]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:28.126]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:28.126]             future.resolve.recursive = NULL, width = 80L)
  [20:18:28.126]         {
  [20:18:28.126]             {
  [20:18:28.126]                 {
  [20:18:28.126]                   {
  [20:18:28.126]                     has_future <- requireNamespace("future", 
  [20:18:28.126]                       quietly = TRUE)
  [20:18:28.126]                     version <- if (has_future) 
  [20:18:28.126]                       packageVersion("future")
  [20:18:28.126]                     else NULL
  [20:18:28.126]                     if (!has_future || version < "1.8.0") {
  [20:18:28.126]                       info <- c(r_version = gsub("R version ", 
  [20:18:28.126]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:28.126]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:28.126]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:28.126]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:28.126]                       info <- sprintf("%s: %s", names(info), 
  [20:18:28.126]                         info)
  [20:18:28.126]                       info <- paste(info, collapse = "; ")
  [20:18:28.126]                       if (!has_future) {
  [20:18:28.126]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:28.126]                           info)
  [20:18:28.126]                       }
  [20:18:28.126]                       else {
  [20:18:28.126]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:28.126]                           info, version)
  [20:18:28.126]                       }
  [20:18:28.126]                       stop(msg)
  [20:18:28.126]                     }
  [20:18:28.126]                   }
  [20:18:28.126]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:28.126]                   options(mc.cores = 1L)
  [20:18:28.126]                 }
  [20:18:28.126]                 local({
  [20:18:28.126]                   for (pkg in c("doFuture", "future")) {
  [20:18:28.126]                     loadNamespace(pkg)
  [20:18:28.126]                     library(pkg, character.only = TRUE)
  [20:18:28.126]                   }
  [20:18:28.126]                 })
  [20:18:28.126]             }
  [20:18:28.126]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:28.126]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:28.126]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:18:28.126]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:18:28.126]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:28.126]                 ...) 
  [20:18:28.126]             {
  [20:18:28.126]                 if (substitute) 
  [20:18:28.126]                   expr <- substitute(expr)
  [20:18:28.126]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:28.126]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.126]                   globals = globals, persistent = persistent, 
  [20:18:28.126]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:28.126]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:28.126]                   label = label, ...)
  [20:18:28.126]                 if (!future$lazy) 
  [20:18:28.126]                   future <- run(future)
  [20:18:28.126]                 invisible(future)
  [20:18:28.126]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:28.126]         }
  [20:18:28.126]     }
  [20:18:28.126]     if (is.na(TRUE)) {
  [20:18:28.126]     }
  [20:18:28.126]     else {
  [20:18:28.126]         if (TRUE) {
  [20:18:28.126]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:28.126]         }
  [20:18:28.126]         else {
  [20:18:28.126]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:28.126]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:28.126]         }
  [20:18:28.126]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:28.126]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:28.126]             sink(type = "output", split = FALSE)
  [20:18:28.126]             close(...future.stdout)
  [20:18:28.126]         }, add = TRUE)
  [20:18:28.126]     }
  [20:18:28.126]     ...future.frame <- sys.nframe()
  [20:18:28.126]     ...future.conditions <- list()
  [20:18:28.126]     ...future.result <- tryCatch({
  [20:18:28.126]         withCallingHandlers({
  [20:18:28.126]             ...future.value <- withVisible(local({
  [20:18:28.126]                 doFuture::registerDoFuture()
  [20:18:28.126]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:28.126]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:28.126]                   {
  [20:18:28.126]                     a <- NULL
  [20:18:28.126]                     b <- NULL
  [20:18:28.126]                   }
  [20:18:28.126]                   ...future.env <- environment()
  [20:18:28.126]                   local({
  [20:18:28.126]                     for (name in names(...future.x_jj)) {
  [20:18:28.126]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:28.126]                         inherits = FALSE)
  [20:18:28.126]                     }
  [20:18:28.126]                   })
  [20:18:28.126]                   tryCatch({
  [20:18:28.126]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:28.126]                       plan = future::plan())
  [20:18:28.126]                   }, error = identity)
  [20:18:28.126]                 })
  [20:18:28.126]             }))
  [20:18:28.126]             future::FutureResult(value = ...future.value$value, 
  [20:18:28.126]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:28.126]                 version = "1.8")
  [20:18:28.126]         }, condition = local({
  [20:18:28.126]             inherits <- base::inherits
  [20:18:28.126]             invokeRestart <- base::invokeRestart
  [20:18:28.126]             length <- base::length
  [20:18:28.126]             seq.int <- base::seq.int
  [20:18:28.126]             sys.calls <- base::sys.calls
  [20:18:28.126]             `[[` <- base::`[[`
  [20:18:28.126]             `+` <- base::`+`
  [20:18:28.126]             `<<-` <- base::`<<-`
  [20:18:28.126]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:28.126]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:28.126]                   3L)]
  [20:18:28.126]             }
  [20:18:28.126]             function(cond) {
  [20:18:28.126]                 if (inherits(cond, "error")) {
  [20:18:28.126]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:28.126]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:28.126]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:28.126]                     signaled = 0L)
  [20:18:28.126]                   signalCondition(cond)
  [20:18:28.126]                 }
  [20:18:28.126]                 else if (inherits(cond, "condition")) {
  [20:18:28.126]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:28.126]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:28.126]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:28.126]                   if (!signal) {
  [20:18:28.126]                     muffleCondition <- function (cond) 
  [20:18:28.126]                     {
  [20:18:28.126]                       inherits <- base::inherits
  [20:18:28.126]                       invokeRestart <- base::invokeRestart
  [20:18:28.126]                       muffled <- FALSE
  [20:18:28.126]                       if (inherits(cond, "message")) {
  [20:18:28.126]                         invokeRestart("muffleMessage")
  [20:18:28.126]                         muffled <- TRUE
  [20:18:28.126]                       }
  [20:18:28.126]                       else if (inherits(cond, "warning")) {
  [20:18:28.126]                         invokeRestart("muffleWarning")
  [20:18:28.126]                         muffled <- TRUE
  [20:18:28.126]                       }
  [20:18:28.126]                       else if (inherits(cond, "condition")) {
  [20:18:28.126]                         computeRestarts <- base::computeRestarts
  [20:18:28.126]                         grepl <- base::grepl
  [20:18:28.126]                         is.null <- base::is.null
  [20:18:28.126]                         restarts <- computeRestarts(cond)
  [20:18:28.126]                         for (restart in restarts) {
  [20:18:28.126]                           name <- restart$name
  [20:18:28.126]                           if (is.null(name)) 
  [20:18:28.126]                             next
  [20:18:28.126]                           if (!grepl("^muffle", name)) 
  [20:18:28.126]                             next
  [20:18:28.126]                           invokeRestart(restart)
  [20:18:28.126]                           muffled <- TRUE
  [20:18:28.126]                           break
  [20:18:28.126]                         }
  [20:18:28.126]                       }
  [20:18:28.126]                       invisible(muffled)
  [20:18:28.126]                     }
  [20:18:28.126]                     muffleCondition(cond)
  [20:18:28.126]                   }
  [20:18:28.126]                 }
  [20:18:28.126]             }
  [20:18:28.126]         }))
  [20:18:28.126]     }, error = function(ex) {
  [20:18:28.126]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:28.126]             version = "1.8"), class = "FutureResult")
  [20:18:28.126]     }, finally = {
  [20:18:28.126]         {
  [20:18:28.126]             {
  [20:18:28.126]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:28.126]             }
  [20:18:28.126]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:28.126]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:28.126]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:28.126]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:28.126]             {
  [20:18:28.126]                 if (substitute) 
  [20:18:28.126]                   expr <- substitute(expr)
  [20:18:28.126]                 if (is.function(workers)) 
  [20:18:28.126]                   workers <- workers()
  [20:18:28.126]                 workers <- as.integer(workers)
  [20:18:28.126]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:28.126]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:28.126]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:28.126]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:28.126]                     local = TRUE, label = label, ...))
  [20:18:28.126]                 }
  [20:18:28.126]                 oopts <- options(mc.cores = workers)
  [20:18:28.126]                 on.exit(options(oopts))
  [20:18:28.126]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:28.126]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.126]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:28.126]                   label = label, ...)
  [20:18:28.126]                 if (!future$lazy) 
  [20:18:28.126]                   future <- run(future)
  [20:18:28.126]                 invisible(future)
  [20:18:28.126]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:28.126]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:28.126]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:18:28.126]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:18:28.126]                 label = NULL, ...) 
  [20:18:28.126]             {
  [20:18:28.126]                 if (substitute) 
  [20:18:28.126]                   expr <- substitute(expr)
  [20:18:28.126]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:28.126]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.126]                   globals = globals, persistent = persistent, 
  [20:18:28.126]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:28.126]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:28.126]                   label = label, ...)
  [20:18:28.126]                 if (!future$lazy) 
  [20:18:28.126]                   future <- run(future)
  [20:18:28.126]                 invisible(future)
  [20:18:28.126]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:28.126]         }
  [20:18:28.126]         options(...future.oldOptions)
  [20:18:28.126]     })
  [20:18:28.126]     if (is.na(TRUE)) {
  [20:18:28.126]     }
  [20:18:28.126]     else {
  [20:18:28.126]         sink(type = "output", split = FALSE)
  [20:18:28.126]         if (TRUE) {
  [20:18:28.126]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:28.126]         }
  [20:18:28.126]         else {
  [20:18:28.126]             ...future.result["stdout"] <- list(NULL)
  [20:18:28.126]         }
  [20:18:28.126]         close(...future.stdout)
  [20:18:28.126]         ...future.stdout <- NULL
  [20:18:28.126]     }
  [20:18:28.126]     ...future.result$conditions <- ...future.conditions
  [20:18:28.126]     ...future.result
  [20:18:28.126] }
  [20:18:28.130] requestCore(): workers = 2
  [20:18:28.134] MulticoreFuture started
  [20:18:28.135] Chunk #1 of 2 ... DONE
  [20:18:28.135] Chunk #2 of 2 ...
  [20:18:28.135]  - Finding globals in 'args_list' chunk #2 ...
  [20:18:28.136] getGlobalsAndPackages() ...
  [20:18:28.136] Searching for globals...
  [20:18:28.138] 
  [20:18:28.138] Searching for globals ... DONE
  [20:18:28.138] - globals: [0] <none>
  [20:18:28.139] getGlobalsAndPackages() ... DONE
  [20:18:28.139] 
  [20:18:28.139] 
  [20:18:28.140]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:18:28.154] plan(): Setting new future strategy stack:
  [20:18:28.155] List of future strategies:
  [20:18:28.155] 1. cluster:
  [20:18:28.155]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.155]    - tweaked: FALSE
  [20:18:28.155]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.141] getGlobalsAndPackages() ...
  [20:18:28.158] plan(): nbrOfWorkers() = 1
  [20:18:28.158] - globals passed as-is: [1] '...future.x_ii'
  [20:18:28.159] Resolving globals: FALSE
  [20:18:28.160] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:28.160] plan(): Setting new future strategy stack:
  [20:18:28.160] - globals: [1] '...future.x_ii'
  [20:18:28.161] 
  [20:18:28.161] getGlobalsAndPackages() ... DONE
  [20:18:28.160] List of future strategies:
  [20:18:28.160] 1. multicore:
  [20:18:28.160]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:28.160]    - tweaked: FALSE
  [20:18:28.160]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.160] 2. cluster:
  [20:18:28.160]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.160]    - tweaked: FALSE
  [20:18:28.160]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.162] plan(): nbrOfWorkers() = 2
  [20:18:28.163] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:28.163] Packages needed by future strategies (n = 1): 'future'
  [20:18:28.168] {
  [20:18:28.168]     {
  [20:18:28.168]         ...future.startTime <- Sys.time()
  [20:18:28.168]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:28.168]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:28.168]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:28.168]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:28.168]             future.resolve.recursive = NULL, width = 80L)
  [20:18:28.168]         {
  [20:18:28.168]             {
  [20:18:28.168]                 {
  [20:18:28.168]                   {
  [20:18:28.168]                     has_future <- requireNamespace("future", 
  [20:18:28.168]                       quietly = TRUE)
  [20:18:28.168]                     version <- if (has_future) 
  [20:18:28.168]                       packageVersion("future")
  [20:18:28.168]                     else NULL
  [20:18:28.168]                     if (!has_future || version < "1.8.0") {
  [20:18:28.168]                       info <- c(r_version = gsub("R version ", 
  [20:18:28.168]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:28.168]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:28.168]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:28.168]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:28.168]                       info <- sprintf("%s: %s", names(info), 
  [20:18:28.168]                         info)
  [20:18:28.168]                       info <- paste(info, collapse = "; ")
  [20:18:28.168]                       if (!has_future) {
  [20:18:28.168]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:28.168]                           info)
  [20:18:28.168]                       }
  [20:18:28.168]                       else {
  [20:18:28.168]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:28.168]                           info, version)
  [20:18:28.168]                       }
  [20:18:28.168]                       stop(msg)
  [20:18:28.168]                     }
  [20:18:28.168]                   }
  [20:18:28.168]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:28.168]                   options(mc.cores = 1L)
  [20:18:28.168]                 }
  [20:18:28.168]                 local({
  [20:18:28.168]                   for (pkg in c("doFuture", "future")) {
  [20:18:28.168]                     loadNamespace(pkg)
  [20:18:28.168]                     library(pkg, character.only = TRUE)
  [20:18:28.168]                   }
  [20:18:28.168]                 })
  [20:18:28.168]             }
  [20:18:28.168]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:28.168]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:28.168]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:18:28.168]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:18:28.168]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:28.168]                 ...) 
  [20:18:28.168]             {
  [20:18:28.168]                 if (substitute) 
  [20:18:28.168]                   expr <- substitute(expr)
  [20:18:28.168]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:28.168]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.168]                   globals = globals, persistent = persistent, 
  [20:18:28.168]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:28.168]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:28.168]                   label = label, ...)
  [20:18:28.168]                 if (!future$lazy) 
  [20:18:28.168]                   future <- run(future)
  [20:18:28.168]                 invisible(future)
  [20:18:28.168]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:28.168]         }
  [20:18:28.168]     }
  [20:18:28.168]     if (is.na(TRUE)) {
  [20:18:28.168]     }
  [20:18:28.168]     else {
  [20:18:28.168]         if (TRUE) {
  [20:18:28.168]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:28.168]         }
  [20:18:28.168]         else {
  [20:18:28.168]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:28.168]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:28.168]         }
  [20:18:28.168]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:28.168]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:28.168]             sink(type = "output", split = FALSE)
  [20:18:28.168]             close(...future.stdout)
  [20:18:28.168]         }, add = TRUE)
  [20:18:28.168]     }
  [20:18:28.168]     ...future.frame <- sys.nframe()
  [20:18:28.168]     ...future.conditions <- list()
  [20:18:28.168]     ...future.result <- tryCatch({
  [20:18:28.168]         withCallingHandlers({
  [20:18:28.168]             ...future.value <- withVisible(local({
  [20:18:28.168]                 doFuture::registerDoFuture()
  [20:18:28.168]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:28.168]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:28.168]                   {
  [20:18:28.168]                     a <- NULL
  [20:18:28.168]                     b <- NULL
  [20:18:28.168]                   }
  [20:18:28.168]                   ...future.env <- environment()
  [20:18:28.168]                   local({
  [20:18:28.168]                     for (name in names(...future.x_jj)) {
  [20:18:28.168]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:28.168]                         inherits = FALSE)
  [20:18:28.168]                     }
  [20:18:28.168]                   })
  [20:18:28.168]                   tryCatch({
  [20:18:28.168]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:28.168]                       plan = future::plan())
  [20:18:28.168]                   }, error = identity)
  [20:18:28.168]                 })
  [20:18:28.168]             }))
  [20:18:28.168]             future::FutureResult(value = ...future.value$value, 
  [20:18:28.168]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:28.168]                 version = "1.8")
  [20:18:28.168]         }, condition = local({
  [20:18:28.168]             inherits <- base::inherits
  [20:18:28.168]             invokeRestart <- base::invokeRestart
  [20:18:28.168]             length <- base::length
  [20:18:28.168]             seq.int <- base::seq.int
  [20:18:28.168]             sys.calls <- base::sys.calls
  [20:18:28.168]             `[[` <- base::`[[`
  [20:18:28.168]             `+` <- base::`+`
  [20:18:28.168]             `<<-` <- base::`<<-`
  [20:18:28.168]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:28.168]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:28.168]                   3L)]
  [20:18:28.168]             }
  [20:18:28.168]             function(cond) {
  [20:18:28.168]                 if (inherits(cond, "error")) {
  [20:18:28.168]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:28.168]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:28.168]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:28.168]                     signaled = 0L)
  [20:18:28.168]                   signalCondition(cond)
  [20:18:28.168]                 }
  [20:18:28.168]                 else if (inherits(cond, "condition")) {
  [20:18:28.168]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:28.168]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:28.168]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:28.168]                   if (!signal) {
  [20:18:28.168]                     muffleCondition <- function (cond) 
  [20:18:28.168]                     {
  [20:18:28.168]                       inherits <- base::inherits
  [20:18:28.168]                       invokeRestart <- base::invokeRestart
  [20:18:28.168]                       muffled <- FALSE
  [20:18:28.168]                       if (inherits(cond, "message")) {
  [20:18:28.168]                         invokeRestart("muffleMessage")
  [20:18:28.168]                         muffled <- TRUE
  [20:18:28.168]                       }
  [20:18:28.168]                       else if (inherits(cond, "warning")) {
  [20:18:28.168]                         invokeRestart("muffleWarning")
  [20:18:28.168]                         muffled <- TRUE
  [20:18:28.168]                       }
  [20:18:28.168]                       else if (inherits(cond, "condition")) {
  [20:18:28.168]                         computeRestarts <- base::computeRestarts
  [20:18:28.168]                         grepl <- base::grepl
  [20:18:28.168]                         is.null <- base::is.null
  [20:18:28.168]                         restarts <- computeRestarts(cond)
  [20:18:28.168]                         for (restart in restarts) {
  [20:18:28.168]                           name <- restart$name
  [20:18:28.168]                           if (is.null(name)) 
  [20:18:28.168]                             next
  [20:18:28.168]                           if (!grepl("^muffle", name)) 
  [20:18:28.168]                             next
  [20:18:28.168]                           invokeRestart(restart)
  [20:18:28.168]                           muffled <- TRUE
  [20:18:28.168]                           break
  [20:18:28.168]                         }
  [20:18:28.168]                       }
  [20:18:28.168]                       invisible(muffled)
  [20:18:28.168]                     }
  [20:18:28.168]                     muffleCondition(cond)
  [20:18:28.168]                   }
  [20:18:28.168]                 }
  [20:18:28.168]             }
  [20:18:28.168]         }))
  [20:18:28.168]     }, error = function(ex) {
  [20:18:28.168]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:28.168]             version = "1.8"), class = "FutureResult")
  [20:18:28.168]     }, finally = {
  [20:18:28.168]         {
  [20:18:28.168]             {
  [20:18:28.168]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:28.168]             }
  [20:18:28.168]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:28.168]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:28.168]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:18:28.168]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:28.168]             {
  [20:18:28.168]                 if (substitute) 
  [20:18:28.168]                   expr <- substitute(expr)
  [20:18:28.168]                 if (is.function(workers)) 
  [20:18:28.168]                   workers <- workers()
  [20:18:28.168]                 workers <- as.integer(workers)
  [20:18:28.168]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:18:28.168]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:18:28.168]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:28.168]                     lazy = lazy, seed = seed, globals = globals, 
  [20:18:28.168]                     local = TRUE, label = label, ...))
  [20:18:28.168]                 }
  [20:18:28.168]                 oopts <- options(mc.cores = workers)
  [20:18:28.168]                 on.exit(options(oopts))
  [20:18:28.168]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:18:28.168]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.168]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:18:28.168]                   label = label, ...)
  [20:18:28.168]                 if (!future$lazy) 
  [20:18:28.168]                   future <- run(future)
  [20:18:28.168]                 invisible(future)
  [20:18:28.168]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:28.168]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:18:28.168]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:18:28.168]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:18:28.168]                 label = NULL, ...) 
  [20:18:28.168]             {
  [20:18:28.168]                 if (substitute) 
  [20:18:28.168]                   expr <- substitute(expr)
  [20:18:28.168]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:18:28.168]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:28.168]                   globals = globals, persistent = persistent, 
  [20:18:28.168]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:18:28.168]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:18:28.168]                   label = label, ...)
  [20:18:28.168]                 if (!future$lazy) 
  [20:18:28.168]                   future <- run(future)
  [20:18:28.168]                 invisible(future)
  [20:18:28.168]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:28.168]         }
  [20:18:28.168]         options(...future.oldOptions)
  [20:18:28.168]     })
  [20:18:28.168]     if (is.na(TRUE)) {
  [20:18:28.168]     }
  [20:18:28.168]     else {
  [20:18:28.168]         sink(type = "output", split = FALSE)
  [20:18:28.168]         if (TRUE) {
  [20:18:28.168]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:28.168]         }
  [20:18:28.168]         else {
  [20:18:28.168]             ...future.result["stdout"] <- list(NULL)
  [20:18:28.168]         }
  [20:18:28.168]         close(...future.stdout)
  [20:18:28.168]         ...future.stdout <- NULL
  [20:18:28.168]     }
  [20:18:28.168]     ...future.result$conditions <- ...future.conditions
  [20:18:28.168]     ...future.result
  [20:18:28.168] }
  [20:18:28.173] requestCore(): workers = 2
  [20:18:28.192] MulticoreFuture started
  [20:18:28.193] Chunk #2 of 2 ... DONE
  [20:18:28.194] Launching 2 futures (chunks) ... DONE
  [20:18:28.194] - resolving futures
  [20:18:28.194]   - gathering results & relaying conditions (except errors)
  [20:18:28.195] resolve() on list ...
  [20:18:28.195]  recursive: 0
  [20:18:28.195]  length: 2
  [20:18:28.196] 
  [20:18:28.196] Future #1
  [20:18:28.199] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [20:18:28.200] - nx: 2
  [20:18:28.200] - relay: TRUE
  [20:18:28.200] - stdout: TRUE
  [20:18:28.201] - signal: TRUE
  [20:18:28.201] - resignal: FALSE
  [20:18:28.201] - force: FALSE
  [20:18:28.201] - relayed: [n=2] FALSE, FALSE
  [20:18:28.202] - queued futures: [n=2] FALSE, FALSE
  [20:18:28.202]  - until=1
  [20:18:28.202]  - relaying element #1
  [20:18:28.203] - relayed: [n=2] TRUE, FALSE
  [20:18:28.203] - queued futures: [n=2] TRUE, FALSE
  [20:18:28.204] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [20:18:28.204]  length: 1 (resolved future 1)
  [20:18:28.210] plan(): Setting new future strategy stack:
  [20:18:28.210] List of future strategies:
  [20:18:28.210] 1. cluster:
  [20:18:28.210]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.210]    - tweaked: FALSE
  [20:18:28.210]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.218] plan(): nbrOfWorkers() = 1
  [20:18:28.220] plan(): Setting new future strategy stack:
  [20:18:28.221] List of future strategies:
  [20:18:28.221] 1. multicore:
  [20:18:28.221]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:28.221]    - tweaked: FALSE
  [20:18:28.221]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.221] 2. cluster:
  [20:18:28.221]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.221]    - tweaked: FALSE
  [20:18:28.221]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.223] plan(): nbrOfWorkers() = 2
  [20:18:28.224] Future #2
  [20:18:28.226] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [20:18:28.226] - nx: 2
  [20:18:28.227] - relay: TRUE
  [20:18:28.227] - stdout: TRUE
  [20:18:28.227] - signal: TRUE
  [20:18:28.228] - resignal: FALSE
  [20:18:28.228] - force: FALSE
  [20:18:28.228] - relayed: [n=2] TRUE, FALSE
  [20:18:28.228] - queued futures: [n=2] TRUE, FALSE
  [20:18:28.229]  - until=2
  [20:18:28.229]  - relaying element #2
  [20:18:28.230] - relayed: [n=2] TRUE, TRUE
  [20:18:28.230] - queued futures: [n=2] TRUE, TRUE
  [20:18:28.230] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [20:18:28.231]  length: 0 (resolved future 2)
  [20:18:28.231] Relaying remaining futures
  [20:18:28.231] signalConditionsASAP(NULL, pos=0) ...
  [20:18:28.232] - nx: 2
  [20:18:28.232] - relay: TRUE
  [20:18:28.232] - stdout: TRUE
  [20:18:28.232] - signal: TRUE
  [20:18:28.233] - resignal: FALSE
  [20:18:28.233] - force: FALSE
  [20:18:28.233] - relayed: [n=2] TRUE, TRUE
  [20:18:28.234] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:18:28.234] - relayed: [n=2] TRUE, TRUE
  [20:18:28.234] - queued futures: [n=2] TRUE, TRUE
  [20:18:28.235] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:28.235] resolve() on list ... DONE
  [20:18:28.235] - collecting values of futures
  [20:18:28.236] - accumulating results
  [20:18:28.242] - processing errors (handler = 'stop')
  [20:18:28.242] - extracting results
  [20:18:28.243] doFuture() ... DONE
  - plan(list('multicore', 'cluster')) ... DONE
  - plan(list('multisession', 'sequential')) ...
  [20:18:28.244] plan(): Setting new future strategy stack:
  [20:18:28.244] List of future strategies:
  [20:18:28.244] 1. multisession:
  [20:18:28.244]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.244]    - tweaked: FALSE
  [20:18:28.244]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.244] 2. sequential:
  [20:18:28.244]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.244]    - tweaked: FALSE
  [20:18:28.244]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:28.245] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:18:28.246] multisession:
  [20:18:28.246] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:28.246] - tweaked: FALSE
  [20:18:28.246] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 35571
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f65e063e1c.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f65e063e1c.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f65e063e1c.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35571 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67f767036.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67f767036.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67f767036.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=35571 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:18:48.521] getGlobalsAndPackages() ...
  [20:18:48.522] Not searching for globals
  [20:18:48.522] - globals: [0] <none>
  [20:18:48.523] getGlobalsAndPackages() ... DONE
  [20:18:48.541] Packages needed by the future expression (n = 0): <none>
  [20:18:48.541] Packages needed by future strategies (n = 1): 'future'
  [20:18:48.545] {
  [20:18:48.545]     {
  [20:18:48.545]         ...future.startTime <- Sys.time()
  [20:18:48.545]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:48.545]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:48.545]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:48.545]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:48.545]             future.resolve.recursive = NULL, width = 80L)
  [20:18:48.545]         {
  [20:18:48.545]             {
  [20:18:48.545]                 {
  [20:18:48.545]                   {
  [20:18:48.545]                     has_future <- requireNamespace("future", 
  [20:18:48.545]                       quietly = TRUE)
  [20:18:48.545]                     version <- if (has_future) 
  [20:18:48.545]                       packageVersion("future")
  [20:18:48.545]                     else NULL
  [20:18:48.545]                     if (!has_future || version < "1.8.0") {
  [20:18:48.545]                       info <- c(r_version = gsub("R version ", 
  [20:18:48.545]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:48.545]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:48.545]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:48.545]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:48.545]                       info <- sprintf("%s: %s", names(info), 
  [20:18:48.545]                         info)
  [20:18:48.545]                       info <- paste(info, collapse = "; ")
  [20:18:48.545]                       if (!has_future) {
  [20:18:48.545]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:48.545]                           info)
  [20:18:48.545]                       }
  [20:18:48.545]                       else {
  [20:18:48.545]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:48.545]                           info, version)
  [20:18:48.545]                       }
  [20:18:48.545]                       stop(msg)
  [20:18:48.545]                     }
  [20:18:48.545]                   }
  [20:18:48.545]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:48.545]                   options(mc.cores = 1L)
  [20:18:48.545]                 }
  [20:18:48.545]                 local({
  [20:18:48.545]                   for (pkg in "future") {
  [20:18:48.545]                     loadNamespace(pkg)
  [20:18:48.545]                     library(pkg, character.only = TRUE)
  [20:18:48.545]                   }
  [20:18:48.545]                 })
  [20:18:48.545]             }
  [20:18:48.545]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:48.545]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:48.545]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:48.545]                 label = NULL, ...) 
  [20:18:48.545]             {
  [20:18:48.545]                 if (substitute) 
  [20:18:48.545]                   expr <- substitute(expr)
  [20:18:48.545]                 local <- as.logical(local)
  [20:18:48.545]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:48.545]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:48.545]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:48.545]                   label = label, ...)
  [20:18:48.545]                 if (!future$lazy) 
  [20:18:48.545]                   future <- run(future)
  [20:18:48.545]                 invisible(future)
  [20:18:48.545]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:48.545]         }
  [20:18:48.545]     }
  [20:18:48.545]     if (is.na(TRUE)) {
  [20:18:48.545]     }
  [20:18:48.545]     else {
  [20:18:48.545]         if (TRUE) {
  [20:18:48.545]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:48.545]         }
  [20:18:48.545]         else {
  [20:18:48.545]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:48.545]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:48.545]         }
  [20:18:48.545]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:48.545]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:48.545]             sink(type = "output", split = FALSE)
  [20:18:48.545]             close(...future.stdout)
  [20:18:48.545]         }, add = TRUE)
  [20:18:48.545]     }
  [20:18:48.545]     ...future.frame <- sys.nframe()
  [20:18:48.545]     ...future.conditions <- list()
  [20:18:48.545]     ...future.result <- tryCatch({
  [20:18:48.545]         withCallingHandlers({
  [20:18:48.545]             ...future.value <- withVisible(local(NA))
  [20:18:48.545]             future::FutureResult(value = ...future.value$value, 
  [20:18:48.545]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:48.545]                 version = "1.8")
  [20:18:48.545]         }, condition = local({
  [20:18:48.545]             inherits <- base::inherits
  [20:18:48.545]             invokeRestart <- base::invokeRestart
  [20:18:48.545]             length <- base::length
  [20:18:48.545]             seq.int <- base::seq.int
  [20:18:48.545]             sys.calls <- base::sys.calls
  [20:18:48.545]             `[[` <- base::`[[`
  [20:18:48.545]             `+` <- base::`+`
  [20:18:48.545]             `<<-` <- base::`<<-`
  [20:18:48.545]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:48.545]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:48.545]                   3L)]
  [20:18:48.545]             }
  [20:18:48.545]             function(cond) {
  [20:18:48.545]                 if (inherits(cond, "error")) {
  [20:18:48.545]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:48.545]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:48.545]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:48.545]                     signaled = 0L)
  [20:18:48.545]                   signalCondition(cond)
  [20:18:48.545]                 }
  [20:18:48.545]                 else if (inherits(cond, "condition")) {
  [20:18:48.545]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:48.545]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:48.545]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:48.545]                   if (!signal) {
  [20:18:48.545]                     muffleCondition <- function (cond) 
  [20:18:48.545]                     {
  [20:18:48.545]                       inherits <- base::inherits
  [20:18:48.545]                       invokeRestart <- base::invokeRestart
  [20:18:48.545]                       muffled <- FALSE
  [20:18:48.545]                       if (inherits(cond, "message")) {
  [20:18:48.545]                         invokeRestart("muffleMessage")
  [20:18:48.545]                         muffled <- TRUE
  [20:18:48.545]                       }
  [20:18:48.545]                       else if (inherits(cond, "warning")) {
  [20:18:48.545]                         invokeRestart("muffleWarning")
  [20:18:48.545]                         muffled <- TRUE
  [20:18:48.545]                       }
  [20:18:48.545]                       else if (inherits(cond, "condition")) {
  [20:18:48.545]                         computeRestarts <- base::computeRestarts
  [20:18:48.545]                         grepl <- base::grepl
  [20:18:48.545]                         is.null <- base::is.null
  [20:18:48.545]                         restarts <- computeRestarts(cond)
  [20:18:48.545]                         for (restart in restarts) {
  [20:18:48.545]                           name <- restart$name
  [20:18:48.545]                           if (is.null(name)) 
  [20:18:48.545]                             next
  [20:18:48.545]                           if (!grepl("^muffle", name)) 
  [20:18:48.545]                             next
  [20:18:48.545]                           invokeRestart(restart)
  [20:18:48.545]                           muffled <- TRUE
  [20:18:48.545]                           break
  [20:18:48.545]                         }
  [20:18:48.545]                       }
  [20:18:48.545]                       invisible(muffled)
  [20:18:48.545]                     }
  [20:18:48.545]                     muffleCondition(cond)
  [20:18:48.545]                   }
  [20:18:48.545]                 }
  [20:18:48.545]             }
  [20:18:48.545]         }))
  [20:18:48.545]     }, error = function(ex) {
  [20:18:48.545]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:48.545]             version = "1.8"), class = "FutureResult")
  [20:18:48.545]     }, finally = {
  [20:18:48.545]         {
  [20:18:48.545]             {
  [20:18:48.545]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:48.545]             }
  [20:18:48.545]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:48.545]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:48.545]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:48.545]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:48.545]                 ...) 
  [20:18:48.545]             {
  [20:18:48.545]                 if (substitute) 
  [20:18:48.545]                   expr <- substitute(expr)
  [20:18:48.545]                 if (is.function(workers)) 
  [20:18:48.545]                   workers <- workers()
  [20:18:48.545]                 workers <- as.integer(workers)
  [20:18:48.545]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:48.545]                   workers >= 1)
  [20:18:48.545]                 if (workers == 1L) {
  [20:18:48.545]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:48.545]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:48.545]                     local = TRUE, label = label, ...))
  [20:18:48.545]                 }
  [20:18:48.545]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:48.545]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:48.545]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:48.545]                   globals = globals, persistent = persistent, 
  [20:18:48.545]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:48.545]                   label = label, ...)
  [20:18:48.545]                 if (!future$lazy) 
  [20:18:48.545]                   future <- run(future)
  [20:18:48.545]                 invisible(future)
  [20:18:48.545]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:48.545]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:48.545]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:48.545]             {
  [20:18:48.545]                 if (substitute) 
  [20:18:48.545]                   expr <- substitute(expr)
  [20:18:48.545]                 local <- as.logical(local)
  [20:18:48.545]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:48.545]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:48.545]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:48.545]                   label = label, ...)
  [20:18:48.545]                 if (!future$lazy) 
  [20:18:48.545]                   future <- run(future)
  [20:18:48.545]                 invisible(future)
  [20:18:48.545]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:48.545]         }
  [20:18:48.545]         options(...future.oldOptions)
  [20:18:48.545]     })
  [20:18:48.545]     if (is.na(TRUE)) {
  [20:18:48.545]     }
  [20:18:48.545]     else {
  [20:18:48.545]         sink(type = "output", split = FALSE)
  [20:18:48.545]         if (TRUE) {
  [20:18:48.545]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:48.545]         }
  [20:18:48.545]         else {
  [20:18:48.545]             ...future.result["stdout"] <- list(NULL)
  [20:18:48.545]         }
  [20:18:48.545]         close(...future.stdout)
  [20:18:48.545]         ...future.stdout <- NULL
  [20:18:48.545]     }
  [20:18:48.545]     ...future.result$conditions <- ...future.conditions
  [20:18:48.545]     ...future.result
  [20:18:48.545] }
  [20:18:48.552] MultisessionFuture started
  [20:18:48.553] result() for ClusterFuture ...
  [20:18:48.553] - Validating connection of MultisessionFuture
  [20:18:48.892] - class(result): FutureResult
  [20:18:48.893] result() for ClusterFuture ...
  [20:18:48.893] - result already collected: FutureResult
  [20:18:48.894] result() for ClusterFuture ... done
  [20:18:48.894] result() for ClusterFuture ... done
  [20:18:48.894] result() for ClusterFuture ...
  [20:18:48.895] - result already collected: FutureResult
  [20:18:48.895] result() for ClusterFuture ... done
  [20:18:48.895] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:18:48.896] plan(): nbrOfWorkers() = 2
  [20:18:48.897] doFuture() ...
  [20:18:48.900] - dummy globals (as locals): [2] 'a', 'b'
  [20:18:48.901] - R expression:
  [20:18:48.902] {
  [20:18:48.902]     doFuture::registerDoFuture()
  [20:18:48.902]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:48.902]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:48.902]         {
  [20:18:48.902]             a <- NULL
  [20:18:48.902]             b <- NULL
  [20:18:48.902]         }
  [20:18:48.902]         ...future.env <- environment()
  [20:18:48.902]         local({
  [20:18:48.902]             for (name in names(...future.x_jj)) {
  [20:18:48.902]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:48.902]                   inherits = FALSE)
  [20:18:48.902]             }
  [20:18:48.902]         })
  [20:18:48.902]         tryCatch({
  [20:18:48.902]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:48.902]                 plan = future::plan())
  [20:18:48.902]         }, error = identity)
  [20:18:48.902]     })
  [20:18:48.902] }
  [20:18:48.902] - identifying globals and packages ...
  [20:18:48.903] getGlobalsAndPackages() ...
  [20:18:48.903] Searching for globals...
  [20:18:48.928] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:18:48.929] Searching for globals ... DONE
  [20:18:48.960] Resolving globals: FALSE
  [20:18:48.962] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:18:48.962] - globals: [1] '...future.x_ii'
  [20:18:48.962] 
  [20:18:48.963] getGlobalsAndPackages() ... DONE
  [20:18:48.963] List of 1
  [20:18:48.963]  $ ...future.x_ii: NULL
  [20:18:48.963]  - attr(*, "where")=List of 1
  [20:18:48.963]   ..$ ...future.x_ii:<environment: 0x55aab1be4ae8> 
  [20:18:48.963]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:48.963]  - attr(*, "resolved")= logi FALSE
  [20:18:48.963]  - attr(*, "total_size")= num 0
  [20:18:48.986]   - R expression:
  [20:18:48.986] {
  [20:18:48.986]     doFuture::registerDoFuture()
  [20:18:48.986]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:48.986]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:48.986]         {
  [20:18:48.986]             a <- NULL
  [20:18:48.986]             b <- NULL
  [20:18:48.986]         }
  [20:18:48.986]         ...future.env <- environment()
  [20:18:48.986]         local({
  [20:18:48.986]             for (name in names(...future.x_jj)) {
  [20:18:48.986]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:48.986]                   inherits = FALSE)
  [20:18:48.986]             }
  [20:18:48.986]         })
  [20:18:48.986]         tryCatch({
  [20:18:48.986]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:48.986]                 plan = future::plan())
  [20:18:48.986]         }, error = identity)
  [20:18:48.986]     })
  [20:18:48.986] }
  [20:18:48.987]   - globals: [1] '...future.x_ii'
  [20:18:48.988] List of 1
  [20:18:48.988]  $ ...future.x_ii: NULL
  [20:18:48.988]  - attr(*, "where")=List of 1
  [20:18:48.988]   ..$ ...future.x_ii:<environment: 0x55aab1be4ae8> 
  [20:18:48.988]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:18:48.988]  - attr(*, "resolved")= logi FALSE
  [20:18:48.988]  - attr(*, "total_size")= num 0
  [20:18:48.994]   - packages: [1] 'doFuture'
  [20:18:48.994] - identifying globals and packages ... DONE
  [20:18:48.995] Number of chunks: 2
  [20:18:48.996] Number of futures (= number of chunks): 2
  [20:18:48.996] Launching 2 futures (chunks) ...
  [20:18:48.996] Chunk #1 of 2 ...
  [20:18:48.996]  - Finding globals in 'args_list' chunk #1 ...
  [20:18:48.997] getGlobalsAndPackages() ...
  [20:18:48.997] Searching for globals...
  [20:18:49.016] 
  [20:18:49.016] Searching for globals ... DONE
  [20:18:49.016] - globals: [0] <none>
  [20:18:49.017] getGlobalsAndPackages() ... DONE
  [20:18:49.017] 
  [20:18:49.017] 
  [20:18:49.018]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:18:49.025] getGlobalsAndPackages() ...
  [20:18:49.025] - globals passed as-is: [1] '...future.x_ii'
  [20:18:49.026] Resolving globals: FALSE
  [20:18:49.027] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:49.027] - globals: [1] '...future.x_ii'
  [20:18:49.027] 
  [20:18:49.028] getGlobalsAndPackages() ... DONE
  [20:18:49.029] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:49.046] Packages needed by future strategies (n = 1): 'future'
  [20:18:49.050] {
  [20:18:49.050]     {
  [20:18:49.050]         ...future.startTime <- Sys.time()
  [20:18:49.050]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:49.050]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:49.050]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:49.050]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:49.050]             future.resolve.recursive = NULL, width = 80L)
  [20:18:49.050]         {
  [20:18:49.050]             {
  [20:18:49.050]                 {
  [20:18:49.050]                   {
  [20:18:49.050]                     has_future <- requireNamespace("future", 
  [20:18:49.050]                       quietly = TRUE)
  [20:18:49.050]                     version <- if (has_future) 
  [20:18:49.050]                       packageVersion("future")
  [20:18:49.050]                     else NULL
  [20:18:49.050]                     if (!has_future || version < "1.8.0") {
  [20:18:49.050]                       info <- c(r_version = gsub("R version ", 
  [20:18:49.050]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:49.050]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:49.050]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:49.050]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:49.050]                       info <- sprintf("%s: %s", names(info), 
  [20:18:49.050]                         info)
  [20:18:49.050]                       info <- paste(info, collapse = "; ")
  [20:18:49.050]                       if (!has_future) {
  [20:18:49.050]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:49.050]                           info)
  [20:18:49.050]                       }
  [20:18:49.050]                       else {
  [20:18:49.050]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:49.050]                           info, version)
  [20:18:49.050]                       }
  [20:18:49.050]                       stop(msg)
  [20:18:49.050]                     }
  [20:18:49.050]                   }
  [20:18:49.050]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:49.050]                   options(mc.cores = 1L)
  [20:18:49.050]                 }
  [20:18:49.050]                 local({
  [20:18:49.050]                   for (pkg in c("doFuture", "future")) {
  [20:18:49.050]                     loadNamespace(pkg)
  [20:18:49.050]                     library(pkg, character.only = TRUE)
  [20:18:49.050]                   }
  [20:18:49.050]                 })
  [20:18:49.050]             }
  [20:18:49.050]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:49.050]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:49.050]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:49.050]                 label = NULL, ...) 
  [20:18:49.050]             {
  [20:18:49.050]                 if (substitute) 
  [20:18:49.050]                   expr <- substitute(expr)
  [20:18:49.050]                 local <- as.logical(local)
  [20:18:49.050]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:49.050]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.050]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:49.050]                   label = label, ...)
  [20:18:49.050]                 if (!future$lazy) 
  [20:18:49.050]                   future <- run(future)
  [20:18:49.050]                 invisible(future)
  [20:18:49.050]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:49.050]         }
  [20:18:49.050]     }
  [20:18:49.050]     if (is.na(TRUE)) {
  [20:18:49.050]     }
  [20:18:49.050]     else {
  [20:18:49.050]         if (TRUE) {
  [20:18:49.050]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:49.050]         }
  [20:18:49.050]         else {
  [20:18:49.050]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:49.050]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:49.050]         }
  [20:18:49.050]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:49.050]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:49.050]             sink(type = "output", split = FALSE)
  [20:18:49.050]             close(...future.stdout)
  [20:18:49.050]         }, add = TRUE)
  [20:18:49.050]     }
  [20:18:49.050]     ...future.frame <- sys.nframe()
  [20:18:49.050]     ...future.conditions <- list()
  [20:18:49.050]     ...future.result <- tryCatch({
  [20:18:49.050]         withCallingHandlers({
  [20:18:49.050]             ...future.value <- withVisible(local({
  [20:18:49.050]                 doFuture::registerDoFuture()
  [20:18:49.050]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:49.050]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:49.050]                   {
  [20:18:49.050]                     a <- NULL
  [20:18:49.050]                     b <- NULL
  [20:18:49.050]                   }
  [20:18:49.050]                   ...future.env <- environment()
  [20:18:49.050]                   local({
  [20:18:49.050]                     for (name in names(...future.x_jj)) {
  [20:18:49.050]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:49.050]                         inherits = FALSE)
  [20:18:49.050]                     }
  [20:18:49.050]                   })
  [20:18:49.050]                   tryCatch({
  [20:18:49.050]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:49.050]                       plan = future::plan())
  [20:18:49.050]                   }, error = identity)
  [20:18:49.050]                 })
  [20:18:49.050]             }))
  [20:18:49.050]             future::FutureResult(value = ...future.value$value, 
  [20:18:49.050]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:49.050]                 version = "1.8")
  [20:18:49.050]         }, condition = local({
  [20:18:49.050]             inherits <- base::inherits
  [20:18:49.050]             invokeRestart <- base::invokeRestart
  [20:18:49.050]             length <- base::length
  [20:18:49.050]             seq.int <- base::seq.int
  [20:18:49.050]             sys.calls <- base::sys.calls
  [20:18:49.050]             `[[` <- base::`[[`
  [20:18:49.050]             `+` <- base::`+`
  [20:18:49.050]             `<<-` <- base::`<<-`
  [20:18:49.050]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:49.050]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:49.050]                   3L)]
  [20:18:49.050]             }
  [20:18:49.050]             function(cond) {
  [20:18:49.050]                 if (inherits(cond, "error")) {
  [20:18:49.050]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:49.050]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:49.050]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:49.050]                     signaled = 0L)
  [20:18:49.050]                   signalCondition(cond)
  [20:18:49.050]                 }
  [20:18:49.050]                 else if (inherits(cond, "condition")) {
  [20:18:49.050]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:49.050]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:49.050]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:49.050]                   if (!signal) {
  [20:18:49.050]                     muffleCondition <- function (cond) 
  [20:18:49.050]                     {
  [20:18:49.050]                       inherits <- base::inherits
  [20:18:49.050]                       invokeRestart <- base::invokeRestart
  [20:18:49.050]                       muffled <- FALSE
  [20:18:49.050]                       if (inherits(cond, "message")) {
  [20:18:49.050]                         invokeRestart("muffleMessage")
  [20:18:49.050]                         muffled <- TRUE
  [20:18:49.050]                       }
  [20:18:49.050]                       else if (inherits(cond, "warning")) {
  [20:18:49.050]                         invokeRestart("muffleWarning")
  [20:18:49.050]                         muffled <- TRUE
  [20:18:49.050]                       }
  [20:18:49.050]                       else if (inherits(cond, "condition")) {
  [20:18:49.050]                         computeRestarts <- base::computeRestarts
  [20:18:49.050]                         grepl <- base::grepl
  [20:18:49.050]                         is.null <- base::is.null
  [20:18:49.050]                         restarts <- computeRestarts(cond)
  [20:18:49.050]                         for (restart in restarts) {
  [20:18:49.050]                           name <- restart$name
  [20:18:49.050]                           if (is.null(name)) 
  [20:18:49.050]                             next
  [20:18:49.050]                           if (!grepl("^muffle", name)) 
  [20:18:49.050]                             next
  [20:18:49.050]                           invokeRestart(restart)
  [20:18:49.050]                           muffled <- TRUE
  [20:18:49.050]                           break
  [20:18:49.050]                         }
  [20:18:49.050]                       }
  [20:18:49.050]                       invisible(muffled)
  [20:18:49.050]                     }
  [20:18:49.050]                     muffleCondition(cond)
  [20:18:49.050]                   }
  [20:18:49.050]                 }
  [20:18:49.050]             }
  [20:18:49.050]         }))
  [20:18:49.050]     }, error = function(ex) {
  [20:18:49.050]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:49.050]             version = "1.8"), class = "FutureResult")
  [20:18:49.050]     }, finally = {
  [20:18:49.050]         {
  [20:18:49.050]             {
  [20:18:49.050]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:49.050]             }
  [20:18:49.050]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:49.050]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:49.050]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:49.050]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:49.050]                 ...) 
  [20:18:49.050]             {
  [20:18:49.050]                 if (substitute) 
  [20:18:49.050]                   expr <- substitute(expr)
  [20:18:49.050]                 if (is.function(workers)) 
  [20:18:49.050]                   workers <- workers()
  [20:18:49.050]                 workers <- as.integer(workers)
  [20:18:49.050]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:49.050]                   workers >= 1)
  [20:18:49.050]                 if (workers == 1L) {
  [20:18:49.050]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:49.050]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:49.050]                     local = TRUE, label = label, ...))
  [20:18:49.050]                 }
  [20:18:49.050]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:49.050]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:49.050]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.050]                   globals = globals, persistent = persistent, 
  [20:18:49.050]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:49.050]                   label = label, ...)
  [20:18:49.050]                 if (!future$lazy) 
  [20:18:49.050]                   future <- run(future)
  [20:18:49.050]                 invisible(future)
  [20:18:49.050]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:49.050]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:49.050]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:49.050]             {
  [20:18:49.050]                 if (substitute) 
  [20:18:49.050]                   expr <- substitute(expr)
  [20:18:49.050]                 local <- as.logical(local)
  [20:18:49.050]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:49.050]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.050]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:49.050]                   label = label, ...)
  [20:18:49.050]                 if (!future$lazy) 
  [20:18:49.050]                   future <- run(future)
  [20:18:49.050]                 invisible(future)
  [20:18:49.050]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:49.050]         }
  [20:18:49.050]         options(...future.oldOptions)
  [20:18:49.050]     })
  [20:18:49.050]     if (is.na(TRUE)) {
  [20:18:49.050]     }
  [20:18:49.050]     else {
  [20:18:49.050]         sink(type = "output", split = FALSE)
  [20:18:49.050]         if (TRUE) {
  [20:18:49.050]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:49.050]         }
  [20:18:49.050]         else {
  [20:18:49.050]             ...future.result["stdout"] <- list(NULL)
  [20:18:49.050]         }
  [20:18:49.050]         close(...future.stdout)
  [20:18:49.050]         ...future.stdout <- NULL
  [20:18:49.050]     }
  [20:18:49.050]     ...future.result$conditions <- ...future.conditions
  [20:18:49.050]     ...future.result
  [20:18:49.050] }
  [20:18:49.070] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:18:49.071] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:18:49.072] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:18:49.072] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:18:49.073] MultisessionFuture started
  [20:18:49.074] Chunk #1 of 2 ... DONE
  [20:18:49.074] Chunk #2 of 2 ...
  [20:18:49.074]  - Finding globals in 'args_list' chunk #2 ...
  [20:18:49.074] getGlobalsAndPackages() ...
  [20:18:49.075] Searching for globals...
  [20:18:49.076] 
  [20:18:49.076] Searching for globals ... DONE
  [20:18:49.076] - globals: [0] <none>
  [20:18:49.076] getGlobalsAndPackages() ... DONE
  [20:18:49.077] 
  [20:18:49.077] 
  [20:18:49.077]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:18:49.085] getGlobalsAndPackages() ...
  [20:18:49.085] - globals passed as-is: [1] '...future.x_ii'
  [20:18:49.102] Resolving globals: FALSE
  [20:18:49.103] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:18:49.103] - globals: [1] '...future.x_ii'
  [20:18:49.104] 
  [20:18:49.104] getGlobalsAndPackages() ... DONE
  [20:18:49.112] Packages needed by the future expression (n = 1): 'doFuture'
  [20:18:49.113] Packages needed by future strategies (n = 1): 'future'
  [20:18:49.145] {
  [20:18:49.145]     {
  [20:18:49.145]         ...future.startTime <- Sys.time()
  [20:18:49.145]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:18:49.145]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:18:49.145]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:18:49.145]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:18:49.145]             future.resolve.recursive = NULL, width = 80L)
  [20:18:49.145]         {
  [20:18:49.145]             {
  [20:18:49.145]                 {
  [20:18:49.145]                   {
  [20:18:49.145]                     has_future <- requireNamespace("future", 
  [20:18:49.145]                       quietly = TRUE)
  [20:18:49.145]                     version <- if (has_future) 
  [20:18:49.145]                       packageVersion("future")
  [20:18:49.145]                     else NULL
  [20:18:49.145]                     if (!has_future || version < "1.8.0") {
  [20:18:49.145]                       info <- c(r_version = gsub("R version ", 
  [20:18:49.145]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:18:49.145]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:18:49.145]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:18:49.145]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:18:49.145]                       info <- sprintf("%s: %s", names(info), 
  [20:18:49.145]                         info)
  [20:18:49.145]                       info <- paste(info, collapse = "; ")
  [20:18:49.145]                       if (!has_future) {
  [20:18:49.145]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:18:49.145]                           info)
  [20:18:49.145]                       }
  [20:18:49.145]                       else {
  [20:18:49.145]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:18:49.145]                           info, version)
  [20:18:49.145]                       }
  [20:18:49.145]                       stop(msg)
  [20:18:49.145]                     }
  [20:18:49.145]                   }
  [20:18:49.145]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:18:49.145]                   options(mc.cores = 1L)
  [20:18:49.145]                 }
  [20:18:49.145]                 local({
  [20:18:49.145]                   for (pkg in c("doFuture", "future")) {
  [20:18:49.145]                     loadNamespace(pkg)
  [20:18:49.145]                     library(pkg, character.only = TRUE)
  [20:18:49.145]                   }
  [20:18:49.145]                 })
  [20:18:49.145]             }
  [20:18:49.145]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:18:49.145]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:49.145]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:18:49.145]                 label = NULL, ...) 
  [20:18:49.145]             {
  [20:18:49.145]                 if (substitute) 
  [20:18:49.145]                   expr <- substitute(expr)
  [20:18:49.145]                 local <- as.logical(local)
  [20:18:49.145]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:49.145]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.145]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:49.145]                   label = label, ...)
  [20:18:49.145]                 if (!future$lazy) 
  [20:18:49.145]                   future <- run(future)
  [20:18:49.145]                 invisible(future)
  [20:18:49.145]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:49.145]         }
  [20:18:49.145]     }
  [20:18:49.145]     if (is.na(TRUE)) {
  [20:18:49.145]     }
  [20:18:49.145]     else {
  [20:18:49.145]         if (TRUE) {
  [20:18:49.145]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:18:49.145]         }
  [20:18:49.145]         else {
  [20:18:49.145]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:18:49.145]                 windows = "NUL", "/dev/null"), open = "w")
  [20:18:49.145]         }
  [20:18:49.145]         sink(...future.stdout, type = "output", split = FALSE)
  [20:18:49.145]         on.exit(if (!is.null(...future.stdout)) {
  [20:18:49.145]             sink(type = "output", split = FALSE)
  [20:18:49.145]             close(...future.stdout)
  [20:18:49.145]         }, add = TRUE)
  [20:18:49.145]     }
  [20:18:49.145]     ...future.frame <- sys.nframe()
  [20:18:49.145]     ...future.conditions <- list()
  [20:18:49.145]     ...future.result <- tryCatch({
  [20:18:49.145]         withCallingHandlers({
  [20:18:49.145]             ...future.value <- withVisible(local({
  [20:18:49.145]                 doFuture::registerDoFuture()
  [20:18:49.145]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:18:49.145]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:18:49.145]                   {
  [20:18:49.145]                     a <- NULL
  [20:18:49.145]                     b <- NULL
  [20:18:49.145]                   }
  [20:18:49.145]                   ...future.env <- environment()
  [20:18:49.145]                   local({
  [20:18:49.145]                     for (name in names(...future.x_jj)) {
  [20:18:49.145]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:18:49.145]                         inherits = FALSE)
  [20:18:49.145]                     }
  [20:18:49.145]                   })
  [20:18:49.145]                   tryCatch({
  [20:18:49.145]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:18:49.145]                       plan = future::plan())
  [20:18:49.145]                   }, error = identity)
  [20:18:49.145]                 })
  [20:18:49.145]             }))
  [20:18:49.145]             future::FutureResult(value = ...future.value$value, 
  [20:18:49.145]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:18:49.145]                 version = "1.8")
  [20:18:49.145]         }, condition = local({
  [20:18:49.145]             inherits <- base::inherits
  [20:18:49.145]             invokeRestart <- base::invokeRestart
  [20:18:49.145]             length <- base::length
  [20:18:49.145]             seq.int <- base::seq.int
  [20:18:49.145]             sys.calls <- base::sys.calls
  [20:18:49.145]             `[[` <- base::`[[`
  [20:18:49.145]             `+` <- base::`+`
  [20:18:49.145]             `<<-` <- base::`<<-`
  [20:18:49.145]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:18:49.145]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:18:49.145]                   3L)]
  [20:18:49.145]             }
  [20:18:49.145]             function(cond) {
  [20:18:49.145]                 if (inherits(cond, "error")) {
  [20:18:49.145]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:49.145]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:18:49.145]                     cond$call), timestamp = base::Sys.time(), 
  [20:18:49.145]                     signaled = 0L)
  [20:18:49.145]                   signalCondition(cond)
  [20:18:49.145]                 }
  [20:18:49.145]                 else if (inherits(cond, "condition")) {
  [20:18:49.145]                   signal <- FALSE && inherits(cond, character(0))
  [20:18:49.145]                   ...future.conditions[[length(...future.conditions) + 
  [20:18:49.145]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:18:49.145]                   if (!signal) {
  [20:18:49.145]                     muffleCondition <- function (cond) 
  [20:18:49.145]                     {
  [20:18:49.145]                       inherits <- base::inherits
  [20:18:49.145]                       invokeRestart <- base::invokeRestart
  [20:18:49.145]                       muffled <- FALSE
  [20:18:49.145]                       if (inherits(cond, "message")) {
  [20:18:49.145]                         invokeRestart("muffleMessage")
  [20:18:49.145]                         muffled <- TRUE
  [20:18:49.145]                       }
  [20:18:49.145]                       else if (inherits(cond, "warning")) {
  [20:18:49.145]                         invokeRestart("muffleWarning")
  [20:18:49.145]                         muffled <- TRUE
  [20:18:49.145]                       }
  [20:18:49.145]                       else if (inherits(cond, "condition")) {
  [20:18:49.145]                         computeRestarts <- base::computeRestarts
  [20:18:49.145]                         grepl <- base::grepl
  [20:18:49.145]                         is.null <- base::is.null
  [20:18:49.145]                         restarts <- computeRestarts(cond)
  [20:18:49.145]                         for (restart in restarts) {
  [20:18:49.145]                           name <- restart$name
  [20:18:49.145]                           if (is.null(name)) 
  [20:18:49.145]                             next
  [20:18:49.145]                           if (!grepl("^muffle", name)) 
  [20:18:49.145]                             next
  [20:18:49.145]                           invokeRestart(restart)
  [20:18:49.145]                           muffled <- TRUE
  [20:18:49.145]                           break
  [20:18:49.145]                         }
  [20:18:49.145]                       }
  [20:18:49.145]                       invisible(muffled)
  [20:18:49.145]                     }
  [20:18:49.145]                     muffleCondition(cond)
  [20:18:49.145]                   }
  [20:18:49.145]                 }
  [20:18:49.145]             }
  [20:18:49.145]         }))
  [20:18:49.145]     }, error = function(ex) {
  [20:18:49.145]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:18:49.145]             version = "1.8"), class = "FutureResult")
  [20:18:49.145]     }, finally = {
  [20:18:49.145]         {
  [20:18:49.145]             {
  [20:18:49.145]                 options(mc.cores = ...future.mc.cores.old)
  [20:18:49.145]             }
  [20:18:49.145]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:18:49.145]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:18:49.145]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:18:49.145]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:18:49.145]                 ...) 
  [20:18:49.145]             {
  [20:18:49.145]                 if (substitute) 
  [20:18:49.145]                   expr <- substitute(expr)
  [20:18:49.145]                 if (is.function(workers)) 
  [20:18:49.145]                   workers <- workers()
  [20:18:49.145]                 workers <- as.integer(workers)
  [20:18:49.145]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:18:49.145]                   workers >= 1)
  [20:18:49.145]                 if (workers == 1L) {
  [20:18:49.145]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:18:49.145]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:18:49.145]                     local = TRUE, label = label, ...))
  [20:18:49.145]                 }
  [20:18:49.145]                 workers <- ClusterRegistry("start", workers = workers)
  [20:18:49.145]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:18:49.145]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.145]                   globals = globals, persistent = persistent, 
  [20:18:49.145]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:18:49.145]                   label = label, ...)
  [20:18:49.145]                 if (!future$lazy) 
  [20:18:49.145]                   future <- run(future)
  [20:18:49.145]                 invisible(future)
  [20:18:49.145]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:18:49.145]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:18:49.145]                 earlySignal = FALSE, label = NULL, ...) 
  [20:18:49.145]             {
  [20:18:49.145]                 if (substitute) 
  [20:18:49.145]                   expr <- substitute(expr)
  [20:18:49.145]                 local <- as.logical(local)
  [20:18:49.145]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:18:49.145]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:18:49.145]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:18:49.145]                   label = label, ...)
  [20:18:49.145]                 if (!future$lazy) 
  [20:18:49.145]                   future <- run(future)
  [20:18:49.145]                 invisible(future)
  [20:18:49.145]             }), .cleanup = FALSE, .init = FALSE)
  [20:18:49.145]         }
  [20:18:49.145]         options(...future.oldOptions)
  [20:18:49.145]     })
  [20:18:49.145]     if (is.na(TRUE)) {
  [20:18:49.145]     }
  [20:18:49.145]     else {
  [20:18:49.145]         sink(type = "output", split = FALSE)
  [20:18:49.145]         if (TRUE) {
  [20:18:49.145]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:18:49.145]         }
  [20:18:49.145]         else {
  [20:18:49.145]             ...future.result["stdout"] <- list(NULL)
  [20:18:49.145]         }
  [20:18:49.145]         close(...future.stdout)
  [20:18:49.145]         ...future.stdout <- NULL
  [20:18:49.145]     }
  [20:18:49.145]     ...future.result$conditions <- ...future.conditions
  [20:18:49.145]     ...future.result
  [20:18:49.145] }
  [20:18:49.162] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:18:49.163] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:18:49.164] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:18:49.164] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:18:49.165] MultisessionFuture started
  [20:18:49.166] Chunk #2 of 2 ... DONE
  [20:18:49.166] Launching 2 futures (chunks) ... DONE
  [20:18:49.166] - resolving futures
  [20:18:49.166]   - gathering results & relaying conditions (except errors)
  [20:18:49.167] resolve() on list ...
  [20:18:49.167]  recursive: 0
  [20:18:49.167]  length: 2
  [20:18:49.167] 
  [20:18:49.673] Future #1
  [20:18:49.673] result() for ClusterFuture ...
  [20:18:49.674] - Validating connection of MultisessionFuture
  [20:18:49.675] - class(result): FutureResult
  [20:18:49.675] result() for ClusterFuture ...
  [20:18:49.675] - result already collected: FutureResult
  [20:18:49.675] result() for ClusterFuture ... done
  [20:18:49.676] result() for ClusterFuture ... done
  [20:18:49.676] result() for ClusterFuture ...
  [20:18:49.676] - result already collected: FutureResult
  [20:18:49.676] result() for ClusterFuture ... done
  [20:18:49.677] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:18:49.677] - nx: 2
  [20:18:49.677] - relay: TRUE
  [20:18:49.677] - stdout: TRUE
  [20:18:49.678] - signal: TRUE
  [20:18:49.678] - resignal: FALSE
  [20:18:49.678] - force: FALSE
  [20:18:49.678] - relayed: [n=2] FALSE, FALSE
  [20:18:49.678] - queued futures: [n=2] FALSE, FALSE
  [20:18:49.679]  - until=1
  [20:18:49.679]  - relaying element #1
  [20:18:49.679] result() for ClusterFuture ...
  [20:18:49.680] - result already collected: FutureResult
  [20:18:49.680] result() for ClusterFuture ... done
  [20:18:49.680] result() for ClusterFuture ...
  [20:18:49.680] - result already collected: FutureResult
  [20:18:49.681] result() for ClusterFuture ... done
  [20:18:49.681] result() for ClusterFuture ...
  [20:18:49.681] - result already collected: FutureResult
  [20:18:49.681] result() for ClusterFuture ... done
  [20:18:49.682] result() for ClusterFuture ...
  [20:18:49.682] - result already collected: FutureResult
  [20:18:49.682] result() for ClusterFuture ... done
  [20:18:49.682] - relayed: [n=2] TRUE, FALSE
  [20:18:49.683] - queued futures: [n=2] TRUE, FALSE
  [20:18:49.683] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:18:49.683]  length: 1 (resolved future 1)
  [20:18:49.685] Future #2
  [20:18:49.685] result() for ClusterFuture ...
  [20:18:49.685] - Validating connection of MultisessionFuture
  [20:18:49.686] - class(result): FutureResult
  [20:18:49.686] result() for ClusterFuture ...
  [20:18:49.687] - result already collected: FutureResult
  [20:18:49.687] result() for ClusterFuture ... done
  [20:18:49.687] result() for ClusterFuture ... done
  [20:18:49.687] result() for ClusterFuture ...
  [20:18:49.688] - result already collected: FutureResult
  [20:18:49.688] result() for ClusterFuture ... done
  [20:18:49.688] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:18:49.689] - nx: 2
  [20:18:49.689] - relay: TRUE
  [20:18:49.689] - stdout: TRUE
  [20:18:49.689] - signal: TRUE
  [20:18:49.689] - resignal: FALSE
  [20:18:49.706] - force: FALSE
  [20:18:49.706] - relayed: [n=2] TRUE, FALSE
  [20:18:49.706] - queued futures: [n=2] TRUE, FALSE
  [20:18:49.707]  - until=2
  [20:18:49.707]  - relaying element #2
  [20:18:49.707] result() for ClusterFuture ...
  [20:18:49.707] - result already collected: FutureResult
  [20:18:49.708] result() for ClusterFuture ... done
  [20:18:49.708] result() for ClusterFuture ...
  [20:18:49.708] - result already collected: FutureResult
  [20:18:49.708] result() for ClusterFuture ... done
  [20:18:49.709] result() for ClusterFuture ...
  [20:18:49.709] - result already collected: FutureResult
  [20:18:49.709] result() for ClusterFuture ... done
  [20:18:49.710] result() for ClusterFuture ...
  [20:18:49.710] - result already collected: FutureResult
  [20:18:49.710] result() for ClusterFuture ... done
  [20:18:49.710] - relayed: [n=2] TRUE, TRUE
  [20:18:49.711] - queued futures: [n=2] TRUE, TRUE
  [20:18:49.711] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:18:49.711]  length: 0 (resolved future 2)
  [20:18:49.712] Relaying remaining futures
  [20:18:49.712] signalConditionsASAP(NULL, pos=0) ...
  [20:18:49.712] - nx: 2
  [20:18:49.712] - relay: TRUE
  [20:18:49.713] - stdout: TRUE
  [20:18:49.713] - signal: TRUE
  [20:18:49.713] - resignal: FALSE
  [20:18:49.713] - force: FALSE
  [20:18:49.714] - relayed: [n=2] TRUE, TRUE
  [20:18:49.714] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:18:49.714] - relayed: [n=2] TRUE, TRUE
  [20:18:49.715] - queued futures: [n=2] TRUE, TRUE
  [20:18:49.715] signalConditionsASAP(NULL, pos=0) ... done
  [20:18:49.715] resolve() on list ... DONE
  [20:18:49.715] - collecting values of futures
  [20:18:49.716] result() for ClusterFuture ...
  [20:18:49.716] - result already collected: FutureResult
  [20:18:49.716] result() for ClusterFuture ... done
  [20:18:49.717] result() for ClusterFuture ...
  [20:18:49.717] - result already collected: FutureResult
  [20:18:49.717] result() for ClusterFuture ... done
  [20:18:49.718] result() for ClusterFuture ...
  [20:18:49.718] - result already collected: FutureResult
  [20:18:49.718] result() for ClusterFuture ... done
  [20:18:49.718] result() for ClusterFuture ...
  [20:18:49.719] - result already collected: FutureResult
  [20:18:49.719] result() for ClusterFuture ... done
  [20:18:49.742] - accumulating results
  [20:18:49.744] - processing errors (handler = 'stop')
  [20:18:49.745] - extracting results
  [20:18:49.745] doFuture() ... DONE
  - plan(list('multisession', 'sequential')) ... DONE
  - plan(list('multisession', 'multicore')) ...
  [20:18:49.746] plan(): Setting new future strategy stack:
  [20:18:49.746] List of future strategies:
  [20:18:49.746] 1. multisession:
  [20:18:49.746]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:49.746]    - tweaked: FALSE
  [20:18:49.746]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:49.746] 2. multicore:
  [20:18:49.746]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:18:49.746]    - tweaked: FALSE
  [20:18:49.746]    - call: plan(list(a = strategy1, b = strategy2))
  [20:18:49.763] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:18:49.763] multisession:
  [20:18:49.763] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:18:49.763] - tweaked: FALSE
  [20:18:49.763] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 25985
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67d18c2fa.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67d18c2fa.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67d18c2fa.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=25985 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f6466d8833.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f6466d8833.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f6466d8833.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=25985 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:19:08.807] getGlobalsAndPackages() ...
  [20:19:08.808] Not searching for globals
  [20:19:08.808] - globals: [0] <none>
  [20:19:08.808] getGlobalsAndPackages() ... DONE
  [20:19:08.810] Packages needed by the future expression (n = 0): <none>
  [20:19:08.810] Packages needed by future strategies (n = 1): 'future'
  [20:19:08.814] {
  [20:19:08.814]     {
  [20:19:08.814]         ...future.startTime <- Sys.time()
  [20:19:08.814]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:08.814]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:08.814]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:08.814]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:08.814]             future.resolve.recursive = NULL, width = 80L)
  [20:19:08.814]         {
  [20:19:08.814]             {
  [20:19:08.814]                 {
  [20:19:08.814]                   {
  [20:19:08.814]                     has_future <- requireNamespace("future", 
  [20:19:08.814]                       quietly = TRUE)
  [20:19:08.814]                     version <- if (has_future) 
  [20:19:08.814]                       packageVersion("future")
  [20:19:08.814]                     else NULL
  [20:19:08.814]                     if (!has_future || version < "1.8.0") {
  [20:19:08.814]                       info <- c(r_version = gsub("R version ", 
  [20:19:08.814]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:08.814]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:08.814]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:08.814]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:08.814]                       info <- sprintf("%s: %s", names(info), 
  [20:19:08.814]                         info)
  [20:19:08.814]                       info <- paste(info, collapse = "; ")
  [20:19:08.814]                       if (!has_future) {
  [20:19:08.814]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:08.814]                           info)
  [20:19:08.814]                       }
  [20:19:08.814]                       else {
  [20:19:08.814]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:08.814]                           info, version)
  [20:19:08.814]                       }
  [20:19:08.814]                       stop(msg)
  [20:19:08.814]                     }
  [20:19:08.814]                   }
  [20:19:08.814]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:08.814]                   options(mc.cores = 1L)
  [20:19:08.814]                 }
  [20:19:08.814]                 local({
  [20:19:08.814]                   for (pkg in "future") {
  [20:19:08.814]                     loadNamespace(pkg)
  [20:19:08.814]                     library(pkg, character.only = TRUE)
  [20:19:08.814]                   }
  [20:19:08.814]                 })
  [20:19:08.814]             }
  [20:19:08.814]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:08.814]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:08.814]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:08.814]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:08.814]             {
  [20:19:08.814]                 if (substitute) 
  [20:19:08.814]                   expr <- substitute(expr)
  [20:19:08.814]                 if (is.function(workers)) 
  [20:19:08.814]                   workers <- workers()
  [20:19:08.814]                 workers <- as.integer(workers)
  [20:19:08.814]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:08.814]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:08.814]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:08.814]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:08.814]                     local = TRUE, label = label, ...))
  [20:19:08.814]                 }
  [20:19:08.814]                 oopts <- options(mc.cores = workers)
  [20:19:08.814]                 on.exit(options(oopts))
  [20:19:08.814]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:08.814]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:08.814]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:08.814]                   label = label, ...)
  [20:19:08.814]                 if (!future$lazy) 
  [20:19:08.814]                   future <- run(future)
  [20:19:08.814]                 invisible(future)
  [20:19:08.814]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:08.814]         }
  [20:19:08.814]     }
  [20:19:08.814]     if (is.na(TRUE)) {
  [20:19:08.814]     }
  [20:19:08.814]     else {
  [20:19:08.814]         if (TRUE) {
  [20:19:08.814]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:08.814]         }
  [20:19:08.814]         else {
  [20:19:08.814]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:08.814]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:08.814]         }
  [20:19:08.814]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:08.814]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:08.814]             sink(type = "output", split = FALSE)
  [20:19:08.814]             close(...future.stdout)
  [20:19:08.814]         }, add = TRUE)
  [20:19:08.814]     }
  [20:19:08.814]     ...future.frame <- sys.nframe()
  [20:19:08.814]     ...future.conditions <- list()
  [20:19:08.814]     ...future.result <- tryCatch({
  [20:19:08.814]         withCallingHandlers({
  [20:19:08.814]             ...future.value <- withVisible(local(NA))
  [20:19:08.814]             future::FutureResult(value = ...future.value$value, 
  [20:19:08.814]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:08.814]                 version = "1.8")
  [20:19:08.814]         }, condition = local({
  [20:19:08.814]             inherits <- base::inherits
  [20:19:08.814]             invokeRestart <- base::invokeRestart
  [20:19:08.814]             length <- base::length
  [20:19:08.814]             seq.int <- base::seq.int
  [20:19:08.814]             sys.calls <- base::sys.calls
  [20:19:08.814]             `[[` <- base::`[[`
  [20:19:08.814]             `+` <- base::`+`
  [20:19:08.814]             `<<-` <- base::`<<-`
  [20:19:08.814]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:08.814]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:08.814]                   3L)]
  [20:19:08.814]             }
  [20:19:08.814]             function(cond) {
  [20:19:08.814]                 if (inherits(cond, "error")) {
  [20:19:08.814]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:08.814]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:08.814]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:08.814]                     signaled = 0L)
  [20:19:08.814]                   signalCondition(cond)
  [20:19:08.814]                 }
  [20:19:08.814]                 else if (inherits(cond, "condition")) {
  [20:19:08.814]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:08.814]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:08.814]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:08.814]                   if (!signal) {
  [20:19:08.814]                     muffleCondition <- function (cond) 
  [20:19:08.814]                     {
  [20:19:08.814]                       inherits <- base::inherits
  [20:19:08.814]                       invokeRestart <- base::invokeRestart
  [20:19:08.814]                       muffled <- FALSE
  [20:19:08.814]                       if (inherits(cond, "message")) {
  [20:19:08.814]                         invokeRestart("muffleMessage")
  [20:19:08.814]                         muffled <- TRUE
  [20:19:08.814]                       }
  [20:19:08.814]                       else if (inherits(cond, "warning")) {
  [20:19:08.814]                         invokeRestart("muffleWarning")
  [20:19:08.814]                         muffled <- TRUE
  [20:19:08.814]                       }
  [20:19:08.814]                       else if (inherits(cond, "condition")) {
  [20:19:08.814]                         computeRestarts <- base::computeRestarts
  [20:19:08.814]                         grepl <- base::grepl
  [20:19:08.814]                         is.null <- base::is.null
  [20:19:08.814]                         restarts <- computeRestarts(cond)
  [20:19:08.814]                         for (restart in restarts) {
  [20:19:08.814]                           name <- restart$name
  [20:19:08.814]                           if (is.null(name)) 
  [20:19:08.814]                             next
  [20:19:08.814]                           if (!grepl("^muffle", name)) 
  [20:19:08.814]                             next
  [20:19:08.814]                           invokeRestart(restart)
  [20:19:08.814]                           muffled <- TRUE
  [20:19:08.814]                           break
  [20:19:08.814]                         }
  [20:19:08.814]                       }
  [20:19:08.814]                       invisible(muffled)
  [20:19:08.814]                     }
  [20:19:08.814]                     muffleCondition(cond)
  [20:19:08.814]                   }
  [20:19:08.814]                 }
  [20:19:08.814]             }
  [20:19:08.814]         }))
  [20:19:08.814]     }, error = function(ex) {
  [20:19:08.814]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:08.814]             version = "1.8"), class = "FutureResult")
  [20:19:08.814]     }, finally = {
  [20:19:08.814]         {
  [20:19:08.814]             {
  [20:19:08.814]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:08.814]             }
  [20:19:08.814]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:08.814]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:08.814]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:08.814]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:08.814]                 ...) 
  [20:19:08.814]             {
  [20:19:08.814]                 if (substitute) 
  [20:19:08.814]                   expr <- substitute(expr)
  [20:19:08.814]                 if (is.function(workers)) 
  [20:19:08.814]                   workers <- workers()
  [20:19:08.814]                 workers <- as.integer(workers)
  [20:19:08.814]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:08.814]                   workers >= 1)
  [20:19:08.814]                 if (workers == 1L) {
  [20:19:08.814]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:08.814]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:08.814]                     local = TRUE, label = label, ...))
  [20:19:08.814]                 }
  [20:19:08.814]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:08.814]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:08.814]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:08.814]                   globals = globals, persistent = persistent, 
  [20:19:08.814]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:08.814]                   label = label, ...)
  [20:19:08.814]                 if (!future$lazy) 
  [20:19:08.814]                   future <- run(future)
  [20:19:08.814]                 invisible(future)
  [20:19:08.814]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:08.814]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:08.814]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:08.814]             {
  [20:19:08.814]                 if (substitute) 
  [20:19:08.814]                   expr <- substitute(expr)
  [20:19:08.814]                 if (is.function(workers)) 
  [20:19:08.814]                   workers <- workers()
  [20:19:08.814]                 workers <- as.integer(workers)
  [20:19:08.814]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:08.814]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:08.814]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:08.814]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:08.814]                     local = TRUE, label = label, ...))
  [20:19:08.814]                 }
  [20:19:08.814]                 oopts <- options(mc.cores = workers)
  [20:19:08.814]                 on.exit(options(oopts))
  [20:19:08.814]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:08.814]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:08.814]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:08.814]                   label = label, ...)
  [20:19:08.814]                 if (!future$lazy) 
  [20:19:08.814]                   future <- run(future)
  [20:19:08.814]                 invisible(future)
  [20:19:08.814]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:08.814]         }
  [20:19:08.814]         options(...future.oldOptions)
  [20:19:08.814]     })
  [20:19:08.814]     if (is.na(TRUE)) {
  [20:19:08.814]     }
  [20:19:08.814]     else {
  [20:19:08.814]         sink(type = "output", split = FALSE)
  [20:19:08.814]         if (TRUE) {
  [20:19:08.814]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:08.814]         }
  [20:19:08.814]         else {
  [20:19:08.814]             ...future.result["stdout"] <- list(NULL)
  [20:19:08.814]         }
  [20:19:08.814]         close(...future.stdout)
  [20:19:08.814]         ...future.stdout <- NULL
  [20:19:08.814]     }
  [20:19:08.814]     ...future.result$conditions <- ...future.conditions
  [20:19:08.814]     ...future.result
  [20:19:08.814] }
  [20:19:08.834] MultisessionFuture started
  [20:19:08.835] result() for ClusterFuture ...
  [20:19:08.835] - Validating connection of MultisessionFuture
  [20:19:09.118] - class(result): FutureResult
  [20:19:09.119] result() for ClusterFuture ...
  [20:19:09.119] - result already collected: FutureResult
  [20:19:09.119] result() for ClusterFuture ... done
  [20:19:09.119] result() for ClusterFuture ... done
  [20:19:09.120] result() for ClusterFuture ...
  [20:19:09.120] - result already collected: FutureResult
  [20:19:09.120] result() for ClusterFuture ... done
  [20:19:09.121] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:19:09.121] plan(): nbrOfWorkers() = 2
  [20:19:09.122] doFuture() ...
  [20:19:09.126] - dummy globals (as locals): [2] 'a', 'b'
  [20:19:09.127] - R expression:
  [20:19:09.127] {
  [20:19:09.127]     doFuture::registerDoFuture()
  [20:19:09.127]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:09.127]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:09.127]         {
  [20:19:09.127]             a <- NULL
  [20:19:09.127]             b <- NULL
  [20:19:09.127]         }
  [20:19:09.127]         ...future.env <- environment()
  [20:19:09.127]         local({
  [20:19:09.127]             for (name in names(...future.x_jj)) {
  [20:19:09.127]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:09.127]                   inherits = FALSE)
  [20:19:09.127]             }
  [20:19:09.127]         })
  [20:19:09.127]         tryCatch({
  [20:19:09.127]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:09.127]                 plan = future::plan())
  [20:19:09.127]         }, error = identity)
  [20:19:09.127]     })
  [20:19:09.127] }
  [20:19:09.128] - identifying globals and packages ...
  [20:19:09.128] getGlobalsAndPackages() ...
  [20:19:09.129] Searching for globals...
  [20:19:09.173] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:19:09.173] Searching for globals ... DONE
  [20:19:09.173] Resolving globals: FALSE
  [20:19:09.175] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:19:09.175] - globals: [1] '...future.x_ii'
  [20:19:09.175] 
  [20:19:09.175] getGlobalsAndPackages() ... DONE
  [20:19:09.176] List of 1
  [20:19:09.176]  $ ...future.x_ii: NULL
  [20:19:09.176]  - attr(*, "where")=List of 1
  [20:19:09.176]   ..$ ...future.x_ii:<environment: 0x55aab297d658> 
  [20:19:09.176]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:09.176]  - attr(*, "resolved")= logi FALSE
  [20:19:09.176]  - attr(*, "total_size")= num 0
  [20:19:09.182]   - R expression:
  [20:19:09.182] {
  [20:19:09.182]     doFuture::registerDoFuture()
  [20:19:09.182]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:09.182]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:09.182]         {
  [20:19:09.182]             a <- NULL
  [20:19:09.182]             b <- NULL
  [20:19:09.182]         }
  [20:19:09.182]         ...future.env <- environment()
  [20:19:09.182]         local({
  [20:19:09.182]             for (name in names(...future.x_jj)) {
  [20:19:09.182]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:09.182]                   inherits = FALSE)
  [20:19:09.182]             }
  [20:19:09.182]         })
  [20:19:09.182]         tryCatch({
  [20:19:09.182]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:09.182]                 plan = future::plan())
  [20:19:09.182]         }, error = identity)
  [20:19:09.182]     })
  [20:19:09.182] }
  [20:19:09.183]   - globals: [1] '...future.x_ii'
  [20:19:09.183] List of 1
  [20:19:09.183]  $ ...future.x_ii: NULL
  [20:19:09.183]  - attr(*, "where")=List of 1
  [20:19:09.183]   ..$ ...future.x_ii:<environment: 0x55aab297d658> 
  [20:19:09.183]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:09.183]  - attr(*, "resolved")= logi FALSE
  [20:19:09.183]  - attr(*, "total_size")= num 0
  [20:19:09.203]   - packages: [1] 'doFuture'
  [20:19:09.203] - identifying globals and packages ... DONE
  [20:19:09.205] Number of chunks: 2
  [20:19:09.205] Number of futures (= number of chunks): 2
  [20:19:09.205] Launching 2 futures (chunks) ...
  [20:19:09.205] Chunk #1 of 2 ...
  [20:19:09.206]  - Finding globals in 'args_list' chunk #1 ...
  [20:19:09.206] getGlobalsAndPackages() ...
  [20:19:09.206] Searching for globals...
  [20:19:09.207] 
  [20:19:09.207] Searching for globals ... DONE
  [20:19:09.208] - globals: [0] <none>
  [20:19:09.208] getGlobalsAndPackages() ... DONE
  [20:19:09.208] 
  [20:19:09.208] 
  [20:19:09.209]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:19:09.237] getGlobalsAndPackages() ...
  [20:19:09.237] - globals passed as-is: [1] '...future.x_ii'
  [20:19:09.237] Resolving globals: FALSE
  [20:19:09.238] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:09.239] - globals: [1] '...future.x_ii'
  [20:19:09.239] 
  [20:19:09.239] getGlobalsAndPackages() ... DONE
  [20:19:09.241] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:09.242] Packages needed by future strategies (n = 1): 'future'
  [20:19:09.377] {
  [20:19:09.377]     {
  [20:19:09.377]         ...future.startTime <- Sys.time()
  [20:19:09.377]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:09.377]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:09.377]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:09.377]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:09.377]             future.resolve.recursive = NULL, width = 80L)
  [20:19:09.377]         {
  [20:19:09.377]             {
  [20:19:09.377]                 {
  [20:19:09.377]                   {
  [20:19:09.377]                     has_future <- requireNamespace("future", 
  [20:19:09.377]                       quietly = TRUE)
  [20:19:09.377]                     version <- if (has_future) 
  [20:19:09.377]                       packageVersion("future")
  [20:19:09.377]                     else NULL
  [20:19:09.377]                     if (!has_future || version < "1.8.0") {
  [20:19:09.377]                       info <- c(r_version = gsub("R version ", 
  [20:19:09.377]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:09.377]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:09.377]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:09.377]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:09.377]                       info <- sprintf("%s: %s", names(info), 
  [20:19:09.377]                         info)
  [20:19:09.377]                       info <- paste(info, collapse = "; ")
  [20:19:09.377]                       if (!has_future) {
  [20:19:09.377]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:09.377]                           info)
  [20:19:09.377]                       }
  [20:19:09.377]                       else {
  [20:19:09.377]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:09.377]                           info, version)
  [20:19:09.377]                       }
  [20:19:09.377]                       stop(msg)
  [20:19:09.377]                     }
  [20:19:09.377]                   }
  [20:19:09.377]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:09.377]                   options(mc.cores = 1L)
  [20:19:09.377]                 }
  [20:19:09.377]                 local({
  [20:19:09.377]                   for (pkg in c("doFuture", "future")) {
  [20:19:09.377]                     loadNamespace(pkg)
  [20:19:09.377]                     library(pkg, character.only = TRUE)
  [20:19:09.377]                   }
  [20:19:09.377]                 })
  [20:19:09.377]             }
  [20:19:09.377]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:09.377]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:09.377]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:09.377]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:09.377]             {
  [20:19:09.377]                 if (substitute) 
  [20:19:09.377]                   expr <- substitute(expr)
  [20:19:09.377]                 if (is.function(workers)) 
  [20:19:09.377]                   workers <- workers()
  [20:19:09.377]                 workers <- as.integer(workers)
  [20:19:09.377]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:09.377]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:09.377]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.377]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:09.377]                     local = TRUE, label = label, ...))
  [20:19:09.377]                 }
  [20:19:09.377]                 oopts <- options(mc.cores = workers)
  [20:19:09.377]                 on.exit(options(oopts))
  [20:19:09.377]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:09.377]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.377]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:09.377]                   label = label, ...)
  [20:19:09.377]                 if (!future$lazy) 
  [20:19:09.377]                   future <- run(future)
  [20:19:09.377]                 invisible(future)
  [20:19:09.377]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:09.377]         }
  [20:19:09.377]     }
  [20:19:09.377]     if (is.na(TRUE)) {
  [20:19:09.377]     }
  [20:19:09.377]     else {
  [20:19:09.377]         if (TRUE) {
  [20:19:09.377]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:09.377]         }
  [20:19:09.377]         else {
  [20:19:09.377]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:09.377]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:09.377]         }
  [20:19:09.377]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:09.377]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:09.377]             sink(type = "output", split = FALSE)
  [20:19:09.377]             close(...future.stdout)
  [20:19:09.377]         }, add = TRUE)
  [20:19:09.377]     }
  [20:19:09.377]     ...future.frame <- sys.nframe()
  [20:19:09.377]     ...future.conditions <- list()
  [20:19:09.377]     ...future.result <- tryCatch({
  [20:19:09.377]         withCallingHandlers({
  [20:19:09.377]             ...future.value <- withVisible(local({
  [20:19:09.377]                 doFuture::registerDoFuture()
  [20:19:09.377]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:09.377]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:09.377]                   {
  [20:19:09.377]                     a <- NULL
  [20:19:09.377]                     b <- NULL
  [20:19:09.377]                   }
  [20:19:09.377]                   ...future.env <- environment()
  [20:19:09.377]                   local({
  [20:19:09.377]                     for (name in names(...future.x_jj)) {
  [20:19:09.377]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:09.377]                         inherits = FALSE)
  [20:19:09.377]                     }
  [20:19:09.377]                   })
  [20:19:09.377]                   tryCatch({
  [20:19:09.377]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:09.377]                       plan = future::plan())
  [20:19:09.377]                   }, error = identity)
  [20:19:09.377]                 })
  [20:19:09.377]             }))
  [20:19:09.377]             future::FutureResult(value = ...future.value$value, 
  [20:19:09.377]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:09.377]                 version = "1.8")
  [20:19:09.377]         }, condition = local({
  [20:19:09.377]             inherits <- base::inherits
  [20:19:09.377]             invokeRestart <- base::invokeRestart
  [20:19:09.377]             length <- base::length
  [20:19:09.377]             seq.int <- base::seq.int
  [20:19:09.377]             sys.calls <- base::sys.calls
  [20:19:09.377]             `[[` <- base::`[[`
  [20:19:09.377]             `+` <- base::`+`
  [20:19:09.377]             `<<-` <- base::`<<-`
  [20:19:09.377]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:09.377]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:09.377]                   3L)]
  [20:19:09.377]             }
  [20:19:09.377]             function(cond) {
  [20:19:09.377]                 if (inherits(cond, "error")) {
  [20:19:09.377]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:09.377]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:09.377]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:09.377]                     signaled = 0L)
  [20:19:09.377]                   signalCondition(cond)
  [20:19:09.377]                 }
  [20:19:09.377]                 else if (inherits(cond, "condition")) {
  [20:19:09.377]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:09.377]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:09.377]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:09.377]                   if (!signal) {
  [20:19:09.377]                     muffleCondition <- function (cond) 
  [20:19:09.377]                     {
  [20:19:09.377]                       inherits <- base::inherits
  [20:19:09.377]                       invokeRestart <- base::invokeRestart
  [20:19:09.377]                       muffled <- FALSE
  [20:19:09.377]                       if (inherits(cond, "message")) {
  [20:19:09.377]                         invokeRestart("muffleMessage")
  [20:19:09.377]                         muffled <- TRUE
  [20:19:09.377]                       }
  [20:19:09.377]                       else if (inherits(cond, "warning")) {
  [20:19:09.377]                         invokeRestart("muffleWarning")
  [20:19:09.377]                         muffled <- TRUE
  [20:19:09.377]                       }
  [20:19:09.377]                       else if (inherits(cond, "condition")) {
  [20:19:09.377]                         computeRestarts <- base::computeRestarts
  [20:19:09.377]                         grepl <- base::grepl
  [20:19:09.377]                         is.null <- base::is.null
  [20:19:09.377]                         restarts <- computeRestarts(cond)
  [20:19:09.377]                         for (restart in restarts) {
  [20:19:09.377]                           name <- restart$name
  [20:19:09.377]                           if (is.null(name)) 
  [20:19:09.377]                             next
  [20:19:09.377]                           if (!grepl("^muffle", name)) 
  [20:19:09.377]                             next
  [20:19:09.377]                           invokeRestart(restart)
  [20:19:09.377]                           muffled <- TRUE
  [20:19:09.377]                           break
  [20:19:09.377]                         }
  [20:19:09.377]                       }
  [20:19:09.377]                       invisible(muffled)
  [20:19:09.377]                     }
  [20:19:09.377]                     muffleCondition(cond)
  [20:19:09.377]                   }
  [20:19:09.377]                 }
  [20:19:09.377]             }
  [20:19:09.377]         }))
  [20:19:09.377]     }, error = function(ex) {
  [20:19:09.377]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:09.377]             version = "1.8"), class = "FutureResult")
  [20:19:09.377]     }, finally = {
  [20:19:09.377]         {
  [20:19:09.377]             {
  [20:19:09.377]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:09.377]             }
  [20:19:09.377]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:09.377]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:09.377]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:09.377]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:09.377]                 ...) 
  [20:19:09.377]             {
  [20:19:09.377]                 if (substitute) 
  [20:19:09.377]                   expr <- substitute(expr)
  [20:19:09.377]                 if (is.function(workers)) 
  [20:19:09.377]                   workers <- workers()
  [20:19:09.377]                 workers <- as.integer(workers)
  [20:19:09.377]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:09.377]                   workers >= 1)
  [20:19:09.377]                 if (workers == 1L) {
  [20:19:09.377]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.377]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:09.377]                     local = TRUE, label = label, ...))
  [20:19:09.377]                 }
  [20:19:09.377]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:09.377]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:09.377]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.377]                   globals = globals, persistent = persistent, 
  [20:19:09.377]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:09.377]                   label = label, ...)
  [20:19:09.377]                 if (!future$lazy) 
  [20:19:09.377]                   future <- run(future)
  [20:19:09.377]                 invisible(future)
  [20:19:09.377]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:09.377]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:09.377]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:09.377]             {
  [20:19:09.377]                 if (substitute) 
  [20:19:09.377]                   expr <- substitute(expr)
  [20:19:09.377]                 if (is.function(workers)) 
  [20:19:09.377]                   workers <- workers()
  [20:19:09.377]                 workers <- as.integer(workers)
  [20:19:09.377]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:09.377]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:09.377]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.377]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:09.377]                     local = TRUE, label = label, ...))
  [20:19:09.377]                 }
  [20:19:09.377]                 oopts <- options(mc.cores = workers)
  [20:19:09.377]                 on.exit(options(oopts))
  [20:19:09.377]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:09.377]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.377]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:09.377]                   label = label, ...)
  [20:19:09.377]                 if (!future$lazy) 
  [20:19:09.377]                   future <- run(future)
  [20:19:09.377]                 invisible(future)
  [20:19:09.377]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:09.377]         }
  [20:19:09.377]         options(...future.oldOptions)
  [20:19:09.377]     })
  [20:19:09.377]     if (is.na(TRUE)) {
  [20:19:09.377]     }
  [20:19:09.377]     else {
  [20:19:09.377]         sink(type = "output", split = FALSE)
  [20:19:09.377]         if (TRUE) {
  [20:19:09.377]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:09.377]         }
  [20:19:09.377]         else {
  [20:19:09.377]             ...future.result["stdout"] <- list(NULL)
  [20:19:09.377]         }
  [20:19:09.377]         close(...future.stdout)
  [20:19:09.377]         ...future.stdout <- NULL
  [20:19:09.377]     }
  [20:19:09.377]     ...future.result$conditions <- ...future.conditions
  [20:19:09.377]     ...future.result
  [20:19:09.377] }
  [20:19:09.410] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:19:09.411] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:19:09.412] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:19:09.412] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:19:09.413] MultisessionFuture started
  [20:19:09.414] Chunk #1 of 2 ... DONE
  [20:19:09.414] Chunk #2 of 2 ...
  [20:19:09.414]  - Finding globals in 'args_list' chunk #2 ...
  [20:19:09.414] getGlobalsAndPackages() ...
  [20:19:09.415] Searching for globals...
  [20:19:09.415] 
  [20:19:09.416] Searching for globals ... DONE
  [20:19:09.416] - globals: [0] <none>
  [20:19:09.416] getGlobalsAndPackages() ... DONE
  [20:19:09.416] 
  [20:19:09.417] 
  [20:19:09.417]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:19:09.423] getGlobalsAndPackages() ...
  [20:19:09.424] - globals passed as-is: [1] '...future.x_ii'
  [20:19:09.424] Resolving globals: FALSE
  [20:19:09.425] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:09.425] - globals: [1] '...future.x_ii'
  [20:19:09.430] 
  [20:19:09.430] getGlobalsAndPackages() ... DONE
  [20:19:09.432] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:09.432] Packages needed by future strategies (n = 1): 'future'
  [20:19:09.436] {
  [20:19:09.436]     {
  [20:19:09.436]         ...future.startTime <- Sys.time()
  [20:19:09.436]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:09.436]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:09.436]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:09.436]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:09.436]             future.resolve.recursive = NULL, width = 80L)
  [20:19:09.436]         {
  [20:19:09.436]             {
  [20:19:09.436]                 {
  [20:19:09.436]                   {
  [20:19:09.436]                     has_future <- requireNamespace("future", 
  [20:19:09.436]                       quietly = TRUE)
  [20:19:09.436]                     version <- if (has_future) 
  [20:19:09.436]                       packageVersion("future")
  [20:19:09.436]                     else NULL
  [20:19:09.436]                     if (!has_future || version < "1.8.0") {
  [20:19:09.436]                       info <- c(r_version = gsub("R version ", 
  [20:19:09.436]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:09.436]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:09.436]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:09.436]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:09.436]                       info <- sprintf("%s: %s", names(info), 
  [20:19:09.436]                         info)
  [20:19:09.436]                       info <- paste(info, collapse = "; ")
  [20:19:09.436]                       if (!has_future) {
  [20:19:09.436]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:09.436]                           info)
  [20:19:09.436]                       }
  [20:19:09.436]                       else {
  [20:19:09.436]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:09.436]                           info, version)
  [20:19:09.436]                       }
  [20:19:09.436]                       stop(msg)
  [20:19:09.436]                     }
  [20:19:09.436]                   }
  [20:19:09.436]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:09.436]                   options(mc.cores = 1L)
  [20:19:09.436]                 }
  [20:19:09.436]                 local({
  [20:19:09.436]                   for (pkg in c("doFuture", "future")) {
  [20:19:09.436]                     loadNamespace(pkg)
  [20:19:09.436]                     library(pkg, character.only = TRUE)
  [20:19:09.436]                   }
  [20:19:09.436]                 })
  [20:19:09.436]             }
  [20:19:09.436]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:09.436]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:09.436]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:09.436]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:09.436]             {
  [20:19:09.436]                 if (substitute) 
  [20:19:09.436]                   expr <- substitute(expr)
  [20:19:09.436]                 if (is.function(workers)) 
  [20:19:09.436]                   workers <- workers()
  [20:19:09.436]                 workers <- as.integer(workers)
  [20:19:09.436]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:09.436]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:09.436]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.436]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:09.436]                     local = TRUE, label = label, ...))
  [20:19:09.436]                 }
  [20:19:09.436]                 oopts <- options(mc.cores = workers)
  [20:19:09.436]                 on.exit(options(oopts))
  [20:19:09.436]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:09.436]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.436]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:09.436]                   label = label, ...)
  [20:19:09.436]                 if (!future$lazy) 
  [20:19:09.436]                   future <- run(future)
  [20:19:09.436]                 invisible(future)
  [20:19:09.436]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:09.436]         }
  [20:19:09.436]     }
  [20:19:09.436]     if (is.na(TRUE)) {
  [20:19:09.436]     }
  [20:19:09.436]     else {
  [20:19:09.436]         if (TRUE) {
  [20:19:09.436]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:09.436]         }
  [20:19:09.436]         else {
  [20:19:09.436]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:09.436]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:09.436]         }
  [20:19:09.436]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:09.436]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:09.436]             sink(type = "output", split = FALSE)
  [20:19:09.436]             close(...future.stdout)
  [20:19:09.436]         }, add = TRUE)
  [20:19:09.436]     }
  [20:19:09.436]     ...future.frame <- sys.nframe()
  [20:19:09.436]     ...future.conditions <- list()
  [20:19:09.436]     ...future.result <- tryCatch({
  [20:19:09.436]         withCallingHandlers({
  [20:19:09.436]             ...future.value <- withVisible(local({
  [20:19:09.436]                 doFuture::registerDoFuture()
  [20:19:09.436]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:09.436]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:09.436]                   {
  [20:19:09.436]                     a <- NULL
  [20:19:09.436]                     b <- NULL
  [20:19:09.436]                   }
  [20:19:09.436]                   ...future.env <- environment()
  [20:19:09.436]                   local({
  [20:19:09.436]                     for (name in names(...future.x_jj)) {
  [20:19:09.436]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:09.436]                         inherits = FALSE)
  [20:19:09.436]                     }
  [20:19:09.436]                   })
  [20:19:09.436]                   tryCatch({
  [20:19:09.436]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:09.436]                       plan = future::plan())
  [20:19:09.436]                   }, error = identity)
  [20:19:09.436]                 })
  [20:19:09.436]             }))
  [20:19:09.436]             future::FutureResult(value = ...future.value$value, 
  [20:19:09.436]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:09.436]                 version = "1.8")
  [20:19:09.436]         }, condition = local({
  [20:19:09.436]             inherits <- base::inherits
  [20:19:09.436]             invokeRestart <- base::invokeRestart
  [20:19:09.436]             length <- base::length
  [20:19:09.436]             seq.int <- base::seq.int
  [20:19:09.436]             sys.calls <- base::sys.calls
  [20:19:09.436]             `[[` <- base::`[[`
  [20:19:09.436]             `+` <- base::`+`
  [20:19:09.436]             `<<-` <- base::`<<-`
  [20:19:09.436]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:09.436]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:09.436]                   3L)]
  [20:19:09.436]             }
  [20:19:09.436]             function(cond) {
  [20:19:09.436]                 if (inherits(cond, "error")) {
  [20:19:09.436]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:09.436]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:09.436]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:09.436]                     signaled = 0L)
  [20:19:09.436]                   signalCondition(cond)
  [20:19:09.436]                 }
  [20:19:09.436]                 else if (inherits(cond, "condition")) {
  [20:19:09.436]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:09.436]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:09.436]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:09.436]                   if (!signal) {
  [20:19:09.436]                     muffleCondition <- function (cond) 
  [20:19:09.436]                     {
  [20:19:09.436]                       inherits <- base::inherits
  [20:19:09.436]                       invokeRestart <- base::invokeRestart
  [20:19:09.436]                       muffled <- FALSE
  [20:19:09.436]                       if (inherits(cond, "message")) {
  [20:19:09.436]                         invokeRestart("muffleMessage")
  [20:19:09.436]                         muffled <- TRUE
  [20:19:09.436]                       }
  [20:19:09.436]                       else if (inherits(cond, "warning")) {
  [20:19:09.436]                         invokeRestart("muffleWarning")
  [20:19:09.436]                         muffled <- TRUE
  [20:19:09.436]                       }
  [20:19:09.436]                       else if (inherits(cond, "condition")) {
  [20:19:09.436]                         computeRestarts <- base::computeRestarts
  [20:19:09.436]                         grepl <- base::grepl
  [20:19:09.436]                         is.null <- base::is.null
  [20:19:09.436]                         restarts <- computeRestarts(cond)
  [20:19:09.436]                         for (restart in restarts) {
  [20:19:09.436]                           name <- restart$name
  [20:19:09.436]                           if (is.null(name)) 
  [20:19:09.436]                             next
  [20:19:09.436]                           if (!grepl("^muffle", name)) 
  [20:19:09.436]                             next
  [20:19:09.436]                           invokeRestart(restart)
  [20:19:09.436]                           muffled <- TRUE
  [20:19:09.436]                           break
  [20:19:09.436]                         }
  [20:19:09.436]                       }
  [20:19:09.436]                       invisible(muffled)
  [20:19:09.436]                     }
  [20:19:09.436]                     muffleCondition(cond)
  [20:19:09.436]                   }
  [20:19:09.436]                 }
  [20:19:09.436]             }
  [20:19:09.436]         }))
  [20:19:09.436]     }, error = function(ex) {
  [20:19:09.436]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:09.436]             version = "1.8"), class = "FutureResult")
  [20:19:09.436]     }, finally = {
  [20:19:09.436]         {
  [20:19:09.436]             {
  [20:19:09.436]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:09.436]             }
  [20:19:09.436]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:09.436]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:09.436]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:09.436]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:09.436]                 ...) 
  [20:19:09.436]             {
  [20:19:09.436]                 if (substitute) 
  [20:19:09.436]                   expr <- substitute(expr)
  [20:19:09.436]                 if (is.function(workers)) 
  [20:19:09.436]                   workers <- workers()
  [20:19:09.436]                 workers <- as.integer(workers)
  [20:19:09.436]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:09.436]                   workers >= 1)
  [20:19:09.436]                 if (workers == 1L) {
  [20:19:09.436]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.436]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:09.436]                     local = TRUE, label = label, ...))
  [20:19:09.436]                 }
  [20:19:09.436]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:09.436]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:09.436]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.436]                   globals = globals, persistent = persistent, 
  [20:19:09.436]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:09.436]                   label = label, ...)
  [20:19:09.436]                 if (!future$lazy) 
  [20:19:09.436]                   future <- run(future)
  [20:19:09.436]                 invisible(future)
  [20:19:09.436]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:09.436]                 lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [20:19:09.436]                 earlySignal = FALSE, label = NULL, ...) 
  [20:19:09.436]             {
  [20:19:09.436]                 if (substitute) 
  [20:19:09.436]                   expr <- substitute(expr)
  [20:19:09.436]                 if (is.function(workers)) 
  [20:19:09.436]                   workers <- workers()
  [20:19:09.436]                 workers <- as.integer(workers)
  [20:19:09.436]                 stop_if_not(is.finite(workers), workers >= 1L)
  [20:19:09.436]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [20:19:09.436]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:09.436]                     lazy = lazy, seed = seed, globals = globals, 
  [20:19:09.436]                     local = TRUE, label = label, ...))
  [20:19:09.436]                 }
  [20:19:09.436]                 oopts <- options(mc.cores = workers)
  [20:19:09.436]                 on.exit(options(oopts))
  [20:19:09.436]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [20:19:09.436]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:09.436]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [20:19:09.436]                   label = label, ...)
  [20:19:09.436]                 if (!future$lazy) 
  [20:19:09.436]                   future <- run(future)
  [20:19:09.436]                 invisible(future)
  [20:19:09.436]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:09.436]         }
  [20:19:09.436]         options(...future.oldOptions)
  [20:19:09.436]     })
  [20:19:09.436]     if (is.na(TRUE)) {
  [20:19:09.436]     }
  [20:19:09.436]     else {
  [20:19:09.436]         sink(type = "output", split = FALSE)
  [20:19:09.436]         if (TRUE) {
  [20:19:09.436]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:09.436]         }
  [20:19:09.436]         else {
  [20:19:09.436]             ...future.result["stdout"] <- list(NULL)
  [20:19:09.436]         }
  [20:19:09.436]         close(...future.stdout)
  [20:19:09.436]         ...future.stdout <- NULL
  [20:19:09.436]     }
  [20:19:09.436]     ...future.result$conditions <- ...future.conditions
  [20:19:09.436]     ...future.result
  [20:19:09.436] }
  [20:19:09.459] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:19:09.460] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:19:09.474] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:19:09.474] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:19:09.476] MultisessionFuture started
  [20:19:09.476] Chunk #2 of 2 ... DONE
  [20:19:09.476] Launching 2 futures (chunks) ... DONE
  [20:19:09.477] - resolving futures
  [20:19:09.477]   - gathering results & relaying conditions (except errors)
  [20:19:09.477] resolve() on list ...
  [20:19:09.477]  recursive: 0
  [20:19:09.478]  length: 2
  [20:19:09.478] 
  [20:19:09.983] Future #1
  [20:19:09.983] result() for ClusterFuture ...
  [20:19:09.984] - Validating connection of MultisessionFuture
  [20:19:09.985] - class(result): FutureResult
  [20:19:09.985] result() for ClusterFuture ...
  [20:19:09.985] - result already collected: FutureResult
  [20:19:09.986] result() for ClusterFuture ... done
  [20:19:09.986] result() for ClusterFuture ... done
  [20:19:09.986] result() for ClusterFuture ...
  [20:19:09.986] - result already collected: FutureResult
  [20:19:09.987] result() for ClusterFuture ... done
  [20:19:09.987] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:19:09.987] - nx: 2
  [20:19:09.987] - relay: TRUE
  [20:19:09.987] - stdout: TRUE
  [20:19:09.988] - signal: TRUE
  [20:19:09.988] - resignal: FALSE
  [20:19:09.988] - force: FALSE
  [20:19:09.988] - relayed: [n=2] FALSE, FALSE
  [20:19:09.988] - queued futures: [n=2] FALSE, FALSE
  [20:19:09.989]  - until=1
  [20:19:09.989]  - relaying element #1
  [20:19:09.989] result() for ClusterFuture ...
  [20:19:09.989] - result already collected: FutureResult
  [20:19:09.990] result() for ClusterFuture ... done
  [20:19:09.990] result() for ClusterFuture ...
  [20:19:09.990] - result already collected: FutureResult
  [20:19:09.990] result() for ClusterFuture ... done
  [20:19:09.991] result() for ClusterFuture ...
  [20:19:09.991] - result already collected: FutureResult
  [20:19:09.991] result() for ClusterFuture ... done
  [20:19:09.991] result() for ClusterFuture ...
  [20:19:09.991] - result already collected: FutureResult
  [20:19:09.992] result() for ClusterFuture ... done
  [20:19:09.992] - relayed: [n=2] TRUE, FALSE
  [20:19:09.992] - queued futures: [n=2] TRUE, FALSE
  [20:19:09.992] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:19:09.993]  length: 1 (resolved future 1)
  [20:19:09.994] Future #2
  [20:19:09.995] result() for ClusterFuture ...
  [20:19:09.995] - Validating connection of MultisessionFuture
  [20:19:10.010] - class(result): FutureResult
  [20:19:10.011] result() for ClusterFuture ...
  [20:19:10.011] - result already collected: FutureResult
  [20:19:10.012] result() for ClusterFuture ... done
  [20:19:10.012] result() for ClusterFuture ... done
  [20:19:10.012] result() for ClusterFuture ...
  [20:19:10.012] - result already collected: FutureResult
  [20:19:10.013] result() for ClusterFuture ... done
  [20:19:10.013] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:19:10.013] - nx: 2
  [20:19:10.013] - relay: TRUE
  [20:19:10.014] - stdout: TRUE
  [20:19:10.014] - signal: TRUE
  [20:19:10.014] - resignal: FALSE
  [20:19:10.014] - force: FALSE
  [20:19:10.015] - relayed: [n=2] TRUE, FALSE
  [20:19:10.015] - queued futures: [n=2] TRUE, FALSE
  [20:19:10.015]  - until=2
  [20:19:10.015]  - relaying element #2
  [20:19:10.016] result() for ClusterFuture ...
  [20:19:10.016] - result already collected: FutureResult
  [20:19:10.016] result() for ClusterFuture ... done
  [20:19:10.017] result() for ClusterFuture ...
  [20:19:10.017] - result already collected: FutureResult
  [20:19:10.017] result() for ClusterFuture ... done
  [20:19:10.018] result() for ClusterFuture ...
  [20:19:10.018] - result already collected: FutureResult
  [20:19:10.018] result() for ClusterFuture ... done
  [20:19:10.018] result() for ClusterFuture ...
  [20:19:10.019] - result already collected: FutureResult
  [20:19:10.019] result() for ClusterFuture ... done
  [20:19:10.019] - relayed: [n=2] TRUE, TRUE
  [20:19:10.020] - queued futures: [n=2] TRUE, TRUE
  [20:19:10.020] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:19:10.020]  length: 0 (resolved future 2)
  [20:19:10.020] Relaying remaining futures
  [20:19:10.039] signalConditionsASAP(NULL, pos=0) ...
  [20:19:10.039] - nx: 2
  [20:19:10.039] - relay: TRUE
  [20:19:10.040] - stdout: TRUE
  [20:19:10.050] - signal: TRUE
  [20:19:10.050] - resignal: FALSE
  [20:19:10.051] - force: FALSE
  [20:19:10.051] - relayed: [n=2] TRUE, TRUE
  [20:19:10.051] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:19:10.052] - relayed: [n=2] TRUE, TRUE
  [20:19:10.052] - queued futures: [n=2] TRUE, TRUE
  [20:19:10.052] signalConditionsASAP(NULL, pos=0) ... done
  [20:19:10.052] resolve() on list ... DONE
  [20:19:10.053] - collecting values of futures
  [20:19:10.053] result() for ClusterFuture ...
  [20:19:10.053] - result already collected: FutureResult
  [20:19:10.054] result() for ClusterFuture ... done
  [20:19:10.054] result() for ClusterFuture ...
  [20:19:10.054] - result already collected: FutureResult
  [20:19:10.054] result() for ClusterFuture ... done
  [20:19:10.055] result() for ClusterFuture ...
  [20:19:10.055] - result already collected: FutureResult
  [20:19:10.055] result() for ClusterFuture ... done
  [20:19:10.056] result() for ClusterFuture ...
  [20:19:10.056] - result already collected: FutureResult
  [20:19:10.056] result() for ClusterFuture ... done
  [20:19:10.057] - accumulating results
  [20:19:10.059] - processing errors (handler = 'stop')
  [20:19:10.059] - extracting results
  [20:19:10.059] doFuture() ... DONE
  - plan(list('multisession', 'multicore')) ... DONE
  - plan(list('multisession', 'multisession')) ...
  [20:19:10.061] plan(): Setting new future strategy stack:
  [20:19:10.061] List of future strategies:
  [20:19:10.061] 1. multisession:
  [20:19:10.061]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:10.061]    - tweaked: FALSE
  [20:19:10.061]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:10.061] 2. multisession:
  [20:19:10.061]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:10.061]    - tweaked: FALSE
  [20:19:10.061]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:10.087] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:19:10.088] multisession:
  [20:19:10.088] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:10.088] - tweaked: FALSE
  [20:19:10.088] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 28076
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f670550821.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f670550821.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f670550821.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28076 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f64edab978.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f64edab978.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f64edab978.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28076 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:19:28.546] getGlobalsAndPackages() ...
  [20:19:28.546] Not searching for globals
  [20:19:28.547] - globals: [0] <none>
  [20:19:28.547] getGlobalsAndPackages() ... DONE
  [20:19:28.549] Packages needed by the future expression (n = 0): <none>
  [20:19:28.549] Packages needed by future strategies (n = 1): 'future'
  [20:19:28.553] {
  [20:19:28.553]     {
  [20:19:28.553]         ...future.startTime <- Sys.time()
  [20:19:28.553]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:28.553]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:28.553]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:28.553]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:28.553]             future.resolve.recursive = NULL, width = 80L)
  [20:19:28.553]         {
  [20:19:28.553]             {
  [20:19:28.553]                 {
  [20:19:28.553]                   {
  [20:19:28.553]                     has_future <- requireNamespace("future", 
  [20:19:28.553]                       quietly = TRUE)
  [20:19:28.553]                     version <- if (has_future) 
  [20:19:28.553]                       packageVersion("future")
  [20:19:28.553]                     else NULL
  [20:19:28.553]                     if (!has_future || version < "1.8.0") {
  [20:19:28.553]                       info <- c(r_version = gsub("R version ", 
  [20:19:28.553]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:28.553]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:28.553]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:28.553]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:28.553]                       info <- sprintf("%s: %s", names(info), 
  [20:19:28.553]                         info)
  [20:19:28.553]                       info <- paste(info, collapse = "; ")
  [20:19:28.553]                       if (!has_future) {
  [20:19:28.553]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:28.553]                           info)
  [20:19:28.553]                       }
  [20:19:28.553]                       else {
  [20:19:28.553]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:28.553]                           info, version)
  [20:19:28.553]                       }
  [20:19:28.553]                       stop(msg)
  [20:19:28.553]                     }
  [20:19:28.553]                   }
  [20:19:28.553]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:28.553]                   options(mc.cores = 1L)
  [20:19:28.553]                 }
  [20:19:28.553]                 local({
  [20:19:28.553]                   for (pkg in "future") {
  [20:19:28.553]                     loadNamespace(pkg)
  [20:19:28.553]                     library(pkg, character.only = TRUE)
  [20:19:28.553]                   }
  [20:19:28.553]                 })
  [20:19:28.553]             }
  [20:19:28.553]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:28.553]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:28.553]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:28.553]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:28.553]                 ...) 
  [20:19:28.553]             {
  [20:19:28.553]                 if (substitute) 
  [20:19:28.553]                   expr <- substitute(expr)
  [20:19:28.553]                 if (is.function(workers)) 
  [20:19:28.553]                   workers <- workers()
  [20:19:28.553]                 workers <- as.integer(workers)
  [20:19:28.553]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:28.553]                   workers >= 1)
  [20:19:28.553]                 if (workers == 1L) {
  [20:19:28.553]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:28.553]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:28.553]                     local = TRUE, label = label, ...))
  [20:19:28.553]                 }
  [20:19:28.553]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:28.553]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:28.553]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:28.553]                   globals = globals, persistent = persistent, 
  [20:19:28.553]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:28.553]                   label = label, ...)
  [20:19:28.553]                 if (!future$lazy) 
  [20:19:28.553]                   future <- run(future)
  [20:19:28.553]                 invisible(future)
  [20:19:28.553]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:28.553]         }
  [20:19:28.553]     }
  [20:19:28.553]     if (is.na(TRUE)) {
  [20:19:28.553]     }
  [20:19:28.553]     else {
  [20:19:28.553]         if (TRUE) {
  [20:19:28.553]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:28.553]         }
  [20:19:28.553]         else {
  [20:19:28.553]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:28.553]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:28.553]         }
  [20:19:28.553]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:28.553]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:28.553]             sink(type = "output", split = FALSE)
  [20:19:28.553]             close(...future.stdout)
  [20:19:28.553]         }, add = TRUE)
  [20:19:28.553]     }
  [20:19:28.553]     ...future.frame <- sys.nframe()
  [20:19:28.553]     ...future.conditions <- list()
  [20:19:28.553]     ...future.result <- tryCatch({
  [20:19:28.553]         withCallingHandlers({
  [20:19:28.553]             ...future.value <- withVisible(local(NA))
  [20:19:28.553]             future::FutureResult(value = ...future.value$value, 
  [20:19:28.553]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:28.553]                 version = "1.8")
  [20:19:28.553]         }, condition = local({
  [20:19:28.553]             inherits <- base::inherits
  [20:19:28.553]             invokeRestart <- base::invokeRestart
  [20:19:28.553]             length <- base::length
  [20:19:28.553]             seq.int <- base::seq.int
  [20:19:28.553]             sys.calls <- base::sys.calls
  [20:19:28.553]             `[[` <- base::`[[`
  [20:19:28.553]             `+` <- base::`+`
  [20:19:28.553]             `<<-` <- base::`<<-`
  [20:19:28.553]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:28.553]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:28.553]                   3L)]
  [20:19:28.553]             }
  [20:19:28.553]             function(cond) {
  [20:19:28.553]                 if (inherits(cond, "error")) {
  [20:19:28.553]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:28.553]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:28.553]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:28.553]                     signaled = 0L)
  [20:19:28.553]                   signalCondition(cond)
  [20:19:28.553]                 }
  [20:19:28.553]                 else if (inherits(cond, "condition")) {
  [20:19:28.553]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:28.553]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:28.553]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:28.553]                   if (!signal) {
  [20:19:28.553]                     muffleCondition <- function (cond) 
  [20:19:28.553]                     {
  [20:19:28.553]                       inherits <- base::inherits
  [20:19:28.553]                       invokeRestart <- base::invokeRestart
  [20:19:28.553]                       muffled <- FALSE
  [20:19:28.553]                       if (inherits(cond, "message")) {
  [20:19:28.553]                         invokeRestart("muffleMessage")
  [20:19:28.553]                         muffled <- TRUE
  [20:19:28.553]                       }
  [20:19:28.553]                       else if (inherits(cond, "warning")) {
  [20:19:28.553]                         invokeRestart("muffleWarning")
  [20:19:28.553]                         muffled <- TRUE
  [20:19:28.553]                       }
  [20:19:28.553]                       else if (inherits(cond, "condition")) {
  [20:19:28.553]                         computeRestarts <- base::computeRestarts
  [20:19:28.553]                         grepl <- base::grepl
  [20:19:28.553]                         is.null <- base::is.null
  [20:19:28.553]                         restarts <- computeRestarts(cond)
  [20:19:28.553]                         for (restart in restarts) {
  [20:19:28.553]                           name <- restart$name
  [20:19:28.553]                           if (is.null(name)) 
  [20:19:28.553]                             next
  [20:19:28.553]                           if (!grepl("^muffle", name)) 
  [20:19:28.553]                             next
  [20:19:28.553]                           invokeRestart(restart)
  [20:19:28.553]                           muffled <- TRUE
  [20:19:28.553]                           break
  [20:19:28.553]                         }
  [20:19:28.553]                       }
  [20:19:28.553]                       invisible(muffled)
  [20:19:28.553]                     }
  [20:19:28.553]                     muffleCondition(cond)
  [20:19:28.553]                   }
  [20:19:28.553]                 }
  [20:19:28.553]             }
  [20:19:28.553]         }))
  [20:19:28.553]     }, error = function(ex) {
  [20:19:28.553]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:28.553]             version = "1.8"), class = "FutureResult")
  [20:19:28.553]     }, finally = {
  [20:19:28.553]         {
  [20:19:28.553]             {
  [20:19:28.553]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:28.553]             }
  [20:19:28.553]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:28.553]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:28.553]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:28.553]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:28.553]                 ...) 
  [20:19:28.553]             {
  [20:19:28.553]                 if (substitute) 
  [20:19:28.553]                   expr <- substitute(expr)
  [20:19:28.553]                 if (is.function(workers)) 
  [20:19:28.553]                   workers <- workers()
  [20:19:28.553]                 workers <- as.integer(workers)
  [20:19:28.553]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:28.553]                   workers >= 1)
  [20:19:28.553]                 if (workers == 1L) {
  [20:19:28.553]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:28.553]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:28.553]                     local = TRUE, label = label, ...))
  [20:19:28.553]                 }
  [20:19:28.553]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:28.553]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:28.553]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:28.553]                   globals = globals, persistent = persistent, 
  [20:19:28.553]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:28.553]                   label = label, ...)
  [20:19:28.553]                 if (!future$lazy) 
  [20:19:28.553]                   future <- run(future)
  [20:19:28.553]                 invisible(future)
  [20:19:28.553]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:28.553]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:28.553]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:19:28.553]                 label = NULL, ...) 
  [20:19:28.553]             {
  [20:19:28.553]                 if (substitute) 
  [20:19:28.553]                   expr <- substitute(expr)
  [20:19:28.553]                 if (is.function(workers)) 
  [20:19:28.553]                   workers <- workers()
  [20:19:28.553]                 workers <- as.integer(workers)
  [20:19:28.553]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:28.553]                   workers >= 1)
  [20:19:28.553]                 if (workers == 1L) {
  [20:19:28.553]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:28.553]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:28.553]                     local = TRUE, label = label, ...))
  [20:19:28.553]                 }
  [20:19:28.553]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:28.553]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:28.553]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:28.553]                   globals = globals, persistent = persistent, 
  [20:19:28.553]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:28.553]                   label = label, ...)
  [20:19:28.553]                 if (!future$lazy) 
  [20:19:28.553]                   future <- run(future)
  [20:19:28.553]                 invisible(future)
  [20:19:28.553]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:28.553]         }
  [20:19:28.553]         options(...future.oldOptions)
  [20:19:28.553]     })
  [20:19:28.553]     if (is.na(TRUE)) {
  [20:19:28.553]     }
  [20:19:28.553]     else {
  [20:19:28.553]         sink(type = "output", split = FALSE)
  [20:19:28.553]         if (TRUE) {
  [20:19:28.553]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:28.553]         }
  [20:19:28.553]         else {
  [20:19:28.553]             ...future.result["stdout"] <- list(NULL)
  [20:19:28.553]         }
  [20:19:28.553]         close(...future.stdout)
  [20:19:28.553]         ...future.stdout <- NULL
  [20:19:28.553]     }
  [20:19:28.553]     ...future.result$conditions <- ...future.conditions
  [20:19:28.553]     ...future.result
  [20:19:28.553] }
  [20:19:28.588] MultisessionFuture started
  [20:19:28.588] result() for ClusterFuture ...
  [20:19:28.589] - Validating connection of MultisessionFuture
  [20:19:28.998] - class(result): FutureResult
  [20:19:28.998] result() for ClusterFuture ...
  [20:19:28.999] - result already collected: FutureResult
  [20:19:28.999] result() for ClusterFuture ... done
  [20:19:28.999] result() for ClusterFuture ... done
  [20:19:29.000] result() for ClusterFuture ...
  [20:19:29.000] - result already collected: FutureResult
  [20:19:29.000] result() for ClusterFuture ... done
  [20:19:29.000] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:19:29.001] plan(): nbrOfWorkers() = 2
  [20:19:29.002] doFuture() ...
  [20:19:29.006] - dummy globals (as locals): [2] 'a', 'b'
  [20:19:29.008] - R expression:
  [20:19:29.008] {
  [20:19:29.008]     doFuture::registerDoFuture()
  [20:19:29.008]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:29.008]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:29.008]         {
  [20:19:29.008]             a <- NULL
  [20:19:29.008]             b <- NULL
  [20:19:29.008]         }
  [20:19:29.008]         ...future.env <- environment()
  [20:19:29.008]         local({
  [20:19:29.008]             for (name in names(...future.x_jj)) {
  [20:19:29.008]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:29.008]                   inherits = FALSE)
  [20:19:29.008]             }
  [20:19:29.008]         })
  [20:19:29.008]         tryCatch({
  [20:19:29.008]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:29.008]                 plan = future::plan())
  [20:19:29.008]         }, error = identity)
  [20:19:29.008]     })
  [20:19:29.008] }
  [20:19:29.009] - identifying globals and packages ...
  [20:19:29.009] getGlobalsAndPackages() ...
  [20:19:29.009] Searching for globals...
  [20:19:29.052] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:19:29.053] Searching for globals ... DONE
  [20:19:29.053] Resolving globals: FALSE
  [20:19:29.070] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:19:29.071] - globals: [1] '...future.x_ii'
  [20:19:29.071] 
  [20:19:29.071] getGlobalsAndPackages() ... DONE
  [20:19:29.072] List of 1
  [20:19:29.072]  $ ...future.x_ii: NULL
  [20:19:29.072]  - attr(*, "where")=List of 1
  [20:19:29.072]   ..$ ...future.x_ii:<environment: 0x55aab29777e0> 
  [20:19:29.072]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:29.072]  - attr(*, "resolved")= logi FALSE
  [20:19:29.072]  - attr(*, "total_size")= num 0
  [20:19:29.083]   - R expression:
  [20:19:29.084] {
  [20:19:29.084]     doFuture::registerDoFuture()
  [20:19:29.084]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:29.084]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:29.084]         {
  [20:19:29.084]             a <- NULL
  [20:19:29.084]             b <- NULL
  [20:19:29.084]         }
  [20:19:29.084]         ...future.env <- environment()
  [20:19:29.084]         local({
  [20:19:29.084]             for (name in names(...future.x_jj)) {
  [20:19:29.084]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:29.084]                   inherits = FALSE)
  [20:19:29.084]             }
  [20:19:29.084]         })
  [20:19:29.084]         tryCatch({
  [20:19:29.084]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:29.084]                 plan = future::plan())
  [20:19:29.084]         }, error = identity)
  [20:19:29.084]     })
  [20:19:29.084] }
  [20:19:29.085]   - globals: [1] '...future.x_ii'
  [20:19:29.085] List of 1
  [20:19:29.085]  $ ...future.x_ii: NULL
  [20:19:29.085]  - attr(*, "where")=List of 1
  [20:19:29.085]   ..$ ...future.x_ii:<environment: 0x55aab29777e0> 
  [20:19:29.085]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:29.085]  - attr(*, "resolved")= logi FALSE
  [20:19:29.085]  - attr(*, "total_size")= num 0
  [20:19:29.091]   - packages: [1] 'doFuture'
  [20:19:29.091] - identifying globals and packages ... DONE
  [20:19:29.093] Number of chunks: 2
  [20:19:29.093] Number of futures (= number of chunks): 2
  [20:19:29.093] Launching 2 futures (chunks) ...
  [20:19:29.093] Chunk #1 of 2 ...
  [20:19:29.110]  - Finding globals in 'args_list' chunk #1 ...
  [20:19:29.110] getGlobalsAndPackages() ...
  [20:19:29.111] Searching for globals...
  [20:19:29.111] 
  [20:19:29.112] Searching for globals ... DONE
  [20:19:29.112] - globals: [0] <none>
  [20:19:29.112] getGlobalsAndPackages() ... DONE
  [20:19:29.113] 
  [20:19:29.113] 
  [20:19:29.113]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:19:29.121] getGlobalsAndPackages() ...
  [20:19:29.121] - globals passed as-is: [1] '...future.x_ii'
  [20:19:29.122] Resolving globals: FALSE
  [20:19:29.122] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:29.123] - globals: [1] '...future.x_ii'
  [20:19:29.123] 
  [20:19:29.123] getGlobalsAndPackages() ... DONE
  [20:19:29.125] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:29.125] Packages needed by future strategies (n = 1): 'future'
  [20:19:29.149] {
  [20:19:29.149]     {
  [20:19:29.149]         ...future.startTime <- Sys.time()
  [20:19:29.149]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:29.149]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:29.149]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:29.149]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:29.149]             future.resolve.recursive = NULL, width = 80L)
  [20:19:29.149]         {
  [20:19:29.149]             {
  [20:19:29.149]                 {
  [20:19:29.149]                   {
  [20:19:29.149]                     has_future <- requireNamespace("future", 
  [20:19:29.149]                       quietly = TRUE)
  [20:19:29.149]                     version <- if (has_future) 
  [20:19:29.149]                       packageVersion("future")
  [20:19:29.149]                     else NULL
  [20:19:29.149]                     if (!has_future || version < "1.8.0") {
  [20:19:29.149]                       info <- c(r_version = gsub("R version ", 
  [20:19:29.149]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:29.149]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:29.149]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:29.149]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:29.149]                       info <- sprintf("%s: %s", names(info), 
  [20:19:29.149]                         info)
  [20:19:29.149]                       info <- paste(info, collapse = "; ")
  [20:19:29.149]                       if (!has_future) {
  [20:19:29.149]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:29.149]                           info)
  [20:19:29.149]                       }
  [20:19:29.149]                       else {
  [20:19:29.149]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:29.149]                           info, version)
  [20:19:29.149]                       }
  [20:19:29.149]                       stop(msg)
  [20:19:29.149]                     }
  [20:19:29.149]                   }
  [20:19:29.149]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:29.149]                   options(mc.cores = 1L)
  [20:19:29.149]                 }
  [20:19:29.149]                 local({
  [20:19:29.149]                   for (pkg in c("doFuture", "future")) {
  [20:19:29.149]                     loadNamespace(pkg)
  [20:19:29.149]                     library(pkg, character.only = TRUE)
  [20:19:29.149]                   }
  [20:19:29.149]                 })
  [20:19:29.149]             }
  [20:19:29.149]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:29.149]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:29.149]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:29.149]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:29.149]                 ...) 
  [20:19:29.149]             {
  [20:19:29.149]                 if (substitute) 
  [20:19:29.149]                   expr <- substitute(expr)
  [20:19:29.149]                 if (is.function(workers)) 
  [20:19:29.149]                   workers <- workers()
  [20:19:29.149]                 workers <- as.integer(workers)
  [20:19:29.149]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.149]                   workers >= 1)
  [20:19:29.149]                 if (workers == 1L) {
  [20:19:29.149]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.149]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.149]                     local = TRUE, label = label, ...))
  [20:19:29.149]                 }
  [20:19:29.149]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.149]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.149]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.149]                   globals = globals, persistent = persistent, 
  [20:19:29.149]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.149]                   label = label, ...)
  [20:19:29.149]                 if (!future$lazy) 
  [20:19:29.149]                   future <- run(future)
  [20:19:29.149]                 invisible(future)
  [20:19:29.149]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:29.149]         }
  [20:19:29.149]     }
  [20:19:29.149]     if (is.na(TRUE)) {
  [20:19:29.149]     }
  [20:19:29.149]     else {
  [20:19:29.149]         if (TRUE) {
  [20:19:29.149]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:29.149]         }
  [20:19:29.149]         else {
  [20:19:29.149]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:29.149]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:29.149]         }
  [20:19:29.149]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:29.149]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:29.149]             sink(type = "output", split = FALSE)
  [20:19:29.149]             close(...future.stdout)
  [20:19:29.149]         }, add = TRUE)
  [20:19:29.149]     }
  [20:19:29.149]     ...future.frame <- sys.nframe()
  [20:19:29.149]     ...future.conditions <- list()
  [20:19:29.149]     ...future.result <- tryCatch({
  [20:19:29.149]         withCallingHandlers({
  [20:19:29.149]             ...future.value <- withVisible(local({
  [20:19:29.149]                 doFuture::registerDoFuture()
  [20:19:29.149]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:29.149]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:29.149]                   {
  [20:19:29.149]                     a <- NULL
  [20:19:29.149]                     b <- NULL
  [20:19:29.149]                   }
  [20:19:29.149]                   ...future.env <- environment()
  [20:19:29.149]                   local({
  [20:19:29.149]                     for (name in names(...future.x_jj)) {
  [20:19:29.149]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:29.149]                         inherits = FALSE)
  [20:19:29.149]                     }
  [20:19:29.149]                   })
  [20:19:29.149]                   tryCatch({
  [20:19:29.149]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:29.149]                       plan = future::plan())
  [20:19:29.149]                   }, error = identity)
  [20:19:29.149]                 })
  [20:19:29.149]             }))
  [20:19:29.149]             future::FutureResult(value = ...future.value$value, 
  [20:19:29.149]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:29.149]                 version = "1.8")
  [20:19:29.149]         }, condition = local({
  [20:19:29.149]             inherits <- base::inherits
  [20:19:29.149]             invokeRestart <- base::invokeRestart
  [20:19:29.149]             length <- base::length
  [20:19:29.149]             seq.int <- base::seq.int
  [20:19:29.149]             sys.calls <- base::sys.calls
  [20:19:29.149]             `[[` <- base::`[[`
  [20:19:29.149]             `+` <- base::`+`
  [20:19:29.149]             `<<-` <- base::`<<-`
  [20:19:29.149]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:29.149]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:29.149]                   3L)]
  [20:19:29.149]             }
  [20:19:29.149]             function(cond) {
  [20:19:29.149]                 if (inherits(cond, "error")) {
  [20:19:29.149]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:29.149]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:29.149]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:29.149]                     signaled = 0L)
  [20:19:29.149]                   signalCondition(cond)
  [20:19:29.149]                 }
  [20:19:29.149]                 else if (inherits(cond, "condition")) {
  [20:19:29.149]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:29.149]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:29.149]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:29.149]                   if (!signal) {
  [20:19:29.149]                     muffleCondition <- function (cond) 
  [20:19:29.149]                     {
  [20:19:29.149]                       inherits <- base::inherits
  [20:19:29.149]                       invokeRestart <- base::invokeRestart
  [20:19:29.149]                       muffled <- FALSE
  [20:19:29.149]                       if (inherits(cond, "message")) {
  [20:19:29.149]                         invokeRestart("muffleMessage")
  [20:19:29.149]                         muffled <- TRUE
  [20:19:29.149]                       }
  [20:19:29.149]                       else if (inherits(cond, "warning")) {
  [20:19:29.149]                         invokeRestart("muffleWarning")
  [20:19:29.149]                         muffled <- TRUE
  [20:19:29.149]                       }
  [20:19:29.149]                       else if (inherits(cond, "condition")) {
  [20:19:29.149]                         computeRestarts <- base::computeRestarts
  [20:19:29.149]                         grepl <- base::grepl
  [20:19:29.149]                         is.null <- base::is.null
  [20:19:29.149]                         restarts <- computeRestarts(cond)
  [20:19:29.149]                         for (restart in restarts) {
  [20:19:29.149]                           name <- restart$name
  [20:19:29.149]                           if (is.null(name)) 
  [20:19:29.149]                             next
  [20:19:29.149]                           if (!grepl("^muffle", name)) 
  [20:19:29.149]                             next
  [20:19:29.149]                           invokeRestart(restart)
  [20:19:29.149]                           muffled <- TRUE
  [20:19:29.149]                           break
  [20:19:29.149]                         }
  [20:19:29.149]                       }
  [20:19:29.149]                       invisible(muffled)
  [20:19:29.149]                     }
  [20:19:29.149]                     muffleCondition(cond)
  [20:19:29.149]                   }
  [20:19:29.149]                 }
  [20:19:29.149]             }
  [20:19:29.149]         }))
  [20:19:29.149]     }, error = function(ex) {
  [20:19:29.149]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:29.149]             version = "1.8"), class = "FutureResult")
  [20:19:29.149]     }, finally = {
  [20:19:29.149]         {
  [20:19:29.149]             {
  [20:19:29.149]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:29.149]             }
  [20:19:29.149]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:29.149]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:29.149]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:29.149]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:29.149]                 ...) 
  [20:19:29.149]             {
  [20:19:29.149]                 if (substitute) 
  [20:19:29.149]                   expr <- substitute(expr)
  [20:19:29.149]                 if (is.function(workers)) 
  [20:19:29.149]                   workers <- workers()
  [20:19:29.149]                 workers <- as.integer(workers)
  [20:19:29.149]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.149]                   workers >= 1)
  [20:19:29.149]                 if (workers == 1L) {
  [20:19:29.149]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.149]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.149]                     local = TRUE, label = label, ...))
  [20:19:29.149]                 }
  [20:19:29.149]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.149]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.149]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.149]                   globals = globals, persistent = persistent, 
  [20:19:29.149]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.149]                   label = label, ...)
  [20:19:29.149]                 if (!future$lazy) 
  [20:19:29.149]                   future <- run(future)
  [20:19:29.149]                 invisible(future)
  [20:19:29.149]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:29.149]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:29.149]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:19:29.149]                 label = NULL, ...) 
  [20:19:29.149]             {
  [20:19:29.149]                 if (substitute) 
  [20:19:29.149]                   expr <- substitute(expr)
  [20:19:29.149]                 if (is.function(workers)) 
  [20:19:29.149]                   workers <- workers()
  [20:19:29.149]                 workers <- as.integer(workers)
  [20:19:29.149]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.149]                   workers >= 1)
  [20:19:29.149]                 if (workers == 1L) {
  [20:19:29.149]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.149]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.149]                     local = TRUE, label = label, ...))
  [20:19:29.149]                 }
  [20:19:29.149]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.149]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.149]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.149]                   globals = globals, persistent = persistent, 
  [20:19:29.149]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.149]                   label = label, ...)
  [20:19:29.149]                 if (!future$lazy) 
  [20:19:29.149]                   future <- run(future)
  [20:19:29.149]                 invisible(future)
  [20:19:29.149]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:29.149]         }
  [20:19:29.149]         options(...future.oldOptions)
  [20:19:29.149]     })
  [20:19:29.149]     if (is.na(TRUE)) {
  [20:19:29.149]     }
  [20:19:29.149]     else {
  [20:19:29.149]         sink(type = "output", split = FALSE)
  [20:19:29.149]         if (TRUE) {
  [20:19:29.149]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:29.149]         }
  [20:19:29.149]         else {
  [20:19:29.149]             ...future.result["stdout"] <- list(NULL)
  [20:19:29.149]         }
  [20:19:29.149]         close(...future.stdout)
  [20:19:29.149]         ...future.stdout <- NULL
  [20:19:29.149]     }
  [20:19:29.149]     ...future.result$conditions <- ...future.conditions
  [20:19:29.149]     ...future.result
  [20:19:29.149] }
  [20:19:29.182] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:19:29.183] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:19:29.184] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:19:29.184] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:19:29.185] MultisessionFuture started
  [20:19:29.185] Chunk #1 of 2 ... DONE
  [20:19:29.188] Chunk #2 of 2 ...
  [20:19:29.189]  - Finding globals in 'args_list' chunk #2 ...
  [20:19:29.189] getGlobalsAndPackages() ...
  [20:19:29.190] Searching for globals...
  [20:19:29.191] 
  [20:19:29.216] Searching for globals ... DONE
  [20:19:29.217] - globals: [0] <none>
  [20:19:29.217] getGlobalsAndPackages() ... DONE
  [20:19:29.218] 
  [20:19:29.218] 
  [20:19:29.219]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:19:29.228] getGlobalsAndPackages() ...
  [20:19:29.229] - globals passed as-is: [1] '...future.x_ii'
  [20:19:29.229] Resolving globals: FALSE
  [20:19:29.247] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:29.247] - globals: [1] '...future.x_ii'
  [20:19:29.248] 
  [20:19:29.248] getGlobalsAndPackages() ... DONE
  [20:19:29.250] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:29.251] Packages needed by future strategies (n = 1): 'future'
  [20:19:29.255] {
  [20:19:29.255]     {
  [20:19:29.255]         ...future.startTime <- Sys.time()
  [20:19:29.255]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:29.255]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:29.255]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:29.255]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:29.255]             future.resolve.recursive = NULL, width = 80L)
  [20:19:29.255]         {
  [20:19:29.255]             {
  [20:19:29.255]                 {
  [20:19:29.255]                   {
  [20:19:29.255]                     has_future <- requireNamespace("future", 
  [20:19:29.255]                       quietly = TRUE)
  [20:19:29.255]                     version <- if (has_future) 
  [20:19:29.255]                       packageVersion("future")
  [20:19:29.255]                     else NULL
  [20:19:29.255]                     if (!has_future || version < "1.8.0") {
  [20:19:29.255]                       info <- c(r_version = gsub("R version ", 
  [20:19:29.255]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:29.255]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:29.255]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:29.255]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:29.255]                       info <- sprintf("%s: %s", names(info), 
  [20:19:29.255]                         info)
  [20:19:29.255]                       info <- paste(info, collapse = "; ")
  [20:19:29.255]                       if (!has_future) {
  [20:19:29.255]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:29.255]                           info)
  [20:19:29.255]                       }
  [20:19:29.255]                       else {
  [20:19:29.255]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:29.255]                           info, version)
  [20:19:29.255]                       }
  [20:19:29.255]                       stop(msg)
  [20:19:29.255]                     }
  [20:19:29.255]                   }
  [20:19:29.255]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:29.255]                   options(mc.cores = 1L)
  [20:19:29.255]                 }
  [20:19:29.255]                 local({
  [20:19:29.255]                   for (pkg in c("doFuture", "future")) {
  [20:19:29.255]                     loadNamespace(pkg)
  [20:19:29.255]                     library(pkg, character.only = TRUE)
  [20:19:29.255]                   }
  [20:19:29.255]                 })
  [20:19:29.255]             }
  [20:19:29.255]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:29.255]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:29.255]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:29.255]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:29.255]                 ...) 
  [20:19:29.255]             {
  [20:19:29.255]                 if (substitute) 
  [20:19:29.255]                   expr <- substitute(expr)
  [20:19:29.255]                 if (is.function(workers)) 
  [20:19:29.255]                   workers <- workers()
  [20:19:29.255]                 workers <- as.integer(workers)
  [20:19:29.255]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.255]                   workers >= 1)
  [20:19:29.255]                 if (workers == 1L) {
  [20:19:29.255]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.255]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.255]                     local = TRUE, label = label, ...))
  [20:19:29.255]                 }
  [20:19:29.255]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.255]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.255]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.255]                   globals = globals, persistent = persistent, 
  [20:19:29.255]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.255]                   label = label, ...)
  [20:19:29.255]                 if (!future$lazy) 
  [20:19:29.255]                   future <- run(future)
  [20:19:29.255]                 invisible(future)
  [20:19:29.255]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:29.255]         }
  [20:19:29.255]     }
  [20:19:29.255]     if (is.na(TRUE)) {
  [20:19:29.255]     }
  [20:19:29.255]     else {
  [20:19:29.255]         if (TRUE) {
  [20:19:29.255]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:29.255]         }
  [20:19:29.255]         else {
  [20:19:29.255]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:29.255]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:29.255]         }
  [20:19:29.255]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:29.255]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:29.255]             sink(type = "output", split = FALSE)
  [20:19:29.255]             close(...future.stdout)
  [20:19:29.255]         }, add = TRUE)
  [20:19:29.255]     }
  [20:19:29.255]     ...future.frame <- sys.nframe()
  [20:19:29.255]     ...future.conditions <- list()
  [20:19:29.255]     ...future.result <- tryCatch({
  [20:19:29.255]         withCallingHandlers({
  [20:19:29.255]             ...future.value <- withVisible(local({
  [20:19:29.255]                 doFuture::registerDoFuture()
  [20:19:29.255]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:29.255]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:29.255]                   {
  [20:19:29.255]                     a <- NULL
  [20:19:29.255]                     b <- NULL
  [20:19:29.255]                   }
  [20:19:29.255]                   ...future.env <- environment()
  [20:19:29.255]                   local({
  [20:19:29.255]                     for (name in names(...future.x_jj)) {
  [20:19:29.255]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:29.255]                         inherits = FALSE)
  [20:19:29.255]                     }
  [20:19:29.255]                   })
  [20:19:29.255]                   tryCatch({
  [20:19:29.255]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:29.255]                       plan = future::plan())
  [20:19:29.255]                   }, error = identity)
  [20:19:29.255]                 })
  [20:19:29.255]             }))
  [20:19:29.255]             future::FutureResult(value = ...future.value$value, 
  [20:19:29.255]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:29.255]                 version = "1.8")
  [20:19:29.255]         }, condition = local({
  [20:19:29.255]             inherits <- base::inherits
  [20:19:29.255]             invokeRestart <- base::invokeRestart
  [20:19:29.255]             length <- base::length
  [20:19:29.255]             seq.int <- base::seq.int
  [20:19:29.255]             sys.calls <- base::sys.calls
  [20:19:29.255]             `[[` <- base::`[[`
  [20:19:29.255]             `+` <- base::`+`
  [20:19:29.255]             `<<-` <- base::`<<-`
  [20:19:29.255]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:29.255]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:29.255]                   3L)]
  [20:19:29.255]             }
  [20:19:29.255]             function(cond) {
  [20:19:29.255]                 if (inherits(cond, "error")) {
  [20:19:29.255]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:29.255]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:29.255]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:29.255]                     signaled = 0L)
  [20:19:29.255]                   signalCondition(cond)
  [20:19:29.255]                 }
  [20:19:29.255]                 else if (inherits(cond, "condition")) {
  [20:19:29.255]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:29.255]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:29.255]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:29.255]                   if (!signal) {
  [20:19:29.255]                     muffleCondition <- function (cond) 
  [20:19:29.255]                     {
  [20:19:29.255]                       inherits <- base::inherits
  [20:19:29.255]                       invokeRestart <- base::invokeRestart
  [20:19:29.255]                       muffled <- FALSE
  [20:19:29.255]                       if (inherits(cond, "message")) {
  [20:19:29.255]                         invokeRestart("muffleMessage")
  [20:19:29.255]                         muffled <- TRUE
  [20:19:29.255]                       }
  [20:19:29.255]                       else if (inherits(cond, "warning")) {
  [20:19:29.255]                         invokeRestart("muffleWarning")
  [20:19:29.255]                         muffled <- TRUE
  [20:19:29.255]                       }
  [20:19:29.255]                       else if (inherits(cond, "condition")) {
  [20:19:29.255]                         computeRestarts <- base::computeRestarts
  [20:19:29.255]                         grepl <- base::grepl
  [20:19:29.255]                         is.null <- base::is.null
  [20:19:29.255]                         restarts <- computeRestarts(cond)
  [20:19:29.255]                         for (restart in restarts) {
  [20:19:29.255]                           name <- restart$name
  [20:19:29.255]                           if (is.null(name)) 
  [20:19:29.255]                             next
  [20:19:29.255]                           if (!grepl("^muffle", name)) 
  [20:19:29.255]                             next
  [20:19:29.255]                           invokeRestart(restart)
  [20:19:29.255]                           muffled <- TRUE
  [20:19:29.255]                           break
  [20:19:29.255]                         }
  [20:19:29.255]                       }
  [20:19:29.255]                       invisible(muffled)
  [20:19:29.255]                     }
  [20:19:29.255]                     muffleCondition(cond)
  [20:19:29.255]                   }
  [20:19:29.255]                 }
  [20:19:29.255]             }
  [20:19:29.255]         }))
  [20:19:29.255]     }, error = function(ex) {
  [20:19:29.255]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:29.255]             version = "1.8"), class = "FutureResult")
  [20:19:29.255]     }, finally = {
  [20:19:29.255]         {
  [20:19:29.255]             {
  [20:19:29.255]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:29.255]             }
  [20:19:29.255]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:29.255]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:29.255]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:29.255]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:29.255]                 ...) 
  [20:19:29.255]             {
  [20:19:29.255]                 if (substitute) 
  [20:19:29.255]                   expr <- substitute(expr)
  [20:19:29.255]                 if (is.function(workers)) 
  [20:19:29.255]                   workers <- workers()
  [20:19:29.255]                 workers <- as.integer(workers)
  [20:19:29.255]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.255]                   workers >= 1)
  [20:19:29.255]                 if (workers == 1L) {
  [20:19:29.255]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.255]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.255]                     local = TRUE, label = label, ...))
  [20:19:29.255]                 }
  [20:19:29.255]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.255]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.255]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.255]                   globals = globals, persistent = persistent, 
  [20:19:29.255]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.255]                   label = label, ...)
  [20:19:29.255]                 if (!future$lazy) 
  [20:19:29.255]                   future <- run(future)
  [20:19:29.255]                 invisible(future)
  [20:19:29.255]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:29.255]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:29.255]                 workers = availableCores(), gc = FALSE, earlySignal = FALSE, 
  [20:19:29.255]                 label = NULL, ...) 
  [20:19:29.255]             {
  [20:19:29.255]                 if (substitute) 
  [20:19:29.255]                   expr <- substitute(expr)
  [20:19:29.255]                 if (is.function(workers)) 
  [20:19:29.255]                   workers <- workers()
  [20:19:29.255]                 workers <- as.integer(workers)
  [20:19:29.255]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:29.255]                   workers >= 1)
  [20:19:29.255]                 if (workers == 1L) {
  [20:19:29.255]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:29.255]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:29.255]                     local = TRUE, label = label, ...))
  [20:19:29.255]                 }
  [20:19:29.255]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:29.255]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:29.255]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:29.255]                   globals = globals, persistent = persistent, 
  [20:19:29.255]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:29.255]                   label = label, ...)
  [20:19:29.255]                 if (!future$lazy) 
  [20:19:29.255]                   future <- run(future)
  [20:19:29.255]                 invisible(future)
  [20:19:29.255]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:29.255]         }
  [20:19:29.255]         options(...future.oldOptions)
  [20:19:29.255]     })
  [20:19:29.255]     if (is.na(TRUE)) {
  [20:19:29.255]     }
  [20:19:29.255]     else {
  [20:19:29.255]         sink(type = "output", split = FALSE)
  [20:19:29.255]         if (TRUE) {
  [20:19:29.255]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:29.255]         }
  [20:19:29.255]         else {
  [20:19:29.255]             ...future.result["stdout"] <- list(NULL)
  [20:19:29.255]         }
  [20:19:29.255]         close(...future.stdout)
  [20:19:29.255]         ...future.stdout <- NULL
  [20:19:29.255]     }
  [20:19:29.255]     ...future.result$conditions <- ...future.conditions
  [20:19:29.255]     ...future.result
  [20:19:29.255] }
  [20:19:29.274] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:19:29.275] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:19:29.276] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:19:29.276] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:19:29.277] MultisessionFuture started
  [20:19:29.277] Chunk #2 of 2 ... DONE
  [20:19:29.278] Launching 2 futures (chunks) ... DONE
  [20:19:29.278] - resolving futures
  [20:19:29.278]   - gathering results & relaying conditions (except errors)
  [20:19:29.278] resolve() on list ...
  [20:19:29.279]  recursive: 0
  [20:19:29.279]  length: 2
  [20:19:29.279] 
  [20:19:29.784] Future #1
  [20:19:29.785] result() for ClusterFuture ...
  [20:19:29.785] - Validating connection of MultisessionFuture
  [20:19:29.786] - class(result): FutureResult
  [20:19:29.787] result() for ClusterFuture ...
  [20:19:29.787] - result already collected: FutureResult
  [20:19:29.787] result() for ClusterFuture ... done
  [20:19:29.788] result() for ClusterFuture ... done
  [20:19:29.788] result() for ClusterFuture ...
  [20:19:29.788] - result already collected: FutureResult
  [20:19:29.788] result() for ClusterFuture ... done
  [20:19:29.789] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:19:29.789] - nx: 2
  [20:19:29.789] - relay: TRUE
  [20:19:29.790] - stdout: TRUE
  [20:19:29.790] - signal: TRUE
  [20:19:29.790] - resignal: FALSE
  [20:19:29.790] - force: FALSE
  [20:19:29.791] - relayed: [n=2] FALSE, FALSE
  [20:19:29.791] - queued futures: [n=2] FALSE, FALSE
  [20:19:29.791]  - until=1
  [20:19:29.792]  - relaying element #1
  [20:19:29.792] result() for ClusterFuture ...
  [20:19:29.792] - result already collected: FutureResult
  [20:19:29.792] result() for ClusterFuture ... done
  [20:19:29.793] result() for ClusterFuture ...
  [20:19:29.793] - result already collected: FutureResult
  [20:19:29.793] result() for ClusterFuture ... done
  [20:19:29.794] result() for ClusterFuture ...
  [20:19:29.794] - result already collected: FutureResult
  [20:19:29.794] result() for ClusterFuture ... done
  [20:19:29.794] result() for ClusterFuture ...
  [20:19:29.795] - result already collected: FutureResult
  [20:19:29.795] result() for ClusterFuture ... done
  [20:19:29.795] - relayed: [n=2] TRUE, FALSE
  [20:19:29.795] - queued futures: [n=2] TRUE, FALSE
  [20:19:29.796] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:19:29.796]  length: 1 (resolved future 1)
  [20:19:29.821] Future #2
  [20:19:29.821] result() for ClusterFuture ...
  [20:19:29.822] - Validating connection of MultisessionFuture
  [20:19:29.863] - class(result): FutureResult
  [20:19:29.863] result() for ClusterFuture ...
  [20:19:29.864] - result already collected: FutureResult
  [20:19:29.864] result() for ClusterFuture ... done
  [20:19:29.864] result() for ClusterFuture ... done
  [20:19:29.865] result() for ClusterFuture ...
  [20:19:29.865] - result already collected: FutureResult
  [20:19:29.865] result() for ClusterFuture ... done
  [20:19:29.865] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:19:29.866] - nx: 2
  [20:19:29.866] - relay: TRUE
  [20:19:29.866] - stdout: TRUE
  [20:19:29.866] - signal: TRUE
  [20:19:29.867] - resignal: FALSE
  [20:19:29.867] - force: FALSE
  [20:19:29.867] - relayed: [n=2] TRUE, FALSE
  [20:19:29.867] - queued futures: [n=2] TRUE, FALSE
  [20:19:29.868]  - until=2
  [20:19:29.868]  - relaying element #2
  [20:19:29.868] result() for ClusterFuture ...
  [20:19:29.868] - result already collected: FutureResult
  [20:19:29.868] result() for ClusterFuture ... done
  [20:19:29.869] result() for ClusterFuture ...
  [20:19:29.869] - result already collected: FutureResult
  [20:19:29.869] result() for ClusterFuture ... done
  [20:19:29.870] result() for ClusterFuture ...
  [20:19:29.870] - result already collected: FutureResult
  [20:19:29.870] result() for ClusterFuture ... done
  [20:19:29.870] result() for ClusterFuture ...
  [20:19:29.871] - result already collected: FutureResult
  [20:19:29.871] result() for ClusterFuture ... done
  [20:19:29.871] - relayed: [n=2] TRUE, TRUE
  [20:19:29.871] - queued futures: [n=2] TRUE, TRUE
  [20:19:29.871] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:19:29.872]  length: 0 (resolved future 2)
  [20:19:29.872] Relaying remaining futures
  [20:19:29.872] signalConditionsASAP(NULL, pos=0) ...
  [20:19:29.872] - nx: 2
  [20:19:29.873] - relay: TRUE
  [20:19:29.873] - stdout: TRUE
  [20:19:29.873] - signal: TRUE
  [20:19:29.873] - resignal: FALSE
  [20:19:29.873] - force: FALSE
  [20:19:29.874] - relayed: [n=2] TRUE, TRUE
  [20:19:29.874] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:19:29.874] - relayed: [n=2] TRUE, TRUE
  [20:19:29.874] - queued futures: [n=2] TRUE, TRUE
  [20:19:29.875] signalConditionsASAP(NULL, pos=0) ... done
  [20:19:29.875] resolve() on list ... DONE
  [20:19:29.875] - collecting values of futures
  [20:19:29.875] result() for ClusterFuture ...
  [20:19:29.876] - result already collected: FutureResult
  [20:19:29.876] result() for ClusterFuture ... done
  [20:19:29.876] result() for ClusterFuture ...
  [20:19:29.877] - result already collected: FutureResult
  [20:19:29.877] result() for ClusterFuture ... done
  [20:19:29.877] result() for ClusterFuture ...
  [20:19:29.902] - result already collected: FutureResult
  [20:19:29.902] result() for ClusterFuture ... done
  [20:19:29.903] result() for ClusterFuture ...
  [20:19:29.903] - result already collected: FutureResult
  [20:19:29.903] result() for ClusterFuture ... done
  [20:19:29.904] - accumulating results
  [20:19:29.912] - processing errors (handler = 'stop')
  [20:19:29.913] - extracting results
  [20:19:29.913] doFuture() ... DONE
  - plan(list('multisession', 'multisession')) ... DONE
  - plan(list('multisession', 'cluster')) ...
  [20:19:29.927] plan(): Setting new future strategy stack:
  [20:19:29.927] List of future strategies:
  [20:19:29.927] 1. multisession:
  [20:19:29.927]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:29.927]    - tweaked: FALSE
  [20:19:29.927]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:29.927] 2. cluster:
  [20:19:29.927]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:29.927]    - tweaked: FALSE
  [20:19:29.927]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:29.929] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
  [20:19:29.941] multisession:
  [20:19:29.941] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableCores(), gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:29.941] - tweaked: FALSE
  [20:19:29.941] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 28814
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f625aa3632.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f625aa3632.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f625aa3632.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28814 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f61770c865.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f61770c865.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f61770c865.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28814 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:19:47.694] getGlobalsAndPackages() ...
  [20:19:47.694] Not searching for globals
  [20:19:47.695] - globals: [0] <none>
  [20:19:47.695] getGlobalsAndPackages() ... DONE
  [20:19:47.697] Packages needed by the future expression (n = 0): <none>
  [20:19:47.697] Packages needed by future strategies (n = 1): 'future'
  [20:19:47.700] {
  [20:19:47.700]     {
  [20:19:47.700]         ...future.startTime <- Sys.time()
  [20:19:47.700]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:47.700]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:47.700]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:47.700]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:47.700]             future.resolve.recursive = NULL, width = 80L)
  [20:19:47.700]         {
  [20:19:47.700]             {
  [20:19:47.700]                 {
  [20:19:47.700]                   {
  [20:19:47.700]                     has_future <- requireNamespace("future", 
  [20:19:47.700]                       quietly = TRUE)
  [20:19:47.700]                     version <- if (has_future) 
  [20:19:47.700]                       packageVersion("future")
  [20:19:47.700]                     else NULL
  [20:19:47.700]                     if (!has_future || version < "1.8.0") {
  [20:19:47.700]                       info <- c(r_version = gsub("R version ", 
  [20:19:47.700]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:47.700]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:47.700]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:47.700]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:47.700]                       info <- sprintf("%s: %s", names(info), 
  [20:19:47.700]                         info)
  [20:19:47.700]                       info <- paste(info, collapse = "; ")
  [20:19:47.700]                       if (!has_future) {
  [20:19:47.700]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:47.700]                           info)
  [20:19:47.700]                       }
  [20:19:47.700]                       else {
  [20:19:47.700]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:47.700]                           info, version)
  [20:19:47.700]                       }
  [20:19:47.700]                       stop(msg)
  [20:19:47.700]                     }
  [20:19:47.700]                   }
  [20:19:47.700]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:47.700]                   options(mc.cores = 1L)
  [20:19:47.700]                 }
  [20:19:47.700]                 local({
  [20:19:47.700]                   for (pkg in "future") {
  [20:19:47.700]                     loadNamespace(pkg)
  [20:19:47.700]                     library(pkg, character.only = TRUE)
  [20:19:47.700]                   }
  [20:19:47.700]                 })
  [20:19:47.700]             }
  [20:19:47.700]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:47.700]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:47.700]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:19:47.700]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:19:47.700]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:47.700]                 ...) 
  [20:19:47.700]             {
  [20:19:47.700]                 if (substitute) 
  [20:19:47.700]                   expr <- substitute(expr)
  [20:19:47.700]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:47.700]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:47.700]                   globals = globals, persistent = persistent, 
  [20:19:47.700]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:47.700]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:47.700]                   label = label, ...)
  [20:19:47.700]                 if (!future$lazy) 
  [20:19:47.700]                   future <- run(future)
  [20:19:47.700]                 invisible(future)
  [20:19:47.700]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:47.700]         }
  [20:19:47.700]     }
  [20:19:47.700]     if (is.na(TRUE)) {
  [20:19:47.700]     }
  [20:19:47.700]     else {
  [20:19:47.700]         if (TRUE) {
  [20:19:47.700]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:47.700]         }
  [20:19:47.700]         else {
  [20:19:47.700]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:47.700]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:47.700]         }
  [20:19:47.700]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:47.700]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:47.700]             sink(type = "output", split = FALSE)
  [20:19:47.700]             close(...future.stdout)
  [20:19:47.700]         }, add = TRUE)
  [20:19:47.700]     }
  [20:19:47.700]     ...future.frame <- sys.nframe()
  [20:19:47.700]     ...future.conditions <- list()
  [20:19:47.700]     ...future.result <- tryCatch({
  [20:19:47.700]         withCallingHandlers({
  [20:19:47.700]             ...future.value <- withVisible(local(NA))
  [20:19:47.700]             future::FutureResult(value = ...future.value$value, 
  [20:19:47.700]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:47.700]                 version = "1.8")
  [20:19:47.700]         }, condition = local({
  [20:19:47.700]             inherits <- base::inherits
  [20:19:47.700]             invokeRestart <- base::invokeRestart
  [20:19:47.700]             length <- base::length
  [20:19:47.700]             seq.int <- base::seq.int
  [20:19:47.700]             sys.calls <- base::sys.calls
  [20:19:47.700]             `[[` <- base::`[[`
  [20:19:47.700]             `+` <- base::`+`
  [20:19:47.700]             `<<-` <- base::`<<-`
  [20:19:47.700]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:47.700]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:47.700]                   3L)]
  [20:19:47.700]             }
  [20:19:47.700]             function(cond) {
  [20:19:47.700]                 if (inherits(cond, "error")) {
  [20:19:47.700]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:47.700]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:47.700]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:47.700]                     signaled = 0L)
  [20:19:47.700]                   signalCondition(cond)
  [20:19:47.700]                 }
  [20:19:47.700]                 else if (inherits(cond, "condition")) {
  [20:19:47.700]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:47.700]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:47.700]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:47.700]                   if (!signal) {
  [20:19:47.700]                     muffleCondition <- function (cond) 
  [20:19:47.700]                     {
  [20:19:47.700]                       inherits <- base::inherits
  [20:19:47.700]                       invokeRestart <- base::invokeRestart
  [20:19:47.700]                       muffled <- FALSE
  [20:19:47.700]                       if (inherits(cond, "message")) {
  [20:19:47.700]                         invokeRestart("muffleMessage")
  [20:19:47.700]                         muffled <- TRUE
  [20:19:47.700]                       }
  [20:19:47.700]                       else if (inherits(cond, "warning")) {
  [20:19:47.700]                         invokeRestart("muffleWarning")
  [20:19:47.700]                         muffled <- TRUE
  [20:19:47.700]                       }
  [20:19:47.700]                       else if (inherits(cond, "condition")) {
  [20:19:47.700]                         computeRestarts <- base::computeRestarts
  [20:19:47.700]                         grepl <- base::grepl
  [20:19:47.700]                         is.null <- base::is.null
  [20:19:47.700]                         restarts <- computeRestarts(cond)
  [20:19:47.700]                         for (restart in restarts) {
  [20:19:47.700]                           name <- restart$name
  [20:19:47.700]                           if (is.null(name)) 
  [20:19:47.700]                             next
  [20:19:47.700]                           if (!grepl("^muffle", name)) 
  [20:19:47.700]                             next
  [20:19:47.700]                           invokeRestart(restart)
  [20:19:47.700]                           muffled <- TRUE
  [20:19:47.700]                           break
  [20:19:47.700]                         }
  [20:19:47.700]                       }
  [20:19:47.700]                       invisible(muffled)
  [20:19:47.700]                     }
  [20:19:47.700]                     muffleCondition(cond)
  [20:19:47.700]                   }
  [20:19:47.700]                 }
  [20:19:47.700]             }
  [20:19:47.700]         }))
  [20:19:47.700]     }, error = function(ex) {
  [20:19:47.700]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:47.700]             version = "1.8"), class = "FutureResult")
  [20:19:47.700]     }, finally = {
  [20:19:47.700]         {
  [20:19:47.700]             {
  [20:19:47.700]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:47.700]             }
  [20:19:47.700]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:47.700]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:47.700]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:47.700]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:47.700]                 ...) 
  [20:19:47.700]             {
  [20:19:47.700]                 if (substitute) 
  [20:19:47.700]                   expr <- substitute(expr)
  [20:19:47.700]                 if (is.function(workers)) 
  [20:19:47.700]                   workers <- workers()
  [20:19:47.700]                 workers <- as.integer(workers)
  [20:19:47.700]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:47.700]                   workers >= 1)
  [20:19:47.700]                 if (workers == 1L) {
  [20:19:47.700]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:47.700]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:47.700]                     local = TRUE, label = label, ...))
  [20:19:47.700]                 }
  [20:19:47.700]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:47.700]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:47.700]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:47.700]                   globals = globals, persistent = persistent, 
  [20:19:47.700]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:47.700]                   label = label, ...)
  [20:19:47.700]                 if (!future$lazy) 
  [20:19:47.700]                   future <- run(future)
  [20:19:47.700]                 invisible(future)
  [20:19:47.700]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:47.700]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:47.700]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:19:47.700]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:19:47.700]                 label = NULL, ...) 
  [20:19:47.700]             {
  [20:19:47.700]                 if (substitute) 
  [20:19:47.700]                   expr <- substitute(expr)
  [20:19:47.700]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:47.700]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:47.700]                   globals = globals, persistent = persistent, 
  [20:19:47.700]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:47.700]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:47.700]                   label = label, ...)
  [20:19:47.700]                 if (!future$lazy) 
  [20:19:47.700]                   future <- run(future)
  [20:19:47.700]                 invisible(future)
  [20:19:47.700]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:47.700]         }
  [20:19:47.700]         options(...future.oldOptions)
  [20:19:47.700]     })
  [20:19:47.700]     if (is.na(TRUE)) {
  [20:19:47.700]     }
  [20:19:47.700]     else {
  [20:19:47.700]         sink(type = "output", split = FALSE)
  [20:19:47.700]         if (TRUE) {
  [20:19:47.700]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:47.700]         }
  [20:19:47.700]         else {
  [20:19:47.700]             ...future.result["stdout"] <- list(NULL)
  [20:19:47.700]         }
  [20:19:47.700]         close(...future.stdout)
  [20:19:47.700]         ...future.stdout <- NULL
  [20:19:47.700]     }
  [20:19:47.700]     ...future.result$conditions <- ...future.conditions
  [20:19:47.700]     ...future.result
  [20:19:47.700] }
  [20:19:47.722] MultisessionFuture started
  [20:19:47.722] result() for ClusterFuture ...
  [20:19:47.723] - Validating connection of MultisessionFuture
  [20:19:47.955] - class(result): FutureResult
  [20:19:47.956] result() for ClusterFuture ...
  [20:19:47.956] - result already collected: FutureResult
  [20:19:47.956] result() for ClusterFuture ... done
  [20:19:47.957] result() for ClusterFuture ... done
  [20:19:47.957] result() for ClusterFuture ...
  [20:19:47.957] - result already collected: FutureResult
  [20:19:47.958] result() for ClusterFuture ... done
  [20:19:47.958] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:19:47.959] plan(): nbrOfWorkers() = 2
  [20:19:47.959] doFuture() ...
  [20:19:47.963] - dummy globals (as locals): [2] 'a', 'b'
  [20:19:47.964] - R expression:
  [20:19:47.964] {
  [20:19:47.964]     doFuture::registerDoFuture()
  [20:19:47.964]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:47.964]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:47.964]         {
  [20:19:47.964]             a <- NULL
  [20:19:47.964]             b <- NULL
  [20:19:47.964]         }
  [20:19:47.964]         ...future.env <- environment()
  [20:19:47.964]         local({
  [20:19:47.964]             for (name in names(...future.x_jj)) {
  [20:19:47.964]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:47.964]                   inherits = FALSE)
  [20:19:47.964]             }
  [20:19:47.964]         })
  [20:19:47.964]         tryCatch({
  [20:19:47.964]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:47.964]                 plan = future::plan())
  [20:19:47.964]         }, error = identity)
  [20:19:47.964]     })
  [20:19:47.964] }
  [20:19:47.965] - identifying globals and packages ...
  [20:19:47.965] getGlobalsAndPackages() ...
  [20:19:47.966] Searching for globals...
  [20:19:48.000] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:19:48.000] Searching for globals ... DONE
  [20:19:48.001] Resolving globals: FALSE
  [20:19:48.002] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:19:48.002] - globals: [1] '...future.x_ii'
  [20:19:48.003] 
  [20:19:48.003] getGlobalsAndPackages() ... DONE
  [20:19:48.003] List of 1
  [20:19:48.003]  $ ...future.x_ii: NULL
  [20:19:48.003]  - attr(*, "where")=List of 1
  [20:19:48.003]   ..$ ...future.x_ii:<environment: 0x55aab2792160> 
  [20:19:48.003]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:48.003]  - attr(*, "resolved")= logi FALSE
  [20:19:48.003]  - attr(*, "total_size")= num 0
  [20:19:48.026]   - R expression:
  [20:19:48.026] {
  [20:19:48.026]     doFuture::registerDoFuture()
  [20:19:48.026]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:48.026]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:48.026]         {
  [20:19:48.026]             a <- NULL
  [20:19:48.026]             b <- NULL
  [20:19:48.026]         }
  [20:19:48.026]         ...future.env <- environment()
  [20:19:48.026]         local({
  [20:19:48.026]             for (name in names(...future.x_jj)) {
  [20:19:48.026]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:48.026]                   inherits = FALSE)
  [20:19:48.026]             }
  [20:19:48.026]         })
  [20:19:48.026]         tryCatch({
  [20:19:48.026]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:48.026]                 plan = future::plan())
  [20:19:48.026]         }, error = identity)
  [20:19:48.026]     })
  [20:19:48.026] }
  [20:19:48.027]   - globals: [1] '...future.x_ii'
  [20:19:48.027] List of 1
  [20:19:48.027]  $ ...future.x_ii: NULL
  [20:19:48.027]  - attr(*, "where")=List of 1
  [20:19:48.027]   ..$ ...future.x_ii:<environment: 0x55aab2792160> 
  [20:19:48.027]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:19:48.027]  - attr(*, "resolved")= logi FALSE
  [20:19:48.027]  - attr(*, "total_size")= num 0
  [20:19:48.033]   - packages: [1] 'doFuture'
  [20:19:48.033] - identifying globals and packages ... DONE
  [20:19:48.034] Number of chunks: 2
  [20:19:48.034] Number of futures (= number of chunks): 2
  [20:19:48.035] Launching 2 futures (chunks) ...
  [20:19:48.035] Chunk #1 of 2 ...
  [20:19:48.035]  - Finding globals in 'args_list' chunk #1 ...
  [20:19:48.035] getGlobalsAndPackages() ...
  [20:19:48.036] Searching for globals...
  [20:19:48.037] 
  [20:19:48.037] Searching for globals ... DONE
  [20:19:48.037] - globals: [0] <none>
  [20:19:48.037] getGlobalsAndPackages() ... DONE
  [20:19:48.038] 
  [20:19:48.054] 
  [20:19:48.054]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:19:48.061] getGlobalsAndPackages() ...
  [20:19:48.062] - globals passed as-is: [1] '...future.x_ii'
  [20:19:48.062] Resolving globals: FALSE
  [20:19:48.063] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:48.063] - globals: [1] '...future.x_ii'
  [20:19:48.063] 
  [20:19:48.064] getGlobalsAndPackages() ... DONE
  [20:19:48.065] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:48.066] Packages needed by future strategies (n = 1): 'future'
  [20:19:48.069] {
  [20:19:48.069]     {
  [20:19:48.069]         ...future.startTime <- Sys.time()
  [20:19:48.069]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:48.069]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:48.069]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:48.069]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:48.069]             future.resolve.recursive = NULL, width = 80L)
  [20:19:48.069]         {
  [20:19:48.069]             {
  [20:19:48.069]                 {
  [20:19:48.069]                   {
  [20:19:48.069]                     has_future <- requireNamespace("future", 
  [20:19:48.069]                       quietly = TRUE)
  [20:19:48.069]                     version <- if (has_future) 
  [20:19:48.069]                       packageVersion("future")
  [20:19:48.069]                     else NULL
  [20:19:48.069]                     if (!has_future || version < "1.8.0") {
  [20:19:48.069]                       info <- c(r_version = gsub("R version ", 
  [20:19:48.069]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:48.069]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:48.069]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:48.069]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:48.069]                       info <- sprintf("%s: %s", names(info), 
  [20:19:48.069]                         info)
  [20:19:48.069]                       info <- paste(info, collapse = "; ")
  [20:19:48.069]                       if (!has_future) {
  [20:19:48.069]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:48.069]                           info)
  [20:19:48.069]                       }
  [20:19:48.069]                       else {
  [20:19:48.069]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:48.069]                           info, version)
  [20:19:48.069]                       }
  [20:19:48.069]                       stop(msg)
  [20:19:48.069]                     }
  [20:19:48.069]                   }
  [20:19:48.069]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:48.069]                   options(mc.cores = 1L)
  [20:19:48.069]                 }
  [20:19:48.069]                 local({
  [20:19:48.069]                   for (pkg in c("doFuture", "future")) {
  [20:19:48.069]                     loadNamespace(pkg)
  [20:19:48.069]                     library(pkg, character.only = TRUE)
  [20:19:48.069]                   }
  [20:19:48.069]                 })
  [20:19:48.069]             }
  [20:19:48.069]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:48.069]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:48.069]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:19:48.069]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:19:48.069]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:48.069]                 ...) 
  [20:19:48.069]             {
  [20:19:48.069]                 if (substitute) 
  [20:19:48.069]                   expr <- substitute(expr)
  [20:19:48.069]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:48.069]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.069]                   globals = globals, persistent = persistent, 
  [20:19:48.069]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:48.069]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:48.069]                   label = label, ...)
  [20:19:48.069]                 if (!future$lazy) 
  [20:19:48.069]                   future <- run(future)
  [20:19:48.069]                 invisible(future)
  [20:19:48.069]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:48.069]         }
  [20:19:48.069]     }
  [20:19:48.069]     if (is.na(TRUE)) {
  [20:19:48.069]     }
  [20:19:48.069]     else {
  [20:19:48.069]         if (TRUE) {
  [20:19:48.069]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:48.069]         }
  [20:19:48.069]         else {
  [20:19:48.069]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:48.069]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:48.069]         }
  [20:19:48.069]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:48.069]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:48.069]             sink(type = "output", split = FALSE)
  [20:19:48.069]             close(...future.stdout)
  [20:19:48.069]         }, add = TRUE)
  [20:19:48.069]     }
  [20:19:48.069]     ...future.frame <- sys.nframe()
  [20:19:48.069]     ...future.conditions <- list()
  [20:19:48.069]     ...future.result <- tryCatch({
  [20:19:48.069]         withCallingHandlers({
  [20:19:48.069]             ...future.value <- withVisible(local({
  [20:19:48.069]                 doFuture::registerDoFuture()
  [20:19:48.069]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:48.069]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:48.069]                   {
  [20:19:48.069]                     a <- NULL
  [20:19:48.069]                     b <- NULL
  [20:19:48.069]                   }
  [20:19:48.069]                   ...future.env <- environment()
  [20:19:48.069]                   local({
  [20:19:48.069]                     for (name in names(...future.x_jj)) {
  [20:19:48.069]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:48.069]                         inherits = FALSE)
  [20:19:48.069]                     }
  [20:19:48.069]                   })
  [20:19:48.069]                   tryCatch({
  [20:19:48.069]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:48.069]                       plan = future::plan())
  [20:19:48.069]                   }, error = identity)
  [20:19:48.069]                 })
  [20:19:48.069]             }))
  [20:19:48.069]             future::FutureResult(value = ...future.value$value, 
  [20:19:48.069]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:48.069]                 version = "1.8")
  [20:19:48.069]         }, condition = local({
  [20:19:48.069]             inherits <- base::inherits
  [20:19:48.069]             invokeRestart <- base::invokeRestart
  [20:19:48.069]             length <- base::length
  [20:19:48.069]             seq.int <- base::seq.int
  [20:19:48.069]             sys.calls <- base::sys.calls
  [20:19:48.069]             `[[` <- base::`[[`
  [20:19:48.069]             `+` <- base::`+`
  [20:19:48.069]             `<<-` <- base::`<<-`
  [20:19:48.069]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:48.069]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:48.069]                   3L)]
  [20:19:48.069]             }
  [20:19:48.069]             function(cond) {
  [20:19:48.069]                 if (inherits(cond, "error")) {
  [20:19:48.069]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:48.069]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:48.069]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:48.069]                     signaled = 0L)
  [20:19:48.069]                   signalCondition(cond)
  [20:19:48.069]                 }
  [20:19:48.069]                 else if (inherits(cond, "condition")) {
  [20:19:48.069]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:48.069]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:48.069]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:48.069]                   if (!signal) {
  [20:19:48.069]                     muffleCondition <- function (cond) 
  [20:19:48.069]                     {
  [20:19:48.069]                       inherits <- base::inherits
  [20:19:48.069]                       invokeRestart <- base::invokeRestart
  [20:19:48.069]                       muffled <- FALSE
  [20:19:48.069]                       if (inherits(cond, "message")) {
  [20:19:48.069]                         invokeRestart("muffleMessage")
  [20:19:48.069]                         muffled <- TRUE
  [20:19:48.069]                       }
  [20:19:48.069]                       else if (inherits(cond, "warning")) {
  [20:19:48.069]                         invokeRestart("muffleWarning")
  [20:19:48.069]                         muffled <- TRUE
  [20:19:48.069]                       }
  [20:19:48.069]                       else if (inherits(cond, "condition")) {
  [20:19:48.069]                         computeRestarts <- base::computeRestarts
  [20:19:48.069]                         grepl <- base::grepl
  [20:19:48.069]                         is.null <- base::is.null
  [20:19:48.069]                         restarts <- computeRestarts(cond)
  [20:19:48.069]                         for (restart in restarts) {
  [20:19:48.069]                           name <- restart$name
  [20:19:48.069]                           if (is.null(name)) 
  [20:19:48.069]                             next
  [20:19:48.069]                           if (!grepl("^muffle", name)) 
  [20:19:48.069]                             next
  [20:19:48.069]                           invokeRestart(restart)
  [20:19:48.069]                           muffled <- TRUE
  [20:19:48.069]                           break
  [20:19:48.069]                         }
  [20:19:48.069]                       }
  [20:19:48.069]                       invisible(muffled)
  [20:19:48.069]                     }
  [20:19:48.069]                     muffleCondition(cond)
  [20:19:48.069]                   }
  [20:19:48.069]                 }
  [20:19:48.069]             }
  [20:19:48.069]         }))
  [20:19:48.069]     }, error = function(ex) {
  [20:19:48.069]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:48.069]             version = "1.8"), class = "FutureResult")
  [20:19:48.069]     }, finally = {
  [20:19:48.069]         {
  [20:19:48.069]             {
  [20:19:48.069]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:48.069]             }
  [20:19:48.069]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:48.069]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:48.069]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:48.069]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:48.069]                 ...) 
  [20:19:48.069]             {
  [20:19:48.069]                 if (substitute) 
  [20:19:48.069]                   expr <- substitute(expr)
  [20:19:48.069]                 if (is.function(workers)) 
  [20:19:48.069]                   workers <- workers()
  [20:19:48.069]                 workers <- as.integer(workers)
  [20:19:48.069]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:48.069]                   workers >= 1)
  [20:19:48.069]                 if (workers == 1L) {
  [20:19:48.069]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:48.069]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:48.069]                     local = TRUE, label = label, ...))
  [20:19:48.069]                 }
  [20:19:48.069]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:48.069]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:48.069]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.069]                   globals = globals, persistent = persistent, 
  [20:19:48.069]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:48.069]                   label = label, ...)
  [20:19:48.069]                 if (!future$lazy) 
  [20:19:48.069]                   future <- run(future)
  [20:19:48.069]                 invisible(future)
  [20:19:48.069]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:48.069]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:48.069]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:19:48.069]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:19:48.069]                 label = NULL, ...) 
  [20:19:48.069]             {
  [20:19:48.069]                 if (substitute) 
  [20:19:48.069]                   expr <- substitute(expr)
  [20:19:48.069]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:48.069]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.069]                   globals = globals, persistent = persistent, 
  [20:19:48.069]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:48.069]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:48.069]                   label = label, ...)
  [20:19:48.069]                 if (!future$lazy) 
  [20:19:48.069]                   future <- run(future)
  [20:19:48.069]                 invisible(future)
  [20:19:48.069]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:48.069]         }
  [20:19:48.069]         options(...future.oldOptions)
  [20:19:48.069]     })
  [20:19:48.069]     if (is.na(TRUE)) {
  [20:19:48.069]     }
  [20:19:48.069]     else {
  [20:19:48.069]         sink(type = "output", split = FALSE)
  [20:19:48.069]         if (TRUE) {
  [20:19:48.069]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:48.069]         }
  [20:19:48.069]         else {
  [20:19:48.069]             ...future.result["stdout"] <- list(NULL)
  [20:19:48.069]         }
  [20:19:48.069]         close(...future.stdout)
  [20:19:48.069]         ...future.stdout <- NULL
  [20:19:48.069]     }
  [20:19:48.069]     ...future.result$conditions <- ...future.conditions
  [20:19:48.069]     ...future.result
  [20:19:48.069] }
  [20:19:48.091] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:19:48.091] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:19:48.092] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:19:48.093] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:19:48.094] MultisessionFuture started
  [20:19:48.094] Chunk #1 of 2 ... DONE
  [20:19:48.094] Chunk #2 of 2 ...
  [20:19:48.095]  - Finding globals in 'args_list' chunk #2 ...
  [20:19:48.095] getGlobalsAndPackages() ...
  [20:19:48.095] Searching for globals...
  [20:19:48.096] 
  [20:19:48.096] Searching for globals ... DONE
  [20:19:48.096] - globals: [0] <none>
  [20:19:48.097] getGlobalsAndPackages() ... DONE
  [20:19:48.097] 
  [20:19:48.097] 
  [20:19:48.097]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:19:48.129] getGlobalsAndPackages() ...
  [20:19:48.129] - globals passed as-is: [1] '...future.x_ii'
  [20:19:48.130] Resolving globals: FALSE
  [20:19:48.131] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:19:48.131] - globals: [1] '...future.x_ii'
  [20:19:48.131] 
  [20:19:48.131] getGlobalsAndPackages() ... DONE
  [20:19:48.181] Packages needed by the future expression (n = 1): 'doFuture'
  [20:19:48.182] Packages needed by future strategies (n = 1): 'future'
  [20:19:48.186] {
  [20:19:48.186]     {
  [20:19:48.186]         ...future.startTime <- Sys.time()
  [20:19:48.186]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:19:48.186]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:19:48.186]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:19:48.186]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:19:48.186]             future.resolve.recursive = NULL, width = 80L)
  [20:19:48.186]         {
  [20:19:48.186]             {
  [20:19:48.186]                 {
  [20:19:48.186]                   {
  [20:19:48.186]                     has_future <- requireNamespace("future", 
  [20:19:48.186]                       quietly = TRUE)
  [20:19:48.186]                     version <- if (has_future) 
  [20:19:48.186]                       packageVersion("future")
  [20:19:48.186]                     else NULL
  [20:19:48.186]                     if (!has_future || version < "1.8.0") {
  [20:19:48.186]                       info <- c(r_version = gsub("R version ", 
  [20:19:48.186]                         "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:19:48.186]                         R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:19:48.186]                         os = paste(Sys.info()[c("sysname", "release", 
  [20:19:48.186]                           "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:19:48.186]                       info <- sprintf("%s: %s", names(info), 
  [20:19:48.186]                         info)
  [20:19:48.186]                       info <- paste(info, collapse = "; ")
  [20:19:48.186]                       if (!has_future) {
  [20:19:48.186]                         msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:19:48.186]                           info)
  [20:19:48.186]                       }
  [20:19:48.186]                       else {
  [20:19:48.186]                         msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:19:48.186]                           info, version)
  [20:19:48.186]                       }
  [20:19:48.186]                       stop(msg)
  [20:19:48.186]                     }
  [20:19:48.186]                   }
  [20:19:48.186]                   ...future.mc.cores.old <- getOption("mc.cores")
  [20:19:48.186]                   options(mc.cores = 1L)
  [20:19:48.186]                 }
  [20:19:48.186]                 local({
  [20:19:48.186]                   for (pkg in c("doFuture", "future")) {
  [20:19:48.186]                     loadNamespace(pkg)
  [20:19:48.186]                     library(pkg, character.only = TRUE)
  [20:19:48.186]                   }
  [20:19:48.186]                 })
  [20:19:48.186]             }
  [20:19:48.186]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:19:48.186]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:48.186]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:19:48.186]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:19:48.186]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:48.186]                 ...) 
  [20:19:48.186]             {
  [20:19:48.186]                 if (substitute) 
  [20:19:48.186]                   expr <- substitute(expr)
  [20:19:48.186]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:48.186]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.186]                   globals = globals, persistent = persistent, 
  [20:19:48.186]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:48.186]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:48.186]                   label = label, ...)
  [20:19:48.186]                 if (!future$lazy) 
  [20:19:48.186]                   future <- run(future)
  [20:19:48.186]                 invisible(future)
  [20:19:48.186]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:48.186]         }
  [20:19:48.186]     }
  [20:19:48.186]     if (is.na(TRUE)) {
  [20:19:48.186]     }
  [20:19:48.186]     else {
  [20:19:48.186]         if (TRUE) {
  [20:19:48.186]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:19:48.186]         }
  [20:19:48.186]         else {
  [20:19:48.186]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:19:48.186]                 windows = "NUL", "/dev/null"), open = "w")
  [20:19:48.186]         }
  [20:19:48.186]         sink(...future.stdout, type = "output", split = FALSE)
  [20:19:48.186]         on.exit(if (!is.null(...future.stdout)) {
  [20:19:48.186]             sink(type = "output", split = FALSE)
  [20:19:48.186]             close(...future.stdout)
  [20:19:48.186]         }, add = TRUE)
  [20:19:48.186]     }
  [20:19:48.186]     ...future.frame <- sys.nframe()
  [20:19:48.186]     ...future.conditions <- list()
  [20:19:48.186]     ...future.result <- tryCatch({
  [20:19:48.186]         withCallingHandlers({
  [20:19:48.186]             ...future.value <- withVisible(local({
  [20:19:48.186]                 doFuture::registerDoFuture()
  [20:19:48.186]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:19:48.186]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:19:48.186]                   {
  [20:19:48.186]                     a <- NULL
  [20:19:48.186]                     b <- NULL
  [20:19:48.186]                   }
  [20:19:48.186]                   ...future.env <- environment()
  [20:19:48.186]                   local({
  [20:19:48.186]                     for (name in names(...future.x_jj)) {
  [20:19:48.186]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:19:48.186]                         inherits = FALSE)
  [20:19:48.186]                     }
  [20:19:48.186]                   })
  [20:19:48.186]                   tryCatch({
  [20:19:48.186]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:19:48.186]                       plan = future::plan())
  [20:19:48.186]                   }, error = identity)
  [20:19:48.186]                 })
  [20:19:48.186]             }))
  [20:19:48.186]             future::FutureResult(value = ...future.value$value, 
  [20:19:48.186]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:19:48.186]                 version = "1.8")
  [20:19:48.186]         }, condition = local({
  [20:19:48.186]             inherits <- base::inherits
  [20:19:48.186]             invokeRestart <- base::invokeRestart
  [20:19:48.186]             length <- base::length
  [20:19:48.186]             seq.int <- base::seq.int
  [20:19:48.186]             sys.calls <- base::sys.calls
  [20:19:48.186]             `[[` <- base::`[[`
  [20:19:48.186]             `+` <- base::`+`
  [20:19:48.186]             `<<-` <- base::`<<-`
  [20:19:48.186]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:19:48.186]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:19:48.186]                   3L)]
  [20:19:48.186]             }
  [20:19:48.186]             function(cond) {
  [20:19:48.186]                 if (inherits(cond, "error")) {
  [20:19:48.186]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:48.186]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:19:48.186]                     cond$call), timestamp = base::Sys.time(), 
  [20:19:48.186]                     signaled = 0L)
  [20:19:48.186]                   signalCondition(cond)
  [20:19:48.186]                 }
  [20:19:48.186]                 else if (inherits(cond, "condition")) {
  [20:19:48.186]                   signal <- FALSE && inherits(cond, character(0))
  [20:19:48.186]                   ...future.conditions[[length(...future.conditions) + 
  [20:19:48.186]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:19:48.186]                   if (!signal) {
  [20:19:48.186]                     muffleCondition <- function (cond) 
  [20:19:48.186]                     {
  [20:19:48.186]                       inherits <- base::inherits
  [20:19:48.186]                       invokeRestart <- base::invokeRestart
  [20:19:48.186]                       muffled <- FALSE
  [20:19:48.186]                       if (inherits(cond, "message")) {
  [20:19:48.186]                         invokeRestart("muffleMessage")
  [20:19:48.186]                         muffled <- TRUE
  [20:19:48.186]                       }
  [20:19:48.186]                       else if (inherits(cond, "warning")) {
  [20:19:48.186]                         invokeRestart("muffleWarning")
  [20:19:48.186]                         muffled <- TRUE
  [20:19:48.186]                       }
  [20:19:48.186]                       else if (inherits(cond, "condition")) {
  [20:19:48.186]                         computeRestarts <- base::computeRestarts
  [20:19:48.186]                         grepl <- base::grepl
  [20:19:48.186]                         is.null <- base::is.null
  [20:19:48.186]                         restarts <- computeRestarts(cond)
  [20:19:48.186]                         for (restart in restarts) {
  [20:19:48.186]                           name <- restart$name
  [20:19:48.186]                           if (is.null(name)) 
  [20:19:48.186]                             next
  [20:19:48.186]                           if (!grepl("^muffle", name)) 
  [20:19:48.186]                             next
  [20:19:48.186]                           invokeRestart(restart)
  [20:19:48.186]                           muffled <- TRUE
  [20:19:48.186]                           break
  [20:19:48.186]                         }
  [20:19:48.186]                       }
  [20:19:48.186]                       invisible(muffled)
  [20:19:48.186]                     }
  [20:19:48.186]                     muffleCondition(cond)
  [20:19:48.186]                   }
  [20:19:48.186]                 }
  [20:19:48.186]             }
  [20:19:48.186]         }))
  [20:19:48.186]     }, error = function(ex) {
  [20:19:48.186]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:19:48.186]             version = "1.8"), class = "FutureResult")
  [20:19:48.186]     }, finally = {
  [20:19:48.186]         {
  [20:19:48.186]             {
  [20:19:48.186]                 options(mc.cores = ...future.mc.cores.old)
  [20:19:48.186]             }
  [20:19:48.186]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:19:48.186]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:19:48.186]                 globals = TRUE, persistent = FALSE, workers = availableCores(), 
  [20:19:48.186]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:19:48.186]                 ...) 
  [20:19:48.186]             {
  [20:19:48.186]                 if (substitute) 
  [20:19:48.186]                   expr <- substitute(expr)
  [20:19:48.186]                 if (is.function(workers)) 
  [20:19:48.186]                   workers <- workers()
  [20:19:48.186]                 workers <- as.integer(workers)
  [20:19:48.186]                 stop_if_not(length(workers) == 1, is.finite(workers), 
  [20:19:48.186]                   workers >= 1)
  [20:19:48.186]                 if (workers == 1L) {
  [20:19:48.186]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [20:19:48.186]                     lazy = TRUE, seed = seed, globals = globals, 
  [20:19:48.186]                     local = TRUE, label = label, ...))
  [20:19:48.186]                 }
  [20:19:48.186]                 workers <- ClusterRegistry("start", workers = workers)
  [20:19:48.186]                 future <- MultisessionFuture(expr = expr, envir = envir, 
  [20:19:48.186]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.186]                   globals = globals, persistent = persistent, 
  [20:19:48.186]                   workers = workers, gc = gc, earlySignal = earlySignal, 
  [20:19:48.186]                   label = label, ...)
  [20:19:48.186]                 if (!future$lazy) 
  [20:19:48.186]                   future <- run(future)
  [20:19:48.186]                 invisible(future)
  [20:19:48.186]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:19:48.186]                 lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, 
  [20:19:48.186]                 workers = availableWorkers(), user = NULL, revtunnel = TRUE, 
  [20:19:48.186]                 homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, 
  [20:19:48.186]                 label = NULL, ...) 
  [20:19:48.186]             {
  [20:19:48.186]                 if (substitute) 
  [20:19:48.186]                   expr <- substitute(expr)
  [20:19:48.186]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:19:48.186]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:19:48.186]                   globals = globals, persistent = persistent, 
  [20:19:48.186]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:19:48.186]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:19:48.186]                   label = label, ...)
  [20:19:48.186]                 if (!future$lazy) 
  [20:19:48.186]                   future <- run(future)
  [20:19:48.186]                 invisible(future)
  [20:19:48.186]             }), .cleanup = FALSE, .init = FALSE)
  [20:19:48.186]         }
  [20:19:48.186]         options(...future.oldOptions)
  [20:19:48.186]     })
  [20:19:48.186]     if (is.na(TRUE)) {
  [20:19:48.186]     }
  [20:19:48.186]     else {
  [20:19:48.186]         sink(type = "output", split = FALSE)
  [20:19:48.186]         if (TRUE) {
  [20:19:48.186]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:19:48.186]         }
  [20:19:48.186]         else {
  [20:19:48.186]             ...future.result["stdout"] <- list(NULL)
  [20:19:48.186]         }
  [20:19:48.186]         close(...future.stdout)
  [20:19:48.186]         ...future.stdout <- NULL
  [20:19:48.186]     }
  [20:19:48.186]     ...future.result$conditions <- ...future.conditions
  [20:19:48.186]     ...future.result
  [20:19:48.186] }
  [20:19:48.206] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:19:48.207] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:19:48.207] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:19:48.208] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:19:48.209] MultisessionFuture started
  [20:19:48.209] Chunk #2 of 2 ... DONE
  [20:19:48.209] Launching 2 futures (chunks) ... DONE
  [20:19:48.210] - resolving futures
  [20:19:48.210]   - gathering results & relaying conditions (except errors)
  [20:19:48.210] resolve() on list ...
  [20:19:48.210]  recursive: 0
  [20:19:48.211]  length: 2
  [20:19:48.211] 
  [20:19:48.716] Future #1
  [20:19:48.716] result() for ClusterFuture ...
  [20:19:48.716] - Validating connection of MultisessionFuture
  [20:19:48.717] - class(result): FutureResult
  [20:19:48.718] result() for ClusterFuture ...
  [20:19:48.718] - result already collected: FutureResult
  [20:19:48.718] result() for ClusterFuture ... done
  [20:19:48.718] result() for ClusterFuture ... done
  [20:19:48.719] result() for ClusterFuture ...
  [20:19:48.719] - result already collected: FutureResult
  [20:19:48.719] result() for ClusterFuture ... done
  [20:19:48.720] signalConditionsASAP(MultisessionFuture, pos=1) ...
  [20:19:48.720] - nx: 2
  [20:19:48.720] - relay: TRUE
  [20:19:48.720] - stdout: TRUE
  [20:19:48.721] - signal: TRUE
  [20:19:48.721] - resignal: FALSE
  [20:19:48.721] - force: FALSE
  [20:19:48.721] - relayed: [n=2] FALSE, FALSE
  [20:19:48.722] - queued futures: [n=2] FALSE, FALSE
  [20:19:48.722]  - until=1
  [20:19:48.722]  - relaying element #1
  [20:19:48.722] result() for ClusterFuture ...
  [20:19:48.723] - result already collected: FutureResult
  [20:19:48.723] result() for ClusterFuture ... done
  [20:19:48.723] result() for ClusterFuture ...
  [20:19:48.723] - result already collected: FutureResult
  [20:19:48.724] result() for ClusterFuture ... done
  [20:19:48.724] result() for ClusterFuture ...
  [20:19:48.724] - result already collected: FutureResult
  [20:19:48.725] result() for ClusterFuture ... done
  [20:19:48.725] result() for ClusterFuture ...
  [20:19:48.725] - result already collected: FutureResult
  [20:19:48.725] result() for ClusterFuture ... done
  [20:19:48.726] - relayed: [n=2] TRUE, FALSE
  [20:19:48.726] - queued futures: [n=2] TRUE, FALSE
  [20:19:48.726] signalConditionsASAP(MultisessionFuture, pos=1) ... done
  [20:19:48.727]  length: 1 (resolved future 1)
  [20:19:48.735] Future #2
  [20:19:48.735] result() for ClusterFuture ...
  [20:19:48.735] - Validating connection of MultisessionFuture
  [20:19:48.778] - class(result): FutureResult
  [20:19:48.779] result() for ClusterFuture ...
  [20:19:48.779] - result already collected: FutureResult
  [20:19:48.779] result() for ClusterFuture ... done
  [20:19:48.780] result() for ClusterFuture ... done
  [20:19:48.780] result() for ClusterFuture ...
  [20:19:48.780] - result already collected: FutureResult
  [20:19:48.780] result() for ClusterFuture ... done
  [20:19:48.781] signalConditionsASAP(MultisessionFuture, pos=2) ...
  [20:19:48.781] - nx: 2
  [20:19:48.781] - relay: TRUE
  [20:19:48.781] - stdout: TRUE
  [20:19:48.782] - signal: TRUE
  [20:19:48.782] - resignal: FALSE
  [20:19:48.782] - force: FALSE
  [20:19:48.783] - relayed: [n=2] TRUE, FALSE
  [20:19:48.783] - queued futures: [n=2] TRUE, FALSE
  [20:19:48.783]  - until=2
  [20:19:48.783]  - relaying element #2
  [20:19:48.784] result() for ClusterFuture ...
  [20:19:48.784] - result already collected: FutureResult
  [20:19:48.784] result() for ClusterFuture ... done
  [20:19:48.785] result() for ClusterFuture ...
  [20:19:48.785] - result already collected: FutureResult
  [20:19:48.785] result() for ClusterFuture ... done
  [20:19:48.786] result() for ClusterFuture ...
  [20:19:48.786] - result already collected: FutureResult
  [20:19:48.786] result() for ClusterFuture ... done
  [20:19:48.786] result() for ClusterFuture ...
  [20:19:48.787] - result already collected: FutureResult
  [20:19:48.787] result() for ClusterFuture ... done
  [20:19:48.787] - relayed: [n=2] TRUE, TRUE
  [20:19:48.787] - queued futures: [n=2] TRUE, TRUE
  [20:19:48.788] signalConditionsASAP(MultisessionFuture, pos=2) ... done
  [20:19:48.788]  length: 0 (resolved future 2)
  [20:19:48.788] Relaying remaining futures
  [20:19:48.789] signalConditionsASAP(NULL, pos=0) ...
  [20:19:48.789] - nx: 2
  [20:19:48.789] - relay: TRUE
  [20:19:48.789] - stdout: TRUE
  [20:19:48.790] - signal: TRUE
  [20:19:48.790] - resignal: FALSE
  [20:19:48.790] - force: FALSE
  [20:19:48.790] - relayed: [n=2] TRUE, TRUE
  [20:19:48.791] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:19:48.791] - relayed: [n=2] TRUE, TRUE
  [20:19:48.791] - queued futures: [n=2] TRUE, TRUE
  [20:19:48.792] signalConditionsASAP(NULL, pos=0) ... done
  [20:19:48.792] resolve() on list ... DONE
  [20:19:48.792] - collecting values of futures
  [20:19:48.792] result() for ClusterFuture ...
  [20:19:48.793] - result already collected: FutureResult
  [20:19:48.793] result() for ClusterFuture ... done
  [20:19:48.793] result() for ClusterFuture ...
  [20:19:48.793] - result already collected: FutureResult
  [20:19:48.794] result() for ClusterFuture ... done
  [20:19:48.794] result() for ClusterFuture ...
  [20:19:48.794] - result already collected: FutureResult
  [20:19:48.794] result() for ClusterFuture ... done
  [20:19:48.795] result() for ClusterFuture ...
  [20:19:48.795] - result already collected: FutureResult
  [20:19:48.795] result() for ClusterFuture ... done
  [20:19:48.834] - accumulating results
  [20:19:48.836] - processing errors (handler = 'stop')
  [20:19:48.837] - extracting results
  [20:19:48.837] doFuture() ... DONE
  - plan(list('multisession', 'cluster')) ... DONE
  - plan(list('cluster', 'sequential')) ...
  [20:19:48.838] plan(): Setting new future strategy stack:
  [20:19:48.838] List of future strategies:
  [20:19:48.838] 1. cluster:
  [20:19:48.838]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:48.838]    - tweaked: FALSE
  [20:19:48.838]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:48.838] 2. sequential:
  [20:19:48.838]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [20:19:48.838]    - tweaked: FALSE
  [20:19:48.838]    - call: plan(list(a = strategy1, b = strategy2))
  [20:19:48.863] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [20:19:48.863] cluster:
  [20:19:48.863] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:19:48.863] - tweaked: FALSE
  [20:19:48.863] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 28069
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f63cae6fe.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f63cae6fe.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f63cae6fe.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28069 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 2 ... done
  [local output] Creating node 2 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f62b9a9665.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f62b9a9665.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #2 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f62b9a9665.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=28069 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #2 on 'localhost' to connect back
  [local output] Connection with worker #2 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 2 of 2 ... done
  [20:20:07.867] getGlobalsAndPackages() ...
  [20:20:07.868] Not searching for globals
  [20:20:07.868] - globals: [0] <none>
  [20:20:07.868] getGlobalsAndPackages() ... DONE
  [20:20:07.870] Packages needed by the future expression (n = 0): <none>
  [20:20:07.870] Packages needed by future strategies (n = 1): 'future'
  [20:20:07.873] {
  [20:20:07.873]     {
  [20:20:07.873]         ...future.startTime <- Sys.time()
  [20:20:07.873]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:20:07.873]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:20:07.873]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:20:07.873]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:20:07.873]             future.resolve.recursive = NULL, width = 80L)
  [20:20:07.873]         {
  [20:20:07.873]             {
  [20:20:07.873]                 {
  [20:20:07.873]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:20:07.873]                   version <- if (has_future) 
  [20:20:07.873]                     packageVersion("future")
  [20:20:07.873]                   else NULL
  [20:20:07.873]                   if (!has_future || version < "1.8.0") {
  [20:20:07.873]                     info <- c(r_version = gsub("R version ", 
  [20:20:07.873]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:20:07.873]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:20:07.873]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:20:07.873]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:20:07.873]                     info <- sprintf("%s: %s", names(info), info)
  [20:20:07.873]                     info <- paste(info, collapse = "; ")
  [20:20:07.873]                     if (!has_future) {
  [20:20:07.873]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:20:07.873]                         info)
  [20:20:07.873]                     }
  [20:20:07.873]                     else {
  [20:20:07.873]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:20:07.873]                         info, version)
  [20:20:07.873]                     }
  [20:20:07.873]                     stop(msg)
  [20:20:07.873]                   }
  [20:20:07.873]                 }
  [20:20:07.873]                 local({
  [20:20:07.873]                   for (pkg in "future") {
  [20:20:07.873]                     loadNamespace(pkg)
  [20:20:07.873]                     library(pkg, character.only = TRUE)
  [20:20:07.873]                   }
  [20:20:07.873]                 })
  [20:20:07.873]             }
  [20:20:07.873]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:20:07.873]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:07.873]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:20:07.873]                 label = NULL, ...) 
  [20:20:07.873]             {
  [20:20:07.873]                 if (substitute) 
  [20:20:07.873]                   expr <- substitute(expr)
  [20:20:07.873]                 local <- as.logical(local)
  [20:20:07.873]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:07.873]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:07.873]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:07.873]                   label = label, ...)
  [20:20:07.873]                 if (!future$lazy) 
  [20:20:07.873]                   future <- run(future)
  [20:20:07.873]                 invisible(future)
  [20:20:07.873]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:07.873]         }
  [20:20:07.873]     }
  [20:20:07.873]     if (is.na(TRUE)) {
  [20:20:07.873]     }
  [20:20:07.873]     else {
  [20:20:07.873]         if (TRUE) {
  [20:20:07.873]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:20:07.873]         }
  [20:20:07.873]         else {
  [20:20:07.873]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:20:07.873]                 windows = "NUL", "/dev/null"), open = "w")
  [20:20:07.873]         }
  [20:20:07.873]         sink(...future.stdout, type = "output", split = FALSE)
  [20:20:07.873]         on.exit(if (!is.null(...future.stdout)) {
  [20:20:07.873]             sink(type = "output", split = FALSE)
  [20:20:07.873]             close(...future.stdout)
  [20:20:07.873]         }, add = TRUE)
  [20:20:07.873]     }
  [20:20:07.873]     ...future.frame <- sys.nframe()
  [20:20:07.873]     ...future.conditions <- list()
  [20:20:07.873]     ...future.result <- tryCatch({
  [20:20:07.873]         withCallingHandlers({
  [20:20:07.873]             ...future.value <- withVisible(local(NA))
  [20:20:07.873]             future::FutureResult(value = ...future.value$value, 
  [20:20:07.873]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:20:07.873]                 version = "1.8")
  [20:20:07.873]         }, condition = local({
  [20:20:07.873]             inherits <- base::inherits
  [20:20:07.873]             invokeRestart <- base::invokeRestart
  [20:20:07.873]             length <- base::length
  [20:20:07.873]             seq.int <- base::seq.int
  [20:20:07.873]             sys.calls <- base::sys.calls
  [20:20:07.873]             `[[` <- base::`[[`
  [20:20:07.873]             `+` <- base::`+`
  [20:20:07.873]             `<<-` <- base::`<<-`
  [20:20:07.873]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:20:07.873]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:20:07.873]                   3L)]
  [20:20:07.873]             }
  [20:20:07.873]             function(cond) {
  [20:20:07.873]                 if (inherits(cond, "error")) {
  [20:20:07.873]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:07.873]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:20:07.873]                     cond$call), timestamp = base::Sys.time(), 
  [20:20:07.873]                     signaled = 0L)
  [20:20:07.873]                   signalCondition(cond)
  [20:20:07.873]                 }
  [20:20:07.873]                 else if (inherits(cond, "condition")) {
  [20:20:07.873]                   signal <- FALSE && inherits(cond, character(0))
  [20:20:07.873]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:07.873]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:20:07.873]                   if (!signal) {
  [20:20:07.873]                     muffleCondition <- function (cond) 
  [20:20:07.873]                     {
  [20:20:07.873]                       inherits <- base::inherits
  [20:20:07.873]                       invokeRestart <- base::invokeRestart
  [20:20:07.873]                       muffled <- FALSE
  [20:20:07.873]                       if (inherits(cond, "message")) {
  [20:20:07.873]                         invokeRestart("muffleMessage")
  [20:20:07.873]                         muffled <- TRUE
  [20:20:07.873]                       }
  [20:20:07.873]                       else if (inherits(cond, "warning")) {
  [20:20:07.873]                         invokeRestart("muffleWarning")
  [20:20:07.873]                         muffled <- TRUE
  [20:20:07.873]                       }
  [20:20:07.873]                       else if (inherits(cond, "condition")) {
  [20:20:07.873]                         computeRestarts <- base::computeRestarts
  [20:20:07.873]                         grepl <- base::grepl
  [20:20:07.873]                         is.null <- base::is.null
  [20:20:07.873]                         restarts <- computeRestarts(cond)
  [20:20:07.873]                         for (restart in restarts) {
  [20:20:07.873]                           name <- restart$name
  [20:20:07.873]                           if (is.null(name)) 
  [20:20:07.873]                             next
  [20:20:07.873]                           if (!grepl("^muffle", name)) 
  [20:20:07.873]                             next
  [20:20:07.873]                           invokeRestart(restart)
  [20:20:07.873]                           muffled <- TRUE
  [20:20:07.873]                           break
  [20:20:07.873]                         }
  [20:20:07.873]                       }
  [20:20:07.873]                       invisible(muffled)
  [20:20:07.873]                     }
  [20:20:07.873]                     muffleCondition(cond)
  [20:20:07.873]                   }
  [20:20:07.873]                 }
  [20:20:07.873]             }
  [20:20:07.873]         }))
  [20:20:07.873]     }, error = function(ex) {
  [20:20:07.873]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:20:07.873]             version = "1.8"), class = "FutureResult")
  [20:20:07.873]     }, finally = {
  [20:20:07.873]         {
  [20:20:07.873]             NULL
  [20:20:07.873]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:20:07.873]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:07.873]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:20:07.873]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:20:07.873]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:20:07.873]                 ...) 
  [20:20:07.873]             {
  [20:20:07.873]                 if (substitute) 
  [20:20:07.873]                   expr <- substitute(expr)
  [20:20:07.873]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:20:07.873]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:07.873]                   globals = globals, persistent = persistent, 
  [20:20:07.873]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:20:07.873]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:20:07.873]                   label = label, ...)
  [20:20:07.873]                 if (!future$lazy) 
  [20:20:07.873]                   future <- run(future)
  [20:20:07.873]                 invisible(future)
  [20:20:07.873]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:20:07.873]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:20:07.873]                 earlySignal = FALSE, label = NULL, ...) 
  [20:20:07.873]             {
  [20:20:07.873]                 if (substitute) 
  [20:20:07.873]                   expr <- substitute(expr)
  [20:20:07.873]                 local <- as.logical(local)
  [20:20:07.873]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:07.873]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:07.873]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:07.873]                   label = label, ...)
  [20:20:07.873]                 if (!future$lazy) 
  [20:20:07.873]                   future <- run(future)
  [20:20:07.873]                 invisible(future)
  [20:20:07.873]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:07.873]         }
  [20:20:07.873]         options(...future.oldOptions)
  [20:20:07.873]     })
  [20:20:07.873]     if (is.na(TRUE)) {
  [20:20:07.873]     }
  [20:20:07.873]     else {
  [20:20:07.873]         sink(type = "output", split = FALSE)
  [20:20:07.873]         if (TRUE) {
  [20:20:07.873]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:20:07.873]         }
  [20:20:07.873]         else {
  [20:20:07.873]             ...future.result["stdout"] <- list(NULL)
  [20:20:07.873]         }
  [20:20:07.873]         close(...future.stdout)
  [20:20:07.873]         ...future.stdout <- NULL
  [20:20:07.873]     }
  [20:20:07.873]     ...future.result$conditions <- ...future.conditions
  [20:20:07.873]     ...future.result
  [20:20:07.873] }
  [20:20:07.903] ClusterFuture started
  [20:20:07.903] result() for ClusterFuture ...
  [20:20:07.903] - Validating connection of ClusterFuture
  [20:20:08.194] - class(result): FutureResult
  [20:20:08.195] result() for ClusterFuture ...
  [20:20:08.195] - result already collected: FutureResult
  [20:20:08.195] result() for ClusterFuture ... done
  [20:20:08.196] result() for ClusterFuture ... done
  [20:20:08.196] result() for ClusterFuture ...
  [20:20:08.196] - result already collected: FutureResult
  [20:20:08.197] result() for ClusterFuture ... done
  [20:20:08.197] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [20:20:08.198] plan(): nbrOfWorkers() = 2
  [20:20:08.199] doFuture() ...
  [20:20:08.202] - dummy globals (as locals): [2] 'a', 'b'
  [20:20:08.203] - R expression:
  [20:20:08.203] {
  [20:20:08.203]     doFuture::registerDoFuture()
  [20:20:08.203]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:20:08.203]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:20:08.203]         {
  [20:20:08.203]             a <- NULL
  [20:20:08.203]             b <- NULL
  [20:20:08.203]         }
  [20:20:08.203]         ...future.env <- environment()
  [20:20:08.203]         local({
  [20:20:08.203]             for (name in names(...future.x_jj)) {
  [20:20:08.203]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:20:08.203]                   inherits = FALSE)
  [20:20:08.203]             }
  [20:20:08.203]         })
  [20:20:08.203]         tryCatch({
  [20:20:08.203]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:20:08.203]                 plan = future::plan())
  [20:20:08.203]         }, error = identity)
  [20:20:08.203]     })
  [20:20:08.203] }
  [20:20:08.204] - identifying globals and packages ...
  [20:20:08.204] getGlobalsAndPackages() ...
  [20:20:08.205] Searching for globals...
  [20:20:08.238] - globals found: [15] '{', '::', 'lapply', 'seq_along', '...future.x_ii', '<-', '[[', 'environment', 'local', 'for', 'names', 'assign', 'tryCatch', 'list', 'identity'
  [20:20:08.238] Searching for globals ... DONE
  [20:20:08.239] Resolving globals: FALSE
  [20:20:08.240] The total size of the 1 globals is 0 bytes (0 bytes)
  [20:20:08.240] - globals: [1] '...future.x_ii'
  [20:20:08.241] 
  [20:20:08.241] getGlobalsAndPackages() ... DONE
  [20:20:08.241] List of 1
  [20:20:08.241]  $ ...future.x_ii: NULL
  [20:20:08.241]  - attr(*, "where")=List of 1
  [20:20:08.241]   ..$ ...future.x_ii:<environment: 0x55aab1566948> 
  [20:20:08.241]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:20:08.241]  - attr(*, "resolved")= logi FALSE
  [20:20:08.241]  - attr(*, "total_size")= num 0
  [20:20:08.263]   - R expression:
  [20:20:08.264] {
  [20:20:08.264]     doFuture::registerDoFuture()
  [20:20:08.264]     lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:20:08.264]         ...future.x_jj <- ...future.x_ii[[jj]]
  [20:20:08.264]         {
  [20:20:08.264]             a <- NULL
  [20:20:08.264]             b <- NULL
  [20:20:08.264]         }
  [20:20:08.264]         ...future.env <- environment()
  [20:20:08.264]         local({
  [20:20:08.264]             for (name in names(...future.x_jj)) {
  [20:20:08.264]                 assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:20:08.264]                   inherits = FALSE)
  [20:20:08.264]             }
  [20:20:08.264]         })
  [20:20:08.264]         tryCatch({
  [20:20:08.264]             list(a = a, b = b, plan_b = future::plan("list"), 
  [20:20:08.264]                 plan = future::plan())
  [20:20:08.264]         }, error = identity)
  [20:20:08.264]     })
  [20:20:08.264] }
  [20:20:08.264]   - globals: [1] '...future.x_ii'
  [20:20:08.265] List of 1
  [20:20:08.265]  $ ...future.x_ii: NULL
  [20:20:08.265]  - attr(*, "where")=List of 1
  [20:20:08.265]   ..$ ...future.x_ii:<environment: 0x55aab1566948> 
  [20:20:08.265]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
  [20:20:08.265]  - attr(*, "resolved")= logi FALSE
  [20:20:08.265]  - attr(*, "total_size")= num 0
  [20:20:08.270]   - packages: [1] 'doFuture'
  [20:20:08.271] - identifying globals and packages ... DONE
  [20:20:08.272] Number of chunks: 2
  [20:20:08.272] Number of futures (= number of chunks): 2
  [20:20:08.273] Launching 2 futures (chunks) ...
  [20:20:08.273] Chunk #1 of 2 ...
  [20:20:08.273]  - Finding globals in 'args_list' chunk #1 ...
  [20:20:08.273] getGlobalsAndPackages() ...
  [20:20:08.290] Searching for globals...
  [20:20:08.291] 
  [20:20:08.291] Searching for globals ... DONE
  [20:20:08.291] - globals: [0] <none>
  [20:20:08.292] getGlobalsAndPackages() ... DONE
  [20:20:08.292] 
  [20:20:08.292] 
  [20:20:08.292]  - Finding globals in 'args_list' for chunk #1 ... DONE
  [20:20:08.299] getGlobalsAndPackages() ...
  [20:20:08.300] - globals passed as-is: [1] '...future.x_ii'
  [20:20:08.300] Resolving globals: FALSE
  [20:20:08.301] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:20:08.301] - globals: [1] '...future.x_ii'
  [20:20:08.302] 
  [20:20:08.302] getGlobalsAndPackages() ... DONE
  [20:20:08.304] Packages needed by the future expression (n = 1): 'doFuture'
  [20:20:08.304] Packages needed by future strategies (n = 1): 'future'
  [20:20:08.324] {
  [20:20:08.324]     {
  [20:20:08.324]         ...future.startTime <- Sys.time()
  [20:20:08.324]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:20:08.324]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:20:08.324]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:20:08.324]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:20:08.324]             future.resolve.recursive = NULL, width = 80L)
  [20:20:08.324]         {
  [20:20:08.324]             {
  [20:20:08.324]                 {
  [20:20:08.324]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:20:08.324]                   version <- if (has_future) 
  [20:20:08.324]                     packageVersion("future")
  [20:20:08.324]                   else NULL
  [20:20:08.324]                   if (!has_future || version < "1.8.0") {
  [20:20:08.324]                     info <- c(r_version = gsub("R version ", 
  [20:20:08.324]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:20:08.324]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:20:08.324]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:20:08.324]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:20:08.324]                     info <- sprintf("%s: %s", names(info), info)
  [20:20:08.324]                     info <- paste(info, collapse = "; ")
  [20:20:08.324]                     if (!has_future) {
  [20:20:08.324]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:20:08.324]                         info)
  [20:20:08.324]                     }
  [20:20:08.324]                     else {
  [20:20:08.324]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:20:08.324]                         info, version)
  [20:20:08.324]                     }
  [20:20:08.324]                     stop(msg)
  [20:20:08.324]                   }
  [20:20:08.324]                 }
  [20:20:08.324]                 local({
  [20:20:08.324]                   for (pkg in c("doFuture", "future")) {
  [20:20:08.324]                     loadNamespace(pkg)
  [20:20:08.324]                     library(pkg, character.only = TRUE)
  [20:20:08.324]                   }
  [20:20:08.324]                 })
  [20:20:08.324]             }
  [20:20:08.324]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:20:08.324]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:08.324]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:20:08.324]                 label = NULL, ...) 
  [20:20:08.324]             {
  [20:20:08.324]                 if (substitute) 
  [20:20:08.324]                   expr <- substitute(expr)
  [20:20:08.324]                 local <- as.logical(local)
  [20:20:08.324]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:08.324]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.324]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:08.324]                   label = label, ...)
  [20:20:08.324]                 if (!future$lazy) 
  [20:20:08.324]                   future <- run(future)
  [20:20:08.324]                 invisible(future)
  [20:20:08.324]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:08.324]         }
  [20:20:08.324]     }
  [20:20:08.324]     if (is.na(TRUE)) {
  [20:20:08.324]     }
  [20:20:08.324]     else {
  [20:20:08.324]         if (TRUE) {
  [20:20:08.324]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:20:08.324]         }
  [20:20:08.324]         else {
  [20:20:08.324]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:20:08.324]                 windows = "NUL", "/dev/null"), open = "w")
  [20:20:08.324]         }
  [20:20:08.324]         sink(...future.stdout, type = "output", split = FALSE)
  [20:20:08.324]         on.exit(if (!is.null(...future.stdout)) {
  [20:20:08.324]             sink(type = "output", split = FALSE)
  [20:20:08.324]             close(...future.stdout)
  [20:20:08.324]         }, add = TRUE)
  [20:20:08.324]     }
  [20:20:08.324]     ...future.frame <- sys.nframe()
  [20:20:08.324]     ...future.conditions <- list()
  [20:20:08.324]     ...future.result <- tryCatch({
  [20:20:08.324]         withCallingHandlers({
  [20:20:08.324]             ...future.value <- withVisible(local({
  [20:20:08.324]                 doFuture::registerDoFuture()
  [20:20:08.324]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:20:08.324]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:20:08.324]                   {
  [20:20:08.324]                     a <- NULL
  [20:20:08.324]                     b <- NULL
  [20:20:08.324]                   }
  [20:20:08.324]                   ...future.env <- environment()
  [20:20:08.324]                   local({
  [20:20:08.324]                     for (name in names(...future.x_jj)) {
  [20:20:08.324]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:20:08.324]                         inherits = FALSE)
  [20:20:08.324]                     }
  [20:20:08.324]                   })
  [20:20:08.324]                   tryCatch({
  [20:20:08.324]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:20:08.324]                       plan = future::plan())
  [20:20:08.324]                   }, error = identity)
  [20:20:08.324]                 })
  [20:20:08.324]             }))
  [20:20:08.324]             future::FutureResult(value = ...future.value$value, 
  [20:20:08.324]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:20:08.324]                 version = "1.8")
  [20:20:08.324]         }, condition = local({
  [20:20:08.324]             inherits <- base::inherits
  [20:20:08.324]             invokeRestart <- base::invokeRestart
  [20:20:08.324]             length <- base::length
  [20:20:08.324]             seq.int <- base::seq.int
  [20:20:08.324]             sys.calls <- base::sys.calls
  [20:20:08.324]             `[[` <- base::`[[`
  [20:20:08.324]             `+` <- base::`+`
  [20:20:08.324]             `<<-` <- base::`<<-`
  [20:20:08.324]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:20:08.324]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:20:08.324]                   3L)]
  [20:20:08.324]             }
  [20:20:08.324]             function(cond) {
  [20:20:08.324]                 if (inherits(cond, "error")) {
  [20:20:08.324]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:08.324]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:20:08.324]                     cond$call), timestamp = base::Sys.time(), 
  [20:20:08.324]                     signaled = 0L)
  [20:20:08.324]                   signalCondition(cond)
  [20:20:08.324]                 }
  [20:20:08.324]                 else if (inherits(cond, "condition")) {
  [20:20:08.324]                   signal <- FALSE && inherits(cond, character(0))
  [20:20:08.324]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:08.324]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:20:08.324]                   if (!signal) {
  [20:20:08.324]                     muffleCondition <- function (cond) 
  [20:20:08.324]                     {
  [20:20:08.324]                       inherits <- base::inherits
  [20:20:08.324]                       invokeRestart <- base::invokeRestart
  [20:20:08.324]                       muffled <- FALSE
  [20:20:08.324]                       if (inherits(cond, "message")) {
  [20:20:08.324]                         invokeRestart("muffleMessage")
  [20:20:08.324]                         muffled <- TRUE
  [20:20:08.324]                       }
  [20:20:08.324]                       else if (inherits(cond, "warning")) {
  [20:20:08.324]                         invokeRestart("muffleWarning")
  [20:20:08.324]                         muffled <- TRUE
  [20:20:08.324]                       }
  [20:20:08.324]                       else if (inherits(cond, "condition")) {
  [20:20:08.324]                         computeRestarts <- base::computeRestarts
  [20:20:08.324]                         grepl <- base::grepl
  [20:20:08.324]                         is.null <- base::is.null
  [20:20:08.324]                         restarts <- computeRestarts(cond)
  [20:20:08.324]                         for (restart in restarts) {
  [20:20:08.324]                           name <- restart$name
  [20:20:08.324]                           if (is.null(name)) 
  [20:20:08.324]                             next
  [20:20:08.324]                           if (!grepl("^muffle", name)) 
  [20:20:08.324]                             next
  [20:20:08.324]                           invokeRestart(restart)
  [20:20:08.324]                           muffled <- TRUE
  [20:20:08.324]                           break
  [20:20:08.324]                         }
  [20:20:08.324]                       }
  [20:20:08.324]                       invisible(muffled)
  [20:20:08.324]                     }
  [20:20:08.324]                     muffleCondition(cond)
  [20:20:08.324]                   }
  [20:20:08.324]                 }
  [20:20:08.324]             }
  [20:20:08.324]         }))
  [20:20:08.324]     }, error = function(ex) {
  [20:20:08.324]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:20:08.324]             version = "1.8"), class = "FutureResult")
  [20:20:08.324]     }, finally = {
  [20:20:08.324]         {
  [20:20:08.324]             NULL
  [20:20:08.324]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:20:08.324]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:08.324]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:20:08.324]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:20:08.324]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:20:08.324]                 ...) 
  [20:20:08.324]             {
  [20:20:08.324]                 if (substitute) 
  [20:20:08.324]                   expr <- substitute(expr)
  [20:20:08.324]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:20:08.324]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.324]                   globals = globals, persistent = persistent, 
  [20:20:08.324]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:20:08.324]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:20:08.324]                   label = label, ...)
  [20:20:08.324]                 if (!future$lazy) 
  [20:20:08.324]                   future <- run(future)
  [20:20:08.324]                 invisible(future)
  [20:20:08.324]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:20:08.324]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:20:08.324]                 earlySignal = FALSE, label = NULL, ...) 
  [20:20:08.324]             {
  [20:20:08.324]                 if (substitute) 
  [20:20:08.324]                   expr <- substitute(expr)
  [20:20:08.324]                 local <- as.logical(local)
  [20:20:08.324]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:08.324]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.324]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:08.324]                   label = label, ...)
  [20:20:08.324]                 if (!future$lazy) 
  [20:20:08.324]                   future <- run(future)
  [20:20:08.324]                 invisible(future)
  [20:20:08.324]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:08.324]         }
  [20:20:08.324]         options(...future.oldOptions)
  [20:20:08.324]     })
  [20:20:08.324]     if (is.na(TRUE)) {
  [20:20:08.324]     }
  [20:20:08.324]     else {
  [20:20:08.324]         sink(type = "output", split = FALSE)
  [20:20:08.324]         if (TRUE) {
  [20:20:08.324]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:20:08.324]         }
  [20:20:08.324]         else {
  [20:20:08.324]             ...future.result["stdout"] <- list(NULL)
  [20:20:08.324]         }
  [20:20:08.324]         close(...future.stdout)
  [20:20:08.324]         ...future.stdout <- NULL
  [20:20:08.324]     }
  [20:20:08.324]     ...future.result$conditions <- ...future.conditions
  [20:20:08.324]     ...future.result
  [20:20:08.324] }
  [20:20:08.328] Exporting 1 global objects (336 bytes) to cluster node #1 ...
  [20:20:08.329] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ...
  [20:20:08.330] Exporting '...future.x_ii' (336 bytes) to cluster node #1 ... DONE
  [20:20:08.330] Exporting 1 global objects (336 bytes) to cluster node #1 ... DONE
  [20:20:08.331] ClusterFuture started
  [20:20:08.331] Chunk #1 of 2 ... DONE
  [20:20:08.332] Chunk #2 of 2 ...
  [20:20:08.332]  - Finding globals in 'args_list' chunk #2 ...
  [20:20:08.332] getGlobalsAndPackages() ...
  [20:20:08.332] Searching for globals...
  [20:20:08.333] 
  [20:20:08.333] Searching for globals ... DONE
  [20:20:08.334] - globals: [0] <none>
  [20:20:08.334] getGlobalsAndPackages() ... DONE
  [20:20:08.334] 
  [20:20:08.334] 
  [20:20:08.335]  - Finding globals in 'args_list' for chunk #2 ... DONE
  [20:20:08.342] getGlobalsAndPackages() ...
  [20:20:08.342] - globals passed as-is: [1] '...future.x_ii'
  [20:20:08.362] Resolving globals: FALSE
  [20:20:08.363] The total size of the 1 globals is 336 bytes (336 bytes)
  [20:20:08.363] - globals: [1] '...future.x_ii'
  [20:20:08.364] 
  [20:20:08.364] getGlobalsAndPackages() ... DONE
  [20:20:08.366] Packages needed by the future expression (n = 1): 'doFuture'
  [20:20:08.366] Packages needed by future strategies (n = 1): 'future'
  [20:20:08.370] {
  [20:20:08.370]     {
  [20:20:08.370]         ...future.startTime <- Sys.time()
  [20:20:08.370]         ...future.oldOptions <- options(future.startup.script = FALSE, 
  [20:20:08.370]             future.globals.onMissing = "ignore", future.globals.maxSize = NULL, 
  [20:20:08.370]             future.globals.method = NULL, future.globals.onMissing = "ignore", 
  [20:20:08.370]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [20:20:08.370]             future.resolve.recursive = NULL, width = 80L)
  [20:20:08.370]         {
  [20:20:08.370]             {
  [20:20:08.370]                 {
  [20:20:08.370]                   has_future <- requireNamespace("future", quietly = TRUE)
  [20:20:08.370]                   version <- if (has_future) 
  [20:20:08.370]                     packageVersion("future")
  [20:20:08.370]                   else NULL
  [20:20:08.370]                   if (!has_future || version < "1.8.0") {
  [20:20:08.370]                     info <- c(r_version = gsub("R version ", 
  [20:20:08.370]                       "", R.version$version.string), platform = sprintf("%s (%s-bit)", 
  [20:20:08.370]                       R.version$platform, 8 * .Machine$sizeof.pointer), 
  [20:20:08.370]                       os = paste(Sys.info()[c("sysname", "release", 
  [20:20:08.370]                         "version")], collapse = " "), hostname = Sys.info()[["nodename"]])
  [20:20:08.370]                     info <- sprintf("%s: %s", names(info), info)
  [20:20:08.370]                     info <- paste(info, collapse = "; ")
  [20:20:08.370]                     if (!has_future) {
  [20:20:08.370]                       msg <- sprintf("Package 'future' is not installed on worker (%s)", 
  [20:20:08.370]                         info)
  [20:20:08.370]                     }
  [20:20:08.370]                     else {
  [20:20:08.370]                       msg <- sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [20:20:08.370]                         info, version)
  [20:20:08.370]                     }
  [20:20:08.370]                     stop(msg)
  [20:20:08.370]                   }
  [20:20:08.370]                 }
  [20:20:08.370]                 local({
  [20:20:08.370]                   for (pkg in c("doFuture", "future")) {
  [20:20:08.370]                     loadNamespace(pkg)
  [20:20:08.370]                     library(pkg, character.only = TRUE)
  [20:20:08.370]                   }
  [20:20:08.370]                 })
  [20:20:08.370]             }
  [20:20:08.370]             future::plan(list(b = function (expr, envir = parent.frame(), 
  [20:20:08.370]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:08.370]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [20:20:08.370]                 label = NULL, ...) 
  [20:20:08.370]             {
  [20:20:08.370]                 if (substitute) 
  [20:20:08.370]                   expr <- substitute(expr)
  [20:20:08.370]                 local <- as.logical(local)
  [20:20:08.370]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:08.370]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.370]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:08.370]                   label = label, ...)
  [20:20:08.370]                 if (!future$lazy) 
  [20:20:08.370]                   future <- run(future)
  [20:20:08.370]                 invisible(future)
  [20:20:08.370]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:08.370]         }
  [20:20:08.370]     }
  [20:20:08.370]     if (is.na(TRUE)) {
  [20:20:08.370]     }
  [20:20:08.370]     else {
  [20:20:08.370]         if (TRUE) {
  [20:20:08.370]             ...future.stdout <- rawConnection(raw(0L), open = "w")
  [20:20:08.370]         }
  [20:20:08.370]         else {
  [20:20:08.370]             ...future.stdout <- file(switch(.Platform$OS.type, 
  [20:20:08.370]                 windows = "NUL", "/dev/null"), open = "w")
  [20:20:08.370]         }
  [20:20:08.370]         sink(...future.stdout, type = "output", split = FALSE)
  [20:20:08.370]         on.exit(if (!is.null(...future.stdout)) {
  [20:20:08.370]             sink(type = "output", split = FALSE)
  [20:20:08.370]             close(...future.stdout)
  [20:20:08.370]         }, add = TRUE)
  [20:20:08.370]     }
  [20:20:08.370]     ...future.frame <- sys.nframe()
  [20:20:08.370]     ...future.conditions <- list()
  [20:20:08.370]     ...future.result <- tryCatch({
  [20:20:08.370]         withCallingHandlers({
  [20:20:08.370]             ...future.value <- withVisible(local({
  [20:20:08.370]                 doFuture::registerDoFuture()
  [20:20:08.370]                 lapply(seq_along(...future.x_ii), FUN = function(jj) {
  [20:20:08.370]                   ...future.x_jj <- ...future.x_ii[[jj]]
  [20:20:08.370]                   {
  [20:20:08.370]                     a <- NULL
  [20:20:08.370]                     b <- NULL
  [20:20:08.370]                   }
  [20:20:08.370]                   ...future.env <- environment()
  [20:20:08.370]                   local({
  [20:20:08.370]                     for (name in names(...future.x_jj)) {
  [20:20:08.370]                       assign(name, ...future.x_jj[[name]], envir = ...future.env, 
  [20:20:08.370]                         inherits = FALSE)
  [20:20:08.370]                     }
  [20:20:08.370]                   })
  [20:20:08.370]                   tryCatch({
  [20:20:08.370]                     list(a = a, b = b, plan_b = future::plan("list"), 
  [20:20:08.370]                       plan = future::plan())
  [20:20:08.370]                   }, error = identity)
  [20:20:08.370]                 })
  [20:20:08.370]             }))
  [20:20:08.370]             future::FutureResult(value = ...future.value$value, 
  [20:20:08.370]                 visible = ...future.value$visible, started = ...future.startTime, 
  [20:20:08.370]                 version = "1.8")
  [20:20:08.370]         }, condition = local({
  [20:20:08.370]             inherits <- base::inherits
  [20:20:08.370]             invokeRestart <- base::invokeRestart
  [20:20:08.370]             length <- base::length
  [20:20:08.370]             seq.int <- base::seq.int
  [20:20:08.370]             sys.calls <- base::sys.calls
  [20:20:08.370]             `[[` <- base::`[[`
  [20:20:08.370]             `+` <- base::`+`
  [20:20:08.370]             `<<-` <- base::`<<-`
  [20:20:08.370]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [20:20:08.370]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [20:20:08.370]                   3L)]
  [20:20:08.370]             }
  [20:20:08.370]             function(cond) {
  [20:20:08.370]                 if (inherits(cond, "error")) {
  [20:20:08.370]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:08.370]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [20:20:08.370]                     cond$call), timestamp = base::Sys.time(), 
  [20:20:08.370]                     signaled = 0L)
  [20:20:08.370]                   signalCondition(cond)
  [20:20:08.370]                 }
  [20:20:08.370]                 else if (inherits(cond, "condition")) {
  [20:20:08.370]                   signal <- FALSE && inherits(cond, character(0))
  [20:20:08.370]                   ...future.conditions[[length(...future.conditions) + 
  [20:20:08.370]                     1L]] <<- list(condition = cond, signaled = as.integer(signal))
  [20:20:08.370]                   if (!signal) {
  [20:20:08.370]                     muffleCondition <- function (cond) 
  [20:20:08.370]                     {
  [20:20:08.370]                       inherits <- base::inherits
  [20:20:08.370]                       invokeRestart <- base::invokeRestart
  [20:20:08.370]                       muffled <- FALSE
  [20:20:08.370]                       if (inherits(cond, "message")) {
  [20:20:08.370]                         invokeRestart("muffleMessage")
  [20:20:08.370]                         muffled <- TRUE
  [20:20:08.370]                       }
  [20:20:08.370]                       else if (inherits(cond, "warning")) {
  [20:20:08.370]                         invokeRestart("muffleWarning")
  [20:20:08.370]                         muffled <- TRUE
  [20:20:08.370]                       }
  [20:20:08.370]                       else if (inherits(cond, "condition")) {
  [20:20:08.370]                         computeRestarts <- base::computeRestarts
  [20:20:08.370]                         grepl <- base::grepl
  [20:20:08.370]                         is.null <- base::is.null
  [20:20:08.370]                         restarts <- computeRestarts(cond)
  [20:20:08.370]                         for (restart in restarts) {
  [20:20:08.370]                           name <- restart$name
  [20:20:08.370]                           if (is.null(name)) 
  [20:20:08.370]                             next
  [20:20:08.370]                           if (!grepl("^muffle", name)) 
  [20:20:08.370]                             next
  [20:20:08.370]                           invokeRestart(restart)
  [20:20:08.370]                           muffled <- TRUE
  [20:20:08.370]                           break
  [20:20:08.370]                         }
  [20:20:08.370]                       }
  [20:20:08.370]                       invisible(muffled)
  [20:20:08.370]                     }
  [20:20:08.370]                     muffleCondition(cond)
  [20:20:08.370]                   }
  [20:20:08.370]                 }
  [20:20:08.370]             }
  [20:20:08.370]         }))
  [20:20:08.370]     }, error = function(ex) {
  [20:20:08.370]         structure(list(value = NULL, visible = NULL, conditions = ...future.conditions, 
  [20:20:08.370]             version = "1.8"), class = "FutureResult")
  [20:20:08.370]     }, finally = {
  [20:20:08.370]         {
  [20:20:08.370]             NULL
  [20:20:08.370]             future::plan(list(a = function (expr, envir = parent.frame(), 
  [20:20:08.370]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [20:20:08.370]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [20:20:08.370]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [20:20:08.370]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [20:20:08.370]                 ...) 
  [20:20:08.370]             {
  [20:20:08.370]                 if (substitute) 
  [20:20:08.370]                   expr <- substitute(expr)
  [20:20:08.370]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [20:20:08.370]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.370]                   globals = globals, persistent = persistent, 
  [20:20:08.370]                   workers = workers, user = user, revtunnel = revtunnel, 
  [20:20:08.370]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [20:20:08.370]                   label = label, ...)
  [20:20:08.370]                 if (!future$lazy) 
  [20:20:08.370]                   future <- run(future)
  [20:20:08.370]                 invisible(future)
  [20:20:08.370]             }, b = function (expr, envir = parent.frame(), substitute = TRUE, 
  [20:20:08.370]                 lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, 
  [20:20:08.370]                 earlySignal = FALSE, label = NULL, ...) 
  [20:20:08.370]             {
  [20:20:08.370]                 if (substitute) 
  [20:20:08.370]                   expr <- substitute(expr)
  [20:20:08.370]                 local <- as.logical(local)
  [20:20:08.370]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [20:20:08.370]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [20:20:08.370]                   globals = globals, local = local, earlySignal = earlySignal, 
  [20:20:08.370]                   label = label, ...)
  [20:20:08.370]                 if (!future$lazy) 
  [20:20:08.370]                   future <- run(future)
  [20:20:08.370]                 invisible(future)
  [20:20:08.370]             }), .cleanup = FALSE, .init = FALSE)
  [20:20:08.370]         }
  [20:20:08.370]         options(...future.oldOptions)
  [20:20:08.370]     })
  [20:20:08.370]     if (is.na(TRUE)) {
  [20:20:08.370]     }
  [20:20:08.370]     else {
  [20:20:08.370]         sink(type = "output", split = FALSE)
  [20:20:08.370]         if (TRUE) {
  [20:20:08.370]             ...future.result$stdout <- rawToChar(rawConnectionValue(...future.stdout))
  [20:20:08.370]         }
  [20:20:08.370]         else {
  [20:20:08.370]             ...future.result["stdout"] <- list(NULL)
  [20:20:08.370]         }
  [20:20:08.370]         close(...future.stdout)
  [20:20:08.370]         ...future.stdout <- NULL
  [20:20:08.370]     }
  [20:20:08.370]     ...future.result$conditions <- ...future.conditions
  [20:20:08.370]     ...future.result
  [20:20:08.370] }
  [20:20:08.391] Exporting 1 global objects (336 bytes) to cluster node #2 ...
  [20:20:08.392] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ...
  [20:20:08.392] Exporting '...future.x_ii' (336 bytes) to cluster node #2 ... DONE
  [20:20:08.393] Exporting 1 global objects (336 bytes) to cluster node #2 ... DONE
  [20:20:08.394] ClusterFuture started
  [20:20:08.394] Chunk #2 of 2 ... DONE
  [20:20:08.394] Launching 2 futures (chunks) ... DONE
  [20:20:08.395] - resolving futures
  [20:20:08.395]   - gathering results & relaying conditions (except errors)
  [20:20:08.395] resolve() on list ...
  [20:20:08.395]  recursive: 0
  [20:20:08.396]  length: 2
  [20:20:08.396] 
  [20:20:08.901] Future #1
  [20:20:08.901] result() for ClusterFuture ...
  [20:20:08.901] - Validating connection of ClusterFuture
  [20:20:08.902] - class(result): FutureResult
  [20:20:08.903] result() for ClusterFuture ...
  [20:20:08.903] - result already collected: FutureResult
  [20:20:08.903] result() for ClusterFuture ... done
  [20:20:08.903] result() for ClusterFuture ... done
  [20:20:08.904] result() for ClusterFuture ...
  [20:20:08.904] - result already collected: FutureResult
  [20:20:08.904] result() for ClusterFuture ... done
  [20:20:08.905] signalConditionsASAP(ClusterFuture, pos=1) ...
  [20:20:08.905] - nx: 2
  [20:20:08.905] - relay: TRUE
  [20:20:08.905] - stdout: TRUE
  [20:20:08.906] - signal: TRUE
  [20:20:08.906] - resignal: FALSE
  [20:20:08.906] - force: FALSE
  [20:20:08.906] - relayed: [n=2] FALSE, FALSE
  [20:20:08.907] - queued futures: [n=2] FALSE, FALSE
  [20:20:08.907]  - until=1
  [20:20:08.907]  - relaying element #1
  [20:20:08.907] result() for ClusterFuture ...
  [20:20:08.908] - result already collected: FutureResult
  [20:20:08.908] result() for ClusterFuture ... done
  [20:20:08.908] result() for ClusterFuture ...
  [20:20:08.909] - result already collected: FutureResult
  [20:20:08.909] result() for ClusterFuture ... done
  [20:20:08.909] result() for ClusterFuture ...
  [20:20:08.910] - result already collected: FutureResult
  [20:20:08.910] result() for ClusterFuture ... done
  [20:20:08.910] result() for ClusterFuture ...
  [20:20:08.910] - result already collected: FutureResult
  [20:20:08.911] result() for ClusterFuture ... done
  [20:20:08.911] - relayed: [n=2] TRUE, FALSE
  [20:20:08.911] - queued futures: [n=2] TRUE, FALSE
  [20:20:08.912] signalConditionsASAP(ClusterFuture, pos=1) ... done
  [20:20:08.912]  length: 1 (resolved future 1)
  [20:20:09.009] Future #2
  [20:20:09.009] result() for ClusterFuture ...
  [20:20:09.010] - Validating connection of ClusterFuture
  [20:20:09.050] - class(result): FutureResult
  [20:20:09.051] result() for ClusterFuture ...
  [20:20:09.051] - result already collected: FutureResult
  [20:20:09.051] result() for ClusterFuture ... done
  [20:20:09.052] result() for ClusterFuture ... done
  [20:20:09.052] result() for ClusterFuture ...
  [20:20:09.052] - result already collected: FutureResult
  [20:20:09.053] result() for ClusterFuture ... done
  [20:20:09.053] signalConditionsASAP(ClusterFuture, pos=2) ...
  [20:20:09.053] - nx: 2
  [20:20:09.053] - relay: TRUE
  [20:20:09.054] - stdout: TRUE
  [20:20:09.054] - signal: TRUE
  [20:20:09.054] - resignal: FALSE
  [20:20:09.054] - force: FALSE
  [20:20:09.055] - relayed: [n=2] TRUE, FALSE
  [20:20:09.055] - queued futures: [n=2] TRUE, FALSE
  [20:20:09.055]  - until=2
  [20:20:09.056]  - relaying element #2
  [20:20:09.056] result() for ClusterFuture ...
  [20:20:09.056] - result already collected: FutureResult
  [20:20:09.056] result() for ClusterFuture ... done
  [20:20:09.057] result() for ClusterFuture ...
  [20:20:09.057] - result already collected: FutureResult
  [20:20:09.057] result() for ClusterFuture ... done
  [20:20:09.058] result() for ClusterFuture ...
  [20:20:09.058] - result already collected: FutureResult
  [20:20:09.058] result() for ClusterFuture ... done
  [20:20:09.058] result() for ClusterFuture ...
  [20:20:09.059] - result already collected: FutureResult
  [20:20:09.059] result() for ClusterFuture ... done
  [20:20:09.059] - relayed: [n=2] TRUE, TRUE
  [20:20:09.059] - queued futures: [n=2] TRUE, TRUE
  [20:20:09.060] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [20:20:09.060]  length: 0 (resolved future 2)
  [20:20:09.060] Relaying remaining futures
  [20:20:09.061] signalConditionsASAP(NULL, pos=0) ...
  [20:20:09.061] - nx: 2
  [20:20:09.061] - relay: TRUE
  [20:20:09.061] - stdout: TRUE
  [20:20:09.062] - signal: TRUE
  [20:20:09.062] - resignal: FALSE
  [20:20:09.062] - force: FALSE
  [20:20:09.062] - relayed: [n=2] TRUE, TRUE
  [20:20:09.063] - queued futures: [n=2] TRUE, TRUE
   - flush all
  [20:20:09.063] - relayed: [n=2] TRUE, TRUE
  [20:20:09.064] - queued futures: [n=2] TRUE, TRUE
  [20:20:09.064] signalConditionsASAP(NULL, pos=0) ... done
  [20:20:09.064] resolve() on list ... DONE
  [20:20:09.064] - collecting values of futures
  [20:20:09.065] result() for ClusterFuture ...
  [20:20:09.065] - result already collected: FutureResult
  [20:20:09.065] result() for ClusterFuture ... done
  [20:20:09.065] result() for ClusterFuture ...
  [20:20:09.066] - result already collected: FutureResult
  [20:20:09.066] result() for ClusterFuture ... done
  [20:20:09.066] result() for ClusterFuture ...
  [20:20:09.066] - result already collected: FutureResult
  [20:20:09.067] result() for ClusterFuture ... done
  [20:20:09.067] result() for ClusterFuture ...
  [20:20:09.067] - result already collected: FutureResult
  [20:20:09.067] result() for ClusterFuture ... done
  [20:20:09.068] - accumulating results
  [20:20:09.098] - processing errors (handler = 'stop')
  [20:20:09.099] - extracting results
  [20:20:09.099] doFuture() ... DONE
  - plan(list('cluster', 'sequential')) ... DONE
  - plan(list('cluster', 'multicore')) ...
  [20:20:09.100] plan(): Setting new future strategy stack:
  [20:20:09.100] List of future strategies:
  [20:20:09.100] 1. cluster:
  [20:20:09.100]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:20:09.100]    - tweaked: FALSE
  [20:20:09.100]    - call: plan(list(a = strategy1, b = strategy2))
  [20:20:09.100] 2. multicore:
  [20:20:09.100]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [20:20:09.100]    - tweaked: FALSE
  [20:20:09.100]    - call: plan(list(a = strategy1, b = strategy2))
  [20:20:09.102] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [20:20:09.102] cluster:
  [20:20:09.102] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [20:20:09.102] - tweaked: FALSE
  [20:20:09.102] - call: plan(list(a = strategy1, b = strategy2))
  [local output] Workers: [n = 2] 'localhost', 'localhost'
  [local output] Base port: 33720
  [local output] Creating node 1 of 2 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67c2369b2.pid")), silent = TRUE)' -e "file.exists('/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67c2369b2.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67c2369b2.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=33720 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 33720 cannot be opened'
  Warning in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  :
    port 33720 cannot be opened
  Killing worker process (PID 12455) if still alive
  [20:20:11.272] Attempting to find a working pid_exists_*() function ...
  Call: tools::pskill(30454, signal = 0L)
  [1] TRUE
  Call: tools::pskill(30454, signal = 0L)
  [1] TRUE
  [20:20:11.272] - success
  [20:20:11.272] Attempting to find a working pid_exists_*() function ... done
  Worker (PID 12455) was successfully killed: TRUE
  Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE,  : 
    Failed to launch and connect to R worker on local machine 'localhost' from local machine 'gimli2'.
   * The error produced by socketConnection() was: 'cannot open the connection'
   * In addition, socketConnection() produced 1 warning(s):
     - Warning #1: 'port 33720 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 33720 using a communication timeout of 120 seconds and a connection timeout of 120 seconds.
   * Worker launch call: '/home/hornik/tmp/R.check/r-devel-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=foreach,nested.R:30454:gimli2:hornik' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/home/hornik/tmp/scratch/RtmpRvpM4o/future.parent=30454.76f67c2369b2.pid")), silent = TRUE)' -e 'parallel:::.slaveRSOCK()' MASTER=localhost PORT=33720 OUT=/dev/null TIMEOUT=120 XDR=TRUE.
   * Worker (PID 12455) was successfully killed: TRUE
   * Troubleshooting suggestions:
     - Suggestion #1: Set 'outfile=NULL' to see output from worker.
  Calls: plan ... tryCatchList -> tryCatchOne -> <Anonymous> -> <Anonymous>
  Execution halted